The World of Computer Software

home *** CD-ROM | disk | FTP | other *** search

/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / s / sbt25sm4.zip / ZIPSMC02.EXE / SYCINQ._XP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1993-02-11 | 15KB | 343 lines

TYPE("lc_rept") = "C" TYPE("lc_file") = "C" TYPE("lc_type") = "C" TYPE("lc_sotype") = "C" TYPE("lc_artype") = "C" TYPE("lc_recled") = "C" TYPE("lc_disprt") = "C" TYPE("mcust") = "C" PRINTz DEVICEz CONSOLEz Open Orders Open Bids Open Returns Open Orders/Bids/Returns Invoices Credit Memos Finance Charges Invoices/Credit Memos/Fin Chgs/Non-Trade Invoices/Credit Memos/Fin Charges8 Non-Trade Selecting data for a_armast lc_dbff Files needed for this inquiry are not installed. Searching for customer transactions custno1 Customer Ledger sycldg a_armast custno1 a_artran custno1 lw_rept a_armast custno1 invno a_armast a_armast// custno1 Open Receivables artype :H = [], lc_invnm = PADR(LTRIM(invno), LEN(invno), [ ]) :H = [Invoice #], invdte :H = [Inv Date], invamt :H = [Total] :P = [99999999.99], paidamt :H = [Paid] :P = [99999999.99], disamt :H = [Discount] :P = [9999999.99], balance :H = [Balance] :P = [99999999.99], dtepaid :H = [Last Pay] syqrcv a_artran custno1 invno a_artran a_artran// custno1 Current Period Detail artype :H = [], lc_invnm = PADR(LTRIM(invno), LEN(invno), [ ]) :H = [Invoice #], invdte :H = [Inv Date], item :H = [Item], qtyshp :H = [Qty Shp] :P = [999999.999], price :H = [Unit Price] :P = [9999999.99], extprice :H = [Ext Price] :P = [99999999.99] syqiv1 a_armast custno1 invno a_armast a_armast// custno1 Current Period Summary artype :H = [], lc_invnm = PADR(LTRIM(invno), LEN(invno), [ ]) :H = [Invoice #], invdte :H = [Inv Date], salesmn :H = [Sm], ponum :H = [PO Number], ornum :H = [Order #], tax :H = [Tax] :P = [99999.99], invamt :H = [Total] :P = [9999999.99] syqiv2 a_arytrn custno1 invno a_arytrn a_arytrn// custno1 History Detail artype :H = [], lc_invnm = PADR(LTRIM(invno), LEN(invno), [ ]) :H = [Invoice #], invdte :H = [Inv Date], item :H = [Item], qtyshp :H = [Qty Shp] :P = [999999.999], price :H = [Unit Price] :P = [9999999.99], extprice :H = [Ext Price] :P = [99999999.99] syqiv1 a_arymst custno1 invno a_arymst a_arymst// custno1 History Summary artype :H = [], lc_invnm = PADR(LTRIM(invno), LEN(invno), [ ]) :H = [Invoice #], invdte :H = [Inv Date], salesmn :H = [Sm], ponum :H = [PO Number], ornum :H = [Order #], tax :H = [Tax] :P = [99999.99], invamt :H = [Total] :P = [9999999.99] syqiv2 a_sotran custno1 a_sotran a_sotran// custno1 Detail lc_sotyp = IIF(sotype = [O], [ ], sotype) :H = [], lc_sonum = PADR(LTRIM(sono), LEN(sono), [ ]) :H = [SO #], ordate :H = [SO Date], item :H = [Item], qtyord :H = [Qty Ord] :P = [99999.999], price :H = [Unit Pr] :P = [9999999.99], disc :H = [Disc] :P = [9999.99], extprice :H = [Ext Price] :P = [9999999.99] syqor1 a_somast custno1 a_somast a_somast// custno1 Summary lc_sotyp = IIF(sotype = [O], [ ], sotype) :H = [], lc_sonum = PADR(LTRIM(sono), LEN(sono), [ ]) :H = [SO #], sodate :H = [SO Date], ordate :H = [Ord Date], salesmn :H = [Sm], lc_ponum = LEFT(ponum, 18) :H = [PO Number], ordamt :H = [$ Open] :P = [99999999.99], shpamt :H = [$ Shipped] :P = [999999999.99] syqor2 a_arcash custno1 invno a_arcash a_arcash// custno1 Current Period Cash Receipts lc_invnm = PADR(LTRIM(invno), LEN(invno), [ ]) :H = [Invoice #], invdte :H = [Inv Date], refno :H = [Ref No.], dtepaid :H = [Date Paid], lc_ponum = LEFT(ponum, 18) :H = [PO Number], disamt :H = [Disc] :P = [99999.99], paidamt :H = [Amt Paid] :P = [9999999.99] syqcsh a_arycsh custno1 invno a_arycsh a_arycsh// custno1 History Cash Receipts lc_invnm = PADR(LTRIM(invno), LEN(invno), [ ]) :H = [Invoice #], invdte :H = [Inv Date], refno :H = [Ref No.], dtepaid :H = [Date Paid], lc_ponum = LEFT(ponum, 18) :H = [PO Number], disamt :H = [Disc] :P = [99999.99], paidamt :H = [Amt Paid] :P = [9999999.99] syqcsh docno a_icytrn// applid2 a_ictran// applid2 a_ictran a_icytrn8 a_somast// custno1 .NOT. EOF(" COPY TO (gc_idrvtmp + lc_tmpf1 + gc_extdbf) FIELDS &lc_detals.orgno, &lc_detals.docno, &lc_detals.item, &lc_detals.tdate, &lc_detals.tstat, &lc_detals.tqty, &lc_detals.price, &lc_detals.disc, &lc_detals.sqty FOR &lc_filt. WHILE custno = mcust a_soymst// custno1 a_icytrn, Current Period SO Shipments History SO Shipments8 lc_docno = PADR(LTRIM(docno), LEN(docno), [ ]) :H = [SO #], tdate :H = [Shp Date], item :H = [Item], ln_qty = -sqty :H = [Qty Shp] :P = [999999.999], price :H = [Unit Price] :P = [9999999.99], disc :H = [Disc] :P = [999.99], ln_extpr = g_extnd(2, -sqty, price, disc) :H = [Ext Price] :P = [99999999.99] syqshp custno1 custno = mcust .AND. No records found for this Customer. as of ENTER KEYBOARD(CHR(gk_esc)) PLAIN DO l_srhnum <Enter> to exit, <F7> to locate BROWSE FIELDS &lc_brofld1.&lc_brofld2. KEY mcust NOAPPEND NODELETE NOEDIT TITLE lc_title IN WINDOW lw_custinq ENTER Customer Number / Name ====> F Select destination for report a_somast a_soymst a_ictran a_icytrn SET FILTER TO &lc_sfilt. a_tmpfl1 a_tmpfl2 ON KEY LABEL F7 &lc_savef7 Select option from customer menu LC_REPT MLC_FILE LC_TYPE LC_SOTYPE LC_ARTYPE LC_RECLED LC_DISPRT LL_CONT GN_TRACE E_TRACE EGL_ASSERT E_ASSRT TLC_XARTYPELC_XSOTYPELC_PRINT LC_DEV FLC_CONS SLC_SAVEF7 LL_OPNHERELL_OPNMASTLL_OPNITRNLL_OPNYTRNLL_OPNYMSTLC_ALIAS LC_XIORDR LC_SORDER LC_SFILT LC_SEED LC_TMPF1 LC_TMPF2 LL_CURR LC_TITLE LW_CUSTINQLC_TRNTYPEGL_SBTMOD G_DSPST PEMCUST GN_MSGLINELC_DBF GF_ARMASTFG_DSPALT EG_OPNFL RECUSTNO1 MSCOPE A_ARCUST CUSTNO MCOMPANY COMPANY LW_REPT LN_MAXLINELL_PRNT NEC_SELPR NEGC_IDRVPRGA_ARMAST A_ARTRAN PLC_ORDER LC_KEYFLD BALANCE FARSTAT LC_BROFLD1LC_FRMFILEGF_ARTRANFARTYPE CURRENT PEA_ARYTRN EGF_ARYTRNFA_ARYMST EGF_ARYMSTFA_SOTRAN EGF_SOTRANFQTYORD SOTYPE TATSOSTAT YPEA_SOMAST EGF_SOMASTFA_ARCASH EGF_ARCASHFA_ARYCSH EGF_ARYCSHFLC_FILT GF_ICYTRNFGF_ICTRANFLC_DETALS ASTFA_ICYTRN GF_SOYMSTFGC_IDRVTMPGC_EXTDBF ORGNO DOCNO TDATE TSTAT SPRICE FDISC SSQTY A_SOYMST LA_TMPFL1 A_TMPFL2 CUSTDOC TYGC_EXTCDX LC_COND RGLN_STRHLF LC_BROFLD2GC_SDATE8 LL_HOTKEY GL_HOTKEY ENTER OPNICSTLC_HEAD1 QLC_HEAD2 PLC_HEAD3 NG_PRNRP STA_ICTRAN NGC_EXTDBT orgno custno8 lc_key = SPACE(LEN(&lc_keyfld)) Invoice Sales Order Document Enter Number (or portion) to Locate FOR ln_sekcnt = 0 TO LEN(&lc_keyfld) No record or close match found for Customer. LN_RECNO MLC_MSTKEY LC_PICT LN_SEKCNT LC_REPT LW_SRHNUM LC_FLDNAMELN_COL AMELC_KEY MCUST G_DSPALT LW_CUSTINQL_SRHNUM C:\SMDISK\ C:\SMDISK\SYCINQ.PRG SYCINQ.FXP