Freshmark replication server

freshmark-canonical

Program drill-down

PALL_ISS_TO_SUPP

PALLET ISSUE TO SUPPLIER. Type DSP, base table ADDR_TYPE.

Field inventory

48

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 1 C -1 651, 545
$SELECT    U:SUPPLIER_PALL_POOL;WITHDRAW  A:CONST;;I\WAYBILL,I\AGENT,I\DELNO,I\SUPPL,I\SMAN,I\PM_PALL,I\QUANTITY,T\AM_NAME,T\SUPP_NAME,T\SMAN_NAME,T\PM_DESC  O:SETFOCUS;I\WAYBILL    $ESC  O:SETFOCUS;I\WAYBILL
1 0.0 H -1 0, 0
  
1 0.0 Work 2 I -1 391, 373
$SELECT  S:PALLET_CODE;I\PM_PALL    $CALCULATE  C:UCASE    F:PALL_MAST;Y;;T\PM_DESC=PM_DESC,I\PM_PALFEE=PM_PALFEE,I\PM_DF_VATCDE=PM_DF_VATCDE;PM_PALL='$I\PM_PALL$';I\PM_PALL
1 0.0 PROHIBIT_GEN I 0 151, 61
  
1 0.0 PROHIBIT I 0 131, 61
  
1 0.0 Work 9 I -1 281, 145
$CALCULATE  M:    F:STK_MAST;Y;;I\SUPPL=SM_SUPP,I\AGENT=SM_AGENT,I\SMAN=SM_SMAN,I\DELNO=SM_DELNO,I\DELDATE=SM_DDATE;SM_MARKET='$I\MARKET$' AND SM_WAYBILLNO='$I\WAYBILL$' AND (SM_FINPDTE='' OR ISNULL(SM_FINPDTE));I\WAYBILL    F:SUPPLIER_MAST;;;T\SUPP_NAME=SUM_NAME;SUM_SUPPL='$I\SUPPLIER$'  F:SALESMAN_MAST;;;T\SMAN_NAME=
1 0.0 Work 10 I 0 21, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT=CM_PROHIBIT_SALES,I\CM_DF_PALFEE=CM_DF_PALFEE    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET  
1 0.0 Work 12 I 0 1, 61
$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\PROCESS
1 0.0 Work 13 I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 14 I 0 41, 61
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 Work 4 I 0 91, 97
  
1 0.0 Work 15 I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Work 2 I -1 281, 217
  
1 0.0 Work 4 I -1 281, 253
  
1 0.0 Work 1 I 0 111, 61
  
1 0.0 Work 2 I -1 281, 181
  
1 0.0 SMAN I -1 281, 289
  
1 0.0 I -1 391, 409
$VALIDATE  O:SETFOCUS;C\PROCESS  O:BACKCOLOR;C\PROCESS;YELLOW
1 0.0 CMD 1 C -1 441, 373
$SELECT  S:PALLET_CODE;I\PM_PALL
1 0.0 Label 4 T -1 341, 289
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 291, 49
  
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 171, 145
  
1 0.0 Label 1 T -1 171, 217
  
1 0.0 Label 3 T -1 171, 253
  
1 0.0 Label 4 T -1 281, 409
  
1 0.0 Label 6 T -1 391, 253
  
1 0.0 Label 3 T -1 341, 181
  
1 0.0 Label 1 T -1 171, 181
  
1 0.0 Label 1 T -1 171, 289
  
1 0.0 Label 1 T -1 281, 373
  
1 0.0 Label 1 T -1 281, 337
  
1 0.0 Work 2 I 0 31, 97
  
1 0.0 Label 1 T -1 481, 373
  
1 0.0 Work 1 I 0 121, 97
  
1 0.0 Work 1 I 0 1, 97
  
1 0.0 Work 3 I 0 61, 97
  
1 0.0 Work 1 I 0 400, 439
  
10 0.0 ZX_PRINT Z 0 0, 0
$PRINT    U:FAX_CHECK;CHECK    I:I\TODATE;>;T\DATE  DO(PAA)    A:VAR;T\DATE;I\TODATE    D:DATE CANNOT BE LATER THAN TODAY;ERRORM;I\TODATE  DOEND(PAA)    I:I\GO;<>;N  DO(DDQ)    I:I\BULK_FAX;=;N      E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_SUPPL_SALES;$I\MARKET$,$I\SELDATE$,$I\TODATE$,$I\AGENT$,$I\SUPPL
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