Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL
This commit is contained in:
@@ -1,43 +1,43 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<configSections>
|
||||
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<section name="SDL.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
|
||||
<section name="SDL.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<connectionStrings />
|
||||
<connectionStrings/>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
|
||||
</startup>
|
||||
<system.serviceModel>
|
||||
<bindings>
|
||||
<basicHttpBinding>
|
||||
<binding name="BasicHttpBinding_IRKSVWcf" />
|
||||
<binding name="checkVatBinding" />
|
||||
<binding name="BasicHttpBinding_IRKSVWcf"/>
|
||||
<binding name="checkVatBinding"/>
|
||||
</basicHttpBinding>
|
||||
</bindings>
|
||||
<client>
|
||||
<endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
|
||||
<endpoint address="http://ec.europa.eu/taxation_customs/vies/services/checkVatService" binding="basicHttpBinding" bindingConfiguration="checkVatBinding" contract="EU_UID_Pruefung.checkVatPortType" name="checkVatPort" />
|
||||
<endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf"/>
|
||||
<endpoint address="http://ec.europa.eu/taxation_customs/vies/services/checkVatService" binding="basicHttpBinding" bindingConfiguration="checkVatBinding" contract="EU_UID_Pruefung.checkVatPortType" name="checkVatPort"/>
|
||||
</client>
|
||||
</system.serviceModel>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0" />
|
||||
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
|
||||
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
|
||||
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0" />
|
||||
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0"/>
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
</runtime>
|
||||
@@ -64,18 +64,18 @@
|
||||
</SDL.My.MySettings>
|
||||
</applicationSettings>
|
||||
<appSettings>
|
||||
<add key="EnableWindowsFormsHighDpiAutoResizing" value="true" />
|
||||
<add key="ClientSettingsProvider.ServiceUri" value="" />
|
||||
<add key="EnableWindowsFormsHighDpiAutoResizing" value="true"/>
|
||||
<add key="ClientSettingsProvider.ServiceUri" value=""/>
|
||||
</appSettings>
|
||||
<system.web>
|
||||
<membership defaultProvider="ClientAuthenticationMembershipProvider">
|
||||
<providers>
|
||||
<add name="ClientAuthenticationMembershipProvider" type="System.Web.ClientServices.Providers.ClientFormsAuthenticationMembershipProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" />
|
||||
<add name="ClientAuthenticationMembershipProvider" type="System.Web.ClientServices.Providers.ClientFormsAuthenticationMembershipProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri=""/>
|
||||
</providers>
|
||||
</membership>
|
||||
<roleManager defaultProvider="ClientRoleProvider" enabled="true">
|
||||
<providers>
|
||||
<add name="ClientRoleProvider" type="System.Web.ClientServices.Providers.ClientRoleProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" cacheTimeout="86400" />
|
||||
<add name="ClientRoleProvider" type="System.Web.ClientServices.Providers.ClientRoleProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" cacheTimeout="86400"/>
|
||||
</providers>
|
||||
</roleManager>
|
||||
</system.web>
|
||||
|
||||
6
SDL/My Project/Application.Designer.vb
generated
6
SDL/My Project/Application.Designer.vb
generated
@@ -34,5 +34,11 @@ Namespace My
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.SDL.frmLogin
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
|
||||
Me.MinimumSplashScreenDisplayTime = 0
|
||||
Return MyBase.OnInitialize(commandLineArgs)
|
||||
End Function
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
2
SDL/My Project/Settings.Designer.vb
generated
2
SDL/My Project/Settings.Designer.vb
generated
@@ -15,7 +15,7 @@ Option Explicit On
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
26
SDL/My Project/license.elic.xml
Normal file
26
SDL/My Project/license.elic.xml
Normal file
@@ -0,0 +1,26 @@
|
||||
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
|
||||
<License Key="cEpc16XxAJrkAQDgjMzjDgDjuYoJMMP7BCUCCs6Z0SNyiAdLS2m1S5RaQhUNStB0GfzvEHaKikcHoHw2I22j0NgXiE3fhmOw0YHFw7FXbuGCUsX/DrJxVBLHGBVaWXzm/Gldmt9h3RVGQEh9V4IZN/+hOOcJXBL/TRvxGoZ3Zp4Ebhv12J/G83QlwqSjA4KqzNjlys4RVQNjIwCw1fIgSOh+GzLaGDm4Ii2+MfF0Ohr/+msHC44eKfUucyW4Vv/iW2muNqHstU5E8ezUNSXFZkS0wp4Hlbg/iorS1uuXNNdfECZL4BOV/qftRxrImsi3E3fdZ7FJw8JjvkoWWt1s4yPUtc1MS+0iXg2+64DiYwhLRTnV/8QUvOMEoQGMkDoOzMV1cabhSEJd6Z1iSFMdOZOdZR2E9nlDIJOoYPUR7HE9FclSxd6ICuBGM+Yb2YJpH9HgEkg0/3MC9kgJ9n6+XrW09oY3BvYRb9fYwdBWZ/3lqvGV9cHgQPP9EH6ApIZ8qoWH5nRQoeRwtiIrmOxRNVEN94TXuiQBuIvZMRu/uJs2ylAlIlbtMGUEK6VFys8OmY2G9fZsiKqUUQd3AyN2eOE/DJKSftJAoCqfaVqEJgbVy1zA0vjyIBsa42HCes8RJQrSdUWQyIsGWUf99mDvfSTxI+jsKGOAXgHmrK8kJ8orUL8L8P8NlyZp4RlRkCzkgP4yju0oeg32tss8iuwqXt44Gr1fk1ti5s1KXsZ1ZaGYAgucY5wEP4bmlPuQimfRIBvbNasSj/vk82RurAo77WDhmB63o9svfnVPExDpx1QxIYKezZGNA2A3J5gksZdhknWbSmcQy/HTP9bZdAfSEQCnXkdRIwnvdEts1rb5uWm4noCSVA3q7EMterUmfrKFpfzlCq96Lfor89p/nb0Cgl1xY0JDn+3k+na1rmGawro0Gz5jcPdVp+C3Z6afh03HBzbs/DSa3l+IMGLKEWP5f5wjy3ozgpP7GLuFHPtbOCy7/v7v/1mxZbUkT7CXPKVs1OEgYjH738igSjiziFJpVnDa/RmvV4WUmFLKcdNntuvpwu7hQFTDMrAU6G0K9weDH81xzJmAEZaVgW6aCu43wlPPKgvDjum5FcP/KHYG1s0CvF4ZVVON8fa0Jlmlg9zCPJ9POrmFa8Ap55BIQAgsXlyPXBXowQ3isZd3dK9R6ooq/6ODB3dnzn/QyVKljwyIxCZdJpMKza7k/hvpO3rlZne118AUE3Ry5QE7U7gDGFcn700R4vD3enxtausV+XiABDKHDBIAgLbT4ZyzXCHHxlgV2pvqL7GYwihN8FXc9UFRxqvMx8RA9gahKPIY6WOQ1q5NEyFTRPMYQRBHDTa9KSLBbfnbjmNaURfI0UeXV4/pPzEa+8in7rVJFltPk3z9XTqJK1hgd+1KfqXjmKKvh7tbM1KXx8yFI9JGTdL3vSqJGw2Qog/lLKez3ZshZVQbYJ54l4G+I6mQCOGUcKdvvOVWwggsxCAV78RuWKm7liUwnncpeSF2iq3AOMnVsTn6Bi7l4OYgZavoSEFTKuVRl+hSqC/Y9/x/ngTeAyudwAg=" Version="1.4">
|
||||
<SerialNumber>B081D0F5-EF94-42F2-B287-4812D84164CE</SerialNumber>
|
||||
<Type>Runtime</Type>
|
||||
<Username>VERAG Spedition AG</Username>
|
||||
<Email>al@verag.ag</Email>
|
||||
<Organization>VERAG Spedition AG</Organization>
|
||||
<LicensedDate>2024-08-31T00:00:00Z</LicensedDate>
|
||||
<ExpiredDate>2025-08-31T00:00:00Z</ExpiredDate>
|
||||
<Products>
|
||||
<Product>
|
||||
<Name>Spire.PDF Pro Edition</Name>
|
||||
<Version>10.7</Version>
|
||||
<Subscription>
|
||||
<Name>Developer Subscription</Name>
|
||||
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
|
||||
<NumberOfPermittedSite>1</NumberOfPermittedSite>
|
||||
</Subscription>
|
||||
</Product>
|
||||
</Products>
|
||||
<Issuer>
|
||||
<Name>e-iceblue</Name>
|
||||
<Email>sales@e-iceblue.com</Email>
|
||||
<Url>http://www.e-iceblue.com</Url>
|
||||
</Issuer>
|
||||
</License>
|
||||
25
SDL/My Project/licenseViewer.elic.xml
Normal file
25
SDL/My Project/licenseViewer.elic.xml
Normal file
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
|
||||
<License Key="PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apMQaEg2G7cDaQzVdmY9N6oMVZ+dDZ9Vet12GAvrD5akRHviXNhXis0W/WaaifHmbgfIO7zx35qNxRQ5mwouVh/byBw7sXBjtKwpJxulpVy0FNWSeSC4sskGn9+GO+inUrurRxX8EBEDBK0ev/558sYBQ4HloBvmWDX58ni7F0xv/1BdsvW2M+viIP4DATVUVoGh+lskcoBt2Z8g/Fxib/mBpQLmvg1fasZjscdfIyZBFJ57AtcNr9cT4oC2zn+ZodXXHYACD6+AFL3d0P1v/P3Bw5giOZpdeRmnlm9mD+OEXFWOgi+lfwF2S9IYcB+LrdckNiaRhserlEE6crn6HRquPQoqzo7J+nR63anp/HfJ3+n3RWVdSg+cJ13yPyMUhgQebsvcm+/bDCWaXc9+5THRJ6aAVoBE4hZ1eHdl1ukzuXiEJJ7GG2vk2MMcy9adKZyVATxSKuBeK1FYLF/62lZC0aoh4WV70Bth9MVWbLLKmZe3KttBYOtRpXvj1zk36RBubnLuSXp3aW7lJGwrHzMvaMGlYHmq1PUwgTLmL0d2p4FP9qSXHlAtRH8/O0AMsLHrLDe/4sNHkHqy+A8YM09t1adSnxOhoDyOb41zyvjsQ635gWYvOBimN0iEyVg3dEC7g5PZkAhIahBDz1qa4+GkluYvtmrafKZc/55KbYBZ23k+In8Qfabym0v7YWSpZ+/vwE2jNRupmL/6M0YnZUQolyFzBVqCdt40NYnnMD9o9I49XjB/8dWicpD2G60vIN4XvRc9/LG0elTqFiZkD9JLMGw+1fb0EwBb5XdGy68IHPoOFpXMcVFPHeBX45r7gZnaGAB11LhJiflSKnDd8unLrHUJJJvkPHyN5HWLrSAvcmJFS4JaHM7tHQorHF3xRYWHbGLWvGRtjfO43UlGhwklrH5rs4bop5R6m0eT/5eS/rbIoofUYQMEYexzGZwXAgNA6Sal7luN7Iqx7l4ykVrIwUAeLspfvsGT/aFDKBo77VQfPubHg/N7zd+wacmagI/7HznVCGkTApEcTrkade2cpsWGQa0sIrEDqt7s/1ZrwdqIQwgJ3rMnNGZ6ljV/FOT9OdVkkCKHkJrAwDlf2ssBbOvlHqxVz5x30mMkIQPZvSVFxSL2IKfx+FJ1VoQ==" Version="1.3">
|
||||
<Type>Runtime</Type>
|
||||
<Username>VERAG Spedition AG</Username>
|
||||
<Email>al@verag.ag</Email>
|
||||
<Organization>VERAG Spedition AG</Organization>
|
||||
<LicensedDate>2024-08-31T00:00:00Z</LicensedDate>
|
||||
<ExpiredDate>2025-08-31T00:00:00Z</ExpiredDate>
|
||||
<Products>
|
||||
<Product>
|
||||
<Name>Spire.PDFViewer for Forms</Name>
|
||||
<Version>7.12</Version>
|
||||
<Subscription>
|
||||
<Name>Developer Subscription</Name>
|
||||
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
|
||||
<NumberOfPermittedSite>1</NumberOfPermittedSite>
|
||||
</Subscription>
|
||||
</Product>
|
||||
</Products>
|
||||
<Issuer>
|
||||
<Name>e-iceblue</Name>
|
||||
<Email>sales@e-iceblue.com</Email>
|
||||
<Url>http://www.e-iceblue.com</Url>
|
||||
</Issuer>
|
||||
</License>
|
||||
@@ -11,7 +11,7 @@
|
||||
<AssemblyName>SDL</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile>
|
||||
</TargetFrameworkProfile>
|
||||
<IsWebBootstrapper>true</IsWebBootstrapper>
|
||||
@@ -298,10 +298,6 @@
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\RKAesIcm.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Spire.Pdf, Version=8.1.4.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\Spire.PDF\2023\Spire.Pdf.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.ComponentModel.Composition" />
|
||||
<Reference Include="System.ComponentModel.Composition.Registration" />
|
||||
@@ -2780,6 +2776,7 @@
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
<DesignTime>True</DesignTime>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
@@ -4821,6 +4818,8 @@
|
||||
<None Include="Resources\search.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="My Project\license.elic.xml" />
|
||||
<Content Include="My Project\licenseViewer.elic.xml" />
|
||||
<Content Include="My Project\logo_mdm.png" />
|
||||
<Content Include="My Project\zoll.png" />
|
||||
<None Include="Resources\xml_gray.jpg" />
|
||||
|
||||
@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
|
||||
Namespace EORI
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="validationSoapBinding", [Namespace]:="http://eori.ws.eos.dds.s/")> _
|
||||
@@ -121,7 +121,7 @@ Namespace EORI
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
||||
System.SerializableAttribute(), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
@@ -169,7 +169,7 @@ Namespace EORI
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
||||
System.SerializableAttribute(), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
@@ -308,11 +308,11 @@ Namespace EORI
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class validateEORICompletedEventArgs
|
||||
|
||||
@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
|
||||
Namespace at.gv.bmf.finanzonline
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="uidAbfrageServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
|
||||
@@ -129,7 +129,7 @@ Namespace at.gv.bmf.finanzonline
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
||||
System.SerializableAttribute(), _
|
||||
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true, [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
|
||||
Public Enum uidAbfrageServiceRequestStufe
|
||||
@@ -144,11 +144,11 @@ Namespace at.gv.bmf.finanzonline
|
||||
End Enum
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class uidAbfrageCompletedEventArgs
|
||||
|
||||
@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
|
||||
Namespace at.gv.bmf.finanzonlineLogin
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="sessionServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/session")> _
|
||||
@@ -156,11 +156,11 @@ Namespace at.gv.bmf.finanzonlineLogin
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class loginCompletedEventArgs
|
||||
@@ -199,11 +199,11 @@ Namespace at.gv.bmf.finanzonlineLogin
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class logoutCompletedEventArgs
|
||||
|
||||
@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
|
||||
Namespace eu.europa.ec
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="checkVatBinding", [Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat")> _
|
||||
@@ -200,7 +200,7 @@ Namespace eu.europa.ec
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
||||
System.SerializableAttribute(), _
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat:types")> _
|
||||
Public Enum matchCode
|
||||
@@ -219,11 +219,11 @@ Namespace eu.europa.ec
|
||||
End Enum
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub checkVatCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class checkVatCompletedEventArgs
|
||||
@@ -286,11 +286,11 @@ Namespace eu.europa.ec
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub checkVatApproxCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatApproxCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class checkVatApproxCompletedEventArgs
|
||||
|
||||
@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
|
||||
Namespace eu.europa.ec1
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="validationSoapBinding", [Namespace]:="http://eori.ws.eos.dds.s/")> _
|
||||
@@ -73,14 +73,14 @@ Namespace eu.europa.ec1
|
||||
|
||||
'''<remarks/>
|
||||
Public Event validateEORICompleted As validateEORICompletedEventHandler
|
||||
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="http://eori.ws.eos.dds.s/", ResponseNamespace:="http://eori.ws.eos.dds.s/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>
|
||||
Public Function validateEORI(ByVal eori() As String) As eoriValidationResult
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="http://eori.ws.eos.dds.s/", ResponseNamespace:="http://eori.ws.eos.dds.s/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function validateEORI(<System.Xml.Serialization.XmlElementAttribute("eori")> ByVal eori() As String) As <System.Xml.Serialization.XmlElementAttribute("return", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> eoriValidationResult
|
||||
Dim results() As Object = Me.Invoke("validateEORI", New Object() {eori})
|
||||
Return CType(results(0), eoriValidationResult)
|
||||
Return CType(results(0),eoriValidationResult)
|
||||
End Function
|
||||
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub validateEORIAsync(ByVal eori() As String)
|
||||
Me.validateEORIAsync(eori, Nothing)
|
||||
@@ -121,7 +121,7 @@ Namespace eu.europa.ec1
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
||||
System.SerializableAttribute(), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
@@ -169,7 +169,7 @@ Namespace eu.europa.ec1
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
||||
System.SerializableAttribute(), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
@@ -308,11 +308,11 @@ Namespace eu.europa.ec1
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class validateEORICompletedEventArgs
|
||||
@@ -324,12 +324,12 @@ Namespace eu.europa.ec1
|
||||
MyBase.New(exception, cancelled, userState)
|
||||
Me.results = results
|
||||
End Sub
|
||||
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property Result() As eoriValidationResult
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary()
|
||||
Return CType(Me.results(0), eoriValidationResult)
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),eoriValidationResult)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
288
SDL/kunden/usrCntlCBAM.Designer.vb
generated
288
SDL/kunden/usrCntlCBAM.Designer.vb
generated
@@ -26,7 +26,6 @@ Partial Class usrCntlCBAM
|
||||
Me.lblOffert = New System.Windows.Forms.TextBox()
|
||||
Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnCBAMPruef_DAKOSY = New System.Windows.Forms.Button()
|
||||
Me.btnCBAMPruef_DHF_VERAG = New System.Windows.Forms.Button()
|
||||
@@ -38,12 +37,8 @@ Partial Class usrCntlCBAM
|
||||
Me.txtCBAMPruef_DHF_VERAG = New System.Windows.Forms.TextBox()
|
||||
Me.txtCBAMPruef_DHF_UNISPED = New System.Windows.Forms.TextBox()
|
||||
Me.txtCBAMPruef_TELOTEC = New System.Windows.Forms.TextBox()
|
||||
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.btnCBAM_DS_DHF_UNISPED = New System.Windows.Forms.Button()
|
||||
Me.btnCBAM_DS_TELOTEC = New System.Windows.Forms.Button()
|
||||
Me.btnCBAM_DS_DHF_VERAG = New System.Windows.Forms.Button()
|
||||
@@ -62,11 +57,16 @@ Partial Class usrCntlCBAM
|
||||
Me.btnCBAM_DS_DHF_VERAG_Copy = New System.Windows.Forms.Button()
|
||||
Me.btnCBAM_DS_DHF_UNISPED_Copy = New System.Windows.Forms.Button()
|
||||
Me.btnCBAM_DS_TELOTEC_Copy = New System.Windows.Forms.Button()
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.cbxVERAG = New System.Windows.Forms.CheckBox()
|
||||
Me.btnCBAM_DS_DAKOSY_XML = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.cbxVERAG = New System.Windows.Forms.CheckBox()
|
||||
Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.cntxtAddSdl.SuspendLayout()
|
||||
Me.MyPanel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
@@ -96,29 +96,6 @@ Partial Class usrCntlCBAM
|
||||
Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22)
|
||||
Me.DToolStripMenuItem.Text = "d"
|
||||
'
|
||||
'txtEori
|
||||
'
|
||||
Me.txtEori._DateTimeOnly = False
|
||||
Me.txtEori._numbersOnly = False
|
||||
Me.txtEori._numbersOnlyKommastellen = ""
|
||||
Me.txtEori._numbersOnlyTrennzeichen = True
|
||||
Me.txtEori._Prozent = False
|
||||
Me.txtEori._ShortDateNew = False
|
||||
Me.txtEori._ShortDateOnly = False
|
||||
Me.txtEori._TimeOnly = False
|
||||
Me.txtEori._TimeOnly_Seconds = False
|
||||
Me.txtEori._value = ""
|
||||
Me.txtEori._Waehrung = False
|
||||
Me.txtEori._WaehrungZeichen = True
|
||||
Me.txtEori.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtEori.Location = New System.Drawing.Point(106, 48)
|
||||
Me.txtEori.MaxLineLength = -1
|
||||
Me.txtEori.MaxLines_Warning = ""
|
||||
Me.txtEori.MaxLines_Warning_Label = Nothing
|
||||
Me.txtEori.Name = "txtEori"
|
||||
Me.txtEori.Size = New System.Drawing.Size(341, 20)
|
||||
Me.txtEori.TabIndex = 1
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
@@ -243,52 +220,6 @@ Partial Class usrCntlCBAM
|
||||
Me.txtCBAMPruef_TELOTEC.Text = "-"
|
||||
Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'txtBis
|
||||
'
|
||||
Me.txtBis._DateTimeOnly = False
|
||||
Me.txtBis._numbersOnly = False
|
||||
Me.txtBis._numbersOnlyKommastellen = ""
|
||||
Me.txtBis._numbersOnlyTrennzeichen = True
|
||||
Me.txtBis._Prozent = False
|
||||
Me.txtBis._ShortDateNew = False
|
||||
Me.txtBis._ShortDateOnly = False
|
||||
Me.txtBis._TimeOnly = False
|
||||
Me.txtBis._TimeOnly_Seconds = False
|
||||
Me.txtBis._value = ""
|
||||
Me.txtBis._Waehrung = False
|
||||
Me.txtBis._WaehrungZeichen = True
|
||||
Me.txtBis.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtBis.Location = New System.Drawing.Point(860, 49)
|
||||
Me.txtBis.MaxLineLength = -1
|
||||
Me.txtBis.MaxLines_Warning = ""
|
||||
Me.txtBis.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBis.Name = "txtBis"
|
||||
Me.txtBis.Size = New System.Drawing.Size(110, 20)
|
||||
Me.txtBis.TabIndex = 14
|
||||
'
|
||||
'txtVon
|
||||
'
|
||||
Me.txtVon._DateTimeOnly = False
|
||||
Me.txtVon._numbersOnly = False
|
||||
Me.txtVon._numbersOnlyKommastellen = ""
|
||||
Me.txtVon._numbersOnlyTrennzeichen = True
|
||||
Me.txtVon._Prozent = False
|
||||
Me.txtVon._ShortDateNew = False
|
||||
Me.txtVon._ShortDateOnly = False
|
||||
Me.txtVon._TimeOnly = False
|
||||
Me.txtVon._TimeOnly_Seconds = False
|
||||
Me.txtVon._value = ""
|
||||
Me.txtVon._Waehrung = False
|
||||
Me.txtVon._WaehrungZeichen = True
|
||||
Me.txtVon.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtVon.Location = New System.Drawing.Point(744, 49)
|
||||
Me.txtVon.MaxLineLength = -1
|
||||
Me.txtVon.MaxLines_Warning = ""
|
||||
Me.txtVon.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVon.Name = "txtVon"
|
||||
Me.txtVon.Size = New System.Drawing.Size(110, 20)
|
||||
Me.txtVon.TabIndex = 15
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
@@ -307,41 +238,6 @@ Partial Class usrCntlCBAM
|
||||
Me.Label5.TabIndex = 18
|
||||
Me.Label5.Text = "Zeitraum:"
|
||||
'
|
||||
'cboQuartal
|
||||
'
|
||||
Me.cboQuartal._allowedValuesFreiText = Nothing
|
||||
Me.cboQuartal._allowFreiText = False
|
||||
Me.cboQuartal._value = ""
|
||||
Me.cboQuartal.FormattingEnabled = True
|
||||
Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"})
|
||||
Me.cboQuartal.Location = New System.Drawing.Point(511, 48)
|
||||
Me.cboQuartal.Name = "cboQuartal"
|
||||
Me.cboQuartal.Size = New System.Drawing.Size(45, 21)
|
||||
Me.cboQuartal.TabIndex = 19
|
||||
'
|
||||
'txtJahr
|
||||
'
|
||||
Me.txtJahr._DateTimeOnly = False
|
||||
Me.txtJahr._numbersOnly = False
|
||||
Me.txtJahr._numbersOnlyKommastellen = ""
|
||||
Me.txtJahr._numbersOnlyTrennzeichen = True
|
||||
Me.txtJahr._Prozent = False
|
||||
Me.txtJahr._ShortDateNew = False
|
||||
Me.txtJahr._ShortDateOnly = False
|
||||
Me.txtJahr._TimeOnly = False
|
||||
Me.txtJahr._TimeOnly_Seconds = False
|
||||
Me.txtJahr._value = ""
|
||||
Me.txtJahr._Waehrung = False
|
||||
Me.txtJahr._WaehrungZeichen = True
|
||||
Me.txtJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtJahr.Location = New System.Drawing.Point(562, 49)
|
||||
Me.txtJahr.MaxLineLength = -1
|
||||
Me.txtJahr.MaxLines_Warning = ""
|
||||
Me.txtJahr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtJahr.Name = "txtJahr"
|
||||
Me.txtJahr.Size = New System.Drawing.Size(60, 20)
|
||||
Me.txtJahr.TabIndex = 20
|
||||
'
|
||||
'btnCBAM_DS_DHF_UNISPED
|
||||
'
|
||||
Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
@@ -560,6 +456,31 @@ Partial Class usrCntlCBAM
|
||||
Me.btnCBAM_DS_TELOTEC_Copy.Text = "In Zwischenablage kopieren"
|
||||
Me.btnCBAM_DS_TELOTEC_Copy.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCBAM_DS_DAKOSY_XML
|
||||
'
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Enabled = False
|
||||
Me.btnCBAM_DS_DAKOSY_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Image = Global.SDL.My.Resources.Resources.xml
|
||||
Me.btnCBAM_DS_DAKOSY_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(144, 435)
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Name = "btnCBAM_DS_DAKOSY_XML"
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Size = New System.Drawing.Size(130, 42)
|
||||
Me.btnCBAM_DS_DAKOSY_XML.TabIndex = 40
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Text = "XML"
|
||||
Me.btnCBAM_DS_DAKOSY_XML.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(144, 483)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(130, 42)
|
||||
Me.Button2.TabIndex = 42
|
||||
Me.Button2.Text = "In Zwischenablage kopieren"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyPanel1
|
||||
'
|
||||
Me.MyPanel1.Controls.Add(Me.cbxVERAG)
|
||||
@@ -578,49 +499,126 @@ Partial Class usrCntlCBAM
|
||||
Me.cbxVERAG.Text = "VERAG"
|
||||
Me.cbxVERAG.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCBAM_DS_DAKOSY_XML
|
||||
'txtJahr
|
||||
'
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Enabled = False
|
||||
Me.btnCBAM_DS_DAKOSY_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Image = Global.SDL.My.Resources.Resources.xml
|
||||
Me.btnCBAM_DS_DAKOSY_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(144, 378)
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Name = "btnCBAM_DS_DAKOSY_XML"
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Size = New System.Drawing.Size(130, 42)
|
||||
Me.btnCBAM_DS_DAKOSY_XML.TabIndex = 40
|
||||
Me.btnCBAM_DS_DAKOSY_XML.Text = "XML"
|
||||
Me.btnCBAM_DS_DAKOSY_XML.UseVisualStyleBackColor = True
|
||||
Me.txtJahr._DateTimeOnly = False
|
||||
Me.txtJahr._numbersOnly = False
|
||||
Me.txtJahr._numbersOnlyKommastellen = ""
|
||||
Me.txtJahr._numbersOnlyTrennzeichen = True
|
||||
Me.txtJahr._Prozent = False
|
||||
Me.txtJahr._ShortDateNew = False
|
||||
Me.txtJahr._ShortDateOnly = False
|
||||
Me.txtJahr._TimeOnly = False
|
||||
Me.txtJahr._TimeOnly_Seconds = False
|
||||
Me.txtJahr._value = ""
|
||||
Me.txtJahr._Waehrung = False
|
||||
Me.txtJahr._WaehrungZeichen = True
|
||||
Me.txtJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtJahr.Location = New System.Drawing.Point(562, 49)
|
||||
Me.txtJahr.MaxLineLength = -1
|
||||
Me.txtJahr.MaxLines_Warning = ""
|
||||
Me.txtJahr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtJahr.Name = "txtJahr"
|
||||
Me.txtJahr.Size = New System.Drawing.Size(60, 20)
|
||||
Me.txtJahr.TabIndex = 20
|
||||
'
|
||||
'Button2
|
||||
'cboQuartal
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(144, 426)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(130, 42)
|
||||
Me.Button2.TabIndex = 42
|
||||
Me.Button2.Text = "In Zwischenablage kopieren"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
Me.cboQuartal._allowedValuesFreiText = Nothing
|
||||
Me.cboQuartal._allowFreiText = False
|
||||
Me.cboQuartal._value = ""
|
||||
Me.cboQuartal.FormattingEnabled = True
|
||||
Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"})
|
||||
Me.cboQuartal.Location = New System.Drawing.Point(511, 48)
|
||||
Me.cboQuartal.Name = "cboQuartal"
|
||||
Me.cboQuartal.Size = New System.Drawing.Size(45, 21)
|
||||
Me.cboQuartal.TabIndex = 19
|
||||
'
|
||||
'Button3
|
||||
'txtVon
|
||||
'
|
||||
Me.Button3.Enabled = False
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button3.Location = New System.Drawing.Point(106, 474)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(168, 42)
|
||||
Me.Button3.TabIndex = 43
|
||||
Me.Button3.Text = "Alles in Zwischenablage kopieren"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
Me.txtVon._DateTimeOnly = False
|
||||
Me.txtVon._numbersOnly = False
|
||||
Me.txtVon._numbersOnlyKommastellen = ""
|
||||
Me.txtVon._numbersOnlyTrennzeichen = True
|
||||
Me.txtVon._Prozent = False
|
||||
Me.txtVon._ShortDateNew = False
|
||||
Me.txtVon._ShortDateOnly = False
|
||||
Me.txtVon._TimeOnly = False
|
||||
Me.txtVon._TimeOnly_Seconds = False
|
||||
Me.txtVon._value = ""
|
||||
Me.txtVon._Waehrung = False
|
||||
Me.txtVon._WaehrungZeichen = True
|
||||
Me.txtVon.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtVon.Location = New System.Drawing.Point(744, 49)
|
||||
Me.txtVon.MaxLineLength = -1
|
||||
Me.txtVon.MaxLines_Warning = ""
|
||||
Me.txtVon.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVon.Name = "txtVon"
|
||||
Me.txtVon.Size = New System.Drawing.Size(110, 20)
|
||||
Me.txtVon.TabIndex = 15
|
||||
'
|
||||
'txtBis
|
||||
'
|
||||
Me.txtBis._DateTimeOnly = False
|
||||
Me.txtBis._numbersOnly = False
|
||||
Me.txtBis._numbersOnlyKommastellen = ""
|
||||
Me.txtBis._numbersOnlyTrennzeichen = True
|
||||
Me.txtBis._Prozent = False
|
||||
Me.txtBis._ShortDateNew = False
|
||||
Me.txtBis._ShortDateOnly = False
|
||||
Me.txtBis._TimeOnly = False
|
||||
Me.txtBis._TimeOnly_Seconds = False
|
||||
Me.txtBis._value = ""
|
||||
Me.txtBis._Waehrung = False
|
||||
Me.txtBis._WaehrungZeichen = True
|
||||
Me.txtBis.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtBis.Location = New System.Drawing.Point(860, 49)
|
||||
Me.txtBis.MaxLineLength = -1
|
||||
Me.txtBis.MaxLines_Warning = ""
|
||||
Me.txtBis.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBis.Name = "txtBis"
|
||||
Me.txtBis.Size = New System.Drawing.Size(110, 20)
|
||||
Me.txtBis.TabIndex = 14
|
||||
'
|
||||
'txtEori
|
||||
'
|
||||
Me.txtEori._DateTimeOnly = False
|
||||
Me.txtEori._numbersOnly = False
|
||||
Me.txtEori._numbersOnlyKommastellen = ""
|
||||
Me.txtEori._numbersOnlyTrennzeichen = True
|
||||
Me.txtEori._Prozent = False
|
||||
Me.txtEori._ShortDateNew = False
|
||||
Me.txtEori._ShortDateOnly = False
|
||||
Me.txtEori._TimeOnly = False
|
||||
Me.txtEori._TimeOnly_Seconds = False
|
||||
Me.txtEori._value = ""
|
||||
Me.txtEori._Waehrung = False
|
||||
Me.txtEori._WaehrungZeichen = True
|
||||
Me.txtEori.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtEori.Location = New System.Drawing.Point(106, 48)
|
||||
Me.txtEori.MaxLineLength = -1
|
||||
Me.txtEori.MaxLines_Warning = ""
|
||||
Me.txtEori.MaxLines_Warning_Label = Nothing
|
||||
Me.txtEori.Name = "txtEori"
|
||||
Me.txtEori.Size = New System.Drawing.Size(341, 20)
|
||||
Me.txtEori.TabIndex = 1
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(106, 387)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(168, 42)
|
||||
Me.Button1.TabIndex = 44
|
||||
Me.Button1.Text = "XML Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlCBAM
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.Controls.Add(Me.Button3)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_XML)
|
||||
Me.Controls.Add(Me.MyPanel1)
|
||||
@@ -714,5 +712,5 @@ Partial Class usrCntlCBAM
|
||||
Friend WithEvents cbxVERAG As CheckBox
|
||||
Friend WithEvents btnCBAM_DS_DAKOSY_XML As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Button1 As Button
|
||||
End Class
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
|
||||
|
||||
Imports javax.xml.bind.annotation
|
||||
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
|
||||
|
||||
Public Class usrCntlCBAM
|
||||
@@ -284,7 +285,7 @@ Public Class usrCntlCBAM
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
|
||||
Private Sub btnCBAM_DS_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
|
||||
btnCBAM_DS_DAKOSY_Deteil.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_Copy.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_Deteil.Tag = ""
|
||||
@@ -386,8 +387,9 @@ Public Class usrCntlCBAM
|
||||
|
||||
Dim SQLSTR = "
|
||||
SELECT
|
||||
left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand
|
||||
FROM [VERAG].[dbo].[tblDakosy_EZA]
|
||||
left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand ,isnull(ezaWP_AnmeldeVErfahren,'') Verfahren,isnull([ezaWP_VerfahrensCodeVorangegangenesVerfahren],'') VorangegangenesVerfahren
|
||||
|
||||
FROM [VERAG].[dbo].[tblDakosy_EZA]
|
||||
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
|
||||
where
|
||||
eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
@@ -423,7 +425,7 @@ Public Class usrCntlCBAM
|
||||
"
|
||||
End If
|
||||
|
||||
SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8)"
|
||||
SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren"
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
||||
@@ -439,50 +441,20 @@ Public Class usrCntlCBAM
|
||||
|
||||
|
||||
|
||||
'----- XML ----------------------------------------------------------------------------------------------------------------------------------------
|
||||
''----- XML ----------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_XML.Tag = ""
|
||||
'btnCBAM_DS_DAKOSY_XML.Enabled = False
|
||||
'btnCBAM_DS_DAKOSY_XML.Tag = ""
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
' '---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
' doCBAM_XML(dt, EORI)
|
||||
' '---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
Dim CBAM_XML As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.QReportType
|
||||
|
||||
CBAM_XML.Year = txtJahr.Text
|
||||
CBAM_XML.ReportingPeriod = cboQuartal._value
|
||||
|
||||
For Each g In dt.Rows
|
||||
Dim GOODS As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedGoodType
|
||||
GOODS.CommodityCode.HsCode = g("Tarifnummer").ToString.Substring(0, 6)
|
||||
GOODS.CommodityCode.CnCode = g("Tarifnummer").ToString.Substring(6, 2)
|
||||
GOODS.OriginCountry.Country = g("VersendungsLand")
|
||||
GOODS.MeasureImported.NetMass = g("Eigenmasse")
|
||||
GOODS.MeasureImported.MeasurementUnit = "KG"
|
||||
CBAM_XML.ImportedGood.Add(GOODS)
|
||||
Next
|
||||
|
||||
Dim optFileName = EORI & "_XML_" & txtVon._value & "-" & txtBis._value
|
||||
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
|
||||
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
|
||||
My.Computer.FileSystem.CreateDirectory(sPath)
|
||||
End If
|
||||
|
||||
Dim filename = sPath & optFileName & ".xml"
|
||||
While System.IO.File.Exists(filename)
|
||||
filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xml"
|
||||
End While
|
||||
'End If
|
||||
|
||||
|
||||
CBAM_XML.SaveToFile(filename)
|
||||
btnCBAM_DS_DAKOSY_XML.Tag = filename
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = True
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
''---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
@@ -496,6 +468,193 @@ Public Class usrCntlCBAM
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ButtonXML_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Button2.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_XML.Tag = ""
|
||||
|
||||
|
||||
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
Try
|
||||
Dim EORI = txtEori.Text
|
||||
If cbxVERAG.Checked Then EORI = "VERAG"
|
||||
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
|
||||
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
|
||||
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim SQLSTR = "
|
||||
SELECT
|
||||
left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand ,isnull(ezaWP_AnmeldeVErfahren,'') Verfahren,isnull([ezaWP_VerfahrensCodeVorangegangenesVerfahren],'') VorangegangenesVerfahren
|
||||
,isnull(ezaAd_NameFirma1,'') as Empfänger,isnull(ezaAd_TeilnehmerEORI,'') as EmpfängerEORI
|
||||
|
||||
FROM [VERAG].[dbo].[tblDakosy_EZA]
|
||||
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
|
||||
inner join tblDakosy_EZA_Adressen on ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN'
|
||||
where
|
||||
eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
and
|
||||
(
|
||||
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
|
||||
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
|
||||
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
|
||||
OR ezaWP_WarennummerEZT like '25070080%'
|
||||
OR ezaWP_WarennummerEZT like '283421%'
|
||||
OR ezaWP_WarennummerEZT like '260112%'
|
||||
OR ezaWP_WarennummerEZT like '720211%'
|
||||
OR ezaWP_WarennummerEZT like '720219%'
|
||||
OR ezaWP_WarennummerEZT like '720241%'
|
||||
OR ezaWP_WarennummerEZT like '720249%'
|
||||
OR ezaWP_WarennummerEZT like '720260%'
|
||||
OR ezaWP_WarennummerEZT like '280410%'
|
||||
|
||||
)
|
||||
and ezaWP_WarennummerEZT not like '310560%'
|
||||
and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%')
|
||||
|
||||
"
|
||||
|
||||
If cbxVERAG.Checked Then
|
||||
SQLSTR &= "
|
||||
and eza_VertretungsVerhaeltnisCode=2
|
||||
"
|
||||
Else
|
||||
SQLSTR &= "
|
||||
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
|
||||
"
|
||||
End If
|
||||
|
||||
SQLSTR &= " group by ezaAd_NameFirma1,ezaAd_TeilnehmerEORI,eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren"
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
||||
|
||||
|
||||
|
||||
|
||||
'----- XML ----------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
doCBAM_XML(dt, EORI)
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Button2.Enabled = True
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub doCBAM_XML(dt As DataTable, EORI As String)
|
||||
Dim CBAM_XML As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.QReportType
|
||||
|
||||
CBAM_XML.Year = txtJahr.Text
|
||||
CBAM_XML.ReportingPeriod = cboQuartal._value
|
||||
EORI = txtEori.Text ' Sont VERAG problem..
|
||||
|
||||
If cbxVERAG.Checked Then ' VERAG--> Indirect Representative
|
||||
CBAM_XML.Representative.IdentificationNumber = EORI
|
||||
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
||||
Select Case EORI
|
||||
Case "DE4824105"
|
||||
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(712255) 'VERAG GmbH (DE)
|
||||
Case "ATEOS1000000199"
|
||||
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(711104) 'VERAG AG (AT)
|
||||
Case "ATEOS1000059121"
|
||||
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(600006) 'VERAG Customs Service GmbH (AT)
|
||||
|
||||
End Select
|
||||
If AD IsNot Nothing Then
|
||||
CBAM_XML.Representative.Name = AD.Name_1
|
||||
If If(AD.Name_2, "") <> "" Then CBAM_XML.Representative.Name &= " " & AD.Name_2
|
||||
If AD.LandKz <> "" Then CBAM_XML.Representative.RepresentativeAddress.Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(AD.LandKz)
|
||||
CBAM_XML.Representative.RepresentativeAddress.Street = If(AD.Straße, "")
|
||||
CBAM_XML.Representative.RepresentativeAddress.Postcode = If(AD.PLZ, "")
|
||||
End If
|
||||
End If
|
||||
|
||||
'Dim KD_IMP = VERAG_PROG_ALLGEMEIN.cKunde.LOAD_ByEORI(EORI)
|
||||
'If KD_IMP.hasEntry Then
|
||||
' Dim A_IMP As New VERAG_PROG_ALLGEMEIN.cAdressen(KD_IMP.KundenNrZentrale)
|
||||
' If A_IMP IsNot Nothing AndAlso A_IMP.hasEntry Then
|
||||
' CBAM_XML.Importer.Name = A_IMP.Name_1
|
||||
' If If(A_IMP.Name_2, "") <> "" Then CBAM_XML.Importer.Name &= " " & A_IMP.Name_2
|
||||
' If A_IMP.LandKz <> "" Then CBAM_XML.Importer.ImporterAddress.Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(A_IMP.LandKz)
|
||||
' CBAM_XML.Importer.ImporterAddress.Street = If(A_IMP.Straße, "")
|
||||
' CBAM_XML.Importer.ImporterAddress.Postcode = If(A_IMP.PLZ, "")
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
For Each g In dt.Rows
|
||||
Dim GOODS As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedGoodType
|
||||
GOODS.CommodityCode.HsCode = g("Tarifnummer").ToString.Substring(0, 6)
|
||||
GOODS.CommodityCode.CnCode = g("Tarifnummer").ToString.Substring(6, 2)
|
||||
GOODS.OriginCountry.Country = g("VersendungsLand")
|
||||
GOODS.MeasureImported.NetMass = g("Eigenmasse")
|
||||
GOODS.MeasureImported.MeasurementUnit = "KG"
|
||||
|
||||
' ezaAd_NameFirma1, ezaAd_TeilnehmerEORI,
|
||||
If g("EmpfängerEORI") <> "" Then
|
||||
|
||||
|
||||
Dim KD_IMP = VERAG_PROG_ALLGEMEIN.cKunde.LOAD_ByEORI(g("EmpfängerEORI"))
|
||||
If KD_IMP.hasEntry Then
|
||||
Dim A_IMP As New VERAG_PROG_ALLGEMEIN.cAdressen(KD_IMP.KundenNrZentrale)
|
||||
If A_IMP IsNot Nothing AndAlso A_IMP.hasEntry Then
|
||||
GOODS.Importer.Name = A_IMP.Name_1
|
||||
If If(A_IMP.Name_2, "") <> "" Then GOODS.Importer.Name &= " " & A_IMP.Name_2
|
||||
If A_IMP.LandKz <> "" Then GOODS.Importer.ImporterAddress.Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(A_IMP.LandKz)
|
||||
GOODS.Importer.ImporterAddress.Street = If(A_IMP.Straße, "")
|
||||
GOODS.Importer.ImporterAddress.Postcode = If(A_IMP.PLZ, "")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
GOODS.Importer.Name = g("Empfänger")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim IQ As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedQuantityType
|
||||
If g("Verfahren") <> "" Then IQ.Procedure.RequestedProc = g("Verfahren").ToString.Substring(0, 2)
|
||||
If g("VorangegangenesVerfahren") <> "" Then IQ.Procedure.PreviousProc = g("VorangegangenesVerfahren").ToString.Substring(0, 2)
|
||||
GOODS.ImportedQuantity.Add(IQ)
|
||||
CBAM_XML.ImportedGood.Add(GOODS)
|
||||
Next
|
||||
|
||||
Dim optFileName = EORI & "_XML_" & txtVon._value & "-" & txtBis._value
|
||||
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
|
||||
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
|
||||
My.Computer.FileSystem.CreateDirectory(sPath)
|
||||
End If
|
||||
|
||||
Dim filename = sPath & optFileName & ".xml"
|
||||
While System.IO.File.Exists(filename)
|
||||
filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xml"
|
||||
End While
|
||||
|
||||
|
||||
CBAM_XML.SaveToFile(filename)
|
||||
btnCBAM_DS_DAKOSY_XML.Tag = filename
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = True
|
||||
|
||||
'Me.Cursor = Cursors.WaitCursor
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnCBAM_DS_DAKOSY_Deteil_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Deteil.Click, btnCBAM_DS_DAKOSY_Summe.Click, btnCBAM_DS_DHF_VERAG_Deteil.Click,
|
||||
btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click,
|
||||
btnCBAM_DS_DAKOSY_XML.Click
|
||||
@@ -750,7 +909,7 @@ Public Class usrCntlCBAM
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -766,7 +925,7 @@ Public Class usrCntlCBAM
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs)
|
||||
Dim f As New List(Of String)
|
||||
If btnCBAM_DS_DAKOSY_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Deteil.Tag)
|
||||
If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag)
|
||||
|
||||
Reference in New Issue
Block a user