4╛    Form ▄x|,             Form ▄x|,В PageHeader1 NЯ0   Begin  if [Page#]=1 then begin  TotalItem := 0;  TotalQuantity := 0;  end; end  ╚ TfrRoundRectView% RoundRect3TT\XЇ   .  @Tahoma   ААА TfrRoundRectView╟ RoundRect2╤3zЇ   .  @Arial    ААА XMEMO03L╥4Ж   .[Invoice Number]  @Tahoma   чMEMO04LX4Ж   .[Invoice Date]  @Tahoma   qMEMO06L╥RЖ   . [Form No]  @Tahoma   °MEMO10LXRЖ   .[Term]  @Tahoma   СMEMO11L╥pЖ   .#,##0.##[Invoice Amount]  @Tahoma   MEMO12LXpЖ   .[FOB]  @Tahoma   вMEMO13L╥ОЖ   . [Ship Via]  @Tahoma   .MEMO14LXОЖ   . [Ship Date]  @Tahoma    TfrRoundRectView╤ RoundRect1А0<Ї   .  @Tahoma   ААА XMEMO01CV(   .Vendor  @Tahoma   цMEMO01LVUX   . [Vendor Name]  @Tahoma   │ MEMO02LVdXG   . [Address 1] [Address 2] [City] [Zip Code] [State/Province] [Country]  @Tahoma   B MEMO40LВ-   .[Company Name]  @Tahoma   ∙ MEMO41LВ$-*   .[Company Addr 1] [Company Addr 2] [Company Addr 3]  @Tahoma   y Memo8BV   .:  @Tahoma    MEMO03C╙4F   . Invoice No.  @Tahoma   Т MEMO04CZ4F   . Invoice Date  @Tahoma    MEMO06C╙SF   .Form No.  @Tahoma   б MEMO10CZRF   .Terms  @Tahoma   0MEMO11C╙qF   .#,##0.##Amount  @Tahoma   ┤MEMO12CZpF   .FOB  @Tahoma   =MEMO13C╙ПF   .Ship Via  @Tahoma   ╟MEMO14CZОF   . Ship Date  @Tahoma   WMEMO00C╘   .Faktur Pembelian  @Arial    жLine1А$0   .  @їLine2Td\   .  @DLine3╥p    .  @УLine4╥О    .  @тLine5╥R    .  @1Line6X4z   .  @Ю MasterHeader1│ Np     ╚#MEMO20C│{   .Item  @tahoma    пMEMO21CС│╬   . Description  @tahoma    5MEMO27C_│W   .HSCODE  @Arial    ╣MEMO22C╢│B   .Qty  @tahoma    DMEMO23C°│^   . Unit Price  @tahoma    ╦MEMO26CV│И   .Amount  @tahoma    M MasterData1╠ N1   DialogForm._qryAPItmDet  ╚╪MEMO20L╠{   . [Item No]  tahoma   lMEMO21LС╠╬   . [Item Description]  tahoma   ўMEMO27L_╠W   . [Reserved1]  Arial    MEMO22L╢╠B   .#,##0.## [Quantity]Begin  If ItemType <> 3 then begin  TotalItem := TotalItem + 1; . TotalQuantity := TotalQuantity + Quantity;  end end  tahoma   зMEMO23L°╠^   .#,##0.## [Unit Price]  tahoma   8MEMO26LV╠И   .#,##0.##[Amount]  tahoma   ▐ MasterFooter1ш N0   begin ) SubTot := [SUM([Amount], MasterData1)]; end  ╚-Line7щ╚   .  @УChild1Ў N0     ╚MemoC11Ў{   .  tahoma   СMemoC12СЎ╬   .  tahoma   MemoC13_ЎW   .  Arial    ЦMemoC14╢ЎB   .#,##0.##  tahoma   MemoC15°Ў^   .#,##0.##  tahoma   дMemoC16VЎИ   .#,##0.##  tahoma    MasterHeader2∙ Np     ╚ЭMEMO61C∙Ы   . Account No.  @Tahoma    * MEMO62C▒∙Ы   . Account Name  @Tahoma    ▒ MEMO63CL∙Ы   .Amount  @Tahoma    7!MEMO64Cч∙ў   .Notes  @Tahoma   ї" MasterData2 N1   DialogForm._qryPIExpenseDetbegin  if FINALPASS then begin + if ([PAGE#] <> [TOTALPAGES]) then begin . if ([LINE#] = BARIS[[PAGE#]]) then begin & while (FREESPACE > 0) do begin  SHOWBAND(Child2); end; end;  end;  end else begin  BARIS[[PAGE#]] := [LINE#];  end; end;  ╚В#MEMO61LЫ   . [Account No]  Tahoma   $MEMO62L▒Ы   .[Account Name]  Tahoma   г$MEMO63LLЫ   .#,##0.## [Amount2]  Tahoma   +%MEMO64Lчў   .[Notes]  Tahoma   & MasterFooter2+ N0   begin + SubTot2 := [SUM([Amount2], MasterData2)]; * while FreeSpace > 0 do ShowBand(Child2); end╚f&Child2: N0     ╚х&MemoC17:Ы   .  Tahoma   d'MemoC18▒:Ы   .  Tahoma   ы'MemoC19L:Ы   .#,##0.##  Tahoma   j(MemoC20ч:ў   .  Tahoma   *) PageFooter1E Nе0   Begin E if [Page#] = TOTALPAGES then visible := true else visible := false; end  ╚ TfrRoundRectView╠) RoundRect8∙Чф   .  @Arial    ААА TfrRoundRectViewn* RoundRect7∙pф$   .  @Arial    ААА ■*MEMO36C√Ыd   .#,##0.##Total :  @Tahoma    Ч+MEMO36L_Ы|   .#,##0.##[Invoice Amount]  @Tahoma     TfrRoundRectView9, RoundRect6∙Iф$   .  @Arial    ААА TfrRoundRectView█, RoundRect5`nР4   .  @Arial    ААА TfrRoundRectView}- RoundRect4`LТ   .  @Arial    ААА ¤-Memo3PM    .:  @Tahoma   M.LINE06E╚   .  @с.MEMO30C№Jd   .#,##0.## Sub Total :  @Tahoma    u/MEMO30L`J|   .#,##0.## [Sub Total]  @Tahoma    0MEMO31C№[d   .#,##0.## Discount :  @Tahoma       в0MEMO31L`[|   .#,##0.##[[Discount]*(-1)]  @Tahoma    91MEMO32C№qd   .#,##0.##[Tax 1 Name] :  @Tahoma    ╨1MEMO32L`q|   .#,##0.##[Tax 1 Amount]  @Tahoma    g2MEMO33C№Вd   .#,##0.##[Tax 2 Name] :  @Tahoma    ■2MEMO33L`В|   .#,##0.##[Tax 2 Amount]  @Tahoma    Г3MEMO314CM6   .Say  @Tahoma    4MEMO314LgNД   .[Say]  @Tahoma   Ч4MEMO315Ca   . Description  @Tahoma      25MEMO315LgtИ+   .[Invoice Description]    @Tahoma   ┌5MEMO316LиPA   . Prepared By __________ Date:  @Tahoma   В6MEMO317LxиPA   . Reviewed By __________ Date:  @Tahoma   *7MEMO318L╓иPA   . Approved By __________ Date:  @Tahoma   ┤7Memo2№Zd   . Bea Masuk :  @Tahoma    >8Memo1rH   . CEPT/FORM :  @Tahoma    TfrIBXQuery╚8 qryCompany @ .  Select * from COMPANY TfrIBXQuery┤=qryAPInv( @ .   Select p.*, v2.Name ShipVendor, Hv.Name, v.AddressLine1, v.AddressLine2, v.City, v.StateProv, v.PersonNo, Ev.ZipCode, v.Country, v.Contact, v.Phone, v.Fax, v.email, v.Webpage, Ot.TermName, t.TermMemo, cu.CurrencyName, s.Name ShipName, w.Name WarehouseName, )x1.TaxName TaxName1, x2.TaxName TaxName2, <v.CHRRESERVED1,v.CHRRESERVED2,v.CHRRESERVED3,v.CHRRESERVED4, <v.CHRRESERVED5,v.CHRRESERVED6,v.CHRRESERVED7,v.CHRRESERVED8, ?v.CHRRESERVED9,v.CHRRESERVED10,v.CURRRESERVED1,v.CURRRESERVED2, ;v.CURRRESERVED3,v.DATERESERVED1,v.DATERESERVED2, sn.SNList From APInv p , Inner Join PersonData v ON v.ID=p.VendorID 4 Inner Join WareHS w ON w.WarehouseID=p.WarehouseID ; Left Outer join Currency cu On cu.CurrencyID=v.CurrencyID 2 Left Outer join TermOPmt t On t.TermID=p.TermsID 2 Left Outer Join Shipment s ON s.ShipID=p.ShipVia 1 Left Outer Join Tax x1 ON x1.TaxCode=p.Tax1Code 1 Left Outer Join Tax x2 ON x2.TaxCode=p.Tax2Code 5 Left Outer Join PersonData v2 ON v2.ID=p.ShipVendID S Left Outer Join View_SN_ByTrans(p.APInvoiceID, 'APINV') sn ON sn.ID=p.APInvoiceID Where p.APInvoiceID=:APInvoiceID [APInvoiceID] TfrIBXQueryМA qryAPItmDetF @ .  &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, Ca.ITEMTYPE, a.UNIT1, a.UNIT2, a.UNIT3, a.RATIO2, a.RATIO3, a.NOTES, Ea.INVENTORYGLACCNT, a.COGSGLACCNT, a.SALESGLACCNT, a.UNBILLEDACCOUNT, /a.TAXCODES, a.TAXABLEAMOUNT1, a.TAXABLEAMOUNT2, Ca.ITEMRESERVED1, a.ITEMRESERVED2, a.ITEMRESERVED3, a.ITEMRESERVED4, Ca.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, Ga.WAREHOUSEID, a.NAME WPIName, a.ReqNo RequestNo, a.SNLine, a.SNExpDate &From TEMPLATE_APITMDET(:APInvoiceID) a Where 1=1 Order by A.APInvoiceID, a.SEQ [APInvoiceID] TfrIBXQuery2CqryPIExpenseDetd @ .  /Select a.*, g.AccountName,D.DEPTNO, R.PROJECTNO from APInvDet a 1 INNER Join GLAccnt g On g.GLAccount=a.GLAccount 3 left outer join Department D on D.DeptID=a.DeptID 6 left outer join Project R on R.ProjectID=a.ProjectID WHERE a.APInvoiceID=:APInvoiceID ORDER BY a.Seq [APInvoiceID]■■ Щ CompanyCompany Addr 1$DialogForm.qryCompany."ADDRESSLINE1"Company Addr 2$DialogForm.qryCompany."ADDRESSLINE2"Company Addr 3$DialogForm.qryCompany."ADDRESSLINE3"Company Addr 4$DialogForm.qryCompany."ADDRESSLINE4"Company Addr 5$DialogForm.qryCompany."ADDRESSLINE5" Company Name#DialogForm.qryCompany."COMPANYNAME" Company MemoDialogForm.qryCompany."MEMO"NPWPGetToken([Company Memo], 2)NoPKPGetToken([Company Memo], 3)TglPKPDialogForm.qryCompany."TAXDATE" KodeFakturGetToken([Company Memo], 1)CompanyReserved1!DialogForm.qryCompany."RESERVED1"TaxationNumber&DialogForm.qryCompany."TAXATIONNUMBER"Tax Company Addr 1'DialogForm.qryCompany."TAXADDRESSLINE1"Tax Company Addr 2'DialogForm.qryCompany."TAXADDRESSLINE2"Tax Company Addr 3'DialogForm.qryCompany."TAXADDRESSLINE3"Tax Company Name&DialogForm.qryCompany."TAXCOMPANYNAME" Misc MaxInvDet5 CurrFormat#,##0.## InvoiceInvoice NumberDialogForm.qryAPInv."InvoiceNo" Invoice Date!DialogForm.qryAPInv."InvoiceDate" Ship to 1DialogForm.qryAPInv."Shipto1" Ship to 2DialogForm.qryAPInv."Shipto2" Ship to 3DialogForm.qryAPInv."Shipto3" Ship to 4DialogForm.qryAPInv."Shipto4" Ship to 5DialogForm.qryAPInv."Shipto5" Warehouse#DialogForm.qryAPInv."WarehouseName" Fiscal Rate DialogForm.qryAPInv."FiscalRate"SubTot0SubTot20 Sub Total[[SubTot]+[SubTot2]] Ship DateJ[if(DialogForm.qryAPInv."ShipDate"=0, '', DialogForm.qryAPInv."ShipDate")] InvTax NoG[DialogForm.qryAPInv."InvTaxNo1"]+' '+[DialogForm.qryAPInv."InvTaxNo2"]Tax DateH[if(DialogForm.qryAPInv."TaxDate"=0, '', DialogForm.qryAPInv."TaxDate")]Apply to items6[if(DialogForm.qryAPInv."FreightToCost"=1,'Yes','No')]Charge to vendor8[if(DialogForm.qryAPInv."FreightToVendor"=1,'Yes','No')]Freight Account"DialogForm.qryAPInv."FreightAccnt" Paid FromDialogForm.qryAPInv."PaidFrom"Total Item AmountSubTot Total ExpenseSubTot2Ship Via Vendor DialogForm.qryAPInv."ShipVendor"Ship ViaDialogForm.qryAPInv."ShipName"FOBDialogForm.qryAPInv."FOB"TermDialogForm.qryAPInv."TermName" TermsDescDialogForm.qryAPInv."TermMemo" Inclusive Tax5[if(DialogForm.qryAPInv."InclusiveTax"=1,'Yes','No')]Invoice Taxable9[if(DialogForm.qryAPInv."InvoiceIsTaxable"=1,'Yes','No')]Discount"DialogForm.qryAPInv."CashDiscount"Invoice Amount#DialogForm.qryAPInv."InvoiceAmount" Down PaymentDialogForm.qryAPInv."Payment" Tax 1 NameDialogForm.qryAPInv."TaxName1" Tax 2 NameDialogForm.qryAPInv."TaxName2" Tax 1 Amount2[IF([Fiscal Rate] = 1,[RoundedTax1Amt],[Tax1Amt])]RoundedTax1Amt'DialogForm.qryAPInv."RoundedTax1Amount"Tax1Amt DialogForm.qryAPInv."Tax1Amount" Tax 2 Amount2[IF([Fiscal Rate] = 1,[RoundedTax2Amt],[Tax2Amt])]RoundedTax2Amt'DialogForm.qryAPInv."RoundedTax2Amount"Tax2Amt DialogForm.qryAPInv."Tax2Amount" Disc Inv %P[if(DialogForm.qryAPInv."CashDiscPC"='', '0', DialogForm.qryAPInv."CashDiscPC")]Sub Tot After Disc[[Sub Total] - [Discount]]Sub Tot After Taxt[if(DialogForm.qryAPInv."InclusiveTax"=1, [Sub Tot After Disc], [Sub Tot After Disc]+[Tax 1 Amount]+[Tax 2 Amount])]Balance[Invoice Amount]-[Down Payment] TotalItem0 TotalQuantity0Form No DialogForm.qryAPInv."SequenceNo" Cheque NoDialogForm.qryAPInv."ChequeNo" Cheque DateN[if(DialogForm.qryAPInv."ChequeDate"=0, '', DialogForm.qryAPInv."ChequeDate")]Invoice Description!DialogForm.qryAPInv."Description" APInvoiceID-1Currency"DialogForm.qryAPInv."CurrencyName"RateDialogForm.qryAPInv."Rate"SaySayIt( [Invoice Amount] )Serial NumbersDialogForm.qryAPInv."SNList" Invoice ItemDatasetDialogForm._qryAPItmDetItem NoDialogForm.qryAPItmDet."ItemNo"Item Description#DialogForm.qryAPItmDet."ItemOvDesc" Unit Price'DialogForm.qryAPItmDet."BrutoUnitPrice" Item DiscountV[if(DialogForm.qryAPItmDet."ItemDiscPC"='', '0', DialogForm.qryAPItmDet."ItemDiscPC")]ItemType!DialogForm.qryAPItmDet."ItemType"Unit!DialogForm.qryAPItmDet."ItemUnit"Quantity!DialogForm.qryAPItmDet."Quantity" Tax Codes!DialogForm.qryAPItmDet."TaxCodes"Amount [[Gross Itm Amt]-[Disc Itm Amt]]Ratio 2DialogForm.qryAPItmDet."Ratio2"Ratio 3DialogForm.qryAPItmDet."Ratio3" Default UnitDialogForm.qryAPItmDet."Unit1"Unit 2DialogForm.qryAPItmDet."Unit2"Unit 3DialogForm.qryAPItmDet."Unit3" Gross Itm Amt)[([Quantity]*[Unit Price]) * 10000/10000] Disc Itm AmtM[([CalcPercent([Item Discount],[Unit Price], 8)] * [Quantity]) * 10000/10000] Default Qtye[if([Unit]=[Unit 2], [Quantity]*[Ratio 2], [if([Unit]=[Unit 3], [Quantity]*[Ratio 3], [Quantity])] )] Item NotesDialogForm.qryAPItmDet."Notes" DepartmentDialogForm.qryAPItmDet."DEPTNO"DeptName!DialogForm.qryAPItmDet."DeptName"Project"DialogForm.qryAPItmDet."PROJECTNO" ProjectName$DialogForm.qryAPItmDet."ProjectName"WPIName DialogForm.qryAPItmDet."WPIName" Reserved1&DialogForm.qryAPItmDet."ItemReserved1" Reserved2&DialogForm.qryAPItmDet."ItemReserved2" Reserved3&DialogForm.qryAPItmDet."ItemReserved3" Reserved4&DialogForm.qryAPItmDet."ItemReserved4" Reserved5&DialogForm.qryAPItmDet."ItemReserved5" Reserved6&DialogForm.qryAPItmDet."ItemReserved6" Reserved7&DialogForm.qryAPItmDet."ItemReserved7" Reserved8&DialogForm.qryAPItmDet."ItemReserved8" Reserved9&DialogForm.qryAPItmDet."ItemReserved9" Reserved10'DialogForm.qryAPItmDet."ItemReserved10"PO NoDialogForm.qryAPItmDet."PONO" Request No"DialogForm.qryAPItmDet."RequestNo"RI NoDialogForm.qryAPItmDet."RINO"No[LINE#]SN Expired date"DialogForm.qryAPItmDet."SNExpDate" ExpenseDataset1DialogForm._qryPIExpenseDet Account No&DialogForm.qryPIExpenseDet."GLAccount" Account Name(DialogForm.qryPIExpenseDet."AccountName"Amount2%DialogForm.qryPIExpenseDet."GLAmount" Account Dept#DialogForm.qryPIExpenseDet."DeptNo"Account Project&DialogForm.qryPIExpenseDet."ProjectNo"Notes(DialogForm.qryPIExpenseDet."Description" Vendor Vendor NameDialogForm.qryAPInv."Name" Address 1"DialogForm.qryAPInv."AddressLine1" Address 2"DialogForm.qryAPInv."AddressLine2"CityDialogForm.qryAPInv."City"Zip CodeDialogForm.qryAPInv."ZipCode"CountryDialogForm.qryAPInv."Country"State/ProvinceDialogForm.qryAPInv."StateProv" Vendor NumberDialogForm.qryAPInv."PersonNo"PhoneDialogForm.qryAPInv."Phone"Contact PersonDialogForm.qryAPInv."Contact"FaxDialogForm.qryAPInv."Fax"EmailDialogForm.qryAPInv."Email"WebDialogForm.qryAPInv."WebPage"Char Reserved1"DialogForm.qryAPInv."CHRRESERVED1"Char Reserved2"DialogForm.qryAPInv."CHRRESERVED2"Char Reserved3"DialogForm.qryAPInv."CHRRESERVED3"Char Reserved4"DialogForm.qryAPInv."CHRRESERVED4"Char Reserved5"DialogForm.qryAPInv."CHRRESERVED5"Char Reserved6"DialogForm.qryAPInv."CHRRESERVED6"Char Reserved7"DialogForm.qryAPInv."CHRRESERVED7"Char Reserved8"DialogForm.qryAPInv."CHRRESERVED8"Char Reserved9"DialogForm.qryAPInv."CHRRESERVED9"Char Reserved10#DialogForm.qryAPInv."CHRRESERVED10"Numeric Reserved1#DialogForm.qryAPInv."CURRRESERVED1"Numeric Reserved2#DialogForm.qryAPInv."CURRRESERVED2"Numeric Reserved3#DialogForm.qryAPInv."CURRRESERVED3"Date Reserved1#DialogForm.qryAPInv."DATERESERVED1"Date Reserved2#DialogForm.qryAPInv."DATERESERVED2"Company qryCompanyMasterqryAPInvDetail qryAPItmDet OtherDetailqryPIExpenseDet№ACCURATE Accounting SoftwareX_┘глRЖу@=├╒╞ўау@