Freshmark replication server

freshmark-canonical

Program drill-down

DELETE_CHEP_DELIVERY

DELETE CHEP PALLET DELIVERIES. Type DSP, base table VAR_MAST.

Field inventory

50

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 2 I 0 231, 505
  
1 0.0 Label 1 T -1 311, 109
  
1 0.0 Work 2 I -1 251, 109
$VALIDATE  I:I\AGENT;<>;  F:AGENT_MAST;;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';
1 0.0 Work 3 I 0 401, 373
  
1 0.0 H -1 0, 0
  
1 0.0 Work 3 I 0 11, 337
  
1 0.0 I -1 251, 145
$SELECT  S:CONS;I\CONSIGN;I\MARKET;I\ORGS    $VALIDATE  M:  A:CONST;;T\PROG    F:PALL_DETS;Y;;I\PALL_CODE=PD_PALL,I\FDELDATE=PD_DATE;PD_MARKET = '$I\MARKET$' AND PD_CONSIGN = '$I\CONSIGN$';I\CONSIGN    F:PALL_MAST;Y;;T\PALL_DESC=PM_DESC;PM_PALL='$I\PALL_CODE$';    A:LEFT;I\CONSIGN,6;I\TMP_DELNO    F:STK_MAST;Y;;I\SMAN=
1 0.0 Work 1 I 0 31, 421
  
1 0.0 Work 7 I -1 251, 181
    
1 0.0 Work 1 I 0 400, 451
  
1 0.0 Work 19 I 0 581, 121
  
1 0.0 Work 5 I -1 251, 253
$CALCULATE    F:STK_MAST;;;I\TMP_AGENT=SM_AGENT,I\SUPP=SM_SUPP,I\TDELDATE=SM_DDATE,I\TMP_SMAN=SM_SMAN;SM_DELNO='$I\DELNO$';    I:I\TMP_AGENT;<>;I\AGENT  D:DELIVERY $I\DELNO$ IS NOT FOR THIS AGENT;ERRORM;I\DELNO    I:I\TMP_SMAN;<>;I\SMAN  D:DELIVERY $I\DELNO$ IS NOT FOR SALESMAN $I\SMAN$;ERRORM;I\DELNO    F:AUD_PALL_DET
1 0.0 Work 26 I -1 251, 217
                              
1 0.0 Label 1 T -1 141, 109
  
1 0.0 Label 3 T -1 141, 289
  
1 0.0 Label 4 T -1 311, 217
  
1 0.0 Label 2 T -1 141, 253
  
1 0.0 Work 2 I 0 11, 49
    
1 0.0 Work 3 I 0 81, 49
  
1 0.0 Work 4 I 0 21, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS      A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:VAR;T\DATE;I\DATE;;YYYY/MM/DD    '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 U
1 0.0 Work 5 I 0 61, 49
  
1 0.0 Work 6 I 0 41, 49
  
1 0.0 Label 6 T -1 141, 181
  
1 0.0 T -1 141, 145
  
1 0.0 Label 2 T 0 11, 337
  
1 0.0 Label 10 T -1 1, 25
  
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 Work 1 I 0 31, 397
  
1 0.0 Label 20 T -1 361, 253
  
1 0.0 Label 22 T -1 311, 181
  
1 0.0 Label 33 T -1 141, 217
  
1 0.0 Label 39 T -1 141, 325
  
1 0.0 Work 1 I -1 251, 289
  
1 0.0 CMD 1 C -1 651, 547
$SELECT    U:CHEP_DELIVEIES;DELETE_DELIVERY    A:CONST;N;I\DEL  A:CONST;DELIVERY DELETED SUCCESSFULLY !!!;T\PROG    I:I\ORGS;<>;  DO(0)    A:CONST;;I\CONSIGN,I\FDELDATE,I\SMAN,T\SMAN_NAME,I\PALL_CODE,T\PALL_DESC,I\DELNO    A:CONST;;I\TDELDATE,I\SUPP,T\SUPP_NAME,I\PALL_QTY,I\DEL,I\TMP_DATE,I\TMP_DELNO,I\TMP_SMAN        
1 0.0 Label 2 T -1 200, 403
  
1 0.0 Work 2 I 0 31, 373
  
1 0.0 Work 1 I 0 261, 505
  
1 0.0 Work 2 I 0 231, 481
  
1 0.0 Work 1 I 0 101, 49
  
1 1.0 Work 30 I -1 251, 325
$CALCULATE  C:UCASE    V:Y;N    I:I\DEL;<>;Y  D:ENTER Y TO DELETE;ERRORM;I\DEL    I:I\DEL;=;Y  O:SETFOCUS;C\UPDATE  O:BACKCOLOR;C\UPDATE;YELLOW  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
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