Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_PMT_TYPE_UPD

BUYER PMT TYPE UPDATE. Type DSP, base table DEBT_ADDR.

Field inventory

31

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 241, 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 MARKET I 0 11, 49
$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
1 0.0 RECNO T -1 231, 121
  
1 0.0 RECNO I -1 351, 121
$SELECT  S:RECNO3;I\RECNO    $CALCULATE  M:  C:UCASE  F:DEBTOR_TRANS;Y;;I\TYPE=DT_TRTYPE,I\BUYER=DT_DEBTOR,I\AMT=DT_TRVAL,I\REM=DT_REMARK,I\PAYMETH=DT_PAYMTHD,I\TMP_PAYMETH=DT_PAYMTHD;DT_MARKET='$I\MARKET$' AND DT_DOCNO='$I\RECNO$';I\RECNO  F:DEBTOR_MAST;;;T\BNAME=DM_NAME;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\BUYER$
1 0.0 CMD 11 C -1 451, 121
$SELECT  S:RECNO3;I\RECNO
1 0.0 BUYER T -1 231, 157
  
1 0.0 BNAME T -1 491, 157
  
1 0.0 BUYER I -1 351, 157
  
1 0.0 Label 15 T -1 231, 193
  
1 0.0 AMT I -1 351, 193
  
1 0.0 Label 17 T -1 231, 229
  
1 0.0 REM I -1 351, 229
  
1 0.0 Label 19 T -1 231, 265
  
1 0.0 CMD 20 C -1 401, 265
$SELECT  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET
1 0.0 Work 21 I -1 351, 265
$SELECT  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET    $CALCULATE  M:  F:CASH_PAYMTHD;Y;;T\PMTD=CPM_DESC;;I\PAYMETH    I:I\PAYMETH;=;I\TMP_PAYMETH  D:THAT IS THE SAME AS THE PREVIOUS PAY METHOD!;ERRORM;I\PAYMETH    O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE      
1 0.0 Label 22 T -1 491, 265
  
1 0.0 CMD 23 C -1 331, 313
$SELECT    F:DEBTOR_TRANS;Y;;;DT_MARKET='$I\MARKET$' AND DT_DOCNO='$I\RECNO$';I\RECNO    F:CASH_PAYMTHD;Y;;T\PMTD=CPM_DESC;;I\PAYMETH    I:I\PAYMETH;=;I\TMP_PAYMETH  D:THAT IS THE SAME AS THE PREVIOUS PAY METHOD!;ERRORM;I\PAYMETH    U:BUYER_PMTH_UPD;UPDATE  A:CONST;;I\RECNO,I\TYPE,I\BUYER,T\BNAME,I\AMT,I\REM,I\PAYMETH,
1 0.0 TMP_PAYMETH I 0 431, 265
  
1 0.0 Work 25 I 0 491, 121
  
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