campo-sirio/mr/mr2200b.uml

#include "mr2200b.h"
#include "mr2url.h"
PAGE "Controllo planning"  -1 -1 76 20


NUMBER FC_RIGA 4
BEGIN
  FLAGS "D"
  PROMPT 1 0 "Riga      "
END

NUMBER FC_BUCKET 2
BEGIN
  FLAGS "D"
  PROMPT 19 0 "Bucket "
END

DATE FC_DATE1
BEGIN
  FLAGS "D"
  PROMPT 34 0 "("
END
DATE FC_DATE2
BEGIN
  FLAGS "D"
  PROMPT 46 0 "-"
END
TEXT DLG_NULL
BEGIN
  PROMPT 58 0 ")"
END


NUMBER FC_CODCLI 9
BEGIN
  FLAGS "DR"
  PROMPT 1 1 "Cli/forn. "
END

STRING FC_CODART 20
BEGIN
  FLAGS "DG"
  PROMPT 1 2 "Articolo  "
END

STRING FC_DESCART 35
BEGIN
  FLAGS "D"
  PROMPT 34 2 ""
END

STRING FC_CODIMP  5
BEGIN
  FLAGS "DG"
  PROMPT 1 4 "Impianto  "
  USE IMP
  INPUT  CODTAB     FC_CODIMP
  OUTPUT FC_CODIMP  CODTAB
  OUTPUT FC_DESCIMP S0
END

STRING FC_DESCIMP 35
BEGIN
  FLAGS "D"
  PROMPT 24 4 ""
END

STRING FC_CODLIN  5
BEGIN
  FLAGS "DG"
  PROMPT 1 5  "Linea     "
  INPUT  CODTAB    FC_CODLIN
  OUTPUT FC_CODLIN CODTAB
  OUTPUT FC_DESCLIN S0
END

STRING FC_DESCLIN 35
BEGIN
  FLAGS "D"
  PROMPT 24 5 ""
END

STRING FC_CODMAG  3
BEGIN
  FLAGS "D"
  PROMPT 1 6  "Magazzino "
END

STRING FC_CODDEP  2
BEGIN
  FLAGS "D"
  PROMPT 16 6  ""
  USE MAG
  INPUT CODTAB[1,3]  FC_CODMAG 
  INPUT CODTAB[4,5]  FC_CODDEP
  OUTPUT FC_DESCMAG S0
END

STRING FC_DESCMAG 35
BEGIN
  FLAGS "D"
  PROMPT 24 6 ""
END

BOOL FC_IS_VINCOLO
BEGIN
  FLAGS "HG"
  PROMPT 0 0 ""
  MESSAGE FALSE SHOW,G_ARTICOLI@//|HIDE,G_VINCOLI@
  MESSAGE TRUE  HIDE,G_ARTICOLI@//|SHOW,G_VINCOLI@
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 7  "@bARTICOLO"
  GROUP G_ARTICOLI
END
TEXT DLG_NULL
BEGIN
  PROMPT 60 7 "@bVINCOLO"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1  8 "Q.ta attuale    "
  GROUP G_ARTICOLI
END
NUMBER FC_FINAL_VALUE    17 2
BEGIN
  FLAGS "D"
  PROMPT 19  8 ""
  GROUP G_ARTICOLI
END

NUMBER FC_PROPOSED_VALUE 17 2
BEGIN
  FLAGS "D"
  PROMPT 1  9 "@bQ.ta proposta     "
  GROUP G_ARTICOLI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "Q.ta iniziale   "
  GROUP G_ARTICOLI
END
NUMBER FC_STARTING_VALUE 17 2
BEGIN
  FLAGS "D"
  PROMPT 19 10 ""
  GROUP G_ARTICOLI
END

NUMBER HC_GIAC    17 2
BEGIN
  FLAGS "HG"
  PROMPT 56  8 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 40  8 "Giacenza        "
END

NUMBER FC_GIAC    17 2
BEGIN
  FLAGS "D"
  PROMPT 56  8 ""
END

NUMBER FC_UNDERSTOCK    17 2
BEGIN
  FLAGS "D"    
  PROMPT 40  9 "@bSotto stock     "
END

NUMBER FC_GIORNIGIAC    17 2
BEGIN
  FLAGS "D"
  PROMPT 40 10 "Giorni          "
END
NUMBER FC_OVERGIORNIGIAC    17 2
BEGIN
  FLAGS "D"
  PROMPT 40 10 "@bGiorni          "
END

GROUPBOX DLG_NULL 80 10
BEGIN
  PROMPT 0 11 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 9 12 "@bMovimento"
END

LIST FC_MOVEFILTER 20
BEGIN
  PROMPT 2 13 ""
  ITEM "|Articoli e vincoli"
  ITEM "A|Solo linee articolo"
  ITEM "C|Solo linee vincolo"
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 12 "@bRicerca"
END

LIST FC_FINDFILTER 28
BEGIN
  PROMPT 30 13 ""
  ITEM "8|Sotto stock"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "12|Anomalie"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "4|Eccessiva permanenza"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "14|Anomalie e nuove proposte"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "15|Anomalie e modifiche"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "13|Anomalie e modifiche manuali"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "2|Nuove proposte"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "3|Modifiche"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "1|Modifiche manuali"
  MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,FC_MAXBUCK2CHECK
  ITEM "-1|Codice articolo"
  MESSAGE SHOW,FC_ARTICLE2FIND|HIDE,FC_MAXBUCK2CHECK
END

NUMBER FC_MAXBUCK2CHECK 2
BEGIN
  PROMPT 62 13 "fino a "
END

STRING FC_ARTICLE2FIND 20
BEGIN
  PROMPT 30 14 "Codice "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART FC_ARTICLE2FIND
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FC_ARTICLE2FIND CODART
END


BUTTON FC_RIGHT_BAD 4 2
BEGIN
  PROMPT 46 17 ""
  PICTURE USER_BMP_ARROWRIGHT_RED
  GROUP G_MOVIMENTO  
END
BUTTON FC_DOWN_BAD 4 2
BEGIN
  PROMPT 40 18 ""
  PICTURE USER_BMP_ARROWDOWN_RED
  GROUP G_MOVIMENTO  
END
BUTTON FC_LEFT_BAD 4 2
BEGIN
  PROMPT 34 17 ""
  PICTURE USER_BMP_ARROWLEFT_RED
  GROUP G_MOVIMENTO  
END
BUTTON FC_UP_BAD 4 2
BEGIN
  PROMPT 40 16 ""
  PICTURE USER_BMP_ARROWUP_RED
  GROUP G_MOVIMENTO  
END

BUTTON FC_UPLEFT 4 2
BEGIN
  PROMPT 4 14 "<"
  PICTURE USER_BMP_ARROWUPLEFT
  GROUP G_MOVIMENTO  
END

BUTTON FC_UP 4 2
BEGIN
  PROMPT 10 14 "Su'"
  PICTURE USER_BMP_ARROWUP
  GROUP G_MOVIMENTO  
END

BUTTON FC_UPRIGHT 4 2
BEGIN
  PROMPT 16 14 ">"
  PICTURE USER_BMP_ARROWUPRIGHT
  GROUP G_MOVIMENTO  
END

BUTTON FC_RIGHT 4 2
BEGIN
  PROMPT 16 16 ">"
  PICTURE USER_BMP_ARROWRIGHT
END

BUTTON FC_DOWNRIGHT 4 2
BEGIN
  PROMPT 16 18 ">"
  PICTURE USER_BMP_ARROWDOWNRIGHT
  GROUP G_MOVIMENTO  
END

BUTTON FC_DOWN 4 2
BEGIN
  PROMPT 10 18 "Giu'"
  PICTURE USER_BMP_ARROWDOWN
  GROUP G_MOVIMENTO  
END

BUTTON FC_DOWNLEFT 4 2
BEGIN
  PROMPT 4 18 "<"
  PICTURE USER_BMP_ARROWDOWNLEFT
  GROUP G_MOVIMENTO  
END

BUTTON FC_LEFT 4 2
BEGIN
  PROMPT 4 16 "<"
  PICTURE USER_BMP_ARROWLEFT
END


BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT 60 18 ""
END


ENDPAGE

ENDMASK