• Setup | Form Template, double klik rancangan Purchase Invoice yang dimaksud, lalu klik Desain As FRF.
  • Ke Page 2, klik sekali di IBX ke 2 dari kanan, kemudian tekan F11 di keyboard, ditampilan Object Inspector double klik SQL.
  • Edit SQL dari IBX ke-2 dari kanan (qryAPItmDet: TfrIBXQuery) :
  • Sebelum baris “From TEMPLATE_APITMDET(:APInvoiceID) a” tambahkan : “g.ACCOUNTNAME“
  • Sesudah baris “From TEMPLATE_APITMDET(:APInvoiceID) a” tambahkan :

Left outer join ITEM i on i.ITEMNO=a.ITEMNO
Left outer join GLACCNT g on g.GLACCOUNT=i.INVENTORYGLACCNT

  • Sehingga semuanya menjadi :

Select a.APINVOICEID, a.SEQ, a.BILLID,
a.INVOICENO PINO,
a.ITEMNO, a.ITEMOVDESC, a.QUANTITY,
a.ITEMDISCPC, a.BRUTOUNITPRICE, a.UNITPRICE,
a.ITEMHISTID, a.ITEMCOST, a.ITEMCOSTBASE,
a.ITEMUNIT, a.UNITRATIO,
a.ITEMTYPE, a.UNIT1, a.UNIT2, a.UNIT3, a.RATIO2, a.RATIO3, a.NOTES,
a.INVENTORYGLACCNT, a.COGSGLACCNT, a.SALESGLACCNT, a.UNBILLEDACCOUNT,
a.TAXCODES, a.TAXABLEAMOUNT1, a.TAXABLEAMOUNT2,
a.ITEMRESERVED1, a.ITEMRESERVED2, a.ITEMRESERVED3, a.ITEMRESERVED4,
a.ITEMRESERVED5, a.ITEMRESERVED6, a.ITEMRESERVED7, a.ITEMRESERVED8,
a.ITEMRESERVED9, a.ITEMRESERVED10,
a.POID, a.POSEQ, a.PONO,
a.DEPTID, a.DEPTNO, a.DEPTNAME,
a.PROJECTID, a.PROJECTNO, a.PROJECTNAME,
a.WAREHOUSEID, a.NAME WPIName, a.ReqNo RequestNo, a.SNLine, a.SNExpDate,
a.QTYCONTROL, g.ACCOUNTNAME
From TEMPLATE_APITMDET(:APInvoiceID) a
Left outer join ITEM i on i.ITEMNO=a.ITEMNO
Left outer join GLACCNT g on g.GLACCOUNT=i.INVENTORYGLACCNT
Where 1=1
Order by A.APInvoiceID, a.SEQ

  • File | Data Dictionary, buat New Variable pada folder “Invoice Item” dengan nama “INVACCNT”yang value-nya kita isi dengan cara memilih tulisan “ACCOUNTNAME” dari “DialogForm.qryAPItmDet”.
  • Munculkan variable [INVACCNT] di memo yang dinginkan.

Notes : Cara diatas bisa digunakan untuk memunculkan Expense Account untuk item Non Inventory Part.