Freshmark replication server

freshmark-canonical

Program drill-down

CHEP_PALL_DEL_MAN

ALLOCATE PALLETS TO DELIVERIES. Type MAN, base table STK_DETS.

Field inventory

45

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 2 C -1 651, 547
$SELECT    '''U:ALLOC_PALL_TO_CONS;UPDATE_TABLES    'A:CONST;;I\SD_CONSIGN,I\SMAN,T\SMAN_NAME,I\PALL_CODE,T\PALL_DESC  'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\DELNO,I\PT_TRQTY,I\SUPPLIER,I\SUPP_NAME,I\DEL  O:SETFOCUS;I\SMAN  
1 0.0 Work 28 I -1 161, 289
$VALIDATE  O:SETFOCUS;I\DEL
1 0.0 Label 31 T -1 21, 265
  
1 0.0 Work 26 I -1 271, 181
$SELECT  'S:PALLET_CODE;I\PALL_CODE  LP10022010 ON CHRISTO'S REQUEST  S:PALL_POOL2;I\PALL_CODE;I\MARKET;I\ORGS;I\SECTION;I\ORGS      $CALCULATE  M:  C:UCASE  F:PALL_MAST;Y;;T\PALL_DESC=PM_DESC;PM_PALL='$I\PALL_CODE$';I\PALL_CODE    A:CONST;+;I\SEQ  O:SETFOCUS;I\SEQ                      
1 0.0 I -1 271, 145
$SELECT  S:CONS;I\SD_CONSIGN;I\MARKET;I\ORGS    $VALIDATE  M:    F:STK_DETS;;;Y;SD_MARKET = '$I\MARKET$' AND SD_CONSIGN = '$I\SD_CONSIGN$';
1 0.0 Work 7 I -1 271, 109
$VALIDATE  M:  F:SALESMAN_MAST;Y;;T\SMAN_NAME=SLS_NAME;SLS_CODE='$I\SMAN$';I\SMAN    U:MARKET_FUNCTIONS;CHECK_SECTION  I:I\ERROR;=;Y  D:USER $I\USERID$ IS NOT SETUP TO ACCESS SALESMAN $I\SMAN$;ERRORM;I\SMAN
1 0.0 Work 9 I -1 61, 289
$VALIDATE  F:STK_MAST;Y;;I\SUPPLIER=SM_SUPP;SM_DELNO='$I\DELNO$' AND SM_SMAN='$I\SMAN$';    F:SUPPLIER_MAST;Y;;I\SUPP_NAME=SUM_NAME;SUM_MARKET='$I\MARKET$' AND SUM_SUPPL='$I\SUPPLIER$';    A:CONST;N;I\DEL  
1 0.0 Work 4 I 0 41, 73
    
1 0.0 Work 5 I 0 81, 73
  
1 0.0 Label 35 T -1 161, 265
  
1 0.0 Label 11 T -1 291, 25
  
1 0.0 Label 12 T -1 251, 49
  
1 0.0 Label 13 T -1 621, 25
  
1 0.0 Label 14 T -1 671, 25
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 Label 22 T -1 361, 109
  
1 0.0 Work 3 I 0 101, 73
  
1 0.0 Label 1 T -1 361, 181
  
1 0.0 Label 36 T -1 161, 241
  
1 0.0 Label 38 T -1 361, 265
  
1 0.0 Label 8 T -1 61, 265
  
1 0.0 Label 2 T -1 261, 265
  
1 0.0 CMD 2 C -1 321, 109
  
1 0.0 Work 3 I -1 261, 289
  
1 0.0 H -1 0, 0
  
1 0.0 Label 33 T -1 171, 181
  
1 0.0 Work 6 I 0 61, 73
  
1 0.0 Label 1 T -1 171, 145
  
1 0.0 Label 39 T -1 681, 265
  
1 0.0 Work 2 I 0 21, 73
$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN    'A:ADD;"2";W\ZEROFILL;W\ZEROFILL    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET      A:ORGS;;I\ORGS      A:USERID;;I\USERID      A:USERIP;;I\IP    A:DAT
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Label 6 T -1 171, 109
  
1 0.0 CMD 17 C -1 371, 145
$SELECT  S:CONS;I\SD_CONSIGN;I\MARKET;I\ORGS
1 0.0 Work 24 G -1 21, 313
  
1 0.0 CMD 1 C -1 321, 181
$SELECT  'S:PALLET_CODE;I\PALL_CODE  LP10022010 ON CHRISTO'S REQUEST  S:PALL_POOL2;I\PALL_CODE;I\MARKET;I\ORGS;I\SECTION;I\ORGS
1 0.0 Work 1 I 0 121, 73
  
1 1.0 Work 30 I -1 681, 289
$CALCULATE  C:UCASE  V:Y;N    I:I\DEL;=;Y  DO(002)    'U:MANIPULATE_GRID;DELETE_RECORD;I\SEQ,G\GRID,I\SEQ    A:CONST;;I\SEQ,I\DELNO,I\PT_TRQTY,I\SUPPLIER,I\SUPP_NAME,I\DEL    O:SETFOCUS;I\SEQ  DOEND(002)    I:I\DEL;=;N  DO(GRT)    A:CONST;+;I\SEQ    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ        A:CONST;;I\DELNO,I\P
1 1.0 Work 29 I -1 361, 289
  
1 1.0 Work 25 I -1 21, 289
$CALCULATE    I:I\SEQ;<>;+  DO(TEE)    I:I\SEQ;<>;    U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ        I:I\SEQ;=;    O:DISABLEINPUT;I\DELNO,I\PT_TRQTY,I\SUPPLIER,I\SUPP_NAME,I\DEL          DOEND(TEE)    I:I\SEQ;=;+  DO(SAS)    A:CONST;;I\DELNO,I\PT_TRQTY,I\SUPPLIER,I\SUPP_NAME,I\DEL    O:ENABLEINPUT;I\DELNO,I\PT_TRQTY
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0