9c263a4e72
Files correlati : tf0200 Commento : - Aggiunta possibilità di registrare liquidazione IVA periodica utilizzando o no la data di competenza. CON SCELTA DIVERSA PER ATTIVE E PASSIVE [Fix #34]
519 lines
7.4 KiB
Plaintext
519 lines
7.4 KiB
Plaintext
#include "tf0200a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
BUTTON DLG_RECALC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Elabora"
|
|
PICTURE TOOL_CONVERT
|
|
END
|
|
|
|
BUTTON DLG_EMAIL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Invia"
|
|
PICTURE TOOL_EMAIL
|
|
END
|
|
|
|
BUTTON DLG_NULL 2 2
|
|
BEGIN
|
|
PROMPT -1 1 ""
|
|
PICTURE 0
|
|
END
|
|
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Impostazioni" 0 2 0 0
|
|
|
|
BOOLEAN F_ATT_COMP
|
|
BEGIN
|
|
PROMPT 1 0 "@BAttive: Elaborare per data competenza"
|
|
END
|
|
|
|
BOOLEAN F_PAS_COMP
|
|
BEGIN
|
|
PROMPT 50 0 "@BPassive: Elaborare per data competenza"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice "
|
|
FLAGS "FZD"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
USE LF_NDITTE KEY 2
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@60" RAGSOC
|
|
DISPLAY "Codice" CODDITTA
|
|
COPY OUTPUT F_CODDITTA
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
FIELD ANNO
|
|
PROMPT 1 2 "Anno "
|
|
USE LF_IVALIQ
|
|
SELECT GENERATA=="U"
|
|
INPUT ANNO F_ANNO
|
|
INPUT MESE F_MESE
|
|
INPUT TRIMESTRE F_TRIMESTRE
|
|
DISPLAY "Anno Liquid.IVA" ANNO
|
|
DiSPLAY "Mese" MESE
|
|
DISPLAY "Trimestre" TRIMESTRE
|
|
OUTPUT F_ANNO ANNO
|
|
OUTPUT F_MESE MESE
|
|
OUTPUT F_TRIMESTRE TRIMESTRE
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
FLAGS ""
|
|
WARNING "Inserire un anno di liquidazione"
|
|
END
|
|
|
|
NUMBER F_MESE 2
|
|
BEGIN
|
|
PROMPT 24 2 "Mese "
|
|
SHEET " |Mese@30"
|
|
INPUT F_MESE
|
|
OUTPUT F_MESE
|
|
ITEM "|"
|
|
ITEM "1|Gennaio"
|
|
ITEM "2|Febbraio"
|
|
ITEM "3|Marzo"
|
|
ITEM "4|Aprile"
|
|
ITEM "5|Maggio"
|
|
ITEM "6|Giugno"
|
|
ITEM "7|Luglio"
|
|
ITEM "8|Agosto"
|
|
ITEM "9|Settembre"
|
|
ITEM "10|Ottobre"
|
|
ITEM "11|Novembre"
|
|
ITEM "12|Dicembre"
|
|
HELP "Mese dichiarazione, lasciare vuoto per inserirne uno nuovo"
|
|
FLAGS ""
|
|
KEY 1
|
|
FIELD MESE
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
/* Parte di chiave nascosta */
|
|
LISTBOX F_GENERATA 1
|
|
BEGIN
|
|
PROMPT 75 2 ""
|
|
ITEM "U|U"
|
|
KEY 1
|
|
FIELD GENERATA
|
|
FLAGS "GD"
|
|
END
|
|
/* *********************** */
|
|
|
|
NUMBER F_TRIMESTRE 2
|
|
BEGIN
|
|
PROMPT 50 2 "Trimestre "
|
|
SHEET " |Trimestre@30"
|
|
INPUT F_TRIMESTRE
|
|
OUTPUT F_TRIMESTRE
|
|
ITEM "|"
|
|
ITEM "1|Primo"
|
|
ITEM "2|Secondo"
|
|
ITEM "3|Terzo"
|
|
ITEM "4|Quarto"
|
|
ITEM "5|Quinto"
|
|
HELP "Trimestre dichiarazione, lasciare vuoto per inserirne uno nuovo"
|
|
FLAGS ""
|
|
FIELD TRIMESTRE
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN F_SUBFORNITURE
|
|
BEGIN
|
|
PROMPT 1 3 "Subforniture"
|
|
FIELD SUBFOR
|
|
FLAGS ""
|
|
END
|
|
|
|
NUMBER F_EVECC 1
|
|
BEGIN
|
|
PROMPT 24 3 "Eventi eccezionali "
|
|
FIELD EVECC
|
|
FLAGS ""
|
|
ENDPAGE
|
|
|
|
NUMBER F_TOTOPATT 16 2
|
|
BEGIN
|
|
PROMPT 1 4 "Totale op. attive VP2 "
|
|
FIELD TOTOPATT
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_TOTOPATT
|
|
BEGIN
|
|
PROMPT 45 4 ""
|
|
FIELD BTOTOPATT
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TOTOPATTXC 16 2
|
|
BEGIN
|
|
PROMPT 1 5 "Totale op. attive x c."
|
|
FIELD TOTOPATTXC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_TOTOPATTXC
|
|
BEGIN
|
|
PROMPT 45 5 ""
|
|
FIELD BTOTOPATTX
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TOTOPPAS 16 2
|
|
BEGIN
|
|
PROMPT 50 4 "Totale op. passive VP3 "
|
|
FIELD TOTOPPAS
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_TOTOPPAS
|
|
BEGIN
|
|
PROMPT 94 4 ""
|
|
FIELD BTOTOPPAS
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TOTOPPASXC 16 2
|
|
BEGIN
|
|
PROMPT 50 5 "Totale op. passive x c."
|
|
FIELD TOTOPPASXC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_TOTOPPASXC
|
|
BEGIN
|
|
PROMPT 94 5 ""
|
|
FIELD BTOTOPPASX
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVAES 16 2
|
|
BEGIN
|
|
PROMPT 1 6 "IVA esigibile VP4 "
|
|
FIELD IVAES
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVAES
|
|
BEGIN
|
|
PROMPT 45 6 ""
|
|
FIELD BIVAES
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVAESXC 16 2
|
|
BEGIN
|
|
PROMPT 1 7 "IVA esigibile x c. "
|
|
FIELD IVAESXC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVAESXC
|
|
BEGIN
|
|
PROMPT 45 7 ""
|
|
FIELD BIVAESXC
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVAESDIFF 16 2
|
|
BEGIN
|
|
PROMPT 1 8 "IVA esigibile diff "
|
|
FIELD IVAESDIFF
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVAESDIFF
|
|
BEGIN
|
|
PROMPT 45 8 ""
|
|
FIELD BIVAESDIFF
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVADET 16 2
|
|
BEGIN
|
|
PROMPT 50 6 "IVA detratta VP5 "
|
|
FIELD IVADET
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVADET
|
|
BEGIN
|
|
PROMPT 94 6 ""
|
|
FIELD BIVADET
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVADETXC 16 2
|
|
BEGIN
|
|
PROMPT 50 7 "IVA detratta x c. "
|
|
FIELD IVADETXC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVADETXC
|
|
BEGIN
|
|
PROMPT 94 7 ""
|
|
FIELD BIVADETXC
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVADETDIFF 16 2
|
|
BEGIN
|
|
PROMPT 50 8 "IVA detratta diff "
|
|
FIELD IVADETDIFF
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVADETDIFF
|
|
BEGIN
|
|
PROMPT 94 8 ""
|
|
FIELD BIVADETDIF
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVADOV 16 2
|
|
BEGIN
|
|
PROMPT 1 10 "IVA dovuta VP6.1 "
|
|
FIELD IVADOV
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVADOV
|
|
BEGIN
|
|
PROMPT 45 10 ""
|
|
FIELD BIVADOV
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVADOVC 16 2
|
|
BEGIN
|
|
PROMPT 50 10 "o a credito VP6.2 "
|
|
FIELD IVADOVC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVADOVC
|
|
BEGIN
|
|
PROMPT 94 10 ""
|
|
FIELD BIVADOVC
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_DEBPREC 16 2
|
|
BEGIN
|
|
PROMPT 1 12 "Debito precedente VP7 "
|
|
FIELD DEBPREC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_DEBPREC
|
|
BEGIN
|
|
PROMPT 45 12 ""
|
|
FIELD BDEBPREC
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CREPREC 16 2
|
|
BEGIN
|
|
PROMPT 50 12 "Credito precedente VP8 "
|
|
FIELD CREPREC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_CREPREC
|
|
BEGIN
|
|
PROMPT 94 12 ""
|
|
FIELD BCREPREC
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_INTLIQTRI 16 2
|
|
BEGIN
|
|
PROMPT 1 13 "Int. liq. trim. VP12 "
|
|
FIELD INTLIQTRI
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_INTLIQTRI
|
|
BEGIN
|
|
PROMPT 45 13 ""
|
|
FIELD BINTLIQTRI
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CREAPREC 16 2
|
|
BEGIN
|
|
PROMPT 50 13 "Credito anno prec. VP9 "
|
|
FIELD CREAPREC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_CREAPREC
|
|
BEGIN
|
|
PROMPT 94 13 ""
|
|
FIELD BCREAPREC
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ACCDOV 16 2
|
|
BEGIN
|
|
PROMPT 1 14 "Acconto dovuto VP13 "
|
|
FIELD ACCDOV
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_ACCDOV
|
|
BEGIN
|
|
PROMPT 45 14 ""
|
|
FIELD BACCDOV
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_VEAUE 16 2
|
|
BEGIN
|
|
PROMPT 50 14 "Versamenti auto UE VP10"
|
|
FIELD VEAUE
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_VEAUE
|
|
BEGIN
|
|
PROMPT 94 14 ""
|
|
FIELD BVEAUE
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CREIMP 16 2
|
|
BEGIN
|
|
PROMPT 50 15 "Crediti di imp. VP11 "
|
|
FIELD CREIMP
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_CREIMP
|
|
BEGIN
|
|
PROMPT 94 15 ""
|
|
FIELD BCREIMP
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RETTIFICHE 16 2
|
|
BEGIN
|
|
PROMPT 1 16 "Rettifiche "
|
|
FIELD RETTIFICHE
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_RETTIFICHE
|
|
BEGIN
|
|
PROMPT 45 16 ""
|
|
FIELD BRETTIFICH
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_VARIMP 16 2
|
|
BEGIN
|
|
PROMPT 50 16 "Variazioni d'imposta "
|
|
FIELD VARIMP
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_VARIMP
|
|
BEGIN
|
|
PROMPT 94 16 ""
|
|
FIELD BVARIMP
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RIMBORSI 16 2
|
|
BEGIN
|
|
PROMPT 1 17 "Rimborsi "
|
|
FIELD RIMBORSI
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_RIMBORSI
|
|
BEGIN
|
|
PROMPT 45 17 ""
|
|
FIELD BRIMBORSI
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CRESPEC 16 2
|
|
BEGIN
|
|
PROMPT 50 17 "Crediti speciali "
|
|
FIELD CRESPEC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_CRESPEC
|
|
BEGIN
|
|
PROMPT 94 17 ""
|
|
FIELD BCRESPEC
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVAVER 16 2
|
|
BEGIN
|
|
PROMPT 1 19 "IVA da versare VP14.1 "
|
|
FIELD IVAVER
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVAVER
|
|
BEGIN
|
|
PROMPT 45 19 ""
|
|
FIELD BIVAVER
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_IVAVERC 16 2
|
|
BEGIN
|
|
PROMPT 50 19 "o a credito VP14.2 "
|
|
FIELD IVAVERC
|
|
FLAGS ""
|
|
END
|
|
|
|
BOOLEAN B_IVAVERC
|
|
BEGIN
|
|
PROMPT 94 19 ""
|
|
FIELD BIVAVERC
|
|
FLAGS "D"
|
|
END
|
|
|
|
/* Campi non visualizzati ma che vengono salvati lo stesso! */
|
|
|
|
NUMBER F_IMPNOVER 18 3
|
|
BEGIN
|
|
PROMPT 50 19 "Imposta non versata"
|
|
FIELD IMPNOVER
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_VEREFF 18 3
|
|
BEGIN
|
|
PROMPT 50 19 "Versamenti effettuati"
|
|
FIELD VEREFF
|
|
FLAGS "H"
|
|
END
|
|
|
|
ENDMASK
|