258 lines
3.8 KiB
Plaintext
Executable File
258 lines
3.8 KiB
Plaintext
Executable File
#include "cg5500a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 8 2
|
|
BEGIN
|
|
PROMPT -13 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 8 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
MESSAGE EXIT,K_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 79 3
|
|
BEGIN
|
|
PROMPT 0 1 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
FLAGS "DFR"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
OUTPUT F_RAGSOC2 RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 16 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CREDPREC 15
|
|
BEGIN
|
|
PROMPT 1 5 "Credito inizio anno "
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
END
|
|
|
|
SPREADSHEET F_VISLIQ1 78 11
|
|
BEGIN
|
|
PROMPT 1 7 "Liquidazione"
|
|
ITEM "Mese@10"
|
|
ITEM "Risultato@15"
|
|
ITEM "D/C"
|
|
ITEM "IVA rimborso@15"
|
|
ITEM "IVA rettifiche@15"
|
|
ITEM "D/C"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 79 3
|
|
BEGIN
|
|
PROMPT 0 1 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA2 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
FLAGS "DFR"
|
|
END
|
|
|
|
STRING F_RAGSOC2 50
|
|
BEGIN
|
|
PROMPT 16 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_VISLIQ2 78 11
|
|
BEGIN
|
|
PROMPT 1 5 "Versamenti"
|
|
ITEM "Mese@15"
|
|
ITEM "Data@10"
|
|
ITEM "ABI@5"
|
|
ITEM "CAB@5"
|
|
ITEM "Conc.@5"
|
|
ITEM "Versamenti@15"
|
|
// ITEM "D/C"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Prospetto mensile" -1 -1 50 10
|
|
|
|
STRING 101 20
|
|
BEGIN
|
|
PROMPT 1 2 "Mese "
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
NUMBER 102 15 0
|
|
BEGIN
|
|
PROMPT 1 3 "Risultato "
|
|
FLAGS "DR"
|
|
PICTURE "."
|
|
END
|
|
|
|
LIST 103 1 10
|
|
BEGIN
|
|
PROMPT 1 4 "Importo a "
|
|
ITEM " | "
|
|
ITEM "D|Debito"
|
|
ITEM "C|Credito"
|
|
FLAGS "DU"
|
|
END
|
|
|
|
NUMBER 104 15
|
|
BEGIN
|
|
PROMPT 1 5 "IVA a rimborso "
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER 105 15
|
|
BEGIN
|
|
PROMPT 1 6 "Rettifiche "
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
END
|
|
|
|
LIST 106 1 10
|
|
BEGIN
|
|
PROMPT 1 7 "Rettifica a "
|
|
ITEM " | "
|
|
ITEM "D|Debito"
|
|
ITEM "C|Credito"
|
|
FLAGS "U"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON 100 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Dettaglio"
|
|
// FLAGS "H"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Prospetto versamenti" -1 -1 50 12
|
|
|
|
STRING 101 20
|
|
BEGIN
|
|
PROMPT 1 1 "Mese "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE 102
|
|
BEGIN
|
|
PROMPT 1 2 "Data "
|
|
END
|
|
|
|
NUMBER 103 5
|
|
BEGIN
|
|
PROMPT 1 3 "Codice ABI "
|
|
HELP "Codice ABI banca di appoggio"
|
|
FIELD S7
|
|
FLAGS "RZ"
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] 103
|
|
INPUT CODTAB[6,10] 104
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT 103 CODTAB[1,5]
|
|
OUTPUT 104 CODTAB[6,10]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
NUMBER 104 5
|
|
BEGIN
|
|
PROMPT 1 4 "Codice CAB "
|
|
HELP "Codice CAB banca di appoggio"
|
|
FIELD S8
|
|
FLAGS "RZ"
|
|
COPY ALL 103
|
|
CHECKTYPE NORMAL
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
|
|
NUMBER 105 3
|
|
BEGIN
|
|
PROMPT 1 5 "Concessione "
|
|
HELP "Codice Concessione del Comune di residenza fiscale"
|
|
// FIELD S9
|
|
FLAGS "RZ"
|
|
END
|
|
|
|
|
|
NUMBER 106 15 0
|
|
BEGIN
|
|
PROMPT 1 6 "Versamenti "
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
END
|
|
|
|
/*
|
|
LIST 107 1 10
|
|
BEGIN
|
|
PROMPT 1 7 "Importo a "
|
|
ITEM " | "
|
|
ITEM "D|Debito"
|
|
ITEM "C|Credito"
|
|
FLAGS "U"
|
|
END
|
|
*/
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON 100 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Dettaglio"
|
|
// FLAGS "H"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|