root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cu2021 per preformattata

Browse Source
This commit is contained in:
francescofucarino 2021-02-03 17:26:48 +01:00
parent 2ef449d9cd
commit 8541938ee3
20 changed files with 104 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
build/770.vcxproj
View File

@ -71,7 +71,6 @@
<MinimalRebuild>false</MinimalRebuild> <MinimalRebuild>false</MinimalRebuild>
<RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary> <RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary>
<PrecompiledHeaderOutputFile>.\..\debug/770.pch</PrecompiledHeaderOutputFile> <PrecompiledHeaderOutputFile>.\..\debug/770.pch</PrecompiledHeaderOutputFile>
<WarningLevel>Level3</WarningLevel> <WarningLevel>Level3</WarningLevel>
<SuppressStartupBanner>true</SuppressStartupBanner> <SuppressStartupBanner>true</SuppressStartupBanner>
<DebugInformationFormat>ProgramDatabase</DebugInformationFormat> <DebugInformationFormat>ProgramDatabase</DebugInformationFormat>
@ -149,7 +148,7 @@
</PostBuildEvent> </PostBuildEvent>
</ItemDefinitionGroup> </ItemDefinitionGroup>
<ItemGroup> <ItemGroup>
<ClCompile Include="..\src\cg\cg2103.cpp" /> <ClCompile Include="..\src\cg\cglib03.cpp" />
<ClCompile Include="..\src\m770\770.cpp"> <ClCompile Include="..\src\m770\770.cpp">
<AdditionalIncludeDirectories Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> <AdditionalIncludeDirectories Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
<PreprocessorDefinitions Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(PreprocessorDefinitions)</PreprocessorDefinitions> <PreprocessorDefinitions Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(PreprocessorDefinitions)</PreprocessorDefinitions>

2
build/770.vcxproj.filters
View File

@ -53,7 +53,7 @@
<ClCompile Include="..\src\m770\770400.cpp"> <ClCompile Include="..\src\m770\770400.cpp">
<Filter>Sources</Filter> <Filter>Sources</Filter>
</ClCompile> </ClCompile>
<ClCompile Include="..\src\cg\cg2103.cpp"> <ClCompile Include="..\src\cg\cglib03.cpp">
<Filter>Sources</Filter> <Filter>Sources</Filter>
</ClCompile> </ClCompile>
</ItemGroup> </ItemGroup>

6
build/777.vcxproj
View File

@ -68,7 +68,6 @@
<PreprocessorDefinitions>_DEBUG;WIN32;__LONGDOUBLE__;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions> <PreprocessorDefinitions>_DEBUG;WIN32;__LONGDOUBLE__;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<MinimalRebuild>false</MinimalRebuild> <MinimalRebuild>false</MinimalRebuild>
<RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary> <RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary>
<WarningLevel>Level3</WarningLevel> <WarningLevel>Level3</WarningLevel>
<SuppressStartupBanner>true</SuppressStartupBanner> <SuppressStartupBanner>true</SuppressStartupBanner>
<DebugInformationFormat>ProgramDatabase</DebugInformationFormat> <DebugInformationFormat>ProgramDatabase</DebugInformationFormat>
@ -147,9 +146,10 @@
</PostBuildEvent> </PostBuildEvent>
</ItemDefinitionGroup> </ItemDefinitionGroup>
<ItemGroup> <ItemGroup>
<ClCompile Include="..\src\cg\cg2103.cpp" />
<ClCompile Include="..\src\cg\cglib01.cpp" /> <ClCompile Include="..\src\cg\cglib01.cpp" />
<ClCompile Include="..\src\fe\felib.cpp" /> <ClCompile Include="..\src\cg\cglib03.cpp" />
<ClCompile Include="..\src\cg\cglib07.cpp" />
<ClCompile Include="..\src\cg\cgsaldac.cpp" />
<ClCompile Include="..\src\m770\777.cpp"> <ClCompile Include="..\src\m770\777.cpp">
<AdditionalIncludeDirectories Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> <AdditionalIncludeDirectories Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
<PreprocessorDefinitions Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(PreprocessorDefinitions)</PreprocessorDefinitions> <PreprocessorDefinitions Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">%(PreprocessorDefinitions)</PreprocessorDefinitions>

15
build/777.vcxproj.filters
View File

@ -30,12 +30,6 @@
<ClCompile Include="..\src\m770\777200.cpp"> <ClCompile Include="..\src\m770\777200.cpp">
<Filter>Sources</Filter> <Filter>Sources</Filter>
</ClCompile> </ClCompile>
<ClCompile Include="..\src\fe\felib.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\cg\cg2103.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\cg\cglib01.cpp"> <ClCompile Include="..\src\cg\cglib01.cpp">
<Filter>Sources</Filter> <Filter>Sources</Filter>
</ClCompile> </ClCompile>
@ -45,6 +39,15 @@
<ClCompile Include="..\src\m770\777202.cpp"> <ClCompile Include="..\src\m770\777202.cpp">
<Filter>Sources</Filter> <Filter>Sources</Filter>
</ClCompile> </ClCompile>
<ClCompile Include="..\src\cg\cglib07.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\cg\cgsaldac.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\cg\cglib03.cpp">
<Filter>Sources</Filter>
</ClCompile>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<MskCompiler Include="..\src\m770\777100a.uml"> <MskCompiler Include="..\src\m770\777100a.uml">

30
build/fp0.vcxproj
View File

@ -228,54 +228,64 @@
<ItemGroup> <ItemGroup>
<SqlCompiler Include="..\src\fp\sql\fp0100.sql"> <SqlCompiler Include="..\src\fp\sql\fp0100.sql">
<FileType>Document</FileType> <FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0104.sql"> <SqlCompiler Include="..\src\fp\sql\fp0104.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0106.sql"> <SqlCompiler Include="..\src\fp\sql\fp0106.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0108.sql"> <SqlCompiler Include="..\src\fp\sql\fp0108.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0110.sql"> <SqlCompiler Include="..\src\fp\sql\fp0110.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0112.sql"> <SqlCompiler Include="..\src\fp\sql\fp0112.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0114.sql"> <SqlCompiler Include="..\src\fp\sql\fp0114.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0116.sql"> <SqlCompiler Include="..\src\fp\sql\fp0116.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
<SqlCompiler Include="..\src\fp\sql\fp0118.sql"> <SqlCompiler Include="..\src\fp\sql\fp0118.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>
</SqlCompiler> </SqlCompiler>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<SqlCompiler Include="..\src\fp\sql\fp0102.sql"> <SqlCompiler Include="..\src\fp\sql\fp0102.sql">
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
</ExcludedFromBuild>
<FileType>Document</FileType> <FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> <ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
</ExcludedFromBuild> </ExcludedFromBuild>

1
build/vedoc.vcxproj
View File

@ -200,6 +200,7 @@
<ClInclude Include="..\src\cg\cglib01.h" /> <ClInclude Include="..\src\cg\cglib01.h" />
<ClInclude Include="..\src\cg\cgpagame.h" /> <ClInclude Include="..\src\cg\cgpagame.h" />
<ClInclude Include="..\src\db\dblib.h" /> <ClInclude Include="..\src\db\dblib.h" />
<ClInclude Include="..\src\mg\mglib.h" />
<ClInclude Include="..\src\pr\prlib.h" /> <ClInclude Include="..\src\pr\prlib.h" />
<ClInclude Include="..\src\ve\sconti.h" /> <ClInclude Include="..\src\ve\sconti.h" />
<ClInclude Include="..\src\sv\svlib01.h" /> <ClInclude Include="..\src\sv\svlib01.h" />

24
build/vedoc.vcxproj.filters
View File

@ -11,15 +11,6 @@
</Filter> </Filter>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<ClCompile Include="..\src\cg\cglib01.cpp">
<Filter>Source Files</Filter>
</ClCompile>
<ClCompile Include="..\src\cg\cgpagame.cpp">
<Filter>Source Files</Filter>
</ClCompile>
<ClCompile Include="..\src\ve\clifor.cpp">
<Filter>Source Files</Filter>
</ClCompile>
<ClCompile Include="..\src\mg\mglib01.cpp"> <ClCompile Include="..\src\mg\mglib01.cpp">
<Filter>Source Files</Filter> <Filter>Source Files</Filter>
</ClCompile> </ClCompile>
@ -59,15 +50,9 @@
<ClCompile Include="..\src\sv\svlib09.cpp"> <ClCompile Include="..\src\sv\svlib09.cpp">
<Filter>Source Files</Filter> <Filter>Source Files</Filter>
</ClCompile> </ClCompile>
<ClCompile Include="..\src\cg\cglib03.cpp">
<Filter>Source Files</Filter>
</ClCompile>
<ClCompile Include="..\src\ve\velib04.cpp"> <ClCompile Include="..\src\ve\velib04.cpp">
<Filter>Source Files</Filter> <Filter>Source Files</Filter>
</ClCompile> </ClCompile>
<ClCompile Include="..\src\cg\cgsaldac.cpp">
<Filter>Source Files</Filter>
</ClCompile>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<ClInclude Include="..\src\cg\cg2103.h"> <ClInclude Include="..\src\cg\cg2103.h">
@ -79,9 +64,6 @@
<ClInclude Include="..\src\cg\cgpagame.h"> <ClInclude Include="..\src\cg\cgpagame.h">
<Filter>Header Files</Filter> <Filter>Header Files</Filter>
</ClInclude> </ClInclude>
<ClInclude Include="..\src\ve\clifor.h">
<Filter>Header Files</Filter>
</ClInclude>
<ClInclude Include="..\src\ve\sconti.h"> <ClInclude Include="..\src\ve\sconti.h">
<Filter>Header Files</Filter> <Filter>Header Files</Filter>
</ClInclude> </ClInclude>
@ -100,5 +82,11 @@
<ClInclude Include="..\src\ve\velib.h"> <ClInclude Include="..\src\ve\velib.h">
<Filter>Header Files</Filter> <Filter>Header Files</Filter>
</ClInclude> </ClInclude>
<ClInclude Include="..\src\ve\velib05.h">
<Filter>Header Files</Filter>
</ClInclude>
<ClInclude Include="..\src\mg\mglib.h">
<Filter>Header Files</Filter>
</ClInclude>
</ItemGroup> </ItemGroup>
</Project> </Project>

9
src/m770/771230.cpp
View File

@ -90,11 +90,6 @@ void TRighe_riepilogo::genera_aliquota(TRectype& quadro, const char* aliquota,
void TRighe_riepilogo::genera_la(TRectype& quadro, const TRectype& riga, const TString& codcaus) const void TRighe_riepilogo::genera_la(TRectype& quadro, const TRectype& riga, const TString& codcaus) const
{ {
#ifdef DBG
if (riga.get_long(SPR_CODANAGR) == 571)
int minimo = 1;
#endif
const TDate datapag = riga.get(PAG_DATAPAG); const TDate datapag = riga.get(PAG_DATAPAG);
const real compenso = riga.get_real(PAG_COMPENSO); const real compenso = riga.get_real(PAG_COMPENSO);
const real imponibile = riga.get(PAG_IMPONIBILE); const real imponibile = riga.get(PAG_IMPONIBILE);
@ -132,8 +127,10 @@ void TRighe_riepilogo::genera_la(TRectype& quadro, const TRectype& riga, const T
{ {
const real inps_perc = riga.get_real(PAG_INPSPERC); const real inps_perc = riga.get_real(PAG_INPSPERC);
const real inps_erog = inps_tot - inps_perc; const real inps_erog = inps_tot - inps_perc;
const real somm_rest = riga.get_real(PAG_NETRIT);
quadro.put(QUD_CTINPSEROG, inps_erog); // AUXXX020 quadro.put(QUD_CTINPSEROG, inps_erog); // AUXXX020
quadro.put(QUD_CTINPSPERC, inps_perc); // AUXXX021 quadro.put(QUD_CTINPSPERC, inps_perc); // AUXXX021
quadro.put(QUD_SRNETRIT, somm_rest); // AUXXX022
} }
if (somme.is_zero() && quadro.get(QUD_TOTALE) == quadro.get(QUD_IMPONIBILE)) if (somme.is_zero() && quadro.get(QUD_TOTALE) == quadro.get(QUD_IMPONIBILE))
@ -830,6 +827,7 @@ void TQuadroC_E2::genera_la(TRectype& quadro, const TRectype& riga, const TStrin
const real inps_tot = riga.get(PAG_INPSCOMP); const real inps_tot = riga.get(PAG_INPSCOMP);
real inps_erog, inps_perc; real inps_erog, inps_perc;
const real somm_rest = riga.get_real(PAG_NETRIT);
if (inps_tot > ZERO && riga.get_real(PAG_IMPONIBILE) > real(5000)) if (inps_tot > ZERO && riga.get_real(PAG_IMPONIBILE) > real(5000))
{ {
inps_perc = riga.get_real(PAG_INPSPERC); inps_perc = riga.get_real(PAG_INPSPERC);
@ -837,6 +835,7 @@ void TQuadroC_E2::genera_la(TRectype& quadro, const TRectype& riga, const TStrin
} }
quadro.put(QUD_CTINPSEROG, inps_erog); // AUXXX020 quadro.put(QUD_CTINPSEROG, inps_erog); // AUXXX020
quadro.put(QUD_CTINPSPERC, inps_perc); // AUXXX021 quadro.put(QUD_CTINPSPERC, inps_perc); // AUXXX021
quadro.put(QUD_SRNETRIT, somm_rest); // AUXXX022
const TRectype& perc = cache().get_rec(LF_PERC, quadro.get(SPR_CODDITTA), quadro.get(SPR_TIPOA), quadro.get(SPR_CODANAGR)); const TRectype& perc = cache().get_rec(LF_PERC, quadro.get(SPR_CODDITTA), quadro.get(SPR_TIPOA), quadro.get(SPR_CODANAGR));
quadro.put("ENTEPREV", perc.get("ENTEPREV")); // AUXXX029 / 32 quadro.put("ENTEPREV", perc.get("ENTEPREV")); // AUXXX029 / 32

17
src/m770/771230la.uml
View File

@ -141,7 +141,8 @@ BEGIN
ITEM "Ente\nPrev.@8" ITEM "Ente\nPrev.@8"
ITEM "Categ." ITEM "Categ."
ITEM "Contributi\nerogante@15" ITEM "Contributi\nerogante@15"
ITEM "Contributi\npercipiente@15" ITEM "Contributi\npercipiente@15" //18
ITEM "Somme restit.\nnetto ritenute@15"
ITEM "Altri contributi" ITEM "Altri contributi"
ITEM "Contributi dovuti" ITEM "Contributi dovuti"
ITEM "Contributi versati" ITEM "Contributi versati"
@ -292,13 +293,13 @@ BEGIN
FIELD RITANNIPRE FIELD RITANNIPRE
END END
BOOLEAN 122 BOOLEAN 123
BEGIN BEGIN
PROMPT 1 13 "Anticipazione" PROMPT 1 13 "Anticipazione"
FIELD ANTICIPAZ FIELD ANTICIPAZ
END END
BOOLEAN 123 BOOLEAN 124
BEGIN BEGIN
PROMPT 31 13 "Riga generata da schede" PROMPT 31 13 "Riga generata da schede"
FLAGS "D" FLAGS "D"
@ -340,18 +341,24 @@ BEGIN
END END
CURRENCY 119 15 CURRENCY 119 15
BEGIN
PROMPT 1 4 "Somme restituite al netto ritenuta "
FIELD SRNETRIT
END
CURRENCY 120 15
BEGIN BEGIN
PROMPT 1 5 "Altri contributi " PROMPT 1 5 "Altri contributi "
FIELD ALTRICONTR FIELD ALTRICONTR
END END
CURRENCY 120 15 CURRENCY 121 15
BEGIN BEGIN
PROMPT 1 6 "Contributi dovuti " PROMPT 1 6 "Contributi dovuti "
FIELD CONTRDOV FIELD CONTRDOV
END END
CURRENCY 121 15 CURRENCY 122 15
BEGIN BEGIN
PROMPT 1 7 "Contributi versati " PROMPT 1 7 "Contributi versati "
FIELD CONTRVER FIELD CONTRVER

2
src/m770/777100.cpp
View File

@ -10,7 +10,7 @@
#include "777lib.h" #include "777lib.h"
#include "777100a.h" #include "777100a.h"
#include "../fe/felib.h" #include "../cg/cglib.h"
#include <anagr.h> #include <anagr.h>
#include <anafis.h> #include <anafis.h>

33
src/m770/777200.cpp
View File

@ -10,7 +10,7 @@
#include "777200a.h" #include "777200a.h"
#include "777200.h" #include "777200.h"
#include "../fe/felib.h" #include "../cg/cglib.h"
#include <anagr.h> #include <anagr.h>
#include <anafis.h> #include <anafis.h>
@ -89,15 +89,15 @@ TTracciatoCU::TTracciatoCU(char tipo)
add_field("Denominazione (Alternativo a 12 e 13)",AN,137, 60); add_field("Denominazione (Alternativo a 12 e 13)",AN,137, 60);
add_field("Indirizzo E-mail", AN,197,100); add_field("Indirizzo E-mail", AN,197,100);
add_field("Telefono o Fax", AN,297, 12); add_field("Telefono o Fax", AN,297, 12);
add_field("Eventi Eccezionali", NU,309, 1, 17); // 17 add_field("Eventi Eccezionali", NU,309, 2, 17); // 17
add_field("Codice fiscale del rappresentante", CF,310,16); // 18 add_field("Codice fiscale del rappresentante", CF,311,16); // 18
add_field("Codice carica del rappresentante", NU,326, 2); add_field("Codice carica del rappresentante", NU,327, 2);
add_field("Cognome", AN,328,24); add_field("Cognome", AN,329,24);
add_field("Nome", AN,352,20); add_field("Nome", AN,353,20);
add_field("Codice fiscale del dichiarante", CN,372,11); add_field("Codice fiscale del dichiarante", CN,373,11);
add_filler(383,19); // 23 add_filler(384,18); // 23
add_field("Numero comunicaz. relative a certificazioni",NU, 402, 8); add_field("Numero comunicaz. relative a certificazioni",NU, 402, 8);
add_field("Casella quadro CT", CB, 410, 1); add_field("Casella quadro CT", CB, 410, 1);
add_field("Firma del dichiarante", CB, 411, 1); add_field("Firma del dichiarante", CB, 411, 1);
@ -748,6 +748,12 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
rec.np_put("DA002022", cod_com); rec.np_put("DA002022", cod_com);
rec.np_put("DA002023", cod_fus); rec.np_put("DA002023", cod_fus);
} }
else // Estero aggiunta 2021
{
TString stato_estero;
rec.np_put("DA002011", stato_estero);
}
// rec.np_put("DA002030", ""); // Codice fiscale del rappresentante un incapace // rec.np_put("DA002030", ""); // Codice fiscale del rappresentante un incapace
if (perc.estero()) if (perc.estero())
@ -811,7 +817,7 @@ bool TTrasferimentoCU::append_record_h(const TRectype& qla, int modulo, TLog_rep
real imponibile = qla.get_real("IMPONIBILE"); real imponibile = qla.get_real("IMPONIBILE");
const TString4 codcaus = qla.get("CODCAUS"); const TString4 codcaus = qla.get("CODCAUS");
long codice = atol(cache().get("%CA7", codcaus, "I1")); // 1, 2, 5, 6, 7 // EDIT 2020: aggiunti 8, 9, 10, 11 long codice = atol(cache().get("%CA7", codcaus, "I1")); // 1, 2, 5, 6, 7 // EDIT 2020: aggiunti 8, 9, 10, 11 // Edit 2021 aggiunti 12,13
real altre_somme = qla.get_real("SOMME"); real altre_somme = qla.get_real("SOMME");
if (altre_somme > -0.02 && altre_somme < 0.02) if (altre_somme > -0.02 && altre_somme < 0.02)
@ -828,7 +834,7 @@ bool TTrasferimentoCU::append_record_h(const TRectype& qla, int modulo, TLog_rep
if (codice <= 0) codice = 7; // Regime minimi if (codice <= 0) codice = 7; // Regime minimi
if (codice == 2) if (codice == 2)
message_box("Anagrafica %c &ld : Il codice 2 somme non soggette è stato eliminato", tipoanag, codanagr); message_box("Anagrafica %c &ld : Il codice 2 somme non soggette è stato eliminato", tipoanag, codanagr);
rec.np_put("AU001006", codice); // 1, 5, 6, 7 // EDIT 2020: aggiunti 8, 9, 10, 11 rec.np_put("AU001006", codice); // 1, 5, 6, 7 // EDIT 2020: aggiunti 8, 9, 10, 11 //Edit 2021 aggiunti 12,13
rec.np_put("AU001007", altre_somme); rec.np_put("AU001007", altre_somme);
} }
rec.np_put("AU001008", imponibile); // 004 - 005 - 007 rec.np_put("AU001008", imponibile); // 004 - 005 - 007
@ -840,8 +846,9 @@ bool TTrasferimentoCU::append_record_h(const TRectype& qla, int modulo, TLog_rep
rec.np_put("AU001018", qla.get_real("IMPANNIPRE")); // imponibile anni precedenti rec.np_put("AU001018", qla.get_real("IMPANNIPRE")); // imponibile anni precedenti
rec.np_put("AU001019", qla.get_real("RITANNIPRE")); // ritenute anni precedenti rec.np_put("AU001019", qla.get_real("RITANNIPRE")); // ritenute anni precedenti
//rec.np_put("AU001020", qla.get_real("SPESERIMB")); // spese rimborsate rec.np_put("AU001020", qla.get_real("SPESERIMB")); // spese rimborsate
//rec.np_put("AU001021", qla.get_real("RITRIMB")); // ritenute rimborsate rec.np_put("AU001021", qla.get_real("RITRIMB")); // ritenute rimborsate
rec.np_put("AU001022", qla.get_real("SRNETRIT")); // somme restituite al netto della ritenuta subita
const real cce = qla.get_real("CTINPSEROG"); const real cce = qla.get_real("CTINPSEROG");
const real ccp = qla.get_real("CTINPSPERC"); const real ccp = qla.get_real("CTINPSPERC");
@ -929,7 +936,7 @@ bool TTrasferimentoCU::split(const char* path)
{ {
TRecordCU rec; TRecordCU rec;
rec.tipo_record('A'); // Compila record di testata A rec.tipo_record('A'); // Compila record di testata A
rec.set(3, "CUR20"); // Codice fornitura 2020 rec.set(3, "CUR21"); // Codice fornitura 2021
rec.set(4, 1); // Tipo fornitore: 01=Soggetto che invia la propria dichiarazione; 10=CAF rec.set(4, 1); // Tipo fornitore: 01=Soggetto che invia la propria dichiarazione; 10=CAF
rec.set(5, _codfis_int.full() ? _codfis_int : cod_fis_dic()); // Codice fiscale del fornitore rec.set(5, _codfis_int.full() ? _codfis_int : cod_fis_dic()); // Codice fiscale del fornitore
outfile << rec; // Scrive record testata outfile << rec; // Scrive record testata

2
src/m770/777201.cpp
View File

@ -725,6 +725,7 @@ void TCU_report::create_D()
add_labeled_field(body, 1, 49, 3, "#DA002008", "Categorie\nparticolari", 'C'); add_labeled_field(body, 1, 49, 3, "#DA002008", "Categorie\nparticolari", 'C');
add_labeled_number(body,1, 55, 3, "#DA002009", "Eventi\neccezionali", 'C'); add_labeled_number(body,1, 55, 3, "#DA002009", "Eventi\neccezionali", 'C');
add_labeled_number(body,1, 61, 3, "#DA002010", "Casi di esclusione\ndalla precompilata", 'C'); add_labeled_number(body,1, 61, 3, "#DA002010", "Casi di esclusione\ndalla precompilata", 'C');
add_labeled_number(body,1, 67, 3, "#DA002011", "Stato\nEstero", 'C');
end_paragraph(body); end_paragraph(body);
begin_paragraph(body, CU_AFTER_LAST, 8, ""); begin_paragraph(body, CU_AFTER_LAST, 8, "");
@ -818,6 +819,7 @@ void TCU_report::create_H()
add_labeled_number(body, 5, tab1, CU_EURO_LEN, "#AU001019", "Ritenute operate anni precedenti", 'C'); add_labeled_number(body, 5, tab1, CU_EURO_LEN, "#AU001019", "Ritenute operate anni precedenti", 'C');
add_labeled_number(body, 5, tab2, CU_EURO_LEN, "#AU001020", "Spese rimborsate", 'C'); add_labeled_number(body, 5, tab2, CU_EURO_LEN, "#AU001020", "Spese rimborsate", 'C');
add_labeled_number(body, 5, tab3, CU_EURO_LEN, "#AU001021", "Ritenute rimborsate", 'C'); add_labeled_number(body, 5, tab3, CU_EURO_LEN, "#AU001021", "Ritenute rimborsate", 'C');
add_labeled_number(body, 5, tab3, CU_EURO_LEN, "#AU001022", "Somme restituite al netto della ritenuta subita", 'C');
end_paragraph(body); end_paragraph(body);
// 2016 // 2016

13
src/m770/77qla.frm
View File

@ -288,6 +288,15 @@ BEGIN
FIELD CTINPSPERC FIELD CTINPSPERC
SPECIAL STRING TRASFER "AU001021" "NP" SPECIAL STRING TRASFER "AU001021" "NP"
MESSAGE _SOLO_CAUS_M MESSAGE _SOLO_CAUS_M
END End
END VALUTA 122
BEGIN
KEY "SOMME RESTITUITE AL NETTO DELLA RITENUTA SUBITA"
PROMPT 122 9 ""
FIELD SRNETRIT
SPECIAL String TRASFER "AU001022" "NP"
//MESSAGE _SOLO_CAUS_M
End
End

4
src/m770/77tbca7.uml
View File

@ -328,7 +328,7 @@ BEGIN
WARNING "Percentuale della ritenuta d'acconto non valida" WARNING "Percentuale della ritenuta d'acconto non valida"
END END
NUMBER F_ALTRENONSOGG 1 NUMBER F_ALTRENONSOGG 2
BEGIN BEGIN
PROMPT 1 15 "Codice per somme non soggette a ritenuta " PROMPT 1 15 "Codice per somme non soggette a ritenuta "
SHEET "Codice|Descrizione@450" SHEET "Codice|Descrizione@450"
@ -342,6 +342,8 @@ BEGIN
ITEM "9|Somme corrisposte che non hanno concorso a formare il reddito imponibile (70% dell’ammontare erogato), relative ai compensi percepiti dai lavoratori impatriati in base a quanto stabilito dal comma1, dell’articolo 16 del D.lgs. n. 147 del 2015 modificato dal D.L. 30 aprile 2019, n. 34" ITEM "9|Somme corrisposte che non hanno concorso a formare il reddito imponibile (70% dell’ammontare erogato), relative ai compensi percepiti dai lavoratori impatriati in base a quanto stabilito dal comma1, dell’articolo 16 del D.lgs. n. 147 del 2015 modificato dal D.L. 30 aprile 2019, n. 34"
ITEM "10|Somme corrisposte che non hanno concorso a formare il reddito imponibile (90% dell’ammontare erogato), relative ai compensi percepiti dai lavoratori impatriati in base a quanto stabilito dal comma 5-bis, dell’articolo 16 del D.lgs. n. 147 del 2015 modificato dal D.L. 30 aprile 2019, n. 34" ITEM "10|Somme corrisposte che non hanno concorso a formare il reddito imponibile (90% dell’ammontare erogato), relative ai compensi percepiti dai lavoratori impatriati in base a quanto stabilito dal comma 5-bis, dell’articolo 16 del D.lgs. n. 147 del 2015 modificato dal D.L. 30 aprile 2019, n. 34"
ITEM "11|Somme corrisposte che non hanno concorso a formare il reddito imponibile (50% dell’ammontare erogato), relative ai compensi percepiti dai lavoratori impatriati in base a quanto stabilito dal comma 5-quater, dell’articolo 16 del D.lgs. n. 147 del 2015 modificato dal D.L. 30 aprile 2019, n. 34" ITEM "11|Somme corrisposte che non hanno concorso a formare il reddito imponibile (50% dell’ammontare erogato), relative ai compensi percepiti dai lavoratori impatriati in base a quanto stabilito dal comma 5-quater, dell’articolo 16 del D.lgs. n. 147 del 2015 modificato dal D.L. 30 aprile 2019, n. 34"
ITEM "12|Spese diverse da istruzione universitaria"
ITEM "13|Spese per istruzione universitaria"
OUTPUT F_ALTRENONSOGG OUTPUT F_ALTRENONSOGG
FIELD I1 FIELD I1
END END

2
src/m770/f144.dir
View File

@ -1,3 +1,3 @@
144 144
1 1
m770/quadrola|0|0|312|0|Quadro LA 770||| m770/quadrola|0|0|330|0|Quadro LA 770|||

3
src/m770/f144.trr
View File

@ -1,5 +1,5 @@
144 144
27 28
CODDITTA|3|5|0|Codice ditta CODDITTA|3|5|0|Codice ditta
TIPOA|1|1|0|Tipo anagrafica (Sempre 'F') TIPOA|1|1|0|Tipo anagrafica (Sempre 'F')
CODANAGR|3|5|0|Codice anagrafica CODANAGR|3|5|0|Codice anagrafica
@ -21,6 +21,7 @@ RITANNIPRE|4|18|3|Ritenute anni precedenti
SOMREGCONV|4|18|3|Somme non soggette a ritenuta per reg. conv. SOMREGCONV|4|18|3|Somme non soggette a ritenuta per reg. conv.
CTINPSEROG|4|18|3|Contribuiti previdenziali a carico dell'erogante CTINPSEROG|4|18|3|Contribuiti previdenziali a carico dell'erogante
CTINPSPERC|4|18|3|Contribuiti previdenziali a carico del percipiente CTINPSPERC|4|18|3|Contribuiti previdenziali a carico del percipiente
SRNETRIT|4|18|3|Somme restituite al netto della ritenuta
ENTEPREV|1|8|0|Ente previdenziale ENTEPREV|1|8|0|Ente previdenziale
CATEGORIA|1|2|0|Categoria previdenziale CATEGORIA|1|2|0|Categoria previdenziale
ALTRICONTR|4|18|3|Altri contributi ALTRICONTR|4|18|3|Altri contributi

2
src/m770/f41.dir
View File

@ -1,3 +1,3 @@
41 41
1 1
m770/rpag|0|0|476|0|Righe di pagamento|#9|| m770/rpag|0|0|494|0|Righe di pagamento|#9||

3
src/m770/f41.trr
View File

@ -1,5 +1,5 @@
41 41
36 37
CODDITTA|3|5|0|Codice ditta CODDITTA|3|5|0|Codice ditta
TIPOA|1|1|0|Tipo percipiente TIPOA|1|1|0|Tipo percipiente
CODANAGR|3|5|0|Codice percipiente CODANAGR|3|5|0|Codice percipiente
@ -31,6 +31,7 @@ RITUTPAG|4|18|2|Ritenute utili pagati (G)
RITUTSPE|4|18|2|Ritenute utili spettanti (G) RITUTSPE|4|18|2|Ritenute utili spettanti (G)
NQUOTE|4|6|2|Numero quote (G) NQUOTE|4|6|2|Numero quote (G)
SOMNSRIT|4|18|2|Somme non soggette a ritenuta (calc) SOMNSRIT|4|18|2|Somme non soggette a ritenuta (calc)
SRNETRIT|4|18|2|Somme restituite al netto delle ritenute
AMMLORDO|4|18|2|Ammontare lordo corrisposto (calc) AMMLORDO|4|18|2|Ammontare lordo corrisposto (calc)
QUOTAPROV|4|18|2|Quota provvigioni (calc) QUOTAPROV|4|18|2|Quota provvigioni (calc)
IMPNETTO|4|18|2|Imponibile al netto delle ritenute (calc) IMPNETTO|4|18|2|Imponibile al netto delle ritenute (calc)

1
src/m770/quadrod.h
View File

@ -17,6 +17,7 @@
#define QUD_SOMREGCONV "SOMREGCONV" #define QUD_SOMREGCONV "SOMREGCONV"
#define QUD_CTINPSEROG "CTINPSEROG" #define QUD_CTINPSEROG "CTINPSEROG"
#define QUD_CTINPSPERC "CTINPSPERC" #define QUD_CTINPSPERC "CTINPSPERC"
#define QUD_SRNETRIT "SRNETRIT"
#define QUD_GENERATA "GENERATA" #define QUD_GENERATA "GENERATA"
#endif #endif

1
src/m770/rpag.h
View File

@ -18,6 +18,7 @@
#define PAG_NUMPAG "NUMPAG" #define PAG_NUMPAG "NUMPAG"
#define PAG_SPESA "SPESA" #define PAG_SPESA "SPESA"
#define PAG_INPSPERC "CTSSNPERC" #define PAG_INPSPERC "CTSSNPERC"
#define PAG_NETRIT "SRNETRIT"
#define PAG_INPSCOMP "CTSSNCOMP" #define PAG_INPSCOMP "CTSSNCOMP"
#define PAG_RITLORDA "RITLORDA" #define PAG_RITLORDA "RITLORDA"
#define PAG_CONTROBB "CONTROBB" #define PAG_CONTROBB "CONTROBB"