Freshmark replication server

freshmark-canonical

Program drill-down

FM_RANDSPERKG_MAN

PRODUCT AVERAGE PRICE MAINTENANCE. Type DSP, base table FM_PRODUCT.

Field inventory

34

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 4 C -1 371, 109
$SELECT  S:FM_PRODUCTS;I\FM_NDACODE  
1 0.0 H -1 1, 25
  
1 0.0 Work 7 I 0 1, 97
  
1 0.0 I -1 321, 181
  
1 0.0 I -1 321, 145
  
1 0.0 I -1 321, 217
$VALIDATE    O:SETFOCUS;C\CREATE  O:BACKCOLOR;C\CREATE;YELLOW
1 0.0 FM_PRODUCT FM_DATE I -1 321, 253
  
1 0.0 FM_PRODUCT FM_TIME I -1 321, 289
  
1 0.0 I -1 321, 109
$SELECT  S:FM_PRODUCTS;I\FM_NDACODE    $VALIDATE  M:  C:UCASE    A:LEN;I\FM_NDACODE;I\NDA_LEN    I:I\NDA_LEN;<>;3  D:PRODUCT NDA CODE MUST BE 3 CHARACTERS;ERRORM;I\FM_NDACODE    F:FM_PRODUCT_MAST;Y;;I\FM_DESC=FM_ITEM_DESC,I\FM_STANDARD=FM_STANDARD_ITEM;FM_NDA_ITEM='$I\FM_NDACODE$';I\FM_NDACODE    F:FM_PRODUCT;;;I\FM_RA
1 0.0 DEFAULT I 0 1, 73
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:DATE;YYYY/MM/DD;I\TMP_DTE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:DATE;DD MMM YYYY;I\FM_DATE  A:TIME;HH:MM:SS;I\FM_TIME    O:DISABLEINPUT;I\FM_DATE,I\FM_TIME  
1 0.0 Work 15 I 0 41, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET
1 0.0 Work 8 I 0 31, 97
  
1 0.0 Work 1 I 0 61, 97
  
1 0.0 Label 4 T -1 141, 181
  
1 0.0 Label 5 T -1 141, 253
  
1 0.0 Label 6 T -1 141, 289
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 FM_PRODUCT FM_DESC T -1 141, 145
  
1 0.0 T -1 141, 217
  
1 0.0 Label 7 T -1 221, 49
  
1 0.0 T -1 141, 109
  
1 0.0 Label 9 T -1 1, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 1 T -1 621, 49
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 CMD 1 C -1 321, 325
$SELECT  A:CONST;IN PROGRESS ...;T\PROG  U:PED_MAN;ADD_ITEMPRICE  A:CONST;DONE !!!;T\PROG    A:CONST;;I\FM_NDACODE,I\FM_DESC,I\FM_STANDARD,I\FM_RANDS_PERKG  A:DATE;DD MMM YYYY;I\FM_DATE  A:TIME;HH:MM:SS;I\FM_TIME    O:SETFOCUS;I\FM_NDACODE
1 0.0 Work 1 I 0 11, 133
  
1 0.0 Label 2 T -1 281, 361
  
10 0.0 ZX_PRINT Z 0 1, 25
  
10 0.0 ZX_SELECT Z 0 1, 25
  
10 0.0 ZX_DELETE Z 0 1, 25
  
10 0.0 ZX_UPDATE Z 0 1, 25
  
10 0.0 ZX_EXIT Z 0 1, 25