149 lines
2.4 KiB
Plaintext
Executable File
149 lines
2.4 KiB
Plaintext
Executable File
//maschera per i 'C'ontratti (parte iniziale)
|
|
|
|
#include "ve2500a.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <filebar.h>
|
|
|
|
BUTTON DLG_CREA 2 2
|
|
BEGIN
|
|
PROMPT 10 -1 "Cr~ea"
|
|
PICTURE TOOL_IMPORT
|
|
END
|
|
|
|
BUTTON DLG_COMPATTA 2 2
|
|
BEGIN
|
|
PROMPT 11 -1 "Co~mpatta"
|
|
PICTURE TOOL_PACK
|
|
END
|
|
|
|
#include <cancelbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Dati generali e Righe" 0 2 0 0
|
|
|
|
LIST FA_TIPO 1 9
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
ITEM "C|Contratto"
|
|
FLAGS "D"
|
|
FIELD TIPO
|
|
KEY 1 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 0 0 "@bDati Contratto"
|
|
END
|
|
|
|
LIST FA_C_TIPOCF 1 10
|
|
BEGIN
|
|
PROMPT 1 1 "Cli./Forn."
|
|
FIELD TIPOCF
|
|
KEY 1
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
STRING FA_C_CODCF 6
|
|
BEGIN
|
|
PROMPT 25 1 ""
|
|
FIELD CODCF
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF FA_C_TIPOCF SELECT
|
|
INPUT CODCF FA_C_CODCF
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT FA_C_TIPOCF TIPOCF
|
|
OUTPUT FA_C_CODCF CODCF
|
|
OUTPUT FA_C_DESCF RAGSOC
|
|
CHECKTYPE FORCED
|
|
END
|
|
|
|
STRING FA_C_DESCF 50 40
|
|
BEGIN
|
|
PROMPT 35 1 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF FA_C_TIPOCF SELECT
|
|
INPUT RAGSOC FA_C_DESCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice@R" CODCF
|
|
COPY OUTPUT FA_C_CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FA_COD 3
|
|
BEGIN
|
|
PROMPT 1 2 "Contratto "
|
|
FIELD COD
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE LF_CONDV
|
|
INPUT TIPO "C"
|
|
INPUT TIPOCF FA_C_TIPOCF SELECT
|
|
INPUT CODCF FA_C_CODCF SELECT
|
|
INPUT COD FA_COD
|
|
DISPLAY "CF" TIPOCF
|
|
DISPLAY "Cod.CF" CODCF
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Valuta" CODVAL
|
|
DISPLAY "Fine validità" VALFIN
|
|
OUTPUT FA_C_TIPOCF TIPOCF
|
|
OUTPUT FA_C_CODCF CODCF
|
|
OUTPUT FA_COD COD
|
|
OUTPUT FA_DESCR DESCR
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING FA_DESCR 50
|
|
BEGIN
|
|
PROMPT 18 2 ""
|
|
FIELD DESCR
|
|
KEY 2
|
|
USE LF_CONDV KEY 2
|
|
INPUT TIPO "C"
|
|
INPUT DESCR FA_DESCR
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "CF" TIPOCF
|
|
DISPLAY "Cod.CF" CODCF
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Valuta" CODVAL
|
|
DISPLAY "Fine validità" VALFIN
|
|
COPY OUTPUT FA_COD
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN FA_C_OBBL
|
|
BEGIN
|
|
PROMPT 62 3 "Obbligatorio"
|
|
FIELD OBBLIG
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 0 6 "@bRighe contratto"
|
|
END
|
|
|
|
//stringa farlocca per poter usare le maschere strutturate con più .uml
|
|
STRING FA_L_CATVEN 2
|
|
BEGIN
|
|
PROMPT 0 100 ""
|
|
FLAGS "HD"
|
|
END
|
|
|
|
#include "ve2500ax.uml"
|
|
|
|
//aggiungere qui i campi specifici dei contratti in pag.2
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
#include "ve2500as.uml"
|