c434cad322
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 650 git-svn-id: svn://10.65.10.50/trunk@14148 c028cbd2-c16b-5b4b-a496-9718f37d4682
411 lines
6.4 KiB
Plaintext
Executable File
411 lines
6.4 KiB
Plaintext
Executable File
#include "mr2200b.h"
|
|
#include "mr2url.h"
|
|
PAGE "Controllo planning" -1 -1 76 22
|
|
|
|
|
|
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 40
|
|
BEGIN
|
|
FLAGS "DG"
|
|
PROMPT 1 2 "Articolo "
|
|
END
|
|
|
|
STRING FC_DESCART 35
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 34 2 ""
|
|
END
|
|
|
|
|
|
STRING FC_LIV1 10
|
|
BEGIN
|
|
PROMPT 1 3 "Giacenza "
|
|
FLAGS "UH"
|
|
USE GCG
|
|
INPUT CODTAB[1,1] "1"
|
|
INPUT CODTAB[2,11] FC_LIV1
|
|
DISPLAY "Gruppo@20" CODTAB[2,20]
|
|
DISPLAY "Descr.@30" S0
|
|
OUTPUT FC_LIV1 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,FC_LIV2|CHECK,FC_LIV2
|
|
MESSAGE ENABLE,FC_LIV2
|
|
END
|
|
|
|
STRING FC_LIV2 10
|
|
BEGIN
|
|
PROMPT 26 3 ""
|
|
FLAGS "UH"
|
|
USE GCG
|
|
INPUT CODTAB[1,1] "2"
|
|
INPUT CODTAB[2,11] FC_LIV2
|
|
DISPLAY "Gruppo@20" CODTAB[2,20]
|
|
DISPLAY "Descr.@30" S0
|
|
OUTPUT FC_LIV2 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,FC_LIV3|CHECK,FC_LIV3
|
|
MESSAGE ENABLE,FC_LIV3
|
|
END
|
|
|
|
STRING FC_LIV3 10
|
|
BEGIN
|
|
PROMPT 41 3 ""
|
|
FLAGS "UH"
|
|
USE GCG
|
|
INPUT CODTAB[1,1] "3"
|
|
INPUT CODTAB[2,11] FC_LIV3
|
|
DISPLAY "Gruppo@20" CODTAB[2,20]
|
|
DISPLAY "Descr.@30" S0
|
|
OUTPUT FC_LIV3 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,FC_LIV4|CHECK,FC_LIV4
|
|
MESSAGE ENABLE,FC_LIV4
|
|
END
|
|
|
|
STRING FC_LIV4 10
|
|
BEGIN
|
|
PROMPT 56 3 ""
|
|
FLAGS "UH"
|
|
USE GCG
|
|
INPUT CODTAB[1,1] "4"
|
|
INPUT CODTAB[2,11] FC_LIV4
|
|
DISPLAY "Gruppo@20" CODTAB[2,20]
|
|
DISPLAY "Descr.@30" S0
|
|
OUTPUT FC_LIV4 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
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 scorta "
|
|
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 13 ""
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 9 14 "@bMovimento"
|
|
END
|
|
|
|
LIST FC_MOVEFILTER 20
|
|
BEGIN
|
|
PROMPT 2 15 ""
|
|
ITEM "|Articoli e vincoli"
|
|
ITEM "A|Solo linee articolo"
|
|
ITEM "C|Solo linee vincolo"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 39 14 "@bRicerca"
|
|
END
|
|
|
|
LIST FC_FINDFILTER 28
|
|
BEGIN
|
|
PROMPT 30 15 ""
|
|
ITEM "8|Sotto scorta"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "12|Anomalie"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "4|Eccessiva permanenza"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "14|Anomalie e nuove proposte"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "15|Anomalie e modifiche"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "13|Anomalie e modifiche manuali"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "2|Nuove proposte"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "3|Modifiche"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "1|Modifiche manuali"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|SHOW,G_BUCKETRANGE@
|
|
ITEM "-1|Articoli per codice"
|
|
MESSAGE SHOW,FC_ARTICLE2FIND|HIDE,G_BUCKETRANGE@
|
|
ITEM "-2|Articoli non master"
|
|
MESSAGE HIDE,FC_ARTICLE2FIND|HIDE,G_BUCKETRANGE@
|
|
END
|
|
|
|
NUMBER FC_MINBUCK2CHECK 2
|
|
BEGIN
|
|
PROMPT 30 16 "Dal bucket "
|
|
GROUP G_BUCKETRANGE
|
|
END
|
|
|
|
NUMBER FC_MAXBUCK2CHECK 2
|
|
BEGIN
|
|
PROMPT 45 16 "al bucket "
|
|
GROUP G_BUCKETRANGE
|
|
END
|
|
|
|
STRING FC_ARTICLE2FIND 20
|
|
BEGIN
|
|
PROMPT 30 17 "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 19 ""
|
|
PICTURE USER_BMP_ARROWRIGHT_RED
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
BUTTON FC_DOWN_BAD 4 2
|
|
BEGIN
|
|
PROMPT 40 20 ""
|
|
PICTURE USER_BMP_ARROWDOWN_RED
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
BUTTON FC_LEFT_BAD 4 2
|
|
BEGIN
|
|
PROMPT 34 19 ""
|
|
PICTURE USER_BMP_ARROWLEFT_RED
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
BUTTON FC_UP_BAD 4 2
|
|
BEGIN
|
|
PROMPT 40 18 ""
|
|
PICTURE USER_BMP_ARROWUP_RED
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
|
|
BUTTON FC_UPLEFT 4 2
|
|
BEGIN
|
|
PROMPT 4 16 "<"
|
|
PICTURE USER_BMP_ARROWUPLEFT
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
|
|
BUTTON FC_UP 4 2
|
|
BEGIN
|
|
PROMPT 10 16 "Su'"
|
|
PICTURE USER_BMP_ARROWUP
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
|
|
BUTTON FC_UPRIGHT 4 2
|
|
BEGIN
|
|
PROMPT 16 16 ">"
|
|
PICTURE USER_BMP_ARROWUPRIGHT
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
|
|
BUTTON FC_RIGHT 4 2
|
|
BEGIN
|
|
PROMPT 16 18 ">"
|
|
PICTURE USER_BMP_ARROWRIGHT
|
|
END
|
|
|
|
BUTTON FC_DOWNRIGHT 4 2
|
|
BEGIN
|
|
PROMPT 16 20 ">"
|
|
PICTURE USER_BMP_ARROWDOWNRIGHT
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
|
|
BUTTON FC_DOWN 4 2
|
|
BEGIN
|
|
PROMPT 10 20 "Giu'"
|
|
PICTURE USER_BMP_ARROWDOWN
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
|
|
BUTTON FC_DOWNLEFT 4 2
|
|
BEGIN
|
|
PROMPT 4 20 "<"
|
|
PICTURE USER_BMP_ARROWDOWNLEFT
|
|
GROUP G_MOVIMENTO
|
|
END
|
|
|
|
BUTTON FC_LEFT 4 2
|
|
BEGIN
|
|
PROMPT 4 18 "<"
|
|
PICTURE USER_BMP_ARROWLEFT
|
|
END
|
|
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT 60 20 ""
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|