|
|
Output,
SQL Command failed with: ERROR: syntax error at or near "AD_UPDATE_PINSTANCE"
[java] -- END
[java] -- -----------------------------------------------------------------------
[java] -- FUNCTION KA00007_CONTRACT_INVOICE
[java] -- -----------------------------------------------------------------------
[java] CREATE FUNCTION KA00007_CONTRACT_INVOICE(p_pinstance_id IN VARCHAR) RETURNS VOID
[java]
[java] AS $BODY$ DECLARE
[java] --TYPE RECORD IS REFCURSOR;
[java] Cur_Parameter RECORD;
[java] v_Record_ID VARCHAR(32);
[java] v_UpdatedBy varchar(32);
[java] v_Result NUMERIC:=1;
[java] v_Message VARCHAR(2000):='';
[java] v_clientid VARCHAR(32);
[java] v_orgid VARCHAR(32);
[java] v_documentno VARCHAR(32);
[java] v_bpartner VARCHAR(32);
[java] v_bpartnerloc VARCHAR(32);
[java] v_dateopen TIMESTAMP;
[java] v_workstatus VARCHAR(32);
[java] v_desc VARCHAR(150);
[java] v_product VARCHAR(32);
[java] v_price NUMERIC;
[java] v_period NUMERIC;
[java] v_invoiceid VARCHAR(32);
[java]
[java]
[java] BEGIN
[java] IF(p_PInstance_ID IS NOT NULL) THEN
[java] FOR Cur_Parameter IN
[java] (SELECT i.Record_ID,
[java] i.AD_User_ID,
[java] p.ParameterName,
[java] p.P_String,
[java] p.P_Number,
[java] p.P_Date,i.Updatedby
[java] FROM AD_PINSTANCE i
[java] LEFT JOIN AD_PINSTANCE_PARA p
[java] ON i.AD_PInstance_ID=p.AD_PInstance_ID
[java] WHERE i.AD_PInstance_ID=p_PInstance_ID
[java] ORDER BY p.SeqNo
[java] )
[java] LOOP
[java] v_Record_ID:=Cur_Parameter.Record_ID;
[java] v_UpdatedBy:=Cur_Parameter.Updatedby;
[java]
[java] -- Get Parameter
[java] RAISE NOTICE '%',' v_Record_ID=' || v_Record_ID ;
[java]
[java] END LOOP;
[java]
[java] select ad_client_id,ad_org_id,'CON-'||documentno,c_bpartner_id,c_bpartner_location_id,
[java] dateopened,worder_status,description,m_product_id,total_price,contract_period,c_invoice_id
[java] into
[java] v_clientid,v_orgid,v_documentno,v_bpartner,v_bpartnerloc,v_dateopen,v_workstatus,
[java] v_desc,v_product,v_price,v_period,v_invoiceid from ka00007_contract where ka00007_contract_id=v_Record_ID;
[java]
[java] IF (v_workstatus='C' and v_invoiceid is null) THEN
[java]
[java] select get_uuid() into v_invoiceid from dual;
[java]
[java] insert into c_invoice (c_invoice_id,ad_client_id,ad_org_id,createdby,updatedby,
[java] issotrx,documentno,docstatus,docaction,
[java] processing,processed,posted,c_doctype_id,c_doctypetarget_id,
[java] dateinvoiced,dateacct,c_bpartner_id,c_bpartner_location_id,c_currency_id,
[java] paymentrule,c_paymentterm_id,m_pricelist_id,taxdate,description)
[java] values(v_invoiceid,v_clientid,v_orgid,v_updatedby,v_updatedby,
[java] 'Y',v_documentno,'DR','CO',
[java] 'N','N','N','0','1000001',
[java] v_dateopen,v_dateopen,v_bpartner,v_bpartnerloc,'317',
[java] '5','1000002','1000003',v_dateopen,v_desc);
[java]
[java] insert into c_invoiceline (c_invoiceline_id,c_invoice_id,ad_client_id,ad_org_id,createdby,updatedby,
[java] line,description,m_product_id,qtyinvoiced,pricelist,priceactual,pricelimit,linenetamt,
[java] c_uom_id,c_tax_id,isdescription,pricestd,excludeforwithholding)
[java] values(get_uuid(),v_invoiceid,v_clientid,v_orgid,v_updatedby,v_updatedby,
[java] '10',v_desc,v_product,'1',v_price,v_price,v_price,v_price,
[java] 100,'1000003','N',v_price,'N');
[java]
[java] Update ka00007_contract set c_invoice_id=v_invoiceid where ka00007_contract_id=v_Record_ID;
[java]
[java] END IF;
[java]
[java]
[java] PERFORM PERFORM AD_UPDATE_PINSTANCE(p_PInstance_ID, v_UpdatedBy, 'N', v_Result, v_Message) ;
[java] END IF;
[java] END ; $BODY$ LANGUAGE plpgsql;
[java] SQL Command failed with: ERROR: syntax error at or near "AD_UPDATE_PINSTANCE"
[java] -- END |
|
com.kna.mod.con-0.0.5.obx (170,521) 2009-12-02 05:06