Freshmark replication server

freshmark-canonical

Program drill-down

VAL_PROF_SALES_REC2

VAL PROFORMA SALES BYR REC. Type DSP, base table DEBTOR_MAST.

Field inventory

113

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 2 C -1 261, 121
$SELECT  S:DEBTOR_PROV_SALES2;I\DM_DEBTOR
1 0.0 CMD 4 C -1 261, 181
$SELECT  S:DEBTOR_PROV_SALES;I\DM_DEBTOR2
1 0.0 CMD 2 C -1 649, 546
$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 SYSTE
1 0.0 Work 21 G -1 21, 253
  
1 0.0 H -1 1, 25
  
1 0.0 CRIND I 0 501, 121
  
1 0.0 Work 1 I 0 261, 529
  
1 0.0 Work 30 I -1 621, 253
  
1 0.0 Work 19 I 0 571, 49
  
1 0.0 Work 18 I -1 611, 109
  
1 0.0 DM_DEBTOR2 I -1 141, 181
$SELECT  S:DEBTOR_PROV_SALES;I\DM_DEBTOR2    $CALCULATE  A:CONST;;W\TEMP4    M:  A:CONST;;I\PAY_METH,I\CH,I\TRCHG,I\MAIN_DEBTOR,I\CALLCHQ,I\CHV,I\CH_DUE,I\TRIND,I\ERROR,W\TEMP4  O:DISABLEINPUT;I\TRCHG    'CALL A FUNCTION THAT VALIDATES THE PREAMBLE  U:VALIDATE_PREAMBLE;VALIDATE;I\DM_DEBTOR2,I\TMP4  I:I\TMP4;<>;1  D:INV
1 0.0 Work 7 I 0 21, 469
  
1 0.0 Work 6 I 0 321, 469
  
1 0.0 Work 5 I 0 181, 469
  
1 0.0 DELDATE I 0 731, 229
  
1 0.0 VALCHEQUE I 0 151, 61
  
1 0.0 DOCNO I 0 751, 229
  
1 0.0 TRIND I 0 431, 121
  
1 0.0 Work 29 I -1 21, 253
  
1 0.0 Work 2 I 0 321, 529
  
1 0.0 Work 9 I 0 111, 505
  
1 0.0 Work 8 I 0 51, 505
  
1 0.0 Work 24 I -1 161, 253
  
1 0.0 Work 1 I 0 231, 505
  
1 0.0 Work 3 I 0 351, 529
  
1 0.0 Work 11 I 0 1, 61
$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 
1 0.0 Work 26 I -1 351, 253
  
1 0.0 Work 25 I -1 301, 253
  
1 0.0 Work 1 I 0 31, 61
$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
1 0.0 Work 45 I -1 291, 421
  
1 0.0 Work 1 I 0 571, 61
  
1 0.0 Work 1 I 0 141, 505
  
1 0.0 Work 1 I 0 201, 529
  
1 0.0 Work 2 I 0 91, 61
  
1 0.0 Work 1 I 0 231, 529
  
1 0.0 Work 1 I 0 121, 61
  
1 0.0 Work 28 I -1 541, 253
  
1 0.0 Work 27 I -1 481, 253
  
1 0.0 TEMP4 I 0 91, 469
  
1 0.0 RECEIPT I -1 141, 145
$CALCULATE  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(
1 0.0 Work 4 I -1 531, 493
  
1 0.0 Work 23 I -1 71, 253
  
1 0.0 Work 2 I 0 331, 505
  
1 0.0 Work 2 I 0 81, 505
  
1 0.0 Work 1 I 0 61, 61
  
1 0.0 Work 1 I 0 371, 505
  
1 0.0 BUYER_TYPE I 0 201, 505
  
1 0.0 Work 4 I -1 421, 253
  
1 0.0 Work 2 I 0 171, 505
  
1 0.0 Work 1 I 0 291, 529
  
1 0.0 DATE I 0 651, 85
  
1 0.0 Work 4 I 0 451, 529
  
1 0.0 Work 44 I -1 531, 421
  
1 0.0 Work 5 I 0 141, 529
  
1 0.0 Work 4 I 0 171, 529
  
1 0.0 Work 2 I 0 51, 529
  
1 0.0 DM_DEBTOR I -1 141, 121
$SELECT  I:I\ORGS;=;  S:DEBTOR_PROV_SALES2;I\DM_DEBTOR  ''S:DEBTOR_PROV_SALES;I\DM_DEBTOR    $VALIDATE  M:    $CALCULATE  A:CONST;;I\ERROR  '''A:CONST;;I\PAY_METH,I\CH,I\TRCHG,I\MAIN_DEBTOR,I\CALLCHQ,I\CHV,I\CH_DUE,I\TRIND  O:DISABLEINPUT;I\TRCHG  M:    'THIS FUNCTION CLEARS THE GRID  U:CLEARGRID;CLEAR;G\GRID    'F:DEB
1 0.0 CODEFLD I 0 231, 469
  
1 0.0 Work 3 I 0 81, 529
  
1 0.0 Work 1 I 0 201, 481
  
1 0.0 Work 6 I 0 111, 529
  
1 0.0 CH I -1 681, 457
  
1 0.0 CALLCHQ I 0 451, 121
  
1 0.0 CHV I 0 471, 121
  
1 0.0 CH_DUE I 0 411, 145
  
1 0.0 MAIN_DEBTOR I 0 411, 121
  
1 0.0 CPO_CASHPT I 0 171, 61
  
1 0.0 NUMRECS I -1 141, 97
$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
1 0.0 Work 15 I 0 171, 97
  
1 0.0 PAY_METH T -1 531, 181
  
1 0.0 Label 5 T -1 431, 493
  
1 0.0 Label 3 T -1 431, 457
  
1 0.0 Label 2 T -1 21, 181
  
1 0.0 Label 3 T -1 301, 181
  
1 0.0 Label 4 T -1 291, 25
  
1 0.0 Label 1 T 0 511, 49
  
1 0.0 Label 35 T -1 161, 229
  
1 0.0 Label 16 T -1 531, 109
  
1 0.0 Label 17 T 0 541, 49
  
1 0.0 Label 20 T 0 531, 49
  
1 0.0 Label 33 T -1 71, 229
  
1 0.0 Label 34 T -1 21, 229
  
1 0.0 Label 12 T -1 301, 121
  
1 0.0 Label 8 T -1 651, 49
  
1 0.0 Label 42 T -1 431, 421
  
1 0.0 Label 43 T -1 161, 421
  
1 0.0 Label 3 T -1 421, 229
  
1 0.0 Label 2 T -1 251, 49
  
1 0.0 Label 40 T 0 551, 49
  
1 0.0 Label 10 T -1 21, 457
  
1 0.0 Label 9 T -1 701, 49
  
1 0.0 Label 6 T -1 651, 25
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 DEBTOR_MAST DM_DEBTOR T -1 21, 121
  
1 0.0 Label 41 T -1 671, 229
  
1 0.0 Label 7 T -1 701, 25
  
1 0.0 Label 36 T -1 301, 229
  
1 0.0 Label 37 T -1 351, 229
  
1 0.0 Label 38 T -1 481, 229
  
1 0.0 Label 39 T -1 561, 229
  
1 0.0 Label 11 T -1 21, 145
  
1 0.0 Label 17 T -1 641, 457
  
1 0.0 Label 11 T -1 531, 145
  
1 0.0 Label 13 T -1 21, 97
  
1 0.0 Label 2 T -1 321, 73
  
1 1.0 Work 2 I -1 531, 457
$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
1 1.0 PAY_METH I -1 611, 181
$SELECT  S:PAYMENT_METHOD;I\PAY_METH;I\MARKET    $CALCULATE  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
1 1.0 TRCHG I -1 611, 145
$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(NOTA)   O:HIDE;T\TENDERED,I\AMT_TENDERED,T\CHANGE,I\CHANGE   U:PROV_SALES_VAL_MAN;CRED_LIM   I:I\CRIND;=;N   O:SETFOCUS;I\DM_DEBTOR2  DOEND(NOTA)    O:DISABLE
10 0.0 ZX_EXIT Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
''$UPDATE  '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)  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_PRINT Z 0 1, 25