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

Wrap

MS Visual FoxPro App | 1993-02-11 | 37KB | 991 lines

TYPE("lc_task") = "C" - - Vendor Record Display/Vendor Inquiry a_glacnt a_glacnt// glacnt Vendor Record Display/Vendor Inquiry w_vndsurf Vendor Deleted Vendor Credit Limit Exceeded Vendor is on Payment Hold Vendor is on Purchase Hold a_apvend// vendno Vendor Record Display/Vendor Inquiry ADD VENDOR Vendor Record Display Vendor deleted, unable to continue. Is this the correct Vendor? CONFIRM VENDOR INQUIRY V_VEND Select option from vendor menu VENDOR FILE MAINTENANCE a_apvend' ACTIVATE MENU m_vend PAD &lc_lpad V_QUIT lw_viewer ADD VENDOR a_apvendR ADD VENDOR LC_TASK LL_MOVEOK GN_TRACE E_TRACE GL_ASSERT E_ASSRT LN_OPNAMSTLN_OPNVND LN_OPNVHSTLN_OPNACNTLN_OPNPMSTLC_RESP LL_EDIT LN_BAR LL_NOVEND LN_NOTECOLLN_INQCOL LC_XVEND LC_HELPID LL_INQ EMCHKACC STMDCHKACC ALN_XREC LC_DISPRT LC_FILE LC_TYPE LC_POTYPE LL_XDEL GLL_CONT MVEND MCOMPANY MCONTACT MTITLE MADDRESS1 MADDRESS2 MCITY MSTATE SERMZIP MCOUNTRY MPHONE MFAXNO MCODE MTAXPID NTMPXTERMS MPTERMS ERMDEFACCT ELC_DEFACCTMPDISC SERMPDAYS ATEMPNET EPI8MLIMIT RNTMTAX MBALANCE RMLPAYAMT MPTDPUR TEMYTDPUR MYTDPAY ERMYTDDIS MYTDADJ TEMYTD1099 MOPENPO DMDEBIT A_APVEND PVENDNO YPLC_PAYACCTMTYP1099 TMOLD1099 EMLPAYDATE MLRECDATE MCTYPE FMBUYER MPRIORITY MAMTCODE MCROP MHISTORY MTAXCODE EMCURRENCY MCOMMENT PMPTCODE LC_WHEN LL_ABLANK LC_ABLANK GL_GLLINK G_OPNFL NTGF_GLACNTFLA_DEFACCTGN_SEGMNTSLA_PAYACCTLC_MEMTTL LC_MENU LL_RECURSEW_VNDSURF LC_WARN W_DLTED SLW_LIMIT FLW_PMTHOLDLW_PURHOLDA_SYSDAT ESYSID GC_APPLID GC_COMPID PASS2 GLC_SAVENV G_SAVENV 2GF_APVENDFMSELPHONE MSELVEND LL_NEW L_DSPFM L_SAYVND L_ADDVND LC_VEND NMRETURN DG_DSPALT NGL_CONFRMSLC_MSG INELN_RESP G_GETDL MFLL_INMENU L_PMENU ARGC_HELPID G_DSPST GN_MSGLINEGC_USERID PRIORITY LIMIT BALANCE PGC_BELL NL_DEFMU M_VEND ELV_VTRAN LLC_LPAD D4V_QUIT TGK_ESC RV0_INQUIRYLW_VIEWER LN_VNDRNO \<Select \<Fwd \<Back \<Edit \<Delete \<Recall \<Inquiry \<Notes E\<xit \<Help DO l_pmenu WITH PAD(), "", 0 DO l_pmenu WITH PAD(), "", 0 DO l_pmenu WITH PAD(), "", 0 a_apvend' DO l_pmenu WITH PAD(), "", 0 DO l_pmenu WITH PAD(), "", 0 \<History \<Payables \<Checks & Payments \<Orders \<Receipts \<Adjustments \<Display \<Print DO l_inqopt WITH POPUP(), BAR() \<Display \<Print Settings Current/History Active/Void DO l_inqopt WITH POPUP(), BAR() \<Display \<Print Settings Summary/Detail All/POs/Bids/Returns DO l_inqopt WITH POPUP(), BAR() \<Display \<Print Settings Current/History DO l_inqopt WITH POPUP(), BAR() \<Display \<Print DO l_inqopt WITH POPUP(), BAR() DO l_pmenu WITH "",POPUP(), BAR() DO l_pmenu WITH PAD(), "", 0 ENTER PAYABLES DO l_pmenu WITH "", "V0_APTRAN", BAR() ENTER PURCHASE ORDERS DO l_pmenu WITH "", POPUP(), BAR() RECURRING PAYABLES MAINTENANCE DO l_pmenu WITH "REPMAINT", "", 0 RECURRING PO MAINTENANCE DO l_pmenu WITH "REPOMAINT", "", 0 DO l_pmenu WITH PAD(), "", 0 GN_TRACE E_TRACE M_VEND V_VEND V_FWD V_BACK V_EDIT MSTV_DELREC LL_INQ HSTLN_NXTPAD V_INQUIRY LN_INQCOL V_NOTES LN_NOTECOLV_QUIT V_HELP GN_HLPCOL V0_INQUIRYLL_NOVEND GL_AP GL_PO GL_SBTMOD V0_PAYINQ V0_CHKINQ GS_205 GS_016 LC_FILE LC_TYPE V0_ORDINQ LC_POTYPE V0_RCTINQ V0_ADJINQ GU_HELP LC_TASK RYV0_VTRAN V_VTRAN Vendor Phone Company Address Tax ID 1099 Type (I/M) City,St Country Contact Keep Hist (Y/N) Buyer Title Vendor Type Vendor Misc Code Comment Terms Descrip Payment Priority Def Exp Acct Paymnt Disc % Def Ctrl Acct Paymnt Disc Days Credit Limit Sales Tax % Net Due Days Open Debits YTD Purch YTD Disc Current Bal YTD Paymt YTD Adj Avail Credit Last Pymt YTD 1099 Open P.O.s Last Amnt Last Receipt GN_TRACE E_TRACE G_PNTBG GS_219 LC_TASK GS_223 GS_220 !!!!!!!!!! ####### ###.### ###.### 9999999.99 9999999.99 9999999 9999999.99 #######.## #######.## #######.## #######.## #######.## #######.## GN_TRACE E_TRACE A_APVEND LC_DEFACCTDEFACCT GC_ACCTPICLC_PAYACCTPAYACCT G_INIACC TLA_DEFACCTLA_PAYACCTW_VNDSURF VENDNO COMPANY OLADDRESS1 ADDRESS2 STATE UIRYZIP OVEND PHONE GC_PHONPICFAXNO TAXPID PICTYP1099 COUNTRY CONTACT TITLE HISTORY CTYPE BUYER COMMENT PTERMS LIMIT TPICPRIORITY PDISC ERPDAYS DEBIT BALANCE OPENPO YTDPUR NTYTDPAY LPAYDATE RGC_DATEPI8LPAYAMT CTYTDDIS SERYTDADJ ATEYTD1099 I8LRECDATE TW_DLTED I8LW_LIMIT RLW_PMTHOLDLW_PURHOLDGC_BELL !!!!!!!!!! @M N,Y VNDTERMS ###.### Vendor Payment Terms/ VNDTERMS ###.### Vendor Payment Termse ####### ###.### 9999999.99 9999999.99 9999999 9999999.99 #######.## #######.## #######.## #######.## #######.## #######.## #######.## #######.## #######.## #######.## #######.## #######.## GN_TRACE E_TRACE MVEND MCOMPANY TMADDRESS1 MADDRESS2 MCITY ACCTMSTATE TLL_NEW CCTMPHONE CCTGC_PHONPICMFAXNO MTAXPID ICMTYP1099 MAMTCODE MCOUNTRY MCONTACT YMTITLE MHISTORY MCTYPE PICMBUYER MCODE PICMCOMMENT MPXTERMS MPTERMS C_VALTMS MPTCODE MPDISC MPDAYS MPNET GC_COMPID G_GETACC LA_DEFACCTLA_PAYACCTMLIMIT MPRIORITY MDEBIT MBALANCE MOPENPO MYTDPUR MYTDPAY NTMLPAYDATE GC_DATEPI8MLPAYAMT 8MYTDDIS CTMYTDADJ ERMYTD1099 EMLRECDATE Vendor YTD Balance or Open PO Balance not Zero. a_apmast// vendno1 Vendor has Invoices in Accounts Payable Master File. a_apmast invno a_pomast// vendno1 Vendor has open Orders in PO Master File. a_pomast purno Delete vendor F Delete Cancel Vendor F Deleting Record in Vendor Purchase History File Recalling Record in Vendor Purchase History File a_apvhst// vendno a_apvhst Vendor history record Deleting Vendor/ Select option from vendor menu Select option from vendor menu LL_DELETE GN_TRACE E_TRACE LL_OK TG_LCKOB GN_RETRY VENDNO CCTA_APVEND BALANCE OPENPO TG_DSPALT TGL_AP NPICGF_APMASTFLN_OPNAMSTG_OPNFL MVEND ASTFGC_APPLID A_APMAST TINVNO GL_PO GF_POMASTFLN_OPNPMSTA_POMAST TPURNO G_GETDLG G_LCKRC GF_APVHSTFG_DSPST GN_MSGLINELN_OPNVHSTA_APVHST LL_CLEAR L_SAYVND LL_INMENU TYPE("mvend") = "C" a_apvendee Enter New vendor Number !!!!!! !!!!!! Illegal character in vendor Number. Vendor number F already exists. Enter phone number to check for duplicates phone Vendor F has phone number Add new vendor? vendno vendno Enter New Vendor Information / / / / - - Cancel Save new vendor F Edit vendor information Cancel new vendor entry a_apvend Saving vendor record Vendor Number F has been used by another user. Add vendor cancelled. a_apvend New Vendor Record Add note for vendor a_apvendQ LC_VEND GL_ASSERT E_ASSRT LL_ADDOK TGL_TRIAL G_CHKTRL W_VNDSURF L_SAYVND G_DSPST GN_MSGLINEG_ENTVL G_DSPALT CMPHONE LC_PHONE TGC_PHONPICPHONE PICA_APVEND LN_RESULT G_GETDLG VENDNO GC_OSEOL FLC_NEWVND LC_NEWPHN L_LDVND MVEND MFAXNO MLPAYDATE MLRECDATE MDEFACCT EMPAYACCT TMCOMMENT MPRIORITY MAMTCODE MCROP MHISTORY EMBUYER LL_NEW LA_PAD LA_PRMPT G_DSPCH L_DSPGT G_SETACK G_INIACC TLC_DEFACCTLA_DEFACCTLC_PAYACCTLA_PAYACCTLN_RESP ERG_GETCH EGK_ESC LL_NOVEND L_VALVND 8G_LCKFL RGN_RETRY DG_LCKRC L_WRTVND L_EDTMEM DLN_XREC LL_EDIT BUYER Buyer IDe No buyer entered. Unable to save vendor 1099 Type must be blank, I (Interest), or M (Misc). Interest/Misc/Blank/ 1245679 1245679 Select Payment Code 1 Rents/2 Royalties/4 FWT/5 Fishing/6 Medical/ 7 Nonemployee Comp/9 Direct Sales/ 1245679 Reporting Nonemployee compensation or Crop insurance proceeds? Nonemployee Comp Crop Insurance 000000000 999999999 ########### Invalid TaxPayer a_glacnt// glacnt ###.### Sales Tax % cannot be negative. 0123456789M Select Payment Priority 0 (Payment Hold)/1 (Highest)/2 ./3 ./4 ./5 . /6 ./7 ./8 ./9 (Lowest) /M (Manual Check)/ 0123456789M If 1099 Type is changed, YTD 1099 amounts will be reset to zero. Update Cancel Resetting 1099 Amounts to Zero in Master File a_apmast// vendno1 a_apvend Updating Master File a_apmast invno / / Invalid last Payment Date. / / Invalid last Receipt Date. vendno phone GN_TRACE E_TRACE LC_TYP1099LL_CONT TLL_VNDOK GL_CHKRULEA_APVEND BUYER MBUYER C_VALLS NEGC_COMPID G_DSPALT CGC_OSEOL MVEND TMTYP1099 CG_ENTVL 99MOLD1099 9MAMTCODE MCROP G_GETDLG MTAXPID FMTXID GL_GLLINK GF_GLACNTFLN_OPNACNTG_OPNFL A_GLACNT TMTAX MPRIORITY GL_AP LL_NEW GF_APMASTFLC_TMPSTR LN_RESULT G_DSPST GN_MSGLINEMYTD1099 LN_OPNAMSTVENDNO FG_LCKFL GN_RETRY AMT1099 TWHILE ACCTGC_APPLID A_APMAST TINVNO TMLPAYDATE GC_DATEPI8MLRECDATE MSELVEND 8PHONE Updating Vendor File GN_TRACE E_TRACE G_DSPST 99GN_MSGLINELL_NEW VENDNO ULEMVEND YTDPUR MYTDPUR YTDPAY NEMYTDPAY LPAYAMT CMLPAYAMT LPAYDATE TMLPAYDATE LRECDATE 9MLRECDATE YTDDIS MYTDDIS YTDADJ MYTDADJ FAPRPAY ADDUSER GC_USERID ADDDATE NTADDTIME LCKUSER TLCKDATE LCKTIME COMPANY MCOMPANY CONTACT TFMCONTACT TITLE MTITLE ADDRESS1 EMADDRESS1 ADDRESS2 TMADDRESS2 MCITY STATE MSTATE ACCTMZIP COUNTRY TMCOUNTRY TTAXPID MTAXPID I8PDISC MPDISC 8PDAYS 8MPDAYS RPNET DMPNET PHONE MPHONE DFAXNO MFAXNO ECODE MCODE DPTERMS MPTERMS PLIMIT YPMLIMIT CCTCTYPE TMCTYPE EBUYER MBUYER PRIORITY FMPRIORITY ORITY TYP1099 MTYP1099 MAMTCODE EMCROP HISTORY PMHISTORY TAXCODE MTAXCODE CURRENCY MCURRENCY COMMENT NTMCOMMENT FYTD1099 CTMYTD1099 SG_INIACC TLC_DEFACCTLA_DEFACCTLC_PAYACCTLA_PAYACCTDEFACCT PAYACCT GN_TRACE E_TRACE MVEND 99A_APVEND EVENDNO MCOMPANY ECOMPANY MCONTACT CONTACT MTITLE NETITLE MADDRESS1 ADDRESS1 MADDRESS2 ADDRESS2 MCITY 9CITY MSTATE STATE FMCOUNTRY COUNTRY MPHONE PHONE TMFAXNO FAXNO TMCODE MTAXPID TAXPID MPTERMS TFPTERMS MPDISC PDISC MPDAYS EPDAYS MPNET TPNET MLIMIT LIMIT MCTYPE CTYPE TMBUYER CCTBUYER MPRIORITY PRIORITY TMTAX 8MBALANCE BALANCE 8MLPAYAMT 8LPAYAMT RMLPAYDATE LPAYDATE MLRECDATE LRECDATE DMPTDPUR PTDPUR EMYTDPUR YTDPUR DMYTDPAY YTDPAY PMYTDDIS YPYTDDIS TMYTDADJ TYTDADJ EMYTD1099 YTD1099 MOPENPO FOPENPO MDEBIT DEBIT MDEFACCT DEFACCT MPAYACCT EPAYACCT MTYP1099 PTYP1099 MOLD1099 MAMTCODE MCROP MHISTORY HISTORY TMTAXCODE FTAXCODE TMCURRENCY CURRENCY TMCOMMENT TCOMMENT V_QUIT lw_memo V_VEND Select Vendor by number/phone/name, <F2> to List, blank to Exit M_VEND V_FWD a_apvend' V_BACK a_apvend' V_EDIT Vendor Edit vendor information, press <F1> for help Cancel Save Changes to Vendor F Return to editing Vendor F Discard Changes to Vendor F Saving vendor record/ Releasing vendor record/ Releasing vendor record/ V_DELREC V_DELREC V0_INQUIRY VENDHST syvhst VENDINQ APREPT01 POREPT018 F$Fb/ Current/History Active/Void Summary/Detail Current/History V_NOTES VENDNOTES Select option from vendor menu LC_PAD LC_POP LN_BAR 99LC_HELPID LL_CONT GN_TRACE EE_TRACE LL_INMENU LW_MEMO A_APVEND ELN_XREC LL_XDEL L_SAYVND G_DSPST GN_MSGLINEW_VNDSURF MVEND G_SELVND LL_NOVEND LC_XVENDNOVENDNO FG_MOVRC LC_MEMTTL L_EDTMEM GC_HELPID LL_EDIT G_LCKOB TGN_RETRY L_LDVND LN_CHCES LA_PAD LA_PRMPT FG_DSPCH L_DSPGT LN_RESP G_GETCH EGK_ESC L_VALVND TGL_CHKRULEMBUYER L_WRTVND G_SETACK LA_PADS TLA_PRMPTS L_DELRE MCOMPANY COMPANY TLC_DISPRT GC_IDRVPRGGC_PROCID LL_REPOK 8U_CHKPV 8GC_USERID GC_COMPID V0_PAYINQ LC_FILE LC_TYPE DV0_CHKINQ GS_205 EGS_016 V0_ORDINQ V0_RCTINQ V0_ADJINQ V0_PAYINQ syvinq syvinq V0_CHKINQ syvinq syvinq Current/History Active/Void V0_ORDINQ syvinq syvinq Summary/Detail All/POs/Bids/ Returns V0_RCTINQ syvinq syvinq Current/History V0_ADJINQ syvinq syvinq LC_POP LN_BAR GN_TRACE 9E_TRACE LC_HELPID GC_HELPID LC_VENDNO MVEND LC_REPT LC_DISPRT GC_IDRVPRGLC_FILE LC_TYPE V0_CHKINQ GS_205 INEGS_016 LC_POTYPE V0_ORDINQ V0_RCTINQ Vendor !!!!!! Notes for vendor F VNDMEMO a_apvend VNDMEMO Vendor master record lw_viewer LL_VUONLY LN_WINTOP LN_WINLFT LN_WINDEP LN_WINWID LC_OLDTTL LW_VIEWER LC_MEMTTL LA_MEMKEY A_APVEND VENDNO PRGLC_VNDMEMOVNDMEMO G_EDTMEM L_DEFMU L_DSPFM L_SAYVND L_DSPGT L_DELRE L_ADDVND L_VALVND L_WRTVND L_LDVND L_PMENU L_INQOPT L_EDTMEM C:\SMDISK\ C:\SMDISK\SYVEND.PRG SYVEND.FXP