Freshmark replication server

freshmark-canonical

Program drill-down

WHS_PAYMNT_REPRINT

WHOLESALE PAYMENT REPRINTS. Type DSP, base table STK_TRANS.

Field inventory

23

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 1 T -1 1, 25
  
1 0.0 H -1 0, 0
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 91, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 RECEIPT_NO T -1 231, 121
  
1 0.0 CMD 11 C -1 441, 121
$SELECT  S:WHS_RECEIPT_NO;I\RECEIPT_NO  
1 0.0 ORGS I 0 31, 61
$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;<>;  DO(LMA)    A:VAR;I\ORGS;I\AGENT    O:DISABLEINPUT;I\AGENT,C\10    F:AGENT_MAST;;;T\NAME = AM_NAME;AM_CODE='$I\AGENT$'  DOEND(LMA)
1 0.0 RECEIPT_NO I -1 341, 121
$SELECT  S:WHS_RECEIPT_NO;I\RECEIPT_NO    $VALIDATE  M:  C:UCASE    F:DEBTOR_TRANS;Y;;;DT_TRNO='$I\RECEIPT_NO$';I\RECEIPT_NO    O:BACKCOLOR;C\CREATE;YELLOW  O:SETFOCUS;C\CREATE
1 0.0 MARKET I 0 11, 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    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1
1 0.0 CMD 16 C -1 301, 169
$SELECT    I:I\RECEIPT_NO;=;  D:RECEIPT NUMBER IS A MANDATORY FIELD;ERRORM;I\RECEIPT_NO      A:CONST;REPRINTING...;T\PROG  U:PRINT_WHOLESALE_PAYMENT_NOTE_REPRINT;RECEIPT_NOTE    A:CONST;REPRINT DONE;T\PROG  I:I\ORGS;=;  DO(DLC)    A:CONST;;I\RECEIPT_NO    O:SETFOCUS;I\RECEIPT_NO  DOEND(DLC)  
1 0.0 Label 17 T -1 281, 217
  
1 0.0 Label 19 T 0 11, 493
  
1 0.0 CMD 20 C 0 51, 505
  
1 0.0 Work 24 I 0 591, 517
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0