Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Purpose of this article is to have the import scripts available when manual owner invoices should be imported in bulk in an implementation context. 

The following template can be used for preparing data:

View file
nameTemplate manual invoices.xlsx
height250

Scripts to use


Code Block
titleImport
DECLARE
  m_resort_id      NUMBER ;
  m_owner_id       NUMBER ;
  m_DEBIT_CARD_ID  NUMBER ;
  m_invoice_id     NUMBER ;
  ledger2          NUMBER ;
  ledger1          NUMBER;
  m_cost_center_id NUMBER ;
  m_count NUMBER ;
  n number :=0;
BEGIN
  FOR x IN
  ( SELECT * FROM ext_owneR_invoice1003 where campingid !=3000134 --and INVOICE_LINE_DESCRIPTION != 'Pitches'
  )
  LOOP
  begin
    SELECT resort_id INTO m_resort_id FROM resort WHERE code = to_char(x.CAMPINGID);
    if x.ledger1='0'  or x.ledger1 is null  then
      ledger1 := null;
      else 
      SELECT ledger_id
      INTO ledger1
      FROM ledger
      WHERE loweR(trim(name)) = loweR(trim(x.Ledger1));
      end if ;
    if x.Ledger2 ='0' or x.Ledger2 is null 
    then 
    ledger2:= null ;
    else 
      SELECT ledger_id
    INTO ledger2
    FROM ledger
    WHERE loweR(trim(LEDGER_NUMBER)) = loweR(trim(x.Ledger2));
    end if ;
    if x.cost_center is null or x.cost_center ='0' then 
 
    m_cost_center_id := null;
    else 
    SELECT cost_center_id
    INTO m_cost_center_id
    FROM cost_center
    WHERE loweR(trim(COST_CENTER_NUMBER)) = loweR(trim(x.cost_center));
    end if ;
     SELECT count(*) into m_count
    FROM owner o
    JOIN ownership oi
    ON oi.owner_id = o.owner_id
    JOIN objecti18n ob
    ON ob.object_id = oi.object_id
    JOIN resourcebase rb
    ON rb.resource_id = ob.asset_id
    WHERE o.lastname LIKE '%(r)%'
    AND o.archiveD_from IS NULL
    AND (oi.end_date    >= sysdate
    OR oi.end_date      IS NULL)
    AND rb.resorT_id     = m_resorT_id ;
   if m_count != 0 then 
    SELECT DISTINCT o.owneR_id
    INTO m_owner_id
    FROM owner o
    JOIN ownership oi
    ON oi.owner_id = o.owner_id
    JOIN objecti18n ob
    ON ob.object_id = oi.object_id
    JOIN resourcebase rb
    ON rb.resource_id = ob.asset_id
    WHERE o.lastname LIKE '%(r)%'
    AND o.archiveD_from IS NULL
    AND (oi.end_date    >= sysdate
    OR oi.end_date      IS NULL)
    AND rb.resorT_id     = m_resorT_id ;
    SELECT DEBIT_CARD_ID
    INTO m_DEBIT_CARD_ID
    FROM owner_debit_card
    WHERE owner_id =m_owner_id
    AND resorT_id  = m_resorT_id ;
    else 
    m_owner_id := null;
    m_DEBIT_CARD_ID := null;
    end if ;
    DBMS_OUTPUT.PUT_LINE('ledger1:'||ledger1);
    DBMS_OUTPUT.PUT_LINE('m_owner_id:'||m_owner_id);
       DBMS_OUTPUT.PUT_LINE('m_DEBIT_CARD_ID:'||m_DEBIT_CARD_ID);
    INSERT
    INTO OWNER_SETTLEMENT_INVOICE
      (
        resorT_id ,
        INVOICE_NUMBER,
        INVOICE_DATE,
        INVOICE_DESCRIPTION,
        INVOICE_AMOUNT,
        INVOICE_TYPE,
        OWNER_DEBIT_CARD_ID
      )
      VALUES
      (
        m_resort_id,
        replace(x.REFNR,'-',''),
        to_date(x.INVOICE_DATE,'mm/dd/yyyy'),
        x.DESCRIPTION,
        (x.AMOUNT),
        'm',
        m_DEBIT_CARD_ID
      )
    RETURNING OWNER_SETTLEMENT_INVOICE_ID
    INTO m_invoice_id ;
    INSERT
    INTO OWNER_SETTLEMENT_ENTRY
      (
        invoice_id,
        OWNER_ID,
        ENTRY_DATE,
        RESORT_ID,
        OWNER_AMOUNT,
        DESCRIPTION,
        INVOICENUMBER,
        TYPE ,
        BASE_LEDGER_ID,
        BASE_SECOND_LEDGER_ID,
        BASE_COST_CENTER_ID
      )
      VALUES
      (
        m_invoice_id ,
        m_OWNER_ID,
        sysdate ,
        m_RESORT_ID,
        x.amount,
        x.Invoice_line_description,
        x.INVOICE_NUMBER,
        x.Invoice_type,
        ledger1 ,
        ledger2,
        m_cost_center_id
      );
      n:=n+1;
         logger.error('invoice_inserted100321 :===- '||m_invoice_id);
      exception when others then 
         logger.error('invoice_not_inserted100321 :===- '||x.DESCRIPTION || ','||x.INVOICE_LINE_DESCRIPTION);
      end ;
  END LOOP;
END ;
/
select * from ext_owneR_invoice1003 
minus 
select distinct  e.* from OWNER_SETTLEMENT_INVOICE o
join resort r 
on r.resorT_id = o.resorT_id 
join ext_owneR_invoice1003 e 
on E.CAMPINGID = r.code ;
select * from log where message like 'invoice_inserted100321 :===-%';
select message from log where message like 'invoice_not_inserted100321 :===-%';

...