Freshmark replication server

freshmark-canonical

Program drill-down

GRO_DEL_REPRINTS

REPRINT DEBIT AND CREDIT NOTES. Type DSP, 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 21 C 0 331, 145
$SELECT  I:I\AGENT;=;  S:CRED_NOTE;I\DOCNO    I:I\AGENT;<>;  S:CRED_NOTE_AGN;I\DOCNO;I\AGENT
1 0.0 Label 3 T -1 291, 49
  
1 0.0 Label 2 T -1 231, 289
  
1 0.0 H -1 0, 0
  
1 0.0 Work 8 I 0 161, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:DATE;DD MMM YYYY;I\TRDATE    A:CONST;N;I\REPRINT  A:CONST;Y;I\EMAIL
1 0.0 Work 9 I 0 181, 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    A:CONST;Y;I\CNOTE  
1 0.0 Work 10 I 0 201, 61
$DEFAULT  A:ORGS;;I\AGENT    I:I\AGENT;<>;  DO(CC4)    O:DISABLEINPUT;I\AGENT_CODE,C\AGN    A:VAR;I\AGENT;I\AGENT_CODE    F:AGENT_MAST;;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$';  DOEND(CC4)    I:I\AGENT;=;  O:ENABLEINPUT;I\AGENT_CODE,C\AGN  
1 0.0 Work 11 I 0 221, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 12 I 0 241, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Work 16 I -1 281, 145
$SELECT  S:AGENT_CODE;I\AGENT_CODE    $CALCULATE  C:UCASE  I:I\AGENT_CODE;<>;  DO(N32)    F:AGENT_MAST;Y;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT_CODE$'  DOEND(N32)    I:I\AGENT_CODE;=;  A:CONST;N/A;T\AGN_NAME
1 0.0 Work 17 I -1 281, 217
$VALIDATE    I:I\SUPPL;<>;  F:SUPPLIER_MAST;Y;;T\SUPPL_NAME=SUM_NAME;SUM_MARKET='$I\MARKET$' AND SUM_SUPPL='$I\SUPPL$';I\SUPPL    O:SETFOCUS;C\UPDATE  O:BACKCOLOR;C\UPDATE;YELLOW
1 0.0 Work 18 I -1 281, 181
$SELECT  I:I\AGENT;=;  S:CRED_NOTE;I\DOCNO    I:I\AGENT;<>;  S:CRED_NOTE_AGN;I\DOCNO;I\AGENT    $CALCULATE  M:  F:STK_TRANS;Y;;I\REPRINT=ST_DEBTOR,I\TRTYPE=ST_TRTYPE;ST_MARKET='$I\MARKET$' AND ST_AGENT='$I\AGENT_CODE$' AND ST_TAXINV='$I\TAXINV$' AND ST_TRTYPE='SA';I\TAXINV      
1 0.0 TRTYPE I 0 561, 145
  
1 0.0 Work 1 I 0 531, 409
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
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 7 T -1 371, 145
  
1 0.0 Label 14 T -1 171, 181
  
1 0.0 Label 15 T -1 171, 217
  
1 0.0 Label 13 T -1 171, 145
  
1 0.0 CMD 1 C -1 281, 253
$SELECT  A:CONST;IN PROGRESS...;T\PROG  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING2.EXE /PRINT=PRINT_GROW_CNOTE_BY_INVOICE;$I\MARKET$,$I\AGENT_CODE$,$I\TAXINV$,$I\SUPPL$,$I\REPRINT$,$I\EMAIL$,S    E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING2.EXE /PRINT=PRINT_GROW_DNOTE_BY_INVOICE;$I\MARKET$,$I\AGENT_CODE$,$I\TAXINV$,$I\SUPPL$
1 0.0 Work 1 I 0 21, 205
  
1 0.0 Work 2 I 0 51, 205
  
1 0.0 CMD 4 C -1 381, 217
  
1 0.0 Label 3 T -1 421, 217
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0