Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_SEARCH

BUYER SEARCH. Type DSP, base table DEBTOR_MAST.

Field inventory

47

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 291, 25
  
1 0.0 Label 2 T -1 321, 49
  
1 0.0 Label 3 T -1 621, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 49
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 7 T -1 1, 25
  
1 0.0 Label 8 T -1 211, 85
  
1 0.0 Work 9 I -1 361, 85
$VALIDATE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER,I\BUYER_NAME,I\TYPE,I\IDNO,I\BLOCKED,I\PASSPORT,I\TELNO_CELLNO,I\CO_NAME    'A:CONST;;I\CO_NAME  I:I\BUYERNAME;<>;  DO(1)  O:DISABLEINPUT;I\BUYERID  'F:DEBTOR_MAST;Y;;DM_NAME;;DM_NAME LIKE'$I\BUYERNAME$';I\BUYERNAME  U:BUYER_SEARCH;SEARCH;G\GRID  A:CONST;;I\BUYERNAME  
1 0.0 Work 10 I 0 11, 85
$DEFAULT  A:TIME,HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE    A:TIMER_ON;1000    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER,I\BUYER_NAME,I\TYPE,I\IDNO,I\BLOCKED,I\PASSPORT,I\TELNO_CELLNO,I\CO_NAME    
1 0.0 Work 11 I -1 11, 265
  
1 0.0 Work 12 I -1 71, 265
  
1 0.0 Label 14 T -1 11, 241
  
1 0.0 Label 15 T -1 291, 241
  
1 0.0 Work 1 I -1 241, 265
  
1 0.0 Work 2 I -1 291, 265
  
1 0.0 Work 3 I -1 361, 133
$VALIDATE      U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER,I\BUYER_NAME,I\TYPE,I\IDNO,I\BLOCKED,I\PASSPORT,I\TELNO_CELLNO,I\CO_NAME  I:I\BUYERID;<>;  DO(S)  U:BUYER_SEARCH;SEARCH;G\GRID  A:CONST;;I\BUYERID  O:SETFOCUS;I\BUYERNAME  DOEND(S)    I:I\BUYERID;=;  DO(2)  O:SETFOCUS;I\PASSPORTID  DOEND(2)  
1 0.0 Label 4 T -1 211, 181
  
1 0.0 Label 1 T -1 421, 241
  
1 0.0 Label 4 T -1 211, 133
  
1 0.0 Label 5 T -1 71, 241
  
1 0.0 Label 6 T -1 241, 241
  
1 0.0 Label 1 T 0 511, 157
  
1 0.0 Work 1 I 0 11, 121
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT    I:I\MARKET;<>;15  DO(01)    O:HIDE;I\CO_NAME,T\CO_NAME  DOEND(01)
1 0.0 Work 2 I -1 421, 265
  
1 0.0 Label 3 T -1 211, 157
  
1 0.0 Work 4 I -1 361, 157
$VALIDATE      U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER,I\BUYER_NAME,I\TYPE,I\IDNO,I\BLOCKED,I\PASSPORT,I\TELNO_CELLNO,I\CO_NAME  I:I\PASSPORTID;<>;  DO(S)  U:BUYER_SEARCH;SEARCH;G\GRID  A:CONST;;I\PASSPORTID  O:SETFOCUS;I\BUYERNAME  DOEND(S)    I:I\PASSPORTID;=;  DO(2)  O:SETFOCUS;I\NO  DOEND(2)  
1 0.0 Work 1 I -1 521, 265
  
1 0.0 Label 2 T -1 521, 241
  
1 0.0 Work 3 I -1 361, 181
$VALIDATE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER,I\BUYER_NAME,I\TYPE,I\IDNO,I\BLOCKED,I\PASSPORT,I\TELNO_CELLNO,I\CO_NAME         I:I\NO;<>;   DO(S)     U:BUYER_SEARCH;SEARCH;G\GRID   O:SETFOCUS;I\BUYERNAME  A:CONST;;I\NO   DOEND(S)    I:I\MARKET;<>;15  DO(NOT_15)   O:SETFOCUS;I\BUYERNAME  DOEND(NOT_15)
1 0.0 Label 2 T -1 391, 241
  
1 0.0 Label 1 T -1 211, 205
  
1 0.0 Work 1 I -1 391, 265
  
1 0.0 Work 2 I -1 361, 205
$VALIDATE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER,I\BUYER_NAME,I\TYPE,I\IDNO,I\BLOCKED,I\PASSPORT,I\TELNO_CELLNO,I\CO_NAME        I:I\BUYERNAME;=;    DO(2)      I:I\BUYERID;=;      D0(3)        I:I\PASSPORTID;=;        DO(4)          I:I\NO;=;          DO(5)            I:I\CO_NAME;=;            DO(6)               I:I
1 0.0 Work 2 I -1 361, 109
$SELECT  S:BUYER_GROUP1;I\BUYER_GROUP    $VALIDATE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\BUYER,I\BUYER_NAME,I\TYPE,I\IDNO,I\BLOCKED,I\PASSPORT,I\TELNO_CELLNO,I\CO_NAME    I:I\BUYER_GROUP;<>;  DO(1)  'F:BUYER_GROUP;Y;;T\GROUP_DESC=BG_DESC;BG_CODE='$I\BUYER_GROUP$';I\BUYER_GROUP  U:BUYER_SEARCH;SEARCH;G\GRID  A:CONST;;I\BUY
1 0.0 CMD 3 C -1 461, 109
$SELECT  S:BUYER_GROUP1;I\BUYER_GROUP
1 0.0 Label 4 T -1 511, 109
  
1 0.0 Label 1 T -1 621, 241
  
1 0.0 Work 2 I -1 621, 265
  
1 0.0 Work 1 G -1 11, 289
  
1 0.0 Label 1 T -1 211, 109
  
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