Freshmark replication server

freshmark-canonical

Program drill-down

UNPAID_LATE_SALES

UNPAID LATE SALES LISTING. 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 CMD 2 C -1 461, 145
$SELECT  S:AGENT_CODE;I\ORGS
1 0.0 CMD 1 C 0 651, 545
'$SCMD_FOCUS  'O:BACKCOLOR;C\CREATE;YELLOW      '$SELECT    '@A:VAR;I\D_DATE;I\D_DATE;;YYYY/MM/DD  'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_UNPAIDSALES;$I\MARKET$,$I\ORGS$,$I\CONSIGN$,$I\ITEM$,$I\BUYER$,$I\START_DATE$,$I\END_DATE$,S  'A:CONST;;I\BUYER,I\CONSIGN,I\ITEM    ''O:SETFOCUS;I\BUYER
1 0.0 CMD 10 C -1 461, 289
  $SELECT  S:ITEM_SEL;I\ITEM
1 0.0 CMD 3 C -1 461, 253
$SELECT  S:SECTION;I\SECT
1 0.0 CMD 8 C -1 461, 217
$SELECT  S:CONSIGN_NO_ENQ;I\CONSIGN;I\ORGS;I\MARKET
1 0.0 CMD 9 C -1 461, 181
$SELECT  S:DEBTOR;I\BUYER
1 0.0 H -1 0, 0
  
1 0.0 Work 1 I 0 181, 37
  
1 0.0 Work 3 I -1 351, 325
$VALIDATE  I:I\START_DATE;=;  A:VAR;T\DATE;I\START_DATE    $ESC  O:SETFOCUS;I\ITEM
1 0.0 Work 4 I -1 351, 361
$VALIDATE  I:I\END_DATE;=;  A:VAR;T\DATE;I\END_DATE    A:CONST;IN PROGRESS...;T\PROG  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_UNPAID_SALES_ENQ;$I\MARKET$,$I\AGENT$,$I\CONSIGN$,$I\ITEM$,$I\BUYER$,$I\START_DATE$,$I\END_DATE$,$I\SECT$,S  A:CONST;COMPLETE !!!;T\PROG    A:DATE;DD MMM YYYY;I\START_DATE  A:DA
1 0.0 Work 1 I -1 351, 145
$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE  A:CONST;;T\PROG  C:UCASE    I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT      O:SETFOCUS;I\BUYER
1 0.0 Work 3 I -1 351, 289
$SELECT  S:ITEM_SEL;I\ITEM    $VALIDATE  C:UCASE    O:SETFOCUS;I\START_DATE
1 0.0 Work 1 I -1 351, 253
$SELECT  S:SECTION;I\SECT    $VALIDATE  C:UCASE    I:I\SECT;<>;  F:SECT_MAST;Y;;;SE_SECT='$I\SECT$';I\SECT    O:SETFOCUS;I\ITEM
1 0.0 CONSIGN I -1 351, 217
$SELECT  S:CONSIGN_NO_ENQ;I\CONSIGN;I\ORGS;I\MARKET    $VALIDATE  I:I\CONSIGN;<>;  DO(LAA)    A:VAR;I\CONSIGN;I\CONSIGN;;00000000    F:STK_DETS;Y;;;SD_CONSIGN='$I\CONSIGN$' AND SD_AGENT='$I\ORGS$';I\CONSIGN  DOEND(LAA)    O:SETFOCUS;I\SECT
1 0.0 Work 1 I -1 351, 181
$SELECT  S:DEBTOR;I\BUYER    $CALCULATE  A:CONST;;T\PROG    C:UCASE  I:I\BUYER;<>;  F:DEBTOR_MAST;Y;;;DM_DEBTOR='$I\BUYER$';I\BUYER    
1 0.0 IND I 0 31, 97
  
1 0.0 MARKET I 0 141, 37
$DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE    'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS  A:USERID;;I\USER    'A:VAR;I\ORGS;I\AGENT    I:I\ORGS;<>;  DO(AGN)    O:DISABLEINPUT;I\AGENT,C\AGENT    O:SETFOCUS;I\BUYER  DOEND(AGN)    'LOAD MARKET  NAME 
1 0.0 Work 2 I 0 101, 85
  
1 0.0 Label 2 T -1 191, 361
  
1 0.0 Label 4 T -1 191, 181
  
1 0.0 Label 2 T -1 191, 145
  
1 0.0 Label 1 T -1 191, 325
  
1 0.0 Label 2 T -1 191, 253
  
1 0.0 Label 9 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 8 T -1 671, 49
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 3 T -1 291, 49
  
1 0.0 Label 5 T -1 191, 217
  
1 0.0 Label 6 T -1 191, 289
  
1 0.0 Label 1 T -1 291, 409
  
1 0.0 Label 2 T -1 501, 145
  
10 0.0 ZX_EXIT 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_SELECT Z 0 0, 0
  
10 4.0 ZX_PRINT Z 0 0, 0