campo-sirio/mr/mrtblnp.uml
guy d7bf7a33cb This commit was generated by cvs2svn to compensate for changes in r7146,
which included commits to RCS files with non-trunk default branches.

git-svn-id: svn://10.65.10.50/trunk@7147 c028cbd2-c16b-5b4b-a496-9718f37d4682
1998-09-26 07:11:12 +00:00

115 lines
1.6 KiB
Plaintext
Executable File

#include "mrtblnp.h"
TOOLBAR "" 0 19 80 3
#include <toolbar.h>
ENDPAGE
PAGE "Linee di produzione" -1 -1 65 15
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
END
STRING F_CODICE 5
BEGIN
PROMPT 2 2 "Linea "
FLAGS "UZ"
FIELD CODTAB
KEY 1
USE LNP
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
END
STRING F_DESC 50
BEGIN
PROMPT 25 2 ""
FIELD S0
KEY 2
USE LNP KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
OUTPUT F_DESC S0
OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED
END
STRING F_IMPIANTO 5
BEGIN
PROMPT 2 4 "Impianto "
FLAGS "UZ"
USE IMP
INPUT CODTAB F_IMPIANTO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_IMPIANTO CODTAB
OUTPUT F_DESCIMPIANTO S0
CHECKTYPE NORMAL
FIELD S6
END
STRING F_DESCIMPIANTO 50
BEGIN
PROMPT 25 4 ""
USE IMP KEY 2
INPUT S0 F_DESCIMPIANTO
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0
COPY OUTPUT F_IMPIANTO
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 6 ""
END
NUMBER F_PERSONE 3
BEGIN
PROMPT 2 7 "Persone "
FLAGS "U"
FIELD I0
END
NUMBER F_TURNI 1
BEGIN
PROMPT 2 8 "Turni standard "
FLAGS "U"
FIELD I1
END
ENDPAGE
PAGE "Calendario" -1 -1 65 15
NUMBER F_YEAR 4
BEGIN
PROMPT 1 1 "Anno "
FLAGS "A"
END
LIST F_TYPE 1 10
BEGIN
PROMPT 21 1 "Tipo "
ITEM "L|Linea"
ITEM "I|Impianto"
ITEM "S|Standard"
END
CALENDAR F_CALENDAR -3 -1
BEGIN
PROMPT 0 2 ""
END
ENDPAGE
ENDMASK