Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CREATE OR REPLACE FUNCTION f_generate_jurnal_do_receipt(character varying,bigint,character varying,character varying,
- bigint,character varying)
- RETURNS void AS
- $BODY$
- DECLARE
- pSessionId ALIAS FOR $1;
- pTenantId ALIAS FOR $2;
- pDateForm ALIAS FOR $3;
- pDateTo ALIAS FOR $4;
- pUserId ALIAS FOR $5;
- pDatetime ALIAS FOR $6;
- -- For Journal
- vEmptyId bigint;
- vSignDebt character varying(1);
- vSignCredit character varying(1);
- vTypeRate character varying(5);
- vActivityCOA character varying(10);
- vSystemCOA character varying(10);
- vTaxCOA character varying(10);
- vEmptyValue character varying(1);
- vFlgNo character varying(1);
- vEmptyString character varying;
- vStatusDraft character varying(1);
- vDoReceiptDocTypeId bigint;
- vRoundingModeNonTax character varying(5);
- vDoDocTypeId bigint;
- vSoDocTypeId bigint;
- vSlsInvTempId bigint;
- vSlsInvTempDocTypeId bigint;
- vNo character varying(5);
- vYes character varying(5);
- vDocTypeId bigint;
- vJournalTrxId bigint;
- vDocJournal DOC_JOURNAL%ROWTYPE;
- vOuStructure OU_BU_STRUCTURE%ROWTYPE;
- vOuStructureJournalItem OU_BU_STRUCTURE%ROWTYPE;
- result RECORD;
- BEGIN
- vFlagInvoice := 'N';
- vEmptyId := -99;
- vStatusRelease := 'R';
- vStatusVoid := 'V';
- vStatusDraft := 'D';
- vStatusFinal := 'F';
- vEmptyValue := ' ';
- vProductStatus := 'GOOD';
- vSignDebit := 'D';
- vSignCredit := 'C';
- vTypeRate := 'COM';
- vProductCOA := 'PRODUCT';
- vSystemCOA := 'SYSTEM';
- vUnfinishedItem := 0;
- vNo := 'N';
- vYes := 'Y';
- vDoReceiptDocTypeId = 525;
- vDoDocTypeId := 311;
- vSoDocTypeId := 301;
- vSlsInvTempDocTypeId := 361;
- --
- -- SELECT A.ref_id, f_get_ou_bu_structure(A.ou_id) AS ou, f_get_document_journal(A.doc_type_id) as doc
- -- FROM in_do_receipt A
- -- WHERE A.do_receipt_id = vDoReceiptId INTO result;
- --
- -- vDocTypeId := result.doc_type_id;
- -- vOuStructure := result.ou;
- -- vDocJournal := result.doc;
- --
- -- SELECT A.ou_id, B.ou_id INTO vOuId, vOuWarehouseId
- -- FROM in_do_receipt A
- -- INNER JOIN m_warehouse_ou B ON A.warehouse_id = B.warehouse_id
- -- WHERE A.do_receipt_id = vDoReceiptId;
- --
- -- IF (vOuId <> vOuWarehouseId) THEN
- -- SELECT f_get_ou_bu_structure(vOuWarehouseId) as ou_structure INTO result;
- -- vOuStructureJournalItem := result.ou_structure;
- -- ELSE
- -- vOuStructureJournalItem := ROW(-99, -99, -99);
- -- END IF;
- DELETE FROM tt_journal_trx_item WHERE session_id = pSessionId;
- /*
- * membuat data transaksi jurnal :
- * 1. buat admin
- * 2. buat temlate jurnal
- -- */
- -- PERFORM gl_manage_admin_journal_trx(A.tenant_id, (vOuStructure).ou_bu_id, A.ou_id, (vDocJournal).journal_type, (vDocJournal).ledger_code, f_get_year_month_date(A.doc_date), 'DAILY', pDatetime, pUserId)
- -- FROM fi_invoice_ar A
- -- WHERE A.invoice_ar_id = pInvoiceArId;
- SELECT NEXTVAL('gl_journal_trx_seq') INTO vJournalTrxId;
- INSERT INTO gl_journal_trx
- (journal_trx_id, tenant_id, journal_type, doc_type_id, doc_id, doc_no, doc_date,
- ou_bu_id, ou_branch_id, ou_sub_bu_id, partner_id, cashbank_id, warehouse_id, ext_doc_no, ext_doc_date,
- ref_doc_type_id, ref_id, due_date, curr_code, remark, status_doc, workflow_status,
- "version", create_datetime, create_user_id, update_datetime, update_user_id)
- SELECT vJournalTrxId, A.tenant_id, (vDocJournal).journal_type, A.doc_type_id, A.do_receipt_id, A.doc_no, A.doc_date,
- (vOuStructure).ou_bu_id, (vOuStructure).ou_branch_id, (vOuStructure).ou_sub_bu_id, B.partner_ship_to_id, vEmptyId, A.warehouse_id, A.ext_doc_no, A.ext_doc_date,
- A.ref_doc_type_id, A.ref_id, A.doc_date, C.curr_code, A.remark, vStatusDraft, 'DRAFT',
- 0, pDatetime, vUserId, pDatetime, vUserId
- FROM in_do_receipt A, sl_do B, sl_so C
- WHERE A.do_receipt_id = vDoReceiptId AND
- A.ref_id = B.do_id AND
- B.ref_id = C.so_id;
- INSERT INTO tt_journal_trx_item
- (session_id, tenant_id, journal_trx_id, line_no,
- ref_doc_type_id, ref_id,
- partner_id, product_id, cashbank_id, ou_rc_id,
- segmen_id, sign_journal, flg_source_coa, activity_gl_id,
- coa_id, curr_code, qty, uom_id,
- amount, journal_date, type_rate,
- numerator_rate, denominator_rate, journal_desc, remark)
- SELECT pSessionId, A.tenant_id, vJournalTrxId, 1,
- A.doc_type_id, B.do_receipt_item_id,
- C.partner_ship_to_id, B.product_id, vEmptyId, vEmptyId,
- vEmptyId, vSignDebit, vProductCOA, vEmptyId,
- f_get_product_coa_group_product(A.tenant_id, B.product_id), f_get_value_system_config_by_param_code(pTenantId, 'ValutaBuku'), B.qty_return, B.uom_id,
- 0, A.doc_date, vTypeRate,
- 1, 1, 'PRODUCT_STOCK', B.remark
- FROM in_do_receipt A, in_do_receipt_item B, sl_do C
- WHERE A.do_receipt_id = vDoReceiptId AND
- A.do_receipt_id = B.do_receipt_id AND
- A.ref_id = C.do_id;
- INSERT INTO gl_journal_trx_item
- (tenant_id, journal_trx_id, line_no,
- ref_doc_type_id, ref_id,
- partner_id, product_id, cashbank_id, ou_rc_id,
- segmen_id, sign_journal, flg_source_coa, activity_gl_id,
- coa_id, curr_code, qty, uom_id,
- amount, journal_date, type_rate,
- numerator_rate, denominator_rate, journal_desc, remark,
- "version", create_datetime, create_user_id, update_datetime, update_user_id)
- SELECT A.tenant_id, A.journal_trx_id, ROW_NUMBER() OVER ( PARTITION BY A.journal_trx_id),
- A.ref_doc_type_id, A.ref_id,
- A.partner_id, A.product_id, A.cashbank_id, A.ou_rc_id,
- A.segmen_id, A.sign_journal, A.flg_source_coa, A.activity_gl_id,
- A.coa_id, A.curr_code, A.qty, A.uom_id,
- A.amount, A.journal_date, A.type_rate,
- A.numerator_rate, A.denominator_rate, A.journal_desc, A.remark,
- 0, pDatetime, pUserId, pDatetime, pUserId,
- (vOuStructureJournalItem).ou_branch_id, (vOuStructureJournalItem).ou_sub_bu_id
- FROM tt_journal_trx_item A
- WHERE A.session_id = pSessionId;
- INSERT INTO gl_journal_trx_mapping
- (tenant_id, journal_trx_id, line_no,
- ref_doc_type_id, ref_id,
- partner_id, product_id, cashbank_id, ou_rc_id,
- segmen_id, sign_journal, flg_source_coa, activity_gl_id,
- coa_id, curr_code, qty, uom_id,
- amount, journal_date, type_rate,
- numerator_rate, denominator_rate, journal_desc, remark,
- "version", create_datetime, create_user_id, update_datetime, update_user_id)
- SELECT A.tenant_id, A.journal_trx_id, ROW_NUMBER() OVER ( PARTITION BY A.journal_trx_id ),
- vEmptyId, vEmptyId,
- vEmptyId, vEmptyId, vEmptyId, vEmptyId,
- vEmptyId, vSignCredit, vSystemCOA, vEmptyId,
- f_get_system_coa_by_group_coa(A.tenant_id, 'HargaPokokPenjualan'), f_get_value_system_config_by_param_code(pTenantId, 'ValutaBuku'), 0, vEmptyId,
- 0, A.journal_date, A.type_rate,
- 1, 1, 'COGS', vEmptyValue,
- 0, pDatetime, pUserId, pDatetime, pUserId
- FROM tt_journal_trx_item A
- WHERE A.session_id = pSessionId
- GROUP BY A.tenant_id, A.journal_trx_id, A.journal_date, A.type_rate;
- DELETE FROM tt_journal_trx_item WHERE session_id = pSessionId;
- END;
- $BODY$
- LANGUAGE plpgsql VOLATILE
- COST 100;
- /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement