388e9345fc
Files correlati : tf Commento : - Aggiunta colonna per tipo documento TD e tipo documento normale - Corretta inizializzazione TCausale in tutti i punti del programma (non sapevo servisse l'anno quando è stato fatto tutto) git-svn-id: svn://10.65.10.50/branches/R_10_00@24288 c028cbd2-c16b-5b4b-a496-9718f37d4682
387 lines
6.6 KiB
Plaintext
387 lines
6.6 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"
|
|
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
|
|
|
|
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 "TD04|TD04"
|
|
ITEM "TD05|TD05"
|
|
ITEM "TD07|TD07"
|
|
ITEM "TD08|TD08"
|
|
ITEM "TD10|TD10"
|
|
ITEM "TD11|TD11"
|
|
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 1 35
|
|
BEGIN
|
|
PROMPT 20 7 "Natura IVA"
|
|
ITEM "|IVA ordinaria"
|
|
ITEM "N1|N1 - IVA esclusa ex art 15"
|
|
ITEM "N2|N2 - IVA non soggetta"
|
|
ITEM "N3|N3 - IVA non imponibile"
|
|
ITEM "N4|N4 - IVA esente"
|
|
ITEM "N5|N5 - IVA in regime del margine"
|
|
ITEM "N6|N6 - IVA in reverse charge"
|
|
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 |