Freshmark replication server

freshmark-canonical

Program drill-down

ALLOW_PRT_BYR_STAT

ENABLE PRINTING OF BUYER STATEMENT. Type MAN, base table DEBTOR_MAST.

Field inventory

25

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 3, 25
  
1 0.0 Label 2 T -1 350, 25
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 4 T -1 621, 49
  
1 0.0 Label 5 T -1 351, 49
  
1 0.0 Label 6 T -1 191, 157
  
1 0.0 Label 7 T -1 191, 121
  
1 0.0 DEBTOR_MAST DM_MARKET I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\DM_MARKET  A:ORGS;;I\ORGS    A:VAR;I\ORGS;I\DM_BYR_AGENT    I:I\DM_BYR_AGENT;<>;  DO(01)    O:DISABLEINPUT;I\DM_BYR_AGENT,C\AGENT    F:AGENT_MAST;Y;;T\AM_NAME=AM_NAME;AM_CODE='$I\DM_BYR_AGENT$';I\DM_BYR_AGENT    O:SETFOCUS;I\DM_DEBTOR  DOEND(01)    'LOAD MARKET  NAME  F:CLIENT_MAST
1 0.0 Work 11 I 0 31, 61
  
1 0.0 DEBTOR_MAST DM_BYR_AGENT I -1 321, 157
$SELECT  'DISPLAY SELECTION WINDOW  S:AGENT_CODE;I\DM_BYR_AGENT    $VALIDATE  C:UCASE  M:  I:I\DM_BYR_AGENT;<>;  F:AGENT_MAST;Y;;T\AM_NAME=AM_NAME;AM_CODE='$I\DM_BYR_AGENT$';I\DM_BYR_AGENT
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 321, 121
$SELECT  S:DEBTOR;I\DM_DEBTOR    $VALIDATE  C:UCASE  M:  I:I\DM_DEBTOR;<>;  F:DEBTOR_MAST;Y;;T\DM_NAME=DM_NAME;DM_DEBTOR='$I\DM_DEBTOR$';I\DM_DEBTOR    $AFTER_READ  I:I\ORGS;<>;  A:VAR;I\ORGS;I\DM_BYR_AGENT    
1 0.0 T -1 411, 157
  
1 0.0 DEBTOR_MAST DM_NAME T -1 461, 121
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 Label 17 T -1 671, 25
  
1 0.0 DEBTOR_MAST DM_ALLOW_PRT_STATMENT I -1 321, 193
$VALIDATE  C:UCASE  V:Y;N
1 0.0 CMD 19 C -1 371, 157
$SELECT  'DISPLAY SELECTION WINDOW  S:AGENT_CODE;I\DM_BYR_AGENT
1 0.0 CMD 20 C -1 421, 121
$SELECT  S:DEBTOR;I\DM_DEBTOR
1 0.0 Label 21 T -1 191, 193
  
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