Freshmark replication server

freshmark-canonical

Program drill-down

PALL_POOL_SLS

PALLET POOL SALES. Type DSP, base table PALL_POOL.

Field inventory

31

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 1 T -1 211, 157
  
1 0.0 SECT I -1 321, 193
$SELECT  I:I\AGENT;<>;  S:SLS_SECT_PROPER;I\SECT;I\AGENT    I:I\AGENT;=;  S:SLS_SECT_PROPER2;I\SECT    $CALCULATE  C:UCASE    I:I\AGENT;=;  DO(C33)    I:I\SECT;<>;    F:SLSSECT_ACCESS;Y;;;SS_SECT='$I\SECT$';I\SECT  DOEND(C33)    I:I\AGENT;<>;  DO(B3C)    I:I\SECT;<>;      F:SLSSECT_ACCESS;Y;;;SS_SECT='$I\SECT$' AND SS_
1 0.0 Work 3 I -1 321, 157
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  C:UCASE  F:AGENT_MAST;;;T\NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT
1 0.0 CMD 2 C -1 421, 157
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 311, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Work 8 I 0 81, 61
  
1 0.0 Work 9 I 0 61, 61
  
1 0.0 Work 10 I 0 41, 61
  
1 0.0 Work 11 I 0 21, 61
$DEFAULT  '===MARKET===================================================================================================================================================  '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 UPP
1 0.0 Work 12 I 0 1, 61
$DEFAULT  '===TIME===================================================================================================================================================  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:DATE;DD MMM YYYY;I\FDATE  A:DATE;DD MMM YYYY;I\TDATE    '===AGENT================
1 0.0 CMD 7 C -1 421, 193
$SELECT  I:I\AGENT;<>;  S:SLS_SECT_PROPER;I\SECT;I\AGENT    I:I\AGENT;=;  S:SLS_SECT_PROPER2;I\SECT
1 0.0 Label 9 T -1 211, 229
  
1 0.0 Work 10 I -1 321, 229
  
1 0.0 Label 11 T -1 211, 265
  
1 0.0 TDATE I -1 321, 265
$CALCULATE    O:BACKCOLOR;C\PRINT;YELLOW  O:SETFOCUS;C\PRINT
1 0.0 Label 4 T -1 461, 157
  
1 0.0 Label 5 T -1 211, 193
  
1 0.0 CMD 1 C -1 311, 337
$SELECT  I:I\FDATE;=;  D:PLEASE SPECIFY START DATE;ERRORM;I\FDATE    I:I\TDATE;=;  D:PLEASE SPECIFY END DATE;ERRORM;I\FDATE    I:I\ORGS;<>;  DO(COA)    I:I\AGENT;<>;I\ORGS    DO(A4S)      A:CONST;;I\AGENT,T\NAME      D:AGENT LOGIN AND SELECT DO NOT MATCH!;ERRORM;I\AGENT    DOEND(A4S)  DOEND(COA)    A:CONST;IN PROGRESS;
1 0.0 Label 13 T -1 321, 373
  
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