994ab2d7cf
Files correlati : Ricompilazione Demo : [ ] Commento : aggiunta la ricerca per descrizione cliente nei listini git-svn-id: svn://10.65.10.50/branches/R_10_00@21340 c028cbd2-c16b-5b4b-a496-9718f37d4682
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 41
|
||
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 validita'" 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 validita'" 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<70> .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"
|