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

Patch level : 12.0 640

Browse Source 
Files correlati     : 777.exe
Commento            : Aggiornato il tracciato di invio del quadro ST
This commit is contained in:
AlexBonazzi 2018-10-31 00:31:02 +01:00
parent 663cde4824
commit 270ce672a3
11 changed files with 34 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
build/770.vcxproj
View File

@ -51,6 +51,9 @@
<EmbedManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</EmbedManifest>
<EmbedManifest Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</EmbedManifest>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<LinkIncremental>true</LinkIncremental>
</PropertyGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<Midl>
<PreprocessorDefinitions>_DEBUG;%(PreprocessorDefinitions)</PreprocessorDefinitions>
@ -90,6 +93,7 @@
</DataExecutionPrevention>
<TargetMachine>MachineX86</TargetMachine>
<ImageHasSafeExceptionHandlers>false</ImageHasSafeExceptionHandlers>
<Version>12.0</Version>
</Link>
<Bscmake>
<SuppressStartupBanner>true</SuppressStartupBanner>

3
build/770.vcxproj.filters
View File

@ -387,6 +387,9 @@
<ClInclude Include="..\src\m770\77tbca7.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\cg\cg2103.h">
<Filter>Headers</Filter>
</ClInclude>
</ItemGroup>
<ItemGroup>
<ResourceCompile Include="campo.rc" />

2
build/771mod.vcxproj
View File

@ -46,7 +46,7 @@
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</GenerateManifest>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</GenerateManifest>
<EmbedManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</EmbedManifest>

2
build/772mod.vcxproj
View File

@ -46,7 +46,7 @@
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</GenerateManifest>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</GenerateManifest>
<EmbedManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</EmbedManifest>

2
build/773mod.vcxproj
View File

@ -43,7 +43,7 @@
<_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental>

2
build/774.vcxproj
View File

@ -42,7 +42,7 @@
<PropertyGroup>
<_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\exe\</OutDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental>

2
build/775.vcxproj
View File

@ -46,7 +46,7 @@
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental>
<EmbedManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</EmbedManifest>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</GenerateManifest>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</GenerateManifest>

2
build/777.vcxproj
View File

@ -43,7 +43,7 @@
<_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental>
<OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">..\exe\</OutDir>
<IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">..\obj\$(SolutionName)\$(ProjectName)\</IntDir>
<LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental>

11
src/include/form.h
View File

@ -595,7 +595,16 @@ public:
// @cmember Ritorna l'<p n>-esimo campo da stampare
TForm_item& field(int n) const
{ return (TForm_item&)_item[n]; }
// @cmember Ritorna il primo campo da stampare
TForm_item* first_field()
{ return (TForm_item *)_item.first_item(); }
// @cmember Ritorna il campo successivo da stampare
TForm_item* succ_field()
{ return (TForm_item *)_item.succ_item(); }
// @cmember Ritorna l'ultimo campo da stampare
TForm_item* last_field()
{ return (TForm_item *)_item.last_item(); }
// @cmember Cerca e ritorna l'<p id>-esimo campo nella sezione
TForm_item* exist_field(short id) const;
// @cmember Cerca e ritorna la sottosezione <p id> nella sezione

11
src/m770/777100.cpp
View File

@ -175,10 +175,11 @@ void TForm770::transfer_section(TPrint_section& body, int rigo,
TString str;
body.update();
for (word f = 0; f < body.fields(); f++)
for (TForm_item * f = body.first_field(); f != NULL; f = body.succ_field())
{
TForm_item& fi = body.field(f);
str = fi.get(); str.trim();
TForm_item& fi = *f;
str = fi.get(); str.trim();
if (fi.shown() && str.not_empty())
{
basecode = fi.get_special_value("TRASFER");
@ -1027,8 +1028,8 @@ bool TTrasferimento770::split(const char* path)
rec.set(6, totale['F'-'A']); // Totale F
rec.set(7, totale['G'-'A']); // Totale G
rec.set(8, totale['H'-'A']); // Totale H
rec.set(9, totale['I'-'A']); // Totale I
rec.set(10,totale['J'-'A']); // Totale J
// rec.set(9, totale['I'-'A']); // Totale I
// rec.set(10,totale['J'-'A']); // Totale J
// Scrive record di coda
outfile << rec;

50
src/m770/77qst.frm
View File

@ -32,43 +32,20 @@ BEGIN
PROMPT 79 2 ""
FIELD QLRITEFF
SPECIAL STRINGA TRASFER "ST002002" "NP"
END
VALUTA 3
BEGIN
KEY "CREDITI RECUPERATI"
PROMPT 79 2 ""
FIELD QLRITCOMP
SPECIAL STRINGA TRASFER "ST002003" "NP"
END
VALUTA 4
BEGIN
KEY "IMPORTI A SCOMPUTO"
PROMPT 79 2 ""
SPECIAL STRINGA TRASFER "ST002004" "NP"
END
VALUTA 5
BEGIN
KEY "VERSAMENTI IN ECCESSO"
PROMPT 79 2 ""
FIELD QLRITVEREC
SPECIAL STRINGA TRASFER "ST002005" "NP"
END
End
VALUTA 6
BEGIN
KEY "CREDITI D'IMPOSTA UTILIZZATI A SCOMPUTO"
PROMPT 79 2 ""
SPECIAL STRINGA TRASFER "ST002004" "NP"
SPECIAL STRINGA TRASFER "ST002006" "NP"
END
VALUTA 7
BEGIN
KEY "IMPORTO VERSATO"
PROMPT 79 2 ""
MESSAGE _NUMEXPR,#2-#3-#4-#5-#6
MESSAGE _NUMEXPR,#2-#6
SPECIAL STRINGA TRASFER "ST002007" "NP"
END
@ -100,31 +77,14 @@ BEGIN
PROMPT 79 2 ""
FIELD QLCT
SPECIAL STRINGA TRASFER "ST002011" "AN"
END
LISTA 100
BEGIN
KEY "Tesoreria"
PROMPT 79 2 ""
FIELD QLLV
ITEM " | " MESSAGE " ",10
ITEM "C| " MESSAGE " ",10
ITEM "T|X" MESSAGE "X",10
END
NUMERO 12
BEGIN
KEY "Tesoreria"
PROMPT 79 2 ""
SPECIAL STRINGA TRASFER "ST002012" "CB"
END
End
NUMERO 13
BEGIN
KEY "Regione"
PROMPT 79 2 ""
FIELD QLREGIONE
END
End
STRINGA 14
BEGIN