Patch level : 12.0 no-patch

Files correlati     : f90.exe d181.des f181.dir f181.trr all-masks
Commento            : F9: aggiunta maschera f90300b mancante

build/f90.vcxproj

@@ -201,6 +201,7 @@
     <ClInclude Include="..\src\f9\f90100c.h" />
     <ClInclude Include="..\src\f9\f90100d.h" />
     <ClInclude Include="..\src\f9\f90300a.h" />
+    <ClInclude Include="..\src\f9\f90300b.h" />
     <ClInclude Include="..\src\f9\f9lib01.h" />
     <ClInclude Include="..\src\f9\f901tab.h" />
     <ClInclude Include="..\src\f9\f90200a.h" />
@@ -212,6 +213,7 @@
     <MskCompiler Include="..\src\f9\f90100d.uml" />
     <MskCompiler Include="..\src\f9\f90200a.uml" />
     <MskCompiler Include="..\src\f9\f90300a.uml" />
+    <MskCompiler Include="..\src\f9\f90300b.uml" />
   </ItemGroup>
   <ItemGroup>
     <SqlCompiler Include="..\src\f9\sql\f90100.sql">
@@ -235,6 +237,9 @@
   <ItemGroup>
     <TrrCompiler Include="..\src\f9\f181.trr" />
   </ItemGroup>
+  <ItemGroup>
+    <MenCompiler Include="..\src\fp\fpmenu.men" />
+  </ItemGroup>
   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
   <ImportGroup Label="ExtensionTargets">
     <Import Project="CampoRules.targets" />

build/f90.vcxproj.filters

@@ -22,7 +22,7 @@
     <Filter Include="SQL">
       <UniqueIdentifier>{28870b23-e896-4312-855b-049305092f1d}</UniqueIdentifier>
     </Filter>
-    <Filter Include="recset">
+    <Filter Include="Recdesc">
       <UniqueIdentifier>{95c95f84-ca93-4c2f-b1cf-e94922dfa7ef}</UniqueIdentifier>
     </Filter>
   </ItemGroup>
@@ -57,6 +57,9 @@
     <ClInclude Include="..\src\f9\f90300a.h">
       <Filter>Headers</Filter>
     </ClInclude>
+    <ClInclude Include="..\src\f9\f90300b.h">
+      <Filter>Headers</Filter>
+    </ClInclude>
   </ItemGroup>
   <ItemGroup>
     <ClCompile Include="..\src\f9\f90.cpp">
@@ -94,6 +97,9 @@
     <MskCompiler Include="..\src\f9\f90300a.uml">
       <Filter>Masks</Filter>
     </MskCompiler>
+    <MskCompiler Include="..\src\f9\f90300b.uml">
+      <Filter>Masks</Filter>
+    </MskCompiler>
   </ItemGroup>
   <ItemGroup>
     <SqlCompiler Include="..\src\f9\sql\f90100.sql">
@@ -108,17 +114,22 @@
   </ItemGroup>
   <ItemGroup>
     <DesCompiler Include="..\src\f9\d181.des">
-      <Filter>recset</Filter>
+      <Filter>Recdesc</Filter>
     </DesCompiler>
   </ItemGroup>
   <ItemGroup>
     <DirCompiler Include="..\src\f9\f181.dir">
-      <Filter>recset</Filter>
+      <Filter>Recdesc</Filter>
     </DirCompiler>
   </ItemGroup>
   <ItemGroup>
     <TrrCompiler Include="..\src\f9\f181.trr">
-      <Filter>recset</Filter>
+      <Filter>Recdesc</Filter>
     </TrrCompiler>
   </ItemGroup>
+  <ItemGroup>
+    <MenCompiler Include="..\src\fp\fpmenu.men">
+      <Filter>Menu</Filter>
+    </MenCompiler>
+  </ItemGroup>
 </Project>

src/f9/f90300b.h

@@ -0,0 +1,3 @@
+#define F_IMPADDRGROUP 101
+#define F_IMPADDRESS   102
+#define F_IMPNUMREG    103

src/f9/f90300b.uml

@@ -0,0 +1,62 @@
+#include "f90300b.h"
+
+TOOLBAR "topbar" 0 0 0 2
+
+BUTTON DLG_OK 2 2
+BEGIN
+  PROMPT 1 1 "~Conferma"
+  PICTURE TOOL_OK
+END
+
+BUTTON DLG_NULL 2 2
+BEGIN
+  PROMPT -1 1 ""
+  PICTURE 0
+END
+
+BUTTON DLG_QUIT 2 2
+BEGIN
+  PROMPT 1 1 "Esci"
+  PICTURE TOOL_QUIT
+END
+
+ENDPAGE
+
+PAGE "Apri..." 0 0 0 0
+
+GROUPBOX F_IMPADDRGROUP 76 6
+BEGIN
+  PROMPT 1 0 ""
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 2 1 "@BInserire percorso file."
+END
+
+STRING F_IMPADDRESS 255 64
+BEGIN
+  PROMPT 2 2 "Apri:   "
+  FSELECT ""
+  FLAG "B"
+END
+
+NUMBER F_IMPNUMREG 7
+BEGIN
+  PROMPT 2 6 "Registrazione"
+  USE MOV
+  INPUT NUMREG F_IMPNUMREG
+  DISPLAY "Numero" NUMREG
+  DISPLAY "Data      " DATAREG
+  DISPLAY "Causale" CODCAUS
+  DISPLAY "Num. Doc." NUMDOC
+  DISPLAY "N. esteso" NUMDOCEXT
+  DISPLAY "Prot. IVA" PROTIVA
+  DISPLAY "Descrizione" DESCR
+  OUTPUT F_IMPNUMREG NUMREG
+  CHECKTYPE NORMAL
+  FLAG "U"
+END
+
+ENDPAGE
+ENDMASK