Freshmark replication server

freshmark-canonical

Program drill-down

SUPPL_TRANSFER

SUPPLIER TRANSFER. Type DSP, base table SUPPLIER_MAST.

Field inventory

60

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 22 I -1 531, 181
$SELECT  S:SUPPLIER_MAST;I\FROM_SUPPL  $VALIDATE  I:I\TO_SUPPL;<>;  DO(TRNS)    A:VAR;I\TO_SUPPL;I\TO_SUPPL;;000000  F:SUPPLIER_MAST;;;I\VNAME=SUM_NAME;SUM_SUPPL='$I\TO_SUPPL$'  F:SUPPL_ADDR;;;I\VADDR1=SA_ADDR1,I\VADDR2=SA_ADDR2,I\VADDR3=SA_ADDR3;SA_CODE='$I\TO_SUPPL$';I\TO_SUPPL  I:I\VNAME;=;  D:SUPPLIER $I\TO_SUPPL$ 
1 0.0 Label 3 T -1 421, 289
  
1 0.0 Label 4 T -1 421, 325
  
1 0.0 Label 11 T -1 21, 217
  
1 0.0 Label 15 T -1 21, 349
  
1 0.0 Label 19 T -1 21, 421
  
1 0.0 Label 16 T -1 21, 373
  
1 0.0 Work 32 I -1 151, 421
  
1 0.0 Work 31 I -1 151, 397
  
1 0.0 Work 30 I -1 151, 373
  
1 0.0 Work 3 I 0 101, 133
  
1 0.0 Work 29 I -1 351, 349
  
1 0.0 Work 28 I -1 151, 349
  
1 0.0 Work 27 I -1 151, 325
  
1 0.0 Work 26 I -1 151, 289
  
1 0.0 Work 25 I -1 151, 253
  
1 0.0 Work 24 I -1 151, 217
  
1 0.0 Work 23 I -1 151, 181
$SELECT  S:SUPPLIER_MAST;I\FROM_SUPPL    $VALIDATE  A:CONST;;T\PROG  I:I\FROM_SUPPL;=;  D:ENTER A FROM SUPPLIER OR PRESS F5;ERRORM;I\DUMMY_SUPPL    I:I\DUMMY_SUPPL;<>;  DO(001)  A:VAR;I\FROM_SUPPL;I\FROM_SUPPL;;000000    F:SUPPLIER_MAST;;;I\SUPPLIER_NAME=SUM_NAME,I\AREA=SUM_AREA,I\VAT_NO=SUM_VAT_NO,I\INC_TAX_NO=SUM_INC
1 0.0 Work 6 I -1 531, 253
  
1 0.0 Work 7 I -1 531, 289
  
1 0.0 Work 8 I -1 531, 325
  
1 0.0 Work 1 I 0 1, 157
  
1 0.0 Work 1 I 0 101, 109
  
1 0.0 Label 6 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 49
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 3 T -1 301, 49
  
1 0.0 Label 18 T -1 251, 349
  
1 0.0 Label 14 T -1 21, 325
  
1 0.0 Label 9 T -1 21, 181
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 20 T -1 21, 445
  
1 0.0 Label 10 T -1 421, 181
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 CMD 39 C -1 251, 181
$SELECT  S:SUPPLIER_MAST;I\FROM_SUPPL
1 0.0 Work 5 I -1 531, 217
  
1 0.0 Label 2 T -1 1, 25
  
1 0.0 Label 17 T -1 21, 397
  
1 0.0 CMD 2 C -1 631, 181
$SELECT  S:SUPPLIER_MAST;I\FROM_SUPPL
1 0.0 Label 12 T -1 21, 253
  
1 0.0 Label 13 T -1 21, 289
  
1 0.0 H -1 0, 0
  
1 0.0 CMD 37 C -1 651, 546
$SELECT  I:I\TO_SUPPL;<>;  DO(01)  U:SUPPL_TRANS_MESSAGE;MESSAGE  I:I\CONF;=;Y  DO(2)  A:CONST;TRANSFERING THE INFORMATION FROM SUPPLIER   $I\FROM_SUPPL$  TO $I\TO_SUPPL$ ........;T\PROG  U:SUPPL_TRANSFER;SUPPL_TRANS  A:CONST;;I\FROM_SUPPL,I\SUPPLIER_NAME,I\ADDR1,I\ADDR2,I\ADDR3,I\TO_SUPPL  A:CONST;;I\PCODE,I\AREA,I\TE
1 0.0 Label 1 T -1 421, 217
  
1 0.0 Label 2 T -1 421, 253
  
1 0.0 Work 33 I -1 151, 445
  
1 0.0 Work 2 I 0 1, 133
  
1 0.0 Work 34 I 0 1, 61
$DEFAULT    A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000  A:USERID;;I\USER  A:USERIP;;I\IP  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE
1 0.0 Work 35 I 0 1, 85
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  DEFAULT  'LOAD MARKET CODE AND AGENT CODE    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME,I\DUMMY_CHK=CM_DUMMY_SUPPLIER  C:MCASE;;T\MKT  
1 0.0 Work 36 I 0 1, 109
$DEFAULT  A:ORGS;;I\ORGS  A:CONST;$I\ORGS$;I\AGENT    I:I\ORGS;<>;  DO(03)  'O:DISABLEINPUT;I\AGENT  F:AGENT_MAST;;;T\NAME=AM_NAME;AM_CODE='$I\ORGS$'  DOEND(03)  
1 0.0 Work 40 I 0 101, 61
  
1 0.0 Work 41 I 0 101, 85
  
1 0.0 Label 1 T -1 121, 493
  
1 0.0 Work 1 I 0 101, 157
  
1 0.0 Work 1 I 0 21, 469
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0