Freshmark replication server

freshmark-canonical

Program drill-down

WHOLESALE_ENQ1

WHOLESALERS ENQUIRY. Type DSP, base table WHOLESALE_MAST.

Field inventory

62

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 1, 517
$DEFAULT  A:ORG;;I\MARKET  A:TIME,HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000    O:DISABLEINPUT;I\WHOLESALE_NAME,I\ADDRESS1,I\ADDRESS2,I\ADDRESS3  O:DISABLEINPUT;I\PCODE,I\TELNO,I\CELLNO,I\FAXNO,I\EMAIL,I\VATREG,I\COMM_PERC,I\BLOCKED  O:DISABLEINPUT;I\LANGUAGE,I\MARKET  
1 0.0 WHOLESALE_MAST WHS_NAME I -1 291, 157
$VALIDATE  M:  C:UCASE
1 0.0 WHOLESALE_MAST WHS_ADDR1 I -1 291, 181
  
1 0.0 WHOLESALE_MAST WHS_ADDR2 I -1 291, 205
  
1 0.0 H -1 0, 0
  
1 0.0 WHOLESALE_MAST WHS_TELNO I -1 671, 181
$VALIDATE    I:I\TELNO;<>;    DO(1)     A:CONST;;W\TEMP     U:NUMBER_VALIDATE;TELL_CHK;I\TELNO,0,W\TEMP     I:W\TEMP;=;N     D:THE TELEPHONE NUMBER MUST START WITH "0";ERRORM;I\TELNO      DOEND(1)      A:LEN;I\TELNO;W\TEMP     I:W\TEMP;<;10;NUM     D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\TELNO     A:C
1 0.0 WHOLESALE_MAST WHS_CELLNO I -1 671, 205
$VALIDATE    I:I\CELLNO;<>;    DO(1)     A:CONST;;W\TEMP     U:NUMBER_VALIDATE;TELL_CHK;I\CELLNO,@,W\TEMP     I:W\TEMP;=;N     D:THE CELL PHONE NUMBER MUST START WITH "0";ERRORM;I\CELLNO    DOEND(1)   A:LEN;I\CELLNO;W\TEMP     I:W\TEMP;<;10;NUM     D:CELL PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\CELLNO  
1 0.0 WHOLESALE_MAST WHS_ADDR3 I -1 291, 229
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 291, 49
  
1 0.0 Label 4 T -1 181, 157
  
1 0.0 Label 5 T -1 181, 181
  
1 0.0 Label 6 T 0 181, 205
  
1 0.0 Label 7 T 0 181, 229
  
1 0.0 Label 8 T -1 561, 181
  
1 0.0 Label 9 T -1 561, 205
  
1 0.0 Label 10 T -1 561, 229
  
1 0.0 Label 11 T -1 181, 277
  
1 0.0 Label 12 T -1 561, 253
  
1 0.0 Label 13 T -1 671, 49
  
1 0.0 Label 14 T -1 671, 25
  
1 0.0 Label 15 T -1 621, 25
  
1 0.0 Label 16 T -1 621, 49
  
1 0.0 Label 17 T -1 181, 253
  
1 0.0 Label 19 T -1 181, 301
  
1 0.0 Label 20 T -1 381, 313
  
1 0.0 Label 21 T -1 561, 313
  
1 0.0 WHOLESALE_MAST WHS_EMAIL I -1 291, 277
$VALIDATE  C:LCASE  I:I\EMAIL;<>;    DO(EMAIL)     A:CONST;;W\TEMP     U:NUMBER_VALIDATE;EMAIL_CHK;I\EMAIL,@,W\TEMP     I:W\TEMP;=;N     D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I\EMAIL    DOEND(EMAIL)      'DISPLAY ERROR MESSAGE IF INVALID EMAOL ADDRESS IS ENTERED IN THIS FIELD  I:I\EMAIL;=;@  D:INVALID ENTRY -
1 0.0 WHOLESALE_MAST WHS_FAXNO I -1 671, 229
$VALIDATE    I:I\FAXNO;<>;    DO(1)     A:CONST;;W\TEMP     U:NUMBER_VALIDATE;TELL_CHK;I\FAXNO,0,W\TEMP     I:W\TEMP;=;N     D:THE FAX NUMBER MUST START WITH "0";ERRORM;I\FAXNO    DOEND(1)   A:LEN;I\FAXNO;W\TEMP     I:W\TEMP;<;10;NUM     D:FAX NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\FAXNO    A:CONST;;W\TEMP  
1 0.0 WHOLESALE_MAST WHS_PCODE I -1 291, 253
$VALIDATE   A:LEN;I\PCODE;W\TEMP     I:W\TEMP;<;4;NUM     D:POSTAL CODE CANNOT BE LESS THAN 4 CHARACTERS;ERRORM;I\PCODE      
1 0.0 WHOLESALE_MAST WHS_VATREG I -1 671, 253
  
1 0.0 WHOLESALE_MAST WHS_LANGUAGE I -1 291, 301
$VALIDATE  C:UCASE  V:A;E
1 0.0 WHOLESALE_MAST WHS_COMMPERC I -1 491, 313
  
1 0.0 WHOLESALE_MAST WHS_BLOCKED I -1 671, 313
$VALIDATE  C:UCASE  V:Y;N;      'O:SETFOCUS;C\CREATE  'O:BACKCOLOR;C\CREATE;YELLOW
1 0.0 Label 35 T -1 181, 133
  
1 0.0 WHOLESALE_MAST WHS_CODE I -1 291, 133
$SELECT  S:WHOLESALE_CODE;I\WHOLESALE_CODE      $VALIDATE    'U:WHOLESALE_ENQUIRY;ENQUIRY  A:CONST;;I\WHOLESALE_NAME,I\ADDRESS1,I\ADDRESS2,I\ADDRESS3,I\LANGUAGE,T\LOAD,I\W_COMM,I\M_COMM,I\Y_COMM  A:CONST;;I\PCODE,I\TELNO,I\CELLNO,I\FAXNO,I\EMAIL,I\VATREG,I\COMM_PERC,I\BLOCKED,I\W_T_D,I\M_T_D,I\Y_T_D  M:  I:I\WHOLESALE_
1 0.0 Work 1 I 0 1, 541
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME,I\CM_WEEKLY_DAY=CM_WEEKLY_DAY,I\YEARLY=CM_YEAREND    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT  
1 0.0 Work 2 I 0 41, 517
  
1 0.0 Label 10 T -1 451, 445
  
1 0.0 Label 1 T -1 181, 361
  
1 0.0 Label 2 T -1 451, 361
  
1 0.0 Label 1 T -1 321, 517
  
1 0.0 Work 1 I 0 1, 481
  
1 0.0 Label 1 T -1 181, 397
  
1 0.0 Label 2 T -1 181, 421
  
1 0.0 Label 3 T -1 181, 445
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Work 12 I -1 581, 397
  
1 0.0 CMD 1 C -1 371, 133
$SELECT  S:WHOLESALE_CODE;I\WHOLESALE_CODE  
1 0.0 Label 9 T -1 451, 421
  
1 0.0 Work 4 I -1 311, 397
  
1 0.0 Work 5 I -1 311, 421
  
1 0.0 Work 6 I -1 311, 445
  
1 0.0 Label 8 T -1 451, 397
  
1 0.0 Work 13 I -1 581, 421
  
1 0.0 Work 14 I -1 581, 445
  
1 0.0 Work 2 I 0 1, 457
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT 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