Patch level : 12.0 no-patch

Files correlati     : tf
Commento            : Carico il resto del programma per non creare problemi con il progetto

git-svn-id: svn://10.65.10.50/branches/R_10_00@23764 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-05-02 07:49:23 +00:00
parent d0a48beb9f
commit 57525a47ac
6 changed files with 2098 additions and 0 deletions

1425
src/tf/tf0100.cpp Normal file

File diff suppressed because it is too large Load Diff

31
src/tf/tf0100a.h Normal file
View File

@ -0,0 +1,31 @@
#define F_DATAINI 401
#define F_DATAFIN 402
#define F_TIPOCF 403
#define F_CODCF 404
#define F_RAGSOC 405
#define F_FATTSEL 406
#define F_RIGHE 300
#define A_SPEDITA 101
#define A_INVIO 102
#define A_FORZATA 103
#define A_NUMERO 104
#define A_NUMRIGA 105
#define A_TIPOCF 106
#define A_CODCF 107
#define A_OCFPI 108
#define A_RAGSOC 109
#define A_RFSO 110
#define A_TIPODOC 111
#define A_NUMDOC 112
#define A_DATADOC 113
#define A_NATURA 114
#define A_ALIQUOTA 115
#define A_DETRAIB 116
#define A_IMPONIBILE 117
#define A_IMPOSTA 118
#define A_REVERSE 119
#define A_AUTOFATT 120
#define A_PAIV 121
#define A_COFI 122

309
src/tf/tf0100a.uml Normal file
View File

@ -0,0 +1,309 @@
#include "tf0100a.h"
TOOLBAR "topbar" 0 0 0 2
#include <elabar.h>
ENDPAGE
PAGE "Impostazioni" 0 2 0 0
DATE F_DATAINI
BEGIN
PROMPT 1 0 "Data iniziale:"
CHECKTYPE REQUIRED
END
DATE F_DATAFIN
BEGIN
PROMPT 40 0 "Data Finale: "
CHECKTYPE REQUIRED
END
RADIOBUTTON F_TIPOCF 15
BEGIN
PROMPT 1 2 "Tipo C/F"
ITEM "T|Tutti"
ITEM "C|Cliente"
ITEM "F|Fornitore"
END
NUMBER F_CODCF 6
BEGIN
PROMPT 18 4 "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 "D"
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 "D"
END
RADIOBUTTON F_FATTSEL 25
BEGIN
PROMPT 1 7 "Fatture da visualizzare"
ITEM "0|Da inviare"
ITEM "1|Inviate"
ITEM "2|Tutti"
END
ENDPAGE
PAGE "Trasferimento Fatture" 0 2 0 0
SPREADSHEET F_RIGHE
BEGIN
PROMPT 0 0 ""
ITEM "Spedita@3F"
ITEM "Invio@3F"
ITEM "Mod.@3F"
ITEM "N.\nRegistraz.@7F"
ITEM "N.Riga@3F"
ITEM "C/F@2F"
ITEM "Codice@6F"
ITEM "Occas.@3"
ITEM "Ragione Sociale@35"
ITEM "RF/SO@6"
ITEM "Tipo\nDocum.@2"
ITEM "Numero\nDocum.@5"
ITEM "Data\nDocum.@10"
ITEM "Natura\nIVA@4"
ITEM "Aliquota@4"
ITEM "% Detr.@6"
ITEM "Imponibile@10"
ITEM "Imposta@10"
ITEM "Rev.\nCharge@4"
ITEM "Auto\nfatt.@3"
ITEM "Partita IVA@11"
ITEM "Codice Fiscale@15"
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
END
ENDPAGE
ENDMASK
PAGE "Riga" -1 -1 69 10
BOOLEAN A_SPEDITA
BEGIN
PROMPT 40 9 "Gia' spedita"
FIELD SPEDITA
FLAGS "D"
END
BOOLEAN A_INVIO
BEGIN
PROMPT 40 9 "Da inviare"
FIELD INVIO
END
BOOLEAN A_FORZATA
BEGIN
PROMPT 40 9 "Forzatura manuale"
FIELD FORZATURA
END
NUMBER A_NUMERO 7
BEGIN
PROMPT 1 0 "N.Movimento"
FLAGS "D"
FIELD PROGR
END
NUMBER A_NUMRIGA 3
BEGIN
PROMPT 25 0 "N.Riga"
FLAGS "D"
FIELD PROGR
END
LIST A_TIPOCF 1 10
BEGIN
PROMPT 1 2 "Tipo C/F"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FIELD TIPOCF
FLAGS "D"
END
NUMBER A_CODCF 6
BEGIN
PROMPT 23 2 "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
CHEKTYPE REQUIRED
ADD RUN cg0 -1
FIELD CODCF
FLAGS "DG"
END
STRING A_OCFPI 16
BEGIN
PROMPT 43 2 "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
CHEKTYPE NORMAL
GROUP 3
ADD RUN cg0 -6
FIELD OCFPI
FLAGS "DG"
END
STRING A_RAGSOC 50 47
BEGIN
FIELD RAGSOC
PROMPT 1 3 "Ragione Sociale "
FLAGS "D"
END
STRING A_RFSO 6
BEGIN
FIELD RFSO
PROMPT 30 16 "Codice RF/SO:"
HELP "Codice Rappresentante Fiscale o Stabile Organizzazione"
FLAGS "D"
END
STRING A_TIPODOC 2
BEGIN
PROMPT 23 5 "Tipo doc. "
FLAGS "U"
FIELD TIPODOC
END
STRING A_NUMDOC 7
BEGIN
PROMPT 23 5 "Num. doc. "
FLAGS "U"
FIELD NUMDOC
END
DATE A_DATADOC
BEGIN
PROMPT 1 5 "Data doc. "
FIELD DATADOC
END
LIST A_NATURA 1 35
BEGIN
PROMPT 1 6 "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
NUMBER A_ALIQUOTA 6 2
BEGIN
PROMPT 25 7 "Aliquota "
HELP "Percentuale di imposta"
FLAGS "D"
END
STRING A_DETRAIB 6
BEGIN
PROMPT 25 7 "% Detraibilita' "
HELP "Percentuale di detraibilita'"
FLAGS "D"
END
CURRENCY A_IMPONIBILE 12
BEGIN
PROMPT 1 7 "Imponibile"
FIELD IMPORTO
END
CURRENCY A_IMPOSTA 12
BEGIN
PROMPT 45 7 "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
END
STRING A_PAIV 12
BEGIN
PROMPT 1 4 "Partita IVA "
FLAGS "D"
END
STRING A_COFI 16
BEGIN
PROMPT 33 4 "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_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END
ENDPAGE
ENDMASK

174
src/tf/tff.ini Normal file
View File

@ -0,0 +1,174 @@
[TFF0100F]
P1_KEYHEADERFATT = CHAR(20)
P1_KEYBODYFATT = CHAR(20)
P1_TRASMITTPAESE = CHAR(2)
P1_TRASMITTCOD = CHAR(28)
P1_PRGINVIO = CHAR(10)
P1_FMTTRASMISS = CHAR(5)
P1_CODDEST = CHAR(6)
P1_TELEFONO = CHAR(12)
P1_MAIL = CHAR(256)
P1_GESTIONE = CHAR(1)
P1_ERRINT = CHAR(1)
P1_ERREST = CHAR(1)
INDEX_1 = P1_KEYHEADERFATT,P1_KEYBODYFATT
[TFF0200F]
P2_KEYHEADERFATT = CHAR(20)
P2_KEYBODYFATT = CHAR(20)
P2_FISCIVAPAESE = CHAR(2)
P2_FISCIVACOD = CHAR(28)
P2_CODFISCALE = CHAR(16)
P2_ANADENOMIN = CHAR(80)
P2_ANANOME = CHAR(60)
P2_ANACOGNOME = CHAR(60)
P2_ANATITOLO = CHAR(10)
P2_ANACODEORI = CHAR(17)
P2_ALBOPROFESS = CHAR(60)
P2_PROVALBO = CHAR(2)
P2_NRISCRIZALBO = CHAR(60)
P2_DTISCRIZEALBO = DATE
P2_REGFISCALE = CHAR(4)
P2_SEDEIND = CHAR(60)
P2_SEDENRCIVICO = CHAR(8)
P2_SEDECAP = NUMERIC(5, 0)
P2_SEDECOMUNE = CHAR(60)
P2_SEDEPROV = CHAR(2)
P2_SEDENAZ = CHAR(2)
P2_STABORGIND = CHAR(60)
P2_STABORGNRCIVICO = CHAR(8)
P2_STABORGCAP = NUMERIC(5, 0)
P2_STABORGCOMUNE = CHAR(60)
P2_STABORGPROV = CHAR(2)
P2_STABORGNAZ = CHAR(2)
P2_ISCRREAUFF = CHAR(2)
P2_ISCRREANUM = CHAR(20)
P2_ISCRREACAP = VARNUMERIC(15, 2)
P2_ISCRREASOCIOU = CHAR(2)
P2_ISCRREASLIQUID = CHAR(2)
P2_CONTATTITELEF = CHAR(12)
P2_CONTATTIFAX = CHAR(12)
P2_CONTATTIMAIL = CHAR(256)
P2_RIFAMMINISTR = CHAR(20)
P2_GESTIONE = CHAR(1)
P2_ERRINT = CHAR(1)
P2_ERREST = CHAR(1)
INDEX_1 = P2_KEYHEADERFATT,P2_KEYBODYFATT
[TFF0300F]
P3_KEYHEADERFATT = CHAR(20)
P3_KEYBODYFATT = CHAR(20)
P3_FISCIVAPAESE = CHAR(2)
P3_FISCIVACODICE = CHAR(28)
P3_CODFISC = CHAR(16)
P3_ANADENOMI = CHAR(80)
P3_ANANOME = CHAR(60)
P3_ANACOGNOME = CHAR(60)
P3_ANATITOLO = CHAR(10)
P3_ANACODEORI = CHAR(17)
P3_GESTIONE = CHAR(1)
P3_ERRINT = CHAR(1)
P3_ERREST = CHAR(1)
INDEX_1 = P3_KEYHEADERFATT,P3_KEYBODYFATT
[TFF0400F]
P4_KEYHEADERFATT = CHAR(20)
P4_KEYBODYFATT = CHAR(20)
P4_FISCIVAPAESE = CHAR(2)
P4_FISCIVACOD = CHAR(28)
P4_CODFISC = CHAR(16)
P4_ANADENOM = CHAR(80)
P4_ANANOME = CHAR(60)
P4_ANACOGNOME = CHAR(60)
P4_ANATITOLO = CHAR(10)
P4_ANACODEORI = CHAR(17)
P4_SEDEIND = CHAR(60)
P4_SEDENRCIVICO = CHAR(8)
P4_SEDECAP = CHAR(5)
P4_SEDECOMUNE = CHAR(60)
P4_SEDEPROV = CHAR(2)
P4_SEDENAZ = CHAR(2)
P4_GESTIONE = CHAR(1)
P4_ERRINT = CHAR(1)
P4_ERREST = CHAR(1)
INDEX_1 = P4_KEYHEADERFATT,P4_KEYBODYFATT
[TFF0700F]
P7_KEYHEADERFATT = CHAR(20)
P7_KEYBODYFATT = CHAR(20)
P7_TIPODOC = CHAR(4)
P7_DIVISA = CHAR(3)
P7_DATA = DATE
P7_NUMERO = CHAR(20)
P7_TIPORITENUTA = CHAR(4)
P7_IMPORTORIT = NUMERIC(15, 2)
P7_ALIQUOTARIT = NUMERIC(6, 2)
P7_CAUSPAGAM = CHAR(1)
P7_NUMEROBOLLO = CHAR(14)
P7_IMPORTOBOLLO = NUMERIC(15, 2)
P7_DATAREG = DATE
P7_NUMEROREG = NUMERIC(20, 0)
P7_TIPOREG = CHAR(6)
P7_PROTOCOLLO = CHAR(18)
P7_POSIZIONE = NUMERIC(4, 0)
P7_GESTIONE = CHAR(1)
P7_ERRINT = CHAR(1)
P7_ERREST = CHAR(1)
INDEX_1 = P7_KEYHEADERFATT,P7_KEYBODYFATT
[TFF2200F]
PL_KEYHEADERFATT = CHAR(20)
PL_KEYBODYFATT = CHAR(20)
PL_ALIQUOTAIVA = NUMERIC(6,2)
PL_NATURA = CHAR(2)
PL_SPESEACCESS = NUMERIC(15,2)
PL_ARROTONDAM = NUMERIC(15,2)
PL_IMPONIBILE = NUMERIC(15,2)
PL_IMPOSTA = NUMERIC(15,2)
PL_ESIGIVA = CHAR(1)
PL_RIFNORMATIVO = CHAR(100)
PL_DETRAIBILE = NUMERIC(6, 2)
PD_DEDUCIBILE = CHAR(2)
PL_GESTIONE = CHAR(1)
PL_ERRINT = CHAR(1)
PL_ERREST = CHAR(1)
INDEX_1 = PL_KEYHEADERFATT,PL_KEYBODYFATT
[TFF3100F]
PH_KEYHEADERFATT = CHAR(20)
PH_KEYBODYFATT = CHAR(20)
PH_STABORGIND = CHAR(60)
PH_STABORGNRCIVICO = CHAR(8)
PH_STABORGCAP = NUMERIC(5)
PH_STABORGCOMUNE = CHAR(60)
PH_STABORGPROV = CHAR(2)
PH_STABORGNAZ = CHAR(2)
PH_FISCIVAPAESE = CHAR(2)
PH_FISCIVACODICE = CHAR(28)
PH_ANADENOMI = CHAR(80)
PH_ANANOME = CHAR(60)
PH_ANACOGNOME = CHAR(60)
PH_GESTIONE = CHAR(1)
PH_ERRINT = CHAR(1)
PH_ERREST = CHAR(1)
INDEX_1 = PH_KEYHEADERFATT,PH_KEYBODYFATT

17
src/tf/tftbcon.h Normal file
View File

@ -0,0 +1,17 @@
#ifndef __TFTBCON_H
#define __TFTBCON_H
#define F_CON_TIPO 101
#define F_CON_CODCF 102
#define F_CON_RAGSOC 112
#define F_CON_CODICE 103
#define F_CON_DESCRIZIONE 113
#define F_CON_DATA 104
#define F_CON_RIFAMM 105
#define F_CON_CAUS1 121
#define F_CON_CAUS2 122
#define F_CON_CAUS3 123
#endif

142
src/tf/tftbcon.uml Normal file
View File

@ -0,0 +1,142 @@
#include "tftbcon.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Contratti per PA" 0 2 0 0
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 0 "@bEstremi contratto/convenzione/ordine P.A."
END
LIST F_CON_TIPO 1 11
BEGIN
PROMPT 2 1 "Tipo "
ITEM "C|Contratto"
ITEM "V|Convenzione"
ITEM "O|Ordine"
FIELD CODTAB[1,1]
KEY 1
END
NUMBER F_CON_CODCF 6
BEGIN
PROMPT 2 2 "Cliente "
USE LF_CFVEN SELECT PADESTIN!=""
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
INPUT TIPOCF "C"
INPUT CODCF F_CON_CODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
DISPLAY "Destinatario" PADESTIN
DISPLAY "Riferimento amm.@20" PARIFAMM
OUTPUT F_CON_CODCF CODCF
OUTPUT F_CON_RAGSOC LF_CLIFO->RAGSOC
CHECKTYPE REQUIRED
FIELD CODTAB[2,7]
KEY 1
MESSAGE EMPTY ENABLE,F_CON_RAGSOC
MESSAGE DISABLE,F_CON_RAGSOC
END
STRING F_CON_RAGSOC 50
BEGIN
PROMPT 24 2 ""
USE LF_CLIFO KEY 2 SELECT LF_CFVEN->PADESTIN!=""
JOINT LF_CFVEN INTO TIPOCF==TIPOCF CODCF==CODCF
INPUT TIPOCF "C"
INPUT RAGSOC F_CON_RAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
DISPLAY "Destinatario" LF_CFVEN->PADESTIN
DISPLAY "Riferimento amm.@20" LF_CFVEN->PARIFAMM
COPY OUTPUT F_CON_CODCF
CHECKTYPE NORMAL
END
STRING F_CON_CODICE 20
BEGIN
PROMPT 2 3 "Numero "
FLAGS "U"
FIELD CODTAB[8,27]
USE &CON
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODTAB[2,7]
INPUT CODTAB[1,1] F_CON_TIPO SELECT
INPUT CODTAB[2,7] F_CON_CODCF SELECT
INPUT CODTAB[8,27] F_CON_CODICE
DISPLAY "Tipo" CODTAB[1,1]
DISPLAY "Numero@20" CODTAB[8,]
DISPLAY "Descrizione@50" S0
DISPLAY "Cliente" CODTAB[2,7]
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_CON_CODCF CODTAB[2,7]
OUTPUT F_CON_CODICE CODTAB[8,]
OUTPUT F_CON_DESCRIZIONE S0
CHECKTYPE REQUIRED
KEY 1
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 5 "@bDati contratto/convenzione/ordine P.A."
END
STRING F_CON_DESCRIZIONE 70 50
BEGIN
PROMPT 2 6 "Descrizione "
FIELD S0
USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_CON_TIPO)&&(STR(CODTAB[2,7]=#F_CON_CODCF))
JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
INPUT S0 F_CON_DESCRIZIONE
DISPLAY "Tipo" CODTAB[1,1]
DISPLAY "Descrizione@50" S0
DISPLAY "Numero@20" CODTAB[8,]
DISPLAY "Cliente" CODTAB[2,7]
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
CHECKTYPE REQUIRED
COPY OUTPUT F_CON_CODICE
KEY 2
END
DATA F_CON_DATA
BEGIN
PROMPT 2 7 "Data "
FIELD D0
END
STRING F_CON_RIFAMM 20
BEGIN
PROMPT 24 7 "Riferimento amministrazione "
FIELD S4
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 10 "@bCausale"
END
STRING F_CON_CAUS1 50
BEGIN
PROMPT 14 11 ""
FIELD S1
END
STRING F_CON_CAUS2 50
BEGIN
PROMPT 14 12 ""
FIELD S2
END
STRING F_CON_CAUS3 50
BEGIN
PROMPT 14 13 ""
FIELD S3
END
ENDPAGE
ENDMASK