Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_NAME_ENQ_MAN

BUYER NAME ENQUIRY. Type MAN, base table DEBTOR_MAST.

Field inventory

40

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 6 T -1 551, 277
  
1 0.0 Work 8 G -1 11, 301
  
1 0.0 Label 12 T -1 311, 49
  
1 0.0 Work 17 I 0 261, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    '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    
1 0.0 Label 5 T -1 11, 133
  
1 0.0 Label 11 T -1 291, 25
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 H -1 0, 30
  
1 0.0 Label 13 T -1 621, 25
  
1 0.0 Work 1 I 0 91, 301
  
1 0.0 Work 2 I 0 651, 301
  
1 0.0 CMD 1 Z -1 651, 546
$SELECT    '=====================================================================================================================================    'SAVE DATA TO THE CHARGE TRANS ET AL. TABLE FOR SECURE CASH BUYER  I:I\PAYMENT_METHOD;=;CS    'U:LOAD_DATA;SAVE_CHARGE_TRANS      'SAVE DATA TO THE CHARGE TRANS ET AL. TAB
1 0.0 Label 1 T -1 11, 169
  
1 0.0 Work 2 I -1 101, 169
  
1 0.0 Work 3 I -1 101, 193
  
1 0.0 Work 4 I -1 101, 217
  
1 0.0 Work 5 I -1 101, 241
  
1 0.0 Label 6 T -1 11, 241
  
1 0.0 Work 1 I 0 61, 73
  
1 0.0 Work 2 I 0 771, 301
  
1 0.0 Work 7 I 0 221, 49
$DEFAULT  '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  A:TIMER_ON;1000    'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT  'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER_CODE,I\BUYER_NAME,I\BUYER_CREDIT,W\DEL:H  U:ZZGRID_SP
1 0.0 Label 9 T -1 91, 277
  
1 0.0 Label 10 T -1 651, 277
  
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Label 14 T -1 671, 25
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 101, 133
$SELECT  I:I\ORGS;=;  S:DEBTOR;I\DM_DEBTOR    I:I\ORGS;<>;  S:DEBTOR_AGN;I\DM_DEBTOR;I\ORGS    $CALCULATE    M:    'VALIDATE DEBTOR   F:DEBTOR_MAST;Y;;;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\DM_DEBTOR$';I\DM_DEBTOR    'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT  U:ZZGRID_SPLIT;INIT_
1 0.0 CMD 1 C -1 201, 133
$SELECT  S:DEBTOR;I\DM_DEBTOR
1 0.0 Work 1 I 0 351, 301
  
1 0.0 Work 2 I 0 451, 301
  
1 0.0 Work 3 I 0 551, 301
  
1 0.0 Label 1 T -1 11, 277
  
1 0.0 Work 2 I 0 11, 301
  
1 0.0 Label 4 T -1 351, 277
  
1 0.0 Label 5 T -1 451, 277
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30