CLIENT_PARAMETER_MAN

$SELECT  'CALLS THE MARKET SELECTION  S:MARKET;I\CM_CODE    $VALIDATE  'MANDATORY FIELD  M:  'CONVERTS TO UPPERCASE  C:UCASE    $VALIDATE  'ADDED BY LAZ ON CHRISTO'S REQUEST=====================28/10/2008  F:CLIENT_MAST;;CM_CODE;I\EXIST=CM_CODE  I:I\EXIST;<>;  O:CAPTION_UPD;UPDATE    I:I\EXIST;=;  O:CAPTION_UPD;CREATE 

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      A:DATE;DD MMM YYYY;T\DATE2  A:TIME;HH:MM:SS;T\TIME2  A:TIMER_ON;1000      A:DATE;DD MMM YYYY;T\DATE3  A:TIME;HH:MM:SS;T\TIME3  A:TIMER_ON;1000      A:DATE;DD MMM YYYY;T\DATE4  A:TIME;HH:MM:SS;T\TIME4  A:TIMER_ON;1000    A:DATE;DD MMM YY

$SELECT  'CALLS THE MARKET SELECTION, RETURNS SELECTED VALUE TO I\CM_CODE  S:MARKET;I\CM_CODE

$VALIDATE  'MANDATORY FIELD  M:  'CONVERTS TO UPPERCASE  C:UCASE  

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

$CALCULATE  'CHECKS THAT THIS FIELD IS NUMERIC  A:ISNUMERIC;I\CM_PCODE;I\TMP6    'IF IT IS NOT NUMERIC, DISPLAY AN ERROR  I:I\TMP6;<>;Y  D:POSTAL CODE MUST BE NUMERIC;ERRORM;I\CM_PCODE    'FORMATS THIS FIELD TO 0000  A:VAR;I\CM_PCODE;I\CM_PCODE;;0000    $VALIDATE  'MANDATORY FIELD  M:  

$VALIDATE  'C:UCASE  'CHECKS FOR '@' IN THE EMAIL ADDRESS  I:I\CM_EMAIL;<>;  DO  U:NUMBER_VALIDATE;EMAIL_CHK;I\CM_EMAIL,@,I\TMP5  'IF '@' IS NOT FOUND IN THE EMAIL ADDRESS, DISPLAY AN ERROR MESSAGE  I:I\TMP5;<>;Y  D:INVALID EMAIL ADDRESS;ERRORM;I\CM_EMAIL  DOEND  

$SELECT  'CALLS THE CLIENT TYPE SELECTION  S:CLIENT TYPE;I\CM_CLTYPE    $VALIDATE  'MANDATORY FIELD  M:  'CONVERTS TO UPPERCASE  C:UCASE  'LOOKS UP THE CLIENT TYPE, AND IF IT EXISTS, THE VALUE IS PUT INTO THE I\TMP1 FIELD  F:CLIENT_TYPE;Y;;I\CM_TYPE=CLT_CODE;CLT_CODE='$I\CM_CLTYPE$';I\CM_CLTYPE  'F:CLIENT_TYPE;Y;CLT_CO

$SELECT  'CALLS THE CLIENT TYPE SELECTION, RETURNS SELECTED ITEM TO I\CM_CLTYPE  S:CLIENT TYPE;I\CM_CLTYPE

$SELECT  S:VAT;I\CM_VATCODE

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET

$SELECT  S:CALC_TYPE;I\CM_DIRTDUE_TYPE    

$SELECT  S:CALC_TYPE;I\CM_WSDUE_TYPE

$VALIDATE  'MANDATORY FIELD  M:  'CONVERTS TO UPPERCASE  C:UCASE  

$VALIDATE  'CHECKS THAT '0' IS THE FIRST CHARACTER IN THE FAX NUMBER IF ITS NOT NULL  'I:I\CM_FAXNO;<>;  'DO  'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD  'A:LEN;I\CM_FAXNO;I\TMP51  'IF LENGTH IS < 10, DISPLAY AN ERROR  'I:I\TMP51;<;10;NUM  'D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\CM_FAXNO  'CLEAR TH

$VALIDATE  'CHECKS THAT '0' IS THE FIRST CHARACTER IN THE TELEPHONE NUMBER IF ITS NOT NULL  'I:I\CM_TELNO;<>;  'DO  ''PUT THE LENGTH OF THE FIELD INTO TEMP FIELD  'A:LEN;I\CM_TELNO;I\TMP50  ''IF LENGTH IS < 10, DISPLAY AN ERROR  'I:I\TMP50;<;10;NUM  'D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\CM_TELNO   

$VALIDATE  'MANDATORY FIELD  M:  

$SELECT  'CALLS THE VAT SELECTION  S:VAT;I\CM_VATCODE    $VALIDATE  'MANDATORY FIELD  M:  'FORMATS THIS FIELD TO 00  A:VAR;I\CM_VATCODE;I\CM_VATCODE;;00  'CONVERTS TO UPPERCASE  C:UCASE  'LOOKS UP THE ENTERED VALUE AND IF IT DOES NOT EXIST, DISPLAY AN ERROR  F:VAT_MAST;Y;VT_CODE;T\VAT=VT_RATE;;I\CM_VATCODE  A:CON;T\VAT

$VALIDATE  M:    

$VALIDATE    I:I\CM_TRADE_TO;<>;  DO  'CHECK THAT THE THIRD DIGIT IS A ":"  A:MID;I\CM_TRADE_TO,3,1;I\TMP2  I:I\TMP2;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_TRADE_TO    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_TRADE_TO,2;I\TMP3  I:I\TMP3;>;23  D:CANNOT BE GREATER THAN 23:59;ERRORM;I\CM_TRAD

$VALIDATE    I:I\CM_TRADE_FROM;<>;  DO  'CHECK THAT THE THIRD DIGIT IS A ":"  A:MID;I\CM_TRADE_FROM,3,1;I\TMP2  I:I\TMP2;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_TRADE_FROM    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_TRADE_FROM,2;I\TMP3  I:I\TMP3;>;23  D:CANNOT BE GREATER THAN 23:59;ERRORM;I

  $VALIDATE    'IF THIS FIELD IS NOT NULL, CHECK THAT IT IS NOT NEGATIVE  I:I\CM_FARM_MKT_DUES;<>;  R:0;100    'DO  'IF IT IS NEGATIVE DISPLAY AN ERROR  'I:I\CM_FARM_MKT_DUES;<;0;NUM  'D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_FARM_MKT_DUES  'DOEND   CHANGED BY LAZOLA 1/08/2008     

  $VALIDATE  'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_DIRTDUE;I\TMP8  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP8;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_DIRTDUE    'IF THE FIELD IS NOT NULL  'I:I\CM_DIRTDUE;<>;  R:0;100          'IF THE FIELD IS NOT NULL  I:I\CM_DIRTDUE;<>;  'DO  'IF THIS FIELD IS NEGATIVE

  $VALIDATE    'IF THIS FIELD IS NOT NULL  I:I\CM_WSDUES;<>;  R:0;100    'DO  'IF IT IS NEGATIVE DISPLAY AN ERROR  'I:I\CM_WSDUES;<;0;NUM  'D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_WSDUES  'DOEND    CHANGED BY LAZOLA 1/08/2008   ALL COMMISSION FIELDS IN THIS PROGRAM    

$CALCULATE  'FORMATS THIS FIELD TO 00.00  'A:VAR;I\CM_SMS_COST;I\CM_SMS_COST;;00.00    $VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_SMS_COST;I\TMP11  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP11;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_SMS_COST    'IF THIS FIELD IS NOT NULL  I:I\CM_SMS_COST;<>;  DO 

$SELECT  S:CALC_TYPE;I\CM_DIRTDUE_TYPE    $VALIDATE  'VALIDATES THAT THE ENTERED VALUE EXISTS  C:UCASE  A:ISNUMERIC;I\CM_DIRTDUE_TYPE;I\TMP94  I:I\TMP94;=;Y  A:VAR;I\CM_DIRTDUE_TYPE;I\CM_DIRTDUE_TYPE;;00  F:CALC_TYPE;Y;CAP_CODE;I\DESC4=CAP_DESC;;I\CM_DIRTDUE_TYPE    A:LEFT;I\DESC4,15;T\DIRDUES  C:MCASE;;T\DIRDUES    $A

$SELECT  S:CALC_TYPE;I\CM_WSDUE_TYPE    $VALIDATE  C:UCASE  'VALIDATES THAT THE ENTERED VALUE EXISTS  A:ISNUMERIC;I\CM_WSDUE_TYPE;I\TMP95  I:I\TMP95;=;Y  A:VAR;I\CM_WSDUE_TYPE;I\CM_WSDUE_TYPE;;00  F:CALC_TYPE;Y;CAP_CODE;I\DESC5=CAP_DESC;;I\CM_WSDUE_TYPE  A:LEFT;I\DESC5,15;T\WSDUES  C:MCASE;;T\WSDUES    $AFTER_READ  I:I

$VALIDATE  V:Y;N;U;    I:I\CM_DISCARD_CONF;=;  A:CONST;N;I\CM_DISCARD_CONF  

$VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_DUES;I\TMP12  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP12;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_DUES    'IF THIS FIELD IS NOT NULL  I:I\CM_DUES;<>;  R:0;100    'DO  'IF IT IS NEGATIVE DISPLAY AN ERROR  'I:I\CM_DUES;<;0;NUM  'D:CANNOT BE LESS THAN ZERO

$VALIDATE      A:CONST;;W\LEN  I:I\G2;<>;  DO(G2)  A:ZEROFILL;I\G2,2,I\G2  A:LEN;I\G2;W\LEN  I:W\LEN;<;2;NUM  D:ERROR - YOU MUST ENTER TWO DIGITS;ERRORM;I\G2  DOEND(G2)

$VALIDATE    'CONATINATE THE COORDINATES  A:CON;I\G1,I\G2,I\G3;I\CM_GPSE    A:CONST;;W\LEN    I:I\G3;<>;  DO(G3)  A:ZEROFILL;I\G3,2,I\G3  A:LEN;I\G3;W\LEN    I:W\LEN;<;2;NUM  D:ERROR - YOU MUST ENTER TWO DIGITS;ERRORM;I\G3  DOEND(G3)    $AFTER_READ  A:LEFT;I\CM_GPSE,2;I\G1  A:MID;I\CM_GPSE,3,4;I\G2  A:RIGHT;I\CM_GPSE,2

$VALIDATE    I:I\G1;=;  DO(EMPTY)  O:DISABLEINPUT;I\G2,I\G3,I\S1,I\S2,I\S3  A:CONST;00;I\G1,I\G2,I\G3,I\S1,I\S2,I\S3  DOEND(EMPTY)  A:CONST;;W\LEN    I:I\G1;<>;  DO(G1)  O:ENABLEINPUT;I\G2,I\G3,I\S1,I\S2,I\S3  A:ZEROFILL;I\G1,2,I\G1  A:LEN;I\G1;W\LEN  I:W\LEN;<;2;NUM  D:ERROR - YOU MUST ENTER TWO DIGITS;ERRORM;I\G1  DO

  $VALIDATE    A:CONST;;W\LEN    I:I\S1;<>;  DO(S1)  A:ZEROFILL;I\S1,2,I\S1  A:LEN;I\S1;W\LEN    I:W\LEN;<;2;NUM  D:ERROR - YOU MUST ENTER TWO DIGITS;ERRORM;I\S1  DOEND(S1)

  $VALIDATE    A:CONST;;W\LEN  I:I\S2;<>;  DO(S2)  A:ZEROFILL;I\S2,2,I\S2  A:LEN;I\S2;W\LEN    I:W\LEN;<;2;NUM  D:ERROR - YOU MUST ENTER TWO DIGITS;ERRORM;I\S2  DOEND(S2)

  $VALIDATE      'CONATINATE THE COORDINATES  A:CON;I\S1,I\S2,I\S3;I\CM_GPSS    A:CONST;;W\LEN  I:I\S3;<>;  DO(S3)  A:ZEROFILL;I\S3,2,I\S3  A:LEN;I\S3;W\LEN    I:W\LEN;<;2;NUM  D:ERROR - YOU MUST ENTER TWO DIGITS;ERRORM;I\S3  DOEND(S3)    $AFTER_READ  A:LEFT;I\CM_GPSS,2;I\S1  A:MID;I\CM_GPSS,3,4;I\S2  A:RIGHT;I\CM_GPSS

$VALIDATE  C:UCASE  V:Y;N;    I:I\CM_CHANGE_CONF_DISCQTY;=;  A:CONST;N;I\CM_CHANGE_CONF_DISCQTY

$VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_MONTH_ARCH;I\TMP14  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP14;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_MONTH_ARCH    'IF THIS FIELD IS NOT NULL  I:I\CM_MONTH_ARCH;<>;  DO  'IF IT IS NEGATIVE DISPLAY AN ERROR  I:I\CM_MONTH_ARCH;<;0  D:CANNOT BE LESS THA

$CALCULATE  'FORMATS THIS FIELD TO 00.00  'A:VAR;I\CM_COMMPERC;I\CM_COMMPERC;;00.00    $VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_COMMPERC;I\TMP16  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP16;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_COMMPERC    'IF THIS FIELD IS NOT NULL  I:I\CM_COMMPERC;<>;  R:0

$SELECT  'CALLS THE CURRENCY SELECTION  S:CURRENCY;I\CM_CURR    $VALIDATE  A:CONST;;T\CURR  C:UCASE  'VALIDATES THAT THIS FIELD EXISTS ON THE DATABASE  F:CURRENCY_MAST;Y;CU_CODE;T\CURR=CU_DESC;;I\CM_CURR  'A:LEFT;I\DESC6,15;T\WSDUES  C:MCASE;;T\CURR      $AFTER_READ  I:I\CM_CURR;<>;  F:CURRENCY_MAST;;;T\CURR=CU_DESC;CU

$SELECT  S:CURRENCY;I\CM_CURR  

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

$SELECT  'CALLS THE REPORT SELECTION  S:REPORT;I\CM_SUMM_SALE    $VALIDATE  A:ISNUMERIC;I\CM_SUMM_SALE;I\TMP100  I:I\TMP100;=;Y  A:VAR;I\CM_SUMM_SALE;I\CM_SUMM_SALE;;00  'VALIDATES THAT THIS FIELD EXISTS IN THE DATABASE  F:REPORT_FORMAT;Y;RF_CODE;I\DESC6=RF_DESC;;I\CM_SUMM_SALE  A:LEFT;I\DESC6,15;T\FORM1  C:MCASE;;T\FO

$SELECT  S:REPORT;I\CM_SUMM_SALE

$AFTER_WRITE  'CALLS THE FUNCTION TO CLEAR THE TABLE  U:MANIPULATE_GRID;DELETE_TABLE_DATA  'SAVES ALL GRID DATA TO THE TABLE  U:ZZGRID_SPLIT;GRID_TO_DB;G\GRID;MARKET_PALL_ACC,MP_MARKET='I\MEMBER_NO'

$SELECT  'CALLS THE PALLET_TYPE SELECTION  S:PALLET_TYPE;I\PALLET_TYPE      $CALCULATE  'IF THIS FIELD IS NOT NULL  I:I\PALLET_TYPE;<>;  DO(1)  'FORMATS THIS FIELD TO 00  'A:VAR;I\PALLET_TYPE;I\PALLET_TYPE;;00   =========== EDITED BY LAZOLA 23 MAY 2008  'VALIDATES THAT THIS FIELD EXISTS ON THE DATABASE  F:PALL_TYPE;Y;;

$SELECT  S:PALLET_TYPE;I\PALLET_TYPE  

$SELECT  U:MANIPULATE_GRID;DELETE_RECORD;I\PALLET_TYPE,G\GRID,I\MP_TYPE    A:CONST;;I\MEMBER_NO,I\PALLET_TYPE  O:SETFOCUS;C\DELETE;I\PALLET_TYPE

$CALCULATE  ''IF FIELD IS NOT NULL  I:I\MEMBER_NO;<>;  DO(2)  ''CHECK IF THE MEMBER NUMBER EXISTS  'U:PALLET_TYPE;PALLET_MEMBER_CHECK;I\MEMBER_NO,G\GRID,I\TMP30,I\PALLET_TYPE  ''IF IT EXISTS, DISPLAY AN ERROR  'I:I\TMP30;=;Y  'D:THAT TYPE-MEMBER SEQUENCE ALREADY EXISTS;ERRORM;I\MEMBER_NO  ''IF THE TYPE AND MEMBER NUM C

$DEFAULT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\MP_TYPE,I\MP_ACCNO,I\MP_MARKET:H,I\MP_DATE_JOINED  

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET1    'LOAD MARKET NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET1=CM_NAME  C:MCASE;;T\MARKET1

$CALCULATE  I:K\CM_CENTRAL_PALL;=;1  O:ENABLEINPUT;I\CM_DEF_POOLID

$VALIDATE    'VALIDATE THE LENGTH OF THIS FIELD  A:CONST;;W\LEN  A:LEN;I\CM_PALLMKT;W\LEN    I:W\LEN;<>;2;NUM  D:MARKET (CHEP) MUST BE TWO DIGITS LONG;ERRORM;I\CM_PALLMKT

$VALIDATE  I:K\CM_CENTRAL_PALL;=;1  M:  C:UCASE    $CALCULATE  I:K\CM_CENTRAL_PALL;=;1  M:  C:UCASE  U:CLIENT_PARAMETER_MAN;MARKET    O:SETFOCUS;K\CM_MKT_AVG

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\CM_PALL_SECT;I -ITEM,S -SALES SECTION,M -SALESMAN    $VALIDATE    'UPPERCASE  C:UCASE    U:DEBTOR_FUNCTIONS;STRIP_DESC;D\CM_PALL_SECT    'ONLY ALLOWS THE SPECIFIED ITEMS TO BE ENTERED  B:VALIDATE;D\CM_PALL_SECT;I,S,M    I:D\CM_PALL_SECT;=;I  A:CONST;ITEM;T\SECDESC    I

$VALIDATE  I:I\CM_PW_ERR_CNT;=;  A:CONST;100;I\CM_PW_ERR_CNT

$VALIDATE  I:I\CM_TIME_INT;=;  A:CONST;1;I\CM_TIME_INT

$VALIDATE  C:UCASE  V:Y;N;  I:I\CM_CRED_PAL_RET;=;  A:CONST;Y;I\CM_CRED_PAL_RET

$CALCULATE  'FORMATS THIS FIELD TO 00:00  'A:VAR;I\CM_GINTPER;I\CM_GINTPER;;00.00    $VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_GINTPER;I\TMP19  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP19;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_GINTPER    'IF THE FIELD IS NOT NULL  I:I\CM_GINTPER;<>;  R:0;100;I

$CALCULATE  'FORMATS THIS FIELD TO 00:00  'A:VAR;I\CM_GPENPER;I\CM_GPENPER;;00.00    $VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_GPENPER;I\TMP20  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP20;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_GPENPER    'IF THE FIELD IS NOT NULL  I:I\CM_GPENPER;<>;  R:0;100;I

$CALCULATE  'FORMATS THIS FIELD TO 00:00  'A:VAR;I\CM_GCLFACT;I\CM_GCLFACT;;00.00    $VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_GCLFACT;I\TMP21  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP21;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_GCLFACT    'IF THE FIELD IS NOT NULL  I:I\CM_GCLFACT;<>;  R:0;100;I

$VALIDATE  'IF THE FIELD IS NOT NULL  I:I\CM_CLNPERIOD;<>;  DO  'IF THIS FIELD IS NEGATIVE, DISPLAY AN ERROR  I:I\CM_CLNPERIOD;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_CLNPERIOD  DOEND  

$SELECT  'CALLS THE REPORT_FORMAT SELECTION  S:REPORT_FORMAT;I\CM_BUY_TRAN    $VALIDATE  A:ISNUMERIC;I\CM_BUY_TRAN;I\TMP102  I:I\TMP102;=;Y  A:VAR;I\CM_BUY_TRAN;I\CM_BUY_TRAN;;00    'VALIDATES THAT THE VALUE EXISTS ON THE DATABASE  F:REPORT_FORMAT;Y;RF_CODE;I\DESC3=RF_DESC;;I\CM_BUY_TRAN    A:LEFT;I\DESC3,15;T\FORM3  C

$VALIDATE    'IF THE FIELD IS NOT NULL  I:I\CM_CLUBFEE;<>;  DO  A:VAR;I\CM_CLUBFEE;I\CM_CLUBFEE;;0.00  'IF THIS FIELD IS NEGATIVE, DISPLAY AN ERROR  I:I\CM_CLUBFEE;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_CLUBFEE  DOEND  

$SELECT  'CALLS THE BUYER SELECT  S:BUYER DEBTOR;I\CM_CON_BUYER    $VALIDATE  'VALIDATES THAT THE VALUE EXISTS ON THE DATABASE  I:I\CM_CON_BUYER;<>;  F:DEBTOR_MAST;Y;;I\CM_CON_BUYER=DM_DEBTOR;DM_DEBTOR='$I\CM_CON_BUYER$';I\CM_CON_BUYER        

$VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_BANKGUAR_EXPIRE;I\TMP18  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP18;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_BANKGUAR_EXPIRE    'IF THE FIELD IS NOT NULL  I:I\CM_BANKGUAR_EXPIRE;<>;  DO  'IF THIS FIELD IS NEGATIVE, DISPLAY AN ERROR  I:I\CM_BANKGUAR_EXPI

$SELECT  'CALLS THE REPORT_FORMAT SELECTION  S:REPORT_FORMAT;I\CM_BUYREP_LOUT    $VALIDATE  A:ISNUMERIC;I\CM_BUYREP_LOUT;I\TMP101  I:I\TMP101;=;Y  A:VAR;I\CM_BUYREP_LOUT;I\CM_BUYREP_LOUT;;00    'VALIDATES THAT THE VALUE EXISTS ON THE DATABASE  F:REPORT_FORMAT;Y;RF_CODE;I\DESC2=RF_DESC;;I\CM_BUYREP_LOUT    A:LEFT;I\DESC

$SELECT  S:REPORT_FORMAT;I\CM_BUY_TRAN  

$SELECT  S:REPORT_FORMAT;I\CM_BUYREP_LOUT  

$SELECT  S:BUYER DEBTOR;I\CM_CON_BUYER

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\CM_AGING;C,T    $VALIDATE    'UPPERCASE  C:UCASE    'ONLY ALLOWS THE SPECIFIED ITEMS TO BE ENTERED  B:VALIDATE;D\CM_AGING;C,T      $CALCULATE   I:D\CM_AGING;=;C    A:CONST;CALENDAR;T\AGING  I:D\CM_AGING;=;T    A:CONST;TERMS;T\AGING  C:MCASE;;T\AGING      $AFTER_READ  I

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET2    'LOAD MARKET NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET2=CM_NAME  C:MCASE;;T\MARKET2

$SELECT  SELECT CALCULATION CODE FROM THE SELECTION WINDOW  S:CALC_TYPE;I\CM_INTCALC    $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  I:I\CM_INTCALC;<>;  'VALIDATES THAT THE VALUE EXISTS ON THE DATABASE  F:CALC_TYPE;Y;CAP_CODE;I\DESC1=CAP_DESC;;I\CM_INTCALC    A:LEFT;I\DESC1,15;T\CALCTYPE  C:MCASE;;T\CALCTYPE      $AFTER_

$SELECT  'SELECT CALCUALATION CODE FROM SELECTION WINDOW  S:CALC_TYPE;I\CM_INTCALC

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\CM_PAY_AGAINST;I,O    $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'ONLY ALLOWS THE SPECIFIED ITEMS TO BE ENTERED  B:VALIDATE;D\CM_PAY_AGAINST;I,O    $CALCULATE   I:D\CM_PAY_AGAINST;=;I    A:CONST;INVOICE NO;T\PAY_AGAINST    I:D\CM_PAY_AGAINST;=;O    A:CONST;OLDEST INV

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\CM_INTCHARGE_FROM;A,O    $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'ONLY ALLOWS THE SPECIFIED ITEMS TO BE ENTERED  B:VALIDATE;D\CM_INTCHARGE_FROM;A,O    $CALCULATE   I:D\CM_INTCHARGE_FROM;=;A    A:CONST;DATE DEBT ARRISES;T\INTCHARGE_FROM    I:D\CM_INTCHARGE_FROM;=;O

$VALIDATE  C:UCASE  V:Y;N;  I:I\CM_BUYER_CARD;=;  A:CONST;N;I\CM_BUYER_CARD

$VALIDATE    C:UCASE    V:Y;N;  I:I\CM_PIN_REFUND;=;  A:CONST;N;I\CM_PIN_REFUND

$DEFAULT  A:SETPWFIELD;I\CONF_PASS  $VALIDATE  I:I\CONF_PASS;<>;  DO(1)  I:I\CRLIMIT_PASS;<>;I\CONF_PASS  D:ENTER THE SAME PASSWORD;ERRORM;I\CONF_PASS  DOEND(1)

$DEFAULT  A:CONST;Y;I\CM_INT_ON_INT    $VALIDATE    C:UCASE  V:Y;N;  I:I\CM_INT_ON_INT;=;  A:CONST;Y;I\CM_INT_ON_INT    

$VALIDATE  M:    I:I\CM_BUYER_CARD;=;Y  DO(LLA)    I:I\CM_BUYER_LEN;>;8    D:BUYER NUMBER LENGTH MUST BE LESS THAN 8 DIGITS;ERRORM;I\CM_BUYER_LEN  DOEND(LLA)    I:I\CM_BUYER_CARD;=;N  DO(ALO)    I:I\CM_BUYER_LEN;>;10    D:BUYER NUMBER LENGTH MUST BE LESS THAN 10 DIGITS;ERRORM;I\CM_BUYER_LEN  DOEND(ALO)

$VALIDATE  C:UCASE  V:Y;N;    I:I\CM_CSHR_BUYERACC;=;  A:CONST;N;I\CM_CSHR_BUYERACC

$VALIDATE  C:UCASE  V:Y;N;    I:I\CM_MAINBUYER_SALES;=;  A:CONST;N;I\CM_MAINBUYER_SALES  

$DEFAULT  A:SETPWFIELD;I\CRLIMIT_PASS  $VALIDATE  A:LEN;I\CRLIMIT_PASS;W\TMP60  I:W\TMP60;>;0    DO(01)       I:W\TMP60;>;8       D:PASSWORD MUST NOT BE GREATER THAN 8 CHARACTERS;ERRORM;I\CRLIMIT_PASS         I:W\TMP60;<;6       D:PASSWORD MUST NOT BE LESS THAN 6 CHARACTERS;ERRORM;I\CRLIMIT_PASS    DOEND(01)

$VALIDATE  C:UCASE  V:Y;N;    I:I\CM_USE_RFID;=;  A:CONST;N;I\CM_USE_RFID  

$SELECT  S:REPORT_FORMAT;I\CM_CS_LABEL_LOUT

$CALCULATE  I:I\CM_DEP_CONF_AMT;=;  A:CONST;0.00;I\CM_DEP_CONF_AMT

$VALIDATE  V:Y;N;    I:I\CM_CARD_CHARGE;=;  A:CONST;N;I/CM_CARD_CHARGE

$SELECT  'CALLS THE VAT SELECTION  S:VAT;I\CM_CSVATCD

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET3    'LOAD MARKET NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET3=CM_NAME  C:MCASE;;T\MARKET3

$BEFORE_WRITE  U:CREATE_POOLID;CLIENT  

$VALIDATE  V:Y;N;    I:I\CM_USE_CASH_BAL_DENOM;=;  A:CONST;N;I\CM_USE_CASH_BAL_DENOM

$SELECT  S:DEDUCT_CODE;I\CM_RR_DCODE

$SELECT  S:DEDUCT_CODE;I\CM_CS_DCODE

$VALIDATE  C:UCASE  V:Y;N;    I:I\CM_REF_AUTH_REQ;=;  A:CONST;N;I\CM_REF_AUTH_REQ

$VALIDATE  'MANDATORY  M:    I:I\CM_DEL_LEN;>;8;NUM  D:DELIVERY NUMBER LENGTH CANNOT BE GREATER THAN 8;ERRORM;I\CM_DEL_LEN    

$VALIDATE    C:UCASE  V:Y;N;  I:I\CM_DEL_BY_AGENT;=;  A:CONST;N;I\CM_DEL_BY_AGENT  

$VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_CS_MIN_CHARGE;I\TMP24  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP24;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_CS_MIN_CHARGE    'IF THE FIELD IS NOT NULL  I:I\CM_CS_MIN_CHARGE;<>;  DO  'IF THIS FIELD IS NEGATIVE, DISPLAY AN ERROR  I:I\CM_CS_MIN_CHARGE;<;0;N

$VALIDATE    'CHECKS IF THIS FIELD IS NUMERIC  'A:ISNUMERIC;I\CM_CS_MAX_CHARGE;I\TMP25  'IF ITS NOT NUMERIC, DISPLAY AN ERROR  'I:I\TMP25;=;N  'D:MUST BE NUMERIC;ERRORM;I\CM_CS_MAX_CHARGE    'IF THE FIELD IS NOT NULL  I:I\CM_CS_MAX_CHARGE;<>;  DO  'IF THIS FIELD IS NEGATIVE, DISPLAY AN ERROR  I:I\CM_CS_MAX_CHARGE;<;0;N

$VALIDATE  'IF THE FIELD IS NOT NULL  I:I\CM_RR_MIN_PERIOD;<>;  DO  'IF THIS FIELD IS NEGATIVE, DISPLAY AN ERROR  I:I\CM_RR_MIN_PERIOD;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_RR_MIN_PERIOD  DOEND