Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_MSG_DELETE

DELETE BUYER MESSAGE. Type DSP, base table BUYER_MSG.

Field inventory

26

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 5 T -1 291, 25
  
1 0.0 Label 6 T -1 291, 49
  
1 0.0 Label 7 T -1 1, 25
  
1 0.0 Label 8 T -1 191, 169
  
1 0.0 BM_DEBTOR I -1 321, 169
$SELECT  S:DEBTOR;I\DEBTOR    $VALIDATE    'PASSING PARAMETTERS  A:CONST;;T\BUYER,T\PROCESS  I:I\DEBTOR;<>;    DO(CHK)      F:DEBTOR_MAST;Y;DM_DEBTOR;T\BUYER=DM_NAME,I\ACCTYPE=DM_ACCTYPE;;I\DEBTOR      A:CONST;;I\DEBTOR_TYPE      A:CONST;;T\ACC_TYPE      O:DISABLEINPUT;I\DEBTOR_TYPE,C\TYPE      O:SETFOCUS;C\CREATE     
1 0.0 Label 1 T -1 621, 25
  
1 0.0 Label 2 T -1 621, 49
  
1 0.0 Label 3 T -1 671, 25
  
1 0.0 Label 4 T -1 671, 49
  
1 0.0 Work 5 I 0 111, 385
$DEFAULT  A:TIME,HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000      O:LOADPIC;$GBLROOT$LEGEND\PROJ_VER\PICS\NEW_TEXT_DOC.ICO;C\CREATE
1 0.0 Label 2 T -1 191, 217
  
1 0.0 Work 1 I -1 321, 217
$SELECT  S:BUYER_ACC;I\DEBTOR_TYPE  $VALIDATE  A:CONST;;T\ACC_TYPE  I:I\DEBTOR_TYPE;<>;  F:ACCOUNT_TYPE;Y;;T\ACC_TYPE=AT_DESC;AT_CODE='$I\DEBTOR_TYPE$';I\DEBTOR_TYPE  O:SETFOCUS;C\CREATE  O:BACKCOLOR;C\CREATE;YELLOW
1 0.0 Work 3 I 0 221, 385
  
1 0.0 CMD 3 C -1 651, 546
  $SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW      $SELECT  I:I\DEBTOR;<>;  DO(CHK2)  I:I\DEBTOR_TYPE;<>;   D:YOU CAN NOT ENTER BOTH BUYER AND BUYER TYPE;ERRORM;I\DEBTOR  DOEND(CHK2)      A:CONST;PROCESSING...;T\PROCESS  U:BUYER_MSG;DELETE_MSG  A:CONST;;I\DEBTOR,I\DEBTOR_TYPE,T\BUYER,T\ACC_TYPE,I\ACCTYPE  O:SETFOCUS;I\DEB
1 0.0 CMD 1 C -1 421, 169
$SELECT  S:DEBTOR;I\DEBTOR
1 0.0 CMD 4 C -1 421, 217
$SELECT  S:BUYER_ACC;I\DEBTOR_TYPE
1 0.0 Label 2 T -1 461, 169
  
1 0.0 Label 1 T -1 341, 301
  
1 0.0 Label 5 T -1 461, 217
  
1 0.0 Work 2 I 0 111, 361
  
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