Freshmark replication server

freshmark-canonical

Program drill-down

DIRECT_DELIV_AMEND

DIRECT DELIVERY AMENDMENTS. Type DSP, base table SUPPLIER_MAST.

Field inventory

45

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 31, 481
  
1 0.0 Work 2 I 0 121, 481
  
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 271, 49
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 221, 157
  
1 0.0 Label 9 T -1 221, 301
  
1 0.0 Work 10 I -1 331, 157
$SELECT  S:CONS_EDIT;I\CONSIGN;I\MARKET;I\AGENT    $VALIDATE    A:CONST;;I\DELDATE,I\DELNO  A:VAR;I\CONSIGN;I\CONSIGN;;00000000  A:CONST;;T\PROGRESS  F:STK_DETS;Y;;I\DELDATE=SD_DATE,I\DELNO=SD_DELNO,I\AGENT=SD_AGENT,I\QTY=(SD_RECQTY-SD_DISQTY-SD_RETQTY),I\SD_SIZE=SD_SIZE,I\COMMENT=SD_COMMENT,I\COLOUR=SD_COLOUR;SD_MARKE
1 0.0 Work 11 I -1 331, 301
$VALIDATE    M:  O:SETFOCUS;C\RUN  
1 0.0 Label 12 T -1 221, 265
  
1 0.0 Work 13 I -1 331, 265
$SELECT  S:COLOUR_ITEM;I\COLOUR    $VALIDATE  C:UCASE  I:I\COLOUR;<>;  F:COLOUR_MAST;Y;CLR_COLOUR;;;I\COLOUR  F:COLOUR_MAST;;;T\CLR_DESC=CLR_DESC;CLR_COLOUR='$I\COLOUR$';I\COLOUR
1 0.0 Work 14 I -1 331, 229
$SELECT    S:SIZEW;I\SD_SIZE;I\SD_PRODUCT;I\SD_CLASS;I\SD_VAR    $VALIDATE    C:UCASE  'I:I\SD_SIZE;<>;  'DO(02)  'F:COMMODITY_MAST;Y;;W\BLOCKED2=CO_BLOCKED;CO_PRODUCT='$I\SD_PRODUCT$' AND CO_VAR='$I\SD_VAR$' AND CO_CLASS='$I\SD_CLASS$' AND CO_SIZE='$I\SD_SIZE$';I\SD_SIZE  'I:W\BLOCKED;=;Y  'F:COMMODITY_MAST;Y;;;CO_PRO
1 0.0 Work 15 I -1 331, 193
  
1 0.0 Work 16 I 0 161, 517
  
1 0.0 Work 17 I 0 201, 517
  
1 0.0 Work 18 I 0 1, 73
$DEFAULT  'GET USERS MARKET CODE - ZU_MARKET IN ZU_USER  A:ORG;;I\MARKET    'GET MARKET NAME FROM CLIENT MASTER  F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$'    'CONVERT TO FIRST CHARACTER UPPER CASE REST LOWER CASE  C:MCASE;;T\MARKET
1 0.0 Work 19 I 0 31, 73
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  
1 0.0 Label 1 T -1 221, 193
  
1 0.0 Label 2 T -1 221, 229
  
1 0.0 CMD 4 C -1 431, 193
  
1 0.0 CMD 3 C -1 431, 157
$SELECT  S:CONS_EDIT;I\CONSIGN;I\MARKET;I\AGENT  
1 0.0 CMD 5 C -1 431, 229
  
1 0.0 CMD 6 C -1 431, 265
$SELECT  S:COLOUR_ITEM;I\COLOUR
1 0.0 Label 8 T -1 471, 193
  
1 0.0 Label 9 T -1 471, 229
  
1 0.0 Label 10 T -1 471, 265
  
1 0.0 Work 11 I 0 71, 73
  
1 0.0 Work 13 I 0 231, 517
  
1 0.0 Work 2 I 0 31, 433
  
1 0.0 Work 1 I 0 271, 517
  
1 0.0 Work 2 I 0 371, 517
  
1 0.0 Work 3 I 0 331, 517
  
1 0.0 Work 4 I 0 301, 517
  
1 0.0 CMD 5 C -1 311, 361
$SELECT  A:CONST;PROCESSING...;T\PROGRESS  U:DIRECT_DELIV_AMEND;UPDATE  A:CONST;COMPLETE!!!;T\PROGRESS  A:CONST;;I\CONSIGN,I\QTY,I\SIZE,I\COLOUR,I\SD_SIZE,T\CLR_DESC,I\COMMENT  O:SETFOCUS;I\CONSIGN
1 0.0 Label 6 T -1 371, 397
  
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