157 lines
2.4 KiB
Plaintext
Executable File
157 lines
2.4 KiB
Plaintext
Executable File
#include "cg5500a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include "cg5500t.h"
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
|
|
|
GROUPBOX F_YEAR 79 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 37 50
|
|
BEGIN
|
|
PROMPT 16 1 "Rag. soc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
BROWSEFILE F_VISFLQ 80 11
|
|
BEGIN
|
|
PROMPT 0 3 ""
|
|
END
|
|
|
|
/* gruppo 1: edit rimborso */
|
|
|
|
NUMBER F_RIMBORSO 15 0
|
|
BEGIN
|
|
PROMPT 3 16 "Rimborso infraannuale: "
|
|
GROUP 1
|
|
FLAGS "HR"
|
|
PICTURE "."
|
|
END
|
|
|
|
/* gruppo 2: edit rettifiche */
|
|
|
|
NUMBER F_RETTIFICA 15 0
|
|
BEGIN
|
|
PROMPT 2 15 "Importo rettif. "
|
|
GROUP 2
|
|
FLAGS "HR"
|
|
PICTURE "."
|
|
END
|
|
|
|
LIST F_DEBCRE 7
|
|
BEGIN
|
|
PROMPT 35 15 " a "
|
|
GROUP 2
|
|
ITEM "D|Debito"
|
|
ITEM "C|Credito"
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING F_DESCR1 60
|
|
BEGIN
|
|
PROMPT 2 16 "Descrizione "
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING F_DESCR2 60
|
|
BEGIN
|
|
PROMPT 2 17 " "
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
/* gruppo 3: edit acconto */
|
|
|
|
NUMBER F_ACCONTO 15 0
|
|
BEGIN
|
|
PROMPT 3 16 "Acconto versato: "
|
|
GROUP 3
|
|
FLAGS "HR"
|
|
PICTURE "."
|
|
END
|
|
|
|
/* gruppo 4: edit delega */
|
|
|
|
DATE F_DELDATE
|
|
BEGIN
|
|
PROMPT 3 15 "Data "
|
|
GROUP 4
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_DELIMP 15 0
|
|
BEGIN
|
|
PROMPT 26 15 "Importo versato "
|
|
GROUP 4
|
|
PICTURE "."
|
|
FLAGS "HR"
|
|
END
|
|
|
|
NUMBER F_DELABI 5
|
|
BEGIN
|
|
PROMPT 3 16 "Codice ABI "
|
|
HELP "Codice ABI banca di appoggio"
|
|
FIELD S7
|
|
FLAGS "RZH"
|
|
GROUP 4
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] F_DELABI
|
|
INPUT CODTAB[6,10] F_DELCAB
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_DELABI CODTAB[1,5]
|
|
OUTPUT F_DELCAB CODTAB[6,10]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
NUMBER F_DELCAB 5
|
|
BEGIN
|
|
PROMPT 26 16 "Codice CAB "
|
|
HELP "Codice CAB banca di appoggio"
|
|
FIELD S8
|
|
FLAGS "RZH"
|
|
GROUP 4
|
|
COPY ALL F_DELABI
|
|
CHECKTYPE NORMAL
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
|
|
NUMBER F_DELCON 3
|
|
BEGIN
|
|
PROMPT 51 16 "Concessione "
|
|
HELP "Codice Concessione del Comune di residenza fiscale"
|
|
FLAGS "RZH"
|
|
GROUP 4
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 80 5
|
|
BEGIN
|
|
PROMPT 1 14 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|