Freshmark replication server

freshmark-canonical

Program drill-down

SLS_TRANS_BY_INV

SALES TRANSACTIONS BY TAX INVOICE. Type DSP, base table STK_TRANS.

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 271, 289
  
1 0.0 Work 3 I 0 31, 163
  
1 0.0 DATE I -1 331, 145
$VALIDATE  I:I\FDATE;=;  A:DATE;DD MMM YYYY;I\FDATE    I:I\FDATE;<>;  A:CONST;;T\PROG  A:VAR;I\FDATE;W\FDATE;;YYYY/MM/DD  A:DATEDIFF;W\FRMDATE;I\DATEDIFF;I\FDATE  I:I\DATEDIFF;<;0  D:FROM DATE CANNOT BE LATER THAN TODAY'S DATE;ERRORM;I\FDATE      
1 0.0 Label 2 T -1 231, 145
  
1 0.0 Work 4 I 0 101, 115
  
1 0.0 Label 8 T -1 671, 49
  
1 0.0 Label 9 T -1 1, 25
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 3 T -1 251, 49
  
1 0.0 MARKET I 0 31, 115
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\AGENT    '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    A:DATE;DD MMM YYYY;I\FDATE  A:DATE;DD MMM YYYY;I\TDATE  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_O
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Work 2 I -1 331, 181
$VALIDATE  I:I\TDATE;=;  A:DATE;DD MMM YYYY;I\TDATE  A:DATEDIFF;I\TDATE;I\DATEDIFF;I\FDATE  I:I\DATEDIFF;<;0  D:TO DATE CANNOT BE LESS THAN FROM DATE;ERRORM;I\TDATE    I:I\TDATE;<>;  A:VAR;I\TDATE;W\TDATE;;YYYY/MM/DD  A:DATEDIFF;W\FRMDATE;I\DATEDIFF;I\TDATE  I:I\DATEDIFF;<;0  D:TO DATE CANNOT BE LATER THAN TODAY'S DATE
1 0.0 CMD 1 C -1 331, 253
$SCMD_FOCUS  O:BACKCOLOR;C\RUN;YELLOW    $SELECT  C:UCASE  I:I\INVOICE;<>;  F:STK_TRANS;Y;;ST_TAXINV;ST_MARKET='$I\MARKET$' AND ST_TAXINV='$I\INVOICE$';I\INVOICE    I:I\FDATE;=;  A:DATE;DD MMM YYYY;I\FDATE  I:I\TDATE;=;  A:DATE;DD MMM YYYY;I\FDATE    I:I\FDATE;<>;  A:DATEDIFF;W\FRMDATE;I\DATEDIFF;I\FDATE  I:I\DATEDIFF;
1 0.0 Label 1 T -1 231, 181
  
1 0.0 H -1 0, 30
  
1 0.0 Work 1 I 0 81, 163
$DEFAULT  A:DATE;DD MMM YYYY;W\FRMDATE
1 0.0 T 0 681, 121
  
1 0.0 Label 2 T -1 231, 217
  
1 0.0 Work 3 I 0 681, 121
$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE  C:UCASE  I:I\AGENT;=;  A:CONST;;T\PROG    I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT
1 0.0 Work 4 I -1 331, 217
$SELECT  S:CASHIER_CODE;I\CASHIER    $VALIDATE  C:UCASE  I:I\INVOICE;<>;  DO(1)  F:STK_TRANS;Y;;ST_TAXINV;ST_MARKET='$I\MARKET$' AND ST_TAXINV='$I\INVOICE$' ;I\INVOICE  DOEND(1)    O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW
1 0.0 Label 7 T 0 681, 121
  
1 0.0 CMD 5 C 0 701, 121
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 Work 1 I 0 31, 205
  
1 0.0 Work 2 I 0 31, 229
  
10 0.0 ZX_EXIT Z 0 0, 30
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30