Freshmark replication server

freshmark-canonical

Program drill-down

PROV_SALE_ALLOCATE

PROFORMA SALES ALLOCATION ENTRY/MAN. Type MAN, base table AGENT_MAST.

Field inventory

65

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 AGENT_MAST AM_DEBTOR I -1 111, 193
  
1 0.0 ST_DEBTOR T -1 11, 193
  
1 0.0 Label 10 T -1 351, 157
  
1 0.0 Label 11 T -1 231, 121
  
1 0.0 BG_CODE I -1 411, 157
  
1 0.0 Work 14 G -1 11, 265
$GRID_LEAVECELL    'U:WRITE_PROV_ALLOCATE;YEAH    U:PROV_SALE_ALLOCATE;GRID_KEY_3  I:I\TMP9;=;N  D:AGENTS BUYER CODE CREDIT LIMIT EXCEEDED;ERRORM;G\GRID    'CHECK IF VALUE = 'Y'  U:PROV_SALE_ALLOCATE;CHECK_VALUE;G\GRID        $GRID_ENTERCELL  U:PROV_SALE_ALLOCATE;GRID_KEY_4  
1 0.0 Work 3 I 0 91, 559
  
1 0.0 Label 15 T -1 11, 241
  
1 0.0 Work 1 I 0 251, 559
  
1 0.0 Work 2 I 0 231, 559
  
1 0.0 Work 3 I 0 211, 559
  
1 0.0 H -1 0, 60
  
1 0.0 AGENT_MAST AM_CODE I -1 111, 121
$SELECT  'DISPLAY A SELECTION WINDOW  S:AGENT_PROV_SALES;I\AM_CODE;I\MARKET      $VALIDATE  'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE      'MAKE SURE THAT AGENT CODE IS VALID  F:AGENT_MAST;Y;;T\AGENT=AM_NAME,I\AM_DEBTOR=AM_DEBTOR;AM_CODE='$I\AM_CODE$';I\AM_CODE    A:CONST;;W\DEBTOR  F:DEBTOR_MAST
1 0.0 ST_AGENT T -1 11, 121
  
1 0.0 DM_VATNO I -1 111, 157
  
1 0.0 Label 7 T -1 11, 157
  
1 0.0 CMD 8 C -1 191, 121
$SELECT  'DISPLAY A SELECTION WINDOW  S:AGENT_PROV_SALES;I\AM_CODE;I\MARKET  
1 0.0 Label 12 T -1 291, 25
  
1 0.0 Label 13 T -1 1, 25
  
1 0.0 Label 16 T -1 81, 241
  
1 0.0 Label 17 T -1 181, 241
  
1 0.0 Label 18 T -1 331, 241
  
1 0.0 Label 19 T -1 371, 241
  
1 0.0 Label 20 T -1 451, 241
  
1 0.0 Label 21 T -1 551, 241
  
1 0.0 Label 22 T -1 651, 241
  
1 0.0 Label 23 T -1 741, 241
  
1 0.0 MARKET I 0 101, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET          'GETS USERID   A:USERID;;W\USERID    'GETS USER'S IP ADDRESS  F:ZU_USER;;;W\USER_IP=ZU_LOCAL_IP;ZU_USERID='$W\USERID$'    'GE
1 0.0 Work 25 I 0 11, 49
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:CONST;PS;I\PS    'INITIALIZE AND LOAD THE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\ST_DEBTOR,I\ST_CONSIGN,I\DOCNO:H,I\COMM,I\ST_TRQTY,I\ST_TRPRICE,I\ST_TRVAT,I\VALUE,I\ST_PSVALDTE,I\ALLOCATE  O:CAPTION_UPD;ALLOCATE  
1 0.0 Label 26 T -1 621, 25
  
1 0.0 Label 27 T -1 671, 49
  
1 0.0 Label 28 T -1 621, 49
  
1 0.0 Label 29 T -1 671, 25
  
1 0.0 ST_DEBTOR I 0 11, 265
  
1 0.0 ST_CONSIGN I 0 81, 265
  
1 0.0 Work 32 I 0 181, 265
  
1 0.0 ST_TRQTY I 0 331, 265
  
1 0.0 ST_TRPRICE I 0 371, 265
  
1 0.0 ST_TRVAT I 0 451, 265
  
1 0.0 Work 36 I 0 551, 265
  
1 0.0 ST_PSVALDTE I 0 651, 265
  
1 0.0 Work 38 I 0 741, 265
  
1 0.0 Work 39 I -1 541, 493
  $AFTER_WRITE    ''PROV_SALE_ALLOCATE;WRITE_VALUES;G\GRID,I\MARKET,I\AM_CODE,I\ST_DEBTOR,I\ST_CONSIGN,T\DATE,I\USER,I\AM_DEBTOR  U:WRITE_PROV_ALLOCATE;WRITE_VALUES;G\GRID,I\MARKET,I\AM_CODE,I\ST_DEBTOR,I\ST_CONSIGN,T\DATE,I\USER,I\AM_DEBTOR
1 0.0 Work 40 I -1 541, 457
  
1 0.0 Label 41 T -1 421, 457
  
1 0.0 Label 42 T -1 421, 493
  
1 0.0 Label 43 T -1 221, 49
  
1 0.0 Label 44 T -1 481, 157
  
1 0.0 Work 45 I 0 1, 559
  
1 0.0 Work 46 I 0 21, 559
  
1 0.0 Label 47 T -1 201, 193
  
1 0.0 Work 1 I 0 181, 559
  
1 0.0 Work 2 I 0 151, 559
  
1 0.0 Label 1 T -1 11, 445
  
1 0.0 DEBTOR I 0 271, 553
  
1 0.0 Work 2 I 0 51, 559
  
1 0.0 TMP9 I 0 111, 559
  
1 0.0 Work 1 I 0 81, 49
  
1 0.0 IP ADDRESS I 0 291, 553
  
1 0.0 DOCNO I -1 181, 301
  
10 0.0 ZX_PRINT Z 0 0, 60
  
10 0.0 ZX_SELECT Z 0 0, 60
  
10 0.0 ZX_DELETE Z 0 0, 60
  
10 0.0 ZX_UPDATE Z 0 0, 60
  
10 0.0 ZX_EXIT Z 0 0, 60