Freshmark replication server

freshmark-canonical

Program drill-down

SALES_REFUND_PIN

SALES AND REFUND PIN MAN. Type DSP, base table TROLLEY_MAST.

Field inventory

34

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 15 C -1 321, 409
$SELECT  U:SALES_REFUND_PIN_UPDATE;UPDATE  A:CONST;;I\DEBTOR,I\DM_PINNO,I\CONFIRM_DM_PINNO,I\DM_REFUND_PIN,I\CONFIRM_REFUND_PIN  O:SETFOCUS;I\DEBTOR  
1 0.0 CMD 3 C -1 461, 193
$SELECT  S:DEBTOR;I\DEBTOR
1 0.0 H -1 0, 0
  
1 0.0 Work 11 I -1 361, 229
$VALIDATE    
1 0.0 Work 12 I -1 361, 265
$CALCULATE    I:I\DM_PINNO;<>;1SC2*  I:I\DM_PINNO;<>;  M:    I:I\CONFIRM_DM_PINNO;<>    DO(CHK)     I:I\DM_PINNO;<>;I\CONFIRM_DM_PINNO        D:PIN NUMBERS DO NOT MATCH - TRY AGAIN;ERRORM;I\CONFIRM_DM_PINNO    DOEND(CHK)    I:I\DM_PINNO;=;I\CONFIRM_DM_PINNO    DO(001)      U:DM_UPD_FUZZY;ENCRYPT_PIN      A:VAR;I\ENC_UN
1 0.0 Work 13 I 0 1, 85
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT    A:SETPWFIELD;I\DM_PINNO  A:SETPWFIELD;I\CONFIRM_DM_PINNO    A:SETPWFIELD;I\DM_REFUND_PIN  A:SETPWFIELD;I\CONFIRM_REFUND_PIN    
1 0.0 Work 14 I 0 1, 109
'DISPLAYING TIME  $DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\STDATE  A:DATE;DD MMM YYYY;I\EDATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 Work 2 I -1 361, 193
$SELECT  S:DEBTOR;I\DEBTOR  $VALIDATE  A:CONST;;T\PROG,T\BUYER  I:I\DEBTOR;<>;  F:DEBTOR_MAST;Y;DM_DEBTOR;T\BUYER=DM_NAME,I\ACCTYPE=DM_ACCTYPE,I\DM_PINNO_ENCR=DM_PINNO,I\DM_REFUND_PIN_ENCR=DM_REFUND_PIN;;I\DEBTOR
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 621, 25
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 7 T -1 271, 49
  
1 0.0 Label 8 T -1 211, 229
  
1 0.0 Label 9 T -1 211, 265
  
1 0.0 Label 10 T -1 311, 457
  
1 0.0 Label 1 T -1 211, 193
  
1 0.0 Label 4 T -1 491, 193
  
1 0.0 Label 1 T -1 211, 301
  
1 0.0 Label 2 T -1 211, 337
  
1 0.0 Work 3 I -1 361, 301
  
1 0.0 Work 4 I -1 361, 337
$CALCULATE    I:I\DM_PINNO;<>;1SC2*  I:I\DM_REFUND_PIN;<>;  M:  I:I\CONFIRM_REFUND_PIN;<>;    DO(CHK)     I:I\DM_REFUND_PIN;<>;I\CONFIRM_REFUND_PIN       D:PIN NUMBERS DO NOT MATCH - TRY AGAIN;ERRORM;I\CONFIRM_REFUND_PIN    DOEND(CHK)    I:I\DM_REFUND_PIN;=;I\CONFIRM_REFUND_PIN    DO(001)      U:DM_UPD_FUZZY;ENCRYPT_PI
1 0.0 Work 5 I 0 1, 133
  
1 0.0 Work 2 I 0 1, 373
  
1 0.0 Work 1 I 0 1, 157
  
1 0.0 Work 2 I 0 251, 157
  
1 0.0 Work 1 I 0 1, 397
  
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