Patch level : 12.0 640

Files correlati     : 777.exe
Commento            : Aggiornato il tracciato di invio del quadro ST

build/770.vcxproj

@@ -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>

build/770.vcxproj.filters

@@ -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" />

build/771mod.vcxproj

@@ -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>

build/772mod.vcxproj

@@ -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>

build/773mod.vcxproj

@@ -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>

build/774.vcxproj

@@ -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>

build/775.vcxproj

@@ -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>

build/777.vcxproj

@@ -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>

src/include/form.h

@@ -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

src/m770/777100.cpp

@@ -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);
+		TForm_item& fi = *f;
-    str = fi.get(); str.trim();
+    
+		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(9, totale['I'-'A']);  // Totale I
-      rec.set(10,totale['J'-'A']);  // Totale J
+//      rec.set(10,totale['J'-'A']);  // Totale J
   
       // Scrive record di coda
       outfile << rec;

src/m770/77qst.frm

@@ -32,43 +32,20 @@ BEGIN
   PROMPT 79 2 ""
   FIELD QLRITEFF
   SPECIAL STRINGA TRASFER "ST002002" "NP" 
-END
+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
 
 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
+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
 
 NUMERO 13
 BEGIN
   KEY "Regione"
   PROMPT 79 2 ""
   FIELD QLREGIONE
-END
+End
 
 STRINGA 14
 BEGIN