Freshmark replication server

freshmark-canonical

Program drill-down

STK_BAL_TO_FAX

STOCK BALANCES TO FAX. Type PRT, base table ADDR_TYPE.

Field inventory

26

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
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 291, 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 Label 8 T -1 261, 193
  
1 0.0 Work 9 I -1 381, 193
$CALCULATE  M:
1 0.0 Work 10 I 0 21, 61
$DEFAULT  '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 UPPER CASE  C:MCASE;;T\MARKET
1 0.0 Work 12 I 0 1, 61
$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:VAR;T\DATE;I\SELDATE  A:VAR;T\DATE;I\TODATE
1 0.0 Work 13 I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 14 I 0 41, 61
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 Work 15 I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Label 1 T -1 261, 229
  
1 0.0 Work 2 I -1 381, 229
  
1 0.0 Label 3 T -1 261, 265
  
1 0.0 Work 4 I -1 381, 265
$SELECT  S:SUPPLIER_CODE;I\SUPPL    $CALCULATE  I:I\SUPPL;<>;  DO(ALW)    A:VAR;I\SUPPL;I\SUPPL;;000000    F:SUPPLIER_MAST;Y;;T\SUPPLNAME=SUM_NAME;SUM_SUPPL=$I\SUPPL$;I\SUPPL  DOEND(ALW)
1 0.0 CMD 5 C -1 481, 265
$SELECT  S:SUPPLIER_CODE;I\SUPPL
1 0.0 Label 6 T -1 531, 265
  
10 0.0 ZX_PRINT Z 0 0, 0
$PRINT  I:I\ORGS;=;  DO(ALA)    D:ONLY AN AGENT MAY RUN THIS REPORT;ERRORM;I\SELDATE    A:CONST;;I\SELDATE  DOEND(ALA)    'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_SUPPL_SALES;$I\MARKET$,$I\SELDATE$,$I\TODATE$,$I\ORGS$,$I\SUPPL$,S  U:STOCK_BALANCES_TO_FAX
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