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 / SYVINQ._XP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1993-02-11 | 11KB | 275 lines

PRINTz DEVICEz CONSOLEz Purchase Orders Open Orders Open Bids Open Returns Orders/Bids/Returns as of Selecting data for a_apmast invno invno a_apmast a_apmast// invno Adjustments invno :H = [Invo No.], purdate :H = [Pur Date], duedate :H = [Due Date], ppriority :H = [Priority], adjamt :H = [Adj Amt] :P = [9,999,999.99], cvendno :H = [Credit Card Vendor Number] syqadj a_apmast invno invno a_apmast a_apmast// invno Open Payables invno :H = [Invo No.], purdate :H = [Pur Date], duedate :H = [Due Date], ppriority :H = [Priority], ln_puramt = IIF(ppriority = [P], -(paidamt + adjamt + disamt), puramt) :H = [Pur Amt ] :P = [99999999.99], ln_payamt = IIF(ppriority = [P], -(puramt), paidamt + adjamt + disamt) :H = [Paid Amt ] :P = [99999999.99], ln_opnamt = puramt - disamt - adjamt - paidamt :H = [$ Open ] :P = [99999999.99] syqinv a_apchck a_apchck// a_apchck checkno Current PeriodF Voided Active 8 Checks a_apychk a_apychk// a_apychk checkno HistoryF Voided Active 8 Checks checkno CMNS lc_chkno = PADL(LTRIM(checkno), LEN(checkno), [ ]) :H = [Check No.], checkdate :H = [Check Date], invno :H = [Inv No.], chkacc :H = [Check Acct], aprpay :H = [Payment] :P = [99999999.99], lc_field = IIF(ppriority = [D],[Disc], IIF(ppriority=[A],[Adj], IIF(ppriority=[M],[Manl Ck],[Reg Ck]))) :H = [Type] syqchk a_potran purno1 purno a_potran a_potran// Detail potype :H = [], lc_ponumb = PADR(LTRIM(purno), LEN(purno), [ ]) :H = [PO No.], item :H = [Item], vpartno :H = [Vendor Part No.], qtyord :H = [Qty Ord] :P = [999999.999], qtyrec :H = [Qty Rec] :P = [999999.999], ln_opnamt = ROUND(ROUND(cost - (cost * (disc/100)), gn_deccst) * (qtyord - qtyrec) * ((100 + taxrate)/100), gn_deccst) :H = [$ Open ] :P = [9999999.99] syqdor a_pomast purno purno a_pomast a_pomast// Summary potype :H = [], lc_ponumb = PADR(LTRIM(purno), LEN(purno), [ ]) :H = [PO No.], purdate :H = [PO Date], buyer :H = [Buyer], remarks :H = [Remarks], recamt :H = [$ Received] :P = [999999999.999], lc_opnamt = puramt - recamt :H = [$ Open] :P = [999999999.999] syqsor a_icytrn// applid2 docno current = [X] .AND. a_ictran// applid2 a_ictran a_icytrn8 a_pomast// vendno1 .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.tcost, &lc_detals.sqty FOR &lc_filt. WHILE vendno = mvend a_poymst// vendno1 a_icytrn, Current Period PO Receipts History PO Receipts8 lc_docno = PADL(LTRIM(docno), LEN(docno), [ ]) :H = [PO No.], item :H = [Item], tdate :H = [Date Rcv], lc_invced = IIF(tstat = [P], [Yes ], [ No ]) :H = [Inv? ], sqty :H = [Qty Rec] :P = [999999.999], tcost :H = [Unit Cost] :P = [9999999.999], ln_extcst = sqty * tcost :H = [Ext Cost] :P = [9999999.999] syqrec vendno1 vendno = mvend .AND. No records found for this Vendor. as of ENTER KEYBOARD(CHR(gk_esc)) PLAIN DO l_srhnum <Enter> to exit, <F7> to locate BROWSE FIELDS &lc_brofld1.&lc_brofld2. KEY mvend NOEDIT TITLE lc_title IN WINDOW lw_vndinq ENTER Vendor Number / Name ====> F Select destination for report a_pomast a_poymst a_ictran a_icytrn SET FILTER TO &lc_sfilt. a_tmpfl1 a_tmpfl2 ON KEY LABEL F7 &lc_savef7 Select option from vendor menu LC_REPT LC_DISPRT LC_FILE LC_TYPE LC_TRNTYPEGN_TRACE E_TRACE LC_ANS LC_TITLE LC_KEYFLD LC_POTYPE LL_CURR LC_ALIAS LC_ORDER LN_RECNO LN_PAGE LN_MAXLINELC_BROFLD1LC_BROFLD2LL_FIRST LL_LAST LL_OPNMASTLL_OPNTRANLL_OPNYTRNLC_TMPF1 LC_TMPF2 LC_SAVEF7 LC_SEED LL_OPNYMSTLL_OPNHERELC_PRINT LC_DEV LC_CONS LL_OPNITRNLC_XIORDR LC_SORDER LC_SFILT PLW_VNDINQ GC_SDATE8 G_DSPST MVEND GN_MSGLINEA_APMAST EG_OPNFL REGF_APMASTFINVNO ADJAMT APSTAT LC_FRMFILEGC_IDRVPRGPURAMT FPAIDAMT DISAMT A_APCHCK EGF_APCHCKFA_APYCHK EGF_APYCHKFCKTYPE CKSTAT FA_POTRAN EGF_POTRANFPOSTAT QTYORD QTYREC GPOTYPE A_POMAST EGF_POMASTFRECAMT GF_ICYTRNFLC_FILT GF_ICTRANFLC_DETALS PURNO ASTFA_ICYTRN GF_POYMSTFGC_IDRVTMPGC_EXTDBF ORGNO DOCNO TDATE ETSTAT GTQTY TCOST GSQTY VENDNO A_POYMST A_TMPFL1 GC_EXTNDX VENDNO1 RGLL_CONT LC_COND G_DSPALT ELN_STRHLF LL_HOTKEY GL_HOTKEY ENTER HLPEDT LL_PRNT LC_HEAD1 A_APVEND COMPANY LC_HEAD2 LC_HEAD3 C_SELPR G_PRNRP UPA_ICTRAN NA_TMPFL2 GC_EXTDBT orgno vendno8 lc_key = SPACE(LEN(&lc_keyfld)) Invoice Check Purchase Order Document Enter Number (or portion) to Locate FOR ln_sekcnt = 0 TO LEN(&lc_keyfld) No record or close match found for Vendor. LN_RECNO LC_MSTKEY LC_PICT LN_SEKCNT LC_REPT LW_SRHNUM LC_FLDNAMELN_COL AMELC_KEY MVEND G_DSPALT LW_VNDINQ L_SRHNUM C:\SMDISK\ C:\SMDISK\SYVINQ.PRG SYVINQ.FXP