Freshmark replication server

freshmark-canonical

Program drill-down

PROV_SALES_VAL_MAN

PROFORMA SALES VALIDATE. Type DSP, base table DEBTOR_MAST.

Field inventory

80

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 201, 481
  
1 0.0 Work 6 I 0 111, 529
  
1 0.0 Work 5 I 0 141, 529
  
1 0.0 Work 4 I 0 171, 529
  
1 0.0 Work 3 I 0 81, 529
  
1 0.0 Work 2 I 0 51, 529
  
1 0.0 Label 1 T -1 601, 205
  
1 0.0 Work 21 G -1 1, 253
$GRID_VALIDATE  U:PROV_SALES_VAL_MAN;GRID_KEY_3    $GRID_ENTERCELL  U:PROV_SALES_VAL_MAN;GRID_KEY_4  
1 0.0 Work 23 I -1 1, 253
  
1 0.0 Work 10 I 0 11, 61
$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CONSIGN,I\AGENT,I\COMMODITY,I\QTY,I\PRICE,I\PALLS,I\VAT,I\VAL,I\DATE,I\BUYER_TYPE:H,I\BUYER,I\ROUNDED:H    'A:PARM;1;I\PARM    'REMOVE THIS=
1 0.0 Label 7 T -1 701, 25
  
1 0.0 CMD 2 C -1 261, 121
$SELECT  S:DEBTOR_PROV_SALES;I\DM_DEBTOR
1 0.0 H -1 1, 25
  
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 141, 121
$SELECT  I:I\ORGS;=;  S:DEBTOR_PROV_SALES;I\DM_DEBTOR    $VALIDATE  'MANDATORY  M:    'THIS FUNCTION CLEARS THE GRID  U:CLEARGRID;CLEAR;G\GRID    'CALL A FUNCTION THAT VALIDATES THE PREAMBLE    U:VALIDATE_PREAMBLE;VALIDATE;I\DM_DEBTOR,I\TMP4  I:I\TMP4;<>;1  D:INVALID PREAMBLE;ERRORM;I\DM_DEBTOR    'CHECK IF CODE EXISTS
1 0.0 DEBTOR_MAST DM_DEBTOR T -1 21, 121
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 4 T -1 291, 25
  
1 0.0 Label 6 T -1 651, 25
  
1 0.0 Label 9 T -1 701, 49
  
1 0.0 Label 8 T -1 651, 49
  
1 0.0 Work 24 I -1 141, 253
  
1 0.0 Label 10 T -1 1, 433
  
1 0.0 Work 8 I 0 51, 505
  
1 0.0 Work 9 I 0 111, 505
  
1 0.0 Work 11 I 0 41, 61
'TO LOAD MARKET NAME  $DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET
1 0.0 Label 12 T -1 301, 121
  
1 0.0 Work 1 I 0 71, 61
$DEFAULT  'LOAD AGENT CODE  A:ORGS;;I\ORGS    I:I\ORGS;<>;  O:HIDE;C\LOOK
1 0.0 Label 16 T -1 531, 109
  
1 0.0 Label 17 T -1 531, 145
  
1 0.0 Work 18 I -1 611, 109
  
1 0.0 Work 19 I -1 611, 145
  
1 0.0 Label 20 T -1 651, 145
  
1 0.0 Work 25 I -1 281, 253
  
1 0.0 Work 26 I -1 331, 253
  
1 0.0 Work 27 I -1 461, 253
  
1 0.0 Work 28 I -1 521, 253
  
1 0.0 Work 29 I -1 91, 253
  
1 0.0 Work 30 I -1 701, 253
  
1 0.0 Work 31 I -1 601, 253
  
1 0.0 Work 4 I 0 451, 529
  
1 0.0 Label 33 T -1 1, 229
  
1 0.0 Label 34 T -1 91, 229
  
1 0.0 Label 35 T -1 141, 229
  
1 0.0 Label 36 T -1 281, 229
  
1 0.0 Label 37 T -1 331, 229
  
1 0.0 Label 38 T -1 461, 229
  
1 0.0 Label 39 T -1 521, 229
  
1 0.0 Label 40 T -1 601, 229
  
1 0.0 Label 41 T -1 701, 229
  
1 0.0 Label 42 T -1 391, 457
  
1 0.0 Label 43 T -1 391, 493
  
1 0.0 Work 44 I -1 531, 457
  
1 0.0 Work 45 I -1 531, 493
$AFTER_READ  U:PROV_SALES_VAL_MAN;GRID_KEY_5  
1 0.0 Work 1 I 0 751, 145
  
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 41, 85
  
1 0.0 Work 1 I 0 231, 529
  
1 0.0 Work 1 I 0 261, 529
  
1 0.0 Work 1 I 0 291, 529
  
1 0.0 Work 2 I 0 321, 529
  
1 0.0 Work 3 I 0 351, 529
  
1 0.0 Work 2 I 0 81, 505
  
1 0.0 Work 1 I 0 111, 61
  
1 0.0 Work 1 I 0 651, 457
  
1 0.0 BUYER_TYPE I 0 201, 505
  
1 0.0 Label 3 T -1 401, 229
  
1 0.0 Work 4 I -1 401, 253
  
1 0.0 Work 2 I 0 171, 505
  
1 0.0 CMD 1 C -1 641, 421
$SELECT  U:CAPTURE_PAYMENTS;CAPTURE;G\GRID  O:SETFOCUS;G\GRID
1 0.0 Label 2 T -1 211, 49
  
1 0.0 Label 2 T -1 181, 49
  
1 0.0 Label 3 T -1 171, 49
  
1 0.0 Label 4 T -1 151, 49
  
1 0.0 Label 1 T -1 201, 49
  
10 0.0 ZX_PRINT Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
  
10 0.0 ZX_EXIT Z 0 1, 25