Freshmark replication server

freshmark-canonical

Program drill-down

MONTHLY_SLS_LIST_EL

MONYHLY SALES LISTING. Type DSP, base table STK_DETS.

Field inventory

36

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 30
  
1 0.0 Label 1 T -1 1, 55
  
1 0.0 Label 2 T -1 291, 55
  
1 0.0 Label 3 T -1 201, 79
  
1 0.0 Label 4 T -1 671, 55
  
1 0.0 Label 5 T -1 621, 55
  
1 0.0 Label 6 T -1 671, 79
  
1 0.0 Label 7 T -1 621, 79
  
1 0.0 Label 8 T -1 191, 187
  
1 0.0 Label 9 T -1 191, 223
  
1 0.0 Label 10 T -1 191, 259
  
1 0.0 Label 11 T -1 191, 295
  
1 0.0 Work 12 I -1 301, 187
$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE    C:UCASE  I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT
1 0.0 Work 13 I -1 301, 217
$SELECT  S:PRODUCT;I\PROD    $CALCULATE  C:UCASE  I:I\PROD;<>;  DO(OPA)    A:LEN;I\PROD;W\LEN    A:LEFT;I\PROD,2;W\PROD    I:W\LEN;>;2    F:STK_DETS;Y;;;SD_ITEM = '$I\PROD$';;;  ITEM DOES NOT EXIST    I:W\LEN;<=;2    F:PRODUCT_MAST;Y;;T\PROD_DESC=PR_DESC;PR_PRODUCT='$W\PROD$';;;  PRODUCT DOES NOT EXIST  DOEND(OPA)
1 0.0 Work 14 I -1 301, 259
$VALIDATE    I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE
1 0.0 Work 15 I -1 301, 295
$VALIDATE    I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE      I:I\MARKET;=;17  DO(EL)   I:I\CM_ALLOW_MNTH_REPORT;<>;1     DO(CHK)       U:FIX_LOC_TRANS;REPORTS_TIME_CHECK;I\FROM_DATE,I\TO_DATE       I:I\ALLOW;=;N       DO(01)        O:SETFOCUS;I\AGENT      DOEND(01)    DOEND(CHK)  DOEND(EL)
1 0.0 Work 16 I 0 1, 61
$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_ALLOW_MNTH_REPORT=CM_ALLOW_MNTH_REPORT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;
1 0.0 Work 17 I 0 31, 91
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\FROM_DATE  A:DATE;DD MMM YYYY;I\TO_DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 Label 18 T -1 191, 331
  
1 0.0 CMD 19 C -1 241, 391
$SELECT    I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE      I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE      I:I\MARKET;=;17  DO(EL)   I:I\CM_ALLOW_MNTH_REPORT;<>;1     DO(CHK)       U:FIX_LOC_TRANS;REPORTS_TIME_CHECK;I\FROM_DATE,I\TO_DATE       I:I\ALLOW;=;N       DO(01)        O:SETFOCUS;I\AGENT      DOEND(01) 
1 0.0 Label 20 T -1 241, 415
  
1 0.0 Work 21 I -1 301, 331
$VALIDATE    C:UCASE      V:Y;N    O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW
1 0.0 Work 22 I 0 1, 337
  
1 0.0 Work 23 I 0 1, 361
  
1 0.0 CMD 25 C -1 401, 223
$SELECT  S:PRODUCT;I\PROD
1 0.0 Label 26 T -1 441, 187
  
1 0.0 Label 27 T -1 441, 223
  
1 0.0 CMD 24 C -1 401, 187
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 Work 29 I 0 1, 409
  
1 0.0 Work 28 I 0 1, 385
  
1 0.0 Work 30 I 0 1, 433
  
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
  
10 0.0 ZX_EXIT Z 0 0, 30