Freshmark replication server

freshmark-canonical

Program drill-down

SUPP_WEEKLY_ANALYSIS

SUPPLIER WEEKLY ANALYSIS. Type DSP, base table TROLLEY_MAST.

Field inventory

35

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 14 C -1 331, 349
$SELECT  A:CONST;PROCESSING. . . .;T\PROG  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_SUPP_WEEKLY_ANALYSIS;$I\MARKET$,$I\AGENT$,$I\SUPPL$,$I\CONSIGN$,$I\ITEM$,$I\FROM_DATE$,$I\TO_DATE$,S  A:CONST;COMPLETE !!!;T\PROG  A:CONST;;I\AGENT,T\AM_NAME,I\SUPPL,T\SUM_NAME,I\CONSIGN,I\ITEM,T\DESC,I\PROD,I\VAR  A:DAT
1 0.0 H -1 0, 30
  
1 0.0 Work 10 I -1 331, 145
$SELECT  S:SUPPLIER;I\SUPPL    $VALIDATE  I:I\SUPPL;<>;  F:SUPPLIER_MAST;Y;;T\SUM_NAME=SUM_NAME;SUM_SUPPL='$I\SUPPL$';I\SUPPL  
1 0.0 Work 11 I -1 331, 217
$VALIDATE  I:I\ITEM;<>;  DO(ITM)    A:LEFT;I\ITEM,2;I\PROD    A:RIGHT;I\ITEM,2;I\VAR    F:VAR_MAST;Y;;T\DESC=VA_DESC;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I\VAR$';I\ITEM  DOEND(ITM)
1 0.0 Work 12 I 0 11, 97
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT
1 0.0 Work 13 I 0 11, 133
$DEFAULT    A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\FROM_DATE  A:DATE;DD MMM YYYY;I\TO_DATE  A:TIMER_ON;1000
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 621, 25
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 7 T -1 231, 145
  
1 0.0 Label 8 T -1 231, 217
  
1 0.0 Label 9 T -1 291, 385
  
1 0.0 Label 15 T -1 291, 49
  
1 0.0 Work 1 I -1 331, 181
$VALIDATE  I:I\CONSIGN;<>;  F:STK_DETS;Y;;I\CONSIGN=SD_CONSIGN;SD_CONSIGN='$I\CONSIGN$';I\CONSIGN
1 0.0 Work 2 I -1 331, 109
$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE  A:CONST;;T\PROG  M:  I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AM_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT
1 0.0 Work 3 I -1 331, 253
  
1 0.0 Work 4 I -1 331, 289
$VALIDATE  O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN
1 0.0 Label 5 T -1 231, 109
  
1 0.0 Label 6 T -1 231, 181
  
1 0.0 Label 7 T -1 231, 253
  
1 0.0 Label 8 T -1 231, 289
  
1 0.0 Label 9 T -1 411, 109
  
1 0.0 Label 10 T -1 441, 145
  
1 0.0 Label 11 T -1 441, 217
  
1 0.0 CMD 14 C -1 371, 109
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 Work 12 I 0 91, 97
  
1 0.0 Work 13 I 0 51, 97
  
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