Freshmark replication server

freshmark-canonical

Program drill-down

PALL_SALES

PALLET SALES. Type PRT, base table PALL_TRANS.

Field inventory

29

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 15 T -1 521, 289
  
1 0.0 H -1 0, 0
  
1 0.0 Work 17 I 0 1, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    '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    A:DATE;DD MMM YYYY;I\SDATE  A:DATE;DD MMM YYYY;I\EDATE    I
1 0.0 Work 16 I 0 21, 61
$DEFAULT  A:ORGS;;I\AGENT
1 0.0 Label 3 T -1 331, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 8 T -1 211, 217
  
1 0.0 Label 9 T -1 211, 253
  
1 0.0 Label 10 T -1 211, 289
  
1 0.0 Work 12 I -1 381, 253
$CALCULATE  M:
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 CMD 14 C -1 481, 289
$SELECT  S:PALLET;I\PALL
1 0.0 Work 11 I -1 381, 217
$CALCULATE  M:    $PRINT  I:I\SDATE;=;  D:PLEASE ENTER A STARTING DATE;ERRORM;I\SDATE    I:I\EDATE;=;  D:PLEASE ENTER AN ENDING DATE;ERRORM;I\EDATE    I:I\PALL;=;  D:PLEASE ENTER A PALLET TYPE;ERRORM;I\PALL    U:PALLET_SALES;RUN    A:CONST;;I\SDATE,I\EDATE,I\PALL  O:SETFOCUS;I\SDATE
1 0.0 Label 2 T -1 211, 325
  
1 0.0 Work 13 I -1 381, 289
$SELECT  S:PALLET;I\PALL    $CALCULATE  I:I\MARKET;<>;19  M:    I:I\PALL;<>;  DO(1)  C:UCASE    F:PALL_TYPE;Y;;T\DESC=PTP_DESC;PTP_TYPE = '$I\PALL$';I\PALL  DOEND(1)
1 0.0 Work 1 I -1 381, 325
$SELECT  I:I\PALL;=;  S:PALLET_CODE3;I\PALL_CODE    I:I\PALL;<>;  S:PALLET_CODE_PMB;I\PALL_CODE;I\PALL    $VALIDATE    C:UCASE  I:I\PALL;<>;  DO(01)  I:I\PALL_CODE;<>;  F:PALL_MAST;;;T\PALL_DESC=PM_DESC;PM_PALL = '$I\PALL_CODE$' AND PM_TYPE=$I\PALL$;I\PALL_CODE  I:T\PALL_DESC;=;  D:PALLET CODE $I\PALL_CODE$ DOES NOT BE
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 5 T -1 211, 361
  
1 0.0 Label 4 T -1 521, 325
  
1 0.0 CMD 3 C -1 481, 325
$SELECT  S:PALLET_CODE3;I\PALL_CODE
1 0.0 Work 6 I -1 381, 361
$VALIDATE  V:1;2;3
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