SELT_PROF_SALES_BYR2

$SELECT  S:DEBTOR_PROV_SALES2;I\DM_DEBTOR

$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW    $SELECT  I:I\DM_DEBTOR2;=;  D:ENTER VALIDATION BUYER;ERRORM;I\DM_DEBTOR2    'ANOTHER CHECK HERE BECAUSE PEOPLE ARE TRYING TO GIPPO THE SYSTEM  I:I\BUYER_TYPE2;<>;CA  DO(NOT_CB)    U:PROV_SALES_VAL_MAN;CRED_LIM    U:POP_GRID;SUM_CRLIM    I:I\CRIND;=;N    DO(JEE)      A:CONST;E

$VALIDATE  M:  I:I\RECEIPT;<>;  DO(FLA)   U:CLEARGRID;CLEAR;G\GRID   A:VAR;I\RECEIPT;I\RECEIPT;;000000   F:STK_TRANS;Y;;;ST_MARKET='$I\MARKET$' AND ST_DEBTOR='$I\DM_DEBTOR$' AND ST_TRTYPE = 'PS' AND ST_PSSTAT = 'N' AND ST_RECNO = '$I\RECEIPT$';I\RECEIPT   U:POP_GRID;POPULATE;G\GRID,I\DM_DEBTOR,I\TOTAL,I\PARM  DOEND(FLA

$SELECT  S:PAYMENT_METHOD;I\PAY_METH;I\MARKET    $VALIDATE  I:I\BUYER_TYPE2;=;CA  DO(VEW)    M:      F:CASH_PAYMTHD;Y;;;CPM_PAYMETH='$I\PAY_METH$';I\PAY_METH  DOEND(VEW)       $CALCULATE  C:UCASE  F:CASH_PAYMTHD;Y;;;CPM_PAYMETH='$I\PAY_METH$';I\PAY_METH    O:DISABLEINPUT;I\AMT_TENDERED    I:I\BUYER_TYPE2;<>;CA  DO(WER)

$SELECT  I:I\ORGS;=;  S:DEBTOR_PROV_SALES2;I\DM_DEBTOR  '''S:DEBTOR_PROV_SALES;I\DM_DEBTOR    $CALCULATE  A:CONST;;I\ERROR  M:    'THIS FUNCTION CLEARS THE GRID  U:CLEARGRID;CLEAR;G\GRID    F:DEBTOR_MAST;;;I\PROXY_BUYER=DM_PROXY_PROV,T\NAME=DM_NAME;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\DM_DEBTOR$';I\DM_DEBTOR  I:I\P

$DEFAULT  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\DEFRECS=CM_NOREC_PRN,T\MARKET=CM_NAME,I\TMP2=CM_PROHIBIT_SALES,I\GRP=CM_BUYGRP,I\VALCHEQUE=CM_CHEQUE_DETS    A:VAR;I\DEFRECS;I\NUMRECS    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET          I:I\TMP2;=;Y  D:SALES 

$DEFAULT  'LOAD AGENT CODE  A:ORGS;;I\ORGS    I:I\ORGS;<>;  O:HIDE;C\LOOK    ''A:SETPWFIELD;I\DM_DEBTOR  A:SETPWFIELD;I\DM_DEBTOR2

$CALCULATE  C:UCASE  V:Y;N;    I:I\VALIDATE;=;  A:CONST;N;I\VALIDATE    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE  U:POP_GRID;SUM_SELECTED   A:CONST;$I\TOT_RND$;I\TOTAL    I:I\BUYER_TYPE2;<>;CA  DO(NOT_VF)    A:CONST;;I\PAY_METH    O:DISABLEINPUT;I\PAY_METH    O:HIDE;T\TENDERED,I\AMT_TENDERED,T\CHANGE,I\CHANGE    U:P

$SELECT  S:G:G\GRID:L1;I\LINE    $VALIDATE  I:I\LINE;<>;  DO(LINE)    U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE    O:ENABLEINPUT;I\VALIDATE  DOEND(LINE)    I:I\LINE;=;  DO(O)   O:DISABLEINPUT;G\GRID,I\VALIDATE    A:CONST;$I\TOT_RND$;I\TOTAL   'U:POP_GRID;SUM_SELECTED      I:I\TOTAL;=;0.00   D:SELECT A SALE TO VALIDAT

$SELECT  S:DEBTOR_PROV_SALES;I\DM_DEBTOR2    $CALCULATE  A:CONST;;W\TEMP4    $VALIDATE  M:    A:CONST;;I\PAY_METH,I\CH,I\TRCHG,I\MAIN_DEBTOR,I\CALLCHQ,I\CHV,I\CH_DUE,I\TRIND,I\ERROR,I\CRED_LIMIT    O:DISABLEINPUT;I\TRCHG    'CALL A FUNCTION THAT VALIDATES THE PREAMBLE  U:VALIDATE_PREAMBLE;VALIDATE;I\DM_DEBTOR2,I\TMP4  

$CALCULATE    U:CATCHCHARS;FALSE  '$DEFAULT    I:I\AMT_TENDERED;=;  A:CONST;0;I\AMT_TENDERED    I:I\PAY_METH;=;CH  A:SUB;I\AMT_TENDERED;I\CHANGE;I\CH_DUE;#0.00    I:I\PAY_METH;<>;CH  A:SUB;I\AMT_TENDERED;I\CHANGE;I\TOTAL;#0.00    I:I\BUYER_TYPE2;=;CA  DO(NNJ)    I:I\PAY_METH;=;CH    DO(KUK)      I:I\AMT_TENDERED;<;I\CH

$CALCULATE  I:I\NUMRECS;=;0;NUM  A:VAR;I\DEFRECS;I\NUMRECS    I:I\NUMRECS;=;  A:VAR;I\DEFRECS;I\NUMRECS    I:I\NUMRECS;>;10;NUM  D:YOU MAY NOT PRINT MORE THAN 10 INVOICES;ERRORM;I\NUMRECS

$CALCULATE  C:UCASE  V:Y;N;    I:I\TRCHG;=;  A:CONST;N;I\TRCHG    'SHOW THE BUYERS CREDIT LIMIT(CR LIMIT - OUTSTDNG BAL - GRID TOTAL)  I:I\BUYER_TYPE2;<>;CA  DO(NOT_CA)   A:CONST;;I\PAY_METH   O:DISABLEINPUT;I\PAY_METH   O:HIDE;T\TENDERED,I\AMT_TENDERED,T\CHANGE,I\CHANGE   U:PROV_SALES_VAL_MAN;CRED_LIM_DISPLAY   I:I\CR