Freshmark replication server

freshmark-canonical

Program drill-down

AGN_BYR_STATEMENTS

AGENT BUYER STATEMENTS EL BUYER. Type DSP, base table STK_TRANS.

Field inventory

29

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 2 C -1 651, 541
$ESC  O:SETFOCUS;I\BUYER    $SELECT  I:I\SDATE;=;  D:PLEASE ENTER A START DATE;ERRORM;I\SDATE    I:I\EDATE;=;  D:PLEASE ENTER AN END DATE;ERRORM;I\EDATE    I:I\BUYER;=;  D:PLEASE ENTER A BUYER NUMBER;ERRORM;I\BUYER      I:I\DM_ALLOW_PRT;<>;Y  D:AGENT NOT SETUP TO PRINT BUYER STATEMENT FOR THIS BUYER;ERRORM;I\BUYER    I
1 0.0 H -1 0, 0
  
1 0.0 STK_TRANS ST_MARKET I 0 21, 49
$DEFAULT  'A:ORGS;;I\AGENT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'LOAD MARKET CODE  A:ORG;;I\ST_MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    A:ORGS;;I\AGENT    'I:I\AGENT;<>;  'D:AG
1 0.0 Work 1 I -1 361, 229
$SELECT  S:DEBTOR;I\BUYER    $CALCULATE  M:    F:DEBTOR_MAST;;;I\DM_BYR_AGENT=DM_BYR_AGENT,I\DM_ALLOW_PRT=DM_ALLOW_PRT_STATMENT,T\NAME=DM_NAME,I\TMP_TYPE=DM_ACCTYPE;DM_DEBTOR='$I\BUYER$';I\BUYER    I:I\DM_ALLOW_PRT;<>;Y  D:AGENT NOT SETUP TO PRINT BUYER STATEMENT FOR THIS BUYER;ERRORM;I\BUYER    I:I\DM_ALLOW_PRT;=;Y  D
1 0.0 START DATE I -1 361, 157
$CALCULATE  M:  'I:I\AGENT;<>;  'D:AGENTS ARE NOT ALLOWED TO RUN THIS SCREEN;ERRORM;I\SDATE    ''$BEFORE_WRITE  ''I:I\AGENT;<>;  ''D:AGENTS ARE NOT ALLOWED TO RUN THIS SCREEN;ERRORM;I\SDATE    ''I:I\BULK_EMAIL;=;N  ''U:BUYER_STATEMENTS;GET_DATA    ''I:I\BULK_EMAIL;=;Y
1 0.0 Work 1 I 0 41, 73
  
1 0.0 Work 1 I 0 41, 49
  
1 0.0 AGENT CODE I 0 31, 109
  
1 0.0 Work 4 I 0 561, 505
  
1 0.0 Work 1 I -1 361, 193
$CALCULATE  M:    
1 0.0 Label 3 T -1 471, 229
  
1 0.0 DATE T -1 681, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 MARKET T -1 1, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 3 T -1 291, 49
  
1 0.0 Label 2 T -1 261, 229
  
1 0.0 TIME T -1 681, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 1 T -1 311, 301
  
1 0.0 Label 2 T -1 261, 193
  
1 0.0 Label 12 T -1 261, 157
  
1 0.0 Work 1 I 0 431, 313
  
1 0.0 Work 2 I 0 431, 349
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE 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_PRINT Z 0 0, 0