Freshmark replication server

freshmark-canonical

Program drill-down

MARKET_SALES_SUMM

MARKET SALES SUMMARY (NEW). Type DSP, base table STK_TRANS.

Field inventory

39

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 TIME T -1 671, 49
  
1 0.0 STK_TRANS ST_MARKET I 0 21, 49
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    I:I\DATE;=;  A:VAR;T\DATE;I\DATE    'I:I\DATE;=;  'A:VAR;T\DATE;I\DATEF;;DD MMM YYYY    A:DATE;DD MMM YYYY;I\DATEF  A:DATE;DD MMM YYYY;I\DATET    'LOAD MARKET CODE  A:ORG;;I\ST_MARKET    A:ORGS;;I\ORGS  A:VAR;I\ORGS;I\AGENT    I:I\AGENT;<
1 0.0 Work 2 I -1 371, 229
$VALIDATE    C:UCASE  I:I\DUMP;=;  A:CONST;N;I\DUMP  V:Y;N    
1 0.0 Label 3 T -1 451, 121
  
1 0.0 Label 2 T -1 211, 337
  
1 0.0 Label 3 T -1 291, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Work 2 I -1 371, 193
'$BEFORE_WRITE  'U:MARKET_SALES_SUMMARY;GET_DATA    $VALIDATE    I:I\DATET;=;  A:DATE;DD MMM YYYY;I\DATET    A:DATEDIFF;I\DATET;I\DATEDIFF;I\DATEF    I:I\DATEDIFF;<;0  D:END DATE CANNOT BE LESS THAN START DATE;ERRORM;I\DATET    A:VAR;I\DATET;I\DTE3;;YYYYMMDD  A:VAR;T\DATE;I\DTE2;;YYYYMMDD    I:I\DTE3;>;I\DTE2  D:CANNOT
1 0.0 Check 1 K -1 371, 337
$VALIDATE    I:I\ISSUB;=;1  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_MARKET_SALES_SUMM;$I\ST_MARKET$,$I\AGENT$,$I\DATEF$,$I\DATET$,$K\PAGE$,$I\AGENTTYPE$,S    I:I\ISSUB;<>;1  U:MARKET_SALES_SUMMARY;GET_DATA    I:I\ST_MARKET;<>;18  DO(NOT_18)    I:I\ORGS;<>;    DO(0)      O:SETFOCUS;I\DATEF      A:CONST;
1 0.0 Work 1 I 0 21, 73
  
1 0.0 Work 3 I 0 81, 409
  
1 0.0 Label 1 T -1 211, 229
  
1 0.0 DATE T -1 671, 25
  
1 0.0 H -1 0, 0
  
1 0.0 MARKET T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 START DATE I -1 371, 157
$VALIDATE  M:    I:I\DATEF;=;  A:DATE;DD MMM YYYY;I\DATEF    A:VAR;I\DATEF;I\DTE1;;YYYYMMDD  A:VAR;T\DATE;I\DTE2;;YYYYMMDD    I:I\DTE1;>;I\DTE2  D:CANNOT BE GREATER THAN TODAYS DATE;ERRORM;I\DATEF    '$CALCULATE  'A:VAR;I\DATEF;I\DATET    A:CONST;;K\PAGE  
1 0.0 Label 1 T -1 211, 193
  
1 0.0 Label 12 T -1 211, 157
  
1 0.0 Work 1 I 0 41, 49
  
1 0.0 Label 2 T -1 211, 301
  
1 0.0 Check 1 K -1 371, 301
  
1 0.0 Work 1 I -1 371, 121
$VALIDATE    I:I\AGENT;<>;  F:AGENT_MAST;;;T\AM_NAME=AM_NAME;AM_MARKET='$I\ST_MARKET$' AND AM_CODE='$I\AGENT$';I\AGENT  
1 0.0 CMD 4 C -1 411, 121
  
1 0.0 Work 5 I 0 61, 49
  
1 0.0 Label 2 T -1 211, 121
  
1 0.0 Work 1 I 0 101, 49
  
1 0.0 Label 2 T -1 310, 420
  
1 0.0 Work 1 I 0 51, 73
  
1 0.0 Label 1 T -1 211, 265
  
1 0.0 Work 2 I -1 371, 265
$VALIDATE    C:UCASE  I:I\AGENTTYPE;=;  A:CONST;A;I\DUMP  V:A;T;B  
1 0.0 Work 1 I 0 81, 385
  
1 0.0 Work 2 I 0 81, 433
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0