Freshmark replication server

freshmark-canonical

Program drill-down

REPRINT_BUY_DKTS

REPRINT BUYERS DOCKETS. Type DSP, base table STK_TRANS.

Field inventory

38

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 286, 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 Work 8 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 TRTYPE I -1 351, 205
$SELECT  S:TRANSACTION_TYPE1;I\TRTYPE    $CALCULATE  M:  C:UCASE    F:CASH_TRN_TYPE;Y;;T\TRDESC=CTT_DESC;CTT_TRTYPE='$I\TRTYPE$';I\TRTYPE
1 0.0 Work 9 I 0 41, 61
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 Work 10 I 0 1, 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\FDATE  A:DATE;DD MMM YYYY;I\TDATE  A:CONST;1;I\COPIES    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE
1 0.0 DEBTOR I -1 351, 241
$SELECT  S:DEBTOR_TRANS_TYPE;I\DEBTOR;I\TRTYPE    $CALCULATE    I:I\DEBTOR;<>;  F:DEBTOR_MAST;Y;;T\NAME=DM_NAME;DM_DEBTOR='$I\DEBTOR$';I\DEBTOR
1 0.0 Work 11 I 0 61, 61
$DEFAULT  A:USERID;;I\USERID    'GETS CASHIER AND CHECK IF CASHIER IS BLOCKED  A:VAR;I\USERID;I\CASHIER  F:CASH_MAST;;;I\CASHIER=CSH_CASHIER;CSH_CASHIER='$I\CASHIER$' AND CSH_MARKET='$I\MARKET$'    I:I\CASHIER;=;  D:THIS USER IS NOT A CASHIER;ERRORM;I\TRTYPE
1 0.0 Work 12 I 0 81, 61
$DEFAULT  A:USERIP;;I\IP    'GETS CASH POINT  F:CASH_POINT;;;I\CASHPNT=CPO_CASHPT;CPO_IP='$I\IP$' AND CPO_MARKET='$I\MARKET$';
1 0.0 Work 13 I 0 691, 85
$DEFAULT  A:PARM;1;I\PARM    ''''A:CONST;REC;I\PARM    I:I\PARM;=;REF  DO(PRZ)    O:HIDE;T\RECNO,I\RECNO,C\2    O:SHOW;T\REFNO,I\REFNO,C\1  DOEND(PRZ)    I:I\PARM;=;REC  DO(ALS)    O:HIDE;T\REFNO,I\REFNO,C\1    O:SHOW;T\RECNO,I\RECNO,C\2    DOEND(ALS)
1 0.0 Label 14 T -1 231, 277
  
1 0.0 CMD 15 C -1 451, 277
$SELECT  I:I\DEBTOR;=;  S:REFNO;I\REFNO;I\TRTYPE    I:I\DEBTOR;<>;  S:REFNO1;I\REFNO;I\TRTYPE;I\DEBTOR
1 0.0 Work 16 I -1 351, 277
$SELECT  I:I\DEBTOR;=;  S:REFNO;I\REFNO;I\TRTYPE    I:I\DEBTOR;<>;  S:REFNO1;I\REFNO;I\TRTYPE;I\DEBTOR    $CALCULATE  M:    I:I\DEBTOR;=;  F:DEBTOR_TRANS;Y;;;DT_MARKET='$I\MARKET$' AND DT_REFNO='$I\REFNO$'    I:I\DEBTOR;<>;  F:DEBTOR_TRANS;Y;;;DT_MARKET='$I\MARKET$' AND DT_DEBTOR='$I\DEBTOR$' AND DT_REFNO='$I\REFNO$'  
1 0.0 CMD 17 C -1 651, 541
$ESC  I:I\PARM;=;REF  O:SETFOCUS;I\REFNO    I:I\PARM;=;REC  O:SETFOCUS;I\RECNO    $SELECT  U:REPRINT_BUYERS_DOCKETS;PRINT    A:CONST;;I\REFNO,I\RECNO,I\DEBTOR,I\TRTYPE,T\TRDESC,T\NAME  O:SETFOCUS;I\TRTYPE    A:CONST;1;I\COPIES    'I:I\PARM;=;REC  'O:SETFOCUS;I\RECNO    'I:I\PARM;=;REF  'O:SETFOCUS;I\REFNO
1 0.0 Label 4 T -1 231, 241
  
1 0.0 Label 18 T -1 231, 277
  
1 0.0 CMD 19 C -1 451, 277
$SELECT  I:I\DEBTOR;=;  S:RECNO1;I\RECNO;I\TRTYPE    I:I\DEBTOR;<>;  S:RECNO2;I\RECNO;I\TRTYPE;I\DEBTOR
1 0.0 Label 2 T -1 231, 313
  
1 0.0 Work 20 I -1 351, 277
$SELECT  I:I\DEBTOR;=;  S:RECNO1;I\RECNO;I\TRTYPE    I:I\DEBTOR;<>;  S:RECNO2;I\RECNO;I\TRTYPE;I\DEBTOR    $CALCULATE  M:    'I:I\MARKET;=;19  'F:DEBTOR_TRANS;Y;;;DT_MARKET='$I\MARKET$' AND DT_TAXINV='$I\RECNO$'    'I:I\MARKET;<>;19  F:DEBTOR_TRANS;Y;;;DT_MARKET='$I\MARKET$' AND DT_DOCNO='$I\RECNO$'    O:SETFOCUS;C\UPD
1 0.0 Work 21 I 0 711, 85
  
1 0.0 Label 2 T -1 231, 205
  
1 0.0 Label 9 T -1 491, 241
  
1 0.0 CMD 10 C -1 451, 241
  
1 0.0 Label 11 T -1 491, 205
  
1 0.0 CMD 12 C -1 451, 205
$SELECT  S:TRANSACTION_TYPE1;I\TRTYPE
1 0.0 COPIES I -1 351, 313
$CALCULATE    I:I\COPIES;=;  A:CONST;1;I\COPIES    O:SETFOCUS;C\UPDATE  O:BACKCOLOR;C\UPDATE;YELLOW
1 0.0 CASHPNT I 0 101, 61
  
10 0.0 ZX_PRINT Z 0 0, 0
  
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