campo-sirio/db/dbtblav.uml

81 lines
1.9 KiB
Plaintext
Raw Normal View History

#include "dbtblav.h"
TOOLBAR "" 0 19 80 3
#include <toolbar.h>
ENDPAGE
PAGE "Anagrafica lavorazioni" -1 -1 65 15
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
END
STRING F_CODICE 20
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
KEY 1
USE LAV
INPUT CODTAB F_CODICE
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
FLAGS "U"
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
KEY 2
USE LAV KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@20" CODTAB
OUTPUT F_DESCR S0
OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 6 ""
END
STRING F_UNMIS 2
BEGIN
PROMPT 2 7 "Unit<69> di misura "
FIELD S6
USE %UMS
INPUT CODTAB F_UNMIS
DISPLAY "Unit<69> di misura@2" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UNMIS CODTAB
OUTPUT F_UMDESC S0
CHECKTYPE REQUIRED
END
STRING F_UMDESC 50
BEGIN
PROMPT 22 7 " "
USE %UMS KEY 2
INPUT S0 F_UMDESC
DISPLAY "Descrizione@50" S0
DISPLAY "Unit<69> di misura@2" CODTAB
OUTPUT F_UMDESC S0
OUTPUT F_UNMIS CODTAB
CHECKTYPE REQUIRED
END
NUMBER F_COSUNIT 15
BEGIN
PROMPT 2 9 "Costo unitario "
PICTURE "."
FIELD R0
END
BOOLEAN F_STAMPA
BEGIN
PROMPT 2 11 "Stampa nelle esplosioni"
FIELD B0
END
ENDPAGE
ENDMASK