18659b8287
Files correlati : tf0.exe fp0.exe fp0100a.msk fp0300a.msk tf0100a.msk tf0400a.msk Commento : Adeguamento nuovi codici fatturazione elettronica.
530 lines
9.5 KiB
Plaintext
530 lines
9.5 KiB
Plaintext
#include "tf0400a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_RECALC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Aggiorna"
|
|
PICTURE TOOL_CONVERT
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
BUTTON DLG_ALL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Seleziona"
|
|
PICTURE TOOL_MULTISEL
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Elimina"
|
|
PICTURE TOOL_DELREC
|
|
END
|
|
|
|
BUTTON DLG_EDIT 10 2
|
|
BEGIN
|
|
PROMPT 3 1 "E~xcel"
|
|
PICTURE TOOL_EXCEL
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Controlli Trasferimento fatture" 0 2 0 0
|
|
|
|
LIST F_TIPOCONTROLLO 35 35
|
|
BEGIN
|
|
PROMPT 1 0 "Controllo da effettuare"
|
|
ITEM "0|Movimenti ignorati"
|
|
ITEM "1|Differenze Prima Nota/TF"
|
|
ITEM "2|Mostra tutti i movimenti modificati"
|
|
ITEM "3|Movimenti non inviati"
|
|
FLAGS ""
|
|
END
|
|
|
|
LIST F_FLAG 35
|
|
BEGIN
|
|
PROMPT 1 1 "Stato movimento "
|
|
ITEM "0|Tutti"
|
|
ITEM "1|Da inviare"
|
|
ITEM "2|Inviati"
|
|
ITEM "3|Disabilitati"
|
|
FLAGS ""
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 65 0 "Data iniziale:"
|
|
VALIDATE DATE_CMP_FUNC <= F_DATAFIN
|
|
WARNING "La data iniziale non può essere maggiore della data finale"
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 65 1 "Data Finale: "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINI
|
|
WARNING "La data finale non può essere minore della data iniziale"
|
|
FLAGS "A"
|
|
END
|
|
|
|
RADIOBUTTON F_TIPOCF 15
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo C/F"
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 18 3 "Codice:"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Occasionale@C" OCCAS
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHEKTYPE NORMAL
|
|
GROUP 1
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING F_RAGSOC 50 49
|
|
BEGIN
|
|
PROMPT 18 5 "R.Soc: "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Partita IVA@15" PAIV
|
|
COPY OUTPUT F_CODCF
|
|
ADD RUN CG0 -1
|
|
GROUP 1
|
|
FLAGS ""
|
|
END
|
|
|
|
SPREADSHEET F_RIGHE
|
|
BEGIN
|
|
PROMPT 0 8 "Righe movimenti"
|
|
ITEM "Elimina@1F"
|
|
ITEM "Data\n Reg.@8F"
|
|
ITEM "Tipo\nDocum.@2F"
|
|
ITEM "Tipo\nDoc. AE@5F"
|
|
ITEM "Numero\nDocum.@5F"
|
|
ITEM "Data\nDocum.@10"
|
|
ITEM "Aliquota@4"
|
|
ITEM "Imponibile@10"
|
|
ITEM "Imposta@10"
|
|
ITEM "Natura\nIVA@4"
|
|
ITEM "% Detr.@6"
|
|
ITEM "C/F@2"
|
|
ITEM "Codice@6"
|
|
ITEM "Occas.@16"
|
|
ITEM "Ragione Sociale@35"
|
|
ITEM "RF/SO@16"
|
|
ITEM "Rag. Soc. RF/SO@35"
|
|
ITEM "Partita IVA@11"
|
|
ITEM "Codice Fiscale@15"
|
|
ITEM "Rev.\nCharge@4"
|
|
ITEM "Auto\nfatt.@3"
|
|
ITEM "Spedita@5"
|
|
ITEM "N.\nRegistraz.@10"
|
|
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
|
|
END
|
|
|
|
SPREADSHEET F_NOTSEND
|
|
BEGIN
|
|
PROMPT 0 8 "Righe movimenti non inviati"
|
|
ITEM "Numero\n Reg.@7"
|
|
ITEM "Data\nReg.@8"
|
|
ITEM "Anno\nEs.@4"
|
|
ITEM "Numero\nDocumento@8"
|
|
ITEM "Numero\nDocum. Esteso@20"
|
|
ITEM "Tipo\nDocum.@5"
|
|
ITEM "Descrizione@40"
|
|
ITEM "Cod. C/F@6"
|
|
ITEM "Totale\nDocum.@18"
|
|
ITEM "Reverse\ncharge@5"
|
|
ITEM "INVIO@5"
|
|
FLAG "H"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Riga" -1 -1 69 14
|
|
BOOLEAN A_ELIMINA
|
|
BEGIN
|
|
PROMPT 52 10 "Elimina"
|
|
FIELD SPEDITA
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN A_SPEDITA
|
|
BEGIN
|
|
PROMPT 52 10 "Gia' spedita"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_NUMERO 10
|
|
BEGIN
|
|
PROMPT 1 0 "N.Movimento"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE A_DATAREG
|
|
BEGIN
|
|
PROMPT 26 0 "Data reg."
|
|
FLAGS "D"
|
|
CHEKTYPE REQUIRED
|
|
END
|
|
|
|
LIST A_TIPOCF 1 10
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo C/F "
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
FIELD TIPOCF
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_CODCF 6
|
|
BEGIN
|
|
PROMPT 26 1 "Cod. C/F"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF A_TIPOCF SELECT
|
|
INPUT CODCF A_CODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Occasionale@C" OCCAS
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
OUTPUT A_CODCF CODCF
|
|
OUTPUT A_RAGSOC RAGSOC
|
|
OUTPUT A_PAIV PAIV
|
|
OUTPUT A_COFI COFI
|
|
ADD RUN cg0 -1
|
|
FIELD CODCF
|
|
END
|
|
|
|
STRING A_OCFPI 16
|
|
BEGIN
|
|
PROMPT 44 1 "Occas."
|
|
USE LF_OCCAS
|
|
INPUT CFPI A_OCFPI
|
|
DISPLAY "Codice@16" CFPI
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
OUTPUT A_OCFPI CFPI
|
|
OUTPUT A_RAGSOC RAGSOC
|
|
OUTPUT A_PAIV PAIV
|
|
OUTPUT A_COFI COFI
|
|
CHEKTYPE NORMAL
|
|
GROUP 3
|
|
ADD RUN cg0 -6
|
|
END
|
|
|
|
STRING A_RAGSOC 50 47
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione Sociale"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_RFSO 6
|
|
BEGIN
|
|
PROMPT 1 4 "Codice RF/SO: "
|
|
HELP "Codice Rappresentante Fiscale o Stabile Organizzazione"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_RAGSOCRFSO 50 47
|
|
BEGIN
|
|
PROMPT 1 5 "Rag. Soc. RF/SO"
|
|
HELP "Ragione Sociale RF/SO"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_TIPODOC 2
|
|
BEGIN
|
|
PROMPT 23 6 "Tipo doc. "
|
|
FIELD TIPODOC
|
|
USE %TPD
|
|
INPUT CODTAB A_TIPODOC
|
|
DISPLAY "Tipo " CODTAB
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT A_TIPODOC CODTAB
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "HUD"
|
|
ADD NONE
|
|
END
|
|
|
|
LIST A_TIPODOCAE 6
|
|
BEGIN
|
|
PROMPT 23 6 "Tipo doc. "
|
|
ITEM "TD01|TD01"
|
|
ITEM "TD02|TD02"
|
|
ITEM "TD03|TD03"
|
|
ITEM "TD04|TD04"
|
|
ITEM "TD05|TD05"
|
|
ITEM "TD06|TD06"
|
|
ITEM "TD16|TD16"
|
|
ITEM "TD17|TD17"
|
|
ITEM "TD18|TD18"
|
|
ITEM "TD19|TD19"
|
|
ITEM "TD20|TD20"
|
|
ITEM "TD21|TD21"
|
|
ITEM "TD22|TD22"
|
|
ITEM "TD23|TD23"
|
|
ITEM "TD24|TD24"
|
|
ITEM "TD25|TD25"
|
|
ITEM "TD26|TD26"
|
|
ITEM "TD27|TD27"
|
|
ITEM "ERR0|Errore"
|
|
END
|
|
|
|
|
|
STRING A_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 42 6 "Num. doc. "
|
|
FLAGS "D"
|
|
CHEKTYPE REQUIRED
|
|
END
|
|
|
|
DATE A_DATADOC
|
|
BEGIN
|
|
PROMPT 1 6 "Data doc."
|
|
FLAGS "D"
|
|
CHEKTYPE REQUIRED
|
|
END
|
|
|
|
LIST A_NATURA 4 81
|
|
BEGIN
|
|
PROMPT 20 7 "Natura IVA"
|
|
ITEM "|IVA ordinaria"
|
|
ITEM "N1|N1 IVA esclusa ex art 15"
|
|
ITEM "N2|N2 IVA non soggetta (DEPRECATA)"
|
|
ITEM "N2.1|N2.1 Non soggette ad IVA ai sensi degli artt. da 7 a 7-septies del DPR 633/72"
|
|
ITEM "N2.2|N2.2 Non soggette - altri casi"
|
|
ITEM "N3|N3 IVA non imponibile (DEPRECATA)"
|
|
ITEM "N3.1|N3.1 Non impon. - esportazioni"
|
|
ITEM "N3.2|N3.2 Non impon. - cessioni intracomunitarie"
|
|
ITEM "N3.3|N3.3 Non impon. - cessioni verso San Marino"
|
|
ITEM "N3.4|N3.4 Non impon. - operazioni assimilate alle cessioni all'esportazione"
|
|
ITEM "N3.5|N3.5 Non impon. - a seguito di dichiarazioni d'intento"
|
|
ITEM "N3.6|N3.6 Non impon. - altre operazioni che non concorrono alla formazioni del plafond"
|
|
ITEM "N4|N4 IVA esente"
|
|
ITEM "N5|N5 IVA in regime del margine"
|
|
ITEM "N6|N6 IVA in reverse charge (DEPRECATA)"
|
|
ITEM "N6.1|N6.1 Invers. cont. - cessione di rottami e altri materiali di recupero"
|
|
ITEM "N6.2|N6.2 Invers. cont. - cessione di oro e argento puro"
|
|
ITEM "N6.3|N6.3 Invers. cont. - subappalto nel settore edile"
|
|
ITEM "N6.4|N6.4 Invers. cont. - cessione di fabbricati"
|
|
ITEM "N6.5|N6.5 Invers. cont. - cessione di telefoni cellulari"
|
|
ITEM "N6.6|N6.6 Invers. cont. - cessione di prodotti elettronici"
|
|
ITEM "N6.7|N6.7 Invers. cont. - prestazioni comparto edile e settori connessi"
|
|
ITEM "N6.8|N6.8 Invers. cont. - operazioni settore energetico"
|
|
ITEM "N6.9|N6.9 Invers. cont. - altri casi"
|
|
ITEM "N7|N7 IVA assolta in altro stato U3"
|
|
END
|
|
|
|
STRING A_ALIQUOTA 4
|
|
BEGIN
|
|
PROMPT 1 7 "Aliquota "
|
|
HELP "Codice aliquota"
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %IVA
|
|
FLAGS "U"
|
|
INPUT CODTAB A_ALIQUOTA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
OUTPUT A_ALIQUOTA CODTAB
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
STRING A_DETRAIB 6
|
|
BEGIN
|
|
PROMPT 1 8 "% Detraibilita'"
|
|
HELP "Percentuale di detraibilita'"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_IMPONIBILE 12 2
|
|
BEGIN
|
|
PROMPT 42 8 "Imponibile"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER A_IMPOSTA 12 2
|
|
BEGIN
|
|
PROMPT 42 9 "Imposta "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN A_REVERSE
|
|
BEGIN
|
|
PROMPT 1 9 "Reverse charge"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN A_AUTOFATT
|
|
BEGIN
|
|
PROMPT 25 9 "Autofattura"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_PAIV 12
|
|
BEGIN
|
|
PROMPT 1 3 "Partita IVA "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_COFI 16
|
|
BEGIN
|
|
PROMPT 33 3 "Codice Fiscale"
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_USER 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Collega"
|
|
PICTURE TOOL_LINK
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
PICTURE TOOL_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
PAGE "NOTSEND" -1 -1 69 14
|
|
|
|
NUMBER B_NUMREG 7 0
|
|
BEGIN
|
|
PROMPT 0 0 "Numero Reg."
|
|
FLAG "D"
|
|
END
|
|
|
|
DATE B_DATAREG
|
|
BEGIN
|
|
PROMPT 0 1 "Data Reg."
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER B_ANNOES 4 0
|
|
BEGIN
|
|
PROMPT 0 2 "Anno Es."
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER B_NUMDOC 7 0
|
|
BEGIN
|
|
PROMPT 0 3 "Numero Documento"
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER B_NUMDOCEXT 50 0
|
|
BEGIN
|
|
PROMPT 0 4 "Numero Docum. Esteso"
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING B_TIPODOC 2
|
|
BEGIN
|
|
PROMPT 0 5 "Tipo Docum."
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING B_DESC 50
|
|
BEGIN
|
|
PROMPT 0 6 "Descrizione"
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER B_CODCF 6 0
|
|
BEGIN
|
|
PROMPT 0 7 "Cod. C/F"
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER B_TOTDOC 18 3
|
|
BEGIN
|
|
PROMPT 0 8 "Totale Docum."
|
|
FLAG "D"
|
|
END
|
|
|
|
BOOLEAN B_REVCHARGE
|
|
BEGIN
|
|
PROMPT 0 9 "Reverse charge"
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING B_TFINVIO 1
|
|
BEGIN
|
|
PROMPT 0 10 "INVIO"
|
|
FLAG "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_USER 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Collega"
|
|
PICTURE TOOL_LINK
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
PICTURE TOOL_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK |