899baaebcb
Files correlati : Ricompilazione Demo : [ ] Commento : mr0100.cpp Gestione tabelle IMP ed LNP mrplib.* Gestione calendari: lettura, scrittura, cancellazione mrtbimp.uml Tabella impianti mrtblnp.uml Tabella linee di produzione mrtblnp.h Simboli comuni alle due tabelle precedenti git-svn-id: svn://10.65.10.50/trunk@7160 c028cbd2-c16b-5b4b-a496-9718f37d4682
110 lines
1.6 KiB
Plaintext
Executable File
110 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
|
|
WARNING "Impianto assente"
|
|
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 NORMAL
|
|
WARNING "Impianto assente"
|
|
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
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Calendario" -1 -1 65 15
|
|
|
|
NUMBER F_YEAR 4
|
|
BEGIN
|
|
PROMPT 1 1 "Anno "
|
|
FLAGS "A"
|
|
END
|
|
|
|
RADIOBUTTON F_TYPE 42
|
|
BEGIN
|
|
PROMPT 16 0 ""
|
|
ITEM "L|Linea"
|
|
ITEM "I|Impianto"
|
|
ITEM "S|Standard"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
CALENDAR F_CALENDAR -3 -1
|
|
BEGIN
|
|
PROMPT 0 2 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
ENDMASK
|