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

Patch level : 12.0 no-patch

Browse Source 
Files correlati     : build
Commento            : Aggiunto nuovo progetto F9
This commit is contained in:
Simone Palacino 2019-06-13 17:43:30 +02:00
parent 02b8cce7e3
commit 783f6ca9b6
9 changed files with 993 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
build/f9.sln Normal file
View File

@ -0,0 +1,46 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.27130.2027
MinimumVisualStudioVersion = 10.0.40219.1
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "AgaLib", "AgaLib.vcxproj", "{2D38A763-3D74-4338-9362-B891784EC90E}"
EndProject
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "f90", "f90.vcxproj", "{9C91BACF-9A70-4973-B8CC-FA3D2AF9867C}"
ProjectSection(ProjectDependencies) = postProject
{41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC} = {41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC}
EndProjectSection
EndProject
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "f1lib", "f1lib.vcxproj", "{41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC}"
EndProject
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "fplib", "fplib.vcxproj", "{C575788B-0BE4-4F68-B9C9-3C204EC04E07}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Win32 = Debug|Win32
Release|Win32 = Release|Win32
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{2D38A763-3D74-4338-9362-B891784EC90E}.Debug|Win32.ActiveCfg = Debug|Win32
{2D38A763-3D74-4338-9362-B891784EC90E}.Debug|Win32.Build.0 = Debug|Win32
{2D38A763-3D74-4338-9362-B891784EC90E}.Release|Win32.ActiveCfg = Release|Win32
{2D38A763-3D74-4338-9362-B891784EC90E}.Release|Win32.Build.0 = Release|Win32
{9C91BACF-9A70-4973-B8CC-FA3D2AF9867C}.Debug|Win32.ActiveCfg = Debug|Win32
{9C91BACF-9A70-4973-B8CC-FA3D2AF9867C}.Debug|Win32.Build.0 = Debug|Win32
{9C91BACF-9A70-4973-B8CC-FA3D2AF9867C}.Release|Win32.ActiveCfg = Release|Win32
{9C91BACF-9A70-4973-B8CC-FA3D2AF9867C}.Release|Win32.Build.0 = Release|Win32
{41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC}.Debug|Win32.ActiveCfg = Debug|Win32
{41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC}.Debug|Win32.Build.0 = Debug|Win32
{41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC}.Release|Win32.ActiveCfg = Release|Win32
{41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC}.Release|Win32.Build.0 = Release|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Debug|Win32.ActiveCfg = Debug|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Debug|Win32.Build.0 = Debug|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Release|Win32.ActiveCfg = Release|Win32
{C575788B-0BE4-4F68-B9C9-3C204EC04E07}.Release|Win32.Build.0 = Release|Win32
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {F2D177A0-A760-4C18-8CC0-D83161148EFE}
EndGlobalSection
EndGlobal

138
build/f9.vcxproj.filters Normal file
View File

@ -0,0 +1,138 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup>
<ResourceCompile Include="campo.rc" />
</ItemGroup>
<ItemGroup>
<Filter Include="Sources">
<UniqueIdentifier>{8f3c3b75-6954-4409-b115-7896d032b58a}</UniqueIdentifier>
</Filter>
<Filter Include="Headers">
<UniqueIdentifier>{d2d65598-cd6c-4d2e-8968-54ffb82bf207}</UniqueIdentifier>
</Filter>
<Filter Include="Menu">
<UniqueIdentifier>{32532cc0-eb4d-4fdb-b7d8-1f1fb293350c}</UniqueIdentifier>
</Filter>
<Filter Include="Ini">
<UniqueIdentifier>{681a7df4-f2b5-4870-8949-6d7adba5aa29}</UniqueIdentifier>
</Filter>
<Filter Include="Masks">
<UniqueIdentifier>{a3067f4a-a21c-4966-b31b-d0536b8df95f}</UniqueIdentifier>
</Filter>
<Filter Include="Mask">
<UniqueIdentifier>{b801f294-9bb4-466f-90f4-441d0e94cd55}</UniqueIdentifier>
</Filter>
</ItemGroup>
<ItemGroup>
<ClInclude Include="..\src\tf\tf0.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tf0100a.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tftbcon.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tf0200a.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tf0500a.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tf0400a.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tfutility.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tf0100b.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\tf\tf0300a.h">
<Filter>Headers</Filter>
</ClInclude>
</ItemGroup>
<ItemGroup>
<ClCompile Include="..\src\tf\tf0100.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tf0.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\fe\felib.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tf0200.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tf0500.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tf0400.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tfutility.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tf0102.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tf0101.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\tf\tf0300.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\cg\cglib01.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\cg\cglib03.cpp">
<Filter>Sources</Filter>
</ClCompile>
</ItemGroup>
<ItemGroup>
<MskCompiler Include="..\src\tf\tftbcon.uml">
<Filter>Masks</Filter>
</MskCompiler>
<MskCompiler Include="..\src\tf\tf0100a.uml">
<Filter>Masks</Filter>
</MskCompiler>
<MskCompiler Include="..\src\tf\tf0200a.uml">
<Filter>Masks</Filter>
</MskCompiler>
<MskCompiler Include="..\src\tf\tf0500a.uml">
<Filter>Masks</Filter>
</MskCompiler>
<MskCompiler Include="..\src\tf\tf0400a.uml">
<Filter>Masks</Filter>
</MskCompiler>
<MskCompiler Include="..\src\tf\tf0300a.uml">
<Filter>Masks</Filter>
</MskCompiler>
<MskCompiler Include="..\..\R_12_00_Release\src\tf\tf0400a.uml">
<Filter>Mask</Filter>
</MskCompiler>
<MskCompiler Include="..\..\R_12_00_Release\src\tf\tf0500a.uml">
<Filter>Mask</Filter>
</MskCompiler>
<MskCompiler Include="..\..\R_12_00_Release\src\tf\tf0100a.uml">
<Filter>Mask</Filter>
</MskCompiler>
<MskCompiler Include="..\..\R_12_00_Release\src\tf\tf0200a.uml">
<Filter>Mask</Filter>
</MskCompiler>
<MskCompiler Include="..\..\R_12_00_Release\src\tf\tf0300a.uml">
<Filter>Mask</Filter>
</MskCompiler>
</ItemGroup>
<ItemGroup>
<MenCompiler Include="..\src\tf\tfmenu.men">
<Filter>Menu</Filter>
</MenCompiler>
</ItemGroup>
<ItemGroup>
<IniCompiler Include="..\src\tf\tff.ini">
<Filter>Ini</Filter>
</IniCompiler>
</ItemGroup>
</Project>

204
build/f90.vcxproj Normal file
View File

@ -0,0 +1,204 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup Label="ProjectConfigurations">
<ProjectConfiguration Include="Debug|Win32">
<Configuration>Debug</Configuration>
<Platform>Win32</Platform>
</ProjectConfiguration>
<ProjectConfiguration Include="Release|Win32">
<Configuration>Release</Configuration>
<Platform>Win32</Platform>
</ProjectConfiguration>
</ItemGroup>
<PropertyGroup Label="Globals">
<ProjectGuid>{9C91BACF-9A70-4973-B8CC-FA3D2AF9867C}</ProjectGuid>
<RootNamespace>fp</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseOfMfc>false</UseOfMfc>
<PlatformToolset>v141</PlatformToolset>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseOfMfc>false</UseOfMfc>
<PlatformToolset>v141</PlatformToolset>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
<ImportGroup Label="ExtensionSettings">
<Import Project="CampoRules.props" />
</ImportGroup>
<ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="PropertySheets">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
<Import Project="$(VCTargetsPath)Microsoft.CPP.UpgradeFromVC60.props" />
</ImportGroup>
<ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="PropertySheets">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
<Import Project="$(VCTargetsPath)Microsoft.CPP.UpgradeFromVC60.props" />
</ImportGroup>
<PropertyGroup Label="UserMacros" />
<PropertyGroup>
<_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'">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>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</GenerateManifest>
<EmbedManifest Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</EmbedManifest>
<GenerateManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</GenerateManifest>
<EmbedManifest Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</EmbedManifest>
</PropertyGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<Midl>
<PreprocessorDefinitions>_DEBUG;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<MkTypLibCompatible>true</MkTypLibCompatible>
<SuppressStartupBanner>true</SuppressStartupBanner>
<TargetEnvironment>Win32</TargetEnvironment>
<TypeLibraryName>.\..\debug/tf0.tlb</TypeLibraryName>
<HeaderFileName>
</HeaderFileName>
</Midl>
<ClCompile>
<Optimization>Disabled</Optimization>
<AdditionalIncludeDirectories>..\src\xvtdb\;..\src\cg;..\src\include;..\src\xvaga;..\src\f1;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
<PreprocessorDefinitions>_DEBUG;WIN32;__LONGDOUBLE__;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<MinimalRebuild>false</MinimalRebuild>
<RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary>
<WarningLevel>Level3</WarningLevel>
<SuppressStartupBanner>true</SuppressStartupBanner>
<DebugInformationFormat>ProgramDatabase</DebugInformationFormat>
<StringPooling>
</StringPooling>
<DisableSpecificWarnings>
</DisableSpecificWarnings>
</ClCompile>
<ResourceCompile>
<PreprocessorDefinitions>_DEBUG;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<Culture>0x0410</Culture>
<AdditionalIncludeDirectories>..\wx28X\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
</ResourceCompile>
<Link>
<AdditionalDependencies>%(AdditionalDependencies)</AdditionalDependencies>
<SuppressStartupBanner>true</SuppressStartupBanner>
<IgnoreSpecificDefaultLibraries>%(IgnoreSpecificDefaultLibraries)</IgnoreSpecificDefaultLibraries>
<GenerateDebugInformation>true</GenerateDebugInformation>
<SubSystem>Windows</SubSystem>
<RandomizedBaseAddress>false</RandomizedBaseAddress>
<DataExecutionPrevention>
</DataExecutionPrevention>
<TargetMachine>MachineX86</TargetMachine>
</Link>
<Bscmake>
<SuppressStartupBanner>true</SuppressStartupBanner>
<OutputFile>.\..\debug/tf0.bsc</OutputFile>
</Bscmake>
<PostBuildEvent>
<Command>
</Command>
</PostBuildEvent>
</ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<Midl>
<PreprocessorDefinitions>NDEBUG;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<MkTypLibCompatible>true</MkTypLibCompatible>
<SuppressStartupBanner>true</SuppressStartupBanner>
<TargetEnvironment>Win32</TargetEnvironment>
<TypeLibraryName>.\..\release/tf0.tlb</TypeLibraryName>
<HeaderFileName>
</HeaderFileName>
</Midl>
<ClCompile>
<Optimization>MaxSpeed</Optimization>
<InlineFunctionExpansion>Default</InlineFunctionExpansion>
<AdditionalIncludeDirectories>..\src\xvtdb\;..\src\cg;..\src\include;..\src\xvaga;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
<PreprocessorDefinitions>NDEBUG;WIN32;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<StringPooling>true</StringPooling>
<RuntimeLibrary>MultiThreaded</RuntimeLibrary>
<FunctionLevelLinking>true</FunctionLevelLinking>
<PrecompiledHeaderOutputFile>.\..\release/tf0.pch</PrecompiledHeaderOutputFile>
<WarningLevel>Level3</WarningLevel>
<SuppressStartupBanner>true</SuppressStartupBanner>
<MinimalRebuild>false</MinimalRebuild>
</ClCompile>
<ResourceCompile>
<PreprocessorDefinitions>NDEBUG;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<Culture>0x0410</Culture>
<AdditionalIncludeDirectories>..\wx28X\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
</ResourceCompile>
<Link>
<OutputFile>$(OutDir)$(TargetName)$(TargetExt)</OutputFile>
<SuppressStartupBanner>true</SuppressStartupBanner>
<SubSystem>Windows</SubSystem>
<DataExecutionPrevention>
</DataExecutionPrevention>
<TargetMachine>MachineX86</TargetMachine>
<Version>12.0</Version>
<GenerateDebugInformation>false</GenerateDebugInformation>
<AdditionalDependencies>%(AdditionalDependencies)</AdditionalDependencies>
</Link>
<Bscmake>
<SuppressStartupBanner>true</SuppressStartupBanner>
<OutputFile>.\..\release/tf0.bsc</OutputFile>
</Bscmake>
<PostBuildEvent>
<Command>"C:\Program Files (x86)\Windows Kits\10\bin\10.0.16299.0\x64\signtool.exe" sign /a /s MY /n "Sirio Informatica e Sistemi SPA" /fd sha256 /tr http://sha256timestamp.ws.symantec.com/sha256/timestamp /v "$(TargetPath)"</Command>
</PostBuildEvent>
</ItemDefinitionGroup>
<ItemGroup>
<CustomBuildStep Include="..\LIB\AgaLib.lib">
<FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild>
</CustomBuildStep>
<CustomBuildStep Include="..\LIB\AgaLibD.lib">
<FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">true</ExcludedFromBuild>
</CustomBuildStep>
<CustomBuildStep Include="..\lib\vedoc.lib">
<FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</ExcludedFromBuild>
</CustomBuildStep>
<CustomBuildStep Include="..\lib\vedocd.lib">
<FileType>Document</FileType>
<ExcludedFromBuild Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">true</ExcludedFromBuild>
</CustomBuildStep>
</ItemGroup>
<ItemGroup>
<ResourceCompile Include="campo.rc">
<AdditionalIncludeDirectories Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\libraries\wx28X\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
<AdditionalIncludeDirectories Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">..\libraries\wx28X\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
</ResourceCompile>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="AgaLib.vcxproj">
<Project>{2d38a763-3d74-4338-9362-b891784ec90e}</Project>
</ProjectReference>
<ProjectReference Include="f1lib.vcxproj">
<Project>{41f4c25f-6bd2-4fc9-a0d3-a68cd1c9e4fc}</Project>
</ProjectReference>
<ProjectReference Include="fplib.vcxproj">
<Project>{c575788b-0be4-4f68-b9c9-3c204ec04e07}</Project>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<ClCompile Include="..\src\f9\f90.cpp" />
<ClCompile Include="..\src\f9\f90100.cpp" />
<ClCompile Include="..\src\f9\f90101.cpp" />
</ItemGroup>
<ItemGroup>
<ClInclude Include="..\src\f9\f90.h" />
<ClInclude Include="..\src\f9\f90100a.h" />
<ClInclude Include="..\src\f9\f90101.h" />
<ClInclude Include="..\src\f9\f901tab.h" />
</ItemGroup>
<ItemGroup>
<MskCompiler Include="..\src\f9\f90100a.uml" />
</ItemGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
<ImportGroup Label="ExtensionTargets">
<Import Project="CampoRules.targets" />
</ImportGroup>
</Project>

53
build/f90.vcxproj.filters Normal file
View File

@ -0,0 +1,53 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup>
<ResourceCompile Include="campo.rc" />
</ItemGroup>
<ItemGroup>
<Filter Include="Headers">
<UniqueIdentifier>{8b9b8072-7920-4b49-896b-f632e5ac1415}</UniqueIdentifier>
</Filter>
<Filter Include="Masks">
<UniqueIdentifier>{aa4d5fac-6242-4e34-8b78-263ec3e4d15f}</UniqueIdentifier>
</Filter>
<Filter Include="Libraries">
<UniqueIdentifier>{d7227be8-6583-4473-895f-595f8a48a8cb}</UniqueIdentifier>
</Filter>
<Filter Include="Menu">
<UniqueIdentifier>{022385bd-474b-4d1f-a01c-6d799bae0328}</UniqueIdentifier>
</Filter>
<Filter Include="Sources">
<UniqueIdentifier>{06bc8aeb-f506-4c2e-85fb-bdeb92f2c77e}</UniqueIdentifier>
</Filter>
</ItemGroup>
<ItemGroup>
<ClInclude Include="..\src\f9\f90.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\f9\f90100a.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\f9\f90101.h">
<Filter>Headers</Filter>
</ClInclude>
<ClInclude Include="..\src\f9\f901tab.h">
<Filter>Headers</Filter>
</ClInclude>
</ItemGroup>
<ItemGroup>
<ClCompile Include="..\src\f9\f90.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\f9\f90100.cpp">
<Filter>Sources</Filter>
</ClCompile>
<ClCompile Include="..\src\f9\f90101.cpp">
<Filter>Sources</Filter>
</ClCompile>
</ItemGroup>
<ItemGroup>
<MskCompiler Include="..\src\f9\f90100a.uml">
<Filter>Masks</Filter>
</MskCompiler>
</ItemGroup>
</Project>

15
src/f9/f90.cpp Normal file
View File

@ -0,0 +1,15 @@
#include <xvt.h>
#include "f90.h"
int main(int argc, char** argv)
{
int rt = -1;
const int r = (argc > 1) ? atoi( &argv[1][1] ) : 0;
switch (r)
{
default: rt = f90100(argc, argv); break;
}
return rt;
}

6
src/f9/f90.h Normal file
View File

@ -0,0 +1,6 @@
#ifndef __F90_H
#define __F90_H
int f90100(int argc, char* argv[]);
#endif

289
src/f9/f90100.cpp Normal file
View File

@ -0,0 +1,289 @@
#include <automask.h>
#include "applicat.h"
#include "f90100a.h"
#include "lffiles.h"
#include "isam.h"
#include "mov.h"
#include "f1lib.h"
#include "../fp/fplib.h"
enum state_fppro
{
correct = 1,
reg_with_err = -1,
not_fa = -10,
guessed = 100,
no_guessed = 0
};
class TMonitor_mask : public TAutomask
{
bool _dirty;
state_fppro check_fppro(int numreg) const;
protected:
void sel_all();
bool diagnosticazzi();
bool estrai();
void load_packs();
bool on_field_event(TOperable_field& o, TField_event e, long jolly) override;
public:
void fill();
void save_all();
void next_page(int p) override;
TMonitor_mask() : TAutomask("f90100a") {}
};
state_fppro TMonitor_mask::check_fppro(int numreg) const
{
TLocalisamfile mov(LF_MOV);
mov.put(MOV_NUMREG, numreg);
if (mov.read() && check_causale(mov.get(MOV_CODCAUS))) // Controllo subito la causale se no non mi interessa
{
// Controllo se ho i riferimenti all'FPPRO e verifico che sia tutto ok
const TString& keys_fppro = mov.get(MOV_KEYFPPRO);
if (keys_fppro.full())
{
TToken_string keys(keys_fppro, ';');
if (fppro_db().check_reg(keys, numreg))
return correct;
return reg_with_err;
}
else // Se non ho i riferimenti faccio guessing
{
if (fppro_db().guess_the_doc(mov))
return guessed;
return no_guessed;
}
}
return not_fa;
}
void TMonitor_mask::sel_all()
{
TSheet_field& sf = sfield(S_MOVS);
const char s = sf.row(0).starts_with("X") ? ' ' : 'X';
sf.hide();
FOR_EACH_SHEET_ROW(sf, n, row)
row->add(s, 0);
sf.force_update();
sf.show();
}
bool TMonitor_mask::diagnosticazzi()
{
return false;
}
bool TMonitor_mask::estrai()
{
return false;
}
void TMonitor_mask::load_packs()
{
TSheet_field& sf = sfield(S_ELAB);
const TDate from(TFppro::get_data_first_doc());
const TDate to(TODAY);
TLocalisamfile mov(LF_MOV);
mov.setkey(2);
mov.put(MOV_DATAREG, from);
struct movs_s
{
int n_docs{};
TDate first_doc;
TDate last_doc;
};
std::map<TDate, movs_s> elabs;
for(bool ok = mov.read(); ok && mov.get_date(MOV_DATAREG) <= to; ok = mov.next() == NOERR)
{
TDate last_dt_doc;
TDate last_dt_el;
TDate data_el = mov.get_date(MOV_DATAELABF9);
if(data_el.ok())
{
auto it = elabs.find(data_el);
if (it != elabs.end())
{
elabs[data_el].n_docs++;
last_dt_el = data_el;
last_dt_doc = mov.get_date(MOV_DATAREG);
}
else
{
if (!elabs.empty())
elabs[last_dt_el].last_doc = last_dt_doc;
elabs.insert({ data_el, {1, mov.get_date(MOV_DATAREG), TDate()} });
}
}
}
for (auto it = elabs.begin(); it != elabs.end(); ++it)
{
TToken_string& row = sf.row(-1);
row.add(it->first, 1);
row.add(it->second.n_docs);
row.add(it->second.first_doc);
row.add(it->second.last_doc);
}
}
void TMonitor_mask::fill()
{
const TDate dataini = get_date(F_DATAINI);
const TDate dataend = get_date(F_DATAEND);
TSheet_field& sf = sfield(S_MOVS);
TLocalisamfile mov(LF_MOV);
sf.hide();
sf.reset();
mov.setkey(2);
mov.put(MOV_DATAREG, dataini);
int i = 0;
for(bool ok = mov.read(); ok && mov.get_date(MOV_DATAREG) <= dataend; ok = mov.next() == NOERR)
{
if(mov.get_bool(MOV_REGST) && mov.get(MOV_NUMDOC).full())
{
TToken_string& row = sf.row(-1);
row.add("");
row.add(mov.get(MOV_NUMREG));
row.add(mov.get(MOV_DATAREG));
row.add(mov.get(MOV_DATADOC));
row.add(mov.get(MOV_CODCAUS));
row.add(mov.get(MOV_MESELIQ));
row.add(mov.get(MOV_NUMDOC));
row.add(mov.get(MOV_PROTIVA));
row.add(mov.get(MOV_DESCR));
i++;
}
}
sf.force_update();
sf.show();
set(F_TOTMOV, i);
sel_all();
}
void TMonitor_mask::save_all()
{
}
void TMonitor_mask::next_page(int p)
{
if (_dirty && p != 1000)
{
fill();
_dirty = false;
}
TAutomask::next_page(p);
}
bool TMonitor_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_DATAINI:
if (e == fe_init)
{
#ifdef DBG
TDate d("01-01-2017");
#else
TDate d(TODAY);
d.set_month(1); d.set_day(1);
#endif
o.set(d);
}
break;
case F_DATAEND:
if (e == fe_init)
{
TDate d(TODAY); d.set_month(d.month() - 1); d.set_end_month();
o.set(d);
}
break;
case S_ELAB:
if(e == fe_init)
load_packs();
break;
case DLG_ALL:
if(e == fe_button && curr_page() == 1)
sel_all();
break;
case B_ESTR:
if (e == fe_button)
estrai();
break;
case DLG_FINDREC:
if(e == fe_button && curr_page() == 1)
{
fill();
if(diagnosticazzi());
field(B_ESTR).enable();
}
break;
case DLG_USER:
if (e == fe_button && jolly > 0)
{
TSheet_field& sf = sfield(S_MOVS);
TToken_string& row = sf.row(sf.selected());
TRectype mov(LF_MOV);
mov.put(MOV_NUMREG, row.get(sf.cid2index(F_NUMREG)));
if (mov.edit())
fill();
}
break;
default: break;
}
if (e == fe_modify)
if (o.dlg() >= START_MASK && o.dlg() < END_MASK || o.dlg() >= F_SEL && o.dlg() <= F_DESCR)
field(B_ESTR).disable();
if((e == fe_modify || e >= se_enter) && jolly == 0)
if (o.dlg() >= START_MASK && o.dlg() < END_MASK)
_dirty = true;
return true;
}
///////////////////////////////////////////////
// TF9_app
///////////////////////////////////////////////
class TF9_app : public TSkeleton_application
{
public:
virtual bool create();
virtual void main_loop();
};
bool TF9_app::create()
{
return TSkeleton_application::create();
}
void TF9_app::main_loop()
{
TMonitor_mask m;
m.field(B_ESTR).disable();
while (m.run() == K_ENTER)
{
}
}
int f90100(int argc, char* argv[])
{
TF9_app app;
app.run(argc, argv, TR("Configurazione FP"));
return 0;
}

29
src/f9/f90100a.h Normal file
View File

@ -0,0 +1,29 @@
#define START_MASK 501
#define F_DATAINI 501
#define F_DATAEND 502
#define F_BOXDATE 503
#define F_TOTMOV 504
#define B_ESTR 505
#define END_MASK 599
#define S_ELAB 201
#define F_SELPACK 101
#define F_DATA 102
#define F_NDOCS 103
#define F_PERIOD_DA 104
#define F_PERIOD_A 105
#define S_MOVS 301
#define F_SEL 101
#define F_NUMREG 102
#define F_DATAREG 103
#define F_DATADOC 104
#define F_CODCAUS 105
#define F_MESELIQ 106
#define F_NUMDOC 107
#define F_PROTIVA 108
#define F_DESCR 109

213
src/f9/f90100a.uml Normal file
View File

@ -0,0 +1,213 @@
#include "f90100a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_ALL 2 2
BEGIN
PROMPT 1 1 "~Tutti"
PICTURE TOOL_MULTISEL
END
BUTTON B_ESTR 2 2
BEGIN
PROMPT 1 1 "Estrai"
PICTURE TOOL_ELABORA
FLAGS "D"
END
BUTTON DLG_FINDREC 2 2
BEGIN
PROMPT 1 1 "Diagnostica"
PICTURE TOOL_PERMISSIONS
FLAGS ""
END
#include <helpbar.h>
ENDPAGE
PAGE "Config " 0 2 0 0
GROUPBOX F_BOXDATE 60 3
BEGIN
PROMPT 0 0 "Periodo"
END
DATE F_DATAINI
BEGIN
PROMPT 1 1 " dal"
END
DATE F_DATAEND
BEGIN
PROMPT 34 1 "Fino al"
END
SPREADSHEET S_ELAB 60 10
BEGIN
PROMPT 0 3 "Elenco pacchetti elaborati"
ITEM " "
ITEM "DATA "
ITEM "NDOCS "
ITEM "PERIOD_DA"
ITEM "PERIOD_A "
END
ENDPAGE
PAGE "Movimenti" 0 2 0 0
SPREADSHEET S_MOVS 0 -3
BEGIN
PROMPT 1 1 "Movimenti stampati"
ITEM ""
ITEM "Numero"
ITEM "Data"
ITEM "Data Doc"
ITEM "Causale"
ITEM "Mese Liq.@7"
ITEM "Documento"
ITEM "Protoc."
ITEM "Descrizione"
END
NUMBER F_TOTMOV 7 0
BEGIN
PROMPT 1 -1 "n. movimenti"
FLAGS "D"
END
ENDPAGE
ENDMASK
PAGE "Pacchetti" -1 -1 78 13
BOOLEAN F_SELPACK
BEGIN
PROMPT 1 1 "Sel."
END
DATA F_DATA
BEGIN
PROMPT 30 1 "Data"
FLAGS "D"
END
NUMBER F_NDOCS 6 0
BEGIN
PROMPT 1 2 "Data"
FLAGS "D"
END
DATA F_PERIOD_DA
BEGIN
PROMPT 1 3 "Data periodo da"
FLAGS "D"
END
DATA F_PERIOD_A
BEGIN
PROMPT 1 4 "Data periodo a "
FLAGS "D"
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_NULL 2 2
BEGIN
PROMPT -1 0 ""
PICTURE 0
END
BUTTON DLG_QUIT 2 2
BEGIN
PROMPT 3 1 "Fine"
MESSAGE EXIT,K_QUIT
PICTURE TOOL_QUIT
END
ENPAGE
ENDMASK
PAGE "Elementi spredsheet" -1 -1 50 3
BOOLEAN F_SEL
BEGIN
PROMPT 1 0 ""
END
NUMBER F_NUMREG 7
BEGIN
PROMPT 1 1 "Numero "
FLAGS "D"
END
DATE F_DATAREG
BEGIN
PROMPT 1 2 "Data reg."
FLAGS "D"
END
DATE F_DATADOC
BEGIN
PROMPT 1 3 "Data doc."
FLAGS "D"
END
STRING F_CODCAUS 3
BEGIN
PROMPT 1 4 "Causale "
FLAGS "D"
END
NUMBER F_MESELIQ 2
BEGIN
PROMPT 1 5 "Causale "
FLAGS "D"
END
NUMBER F_NUMDOC 7
BEGIN
PROMPT 1 6 "Documento"
FLAGS "D"
END
NUMBER F_PROTIVA 6
BEGIN
PROMPT 1 7 "Protoc."
FLAGS "D"
END
STRING F_DESCR 50
BEGIN
PROMPT 1 8 "Descrizione"
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 1 1 "Collega"
PICTURE TOOL_LINK
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 1 1 ""
END
ENDPAGE
ENDMASK