Scribd
Upload
3 views

Monitoring PO All

The document contains a SQL query that retrieves various procurement-related data, including details about purchase requisitions and orders, such as branch codes, item descriptions, quantities, pricing, and status. It combines data from multiple tables to provide a comprehensive view of purchase requests and their associated transactions. The query also includes conditional logic to handle null values and ensure accurate reporting of procurement information.

Uploaded by

dataku.backup099
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
3 views

Monitoring PO All

The document contains a SQL query that retrieves various procurement-related data, including details about purchase requisitions and orders, such as branch codes, item descriptions, quantities, pricing, and status. It combines data from multiple tables to provide a comprehensive view of purchase requests and their associated transactions. The query also includes conditional logic to handle null values and ensure accurate reporting of procurement information.

Uploaded by

dataku.backup099
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 9

/* Formatted on 3/19/2025 2:31:41 PM (QP5 v5.

391) */
SELECT LINE_ID,
NVL (KODE_CABANG_PO, KODE_CABANG_PR) || ' ' KODE_CABANG,
NVL (NAMA_CABANG_PO, NAMA_CABANG_PR) NAMA_CABANG,
TGL_PENGAJUAN_PR,
NO_PENGAJUAN_PR,
APPROVED_PR_DATE,
BELI_P_C,
STATUS_PR,
PURCHASING_CATEGORY,
NVL (ITEM_PO, ITEM_PR) NAMA_BARANG,
NOTE_TO_AGENT,
NOTE_TO_VENDOR,
NVL (QTY_PO, QTY_PR) QTY,
NVL (SATUAN_PO, SATUAN_PR) SAT,
NVL (HARGA_PO, HARGA_PR) HRG,
NVL (TAX, PPN_PR) PPN,
NVL (TOT_PO, TOT_PR) + NVL (TAX, PPN_PR) JUMLAH,
VENDOR_NAME,
APPROVED_PO_DATE,
TGL_PO,
NO_PO,
STATUS_PO,
TGL_RECEIPT,
RECEIPT_NUM || ' ' RECEIPT_NUM,
INVOICE_NUM || ' ' INVOICE_NUM,
CHECK_DATE,
CHECK_NUMBER || ' ' CHECK_NUMBER,
PO_DISTRIBUTION_ID,
BUYER,
PREPARER,
NVL (cost_center_po, cost_center_pr) || ' ' cost_center,
NVL (cc_desc_po, cc_desc_pr) cc_desc,
preparer_acc,
preparer_acc_desc
FROM (SELECT PRLA.REQUISITION_LINE_ID
LINE_ID,
GCC.SEGMENT2
KODE_CABANG_PR,
gl_flexfields_pkg.get_description_sql (
GCC.CHART_OF_ACCOUNTS_ID,
2,
GCC.SEGMENT2)
NAMA_CABANG_PR,
gcc.segment6
cost_center_pr,
gl_flexfields_pkg.get_description_sql (
gcc.chart_of_accounts_id,
6,
gcc.segment6)
cc_desc_pr,
TRUNC (PRHA.CREATION_DATE)
TGL_PENGAJUAN_PR,
PRHA.SEGMENT1
NO_PENGAJUAN_PR,
(SELECT TRUNC (MAX (ACTION_DATE))
FROM PO_ACTION_HISTORY
WHERE OBJECT_TYPE_CODE = 'REQUISITION'
AND ACTION_CODE = 'APPROVE'
AND OBJECT_ID = PRHA.REQUISITION_HEADER_ID)
APPROVED_PR_DATE,
PRHA.ATTRIBUTE1
BELI_P_C,
PRHA.AUTHORIZATION_STATUS
STATUS_PR,
(SELECT MC.SEGMENT1 || '.' || MC.SEGMENT2
FROM MTL_CATEGORIES MC
WHERE MC.CATEGORY_ID =
NVL (PO_DATA.CATEGORY_ID, PRLA.CATEGORY_ID))
PURCHASING_CATEGORY,
MSIK.DESCRIPTION
ITEM_PR,
REPLACE (REPLACE (PRLA.NOTE_TO_AGENT, CHR (10), ' '),
CHR (13),
' ')
NOTE_TO_AGENT,
NVL (PO_DATA.NOTE_TO_VENDOR, PRLA.NOTE_TO_VENDOR)
NOTE_TO_VENDOR,
PRLA.QUANTITY
QTY_PR,
PRLA.UNIT_MEAS_LOOKUP_CODE
SATUAN_PR,
PRLA.UNIT_PRICE
HARGA_PR,
0
PPN_PR,
PRLA.QUANTITY * PRLA.UNIT_PRICE
TOT_PR,
PO_DATA.REQ_DISTRIBUTION_ID,
PO_DATA.KODE_CABANG_PO,
PO_DATA.NO_PO,
PO_DATA.NAMA_CABANG_PO,
po_data.cost_center_po,
po_data.cc_desc_po,
PO_DATA.TGL_PO,
PO_DATA.APPROVED_PO_DATE,
CASE
WHEN PO_DATA.NO_PO IS NOT NULL
THEN
NVL (PO_DATA.STATUS_PO, 'INCOMPLETE')
ELSE
NULL
END
STATUS_PO,
PO_DATA.VENDOR_NAME,
PO_DATA.ITEM_PO,
PO_DATA.QTY_PO,
PO_DATA.SATUAN_PO,
PO_DATA.HARGA_PO,
PO_DATA.TAX,
PO_DATA.TOT_PO,
PO_DATA.PO_DISTRIBUTION_ID,
TGL_RECEIPT,
RECEIPT_NUM,
TRANSACTION_ID,
INVOICE_NUM,
CHECK_NUMBER,
CHECK_DATE,
PO_DATA.BUYER,
PAPF1.FULL_NAME
PREPARER,
(SELECT gcc.segment6
FROM per_all_assignments_f pasf,
per_all_people_f papf,
gl_code_combinations gcc
WHERE pasf.person_id = papf.person_id
AND papf.person_id = prha.preparer_id
AND TRUNC (SYSDATE) BETWEEN TRUNC (
papf.effective_start_date)
AND TRUNC (
papf.effective_end_date)
AND TRUNC (SYSDATE) BETWEEN TRUNC (
pasf.effective_start_date)
AND TRUNC (
pasf.effective_end_date)
AND pasf.default_code_comb_id =
gcc.code_combination_id)
preparer_acc,
(SELECT gl_flexfields_pkg.get_description_sql (
gcc.chart_of_accounts_id,
6,
gcc.segment6)
FROM per_all_assignments_f pasf,
per_all_people_f papf,
gl_code_combinations gcc
WHERE pasf.person_id = papf.person_id
AND papf.person_id = prha.preparer_id
AND TRUNC (SYSDATE) BETWEEN TRUNC (
papf.effective_start_date)
AND TRUNC (
papf.effective_end_date)
AND TRUNC (SYSDATE) BETWEEN TRUNC (
pasf.effective_start_date)
AND TRUNC (
pasf.effective_end_date)
AND pasf.default_code_comb_id =
gcc.code_combination_id)
preparer_acc_desc
FROM PO_REQUISITION_HEADERS_ALL PRHA,
PO_REQUISITION_LINES_ALL PRLA,
PO_REQ_DISTRIBUTIONS_ALL PRDA,
MTL_SYSTEM_ITEMS_KFV MSIK,
MTL_PARAMETERS MP,
GL_CODE_COMBINATIONS GCC,
PER_ALL_PEOPLE_F PAPF1,
(SELECT PDA.REQ_DISTRIBUTION_ID,
GCC.SEGMENT2
KODE_CABANG_PO,
PHA.SEGMENT1
NO_PO,
gl_flexfields_pkg.get_description_sql (
GCC.CHART_OF_ACCOUNTS_ID,
2,
GCC.SEGMENT2)
NAMA_CABANG_PO,
gcc.segment6
cost_center_po,
gl_flexfields_pkg.get_description_sql (
gcc.chart_of_accounts_id,
6,
gcc.segment6)
cc_desc_po,
TRUNC (PHA.CREATION_DATE)
TGL_PO,
(SELECT TRUNC (MAX (ACTION_DATE))
FROM PO_ACTION_HISTORY
WHERE OBJECT_TYPE_CODE = 'PO'
AND ACTION_CODE = 'APPROVE'
AND OBJECT_ID = PHA.PO_HEADER_ID)
APPROVED_PO_DATE,
PHA.AUTHORIZATION_STATUS
STATUS_PO,
PV.VENDOR_NAME,
MSIK.DESCRIPTION
ITEM_PO,
PDA.QUANTITY_ORDERED
QTY_PO,
PLA.CATEGORY_ID,
PLA.NOTE_TO_VENDOR,
PLA.UNIT_MEAS_LOOKUP_CODE
SATUAN_PO,
PLA.UNIT_PRICE
HARGA_PO,
(SELECT SUM (NREC_TAX_AMT)
FROM ZX_LINES
WHERE ENTITY_CODE = 'PURCHASE_ORDER'
AND TRX_ID = PHA.PO_HEADER_ID
AND TRX_LINE_ID = PLLA.LINE_LOCATION_ID)
TAX,
PDA.QUANTITY_ORDERED * PLA.UNIT_PRICE
TOT_PO,
TGL_RECEIPT,
RECEIPT_NUM,
PDA.PO_DISTRIBUTION_ID,
TRANSACTION_ID,
INVOICE_NUM,
CHECK_NUMBER,
CHECK_DATE,
PAPF.FULL_NAME
BUYER
FROM PO_HEADERS_ALL PHA,
PO_LINES_ALL PLA,
PO_LINE_LOCATIONS_ALL PLLA,
PO_DISTRIBUTIONS_ALL PDA,
MTL_SYSTEM_ITEMS_KFV MSIK,
PO_VENDORS PV,
MTL_PARAMETERS MP,
GL_CODE_COMBINATIONS GCC,
PER_ALL_PEOPLE_F PAPF,
(SELECT RT.PO_DISTRIBUTION_ID,
TRUNC (RT.TRANSACTION_DATE) TGL_RECEIPT,
RSH.RECEIPT_NUM,
RT.TRANSACTION_ID,
AP_DATA.INVOICE_NUM,
AP_DATA.CHECK_NUMBER,
AP_DATA.CHECK_DATE
FROM RCV_TRANSACTIONS RT,
RCV_SHIPMENT_LINES RSL,
RCV_SHIPMENT_HEADERS RSH,
(SELECT AIDA.RCV_TRANSACTION_ID,
INVOICE_NUM,
PYMNT.CHECK_NUMBER,
PYMNT.CHECK_DATE
FROM AP_INVOICES_ALL AIA,
AP_INVOICE_LINES_ALL AILA,
AP_INVOICE_DISTRIBUTIONS_ALL AIDA,
(SELECT INVOICE_ID,
ACA.CHECK_NUMBER,
ACA.CHECK_DATE
FROM AP_INVOICE_PAYMENTS_ALL AIPA,
AP_CHECKS_ALL ACA
WHERE 1 = 1
AND VOID_DATE IS NULL
AND AIPA.CHECK_ID =
ACA.CHECK_ID) PYMNT
WHERE AIA.INVOICE_ID = AILA.INVOICE_ID
AND AILA.INVOICE_ID = AIDA.INVOICE_ID
AND ( AILA.CANCELLED_FLAG = 'N'
OR AILA.CANCELLED_FLAG IS NULL)
AND ( AILA.DISCARDED_FLAG = 'N'
OR AILA.DISCARDED_FLAG IS NULL)
AND AIDA.INVOICE_LINE_NUMBER =
AILA.LINE_NUMBER
AND AIDA.PO_DISTRIBUTION_ID
IS NOT NULL
AND AIA.INVOICE_ID =
PYMNT.INVOICE_ID(+)) AP_DATA
WHERE 1 = 1
AND RT.SHIPMENT_HEADER_ID =
RSH.SHIPMENT_HEADER_ID
AND RT.SHIPMENT_LINE_ID = RSL.SHIPMENT_LINE_ID
AND RSH.SHIPMENT_HEADER_ID =
RSL.SHIPMENT_HEADER_ID
AND RT.DESTINATION_TYPE_CODE = 'RECEIVING'
AND RT.TRANSACTION_TYPE = 'RECEIVE'
AND RT.TRANSACTION_ID =
AP_DATA.RCV_TRANSACTION_ID(+)) RCV_DATA
WHERE MP.ORGANIZATION_CODE = 'MMF'
AND PDA.REQ_DISTRIBUTION_ID IS NOT NULL
AND PHA.PO_HEADER_ID = PLA.PO_HEADER_ID
AND PLA.PO_LINE_ID = PDA.PO_LINE_ID
AND PHA.PO_HEADER_ID = PDA.PO_HEADER_ID
AND PLA.ITEM_ID = MSIK.INVENTORY_ITEM_ID
AND MSIK.ORGANIZATION_ID = MP.ORGANIZATION_ID
AND PDA.CODE_COMBINATION_ID = GCC.CODE_COMBINATION_ID
AND PHA.VENDOR_ID = PV.VENDOR_ID
AND PHA.PO_HEADER_ID = PLLA.PO_HEADER_ID
AND PLA.PO_LINE_ID = PLLA.PO_LINE_ID
AND PDA.PO_DISTRIBUTION_ID =
RCV_DATA.PO_DISTRIBUTION_ID(+)
AND PHA.AGENT_ID = PAPF.PERSON_ID(+)
AND TRUNC (SYSDATE) BETWEEN PAPF.EFFECTIVE_START_DATE
AND PAPF.EFFECTIVE_END_DATE)
PO_DATA
WHERE PRHA.REQUISITION_HEADER_ID = PRLA.REQUISITION_HEADER_ID
AND PRLA.REQUISITION_LINE_ID = PRDA.REQUISITION_LINE_ID
AND PRLA.ITEM_ID = MSIK.INVENTORY_ITEM_ID
AND MSIK.ORGANIZATION_ID = MP.ORGANIZATION_ID
AND MP.ORGANIZATION_CODE = 'MMF'
AND ( PRHA.APPROVED_DATE IS NULL
OR TRUNC (PRHA.APPROVED_DATE) BETWEEN NVL (
TRUNC (
TO_DATE (
:P_DATE
_APP_PR_FROM,

'YYYY/MM/DD HH24:MI:SS')),

PRHA.APPROVED_DATE)
AND NVL (
TRUNC (
TO_DATE (
:P_DATE
_APP_PR_TO,

'YYYY/MM/DD HH24:MI:SS')),

PRHA.APPROVED_DATE) --add danar mii request darryl 03 18 25


/*AND NVL (PO_DATA.TGL_PO, TRUNC (PRHA.CREATION_DATE))
BETWEEN TO_DATE (

'01-'

|| :P_PERIOD,

'DD-MON-RR')

AND LAST_DAY (

TO_DATE (

'01-'

|| :P_PERIOD,

'DD-MON-RR'))*/)
AND PRDA.CODE_COMBINATION_ID = GCC.CODE_COMBINATION_ID
AND PRDA.DISTRIBUTION_ID = PO_DATA.REQ_DISTRIBUTION_ID(+)
AND PRHA.PREPARER_ID = PAPF1.PERSON_ID(+)
AND TRUNC (SYSDATE) BETWEEN PAPF1.EFFECTIVE_START_DATE
AND PAPF1.EFFECTIVE_END_DATE
UNION ALL
SELECT PLA.PO_LINE_ID,
NULL
KODE_CABANG_PR,
NULL
NAMA_CABANG_PR,
NULL
cost_center_pr,
NULL
cc_desc_pr,
NULL
TGL_PENGAJUAN_PR,
NULL
NO_PENGAJUAN_PR,
NULL
APPROVED_PR_DATE,
NULL
BELI_P_C,
NULL
STATUS_PR,
(SELECT MC.SEGMENT1 || '.' || MC.SEGMENT2
FROM MTL_CATEGORIES MC
WHERE MC.CATEGORY_ID = PLA.CATEGORY_ID)
PURCHASING_CATEGORY,
NULL
ITEM_PR,
NULL
NOTE_TO_AGENT,
PLA.NOTE_TO_VENDOR,
NULL
QTY_PR,
NULL
SATUAN_PR,
NULL
HARGA_PR,
NULL
PPN_PR,
NULL
TOT_PR,
PDA.REQ_DISTRIBUTION_ID,
GCC.SEGMENT2
KODE_CABANG_PO,
PHA.SEGMENT1
NO_PO,
gl_flexfields_pkg.get_description_sql (
GCC.CHART_OF_ACCOUNTS_ID,
2,
GCC.SEGMENT2)
NAMA_CABANG_PO,
gcc.segment6
cost_center_po,
gl_flexfields_pkg.get_description_sql (
gcc.chart_of_accounts_id,
6,
gcc.segment6)
cc_desc_po,
TRUNC (PHA.CREATION_DATE)
TGL_PO,
(SELECT TRUNC (MAX (ACTION_DATE))
FROM PO_ACTION_HISTORY
WHERE OBJECT_TYPE_CODE = 'PO'
AND ACTION_CODE = 'APPROVE'
AND OBJECT_ID = PHA.PO_HEADER_ID)
APPROVED_PO_DATE,
CASE
WHEN PHA.SEGMENT1 IS NOT NULL
THEN
NVL (PHA.AUTHORIZATION_STATUS, 'INCOMPLETE')
ELSE
NULL
END
STATUS_PO,
PV.VENDOR_NAME,
MSIK.DESCRIPTION
ITEM_PO,
PDA.QUANTITY_ORDERED
QTY_PO,
PLA.UNIT_MEAS_LOOKUP_CODE
SATUAN_PO,
PLA.UNIT_PRICE
HARGA_PO,
NVL (
(SELECT SUM (NREC_TAX_AMT)
FROM ZX_LINES
WHERE ENTITY_CODE = 'PURCHASE_ORDER'
AND TRX_ID = PHA.PO_HEADER_ID
AND TRX_LINE_ID = PLLA.LINE_LOCATION_ID),
0)
TAX,
PDA.QUANTITY_ORDERED * PLA.UNIT_PRICE
TOT_PO,
PDA.PO_DISTRIBUTION_ID,
TGL_RECEIPT,
RECEIPT_NUM,
TRANSACTION_ID,
INVOICE_NUM,
CHECK_NUMBER,
CHECK_DATE,
PAPF.FULL_NAME
BUYER,
NULL
PREPARER,
NULL
preparer_acc,
NULL
preparer_acc_desc
FROM PO_HEADERS_ALL PHA,
PO_LINES_ALL PLA,
PO_LINE_LOCATIONS_ALL PLLA,
PO_DISTRIBUTIONS_ALL PDA,
MTL_SYSTEM_ITEMS_KFV MSIK,
PO_VENDORS PV,
MTL_PARAMETERS MP,
GL_CODE_COMBINATIONS GCC,
PER_ALL_PEOPLE_F PAPF,
(SELECT RT.PO_DISTRIBUTION_ID,
TRUNC (RT.TRANSACTION_DATE) TGL_RECEIPT,
RSH.RECEIPT_NUM,
RT.TRANSACTION_ID,
AP_DATA.INVOICE_NUM,
AP_DATA.CHECK_NUMBER,
AP_DATA.CHECK_DATE
FROM RCV_TRANSACTIONS RT,
RCV_SHIPMENT_LINES RSL,
RCV_SHIPMENT_HEADERS RSH,
(SELECT AIDA.RCV_TRANSACTION_ID,
INVOICE_NUM,
PYMNT.CHECK_NUMBER,
PYMNT.CHECK_DATE
FROM AP_INVOICES_ALL AIA,
AP_INVOICE_LINES_ALL AILA,
AP_INVOICE_DISTRIBUTIONS_ALL AIDA,
(SELECT INVOICE_ID,
ACA.CHECK_NUMBER,
ACA.CHECK_DATE
FROM AP_INVOICE_PAYMENTS_ALL AIPA,
AP_CHECKS_ALL ACA
WHERE 1 = 1
AND VOID_DATE IS NULL
AND AIPA.CHECK_ID = ACA.CHECK_ID)
PYMNT
WHERE AIA.INVOICE_ID = AILA.INVOICE_ID
AND AILA.INVOICE_ID = AIDA.INVOICE_ID
AND ( AILA.CANCELLED_FLAG = 'N'
OR AILA.CANCELLED_FLAG IS NULL)
AND ( AILA.DISCARDED_FLAG = 'N'
OR AILA.DISCARDED_FLAG IS NULL)
AND AIDA.INVOICE_LINE_NUMBER =
AILA.LINE_NUMBER
AND AIDA.PO_DISTRIBUTION_ID IS NOT NULL
AND AIA.INVOICE_ID = PYMNT.INVOICE_ID(+))
AP_DATA
WHERE 1 = 1
AND RT.SHIPMENT_HEADER_ID = RSH.SHIPMENT_HEADER_ID
AND RT.SHIPMENT_LINE_ID = RSL.SHIPMENT_LINE_ID
AND RSH.SHIPMENT_HEADER_ID = RSL.SHIPMENT_HEADER_ID
AND RT.DESTINATION_TYPE_CODE = 'RECEIVING'
AND RT.TRANSACTION_TYPE = 'RECEIVE'
AND RT.TRANSACTION_ID = AP_DATA.RCV_TRANSACTION_ID(+))
RCV_DATA
WHERE MP.ORGANIZATION_CODE = 'MMF'
AND PDA.REQ_DISTRIBUTION_ID IS NULL
AND PHA.PO_HEADER_ID = PLA.PO_HEADER_ID
AND PLA.PO_LINE_ID = PDA.PO_LINE_ID
AND PHA.PO_HEADER_ID = PDA.PO_HEADER_ID
AND PLA.ITEM_ID = MSIK.INVENTORY_ITEM_ID
AND MSIK.ORGANIZATION_ID = MP.ORGANIZATION_ID
AND PDA.CODE_COMBINATION_ID = GCC.CODE_COMBINATION_ID
AND PHA.VENDOR_ID = PV.VENDOR_ID
AND PHA.PO_HEADER_ID = PLLA.PO_HEADER_ID
AND PLA.PO_LINE_ID = PLLA.PO_LINE_ID
/*AND TRUNC (PHA.CREATION_DATE) BETWEEN TO_DATE (
'01-' || :P_PERIOD,
'DD-MON-RR')
AND LAST_DAY (
TO_DATE (
'01-'
|| :P_PERIOD,
'DD-MON-RR'))*/
AND PDA.PO_DISTRIBUTION_ID = RCV_DATA.PO_DISTRIBUTION_ID(+)
AND PHA.AGENT_ID = PAPF.PERSON_ID(+)
AND TRUNC (SYSDATE) BETWEEN PAPF.EFFECTIVE_START_DATE
AND PAPF.EFFECTIVE_END_DATE) PTP_DATA
ORDER BY NO_PO,
NO_PENGAJUAN_PR,
RECEIPT_NUM,
INVOICE_NUM,
CHECK_NUMBER

You might also like