Freshmark replication server

freshmark-canonical

Program drill-down

UNPAID_SALES_LIST

UNPAID SALES LISTING. Type DSP, base table STK_TRANS.

Field inventory

40

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 Work 1 I 0 181, 37
  
1 0.0 Label 2 T -1 191, 397
  
1 0.0 Work 3 I -1 351, 361
$VALIDATE  I:I\START_DATE;=;  A:VAR;T\DATE;I\START_DATE    $ESC  'O:SETFOCUS;I\ITEM  O:SETFOCUS;I\DUMP
1 0.0 Work 4 I -1 351, 397
$VALIDATE  I:I\END_DATE;=;  DO(01)  A:VAR;T\DATE;I\END_DATE  DOEND(01)      'D:  'O:ENABLEINPUT;C\CREATE  'O:BACKCOLOR;C\CREATE;YELLOW  'O:SETFOCUS;C\CREATE    ''I:I\USER;=;JUSTIN  ''DO(JA2)    I:I\BUYER;<>;    DO(LA1)      U:UNPAID_SLS_BUYER_CHK;CHECK      I:I\IND;=;N      D:NOTHING TO PRINT FOR $I\BUYER$;ERRORM;I\BUY
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\DUMP$,$I\START_DATE$,$I\END_DATE$,$I\DUMP$,S  'A:CONST;;I\BUYER,I\CONSIGN,I\ITEM    ''O:SETFOCUS;
1 0.0 Label 1 T -1 191, 325
  
1 0.0 Work 2 I -1 351, 325
$VALIDATE    C:UCASE    V:Y;N    O:SETFOCUS;I\START_DATE
1 0.0 H -1 0, 0
  
1 0.0 Label 4 T -1 191, 181
  
1 0.0 Work 1 I -1 351, 145
$SELECT  S:AGENT_CODE;I\ORGS    $VALIDATE  C:UCASE    I:I\ORGS;<>;  F:AGENT_MAST;Y;;T\AGENT1=AM_NAME;AM_CODE='$I\ORGS$';I\ORGS      O:SETFOCUS;I\BUYER
1 0.0 Label 2 T -1 191, 145
  
1 0.0 CMD 10 C -1 461, 289
  $SELECT  S:ITEM_SEL;I\ITEM
1 0.0 Label 1 T -1 191, 361
  
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 Label 2 T -1 191, 253
  
1 0.0 Work 1 I -1 351, 181
$SELECT  S:DEBTOR;I\BUYER    $CALCULATE  C:UCASE  I:I\BUYER;<>;  F:DEBTOR_MAST;Y;;;DM_DEBTOR='$I\BUYER$'
1 0.0 Label 9 T -1 1, 25
  
1 0.0 START_DATE I 0 221, 457
$DEFAULT  A:DATE;DD MMM YYYY;I\D_DATE;    '$CALCULATE  'A:VAR;I\C_DATE;I\C_DATE;;DD MMM YYYY  'A:VAR;I\D_DATE;I\D_DATE;;YYYY/MM/DD        'I:I\D_DATE;<;I\C_DATE   ' A:VAR;I\D_DATE;I\C_DATE;;DD MMM YYYY        'A:VAR;I\D_DATE;I\C_DATE;;YYYY/MM/DD  'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_AGENTS_TURNOVER
1 0.0 CMD 3 C -1 461, 253
$SELECT  S:SECTION;I\SECT
1 0.0 IND I 0 391, 109
  
1 0.0 Label 2 T -1 291, 25
  
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\AGENT;<>;  DO(AGN)  O:DISABLEINPUT;I\ORGS,C\AGENT  O:SETFOCUS;I\BUYER  DOEND(AGN)    'LOAD MARKET  NAME  F:CL
1 0.0 Label 8 T -1 671, 49
  
1 0.0 Label 7 T -1 621, 49
  
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 Label 6 T -1 671, 25
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 3 T -1 321, 49
  
1 0.0 Label 5 T -1 191, 217
  
1 0.0 Label 6 T -1 191, 289
  
1 0.0 Work 2 I 0 101, 85
  
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