Freshmark replication server

freshmark-canonical

Program drill-down

UNPAID_SALES_SLS_SEC

UNPAID SALES LISTING BY SALES SECTION. Type PRT, base table STK_TRANS.

Field inventory

34

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 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 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    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 Work 1 I -1 351, 253
  $SELECT  'S:SECTION;I\SECTION    I:I\ORGS;<>;  S:SALES_SECTION_PRT;I\SECT;I\ORGS      I:I\ORGS;=;  S:SALES_SECTION_PRT_1;I\SECT      $VALIDATE  'M:    'ZEROFILL  'A:SUB;"2";I\DEL_LEN;I\DEL_LEN  'A:ZEROFILL;I\DELNO,I\DEL_LEN;I\DELNO  A:CONST;;T\SECT_DESC    C:UCASE        I:I\ORGS;<>;  DO(AGN)  I:I\SECT;<>;  F:SLSSECT
1 0.0 Label 2 T -1 191, 253
  
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        $SELECT  'S:SECTION;I\SECTION    I:I\ORGS;<>;  S:SALES_SECTION_PRT;I\SECT;I\ORGS      I:I\ORGS;=;  S:SALES_SECTION_PRT_1;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 231, 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
  
1 1.0 Work 1 I -1 351, 181
$SELECT  S:DEBTOR;I\BUYER    $CALCULATE  I:I\BUYER;<>;  F:DEBTOR_MAST;Y;;;DM_DEBTOR='$I\BUYER$'
1 2.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 3.0 Work 3 I -1 351, 289
$SELECT  S:ITEM_SEL;I\ITEM    $VALIDATE  C:UCASE    I:I\BUYER;<>;    DO(LA1)      U:UNPAID_SLS_BUYER_CHK;CHECK      I:I\IND;=;N      D:NOTHING TO PRINT FOR $I\BUYER$;ERRORM;I\BUYER    DOEND(LA1)      I:I\AGENT;<>;    DO(AGN1)      A:VAR;I\D_DATE;I\D_DATE;;YYYY/MM/DD  'Jer Del 14032012  '    E:$GBLROOT$LEGEND\PROJ_FMS\B
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