diff --git a/JUSTWIN.sln b/JUSTWIN.sln index 5c05e78..7c4f0fc 100644 --- a/JUSTWIN.sln +++ b/JUSTWIN.sln @@ -1,7 +1,7 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 15 -VisualStudioVersion = 15.0.26403.7 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.30320.27 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Nuvolar.Module", "Nuvolar.Module\Nuvolar.Module.vbproj", "{60BF693F-7DEA-4CF6-85BD-EA96829D79DD}" EndProject @@ -19,6 +19,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "momoERP.Win", "momoERP.Win. EndProject Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Nuvolar.Base", "Nuvolar.Base\Nuvolar.Base.csproj", "{C30AB16A-036D-4237-8725-853B44F3767D}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Nuvolar.WIN.Debranet.GL", "Nuvolar.WIN.Debranet.GL\Nuvolar.WIN.Debranet.GL.vbproj", "{9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -347,6 +349,46 @@ Global {C30AB16A-036D-4237-8725-853B44F3767D}.Release|x64.Build.0 = Release|Any CPU {C30AB16A-036D-4237-8725-853B44F3767D}.Release|x86.ActiveCfg = Release|Any CPU {C30AB16A-036D-4237-8725-853B44F3767D}.Release|x86.Build.0 = Release|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|Any CPU.Build.0 = Debug|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|x64.ActiveCfg = Debug|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|x64.Build.0 = Debug|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|x86.ActiveCfg = Debug|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Debug|x86.Build.0 = Debug|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|Any CPU.ActiveCfg = EasyTest|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|Any CPU.Build.0 = EasyTest|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|Mixed Platforms.ActiveCfg = EasyTest|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|Mixed Platforms.Build.0 = EasyTest|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|x64.ActiveCfg = EasyTest|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|x64.Build.0 = EasyTest|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|x86.ActiveCfg = EasyTest|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.EasyTest|x86.Build.0 = EasyTest|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|Any CPU.ActiveCfg = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|Any CPU.Build.0 = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|Mixed Platforms.ActiveCfg = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|Mixed Platforms.Build.0 = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|x64.ActiveCfg = Release 64bit|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|x64.Build.0 = Release 64bit|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|x86.ActiveCfg = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.R64|x86.Build.0 = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|Any CPU.ActiveCfg = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|Any CPU.Build.0 = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|Mixed Platforms.ActiveCfg = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|Mixed Platforms.Build.0 = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|x64.ActiveCfg = Release 64bit|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|x64.Build.0 = Release 64bit|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|x86.ActiveCfg = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release 64bit|x86.Build.0 = Release 64bit|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|Any CPU.ActiveCfg = Release|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|Any CPU.Build.0 = Release|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|x64.ActiveCfg = Release|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|x64.Build.0 = Release|x64 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|x86.ActiveCfg = Release|Any CPU + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44}.Release|x86.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/Nuvolar.Module.CSharp/BusinessObjects/NewCustomersFrom.cs b/Nuvolar.Module.CSharp/BusinessObjects/NewCustomersFrom.cs index 7377adf..190a921 100644 --- a/Nuvolar.Module.CSharp/BusinessObjects/NewCustomersFrom.cs +++ b/Nuvolar.Module.CSharp/BusinessObjects/NewCustomersFrom.cs @@ -383,15 +383,16 @@ namespace Nuvolar.Module.BusinessObjects GenerateReportsV2(); // 11. GenerateBankCassaCompensation(); // 12. GenerateInvoiceType(); // 13. - GenerateStorage(); // 14. - GenerateOfferOut(); // 15. - GenerateDeliveryNoteOut(); //18. - GenerateDeliveryNoteIn(); // 17. - GenerateOrderIn(); //16. - GeretatePaymentOptions(); // 19. - GeneratePDAParameters(); - GenerateWorkSheet(); - GenerateHRPerson(); + + //GenerateStorage(); // 14. + //GenerateOfferOut(); // 15. + //GenerateDeliveryNoteOut(); //18. + //GenerateDeliveryNoteIn(); // 17. + //GenerateOrderIn(); //16. + //GeretatePaymentOptions(); // 19. + //GeneratePDAParameters(); + //GenerateWorkSheet(); + //GenerateHRPerson(); ////---------------- DEMO adatok készítése ------ diff --git a/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.Localization.en.xafml b/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.Localization.en.xafml new file mode 100644 index 0000000..e316070 --- /dev/null +++ b/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.Localization.en.xafml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.Localization.hu.xafml b/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.Localization.hu.xafml new file mode 100644 index 0000000..9cf4fb7 --- /dev/null +++ b/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.Localization.hu.xafml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.xafml b/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.xafml index 57346d4..6f3c848 100644 --- a/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.xafml +++ b/Nuvolar.Module.Win.CSharp/Model.DesignedDiffs.xafml @@ -3,9 +3,14 @@ + - + + + + + \ No newline at end of file diff --git a/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj b/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj index f774d62..4871164 100644 --- a/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj +++ b/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj @@ -242,6 +242,14 @@ + + Model.DesignedDiffs.xafml + Designer + + + Model.DesignedDiffs.xafml + Designer + diff --git a/Nuvolar.Module.Win.CSharp/Properties/licenses.licx b/Nuvolar.Module.Win.CSharp/Properties/licenses.licx index e69de29..4e61be8 100644 --- a/Nuvolar.Module.Win.CSharp/Properties/licenses.licx +++ b/Nuvolar.Module.Win.CSharp/Properties/licenses.licx @@ -0,0 +1 @@ +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v20.1, Version=20.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/ExpressApp.ico b/Nuvolar.WIN.Debranet.GL/ExpressApp.ico new file mode 100644 index 0000000..d4c7fc7 Binary files /dev/null and b/Nuvolar.WIN.Debranet.GL/ExpressApp.ico differ diff --git a/Nuvolar.WIN.Debranet.GL/Model.xafml b/Nuvolar.WIN.Debranet.GL/Model.xafml new file mode 100644 index 0000000..0f55a66 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Model.xafml @@ -0,0 +1,1043 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Model_en.xafml b/Nuvolar.WIN.Debranet.GL/Model_en.xafml new file mode 100644 index 0000000..5d50b0e --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Model_en.xafml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Model_hu.xafml b/Nuvolar.WIN.Debranet.GL/Model_hu.xafml new file mode 100644 index 0000000..17a7372 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Model_hu.xafml @@ -0,0 +1,408 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/Application.Designer.vb b/Nuvolar.WIN.Debranet.GL/My Project/Application.Designer.vb new file mode 100644 index 0000000..88dd01c --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/Nuvolar.WIN.Debranet.GL/My Project/Application.myapp b/Nuvolar.WIN.Debranet.GL/My Project/Application.myapp new file mode 100644 index 0000000..e32a102 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + Form1 + false + 0 + true + 0 + true + diff --git a/Nuvolar.WIN.Debranet.GL/My Project/AssemblyInfo.vb b/Nuvolar.WIN.Debranet.GL/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..b27a12c --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/AssemblyInfo.vb @@ -0,0 +1,32 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + diff --git a/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource new file mode 100644 index 0000000..db4fc3d --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Module.MNBArfolyamService.GetCurrenciesResponseBody, Nuvolar.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource new file mode 100644 index 0000000..164692d --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody, Nuvolar.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..9b702fb --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody, Nuvolar.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource new file mode 100644 index 0000000..c572ca4 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Module.MNBArfolyamService.GetDateIntervalResponseBody, Nuvolar.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..617fa42 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Module.MNBArfolyamService.GetExchangeRatesResponseBody, Nuvolar.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource new file mode 100644 index 0000000..d8d4efd --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Module.MNBArfolyamService.GetInfoResponseBody, Nuvolar.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/Resources.Designer.vb b/Nuvolar.WIN.Debranet.GL/My Project/Resources.Designer.vb new file mode 100644 index 0000000..7c2f1f7 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Nuvolar.Win.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/Nuvolar.WIN.Debranet.GL/My Project/Resources.resx b/Nuvolar.WIN.Debranet.GL/My Project/Resources.resx new file mode 100644 index 0000000..d0d99d6 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/Nuvolar.WIN.Debranet.GL/My Project/Settings.Designer.vb b/Nuvolar.WIN.Debranet.GL/My Project/Settings.Designer.vb new file mode 100644 index 0000000..4c877f4 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Nuvolar.Win.My.MySettings + Get + Return Global.Nuvolar.Win.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Nuvolar.WIN.Debranet.GL/My Project/Settings.settings b/Nuvolar.WIN.Debranet.GL/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Nuvolar.WIN.Debranet.GL/My Project/app.manifest b/Nuvolar.WIN.Debranet.GL/My Project/app.manifest new file mode 100644 index 0000000..f5ca617 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/app.manifest @@ -0,0 +1,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx b/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx new file mode 100644 index 0000000..4e61be8 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx @@ -0,0 +1 @@ +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v20.1, Version=20.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx.bak b/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx.bak new file mode 100644 index 0000000..45113cf --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx.bak @@ -0,0 +1 @@ +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj b/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj new file mode 100644 index 0000000..3291723 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj @@ -0,0 +1,537 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {9BCEF052-E920-42F6-B2AE-7D4E5D7F2C44} + WinExe + Sub Main + Nuvolar.Win + Nuvolar.Win.Lite + WindowsFormsWithCustomSubMain + favicon.ico + On + Binary + Off + On + SAK + SAK + SAK + SAK + v4.5.2 + + + 4.0 + + true + + + http://localhost/SISBusiness.Win/ + true + Web + true + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + true + false + + + None + false + true + true + bin\Release\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + true + true + true + bin\EasyTest\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + false + + + My Project\app.manifest + + + true + bin\Release 64bit\ + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + bin\Release\SISBusiness.Win.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + AllRules.ruleset + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules + true + false + + + true + true + true + bin\x64\Debug\ + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + x64 + AllRules.ruleset + false + + + true + bin\x64\Release\ + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + None + x64 + false + AllRules.ruleset + false + + + true + true + true + bin\x64\EasyTest\ + EASYTEST + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + x64 + AllRules.ruleset + false + + + true + bin\x64\Release 64bit\ + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + x64 + AllRules.ruleset + false + + + + False + True + + + + + + + + + + + False + True + + + False + True + + + False + True + + + False + True + + + True + + + + + True + + + True + + + False + True + + + True + + + True + + + + True + + + True + + + + + True + + + True + + + True + + + True + + + True + + + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + True + + + False + True + + + False + True + + + False + True + + + + + + False + True + + + False + True + + + False + True + + + + + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + + + + + + + + + + + + + False + + + False + + + False + + + False + + + + False + + + + + + False + + + False + + + + + + + + + + + + + + + + True + True + Reference.svcmap + + + Component + + + + True + Application.myapp + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + WinApplication.vb + + + Component + + + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + WinApplication.vb + Designer + + + + + Model.xafml + Designer + + + + + + + + + + + Designer + + + + Designer + + + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + WCF Proxy Generator + Reference.vb + + + + + + Always + Designer + + + Model.xafml + Always + Designer + + + Model.xafml + Always + Designer + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + {b9ef03ff-d05b-4fd4-a8e9-f90d819cb1dc} + Nuvolar.Module.CSharp + + + {fb66bbc7-4035-4288-b0f0-23afbcbeec5b} + Nuvolar.Module.Win.CSharp + + + {98539DCF-BF11-4158-AEC0-4B008A404A0E} + Nuvolar.Module.Win + + + {60bf693f-7dea-4cf6-85bd-ea96829d79dd} + Nuvolar.Module + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj.bak b/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj.bak new file mode 100644 index 0000000..87c250f --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj.bak @@ -0,0 +1,520 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {DCE46BBC-DD26-439E-8930-BC17892656DE} + WinExe + Sub Main + Nuvolar.Win + Nuvolar.Win.Lite + WindowsFormsWithCustomSubMain + Nuvolar.ico + On + Binary + Off + On + SAK + SAK + SAK + SAK + v4.0 + + + 4.0 + + true + + + http://localhost/SISBusiness.Win/ + true + Web + true + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + true + false + + + None + false + true + true + bin\Release\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + true + true + true + bin\EasyTest\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + false + + + My Project\app.manifest + + + true + bin\Release 64bit\ + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + bin\Release\SISBusiness.Win.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + AllRules.ruleset + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules + true + false + + + true + true + true + bin\x64\Debug\ + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + x64 + AllRules.ruleset + + + true + bin\x64\Release\ + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + None + x64 + false + AllRules.ruleset + + + true + true + true + bin\x64\EasyTest\ + EASYTEST + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + x64 + AllRules.ruleset + + + true + bin\x64\Release 64bit\ + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + x64 + AllRules.ruleset + + + + False + True + + + + + + + + + + + False + True + + + False + True + + + False + True + + + True + + + + + True + + + True + + + False + True + + + True + + + True + + + + True + + + True + + + + + True + + + True + + + True + + + True + + + True + + + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + True + + + False + True + + + False + True + + + False + True + + + + + + False + True + + + False + True + + + + + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + + + + + + + + + + + + + False + + + False + + + False + + + False + + + + False + + + + + + False + + + False + + + + + + + + + + + + + + + + True + True + Reference.svcmap + + + Component + + + + True + Application.myapp + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + WinApplication.vb + + + Component + + + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + WinApplication.vb + Designer + + + + + Model.xafml + Designer + + + + + + + + + + + Designer + + + + Designer + + + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + WCF Proxy Generator + Reference.vb + + + + + Always + Designer + + + Model.xafml + Always + Designer + + + Model.xafml + Always + Designer + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + {b9ef03ff-d05b-4fd4-a8e9-f90d819cb1dc} + Nuvolar.Module.CSharp + + + {fb66bbc7-4035-4288-b0f0-23afbcbeec5b} + Nuvolar.Module.Win.CSharp + + + {98539DCF-BF11-4158-AEC0-4B008A404A0E} + Nuvolar.Module.Win + + + {60bf693f-7dea-4cf6-85bd-ea96829d79dd} + Nuvolar.Module + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Nuvolar.ico b/Nuvolar.WIN.Debranet.GL/Nuvolar.ico new file mode 100644 index 0000000..96f2e8d Binary files /dev/null and b/Nuvolar.WIN.Debranet.GL/Nuvolar.ico differ diff --git a/Nuvolar.WIN.Debranet.GL/Program.vb b/Nuvolar.WIN.Debranet.GL/Program.vb new file mode 100644 index 0000000..e58a2c8 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Program.vb @@ -0,0 +1,115 @@ + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Win + +Imports Nuvolar.Module.Win +Imports DevExpress.Persistent.AuditTrail + + +Imports Nuvolar.Module +'Itt egy kommit Transfer branch +'6-hoz egy commit +Friend NotInheritable Class Program + Private Sub New() + End Sub + _ + Public Shared Sub Main(ByVal arguments() As String) +#If EASYTEST Then + DevExpress.ExpressApp.EasyTest.WinAdapter.RemotingRegistration.Register(4100) +#End If + + Application.EnableVisualStyles() + Application.SetCompatibleTextRenderingDefault(False) + EditModelPermission.AlwaysGranted = System.Diagnostics.Debugger.IsAttached + + '-- Eredeti kód + 'Dim _application As NuvolarWindowsFormsApplication_DB = New NuvolarWindowsFormsApplication_DB() + + 'If (Not ConfigurationManager.ConnectionStrings.Item("ConnectionString") Is Nothing) Then + ' _application.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + 'End If + 'If System.Diagnostics.Debugger.IsAttached Then + ' _application.DatabaseUpdateMode = DatabaseUpdateMode.UpdateDatabaseAlways + 'End If + 'Try + ' Dim timeStampStrategy As IAuditTimestampStrategy = New Nuvolar.Module.TimeStamp + ' AuditTrailService.Instance.TimestampStrategy = timeStampStrategy + + ' _application.Setup() + ' _application.Start() + 'Catch e As Exception + ' _application.HandleException(e) + 'End Try + + '-- Új kód + Do + Dim winApplication As NuvolarWindowsFormsDebranetGL + If LogOnDB.NewApplication Is Nothing Then + winApplication = NuvolarWindowsFormsDebranetGL.CreateApplication() + Else + winApplication = CType(LogOnDB.NewApplication, NuvolarWindowsFormsDebranetGL) + LogOnDB.NewApplication = Nothing + End If + Try + AddHandler AuditTrailService.Instance.SaveAuditTrailData, AddressOf Instance_SaveAuditTrailData + AddHandler winApplication.CreateCustomUserModelDifferenceStore, AddressOf winApplication_CreateCustomUserModelDifferenceStore + AddHandler winApplication.LastLogonParametersWriting, AddressOf winApplication_LastLogonParametersWriting + AddHandler winApplication.CustomHandleException, AddressOf winApplication_CustomHandleException + winApplication.DelayedViewItemsInitialization = True + winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen + winApplication.DatabaseUpdateMode = DatabaseUpdateMode.UpdateOldDatabase + + AuditTrailService.Instance.ObjectAuditingMode = ObjectAuditingMode.CreationOnly + + winApplication.Setup() + winApplication.Start() + If WinChangeDatabaseHelper.AuthenticatedUserLogonFailed Then + WinChangeDatabaseHelper.SkipLogonDialog = False + winApplication.Start() + End If + Catch e As Exception + winApplication.HandleException(e) + End Try + winApplication.Dispose() + Loop While LogOnDB.NewApplication IsNot Nothing + '-- Új kód vége + End Sub + Shared Sub winApplication_CreateCustomUserModelDifferenceStore(ByVal sender As Object, ByVal e As CreateCustomModelDifferenceStoreEventArgs) + Dim userDiffs As New UserStore(CType(sender, WinApplication)) + e.Store = userDiffs + e.Handled = True + End Sub + + Private Shared Sub Instance_SaveAuditTrailData(sender As Object, e As SaveAuditTrailDataEventArgs) + ' TESZT MIATT !!! + e.Handled = True + 'If GLOBAL_HAS_Audit = False Then + 'e.Handled = True + 'End If + End Sub + Shared Sub winApplication_LastLogonParametersWriting(ByVal sender As Object, ByVal e As LastLogonParametersWritingEventArgs) + 'If (CType(e.LogonObject, AuthenticationStandardLogonParameters)).UserName <> "SysAdmin" Then + e.SettingsStorage.SaveOption("", "UserName", (CType(e.LogonObject, AuthenticationStandardLogonParameters)).UserName) + e.SettingsStorage.SaveOption("", "DBConnection", GLOBAL_SQLDatabase) + e.SettingsStorage.SaveOption("", "SQLServer", GLOBAL_SQLServer) + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + e.SettingsStorage.SaveOption("", "SQLType", "MSSQL") + Case eSQLType.MySQL + e.SettingsStorage.SaveOption("", "SQLType", "MySQL") + Case eSQLType.PostgreSQL + e.SettingsStorage.SaveOption("", "SQLType", "PostgreSQL") + End Select + + e.Handled = True + End Sub + + Private Shared Sub winApplication_CustomHandleException(sender As Object, e As CustomHandleExceptionEventArgs) + '// Egyéni hiba kezelés !!! + End Sub + +End Class + + + diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrenciesResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrenciesResponseBody.datasource new file mode 100644 index 0000000..060ac56 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrenciesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Win.MNBArfolyamService.GetCurrenciesResponseBody, Service References.MNBArfolyamService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource new file mode 100644 index 0000000..b8df448 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Win.MNBArfolyamService.GetCurrencyUnitsResponseBody, Service References.MNBArfolyamService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..394fa7f --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Win.MNBArfolyamService.GetCurrentExchangeRatesResponseBody, Service References.MNBArfolyamService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetDateIntervalResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetDateIntervalResponseBody.datasource new file mode 100644 index 0000000..5202369 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetDateIntervalResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Win.MNBArfolyamService.GetDateIntervalResponseBody, Service References.MNBArfolyamService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetExchangeRatesResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..901b9c2 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Win.MNBArfolyamService.GetExchangeRatesResponseBody, Service References.MNBArfolyamService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetInfoResponseBody.datasource b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetInfoResponseBody.datasource new file mode 100644 index 0000000..715b2e5 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Nuvolar.Win.MNBArfolyamService.GetInfoResponseBody.datasource @@ -0,0 +1,10 @@ + + + + Nuvolar.Win.MNBArfolyamService.GetInfoResponseBody, Service References.MNBArfolyamService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Reference.svcmap b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Reference.svcmap new file mode 100644 index 0000000..039d62f --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Reference.svcmap @@ -0,0 +1,34 @@ + + + + false + true + + false + false + false + + + true + Auto + true + true + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Reference.vb b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Reference.vb new file mode 100644 index 0000000..ca4e3c9 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/Reference.vb @@ -0,0 +1,919 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System +Imports System.Runtime.Serialization + +Namespace MNBArfolyamService + + _ + Partial Public Class GetCurrenciesRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrenciesResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetCurrenciesResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetCurrenciesResult() As String + Get + Return Me.GetCurrenciesResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetCurrenciesResultField, value) <> true) Then + Me.GetCurrenciesResultField = value + Me.RaisePropertyChanged("GetCurrenciesResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private currencyNamesField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property currencyNames() As String + Get + Return Me.currencyNamesField + End Get + Set + If (Object.ReferenceEquals(Me.currencyNamesField, value) <> true) Then + Me.currencyNamesField = value + Me.RaisePropertyChanged("currencyNames") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetCurrencyUnitsResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetCurrencyUnitsResult() As String + Get + Return Me.GetCurrencyUnitsResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetCurrencyUnitsResultField, value) <> true) Then + Me.GetCurrencyUnitsResultField = value + Me.RaisePropertyChanged("GetCurrencyUnitsResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetCurrentExchangeRatesResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetCurrentExchangeRatesResult() As String + Get + Return Me.GetCurrentExchangeRatesResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetCurrentExchangeRatesResultField, value) <> true) Then + Me.GetCurrentExchangeRatesResultField = value + Me.RaisePropertyChanged("GetCurrentExchangeRatesResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetDateIntervalRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetDateIntervalResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetDateIntervalResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetDateIntervalResult() As String + Get + Return Me.GetDateIntervalResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetDateIntervalResultField, value) <> true) Then + Me.GetDateIntervalResultField = value + Me.RaisePropertyChanged("GetDateIntervalResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private startDateField As String + + _ + Private endDateField As String + + _ + Private currencyNamesField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property startDate() As String + Get + Return Me.startDateField + End Get + Set + If (Object.ReferenceEquals(Me.startDateField, value) <> true) Then + Me.startDateField = value + Me.RaisePropertyChanged("startDate") + End If + End Set + End Property + + _ + Public Property endDate() As String + Get + Return Me.endDateField + End Get + Set + If (Object.ReferenceEquals(Me.endDateField, value) <> true) Then + Me.endDateField = value + Me.RaisePropertyChanged("endDate") + End If + End Set + End Property + + _ + Public Property currencyNames() As String + Get + Return Me.currencyNamesField + End Get + Set + If (Object.ReferenceEquals(Me.currencyNamesField, value) <> true) Then + Me.currencyNamesField = value + Me.RaisePropertyChanged("currencyNames") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetExchangeRatesResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetExchangeRatesResult() As String + Get + Return Me.GetExchangeRatesResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetExchangeRatesResultField, value) <> true) Then + Me.GetExchangeRatesResultField = value + Me.RaisePropertyChanged("GetExchangeRatesResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetInfoRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetInfoResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetInfoResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetInfoResult() As String + Get + Return Me.GetInfoResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetInfoResultField, value) <> true) Then + Me.GetInfoResultField = value + Me.RaisePropertyChanged("GetInfoResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Public Interface MNBArfolyamServiceSoap + + 'CODEGEN: Generating message contract since the operation GetCurrencies is neither RPC nor document wrapped. + _ + Function GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse + + 'CODEGEN: Generating message contract since the operation GetCurrencyUnits is neither RPC nor document wrapped. + _ + Function GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse + + 'CODEGEN: Generating message contract since the operation GetCurrentExchangeRates is neither RPC nor document wrapped. + _ + Function GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse + + 'CODEGEN: Generating message contract since the operation GetDateInterval is neither RPC nor document wrapped. + _ + Function GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse + + 'CODEGEN: Generating message contract since the operation GetExchangeRates is neither RPC nor document wrapped. + _ + Function GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse + + 'CODEGEN: Generating message contract since the operation GetInfo is neither RPC nor document wrapped. + _ + Function GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse + End Interface + + _ + Partial Public Class GetCurrenciesRequest + + _ + Public GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody) + MyBase.New + Me.GetCurrencies = GetCurrencies + End Sub + End Class + + _ + Partial Public Class GetCurrenciesResponse + + _ + Public GetCurrenciesResponse1 As MNBArfolyamService.GetCurrenciesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrenciesResponse1 As MNBArfolyamService.GetCurrenciesResponseBody) + MyBase.New + Me.GetCurrenciesResponse1 = GetCurrenciesResponse1 + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsRequest + + _ + Public GetCurrencyUnits As MNBArfolyamService.GetCurrencyUnitsRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencyUnits As MNBArfolyamService.GetCurrencyUnitsRequestBody) + MyBase.New + Me.GetCurrencyUnits = GetCurrencyUnits + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsResponse + + _ + Public GetCurrencyUnitsResponse1 As MNBArfolyamService.GetCurrencyUnitsResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencyUnitsResponse1 As MNBArfolyamService.GetCurrencyUnitsResponseBody) + MyBase.New + Me.GetCurrencyUnitsResponse1 = GetCurrencyUnitsResponse1 + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesRequest + + _ + Public GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) + MyBase.New + Me.GetCurrentExchangeRates = GetCurrentExchangeRates + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesResponse + + _ + Public GetCurrentExchangeRatesResponse1 As MNBArfolyamService.GetCurrentExchangeRatesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrentExchangeRatesResponse1 As MNBArfolyamService.GetCurrentExchangeRatesResponseBody) + MyBase.New + Me.GetCurrentExchangeRatesResponse1 = GetCurrentExchangeRatesResponse1 + End Sub + End Class + + _ + Partial Public Class GetDateIntervalRequest + + _ + Public GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody) + MyBase.New + Me.GetDateInterval = GetDateInterval + End Sub + End Class + + _ + Partial Public Class GetDateIntervalResponse + + _ + Public GetDateIntervalResponse1 As MNBArfolyamService.GetDateIntervalResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateIntervalResponse1 As MNBArfolyamService.GetDateIntervalResponseBody) + MyBase.New + Me.GetDateIntervalResponse1 = GetDateIntervalResponse1 + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesRequest + + _ + Public GetExchangeRates As MNBArfolyamService.GetExchangeRatesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetExchangeRates As MNBArfolyamService.GetExchangeRatesRequestBody) + MyBase.New + Me.GetExchangeRates = GetExchangeRates + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesResponse + + _ + Public GetExchangeRatesResponse1 As MNBArfolyamService.GetExchangeRatesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetExchangeRatesResponse1 As MNBArfolyamService.GetExchangeRatesResponseBody) + MyBase.New + Me.GetExchangeRatesResponse1 = GetExchangeRatesResponse1 + End Sub + End Class + + _ + Partial Public Class GetInfoRequest + + _ + Public GetInfo As MNBArfolyamService.GetInfoRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetInfo As MNBArfolyamService.GetInfoRequestBody) + MyBase.New + Me.GetInfo = GetInfo + End Sub + End Class + + _ + Partial Public Class GetInfoResponse + + _ + Public GetInfoResponse1 As MNBArfolyamService.GetInfoResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetInfoResponse1 As MNBArfolyamService.GetInfoResponseBody) + MyBase.New + Me.GetInfoResponse1 = GetInfoResponse1 + End Sub + End Class + + _ + Public Interface MNBArfolyamServiceSoapChannel + Inherits MNBArfolyamService.MNBArfolyamServiceSoap, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class MNBArfolyamServiceSoapClient + Inherits System.ServiceModel.ClientBase(Of MNBArfolyamService.MNBArfolyamServiceSoap) + Implements MNBArfolyamService.MNBArfolyamServiceSoap + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencies + Return MyBase.Channel.GetCurrencies(request) + End Function + + Public Function GetCurrencies(ByVal GetCurrencies1 As MNBArfolyamService.GetCurrenciesRequestBody) As MNBArfolyamService.GetCurrenciesResponseBody + Dim inValue As MNBArfolyamService.GetCurrenciesRequest = New MNBArfolyamService.GetCurrenciesRequest() + inValue.GetCurrencies = GetCurrencies1 + Dim retVal As MNBArfolyamService.GetCurrenciesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencies(inValue) + Return retVal.GetCurrenciesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencyUnits + Return MyBase.Channel.GetCurrencyUnits(request) + End Function + + Public Function GetCurrencyUnits(ByVal GetCurrencyUnits1 As MNBArfolyamService.GetCurrencyUnitsRequestBody) As MNBArfolyamService.GetCurrencyUnitsResponseBody + Dim inValue As MNBArfolyamService.GetCurrencyUnitsRequest = New MNBArfolyamService.GetCurrencyUnitsRequest() + inValue.GetCurrencyUnits = GetCurrencyUnits1 + Dim retVal As MNBArfolyamService.GetCurrencyUnitsResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencyUnits(inValue) + Return retVal.GetCurrencyUnitsResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrentExchangeRates + Return MyBase.Channel.GetCurrentExchangeRates(request) + End Function + + Public Function GetCurrentExchangeRates(ByVal GetCurrentExchangeRates1 As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) As MNBArfolyamService.GetCurrentExchangeRatesResponseBody + Dim inValue As MNBArfolyamService.GetCurrentExchangeRatesRequest = New MNBArfolyamService.GetCurrentExchangeRatesRequest() + inValue.GetCurrentExchangeRates = GetCurrentExchangeRates1 + Dim retVal As MNBArfolyamService.GetCurrentExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrentExchangeRates(inValue) + Return retVal.GetCurrentExchangeRatesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetDateInterval + Return MyBase.Channel.GetDateInterval(request) + End Function + + Public Function GetDateInterval(ByVal GetDateInterval1 As MNBArfolyamService.GetDateIntervalRequestBody) As MNBArfolyamService.GetDateIntervalResponseBody + Dim inValue As MNBArfolyamService.GetDateIntervalRequest = New MNBArfolyamService.GetDateIntervalRequest() + inValue.GetDateInterval = GetDateInterval1 + Dim retVal As MNBArfolyamService.GetDateIntervalResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetDateInterval(inValue) + Return retVal.GetDateIntervalResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetExchangeRates + Return MyBase.Channel.GetExchangeRates(request) + End Function + + Public Function GetExchangeRates(ByVal GetExchangeRates1 As MNBArfolyamService.GetExchangeRatesRequestBody) As MNBArfolyamService.GetExchangeRatesResponseBody + Dim inValue As MNBArfolyamService.GetExchangeRatesRequest = New MNBArfolyamService.GetExchangeRatesRequest() + inValue.GetExchangeRates = GetExchangeRates1 + Dim retVal As MNBArfolyamService.GetExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetExchangeRates(inValue) + Return retVal.GetExchangeRatesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetInfo + Return MyBase.Channel.GetInfo(request) + End Function + + Public Function GetInfo(ByVal GetInfo1 As MNBArfolyamService.GetInfoRequestBody) As MNBArfolyamService.GetInfoResponseBody + Dim inValue As MNBArfolyamService.GetInfoRequest = New MNBArfolyamService.GetInfoRequest() + inValue.GetInfo = GetInfo1 + Dim retVal As MNBArfolyamService.GetInfoResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetInfo(inValue) + Return retVal.GetInfoResponse1 + End Function + End Class +End Namespace diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.disco b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.disco new file mode 100644 index 0000000..50b6aa3 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.disco @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.wsdl b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.wsdl new file mode 100644 index 0000000..322018c --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.wsdl @@ -0,0 +1,85 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.xsd b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.xsd new file mode 100644 index 0000000..d54837d --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok.xsd @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok1.wsdl b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok1.wsdl new file mode 100644 index 0000000..f4639bc --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok1.wsdl @@ -0,0 +1,95 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok1.xsd b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok1.xsd new file mode 100644 index 0000000..d58e7f3 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/arfolyamok1.xsd @@ -0,0 +1,42 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/configuration.svcinfo b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/configuration.svcinfo new file mode 100644 index 0000000..7882ddd --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/configuration91.svcinfo b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/configuration91.svcinfo new file mode 100644 index 0000000..9c8c368 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/Service References/MNBArfolyamService/configuration91.svcinfo @@ -0,0 +1,201 @@ + + + + + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + + + + + + + + + + + + + + + + + + + StrongWildcard + + + + + + 65536 + + + + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + Buffered + + + + + + Text + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Collection) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Default + + + + + + + + + http://www.mnb.hu/arfolyamok.asmx + + + + + + basicHttpBinding + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + MNBArfolyamService.MNBArfolyamServiceSoap + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/UnusableNodes.xml b/Nuvolar.WIN.Debranet.GL/UnusableNodes.xml new file mode 100644 index 0000000..aab7e88 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/UnusableNodes.xml @@ -0,0 +1,17 @@ + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/WinApplication.Designer.vb b/Nuvolar.WIN.Debranet.GL/WinApplication.Designer.vb new file mode 100644 index 0000000..24ca01f --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/WinApplication.Designer.vb @@ -0,0 +1,236 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Security + +Partial Public Class NuvolarWindowsFormsDebranetGL + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso (Not components Is Nothing) Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + +#Region "Component Designer generated code" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() + Me.module2 = New DevExpress.ExpressApp.Win.SystemModule.SystemWindowsFormsModule() + Me.module3 = New Nuvolar.[Module].NuvolarModule() + Me.module4 = New Nuvolar.[Module].Win.NuvolarWindowsFormsModule() + Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule() + Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() + Me.module7 = New DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule() + Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() + Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() + Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() + Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() + Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() + Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() + Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() + Me.FileAttachmentsWindowsFormsModule1 = New DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentsWindowsFormsModule() + Me.HtmlPropertyEditorWindowsFormsModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlPropertyEditorWindowsFormsModule() + Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() + Me.PivotChartWindowsFormsModule1 = New DevExpress.ExpressApp.PivotChart.Win.PivotChartWindowsFormsModule() + Me.AuditTrailModule2 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() + Me.TreeListEditorsWindowsFormsModule1 = New DevExpress.ExpressApp.TreeListEditors.Win.TreeListEditorsWindowsFormsModule() + Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() + Me.ReportsWindowsFormsModule1 = New DevExpress.ExpressApp.Reports.Win.ReportsWindowsFormsModule() + Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() + Me.SchedulerWindowsFormsModule1 = New DevExpress.ExpressApp.Scheduler.Win.SchedulerWindowsFormsModule() + Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() + Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() + Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() + Me.ChartWindowsFormsModule1 = New DevExpress.ExpressApp.Chart.Win.ChartWindowsFormsModule() + Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() + Me.PivotGridWindowsFormsModule1 = New DevExpress.ExpressApp.PivotGrid.Win.PivotGridWindowsFormsModule() + Me.NotificationsModule1 = New DevExpress.ExpressApp.Notifications.NotificationsModule() + Me.NotificationsWindowsFormsModule1 = New DevExpress.ExpressApp.Notifications.Win.NotificationsWindowsFormsModule() + Me.CSharpModule1 = New Nuvolar.[Module].CSharp.CSharpModule() + Me.NuvolarModule1 = New Nuvolar.[Module].NuvolarModule() + Me.NuvolarWindowsFormsModule1 = New Nuvolar.[Module].Win.NuvolarWindowsFormsModule() + Me.WinCSharpModule1 = New Nuvolar.[Module].Win.CSharp.WinCSharpModule() + Me.NuvolarModule2 = New Nuvolar.[Module].NuvolarModule() + Me.ReportsModuleV21 = New DevExpress.ExpressApp.ReportsV2.ReportsModuleV2() + Me.ReportsWindowsFormsModuleV21 = New DevExpress.ExpressApp.ReportsV2.Win.ReportsWindowsFormsModuleV2() + Me.DashboardsWindowsFormsModule1 = New DevExpress.ExpressApp.Dashboards.Win.DashboardsWindowsFormsModule() + Me.DashboardsModule1 = New DevExpress.ExpressApp.Dashboards.DashboardsModule() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'module5 + ' + Me.module5.AllowValidationDetailsAccess = True + Me.module5.IgnoreWarningAndInformationRules = False + ' + 'sqlConnection1 + ' + Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=Nuvolar;Integrated Security=SSPI;Pooling=fals" & + "e" + Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False + ' + 'SecurityComplex1 + ' + Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1 + Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) + ' + 'AuthenticationStandard1 + ' + Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) + ' + 'PivotChartModuleBase1 + ' + Me.PivotChartModuleBase1.DataAccessMode = DevExpress.ExpressApp.CollectionSourceDataAccessMode.Client + Me.PivotChartModuleBase1.ShowAdditionalNavigation = False + ' + 'AuditTrailModule2 + ' + Me.AuditTrailModule2.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) + ' + 'ReportsModule1 + ' + Me.ReportsModule1.EnableInplaceReports = True + Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData) + ' + 'NotificationsModule1 + ' + Me.NotificationsModule1.CanAccessPostponedItems = False + Me.NotificationsModule1.NotificationsRefreshInterval = System.TimeSpan.Parse("00:05:00") + Me.NotificationsModule1.NotificationsStartDelay = System.TimeSpan.Parse("00:00:05") + Me.NotificationsModule1.ShowDismissAllAction = False + Me.NotificationsModule1.ShowNotificationsWindow = True + Me.NotificationsModule1.ShowRefreshAction = False + ' + 'ReportsModuleV21 + ' + Me.ReportsModuleV21.EnableInplaceReports = True + Me.ReportsModuleV21.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportDataV2) + ' + 'DashboardsModule1 + ' + Me.DashboardsModule1.DashboardDataType = GetType(DevExpress.Persistent.BaseImpl.DashboardData) + ' + 'NuvolarWindowsFormsApplication + ' + Me.ApplicationName = "Nuvolar" + Me.Connection = Me.sqlConnection1 + Me.Modules.Add(Me.module1) + Me.Modules.Add(Me.module2) + Me.Modules.Add(Me.module6) + Me.Modules.Add(Me.CloneObjectModule1) + Me.Modules.Add(Me.ConditionalAppearanceModule1) + Me.Modules.Add(Me.module5) + Me.Modules.Add(Me.ViewVariantsModule1) + Me.Modules.Add(Me.securityModule1) + Me.Modules.Add(Me.AuditTrailModule2) + Me.Modules.Add(Me.KpiModule1) + Me.Modules.Add(Me.NotificationsModule1) + Me.Modules.Add(Me.module3) + Me.Modules.Add(Me.FileAttachmentsWindowsFormsModule1) + Me.Modules.Add(Me.HtmlPropertyEditorWindowsFormsModule1) + Me.Modules.Add(Me.PivotChartModuleBase1) + Me.Modules.Add(Me.PivotChartWindowsFormsModule1) + Me.Modules.Add(Me.module7) + Me.Modules.Add(Me.ReportsModule1) + Me.Modules.Add(Me.ReportsWindowsFormsModule1) + Me.Modules.Add(Me.TreeListEditorsModuleBase1) + Me.Modules.Add(Me.TreeListEditorsWindowsFormsModule1) + Me.Modules.Add(Me.ChartModule1) + Me.Modules.Add(Me.ChartWindowsFormsModule1) + Me.Modules.Add(Me.PivotGridModule1) + Me.Modules.Add(Me.PivotGridWindowsFormsModule1) + Me.Modules.Add(Me.SchedulerModuleBase1) + Me.Modules.Add(Me.SchedulerWindowsFormsModule1) + Me.Modules.Add(Me.NotificationsWindowsFormsModule1) + Me.Modules.Add(Me.module4) + Me.Modules.Add(Me.ReportsModuleV21) + Me.Modules.Add(Me.CSharpModule1) + Me.Modules.Add(Me.WinCSharpModule1) + Me.Modules.Add(Me.ReportsWindowsFormsModuleV21) + Me.Modules.Add(Me.DashboardsWindowsFormsModule1) + Me.Modules.Add(Me.DashboardsModule1) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.NavBarControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LayoutControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.GridControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Localization.PreviewControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.BarControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Security.ServerDataLogLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.RichEditControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.TreeListControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.VerticalGridControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.XtraEditorsLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LargeStringEditFindFormLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.MainFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.DetailViewFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.NestedFrameTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.LookupControlTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.PopupFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlEditorControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.PivotGridLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.ChartLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.AnalysisControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Reports.Win.ReportControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.SchedulerModuleBaseLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.Win.SchedulerControlLocalizer)) + Me.Security = Me.SecurityComplex1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + +#End Region + + Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule + Private module2 As DevExpress.ExpressApp.Win.SystemModule.SystemWindowsFormsModule + Private module3 As Global.Nuvolar.Module.NuvolarModule + Private module4 As Global.Nuvolar.Module.Win.NuvolarWindowsFormsModule + Private module5 As DevExpress.ExpressApp.Validation.ValidationModule + Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule + Private module7 As DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule + Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule + + Private sqlConnection1 As System.Data.SqlClient.SqlConnection + Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule + Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule + Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule + Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex + Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard + Friend WithEvents FileAttachmentsWindowsFormsModule1 As DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentsWindowsFormsModule + Friend WithEvents HtmlPropertyEditorWindowsFormsModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlPropertyEditorWindowsFormsModule + Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase + Friend WithEvents PivotChartWindowsFormsModule1 As DevExpress.ExpressApp.PivotChart.Win.PivotChartWindowsFormsModule + Friend WithEvents AuditTrailModule2 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule + Friend WithEvents TreeListEditorsWindowsFormsModule1 As DevExpress.ExpressApp.TreeListEditors.Win.TreeListEditorsWindowsFormsModule + Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase + Friend WithEvents ReportsWindowsFormsModule1 As DevExpress.ExpressApp.Reports.Win.ReportsWindowsFormsModule + Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule + Friend WithEvents SchedulerWindowsFormsModule1 As DevExpress.ExpressApp.Scheduler.Win.SchedulerWindowsFormsModule + Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase + Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule + Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule + Friend WithEvents ChartWindowsFormsModule1 As DevExpress.ExpressApp.Chart.Win.ChartWindowsFormsModule + Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule + Friend WithEvents PivotGridWindowsFormsModule1 As DevExpress.ExpressApp.PivotGrid.Win.PivotGridWindowsFormsModule + Friend WithEvents NotificationsModule1 As DevExpress.ExpressApp.Notifications.NotificationsModule + Friend WithEvents NotificationsWindowsFormsModule1 As DevExpress.ExpressApp.Notifications.Win.NotificationsWindowsFormsModule + Friend WithEvents CSharpModule1 As Nuvolar.Module.CSharp.CSharpModule + Friend WithEvents NuvolarModule1 As Nuvolar.Module.NuvolarModule + Friend WithEvents NuvolarWindowsFormsModule1 As Nuvolar.Module.Win.NuvolarWindowsFormsModule + Friend WithEvents WinCSharpModule1 As [Module].Win.CSharp.WinCSharpModule + Friend WithEvents NuvolarModule2 As [Module].NuvolarModule + Friend WithEvents ReportsModuleV21 As DevExpress.ExpressApp.ReportsV2.ReportsModuleV2 + Friend WithEvents ReportsWindowsFormsModuleV21 As DevExpress.ExpressApp.ReportsV2.Win.ReportsWindowsFormsModuleV2 + Friend WithEvents DashboardsWindowsFormsModule1 As DevExpress.ExpressApp.Dashboards.Win.DashboardsWindowsFormsModule + Friend WithEvents DashboardsModule1 As DevExpress.ExpressApp.Dashboards.DashboardsModule +End Class diff --git a/Nuvolar.WIN.Debranet.GL/WinApplication.resx b/Nuvolar.WIN.Debranet.GL/WinApplication.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/WinApplication.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/WinApplication.vb b/Nuvolar.WIN.Debranet.GL/WinApplication.vb new file mode 100644 index 0000000..370cfd6 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/WinApplication.vb @@ -0,0 +1,116 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Win +Imports Nuvolar.Module.Win +Imports DevExpress.ExpressApp +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.XtraBars.Alerter +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.Xpo +Imports Nuvolar.Module.GeneralFunction +Imports System.Data.SqlClient + +Partial Public Class NuvolarWindowsFormsDebranetGL + Inherits WinApplication + Public Sub New() + InitializeComponent() + InitializeDefaults() + End Sub + Private Sub InitializeDefaults() + LinkNewObjectToParentImmediately = True + UseLightStyle = True + ExecuteStartupLogicBeforeClosingLogonWindow = True + End Sub + Private Sub NuvolarWindowsFormsApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch + + e.Updater.Update() + e.Handled = True + + End Sub + Protected Overrides Function GetTraceLogDirectory() As String + Return MyBase.GetTraceLogDirectory() + End Function + Protected Overrides Function CreateLogonWindowControllers() As System.Collections.Generic.List(Of DevExpress.ExpressApp.Controller) + Dim _result As System.Collections.Generic.List(Of DevExpress.ExpressApp.Controller) + Dim _CreateLogonWindowsControllerVC As New CreateLogonWindowsControllerVC + _result = MyBase.CreateLogonWindowControllers() + _result.Add(_CreateLogonWindowsControllerVC) + Return _result + End Function + Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs) + args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection, True) + End Sub + Protected Overrides Sub OnLoggedOn(args As DevExpress.ExpressApp.LogonEventArgs) + MyBase.OnLoggedOn(args) + Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace() + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId)) + Nuvolar.Module.LockingModule.ReleaseAllLocking(_uow, _User) + + Dim cnn As New Object + + Dim sql As String = "" + Select Case GLOBAL_SQLType + Case [Module].eSQLType.MSSQL + sql = "BEGIN TRANSACTION ROUNDQTT" + vbNewLine + + sql += "UPDATE StorageComputed SET QTTFree=ROUND(QTTFree,4) WHERE QTTFree<>ROUND(QTTFree,4)" + vbNewLine + sql += "UPDATE StorageInRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4)" + vbNewLine + sql += "UPDATE StorageInRows SET QTT_Out=ROUND(QTT_Out,4) WHERE QTT_Out<>ROUND(QTT_Out,4)" + vbNewLine + sql += "UPDATE StorageOutRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4)" + vbNewLine + sql += "UPDATE StorageOutRows SET QTT_To_DeliveryOut=ROUND(QTT_To_DeliveryOut,4) WHERE QTT_To_DeliveryOut<>ROUND(QTT_To_DeliveryOut,4)" + vbNewLine + sql += "UPDATE DeliveryNoteInRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4)" + vbNewLine + sql += "UPDATE DeliveryNoteOutRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4)" + vbNewLine + sql += "UPDATE DeliveryNoteOutRows SET QTT_Invoiced=ROUND(QTT_Invoiced,4) WHERE QTT_Invoiced<>ROUND(QTT_Invoiced,4)" + vbNewLine + + sql += "COMMIT TRANSACTION ROUNDQTT;" + + + Case [Module].eSQLType.MySQL + sql = "START TRANSACTION;" + vbNewLine + + sql += "UPDATE StorageComputed SET QTTFree=ROUND(QTTFree,4) WHERE QTTFree<>ROUND(QTTFree,4);" + vbNewLine + sql += "UPDATE StorageInRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4);" + vbNewLine + sql += "UPDATE StorageInRows SET QTT_Out=ROUND(QTT_Out,4) WHERE QTT_Out<>ROUND(QTT_Out,4);" + vbNewLine + sql += "UPDATE StorageOutRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4);" + vbNewLine + sql += "UPDATE StorageOutRows SET QTT_To_DeliveryOut=ROUND(QTT_To_DeliveryOut,4) WHERE QTT_To_DeliveryOut<>ROUND(QTT_To_DeliveryOut,4);" + vbNewLine + sql += "UPDATE DeliveryNoteInRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4);" + vbNewLine + sql += "UPDATE DeliveryNoteOutRows SET QTT=ROUND(QTT,4) WHERE QTT<>ROUND(QTT,4);" + vbNewLine + sql += "UPDATE DeliveryNoteOutRows SET QTT_Invoiced=ROUND(QTT_Invoiced,4) WHERE QTT_Invoiced<>ROUND(QTT_Invoiced,4);" + vbNewLine + + sql += "COMMIT;" + + + Case [Module].eSQLType.PostgreSQL + sql = "BEGIN;" + vbNewLine + + sql += "UPDATE ""StorageComputed"" SET ""QTTFree""=ROUND(""QTTFree"",4)"" WHERE ""QTTFree""<>ROUND(""QTTFree"",4);" + vbNewLine + sql += "UPDATE ""StorageInRows"" SET ""QTT""=ROUND(""QTT"",4)"" WHERE ""QTT""<>ROUND(""QTT"",4);" + vbNewLine + sql += "UPDATE ""StorageInRows"" SET ""QTT_Out""=ROUND(""QTT_Out"",4)"" WHERE ""QTT_Out""<>ROUND(""QTT_Out"",4);" + vbNewLine + sql += "UPDATE ""StorageOutRows"" SET ""QTT""=ROUND(""QTT"",4)"" WHERE ""QTT""<>ROUND(""QTT"",4);" + vbNewLine + sql += "UPDATE ""StorageOutRows"" SET ""QTT_To_DeliveryOut""=ROUND(""QTT_To_DeliveryOut"",4)"" WHERE ""QTT_To_DeliveryOut""<>ROUND(""QTT_To_DeliveryOut"",4);" + vbNewLine + sql += "UPDATE ""DeliveryNoteInRows"" SET ""QTT""=ROUND(""QTT"",4)"" WHERE ""QTT""<>ROUND(""QTT"",4);" + vbNewLine + sql += "UPDATE ""DeliveryNoteOutRows"" SET ""QTT""=ROUND(""QTT"",4)"" WHERE ""QTT""<>ROUND(""QTT"",4);" + vbNewLine + sql += "UPDATE ""DeliveryNoteOutRows"" SET ""QTT_Invoiced""=ROUND(""QTT_Invoiced"",4)"" WHERE ""QTT_Invoiced""<>ROUND(""QTT_Invoiced"",4);" + vbNewLine + + sql += "COMMIT;" + End Select + Try + Dim _row As Integer = _onew.Session.ExecuteNonQuery(sql) + Catch ex As Exception + + End Try + + + End Sub + Protected Overrides Sub OnLoggingOff(args As DevExpress.ExpressApp.LoggingOffEventArgs) + MyBase.OnLoggingOff(args) + Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace() + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId)) + Nuvolar.Module.LockingModule.ReleaseAllLocking(_uow, _User) + End Sub +End Class diff --git a/Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb b/Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb new file mode 100644 index 0000000..c9857bd --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb @@ -0,0 +1,138 @@ +Imports DevExpress.ExpressApp.Win +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Security +Imports Nuvolar.Module +Imports Nuvolar.Module.Win +Imports Nuvolar.Module.StaticClass +Imports DevExpress.ExpressApp.Xpo + +Partial Public Class NuvolarWindowsFormsDebranetGL + Inherits WinApplication + Implements IApplicationFactory + Friend WithEvents SystemModule1 As DevExpress.ExpressApp.SystemModule.SystemModule + Protected Overrides Sub ReadLastLogonParametersCore(ByVal storage As DevExpress.ExpressApp.Utils.SettingsStorage, ByVal logonObject As Object) + Dim standardLogonParameters As AuthenticationStandardLogonParameters = TryCast(logonObject, AuthenticationStandardLogonParameters) + If (standardLogonParameters IsNot Nothing) AndAlso String.IsNullOrEmpty(standardLogonParameters.UserName) Then + MyBase.ReadLastLogonParametersCore(storage, logonObject) + Try + TryCast(logonObject, ChangeLogon).DBConnection = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\DBConnection") + TryCast(logonObject, ChangeLogon).SQLServer = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\SQLServer") + Select Case TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\SQLType") + Case "MSSQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MSSQL + Case "PostgreSQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.PostgreSQL + Case "MySQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MySQL + End Select + Catch + End Try + End If + End Sub + Protected Overrides Sub OnLoggingOn(ByVal args As LogonEventArgs) + MyBase.OnLoggingOn(args) + + Dim _connectionString As String + Dim _ChangeLogon As ChangeLogon + Dim _plattform As String = "" + + _ChangeLogon = TryCast(args.LogonParameters, ChangeLogon) + + GLOBAL_SQLType = _ChangeLogon.SQLType + GLOBAL_SQLServer = _ChangeLogon.SQLServer + GLOBAL_SQLDatabase = _ChangeLogon.DBConnection + + + Select Case _ChangeLogon.SQLType + Case eSQLType.MSSQL + Select Case _ChangeLogon.SQLServer + Case "192.168.1.75" + _connectionString = " User ID=sa; " + _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName)) + _connectionString &= " Password=M1cr0s0ft!;" + _connectionString &= " Pooling=false;" + _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer) + _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection + _plattform = "MS SQL" + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "M1cr0s0ft!" + Case Else + _connectionString = " User ID=sa; " + _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName)) + _connectionString &= " Password=pcl718;" + _connectionString &= " Pooling=false;" + _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer) + _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection + _plattform = "MS SQL" + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "pcl718" + End Select + + Case eSQLType.MySQL + Select Case _ChangeLogon.SQLServer + Case "eu-cdbr-azure-north-e.cloudapp.net" + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "bf614abf4c83ef", "edbc0ac0", "trevor") + Case "84.1.95.74" + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "malomko10", _ChangeLogon.DBConnection) + Case "192.168.100.182" + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection) + Case "81.183.209.96" + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection) + Case "192.168.0.200" + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection) + Case "192.168.1.31", "192.168.0.159", "84.1.150.148", "nuvolar.northeurope.cloudapp.azure.com", "192.168.1.75" + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection) + Case Else + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "root", _ChangeLogon.DBConnection) + + End Select + _plattform = "MySQL" + GLOBAL_SQLUser = "root" + GLOBAL_SQLPassword = "pcl718" + Case eSQLType.PostgreSQL + _connectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection) + _plattform = "postgreSQL" + Case Else + _connectionString = " User ID=sa; " + _connectionString &= " Password=pcl718;" + _connectionString &= " Pooling=false;" + _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer) + _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "pcl718" + End Select + + Dim anm As System.Reflection.AssemblyName = System.Reflection.AssemblyName.GetAssemblyName(Application.StartupPath & "\Nuvolar.Module.dll") + + Me.ConnectionString = _connectionString + + GLOBAL_MainModuleVersion = anm.Version.ToString + GLOBAL_ConnectionString = _connectionString + GLOBAL_WINFormCaption = String.Format("Nuvolar Framework version: {0} [{1}]", Application.ProductVersion, anm.Version) + GLOBAL_WINFormCaption += String.Format(", ({0}) Server: {1}, Database: {2}", _plattform, UCase(_ChangeLogon.SQLServer), UCase(_ChangeLogon.DBConnection)) + GLOBAL_ApplicationStartupPath = Application.StartupPath & "\" + + Dim _ocur As IObjectSpace = CreateObjectSpace() + RestAPI.Init(TryCast(_ocur, XPObjectSpace)) + + End Sub + Protected Overrides Function OnLogonFailed(ByVal logonParameters As Object, ByVal e As Exception) As Boolean + If WinChangeDatabaseHelper.SkipLogonDialog Then + Return True + End If + Return MyBase.OnLogonFailed(logonParameters, e) + End Function + Public Shared Function CreateApplication() As NuvolarWindowsFormsDebranetGL + Dim winApplication As New NuvolarWindowsFormsDebranetGL + + CType(winApplication.Security, SecurityBase).Authentication = New WinChangeDatabaseStandardAuthentication() + Return winApplication + End Function + Private Function IApplicationFactory_CreateApplication() As WinApplication Implements IApplicationFactory.CreateApplication + Return CreateApplication() + End Function + Protected Overrides Function GetModelAssemblyFilePath() As String + Return Nothing + End Function +End Class + diff --git a/Nuvolar.WIN.Debranet.GL/XMLUserStore/UserStore.vb b/Nuvolar.WIN.Debranet.GL/XMLUserStore/UserStore.vb new file mode 100644 index 0000000..ee6c049 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/XMLUserStore/UserStore.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.Configuration +Imports System.Windows.Forms + +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Win + +Imports Nuvolar.Module.Win +Imports DevExpress.Persistent.AuditTrail +Imports Microsoft.VisualBasic + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Imports DevExpress.ExpressApp.Model.Core +Imports DevExpress.ExpressApp.Model +Imports Nuvolar.Module + +Public Class UserStore + Inherits ModelDifferenceStore + Private Shared ReadOnly xmlHeader As String = "" & System.Environment.NewLine + Private application As WinApplication + + Public Overrides ReadOnly Property Name() As String + Get + Return "UserStore" + End Get + End Property + + Public Sub New(ByVal winApplication As WinApplication) + application = winApplication + End Sub + + Private Function FindStoreByAspect(ByVal stores As XPCollection(Of XmlStore), ByVal aspect As String) As XmlStore + For Each store As XmlStore In stores + If store.Aspect = aspect Then + Return store + End If + Next store + Return Nothing + End Function + + Private Function FindXmlUserByCurrentUser() As XmlUser + Dim objectSpace As IObjectSpace = application.CreateObjectSpace() + Dim currentUser As DevExpress.Persistent.BaseImpl.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + Dim user As XmlUser = Nothing + Try + user = objectSpace.FindObject(Of XmlUser)(CriteriaOperator.Parse("User=?", currentUser), True) + Catch + End Try + Return user + End Function + + Public Overrides Sub Load(ByVal model As ModelApplicationBase) + Dim xmlReader As New ModelXmlReader() + Dim user As XmlUser = FindXmlUserByCurrentUser() + If user IsNot Nothing Then + For Each store As XmlStore In user.Aspects + xmlReader.ReadFromString(model, store.Aspect, store.XmlData) + Next store + End If + End Sub + + Public Overrides Sub SaveDifference(ByVal model As ModelApplicationBase) + Dim objectSpace As IObjectSpace = application.CreateObjectSpace() + Dim user As XmlUser = objectSpace.GetObject(FindXmlUserByCurrentUser()) + If user Is Nothing Then + user = New XmlUser(TryCast(objectSpace, Xpo.XPObjectSpace).Session) + user.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + End If + For i As Integer = 0 To model.AspectCount - 1 + Dim xmlWriter As New ModelXmlWriter() + Dim aspect As String = model.GetAspect(i) + Dim xmlContent As String = xmlWriter.WriteToString(model, i) + If (Not String.IsNullOrEmpty(xmlContent)) Then + Dim store As XmlStore = FindStoreByAspect(user.Aspects, aspect) + If store Is Nothing Then + store = New XmlStore(TryCast(objectSpace, Xpo.XPObjectSpace).Session) + End If + store.User = user + store.Aspect = aspect + store.XmlData = xmlHeader & xmlContent + End If + Next i + objectSpace.CommitChanges() + End Sub + + +End Class + diff --git a/Nuvolar.WIN.Debranet.GL/app.config b/Nuvolar.WIN.Debranet.GL/app.config new file mode 100644 index 0000000..0b7bad1 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/app.config @@ -0,0 +1,66 @@ + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/app.config.bak b/Nuvolar.WIN.Debranet.GL/app.config.bak new file mode 100644 index 0000000..c3c2973 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/app.config.bak @@ -0,0 +1,63 @@ + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/favicon.ico b/Nuvolar.WIN.Debranet.GL/favicon.ico new file mode 100644 index 0000000..d58aa48 Binary files /dev/null and b/Nuvolar.WIN.Debranet.GL/favicon.ico differ diff --git a/Nuvolar.WIN.Debranet.GL/packages.config b/Nuvolar.WIN.Debranet.GL/packages.config new file mode 100644 index 0000000..743798b --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/Nuvolar.Win.Lite/Program.vb b/Nuvolar.Win.Lite/Program.vb index 3283ab1..237f4ce 100644 --- a/Nuvolar.Win.Lite/Program.vb +++ b/Nuvolar.Win.Lite/Program.vb @@ -58,6 +58,7 @@ Friend NotInheritable Class Program AddHandler winApplication.CustomHandleException, AddressOf winApplication_CustomHandleException winApplication.DelayedViewItemsInitialization = True winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen + winApplication.DatabaseUpdateMode = DatabaseUpdateMode.UpdateOldDatabase AuditTrailService.Instance.ObjectAuditingMode = ObjectAuditingMode.CreationOnly diff --git a/Nuvolar.Win.Lite/WinApplication.vb b/Nuvolar.Win.Lite/WinApplication.vb index 5916201..6d2c69d 100644 --- a/Nuvolar.Win.Lite/WinApplication.vb +++ b/Nuvolar.Win.Lite/WinApplication.vb @@ -17,8 +17,13 @@ Partial Public Class NuvolarWindowsFormsApplication Inherits WinApplication Public Sub New() InitializeComponent() + InitializeDefaults() + End Sub + Private Sub InitializeDefaults() + LinkNewObjectToParentImmediately = True + UseLightStyle = True + ExecuteStartupLogicBeforeClosingLogonWindow = True End Sub - Private Sub NuvolarWindowsFormsApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch e.Updater.Update() diff --git a/Nuvolar.Win.Lite/WinApplication_DB.vb b/Nuvolar.Win.Lite/WinApplication_DB.vb index 0dbb9db..87270ef 100644 --- a/Nuvolar.Win.Lite/WinApplication_DB.vb +++ b/Nuvolar.Win.Lite/WinApplication_DB.vb @@ -74,16 +74,16 @@ Partial Public Class NuvolarWindowsFormsApplication _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "bf614abf4c83ef", "edbc0ac0", "trevor") Case "84.1.95.74" _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "malomko10", _ChangeLogon.DBConnection) - Case "192.168.100.182", "localhost" + Case "192.168.100.182" _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection) Case "81.183.209.96" _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection) - Case "localhost", "192.168.0.200" + Case "192.168.0.200" _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection) Case "192.168.1.31", "192.168.0.159", "84.1.150.148", "nuvolar.northeurope.cloudapp.azure.com", "192.168.1.75" _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection) Case Else - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection) + _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "root", _ChangeLogon.DBConnection) End Select _plattform = "MySQL" diff --git a/Nuvolar.Win.Lite/app.config b/Nuvolar.Win.Lite/app.config index 343c1d1..0b7bad1 100644 --- a/Nuvolar.Win.Lite/app.config +++ b/Nuvolar.Win.Lite/app.config @@ -7,7 +7,7 @@ - +