d723354920
Files correlati : Commento : Maschera: - Aggiunti bottone "Esporta" e i restanti da helpbar - Sistemata dimensione maschera per le righe - Aggiunto collegamento prima nota + bottone eliminazione record (non testato) Programma: - Aggiunta gestione righe custom - Sistemato bottone elabora - Aggiunto connessione prima nota - Sistemata stampa e aggiunta tolleranza per i valori degli imponibili - Aggiunto controllo se tolgo il flag di invio per una riga documento, ma non mi ricordo se va git-svn-id: svn://10.65.10.50/branches/R_10_00@23913 c028cbd2-c16b-5b4b-a496-9718f37d4682
437 lines
7.1 KiB
Plaintext
437 lines
7.1 KiB
Plaintext
#include "tf0100a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
BUTTON DLG_RECALC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Carica"
|
|
PICTURE TOOL_CONVERT
|
|
END
|
|
|
|
BUTTON DLG_ARCHIVE 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Controlla"
|
|
PICTURE TOOL_SMILE
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
BUTTON DLG_EDIT 10 2
|
|
BEGIN
|
|
PROMPT 3 1 "E~xcel"
|
|
PICTURE TOOL_EXCEL
|
|
END
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Esporta"
|
|
PICTURE TOOL_ELABORA
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Impostazioni" 0 2 0 0
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 1 1 "Data iniziale:"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 40 1 "Data Finale: "
|
|
CHECKTYPE REQUIRED
|
|
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 4 "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
|
|
|
|
|
|
RADIOBUTTON F_FATTSEL 25
|
|
BEGIN
|
|
PROMPT 1 6 "Fatture da visualizzare"
|
|
ITEM "0|Da inviare"
|
|
ITEM "1|Inviate"
|
|
ITEM "2|Tutti"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 65 4
|
|
BEGIN
|
|
PROMPT 30 6 "Tipi documento selezionati"
|
|
END
|
|
|
|
BOOLEAN B_TIPO_AUTOFATT
|
|
BEGIN
|
|
PROMPT 31 7 "Autofattura"
|
|
FLAGS ""
|
|
END
|
|
BOOLEAN B_TIPO_FATTACQ
|
|
BEGIN
|
|
PROMPT 45 7 "Fatt d'Acq"
|
|
FLAGS ""
|
|
END
|
|
BOOLEAN B_TIPO_FATTFISC
|
|
BEGIN
|
|
PROMPT 60 7 "Fatt Fisc"
|
|
FLAGS ""
|
|
END
|
|
BOOLEAN B_TIPO_FATTVEN
|
|
BEGIN
|
|
PROMPT 75 7 "Fatt Ven"
|
|
FLAGS ""
|
|
END
|
|
BOOLEAN B_TIPO_NOTC
|
|
BEGIN
|
|
PROMPT 31 8 "Nota Cred"
|
|
FLAGS ""
|
|
END
|
|
BOOLEAN B_TIPO_NOTD
|
|
BEGIN
|
|
PROMPT 45 8 "Nota Deb"
|
|
FLAGS ""
|
|
END
|
|
BOOLEAN B_TIPO_BOLLADOG
|
|
BEGIN
|
|
PROMPT 60 8 "Bolla Dog"
|
|
FLAGS ""
|
|
END
|
|
BOOLEAN B_TIPO_STORDOC
|
|
BEGIN
|
|
PROMPT 75 8 "Storno Doc"
|
|
FLAGS ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Trasferimento Fatture" 0 2 0 0
|
|
|
|
SPREADSHEET F_RIGHE
|
|
BEGIN
|
|
PROMPT 0 0 "Righe movimenti"
|
|
ITEM "Data\n Reg.@8F"
|
|
ITEM "Tipo\nDocum.@2F"
|
|
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 "Invio@3"
|
|
ITEM "Mod.@3"
|
|
ITEM "N.\nRegistraz.@10"
|
|
ITEM "Codici Errori@10"
|
|
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga" -1 -1 69 14
|
|
|
|
BOOLEAN A_SPEDITA
|
|
BEGIN
|
|
PROMPT 52 10 "Gia' spedita"
|
|
FIELD SPEDITA
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST A_INVIO 1 10
|
|
BEGIN
|
|
PROMPT 1 10 "Da inviare"
|
|
ITEM "X|Da Inviare"
|
|
ITEM "E|Errore"
|
|
FIELD INVIO
|
|
END
|
|
|
|
BOOLEAN A_FORZATA
|
|
BEGIN
|
|
PROMPT 25 10 "Forzatura manuale"
|
|
FIELD FORZATURA
|
|
END
|
|
|
|
NUMBER A_NUMERO 10
|
|
BEGIN
|
|
PROMPT 1 0 "N.Movimento"
|
|
FLAGS "D"
|
|
FIELD PROGR
|
|
END
|
|
|
|
DATE A_DATAREG
|
|
BEGIN
|
|
PROMPT 26 0 "Data reg."
|
|
FIELD DATAREG
|
|
CHEKTYPE REQUIRED
|
|
END
|
|
|
|
LIST A_TIPOCF 1 10
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo C/F "
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
FIELD TIPOCF
|
|
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
|
|
FLAGS "G"
|
|
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
|
|
FIELD OCFPI
|
|
FLAGS "G"
|
|
END
|
|
|
|
STRING A_RAGSOC 50 47
|
|
BEGIN
|
|
FIELD RAGSOC
|
|
PROMPT 1 2 "Ragione Sociale"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_RFSO 6
|
|
BEGIN
|
|
FIELD RFSO
|
|
PROMPT 1 4 "Codice RF/SO: "
|
|
HELP "Codice Rappresentante Fiscale o Stabile Organizzazione"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING A_RAGSOCRFSO 50 47
|
|
BEGIN
|
|
FIELD RAGSOCRFSO
|
|
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 "U"
|
|
ADD NONE
|
|
END
|
|
|
|
STRING A_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 42 6 "Num. doc. "
|
|
FLAGS "U"
|
|
FIELD NUMDOC
|
|
CHEKTYPE REQUIRED
|
|
END
|
|
|
|
DATE A_DATADOC
|
|
BEGIN
|
|
PROMPT 1 6 "Data doc."
|
|
FIELD DATADOC
|
|
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"
|
|
FIELD S12
|
|
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
|
|
HELP "Codice IVA"
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
STRING A_DETRAIB 6
|
|
BEGIN
|
|
PROMPT 1 8 "% Detraibilita'"
|
|
HELP "Percentuale di detraibilita'"
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY A_IMPONIBILE 12
|
|
BEGIN
|
|
PROMPT 42 8 "Imponibile"
|
|
FIELD IMPORTO
|
|
CHEKTYPE REQUIRED
|
|
END
|
|
|
|
CURRENCY A_IMPOSTA 12
|
|
BEGIN
|
|
PROMPT 42 9 "Imposta "
|
|
FIELD IMPOSTA
|
|
END
|
|
|
|
BOOLEAN A_REVERSE
|
|
BEGIN
|
|
PROMPT 1 9 "Reverse charge"
|
|
FIELD REVERSE
|
|
END
|
|
|
|
BOOLEAN A_AUTOFATT
|
|
BEGIN
|
|
PROMPT 25 9 "Autofattura"
|
|
FIELD AUTOFATT
|
|
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
|
|
|
|
STRING A_CODERR 10
|
|
BEGIN
|
|
PROMPT 0 13 "Codici errori"
|
|
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 |