168 lines
2.8 KiB
Plaintext
Executable File
168 lines
2.8 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 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bDitta corrente"
|
|
END
|
|
|
|
//GROUPBOX DLG_NULL 78 5
|
|
//BEGIN
|
|
// PROMPT 1 15 ""
|
|
//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 50
|
|
BEGIN
|
|
PROMPT 16 1 "Rag. soc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
BROWSEFILE F_VISFLQ 76 11
|
|
BEGIN
|
|
PROMPT 1 3 ""
|
|
END
|
|
|
|
/* gruppo 1: edit rimborso */
|
|
|
|
NUMBER F_RIMBORSO 15 0
|
|
BEGIN
|
|
PROMPT 3 17 "Rimborso infrannuale: "
|
|
GROUP 1
|
|
FLAGS "HR"
|
|
PICTURE "."
|
|
END
|
|
|
|
/* gruppo 2: edit rettifiche */
|
|
|
|
NUMBER F_RETTIFICA 15 0
|
|
BEGIN
|
|
PROMPT 2 17 "Importo rettif. "
|
|
GROUP 2
|
|
FLAGS "HR"
|
|
PICTURE "."
|
|
END
|
|
|
|
LIST F_DEBCRE 7
|
|
BEGIN
|
|
PROMPT 35 17 " a "
|
|
GROUP 2
|
|
ITEM "D|Debito"
|
|
ITEM "C|Credito"
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING F_DESCR1 60
|
|
BEGIN
|
|
PROMPT 2 18 "Descrizione "
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING F_DESCR2 60
|
|
BEGIN
|
|
PROMPT 2 19 " "
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
/* gruppo 3: edit acconto */
|
|
|
|
NUMBER F_ACCONTO 15 0
|
|
BEGIN
|
|
PROMPT 3 17 "Acconto versato: "
|
|
GROUP 3
|
|
FLAGS "HR"
|
|
PICTURE "."
|
|
END
|
|
|
|
/* gruppo 4: edit delega */
|
|
|
|
DATE F_DELDATE
|
|
BEGIN
|
|
PROMPT 3 17 "Data "
|
|
GROUP 4
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_DELIMP 15 0
|
|
BEGIN
|
|
PROMPT 26 17 "Importo versato "
|
|
GROUP 4
|
|
PICTURE "."
|
|
FLAGS "HR"
|
|
END
|
|
|
|
NUMBER F_DELABI 5
|
|
BEGIN
|
|
PROMPT 3 18 "Codice ABI "
|
|
HELP "Codice ABI banca di appoggio"
|
|
FIELD S7
|
|
FLAGS "RZH"
|
|
GROUP 4
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
|
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
|
|
MESSAGE EMPTY RESET,F_DELCAB
|
|
END
|
|
|
|
|
|
NUMBER F_DELCAB 5
|
|
BEGIN
|
|
PROMPT 26 18 "Codice CAB "
|
|
HELP "Codice CAB banca di appoggio"
|
|
FIELD S8
|
|
FLAGS "RZH"
|
|
GROUP 4
|
|
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
|
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 "Denominazione@50" S0
|
|
OUTPUT F_DELABI CODTAB[1,5]
|
|
OUTPUT F_DELCAB CODTAB[6,10]
|
|
VALIDATE REQIF_FUNC 1 F_DELABI
|
|
//COPY ALL F_DELABI
|
|
CHECKTYPE NORMAL
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
|
|
NUMBER F_DELCON 3
|
|
BEGIN
|
|
PROMPT 51 18 "Concessione "
|
|
HELP "Codice Concessione del Comune di residenza fiscale"
|
|
FLAGS "RZH"
|
|
GROUP 4
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|