commit 2e2dc4eb8d78f7efeade8f8413ee5ceef32c904a Author: Krzysztof Date: Wed Oct 14 12:12:42 2026 +0200 Stan początkowy: XL-API 20251 Projekt ImportDokMag w wersji korzystającej z XL-API 20251 (cdn_api20251.net.dll), z połączeniem do bazy źródłowej przez uwierzytelnianie Windows. Foldery .svn/ i Publikuj/ są poza repozytorium. Co-Authored-By: Claude Opus 5.5 diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..1ff0c42 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,63 @@ +############################################################################### +# Set default behavior to automatically normalize line endings. +############################################################################### +* text=auto + +############################################################################### +# Set default behavior for command prompt diff. +# +# This is need for earlier builds of msysgit that does not have it on by +# default for csharp files. +# Note: This is only used by command line +############################################################################### +#*.cs diff=csharp + +############################################################################### +# Set the merge driver for project and solution files +# +# Merging from the command prompt will add diff markers to the files if there +# are conflicts (Merging from VS is not affected by the settings below, in VS +# the diff markers are never inserted). Diff markers may cause the following +# file extensions to fail to load in VS. An alternative would be to treat +# these files as binary and thus will always conflict and require user +# intervention with every merge. To do so, just uncomment the entries below +############################################################################### +#*.sln merge=binary +#*.csproj merge=binary +#*.vbproj merge=binary +#*.vcxproj merge=binary +#*.vcproj merge=binary +#*.dbproj merge=binary +#*.fsproj merge=binary +#*.lsproj merge=binary +#*.wixproj merge=binary +#*.modelproj merge=binary +#*.sqlproj merge=binary +#*.wwaproj merge=binary + +############################################################################### +# behavior for image files +# +# image files are treated as binary by default. +############################################################################### +#*.jpg binary +#*.png binary +#*.gif binary + +############################################################################### +# diff behavior for common document formats +# +# Convert binary document formats to text before diffing them. This feature +# is only available from the command line. Turn it on by uncommenting the +# entries below. +############################################################################### +#*.doc diff=astextplain +#*.DOC diff=astextplain +#*.docx diff=astextplain +#*.DOCX diff=astextplain +#*.dot diff=astextplain +#*.DOT diff=astextplain +#*.pdf diff=astextplain +#*.PDF diff=astextplain +#*.rtf diff=astextplain +#*.RTF diff=astextplain diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..fe2cf0c --- /dev/null +++ b/.gitignore @@ -0,0 +1,369 @@ +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. +## +## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore + +# User-specific files +*.rsuser +*.suo +*.user +*.userosscache +*.sln.docstates + +# User-specific files (MonoDevelop/Xamarin Studio) +*.userprefs + +# Mono auto generated files +mono_crash.* + +# Build results +[Dd]ebug/ +[Dd]ebugPublic/ +[Rr]elease/ +[Rr]eleases/ +x64/ +x86/ +[Ww][Ii][Nn]32/ +[Aa][Rr][Mm]/ +[Aa][Rr][Mm]64/ +bld/ +[Bb]in/ +[Oo]bj/ +[Oo]ut/ +[Ll]og/ +[Ll]ogs/ + +# Visual Studio 2015/2017 cache/options directory +.vs/ +# Uncomment if you have tasks that create the project's static files in wwwroot +#wwwroot/ + +# Visual Studio 2017 auto generated files +Generated\ Files/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +# NUnit +*.VisualState.xml +TestResult.xml +nunit-*.xml + +# Build Results of an ATL Project +[Dd]ebugPS/ +[Rr]eleasePS/ +dlldata.c + +# Benchmark Results +BenchmarkDotNet.Artifacts/ + +# .NET Core +project.lock.json +project.fragment.lock.json +artifacts/ + +# ASP.NET Scaffolding +ScaffoldingReadMe.txt + +# StyleCop +StyleCopReport.xml + +# Files built by Visual Studio +*_i.c +*_p.c +*_h.h +*.ilk +*.meta +*.obj +*.iobj +*.pch +*.pdb +*.ipdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*_wpftmp.csproj +*.log +*.vspscc +*.vssscc +.builds +*.pidb +*.svclog +*.scc + +# Chutzpah Test files +_Chutzpah* + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opendb +*.opensdf +*.sdf +*.cachefile +*.VC.db +*.VC.VC.opendb + +# Visual Studio profiler +*.psess +*.vsp +*.vspx +*.sap + +# Visual Studio Trace Files +*.e2e + +# TFS 2012 Local Workspace +$tf/ + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper +*.DotSettings.user + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# AxoCover is a Code Coverage Tool +.axoCover/* +!.axoCover/settings.json + +# Coverlet is a free, cross platform Code Coverage Tool +coverage*.json +coverage*.xml +coverage*.info + +# Visual Studio code coverage results +*.coverage +*.coveragexml + +# NCrunch +_NCrunch_* +.*crunch*.local.xml +nCrunchTemp_* + +# MightyMoose +*.mm.* +AutoTest.Net/ + +# Web workbench (sass) +.sass-cache/ + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.[Pp]ublish.xml +*.azurePubxml +# Note: Comment the next line if you want to checkin your web deploy settings, +# but database connection strings (with potential passwords) will be unencrypted +*.pubxml +*.publishproj + +# Microsoft Azure Web App publish settings. Comment the next line if you want to +# checkin your Azure Web App publish settings, but sensitive information contained +# in these scripts will be unencrypted +PublishScripts/ + +# NuGet Packages +*.nupkg +# NuGet Symbol Packages +*.snupkg +# The packages folder can be ignored because of Package Restore +**/[Pp]ackages/* +# except build/, which is used as an MSBuild target. +!**/[Pp]ackages/build/ +# Uncomment if necessary however generally it will be regenerated when needed +#!**/[Pp]ackages/repositories.config +# NuGet v3's project.json files produces more ignorable files +*.nuget.props +*.nuget.targets + +# Microsoft Azure Build Output +csx/ +*.build.csdef + +# Microsoft Azure Emulator +ecf/ +rcf/ + +# Windows Store app package directories and files +AppPackages/ +BundleArtifacts/ +Package.StoreAssociation.xml +_pkginfo.txt +*.appx +*.appxbundle +*.appxupload + +# Visual Studio cache files +# files ending in .cache can be ignored +*.[Cc]ache +# but keep track of directories ending in .cache +!?*.[Cc]ache/ + +# Others +ClientBin/ +~$* +*~ +*.dbmdl +*.dbproj.schemaview +*.jfm +*.pfx +*.publishsettings +orleans.codegen.cs + +# Including strong name files can present a security risk +# (https://github.com/github/gitignore/pull/2483#issue-259490424) +#*.snk + +# Since there are multiple workflows, uncomment next line to ignore bower_components +# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) +#bower_components/ + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file +# to a newer Visual Studio version. Backup files are not needed, +# because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm +ServiceFabricBackup/ +*.rptproj.bak + +# SQL Server files +*.mdf +*.ldf +*.ndf + +# Business Intelligence projects +*.rdl.data +*.bim.layout +*.bim_*.settings +*.rptproj.rsuser +*- [Bb]ackup.rdl +*- [Bb]ackup ([0-9]).rdl +*- [Bb]ackup ([0-9][0-9]).rdl + +# Microsoft Fakes +FakesAssemblies/ + +# GhostDoc plugin setting file +*.GhostDoc.xml + +# Node.js Tools for Visual Studio +.ntvs_analysis.dat +node_modules/ + +# Visual Studio 6 build log +*.plg + +# Visual Studio 6 workspace options file +*.opt + +# Visual Studio 6 auto-generated workspace file (contains which files were open etc.) +*.vbw + +# Visual Studio LightSwitch build output +**/*.HTMLClient/GeneratedArtifacts +**/*.DesktopClient/GeneratedArtifacts +**/*.DesktopClient/ModelManifest.xml +**/*.Server/GeneratedArtifacts +**/*.Server/ModelManifest.xml +_Pvt_Extensions + +# Paket dependency manager +.paket/paket.exe +paket-files/ + +# FAKE - F# Make +.fake/ + +# CodeRush personal settings +.cr/personal + +# Python Tools for Visual Studio (PTVS) +__pycache__/ +*.pyc + +# Cake - Uncomment if you are using it +# tools/** +# !tools/packages.config + +# Tabs Studio +*.tss + +# Telerik's JustMock configuration file +*.jmconfig + +# BizTalk build output +*.btp.cs +*.btm.cs +*.odx.cs +*.xsd.cs + +# OpenCover UI analysis results +OpenCover/ + +# Azure Stream Analytics local run output +ASALocalRun/ + +# MSBuild Binary and Structured Log +*.binlog + +# NVidia Nsight GPU debugger configuration file +*.nvuser + +# MFractors (Xamarin productivity tool) working folder +.mfractor/ + +# Local History for Visual Studio +.localhistory/ + +# BeatPulse healthcheck temp database +healthchecksdb + +# Backup folder for Package Reference Convert tool in Visual Studio 2017 +MigrationBackup/ + +# Ionide (cross platform F# VS Code tools) working folder +.ionide/ + +# Fody - auto-generated XML schema +FodyWeavers.xsd + +# Subversion +.svn/ + +# Wyniki publikacji ClickOnce +Publikuj/ diff --git a/CDN.my_ImpDM_Src_20210729.sql b/CDN.my_ImpDM_Src_20210729.sql new file mode 100644 index 0000000..2abe6ab Binary files /dev/null and b/CDN.my_ImpDM_Src_20210729.sql differ diff --git a/DokumentyZrodlowe-DekretySkladowe.sql b/DokumentyZrodlowe-DekretySkladowe.sql new file mode 100644 index 0000000..fae3568 --- /dev/null +++ b/DokumentyZrodlowe-DekretySkladowe.sql @@ -0,0 +1,46 @@ +SET ANSI_NULLS ON +GO +SET QUOTED_IDENTIFIER ON +GO + +IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Dekr' AND user_name(uid) = 'CDN') + DROP PROCEDURE [CDN].my_ImpDM_Dekr +GO + +CREATE PROCEDURE [CDN].my_ImpDM_Dekr +( + @DZKNr int -- 1 - DZK_DIGNumer +) +AS + SET NOCOUNT ON; + + declare @DEB table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(100), DT_Kwota decimal(21,2), DT_DataCentrali int) + declare @CRE table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(100), DT_Kwota decimal(21,2), DT_DataCentrali int) + + insert into @DEB + select DT_GIDNumer, DT_GIDLp, DT_DC, DT_Konto, DT_Kwota, DT_DataCentrali from CDN.Dekrety where DT_DC = 1 and DT_GIDNumer = @DZKNr + insert into @CRE + select DT_GIDNumer, DT_GIDLp, DT_DC, DT_Konto, DT_Kwota, DT_DataCentrali from CDN.Dekrety where DT_DC = 2 and DT_GIDNumer = @DZKNr + +SELECT Lp = ROW_NUMBER() OVER(ORDER BY DZK_Opis, DEL_Opis, deb.DT_Konto, cre.DT_Konto), + DZK_Opis = left (DZK_Opis, 80), + [Data] = DEL_DataWyst, + DataDokumentu = DEL_DataOper, + Kwota = deb.DT_Kwota, + DokZr = DZK_DokumentZrodlowy, + KontoDebet = deb.DT_Konto, + KontoCredit = cre.DT_Konto, + Identyfikator = left(DZK_Opis, 80), + Opis = left(DEL_Opis, 80), + DataImportu = CDN.TsToDate(coalesce(deb.DT_DataCentrali, 0), 1) +FROM CDN.Dziennik inner join CDN.DziennikElem on DZK_GIDNumer = DEL_GIDNumer + inner join @DEB deb ON deb.DT_GIDNumer = DEL_GIDNumer and deb.DT_GIDLp = DEL_GIDLp + inner join @CRE cre ON cre.DT_GIDNumer = DEL_GIDNumer and cre.DT_GIDLp = DEL_GIDLp +where DZK_GIDNumer = @DZKNr +order by 1 + + + GO + +GRANT execute ON CDN.my_ImpDM_Dekr TO CDNRaport +GO diff --git a/DokumentyZrodlowe.sql b/DokumentyZrodlowe.sql new file mode 100644 index 0000000..ab82bed Binary files /dev/null and b/DokumentyZrodlowe.sql differ diff --git a/DokumentyZrodlowe_old.sql b/DokumentyZrodlowe_old.sql new file mode 100644 index 0000000..3c7bbf9 --- /dev/null +++ b/DokumentyZrodlowe_old.sql @@ -0,0 +1,64 @@ +SET ANSI_NULLS ON +GO +SET QUOTED_IDENTIFIER ON +GO + +IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Src' AND user_name(uid) = 'CDN') + DROP PROCEDURE [CDN].my_ImpDM_Src +GO + +CREATE PROCEDURE [CDN].my_ImpDM_Src +( + @SP int, -- 1 - uwzgldnia WZ, WZE i ich korekty + @ZAK int, -- 1 - uwzgldnia PZ, PZI i ich korekty + @WEW int, -- 1 - uwzgldnia RW, PW i ich korekty + @RM int, -- TrN_RokMiesiac + @Rok int, -- Rok + @Miesiac int -- Miesic +) +AS + SET NOCOUNT ON; + + declare @TN table(Dokument varchar(255), RokMiesiac int, TrN_GIDTyp int, TrN_GIDNumer int, TrN_Zaksiegowano int, DataDok int) + declare @DEB table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(50), DT_Kwota decimal(21,2), DT_DataCentrali int) + declare @CRE table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(50), DT_Kwota decimal(21,2), DT_DataCentrali int) + insert into @TN + select CDN.NazwaObiektu(TrN_GIDTyp, TrN_GIDNumer, 0, 2) as Dokument, TrN_RokMiesiac as RokMiesiac, TrN_GIDTyp, TrN_GIDNumer, TrN_Zaksiegowano, TrN_Data3 + from (select TrN_GIDTyp, TrN_GIDNumer, TrN_RokMiesiac, TrN_Zaksiegowano, TrN_Data3 from CDN.TraNag + where TrN_Zaksiegowano > 0 and TrN_RokMiesiac = @RM and + ( case when @WEW > 0 then case TrN_GIDTyp when 1616 then 1 when 1624 then 1 when 1617 then 1 when 1625 then 1 else 0 end else 0 end > 0 or + case when @ZAK > 0 then case TrN_GIDTyp when 1489 then 1 when 1497 then 1 when 1490 then 1 when 1498 then 1 else 0 end else 0 end > 0 or + case when @SP > 0 then case TrN_GIDTyp when 2001 then 1 when 2009 then 1 when 2015 then 1 when 2013 then 1 else 0 end else 0 end > 0)) TTT + insert into @DEB + select DT_GIDNumer, DT_GIDLp, DT_DC, DT_Konto, DT_Kwota, DT_DataCentrali from CDN.Dekrety where DT_DC = 1 and DT_Rok = @Rok and DT_Miesiac = @Miesiac + insert into @CRE + select DT_GIDNumer, DT_GIDLp, DT_DC, DT_Konto, DT_Kwota, DT_DataCentrali from CDN.Dekrety where DT_DC = 2 and DT_Rok = @Rok and DT_Miesiac = @Miesiac + + select Lp = ROW_NUMBER() OVER(ORDER BY Dokument, deb.DT_Konto, cre.DT_Konto), + Dokument, + DEL_Opis, + RokMiesiac, + DataWyst = CDN.TsToDate(CDN.Data(DZK_Rok, DZK_Miesiac, DZK_Dzien), 0), + DataOper = CDN.TsToDate(DataDok, 0), + DokZr = DZK_DokumentZrodlowy, + TrN_GIDNumer, + Dekret = DZK_GIDNumer, + DZK_Dziennik, + Konto_Wn = deb.DT_Konto, + Kwota_Wn = deb.DT_Kwota, + Konto_Ma = cre.DT_Konto, + Kwota_Ma = cre.DT_Kwota, + DataImportu = CDN.TsToDate(deb.DT_DataCentrali, 1), + DZK_SumaCT, + DZK_SumaDT + from @TN inner join CDN.Dziennik on substring(DZK_Opis, 1, len(Dokument)) = Dokument and DZK_Rok = @Rok and DZK_Miesiac = @Miesiac + inner join CDN.DziennikElem on DZK_GIDNumer = DEL_GIDNumer + inner join @DEB deb ON deb.DT_GIDNumer = DEL_GIDNumer and deb.DT_GIDLp = DEL_GIDLp + inner join @CRE cre ON cre.DT_GIDNumer = DEL_GIDNumer and cre.DT_GIDLp = DEL_GIDLp + order by 1 + + + GO + +GRANT execute ON CDN.my_ImpDM_Src TO CDNRaport +GO diff --git a/GenerowanieOpisuNoty.docx b/GenerowanieOpisuNoty.docx new file mode 100644 index 0000000..e464451 Binary files /dev/null and b/GenerowanieOpisuNoty.docx differ diff --git a/ImportDokMag.code-workspace b/ImportDokMag.code-workspace new file mode 100644 index 0000000..1cbe75c --- /dev/null +++ b/ImportDokMag.code-workspace @@ -0,0 +1,14 @@ +{ + "folders": [ + { + "path": "." + }, + { + "path": "../../../../../cris/Documents/CursorProjects/XLBAZA" + }, + { + "path": "../../../../../cris/Documents/CursorProjects/XLAPI" + } + ], + "settings": {} +} \ No newline at end of file diff --git a/ImportDokMag.sln b/ImportDokMag.sln new file mode 100644 index 0000000..d392e17 --- /dev/null +++ b/ImportDokMag.sln @@ -0,0 +1,32 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 18 +VisualStudioVersion = 18.10.12224.181 stable +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ImportDokMag", "ImportDokMag\ImportDokMag.vbproj", "{ACEDBC4B-04AD-423D-B0D7-B930B9998493}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Debug|x86 = Debug|x86 + Release|Any CPU = Release|Any CPU + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Debug|Any CPU.Build.0 = Debug|Any CPU + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Debug|x86.ActiveCfg = Debug|x86 + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Debug|x86.Build.0 = Debug|x86 + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Release|Any CPU.ActiveCfg = Release|Any CPU + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Release|Any CPU.Build.0 = Release|Any CPU + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Release|x86.ActiveCfg = Release|x86 + {ACEDBC4B-04AD-423D-B0D7-B930B9998493}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + VisualSVNWorkingCopyRoot = . + SolutionGuid = {A76FA861-F012-47CB-BECF-773D69AFCEEF} + EndGlobalSection +EndGlobal diff --git a/ImportDokMag/App.config b/ImportDokMag/App.config new file mode 100644 index 0000000..4ef7012 --- /dev/null +++ b/ImportDokMag/App.config @@ -0,0 +1,46 @@ + + + + +
+ + + + + + + + + + + + c:\temp + + + crispcl\erp + + + MAGJ + + + crispcl\erp + + + + + + + + + ERPXL_Test + + + + + + CDNXL_GOTEC_80_20210809 + + + + diff --git a/ImportDokMag/DsMain.Designer.vb b/ImportDokMag/DsMain.Designer.vb new file mode 100644 index 0000000..8d7c72b --- /dev/null +++ b/ImportDokMag/DsMain.Designer.vb @@ -0,0 +1,3412 @@ +'------------------------------------------------------------------------------ +' +' Ten kod został wygenerowany przez narzędzie. +' Wersja wykonawcza:4.0.30319.42000 +' +' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli +' kod zostanie ponownie wygenerowany. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DsMain + Inherits Global.System.Data.DataSet + + Private tableTbmy_ImpDM_Src As Tbmy_ImpDM_SrcDataTable + + Private tableTbmy_ImpDM_Dekr As Tbmy_ImpDM_DekrDataTable + + Private tableTbmy_ImpDM_Konta As Tbmy_ImpDM_KontaDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("Tbmy_ImpDM_Src")) Is Nothing) Then + MyBase.Tables.Add(New Tbmy_ImpDM_SrcDataTable(ds.Tables("Tbmy_ImpDM_Src"))) + End If + If (Not (ds.Tables("Tbmy_ImpDM_Dekr")) Is Nothing) Then + MyBase.Tables.Add(New Tbmy_ImpDM_DekrDataTable(ds.Tables("Tbmy_ImpDM_Dekr"))) + End If + If (Not (ds.Tables("Tbmy_ImpDM_Konta")) Is Nothing) Then + MyBase.Tables.Add(New Tbmy_ImpDM_KontaDataTable(ds.Tables("Tbmy_ImpDM_Konta"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property Tbmy_ImpDM_Src() As Tbmy_ImpDM_SrcDataTable + Get + Return Me.tableTbmy_ImpDM_Src + End Get + End Property + + _ + Public ReadOnly Property Tbmy_ImpDM_Dekr() As Tbmy_ImpDM_DekrDataTable + Get + Return Me.tableTbmy_ImpDM_Dekr + End Get + End Property + + _ + Public ReadOnly Property Tbmy_ImpDM_Konta() As Tbmy_ImpDM_KontaDataTable + Get + Return Me.tableTbmy_ImpDM_Konta + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DsMain = CType(MyBase.Clone,DsMain) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("Tbmy_ImpDM_Src")) Is Nothing) Then + MyBase.Tables.Add(New Tbmy_ImpDM_SrcDataTable(ds.Tables("Tbmy_ImpDM_Src"))) + End If + If (Not (ds.Tables("Tbmy_ImpDM_Dekr")) Is Nothing) Then + MyBase.Tables.Add(New Tbmy_ImpDM_DekrDataTable(ds.Tables("Tbmy_ImpDM_Dekr"))) + End If + If (Not (ds.Tables("Tbmy_ImpDM_Konta")) Is Nothing) Then + MyBase.Tables.Add(New Tbmy_ImpDM_KontaDataTable(ds.Tables("Tbmy_ImpDM_Konta"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTbmy_ImpDM_Src = CType(MyBase.Tables("Tbmy_ImpDM_Src"),Tbmy_ImpDM_SrcDataTable) + If (initTable = true) Then + If (Not (Me.tableTbmy_ImpDM_Src) Is Nothing) Then + Me.tableTbmy_ImpDM_Src.InitVars + End If + End If + Me.tableTbmy_ImpDM_Dekr = CType(MyBase.Tables("Tbmy_ImpDM_Dekr"),Tbmy_ImpDM_DekrDataTable) + If (initTable = true) Then + If (Not (Me.tableTbmy_ImpDM_Dekr) Is Nothing) Then + Me.tableTbmy_ImpDM_Dekr.InitVars + End If + End If + Me.tableTbmy_ImpDM_Konta = CType(MyBase.Tables("Tbmy_ImpDM_Konta"),Tbmy_ImpDM_KontaDataTable) + If (initTable = true) Then + If (Not (Me.tableTbmy_ImpDM_Konta) Is Nothing) Then + Me.tableTbmy_ImpDM_Konta.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DsMain" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DsMain.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTbmy_ImpDM_Src = New Tbmy_ImpDM_SrcDataTable() + MyBase.Tables.Add(Me.tableTbmy_ImpDM_Src) + Me.tableTbmy_ImpDM_Dekr = New Tbmy_ImpDM_DekrDataTable() + MyBase.Tables.Add(Me.tableTbmy_ImpDM_Dekr) + Me.tableTbmy_ImpDM_Konta = New Tbmy_ImpDM_KontaDataTable() + MyBase.Tables.Add(Me.tableTbmy_ImpDM_Konta) + End Sub + + _ + Private Function ShouldSerializeTbmy_ImpDM_Src() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTbmy_ImpDM_Dekr() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTbmy_ImpDM_Konta() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DsMain = New DsMain() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub Tbmy_ImpDM_SrcRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_SrcRowChangeEvent) + + _ + Public Delegate Sub Tbmy_ImpDM_DekrRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_DekrRowChangeEvent) + + _ + Public Delegate Sub Tbmy_ImpDM_KontaRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_KontaRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Tbmy_ImpDM_SrcDataTable + Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_SrcRow) + + Private columnLp As Global.System.Data.DataColumn + + Private columnDokument As Global.System.Data.DataColumn + + Private columnRokMiesiac As Global.System.Data.DataColumn + + Private columnDataWyst As Global.System.Data.DataColumn + + Private columnDataOper As Global.System.Data.DataColumn + + Private columnDokZr As Global.System.Data.DataColumn + + Private columnDekret As Global.System.Data.DataColumn + + Private columnDZK_Dziennik As Global.System.Data.DataColumn + + Private columnDataImportu As Global.System.Data.DataColumn + + Private columnDZK_Opis As Global.System.Data.DataColumn + + Private columnSumaCT As Global.System.Data.DataColumn + + Private columnSumaDT As Global.System.Data.DataColumn + + Private columnMagazyn As Global.System.Data.DataColumn + + Private columnKontrahent As Global.System.Data.DataColumn + + Private columnOpis As Global.System.Data.DataColumn + + Private columnDokKoryg As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Tbmy_ImpDM_Src" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property LpColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLp + End Get + End Property + + _ + Public ReadOnly Property DokumentColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDokument + End Get + End Property + + _ + Public ReadOnly Property RokMiesiacColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRokMiesiac + End Get + End Property + + _ + Public ReadOnly Property DataWystColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDataWyst + End Get + End Property + + _ + Public ReadOnly Property DataOperColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDataOper + End Get + End Property + + _ + Public ReadOnly Property DokZrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDokZr + End Get + End Property + + _ + Public ReadOnly Property DekretColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDekret + End Get + End Property + + _ + Public ReadOnly Property DZK_DziennikColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDZK_Dziennik + End Get + End Property + + _ + Public ReadOnly Property DataImportuColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDataImportu + End Get + End Property + + _ + Public ReadOnly Property DZK_OpisColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDZK_Opis + End Get + End Property + + _ + Public ReadOnly Property SumaCTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSumaCT + End Get + End Property + + _ + Public ReadOnly Property SumaDTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSumaDT + End Get + End Property + + _ + Public ReadOnly Property MagazynColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMagazyn + End Get + End Property + + _ + Public ReadOnly Property KontrahentColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKontrahent + End Get + End Property + + _ + Public ReadOnly Property OpisColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOpis + End Get + End Property + + _ + Public ReadOnly Property DokKorygColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDokKoryg + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Tbmy_ImpDM_SrcRow + Get + Return CType(Me.Rows(index),Tbmy_ImpDM_SrcRow) + End Get + End Property + + _ + Public Event Tbmy_ImpDM_SrcRowChanging As Tbmy_ImpDM_SrcRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_SrcRowChanged As Tbmy_ImpDM_SrcRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_SrcRowDeleting As Tbmy_ImpDM_SrcRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_SrcRowDeleted As Tbmy_ImpDM_SrcRowChangeEventHandler + + _ + Public Overloads Sub AddTbmy_ImpDM_SrcRow(ByVal row As Tbmy_ImpDM_SrcRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTbmy_ImpDM_SrcRow( _ + ByVal Lp As Long, _ + ByVal Dokument As String, _ + ByVal RokMiesiac As Integer, _ + ByVal DataWyst As Date, _ + ByVal DataOper As Date, _ + ByVal DokZr As String, _ + ByVal Dekret As Integer, _ + ByVal DZK_Dziennik As String, _ + ByVal DataImportu As Date, _ + ByVal DZK_Opis As String, _ + ByVal SumaCT As Decimal, _ + ByVal SumaDT As Decimal, _ + ByVal Magazyn As String, _ + ByVal Kontrahent As String, _ + ByVal Opis As String, _ + ByVal DokKoryg As String) As Tbmy_ImpDM_SrcRow + Dim rowTbmy_ImpDM_SrcRow As Tbmy_ImpDM_SrcRow = CType(Me.NewRow,Tbmy_ImpDM_SrcRow) + Dim columnValuesArray() As Object = New Object() {Lp, Dokument, RokMiesiac, DataWyst, DataOper, DokZr, Dekret, DZK_Dziennik, DataImportu, DZK_Opis, SumaCT, SumaDT, Magazyn, Kontrahent, Opis, DokKoryg} + rowTbmy_ImpDM_SrcRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTbmy_ImpDM_SrcRow) + Return rowTbmy_ImpDM_SrcRow + End Function + + _ + Public Function FindByLp(ByVal Lp As Long) As Tbmy_ImpDM_SrcRow + Return CType(Me.Rows.Find(New Object() {Lp}),Tbmy_ImpDM_SrcRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Tbmy_ImpDM_SrcDataTable = CType(MyBase.Clone,Tbmy_ImpDM_SrcDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Tbmy_ImpDM_SrcDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnLp = MyBase.Columns("Lp") + Me.columnDokument = MyBase.Columns("Dokument") + Me.columnRokMiesiac = MyBase.Columns("RokMiesiac") + Me.columnDataWyst = MyBase.Columns("DataWyst") + Me.columnDataOper = MyBase.Columns("DataOper") + Me.columnDokZr = MyBase.Columns("DokZr") + Me.columnDekret = MyBase.Columns("Dekret") + Me.columnDZK_Dziennik = MyBase.Columns("DZK_Dziennik") + Me.columnDataImportu = MyBase.Columns("DataImportu") + Me.columnDZK_Opis = MyBase.Columns("DZK_Opis") + Me.columnSumaCT = MyBase.Columns("SumaCT") + Me.columnSumaDT = MyBase.Columns("SumaDT") + Me.columnMagazyn = MyBase.Columns("Magazyn") + Me.columnKontrahent = MyBase.Columns("Kontrahent") + Me.columnOpis = MyBase.Columns("Opis") + Me.columnDokKoryg = MyBase.Columns("DokKoryg") + End Sub + + _ + Private Sub InitClass() + Me.columnLp = New Global.System.Data.DataColumn("Lp", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLp) + Me.columnDokument = New Global.System.Data.DataColumn("Dokument", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokument) + Me.columnRokMiesiac = New Global.System.Data.DataColumn("RokMiesiac", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRokMiesiac) + Me.columnDataWyst = New Global.System.Data.DataColumn("DataWyst", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDataWyst) + Me.columnDataOper = New Global.System.Data.DataColumn("DataOper", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDataOper) + Me.columnDokZr = New Global.System.Data.DataColumn("DokZr", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokZr) + Me.columnDekret = New Global.System.Data.DataColumn("Dekret", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDekret) + Me.columnDZK_Dziennik = New Global.System.Data.DataColumn("DZK_Dziennik", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDZK_Dziennik) + Me.columnDataImportu = New Global.System.Data.DataColumn("DataImportu", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDataImportu) + Me.columnDZK_Opis = New Global.System.Data.DataColumn("DZK_Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDZK_Opis) + Me.columnSumaCT = New Global.System.Data.DataColumn("SumaCT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSumaCT) + Me.columnSumaDT = New Global.System.Data.DataColumn("SumaDT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSumaDT) + Me.columnMagazyn = New Global.System.Data.DataColumn("Magazyn", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMagazyn) + Me.columnKontrahent = New Global.System.Data.DataColumn("Kontrahent", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKontrahent) + Me.columnOpis = New Global.System.Data.DataColumn("Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOpis) + Me.columnDokKoryg = New Global.System.Data.DataColumn("DokKoryg", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokKoryg) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLp}, true)) + Me.columnLp.AllowDBNull = false + Me.columnLp.ReadOnly = true + Me.columnLp.Unique = true + Me.columnLp.DefaultValue = CType(0,Long) + Me.columnDokument.ReadOnly = true + Me.columnDokument.MaxLength = 255 + Me.columnRokMiesiac.ReadOnly = true + Me.columnRokMiesiac.DefaultValue = CType(200001,Integer) + Me.columnDataWyst.ReadOnly = true + Me.columnDataOper.ReadOnly = true + Me.columnDokZr.ReadOnly = true + Me.columnDokZr.MaxLength = 40 + Me.columnDekret.AutoIncrementSeed = -1 + Me.columnDekret.AutoIncrementStep = -1 + Me.columnDekret.AllowDBNull = false + Me.columnDekret.ReadOnly = true + Me.columnDZK_Dziennik.ReadOnly = true + Me.columnDZK_Dziennik.MaxLength = 5 + Me.columnDataImportu.ReadOnly = true + Me.columnDZK_Opis.ReadOnly = true + Me.columnDZK_Opis.MaxLength = 255 + Me.columnSumaCT.ReadOnly = true + Me.columnSumaDT.ReadOnly = true + Me.columnMagazyn.ReadOnly = true + Me.columnMagazyn.MaxLength = 30 + Me.columnKontrahent.ReadOnly = true + Me.columnKontrahent.MaxLength = 255 + Me.columnOpis.ReadOnly = true + Me.columnOpis.MaxLength = 255 + Me.columnDokKoryg.ReadOnly = true + Me.columnDokKoryg.MaxLength = 40 + End Sub + + _ + Public Function NewTbmy_ImpDM_SrcRow() As Tbmy_ImpDM_SrcRow + Return CType(Me.NewRow,Tbmy_ImpDM_SrcRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Tbmy_ImpDM_SrcRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Tbmy_ImpDM_SrcRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Tbmy_ImpDM_SrcRowChangedEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_SrcRowChanged(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Tbmy_ImpDM_SrcRowChangingEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_SrcRowChanging(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Tbmy_ImpDM_SrcRowDeletedEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_SrcRowDeleted(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Tbmy_ImpDM_SrcRowDeletingEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_SrcRowDeleting(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTbmy_ImpDM_SrcRow(ByVal row As Tbmy_ImpDM_SrcRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DsMain = New DsMain() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Tbmy_ImpDM_SrcDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Tbmy_ImpDM_DekrDataTable + Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_DekrRow) + + Private columnLp As Global.System.Data.DataColumn + + Private columnDZK_Opis As Global.System.Data.DataColumn + + Private columnData As Global.System.Data.DataColumn + + Private columnDataDokumentu As Global.System.Data.DataColumn + + Private columnKwota As Global.System.Data.DataColumn + + Private columnDokZr As Global.System.Data.DataColumn + + Private columnKontoDebet As Global.System.Data.DataColumn + + Private columnKontoCredit As Global.System.Data.DataColumn + + Private columnIdentyfikator As Global.System.Data.DataColumn + + Private columnOpis As Global.System.Data.DataColumn + + Private columnDataImportu As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Tbmy_ImpDM_Dekr" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property LpColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLp + End Get + End Property + + _ + Public ReadOnly Property DZK_OpisColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDZK_Opis + End Get + End Property + + _ + Public ReadOnly Property DataColumn() As Global.System.Data.DataColumn + Get + Return Me.columnData + End Get + End Property + + _ + Public ReadOnly Property DataDokumentuColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDataDokumentu + End Get + End Property + + _ + Public ReadOnly Property KwotaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKwota + End Get + End Property + + _ + Public ReadOnly Property DokZrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDokZr + End Get + End Property + + _ + Public ReadOnly Property KontoDebetColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKontoDebet + End Get + End Property + + _ + Public ReadOnly Property KontoCreditColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKontoCredit + End Get + End Property + + _ + Public ReadOnly Property IdentyfikatorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIdentyfikator + End Get + End Property + + _ + Public ReadOnly Property OpisColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOpis + End Get + End Property + + _ + Public ReadOnly Property DataImportuColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDataImportu + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Tbmy_ImpDM_DekrRow + Get + Return CType(Me.Rows(index),Tbmy_ImpDM_DekrRow) + End Get + End Property + + _ + Public Event Tbmy_ImpDM_DekrRowChanging As Tbmy_ImpDM_DekrRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_DekrRowChanged As Tbmy_ImpDM_DekrRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_DekrRowDeleting As Tbmy_ImpDM_DekrRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_DekrRowDeleted As Tbmy_ImpDM_DekrRowChangeEventHandler + + _ + Public Overloads Sub AddTbmy_ImpDM_DekrRow(ByVal row As Tbmy_ImpDM_DekrRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTbmy_ImpDM_DekrRow(ByVal Lp As Long, ByVal DZK_Opis As String, ByVal Data As Integer, ByVal DataDokumentu As Integer, ByVal Kwota As Decimal, ByVal DokZr As String, ByVal KontoDebet As String, ByVal KontoCredit As String, ByVal Identyfikator As String, ByVal Opis As String, ByVal DataImportu As Date) As Tbmy_ImpDM_DekrRow + Dim rowTbmy_ImpDM_DekrRow As Tbmy_ImpDM_DekrRow = CType(Me.NewRow,Tbmy_ImpDM_DekrRow) + Dim columnValuesArray() As Object = New Object() {Lp, DZK_Opis, Data, DataDokumentu, Kwota, DokZr, KontoDebet, KontoCredit, Identyfikator, Opis, DataImportu} + rowTbmy_ImpDM_DekrRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTbmy_ImpDM_DekrRow) + Return rowTbmy_ImpDM_DekrRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Tbmy_ImpDM_DekrDataTable = CType(MyBase.Clone,Tbmy_ImpDM_DekrDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Tbmy_ImpDM_DekrDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnLp = MyBase.Columns("Lp") + Me.columnDZK_Opis = MyBase.Columns("DZK_Opis") + Me.columnData = MyBase.Columns("Data") + Me.columnDataDokumentu = MyBase.Columns("DataDokumentu") + Me.columnKwota = MyBase.Columns("Kwota") + Me.columnDokZr = MyBase.Columns("DokZr") + Me.columnKontoDebet = MyBase.Columns("KontoDebet") + Me.columnKontoCredit = MyBase.Columns("KontoCredit") + Me.columnIdentyfikator = MyBase.Columns("Identyfikator") + Me.columnOpis = MyBase.Columns("Opis") + Me.columnDataImportu = MyBase.Columns("DataImportu") + End Sub + + _ + Private Sub InitClass() + Me.columnLp = New Global.System.Data.DataColumn("Lp", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLp) + Me.columnDZK_Opis = New Global.System.Data.DataColumn("DZK_Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDZK_Opis) + Me.columnData = New Global.System.Data.DataColumn("Data", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnData) + Me.columnDataDokumentu = New Global.System.Data.DataColumn("DataDokumentu", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDataDokumentu) + Me.columnKwota = New Global.System.Data.DataColumn("Kwota", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKwota) + Me.columnDokZr = New Global.System.Data.DataColumn("DokZr", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokZr) + Me.columnKontoDebet = New Global.System.Data.DataColumn("KontoDebet", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKontoDebet) + Me.columnKontoCredit = New Global.System.Data.DataColumn("KontoCredit", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKontoCredit) + Me.columnIdentyfikator = New Global.System.Data.DataColumn("Identyfikator", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIdentyfikator) + Me.columnOpis = New Global.System.Data.DataColumn("Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOpis) + Me.columnDataImportu = New Global.System.Data.DataColumn("DataImportu", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDataImportu) + Me.columnLp.ReadOnly = true + Me.columnDZK_Opis.MaxLength = 80 + Me.columnKwota.ReadOnly = true + Me.columnDokZr.MaxLength = 40 + Me.columnKontoDebet.MaxLength = 50 + Me.columnKontoCredit.MaxLength = 50 + Me.columnIdentyfikator.MaxLength = 80 + Me.columnOpis.MaxLength = 80 + Me.columnDataImportu.ReadOnly = true + End Sub + + _ + Public Function NewTbmy_ImpDM_DekrRow() As Tbmy_ImpDM_DekrRow + Return CType(Me.NewRow,Tbmy_ImpDM_DekrRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Tbmy_ImpDM_DekrRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Tbmy_ImpDM_DekrRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Tbmy_ImpDM_DekrRowChangedEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_DekrRowChanged(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Tbmy_ImpDM_DekrRowChangingEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_DekrRowChanging(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Tbmy_ImpDM_DekrRowDeletedEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_DekrRowDeleted(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Tbmy_ImpDM_DekrRowDeletingEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_DekrRowDeleting(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTbmy_ImpDM_DekrRow(ByVal row As Tbmy_ImpDM_DekrRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DsMain = New DsMain() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Tbmy_ImpDM_DekrDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Tbmy_ImpDM_KontaDataTable + Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_KontaRow) + + Private columnKonto As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Tbmy_ImpDM_Konta" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property KontoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKonto + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Tbmy_ImpDM_KontaRow + Get + Return CType(Me.Rows(index),Tbmy_ImpDM_KontaRow) + End Get + End Property + + _ + Public Event Tbmy_ImpDM_KontaRowChanging As Tbmy_ImpDM_KontaRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_KontaRowChanged As Tbmy_ImpDM_KontaRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_KontaRowDeleting As Tbmy_ImpDM_KontaRowChangeEventHandler + + _ + Public Event Tbmy_ImpDM_KontaRowDeleted As Tbmy_ImpDM_KontaRowChangeEventHandler + + _ + Public Overloads Sub AddTbmy_ImpDM_KontaRow(ByVal row As Tbmy_ImpDM_KontaRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTbmy_ImpDM_KontaRow(ByVal Konto As String) As Tbmy_ImpDM_KontaRow + Dim rowTbmy_ImpDM_KontaRow As Tbmy_ImpDM_KontaRow = CType(Me.NewRow,Tbmy_ImpDM_KontaRow) + Dim columnValuesArray() As Object = New Object() {Konto} + rowTbmy_ImpDM_KontaRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTbmy_ImpDM_KontaRow) + Return rowTbmy_ImpDM_KontaRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Tbmy_ImpDM_KontaDataTable = CType(MyBase.Clone,Tbmy_ImpDM_KontaDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Tbmy_ImpDM_KontaDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnKonto = MyBase.Columns("Konto") + End Sub + + _ + Private Sub InitClass() + Me.columnKonto = New Global.System.Data.DataColumn("Konto", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKonto) + Me.columnKonto.MaxLength = 30 + End Sub + + _ + Public Function NewTbmy_ImpDM_KontaRow() As Tbmy_ImpDM_KontaRow + Return CType(Me.NewRow,Tbmy_ImpDM_KontaRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Tbmy_ImpDM_KontaRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Tbmy_ImpDM_KontaRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Tbmy_ImpDM_KontaRowChangedEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_KontaRowChanged(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Tbmy_ImpDM_KontaRowChangingEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_KontaRowChanging(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Tbmy_ImpDM_KontaRowDeletedEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_KontaRowDeleted(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Tbmy_ImpDM_KontaRowDeletingEvent) Is Nothing) Then + RaiseEvent Tbmy_ImpDM_KontaRowDeleting(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTbmy_ImpDM_KontaRow(ByVal row As Tbmy_ImpDM_KontaRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DsMain = New DsMain() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Tbmy_ImpDM_KontaDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Tbmy_ImpDM_SrcRow + Inherits Global.System.Data.DataRow + + Private tableTbmy_ImpDM_Src As Tbmy_ImpDM_SrcDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTbmy_ImpDM_Src = CType(Me.Table,Tbmy_ImpDM_SrcDataTable) + End Sub + + _ + Public Property Lp() As Long + Get + Return CType(Me(Me.tableTbmy_ImpDM_Src.LpColumn),Long) + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.LpColumn) = value + End Set + End Property + + _ + Public Property Dokument() As String + Get + If Me.IsDokumentNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.DokumentColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DokumentColumn) = value + End Set + End Property + + _ + Public Property RokMiesiac() As Integer + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'RokMiesiac' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn) = value + End Set + End Property + + _ + Public Property DataWyst() As Date + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Src.DataWystColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataWyst' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DataWystColumn) = value + End Set + End Property + + _ + Public Property DataOper() As Date + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Src.DataOperColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataOper' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DataOperColumn) = value + End Set + End Property + + _ + Public Property DokZr() As String + Get + If Me.IsDokZrNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.DokZrColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DokZrColumn) = value + End Set + End Property + + _ + Public Property Dekret() As Integer + Get + Return CType(Me(Me.tableTbmy_ImpDM_Src.DekretColumn),Integer) + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DekretColumn) = value + End Set + End Property + + _ + Public Property DZK_Dziennik() As String + Get + If Me.IsDZK_DziennikNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn) = value + End Set + End Property + + _ + Public Property DataImportu() As Date + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Src.DataImportuColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataImportu' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DataImportuColumn) = value + End Set + End Property + + _ + Public Property DZK_Opis() As String + Get + If Me.IsDZK_OpisNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn) = value + End Set + End Property + + _ + Public Property SumaCT() As Decimal + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Src.SumaCTColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'SumaCT' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.SumaCTColumn) = value + End Set + End Property + + _ + Public Property SumaDT() As Decimal + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Src.SumaDTColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'SumaDT' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.SumaDTColumn) = value + End Set + End Property + + _ + Public Property Magazyn() As String + Get + If Me.IsMagazynNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.MagazynColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.MagazynColumn) = value + End Set + End Property + + _ + Public Property Kontrahent() As String + Get + If Me.IsKontrahentNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.KontrahentColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.KontrahentColumn) = value + End Set + End Property + + _ + Public Property Opis() As String + Get + If Me.IsOpisNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.OpisColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.OpisColumn) = value + End Set + End Property + + _ + Public Property DokKoryg() As String + Get + If Me.IsDokKorygNull Then + Return Nothing + Else + Return CType(Me(Me.tableTbmy_ImpDM_Src.DokKorygColumn),String) + End If + End Get + Set + Me(Me.tableTbmy_ImpDM_Src.DokKorygColumn) = value + End Set + End Property + + _ + Public Function IsDokumentNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DokumentColumn) + End Function + + _ + Public Sub SetDokumentNull() + Me(Me.tableTbmy_ImpDM_Src.DokumentColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRokMiesiacNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn) + End Function + + _ + Public Sub SetRokMiesiacNull() + Me(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDataWystNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DataWystColumn) + End Function + + _ + Public Sub SetDataWystNull() + Me(Me.tableTbmy_ImpDM_Src.DataWystColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDataOperNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DataOperColumn) + End Function + + _ + Public Sub SetDataOperNull() + Me(Me.tableTbmy_ImpDM_Src.DataOperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDokZrNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DokZrColumn) + End Function + + _ + Public Sub SetDokZrNull() + Me(Me.tableTbmy_ImpDM_Src.DokZrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDZK_DziennikNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn) + End Function + + _ + Public Sub SetDZK_DziennikNull() + Me(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDataImportuNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DataImportuColumn) + End Function + + _ + Public Sub SetDataImportuNull() + Me(Me.tableTbmy_ImpDM_Src.DataImportuColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDZK_OpisNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn) + End Function + + _ + Public Sub SetDZK_OpisNull() + Me(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSumaCTNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.SumaCTColumn) + End Function + + _ + Public Sub SetSumaCTNull() + Me(Me.tableTbmy_ImpDM_Src.SumaCTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSumaDTNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.SumaDTColumn) + End Function + + _ + Public Sub SetSumaDTNull() + Me(Me.tableTbmy_ImpDM_Src.SumaDTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMagazynNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.MagazynColumn) + End Function + + _ + Public Sub SetMagazynNull() + Me(Me.tableTbmy_ImpDM_Src.MagazynColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKontrahentNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.KontrahentColumn) + End Function + + _ + Public Sub SetKontrahentNull() + Me(Me.tableTbmy_ImpDM_Src.KontrahentColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOpisNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.OpisColumn) + End Function + + _ + Public Sub SetOpisNull() + Me(Me.tableTbmy_ImpDM_Src.OpisColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDokKorygNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DokKorygColumn) + End Function + + _ + Public Sub SetDokKorygNull() + Me(Me.tableTbmy_ImpDM_Src.DokKorygColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Tbmy_ImpDM_DekrRow + Inherits Global.System.Data.DataRow + + Private tableTbmy_ImpDM_Dekr As Tbmy_ImpDM_DekrDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTbmy_ImpDM_Dekr = CType(Me.Table,Tbmy_ImpDM_DekrDataTable) + End Sub + + _ + Public Property Lp() As Long + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.LpColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Lp' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.LpColumn) = value + End Set + End Property + + _ + Public Property DZK_Opis() As String + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DZK_Opis' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn) = value + End Set + End Property + + _ + Public Property Data() As Integer + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DataColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Data' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.DataColumn) = value + End Set + End Property + + _ + Public Property DataDokumentu() As Integer + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataDokumentu' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn) = value + End Set + End Property + + _ + Public Property Kwota() As Decimal + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.KwotaColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Kwota' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.KwotaColumn) = value + End Set + End Property + + _ + Public Property DokZr() As String + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DokZrColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DokZr' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.DokZrColumn) = value + End Set + End Property + + _ + Public Property KontoDebet() As String + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'KontoDebet' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn) = value + End Set + End Property + + _ + Public Property KontoCredit() As String + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'KontoCredit' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn) = value + End Set + End Property + + _ + Public Property Identyfikator() As String + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Identyfikator' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn) = value + End Set + End Property + + _ + Public Property Opis() As String + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.OpisColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Opis' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.OpisColumn) = value + End Set + End Property + + _ + Public Property DataImportu() As Date + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataImportu' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn) = value + End Set + End Property + + _ + Public Function IsLpNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.LpColumn) + End Function + + _ + Public Sub SetLpNull() + Me(Me.tableTbmy_ImpDM_Dekr.LpColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDZK_OpisNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn) + End Function + + _ + Public Sub SetDZK_OpisNull() + Me(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDataNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DataColumn) + End Function + + _ + Public Sub SetDataNull() + Me(Me.tableTbmy_ImpDM_Dekr.DataColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDataDokumentuNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn) + End Function + + _ + Public Sub SetDataDokumentuNull() + Me(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKwotaNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.KwotaColumn) + End Function + + _ + Public Sub SetKwotaNull() + Me(Me.tableTbmy_ImpDM_Dekr.KwotaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDokZrNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DokZrColumn) + End Function + + _ + Public Sub SetDokZrNull() + Me(Me.tableTbmy_ImpDM_Dekr.DokZrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKontoDebetNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn) + End Function + + _ + Public Sub SetKontoDebetNull() + Me(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKontoCreditNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn) + End Function + + _ + Public Sub SetKontoCreditNull() + Me(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIdentyfikatorNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn) + End Function + + _ + Public Sub SetIdentyfikatorNull() + Me(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOpisNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.OpisColumn) + End Function + + _ + Public Sub SetOpisNull() + Me(Me.tableTbmy_ImpDM_Dekr.OpisColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDataImportuNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn) + End Function + + _ + Public Sub SetDataImportuNull() + Me(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Tbmy_ImpDM_KontaRow + Inherits Global.System.Data.DataRow + + Private tableTbmy_ImpDM_Konta As Tbmy_ImpDM_KontaDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTbmy_ImpDM_Konta = CType(Me.Table,Tbmy_ImpDM_KontaDataTable) + End Sub + + _ + Public Property Konto() As String + Get + Try + Return CType(Me(Me.tableTbmy_ImpDM_Konta.KontoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Konto' w tabeli 'Tbmy_ImpDM_Konta' to DBNull.", e) + End Try + End Get + Set + Me(Me.tableTbmy_ImpDM_Konta.KontoColumn) = value + End Set + End Property + + _ + Public Function IsKontoNull() As Boolean + Return Me.IsNull(Me.tableTbmy_ImpDM_Konta.KontoColumn) + End Function + + _ + Public Sub SetKontoNull() + Me(Me.tableTbmy_ImpDM_Konta.KontoColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Tbmy_ImpDM_SrcRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Tbmy_ImpDM_SrcRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Tbmy_ImpDM_SrcRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Tbmy_ImpDM_SrcRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Tbmy_ImpDM_DekrRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Tbmy_ImpDM_DekrRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Tbmy_ImpDM_DekrRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Tbmy_ImpDM_DekrRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Tbmy_ImpDM_KontaRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Tbmy_ImpDM_KontaRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Tbmy_ImpDM_KontaRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Tbmy_ImpDM_KontaRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DsMainTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Tamy_ImpDM_Src + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Tbmy_ImpDM_Src" + tableMapping.ColumnMappings.Add("Lp", "Lp") + tableMapping.ColumnMappings.Add("Dokument", "Dokument") + tableMapping.ColumnMappings.Add("RokMiesiac", "RokMiesiac") + tableMapping.ColumnMappings.Add("DataWyst", "DataWyst") + tableMapping.ColumnMappings.Add("DataOper", "DataOper") + tableMapping.ColumnMappings.Add("DokZr", "DokZr") + tableMapping.ColumnMappings.Add("Dekret", "Dekret") + tableMapping.ColumnMappings.Add("DZK_Dziennik", "DZK_Dziennik") + tableMapping.ColumnMappings.Add("DataImportu", "DataImportu") + tableMapping.ColumnMappings.Add("DZK_Opis", "DZK_Opis") + tableMapping.ColumnMappings.Add("SumaCT", "SumaCT") + tableMapping.ColumnMappings.Add("SumaDT", "SumaDT") + tableMapping.ColumnMappings.Add("Magazyn", "Magazyn") + tableMapping.ColumnMappings.Add("Kontrahent", "Kontrahent") + tableMapping.ColumnMappings.Add("Opis", "Opis") + tableMapping.ColumnMappings.Add("DokKoryg", "DokKoryg") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.ImportDokMag.My.MySettings.Default.CS_Src + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "CDN.my_ImpDM_Src" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZAK", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WEW", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rok", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Miesiac", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Konto", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Import", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DsMain.Tbmy_ImpDM_SrcDataTable, ByVal SP As Global.System.Nullable(Of Integer), ByVal ZAK As Global.System.Nullable(Of Integer), ByVal WEW As Global.System.Nullable(Of Integer), ByVal RM As Global.System.Nullable(Of Integer), ByVal Rok As Global.System.Nullable(Of Integer), ByVal Miesiac As Global.System.Nullable(Of Integer), ByVal Konto As String, ByVal Import As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (SP.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SP.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (ZAK.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(2).Value = CType(ZAK.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (WEW.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(3).Value = CType(WEW.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (RM.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(4).Value = CType(RM.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Rok.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(5).Value = CType(Rok.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Miesiac.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(6).Value = CType(Miesiac.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Konto Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(7).Value = CType(Konto,String) + End If + If (Import.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(8).Value = CType(Import.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal SP As Global.System.Nullable(Of Integer), ByVal ZAK As Global.System.Nullable(Of Integer), ByVal WEW As Global.System.Nullable(Of Integer), ByVal RM As Global.System.Nullable(Of Integer), ByVal Rok As Global.System.Nullable(Of Integer), ByVal Miesiac As Global.System.Nullable(Of Integer), ByVal Konto As String, ByVal Import As Global.System.Nullable(Of Integer)) As DsMain.Tbmy_ImpDM_SrcDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (SP.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SP.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (ZAK.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(2).Value = CType(ZAK.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (WEW.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(3).Value = CType(WEW.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (RM.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(4).Value = CType(RM.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Rok.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(5).Value = CType(Rok.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Miesiac.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(6).Value = CType(Miesiac.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Konto Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(7).Value = CType(Konto,String) + End If + If (Import.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(8).Value = CType(Import.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Dim dataTable As DsMain.Tbmy_ImpDM_SrcDataTable = New DsMain.Tbmy_ImpDM_SrcDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Tamy_ImpDM_Dekr + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Tbmy_ImpDM_Dekr" + tableMapping.ColumnMappings.Add("Lp", "Lp") + tableMapping.ColumnMappings.Add("DZK_Opis", "DZK_Opis") + tableMapping.ColumnMappings.Add("Data", "Data") + tableMapping.ColumnMappings.Add("DataDokumentu", "DataDokumentu") + tableMapping.ColumnMappings.Add("Kwota", "Kwota") + tableMapping.ColumnMappings.Add("DokZr", "DokZr") + tableMapping.ColumnMappings.Add("KontoDebet", "KontoDebet") + tableMapping.ColumnMappings.Add("KontoCredit", "KontoCredit") + tableMapping.ColumnMappings.Add("Identyfikator", "Identyfikator") + tableMapping.ColumnMappings.Add("Opis", "Opis") + tableMapping.ColumnMappings.Add("DataImportu", "DataImportu") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.ImportDokMag.My.MySettings.Default.CS_Src + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "CDN.my_ImpDM_Dekr" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DZKNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DsMain.Tbmy_ImpDM_DekrDataTable, ByVal DZKNr As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (DZKNr.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(DZKNr.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DZKNr As Global.System.Nullable(Of Integer)) As DsMain.Tbmy_ImpDM_DekrDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (DZKNr.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(DZKNr.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + Dim dataTable As DsMain.Tbmy_ImpDM_DekrDataTable = New DsMain.Tbmy_ImpDM_DekrDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Tamy_ImpDM_Konta + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Tbmy_ImpDM_Konta" + tableMapping.ColumnMappings.Add("Konto", "Konto") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.ImportDokMag.My.MySettings.Default.CS_Src + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "CDN.my_ImpDM_Konta" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rok", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Miesiac", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 5, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DsMain.Tbmy_ImpDM_KontaDataTable, ByVal Rok As Global.System.Nullable(Of Short), ByVal Miesiac As Global.System.Nullable(Of Short)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Rok.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rok.Value,Short) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (Miesiac.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(2).Value = CType(Miesiac.Value,Short) + Else + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal Rok As Global.System.Nullable(Of Short), ByVal Miesiac As Global.System.Nullable(Of Short)) As DsMain.Tbmy_ImpDM_KontaDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Rok.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(Rok.Value,Short) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (Miesiac.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(2).Value = CType(Miesiac.Value,Short) + Else + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + Dim dataTable As DsMain.Tbmy_ImpDM_KontaDataTable = New DsMain.Tbmy_ImpDM_KontaDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DsMain, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DsMain, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DsMain, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DsMain) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("Obiekt TableAdapterManager nie zawiera informacji o połączeniu. Ustaw dla każdej "& _ + "właściwości TableAdapter obiektu TableAdapterManager prawidłowe wystąpienie obie"& _ + "ktu TableAdapter.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Nie można rozpocząć transakcji. Bieżące połączenie danych nie obsługuje transakcj"& _ + "i lub bieżący stan nie pozwala na rozpoczęcie transakcji.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/ImportDokMag/DsMain.vb b/ImportDokMag/DsMain.vb new file mode 100644 index 0000000..257f108 --- /dev/null +++ b/ImportDokMag/DsMain.vb @@ -0,0 +1,2 @@ +Partial Class DsMain +End Class diff --git a/ImportDokMag/DsMain.xsc b/ImportDokMag/DsMain.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/ImportDokMag/DsMain.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/ImportDokMag/DsMain.xsd b/ImportDokMag/DsMain.xsd new file mode 100644 index 0000000..e27b87a --- /dev/null +++ b/ImportDokMag/DsMain.xsd @@ -0,0 +1,251 @@ + + + + + + + + + + + + + + + CDN.my_ImpDM_Src + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + CDN.my_ImpDM_Dekr + + + + + + + + + + + + + + + + + + + + + + + + + + + + + CDN.my_ImpDM_Konta + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ImportDokMag/DsMain.xss b/ImportDokMag/DsMain.xss new file mode 100644 index 0000000..34162a8 --- /dev/null +++ b/ImportDokMag/DsMain.xss @@ -0,0 +1,14 @@ + + + + + + + + + + \ No newline at end of file diff --git a/ImportDokMag/FunkcjeXL.vb b/ImportDokMag/FunkcjeXL.vb new file mode 100644 index 0000000..3c905b7 --- /dev/null +++ b/ImportDokMag/FunkcjeXL.vb @@ -0,0 +1,980 @@ +Public Module FunkcjeXL + Public Const API_VERSION = 20251 + + Public Zalogowany As Boolean + Public wynikXL As Integer + Public Wersja As Integer + Dim Ilosc_Bledow As Integer + Dim Sesja As Integer + Dim IDDokumentu As Integer + Public NotaID As Integer + Dim Flagi As Integer + Dim Komunikat As String + + + '------------------------------------------------------- + ' Funkcja XLLogin - W przypadku podania poprawnych parametrów poprzez strukturę XLLoginInfo _ + ' logowanie następuję automatycznie. W przeciwnym przypadku otwiera się okno _ + ' logowania do systemu CDN XL, w którym należy podać poprawne dane. _ + ' Poprzez parametr sesja zwracany jest numer przydzielonej dla programu sesji. _ + ' Numerem tym należy się posługiwać przy wywoływaniu następnych funkcji API. + + Public Function Zaloguj(ByVal Baza As String, ByVal CDNop As String, ByVal Haslo As String, ByVal SerwerKlucza As String) As Boolean + Dim LoginInfo As New cdn_api.XLLoginInfo_20251 + Dim sesja_temp As Int32 + + If Zalogowany And Sesja > 0 Then + wynikXL = 0 + Ilosc_Bledow = 0 + Zaloguj = Zalogowany + Exit Function + End If + Try + ' listuj(" Logowanie do ERP XL - proszę czekać...", 1) + Zalogowany = False + Ilosc_Bledow = 0 + ' AttachThread() + Wersja = API_VERSION + LoginInfo.Wersja = Wersja ' numer wersji API + LoginInfo.UtworzWlasnaSesje = 0 + LoginInfo.Winieta = -1 + LoginInfo.TrybWsadowy = 1 + LoginInfo.TrybNaprawy = 1 + LoginInfo.ProgramID = "Import dok. magazynowych z Jastrzębia" ' nazwa programu korzystającego z XL-API (pojawia się na liście sesji) + LoginInfo.Baza = Baza & Chr(0) ' nazwa bazy danych do której ma nastąpić login pobierana + ' z klucza HKEY_CURRENT_USER oraz HKEY_LOCAL_MACHINE (nazwa rejestracji w managerze baz an tym komputerze, nie rzeczywista nazwa bazy !!) + ' LoginInfo.OpeIdent = CDNop & Chr(0) ' identyfikator CDNOpera logującego się + ' LoginInfo.OpeHaslo = Haslo & Chr(0) ' hasło CDNOpera logującego się + LoginInfo.PlikLog = "" + LoginInfo.SerwerKlucza = SerwerKlucza + Sesja = 0 + sesja_temp = 0 + wynikXL = 0 + wynikXL = cdn_api.cdn_api.XLLogin(LoginInfo, sesja_temp) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLLogin" + End Try + If wynikXL = 0 Then + Sesja = sesja_temp + Ilosc_Bledow = 0 + Zalogowany = True + Else + Komunikat = "Nieokreślony błąd logowania do XL = " & CStr(wynikXL) + Select Case wynikXL + Case -9 + Komunikat = "XLLogin: operator nie jest podpięty do żadnego centrum" + Case -8 + Komunikat = "XLLogin: Nie podano nazwy bazy danych" + Case -7 + Komunikat = "XLLogin: Baza niezarejestrowana w systemie" + Case -6 + Komunikat = "XLLogin: Nie podano hasła lub brak operatora" + Case -5 + Komunikat = "XLLogin: nieprawidłowe hasło" + Case -4 + Komunikat = "XLLogin: konto operatora zablokowane" + Case -3 + Komunikat = "XLLogin: nie podano nazwy programu (pole ProgramID)" + Case -2 + Komunikat = "XLLogin: błąd otwarcia pliku tekstowego, do którego mają być zapisywane komunikaty. Nie znaleziono ścieżki lub nazwa pliku jest nieprawidłowa." + Case -1 + Komunikat = "XLLogin: podano niepoprawną wersję API" + Case 1 + Komunikat = "XLLogin: inicjalizacja nie powiodła się" + Case 2 + Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie (z tego samego komputera i na tego samego operatora)" + Case 3 + Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie z innego komputera i na tego samego operatora, ale operatora nie posiada prawa do wielokrotnego logowania" + Case 5 + Komunikat = "XLLogin: występuje przy pracy terminalowej w przypadku, gdy operatora nie ma prawa do wielokrotnego logowania i na pytanie czy usunąć istniejące sesje terminalowe wybrano odpowiedź ‘Nie’" + Case 61 + Komunikat = "XLLogin: błąd zakładania nowej sesji" + End Select + MainFrm.listuj(Komunikat) + Zalogowany = False + Ilosc_Bledow = Ilosc_Bledow + 1 + End If + System.Threading.Thread.Sleep(200) + If Zalogowany Then MainFrm.listuj("Zalogowano") + Zaloguj = Zalogowany + End Function + + + '-------------------------------------------------------------------------------------------------- + 'Funkcja XLPolaczenie - podaje ConnectionStgring do bazy danych + ' Funkcja XLPolaczenie - Funkcja umozliwia identyfikację połączenia do bazy + ' zwraca nazwę serwera, bazy oraz connect string dla raportowania + '-------------------------------------------------------------------------------------------------- + Public Function Polaczenie() As String + Dim PolaczenieInfo As New cdn_api.XLPolaczenieInfo_20251 With + { + .Wersja = Wersja, ' numer wersji API (20251) ustawiony w funkcji Zaloguj() + .NTMode = 0, + .Serwer = "" + Chr(0), + .Baza = "" + Chr(0), + .ConnectString = "" + Chr(0) + } + wynikXL = 0 + wynikXL = cdn_api.cdn_api.XLPolaczenie(PolaczenieInfo) + If wynikXL >= 0 Then + Polaczenie = PolaczenieInfo.ConnectString + ' Serwer = PolaczenieInfo.Serwer + Else + Polaczenie = "" + Komunikat = "XLPolaczenie: nieaktywna sesja API lub nieprawidłowy numer wersji" + End If + End Function + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLLogout - Funkcja ta służy do zamykania sesji otwartej funkcją XLLogin. _ + ' Parametr sesja określa numer sesji, którą chcemy zamknąć _ + ' (numer przydzielany funkcją XLLogin). + '-------------------------------------------------------------------------------------------------- + Public Sub Wyloguj() + Dim LogoutInfo As New cdn_api.XLLogoutInfo_20251 + Dim wynik As Integer + + If Zalogowany Or Sesja > 0 Then + LogoutInfo.Wersja = Wersja + LogoutInfo.TrybUsuwaniaDok = 0 + If Sesja > 0 Then + Try + cdn_api.cdn_api.XLLogoutEx(LogoutInfo, Sesja) + Catch ex As Exception + wynik = -200 + Komunikat = "Nie rozpoznany błąd API XLLogout" + End Try + End If + Zalogowany = False + Sesja = 0 + End If + End Sub + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLNowyDokument - Jest to funkcja, która zapoczątkowuje wystawianie dokumentu. _ + ' Nadaje ona nowy numer nagłówka, pobiera kontrahenta, _ + ' wypełnia rekord standardowymi ustawieniami i ustawia go w stan zajętości. _ + ' Wymagane jest użycie w komplecie co najmniej funkcji XLZamknijDokument _ + ' w celu zakończenia dokumentu i zwolnienia jego zajętości (bez wywołania _ + ' tej funkcji wewnętrzna kontrola XL'a spowoduje wycofanie wszelkich zapisów _ + ' do tego dokumentu). + '-------------------------------------------------------------------------------------------------- + Public Sub UtworzNowyDok(DokNagInfo As cdn_api.XLDokumentNagInfo_20251) + Dim w, i As Integer + + wynikXL = 0 + For i = 1 To 200 + Try + wynikXL = cdn_api.cdn_api.XLNowyDokument(Sesja, IDDokumentu, DokNagInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLNowyDokument" + Exit For + End Try + If wynikXL <> 106 Then Exit For + System.Threading.Thread.Sleep(40) + Next + Flagi = DokNagInfo.Flagi + w = OpisBledu(1, wynikXL, Flagi) + End Sub + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLDodajPozycje - Funkcja ta jest odpowiedzialna za dodawanie do dokumentu elementów _ + ' oraz związanych z nim subelementów. + '-------------------------------------------------------------------------------------------------- + Public Sub DodajPozycjeDok(DokEleInfo As cdn_api.XLDokumentElemInfo_20251) + Dim w, i As Integer + + wynikXL = 0 + If IDDokumentu > 0 Then + For i = 1 To 200 + Try + wynikXL = cdn_api.cdn_api.XLDodajPozycje(IDDokumentu, DokEleInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLDodajPozycje" + Exit For + End Try + If wynikXL <> 106 Then Exit For + System.Threading.Thread.Sleep(40) + Next + End If + Flagi = DokEleInfo.Flagi + If wynikXL <> 17 Then w = OpisBledu(2, wynikXL, Flagi) 'bez drukowania kmunikatu, że zabrakło towaru + End Sub + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLZamknijDokument - Funkcja odpowiada za zakończenie pracy z dokumentem. + '-------------------------------------------------------------------------------------------------- + + Public Sub ZamknijDokument(ByVal Tryb As Integer, Magazynowe As Integer) + Dim ZamkniecieDokumentuInfo As New cdn_api.XLZamkniecieDokumentuInfo_20251 + Dim w, i As Integer + + Try + With ZamkniecieDokumentuInfo + .Wersja = Wersja + .Tryb = Tryb '-10, 0 - zatwierdz dokument, 1 - do bufora, -3 - zamknięcie otwartego dok., -1 - skasowanie dokumentu, -2 - anulowanie + .Magazynowe = Magazynowe 'generowanie dokumentów WM i MMP: 0-wg. konfig., 1-nie generuj, 2-gen. do bufora, 3-gen. zatwierdzone + 'dla MMW: 0x,1x,2x - WM (bez, bufor, zatw.); x1,x2,x3 - MMP (bez, bufor, zatw.) + End With + wynikXL = 0 + If IDDokumentu > 0 Then + For i = 1 To 200 + Try + wynikXL = cdn_api.cdn_api.XLZamknijDokument(IDDokumentu, ZamkniecieDokumentuInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLZamknijDokument" + Exit For + End Try + If wynikXL <> 106 Then Exit For + System.Threading.Thread.Sleep(40) + Next + End If + w = OpisBledu(7, wynikXL, 0) + Catch ex As Exception + wynikXL = -201 + Komunikat = "Błąd w dostępie do danych w API XLZamknijDokument" + End Try + End Sub + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLPodajKomunikat - Funkcja rozwiązuje podane numery bledów i ostrzeżeń na stringowy + ' komunikat, rodzaje trybów: 0-tryb cichy, 1-tylko bledy, 2-bledy i ostrzeżenia + '-------------------------------------------------------------------------------------------------- + + Public Function OpisBledu(ByVal Funkcja As Integer, ByVal wynik_lokalny As Integer, ByVal Flagi As Integer) As Integer + Dim KomunikatInfo As New cdn_api.XLKomunikatInfo_20251 + Dim Komunikat As String + + OpisBledu = 0 + If wynik_lokalny < -199 Then + MainFrm.listuj("Nie rozpoznany błąd API w funkcji " + CStr(Funkcja)) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja < 900 Then + KomunikatInfo.Wersja = Wersja + KomunikatInfo.Funkcja = Funkcja + KomunikatInfo.Blad = wynik_lokalny + KomunikatInfo.Ostrzezenie = Flagi + KomunikatInfo.Tryb = 0 + Try + cdn_api.cdn_api.XLOpisBledu(KomunikatInfo) + Catch ex As Exception + wynik_lokalny = -200 + Komunikat = "Nie rozpoznany błąd API XLOpisBledu" + End Try + Komunikat = "!------! UWAGA: " + KomunikatInfo.OpisBledu + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 999 Then + Komunikat = "XLOpisBledu: Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case 2 + Komunikat = "XLOpisBledu: UWAGA: ustalono wybór z listy, a brak ustawienia trybu selekcji" + Case 3 + Komunikat = "XLOpisBledu: UWAGA: błąd otwarcia tabeli" + Case 4 + Komunikat = "XLOpisBledu: UWAGA: nie znaleziono rekordu o podanym GIDzie" + Case 5 + Komunikat = "XLOpisBledu: UWAGA: ustalono wybór elementu z listy a brak procedury listy dla takiego typu dokumentu" + Case 6 + Komunikat = "XLOpisBledu: UWAGA: ustalono wybór grupy z listy, a brak procedury listy dla takiego typu dokumentu" + Case 7 + Komunikat = "XLOpisBledu: UWAGA: ustalono podgląd elementów listy, a brak procedury listy dla takiego typu dokumentu" + Case 8 + Komunikat = "XLOpisBledu: UWAGA: nieobsługiwany GIDTyp" + Case Else + Komunikat = "XLOpisBledu: UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 998 Then 'Generuj EAN + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji" + Case 1 + Komunikat = "UWAGA: Niepoprawny zakres" + Case 2 + Komunikat = "UWAGA: Wystąpił niezidentyfikowany błąd, kod EAN nie został wygenerowany" + Case Else + Komunikat = "UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 997 Then 'DodajAtrybut do obiektu + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "UWAGA: brak sesji" + Case 2 + Komunikat = "UWAGA: błąd przy zakładaniu logout" + Case 3 + Komunikat = "UWAGA: nie znaleziono obiektu" + Case 4 + Komunikat = "UWAGA: nie znalezniono klasy atrybutu" + Case 5 + Komunikat = "UWAGA: klasa nieprzypisana do definicji obiektu" + Case 6 + Komunikat = "UWAGA: atrybut juz istnieje w kolejce" + Case 7 + Komunikat = "UWAGA: błąd ADO Connection" + Case 8 + Komunikat = "UWAGA: błąd ADO" + Case 9 + Komunikat = "UWAGA: brak zdefiniowanego obiektu" + Case Else + Komunikat = "UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 996 Then 'Dodaj Partię + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji" + Case 2 + Komunikat = "UWAGA: Wystąpił błąd przy próbie zablokowania tabel dla wykonania transakcji" + Case 11 + Komunikat = "UWAGA: nie znaleziono towaru" + Case 12 + Komunikat = "UWAGA: Nie podano towaru" + Case 106 + Komunikat = "UWAGA: Wystąpił błąd DeadLock" + Case 160 + Komunikat = "UWAGA: Nie znaleziono podanej dostawy" + Case 178 + Komunikat = "UWAGA: Partia o takich parametrach nie istnieje" + Case 210 + Komunikat = "UWAGA: Nie znaleziono podanego identyfikatora partii" + Case Else + Komunikat = "UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 995 Then 'Dokumenty związane + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji" + Case 1 + Komunikat = "UWAGA: taki dokument jest już na liście (błąd zwracany przy akcji dodawania)" + Case 30 + Komunikat = "UWAGA: nie znaleziono dokumentu na liście" + Case Else + Komunikat = "UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 994 Then 'Dodaj Dekret zbiorczy + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji" + Case 101 + Komunikat = "BŁĄD: Niepoprawny dziennik księgowań" + Case 102 + Komunikat = "BŁĄD: Niepoprawny bufor księgowań" + Case 103 + Komunikat = "BŁĄD: Kwota = 0" + Case 104 + Komunikat = "BŁĄD: Brak opisu" + Case 105 + Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego" + Case 1002 + Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret" + Case 1031 + Komunikat = "BŁĄD: Uruchomienie tej operacji nie jest możliwe ze względu na brak dostępu do modułu, problem z połączeniem lub niezgodność danych w kluczu ze stanem faktycznym." + Case 8001 + Komunikat = "BŁĄD: Niepoprawne konto księgowań" + Case 8005 + Komunikat = "BŁĄD: Bieżący okres obrachunkowy jest zamknięty do x. + Próbujesz księgować lub kasować księgowanie z datą y." + Case 8006 + Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację" + Case 8008 + Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym" + Case 8046 + Komunikat = "BŁĄD: Nie można księgować na to samo konto" + Case 8190 + Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont" + Case Else + Komunikat = "UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 993 Then 'Dodaj dekret składowy + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji" + Case 101 + Komunikat = "BŁĄD: Niepoprawny dziennik księgowań" + Case 102 + Komunikat = "BŁĄD: Niepoprawny bufor księgowań" + Case 103 + Komunikat = "BŁĄD: Kwota = 0" + Case 104 + Komunikat = "BŁĄD: Brak opisu" + Case 105 + Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego" + Case 1002 + Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret" + Case 8001 + Komunikat = "BŁĄD: Niepoprawne konto księgowań" + Case 8003 + Komunikat = "BŁĄD: Konto posiada analitykę" + Case 8006 + Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację" + Case 8008 + Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym" + Case 8046 + Komunikat = "BŁĄD: Nie można księgować na to samo konto" + Case 8190 + Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont" + Case Else + Komunikat = "UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 992 Then 'Zamknij dekret zbiorczy, sumuj dekret zbiorczy + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji" + Case 101 + Komunikat = "BŁĄD: Niepoprawny dziennik księgowań" + Case 102 + Komunikat = "BŁĄD: Niepoprawny bufor księgowań" + Case 103 + Komunikat = "BŁĄD: Kwota = 0" + Case 104 + Komunikat = "BŁĄD: Brak opisu" + Case 105 + Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego" + Case 8001 + Komunikat = "BŁĄD: Niepoprawne konto księgowań" + Case 8006 + Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację" + Case 8008 + Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym" + Case 8046 + Komunikat = "BŁĄD: Nie można księgować na to samo konto" + Case 8190 + Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont" + Case Else + Komunikat = "UWAGA: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 990 Then 'Dodaj dekret pojedynczy + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -1 + Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji" + Case 101 + Komunikat = "BŁĄD: Niepoprawny dziennik księgowań" + Case 102 + Komunikat = "BŁĄD: Niepoprawny bufor księgowań" + Case 103 + Komunikat = "BŁĄD: Kwota = 0" + Case 104 + Komunikat = "BŁĄD: Brak opisu" + Case 105 + Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego" + Case 1002 + Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret" + Case 8001 + Komunikat = "BŁĄD: Niepoprawne konto księgowań" + Case 8003 + Komunikat = "BŁĄD: Konto posiada analitykę" + Case 8006 + Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację" + Case 8008 + Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym" + Case 8046 + Komunikat = "BŁĄD: Nie można księgować na to samo konto" + Case 8190 + Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont" + Case Else + Komunikat = "BŁĄD: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 989 Then 'Dodaj uproszczoną notę memoriałową + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -3 + Komunikat = "BŁĄD: brak GIDTypu noty" + Case -2 + Komunikat = "BŁĄD: błąd zakładania transakcji" + Case -1 + Komunikat = "BŁĄD: niewłaściwy parametr SesjaID" + Case 1 + Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka;" + Case 2 + Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);" + Case 3 + Komunikat = "BŁĄD: brak definicji noty" + Case 4 + Komunikat = "BŁĄD: brak podmiotu (kontrahenta lub pracownika);" + Case 5 + Komunikat = "BŁĄD: Nie znaleziono podanej waluty" + Case 6 + Komunikat = "BŁĄD: brak płatnika" + Case 7 + Komunikat = "BŁĄD: nota nie posiada treści" + Case 8 + Komunikat = "BŁĄD: brak praw do używania tego modułu" + Case 9 + Komunikat = "BŁĄD: seria nie istnieje w systemie" + Case 8001 + Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie" + Case 8046 + Komunikat = "BŁĄD: Nie można księgować na to samo konto lub oba konta puste" + Case 8047 + Komunikat = "BŁĄD: po obu stronach pozycji noty konta rozrachunkowe" + Case Else + Komunikat = "BŁĄD: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 988 Then 'Dodaj pozycję noty + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -2 + Komunikat = "BŁĄD: błąd zakładania transakcji" + Case -1 + Komunikat = "BŁĄD: niewłaściwy parametr SesjaID" + Case 3 + Komunikat = "BŁĄD: brak definicji noty" + Case 5 + Komunikat = "BŁĄD: brak noty o podanym ID" + Case 7 + Komunikat = "BŁĄD: pozycja noty nie posiada opisu" + Case 8 + Komunikat = "BŁĄD: brak symbolu kwoty" + Case 9 + Komunikat = "BŁĄD: błąd dodawania pozycji noty" + Case 10 + Komunikat = "BŁĄD: błąd synchronizacji konta walutowego" + Case 8001 + Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie" + Case 8046 + Komunikat = "BŁĄD: Nie można księgować na to samo konto lub oba konta puste" + Case 8047 + Komunikat = "BŁĄD: z uwagi na płatności, wygenerowanie noty nie jest możliwe. W ramach zapisu wprowadzono dekrety dwustronne, zawierające po obydwu stronach konta rozrachunkowe" + Case Else + Komunikat = "BŁĄD: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 987 Then 'Zamknij notę + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -2 + Komunikat = "BŁĄD: błąd zakładania transakcji" + Case -1 + Komunikat = "BŁĄD: niewłaściwy parametr SesjaID" + Case 1 + Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka" + Case 2 + Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);" + Case 3 + Komunikat = "BŁĄD: brak definicji noty" + Case 5 + Komunikat = "BŁĄD: brak noty o podanym ID" + Case 6 + Komunikat = "BŁĄD: nota niezgodna z definicją (przychodowa/rozchodowa, podmiot);" + Case 7 + Komunikat = "BŁĄD: nie udało się wygenerowanie płatności;" + Case Else + Komunikat = "BŁĄD: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + ElseIf wynik_lokalny <> 0 And Funkcja = 986 Then 'kasuj notę + Komunikat = "Nieokreślony błąd API XL" + Select Case wynik_lokalny + Case -2 + Komunikat = "BŁĄD: błąd zakładania transakcji" + Case -1 + Komunikat = "BŁĄD: niewłaściwy parametr SesjaID" + Case 1 + Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka" + Case 5 + Komunikat = "BŁĄD: brak noty o podanym ID" + Case Else + Komunikat = "BŁĄD: Nieznany błąd" + End Select + MainFrm.listuj(Komunikat) + Ilosc_Bledow = Ilosc_Bledow + 1 + OpisBledu = Ilosc_Bledow + End If + End Function + + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLPobierzNumerDokumentu rozwiązuje GID na sformatowany numer dokumentu + '-------------------------------------------------------------------------------------------------- + + Public Function NumerDokumentu(ByVal GIDTyp As Integer, ByVal GIDFirma As Integer, ByVal GIDNumer As Integer, ByVal GIDLp As Integer) As String + Dim NumerDokumentuInfo As New cdn_api.XLNumerDokumentuInfo_20251 + Dim nrd As String + + NumerDokumentuInfo.Wersja = Wersja + NumerDokumentuInfo.GIDTyp = GIDTyp + NumerDokumentuInfo.GIDFirma = GIDFirma + NumerDokumentuInfo.GIDNumer = GIDNumer + NumerDokumentuInfo.GIDLp = GIDLp + + Try + wynikXL = cdn_api.cdn_api.XLPobierzNumerDokumentu(NumerDokumentuInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLPobierzNumerDokumentu" + End Try + NumerDokumentu = "" + nrd = "" + If wynikXL = 0 Then + nrd = NumerDokumentuInfo.NumerDokumentu + Else + If wynikXL = -1 Then + Komunikat = "XLPobierzNumerDokumentu: nieaktywna sesja API lub nieprawidłowy numer wersji" + ElseIf wynikXL = 1 Then + Komunikat = "XLPobierzNumerDokumentu: nie znaleziono dokumentu" + ElseIf wynikXL = 2 Then + Komunikat = "XLPobierzNumerDokumentu: podano nieobsługiwany GIDTyp" + End If + MainFrm.listuj(Komunikat) + End If + NumerDokumentu = RTrim(nrd) + End Function + + '-------------------------------------------------------------------------------------------------- + + Public Function XLSprawdzLicencje() As Boolean + Dim LicencjaInfo As New cdn_api.XLLicencjaInfo_20251 With + { + .Wersja = Wersja, + .Licencja = 1, + .Odswiez = 1, + .Stan = 0 + } + + wynikXL = 0 + XLSprawdzLicencje = False + Try + wynikXL = cdn_api.cdn_api.XLSprawdzLicencje(LicencjaInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLSprawdzLicencje" + End Try + If LicencjaInfo.Stan = 1 Then + XLSprawdzLicencje = True + Else + Komunikat = "Błąd API XLSprawdzLicencje = " & CStr(wynikXL) + If wynikXL = 0 Then + Select Case LicencjaInfo.Stan + Case 0 + Komunikat = "XLSprawdzLicencje: nie pobrano licencji" + Case 2 + Komunikat = "XLSprawdzLicencje: nie pobrano licencji - błąd pobrania licencji bądź ilość licencji wyczerpana" + Case 3 + Komunikat = "XLSprawdzLicencje: licencja przeterminowana" + Case 4 + Komunikat = "XLSprawdzLicencje: licencja promocyjna" + End Select + ElseIf wynikXL = -1 Then + Komunikat = "XLSprawdzLicencje: Sesja API nieaktywna lub nieprawidłowy numer" + ElseIf wynikXL = 1 Then + Komunikat = "XLSprawdzLicencje: błąd klucza sprzętowego" + End If + MainFrm.listuj(Komunikat) + End If + End Function + + + '------------------------------------------------------------------------------------- + ' Funkcja XLDodajDekretPojedynczy - Funkcja dodaje jeden dekret pojedynczy - bez nagłówka + + Sub XLDodajDekretPoj() + Dim DekretInfo As New cdn_api.XLDekretInfo_20251 + Dim w As Integer + + With DekretInfo + .Wersja = Wersja + '.Tryb = Range("b6").Value 'Tryb wystawienia (interakcyjny/wsadowy) + '.GIDTyp = Range("b7").Value 'GID dekretu (zwracanego po dodaniu) + '.GIDFirma = Range("b8").Value ' + '.GIDNumer = Range("b9").Value ' + '.GIDLp = Range("b10").Value ' + '.Data = Range("b11").Value 'Data dekretu + '.DataDokumentu = Range("b12").Value 'Data dokumentu + '.Kwota = Str(Range("b13").Value) 'Kwota pomnożona przez 100 + '.KwotaWalDT = Str(Range("b14").Value) 'Kwota winien w walucie pomnożona przez 100 + '.KwotaWalCT = Str(Range("b15").Value) 'Kwota ma w walucie pomnożona przez 100 + '.NumerDokumentu = Range("b16").Value + Chr(0) 'Numer dokumentu + '.Dziennik = Range("b17").Value + Chr(0) 'Dziennik księgowań + '.Bufor = Range("b18").Value + Chr(0) 'Bufor księgowań (pusty = KG) + '.KontoDebet = Range("b19").Value + Chr(0) 'Numer konta winien (WN) + '.KontoCredit = Range("b20").Value + Chr(0) 'Numer konta ma (MA) + '.KontoWalDT = Range("b21").Value + Chr(0) + '.KontoWalCT = Range("b22").Value + Chr(0) + '.Identyfikator = Range("b23").Value + '.Opis = Range("b24").Value + Chr(0) 'Opis dekretu + End With + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLDodajDekretPojedynczy(Sesja, DekretInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLDodajDekretPojedynczy" + End Try + w = OpisBledu(990, wynikXL, 0) + End Sub + + + '------------------------------------------------------------------------------------- + ' Funkcja XLDodajDekretZbiorczy - Funkcja dodaje nagłówek dekretu zbiorczego + + Sub XLDodajDekretZb(DekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20251) + Dim w As Integer + + With DekretZbiorczyInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia wsadowy + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLDodajDekretZbiorczy(Sesja, DekretZbiorczyInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLDodajDekretZbiorczy" + End Try + w = OpisBledu(994, wynikXL, 0) + End Sub + + + '------------------------------------------------------------------------------------- + ' Funkcja XLDodajDekretSkladowy - Funkcja dodaje jeden dekret składowy w otwartym dekrecie zbiorczym + + Sub XLDodajDekretSkl(DekretSkladowyInfo As cdn_api.XLDekretInfo_20251) + Dim w As Integer + + With DekretSkladowyInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia wsadowy + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLDodajDekretSkladowy(Sesja, DekretSkladowyInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLDodajDekretSkładowy" + End Try + w = OpisBledu(993, wynikXL, 0) + End Sub + + + '------------------------------------------------------------------------------------- + ' Funkcja XLZamknijDekretZbiorczy - Funkcja zamyka dekret zbiorczy + + Sub XLZamknijDekretZb(ZamknijDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20251) + Dim w As Integer + + With ZamknijDekretZbiorczyInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia wsadowy + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLZamknijDekretZbiorczy(Sesja, ZamknijDekretZbiorczyInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLZamknijDekretZbiorczy" + End Try + w = OpisBledu(992, wynikXL, 0) + End Sub + + '------------------------------------------------------------------------------------- + ' Funkcja XLSumujDekret - Funkcja podaje sumę dekretu zbiorczego + + Sub XLSumujDekretZb(SumujDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20251) + Dim w As Integer + + With SumujDekretZbiorczyInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy) + '.GIDTyp = Range("n7").Value 'GID dekretu (zwracanego po dodaniu) + '.GIDFirma = Range("n8").Value ' + '.GIDNumer = Range("n9").Value ' + '.GIDLp = Range("n10").Value ' + '.Data = Range("n11").Value 'Data dekretu + '.DataDokumentu = Range("n12").Value 'Data dokumentu + '.KwotaDebet = Str(Range("n13").Value) + Chr(0) 'Kwota sumaryczna winien pomnożona przez 100 + '.KwotaCredit = Str(Range("n14").Value) + Chr(0) 'Kwota sumaryczna ma pomnożona przez 100 + '.NumerDokumentu = Range("n15").Value + Chr(0) 'Numer dokumentu + '.Dziennik = Range("n16").Value + Chr(0) 'Dziennik księgowań + '.Bufor = Range("n17").Value + Chr(0) 'Bufor księgowań (pusty = KG) + '.Identyfikator = Range("n18").Value + '.Opis = Range("n19").Value + Chr(0) 'Opis dekretu + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLSumujDekretZbiorczy(Sesja, SumujDekretZbiorczyInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLSumujDekretZbiorczy" + End Try + w = OpisBledu(992, wynikXL, 0) + End Sub + + '------------------------------------------------------------------------------------- + ' Funkcja XLKasujDekret - Funkcja kasuje dekret + + Sub XLKasujDekretzb(KasujDekretInfo As cdn_api.XLDekretInfo_20251) + Dim w As Integer + + With KasujDekretInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy) + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLKasujDekret(Sesja, KasujDekretInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLKasujDekret" + End Try + w = OpisBledu(992, wynikXL, 0) + End Sub + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLDodajNote + + Sub XLDodajNoteMem(NotaInfo As cdn_api.XLNotaInfo_20251) + Dim w, IDNoty As Integer + + NotaID = 0 + With NotaInfo + .Wersja = Wersja + .Tryb = 2 + .GIDTyp = 4145 'nota uproszczona + '.DataWprow = Range("b24").Value + '.DataDok = Range("b25").Value + '.DataOper = Range("b26").Value + '.Seria = Range("b32").Value + Chr(0) + '.NumerDokumentu = Range("b33").Value + Chr(0) + '.Tresc = Range("b34").Value + Chr(0) + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLDodajNote(Sesja, IDNoty, NotaInfo) + NotaID = IDNoty + Catch ex As Exception + wynikXL = -200 + NotaID = 0 + Komunikat = "Nie rozpoznany błąd API XLDodajNote" + End Try + w = OpisBledu(989, wynikXL, 0) + End Sub + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLDodajPozycjeNoty - Funkcja ta dodaje element do otwartej wcześniej noty + + Sub XLDodajPozycjeNotyMem(PozycjaNotyInfo As cdn_api.XLPozycjaNotyInfo_20251) + Dim w As Integer + + With PozycjaNotyInfo + .Wersja = Wersja + .Tryb = 2 + '.KKSNumerDT = Range("e15").Value + '.KKSNumerCT = Range("e16").Value + '.DataDok = Range("e21").Value + '.DataOper = Range("e22").Value + '.Kwota = Str(Range("e23").Value) + Chr(0) + '.Opis = Range("e24").Value + Chr(0) + '.NumerDokumentu = Range("e29").Value + End With + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLDodajPozycjeNoty(Sesja, NotaID, PozycjaNotyInfo) + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLDodajPozycjeNoty" + End Try + w = OpisBledu(988, wynikXL, 0) + End Sub + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLZamknijNote - Funkcja ta zamyka otwartą notę memoriałową + + Sub XLZamknijNoteMem(NotaInfo As cdn_api.XLNotaInfo_20251) + Dim w As Integer + + With NotaInfo + .Wersja = Wersja + .Tryb = 2 + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLZamknijNote(Sesja, NotaID, NotaInfo) + NotaID = 0 + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLZamknijNote" + End Try + w = OpisBledu(987, wynikXL, 0) + End Sub + + + '-------------------------------------------------------------------------------------------------- + ' Funkcja XLKasujNote - Funkcja ta kasuje notę memoriałową + + Sub XLKasujNoteMem(NotaInfo As cdn_api.XLNotaInfo_20251) + Dim w As Integer + + With NotaInfo + .Wersja = Wersja + .Tryb = 2 + '.GIDTyp = Range("k7").Value + '.GIDFirma = Range("k8").Value + '.GIDNumer = Range("k9").Value + '.GIDLp = Range("k10").Value + End With + + wynikXL = 0 + Try + wynikXL = cdn_api.cdn_api.XLKasujNote(Sesja, NotaID, NotaInfo) + NotaID = 0 + Catch ex As Exception + wynikXL = -200 + Komunikat = "Nie rozpoznany błąd API XLKasujNote" + End Try + w = OpisBledu(986, wynikXL, 0) + End Sub + +End Module diff --git a/ImportDokMag/ImportDM.vb b/ImportDokMag/ImportDM.vb new file mode 100644 index 0000000..963e60d --- /dev/null +++ b/ImportDokMag/ImportDM.vb @@ -0,0 +1,262 @@ +'Public Module ImportDM +Partial Public Class MainFrm + Public GIDTyp, GIDFirma, GIDNumer, GIDLp As Integer 'aktualny dekret + Public DecimalGroupSep As String + Public DecimalSep As String + + Function szukaj_sep(ByVal line As String, ByVal start As Integer, ByVal separator As String) As Integer + Dim i As Integer + szukaj_sep = -1 + i = InStr(start, line, separator, CompareMethod.Text) + If i > start Then szukaj_sep = i + End Function + + Function ToDate(Data As String) As Date + Dim dd As Date + Dim pos As Integer + + Data = Replace(Data, "/", ".") + Data = Replace(Data, "-", ".") + pos = szukaj_sep(Data, 1, ".") + Dim TestAr() As String = Split(Data, ".", , CompareMethod.Text) + If pos = 5 Then 'rrrr.mm.dd + dd = DateSerial(TestAr(0), TestAr(1), TestAr(2)) + Else 'dd.mm.rrrr + dd = DateSerial(TestAr(2), TestAr(1), TestAr(0)) + End If + ToDate = dd + End Function + + Function XL_Date(Data As Date) As Integer + XL_Date = 36161 + CInt(Data.ToOADate()) + End Function + + Function Liczba(bf As String) As String + Dim w As String + + w = Replace(bf, ",", DecimalSep) + w = Replace(bf, ".", DecimalSep) + Liczba = w + End Function + + Public Function ZamknijDekret(ByVal CzyZapisac As Boolean) As Boolean + Dim ZamknijDekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20251 + Dim ret As Boolean = False + + With ZamknijDekretZbiorczyInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy) + .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu) + .GIDFirma = GIDFirma ' + .GIDNumer = GIDNumer ' + .GIDLp = 0 ' + End With + XLZamknijDekretZb(ZamknijDekretZbiorczyInfo) + If wynikXL = 0 Then + ret = True + End If + If Not CzyZapisac Then + Dim KasujDekretInfo As New cdn_api.XLDekretInfo_20251 + With ZamknijDekretZbiorczyInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy) + .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu) + .GIDFirma = GIDFirma ' + .GIDNumer = GIDNumer ' + .GIDLp = 0 ' + End With + XLKasujDekretzb(KasujDekretInfo) + End If + Return (ret) + End Function + + Public Function UtworzDekretZbiorczy(ByVal IdentKsieg As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Boolean + Dim DekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20251 + + listuj(CStr(Now) + "-> Dokument: " + IdentKsieg) + With DekretZbiorczyInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia wsadowy + .Data = XL_Date(Data) 'Data dekretu + .DataDokumentu = XL_Date(DokData) 'Data dokumentu + .KwotaDebet = Str(SumaDT) + Chr(0) 'Kwota sumaryczna winien + .KwotaCredit = Str(SumaCT) + Chr(0) 'Kwota sumaryczna ma + .NumerDokumentu = DokZrodlowy + Chr(0) 'Numer dokumentu źródłowego + .Dziennik = My.Settings.Seria + Chr(0) 'Dziennik księgowań + .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG) + .Identyfikator = IdentKsieg 'identyfikator księgowy - numer dokument z Jastrzębia + .Opis = Opis + Chr(0) 'Opis dekretu + End With + XLDodajDekretZb(DekretZbiorczyInfo) + If wynikXL = 0 Then + GIDFirma = DekretZbiorczyInfo.GIDFirma + GIDTyp = DekretZbiorczyInfo.GIDTyp + GIDNumer = DekretZbiorczyInfo.GIDNumer + GIDLp = DekretZbiorczyInfo.GIDLp + Return (True) + Else + GIDFirma = 0 + GIDTyp = 0 + GIDNumer = 0 + GIDLp = 0 + Return (False) + End If + End Function + + Public Function DodajSkladowy(ByVal DZKNumer As Integer) As Boolean + Dim DekretSkladowyInfo As New cdn_api.XLDekretInfo_20251 + Dim ret As Boolean = True + Dim i As Integer + Dim line As String + + i = 0 + Try + Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer) + BsTbmy_ImpDM_Dekr.ResetBindings(False) + BsTbmy_ImpDM_Dekr.MoveFirst() + While i < BsTbmy_ImpDM_Dekr.Count + With DekretSkladowyInfo + .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota pomnożona przez 100 + .NumerDokumentu = BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu + .KontoDebet = BsTbmy_ImpDM_Dekr.Current("KontoDebet") + Chr(0) 'Numer konta winien (WN) + .KontoCredit = BsTbmy_ImpDM_Dekr.Current("KontoCredit") + Chr(0) 'Numer konta ma (MA) + .Identyfikator = BsTbmy_ImpDM_Dekr.Current("Identyfikator") + .Opis = BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu + End With + line = " Dekret-> " & BsTbmy_ImpDM_Dekr.Current("DokZr") + line = line & " - Wn: " & BsTbmy_ImpDM_Dekr.Current("KontoDebet") + line = line & ", Ma: " & BsTbmy_ImpDM_Dekr.Current("KontoCredit") + line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + listuj(line) + XLDodajDekretSkl(DekretSkladowyInfo) + If wynikXL <> 0 Then ret = False + BsTbmy_ImpDM_Dekr.MoveNext() + i += 1 + End While + Catch ex As System.Exception + ret = False + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + Return (ret) + End Function + + Public Function UtworzNote(ByVal NrDokumentu As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal tresc As String) As Boolean + Dim NotaInfo As New cdn_api.XLNotaInfo_20251 + + listuj(CStr(Now) + "-> Nota do: " + NrDokumentu) + If tresc <= " " Then tresc = "brak opisu" + With NotaInfo + .GIDTyp = 4145 'nota uproszczona + .KNPTyp = 0 + .KNPNumer = 0 + .KNPLp = 0 + .DataWprow = XL_Date(Data) 'Data dekretu + .DataDok = XL_Date(DokData) 'Data dokumentu + .DataOper = XL_Date(DokData) 'Data dokumentu + .Seria = My.Settings.Seria + Chr(0) + .NumerDokumentu = NrDokumentu + Chr(0) 'Numer dokumentu źródłowego + .Tresc = tresc + Chr(0) 'treść noty + End With + XLDodajNoteMem(NotaInfo) + If wynikXL = 0 Then + GIDFirma = NotaInfo.GIDFirma + GIDTyp = NotaInfo.GIDTyp + GIDNumer = NotaInfo.GIDNumer + GIDLp = NotaInfo.GIDLp + Return (True) + Else + GIDFirma = 0 + GIDTyp = 0 + GIDNumer = 0 + GIDLp = 0 + Return (False) + End If + End Function + + Public Function DodajPozycjeNoty(ByVal DZKNumer As Integer, ByVal DataDok As Date, ByVal DataOper As Date, ByVal opis As String, ByVal NrDok As String) As Boolean + Dim NotaPozycjaInfo As New cdn_api.XLPozycjaNotyInfo_20251 + Dim ret As Boolean = True + Dim i, KKS_Wn, KKS_Ma As Integer + Dim Rok As Integer + Dim sql, line, KontoWn, KontoMa As String + + i = 0 + If opis <= " " Then opis = "brak opisu" + Try + System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL + Tamy_ImpDM_Dekr.ClearBeforeFill = True + Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer) + BsTbmy_ImpDM_Dekr.ResetBindings(False) + BsTbmy_ImpDM_Dekr.MoveFirst() + While i < BsTbmy_ImpDM_Dekr.Count + KontoWn = BsTbmy_ImpDM_Dekr.Current("KontoDebet") + KontoMa = BsTbmy_ImpDM_Dekr.Current("KontoCredit") + KKS_Wn = 0 + KKS_Ma = 0 + Rok = Year(DataDok) + sql = "select top(1) KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoWn & "'" + line = GetOneVal(sql, DstConn_str) + If line > "" Then KKS_Wn = CInt(line) + sql = "select top(1) KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoMa & "'" + line = GetOneVal(sql, DstConn_str) + If line > "" Then KKS_Ma = CInt(line) + With NotaPozycjaInfo + .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota + .NumerDokumentu = NrDok + Chr(0) 'Numer dokumentu + .KKSNumerDT = KKS_Wn + .KKSNumerCT = KKS_Ma + .Opis = opis + Chr(0) 'Opis z pozycji dekretu + .DataDok = XL_Date(DataDok) + .DataOper = XL_Date(DataDok) + End With + line = " pozycja -> " & BsTbmy_ImpDM_Dekr.Current("DokZr") + line = line & " - Wn: " & KontoWn + line = line & ", Ma: " & KontoMa + line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + listuj(line) + XLDodajPozycjeNotyMem(NotaPozycjaInfo) + If wynikXL <> 0 Then ret = False + BsTbmy_ImpDM_Dekr.MoveNext() + i += 1 + End While + Catch ex As System.Exception + ret = False + System.Windows.Forms.MessageBox.Show("Dodaj pozycje: " & ex.Message) + End Try + + Return (ret) + End Function + + Public Function ZamknijNote(ByVal CzyZapisac As Boolean) As Boolean + Dim NotaInfo As New cdn_api.XLNotaInfo_20251 + Dim ret As Boolean = False + + With NotaInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy) + .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu) + .GIDFirma = GIDFirma ' + .GIDNumer = GIDNumer ' + .GIDLp = 0 ' + End With + XLZamknijNoteMem(NotaInfo) + If wynikXL = 0 Then + ret = True + End If + If Not CzyZapisac Then + Dim KasNotaInfo As New cdn_api.XLNotaInfo_20251 + With KasNotaInfo + .Wersja = Wersja + .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy) + .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu) + .GIDFirma = GIDFirma ' + .GIDNumer = GIDNumer ' + .GIDLp = 0 ' + End With + XLKasujNoteMem(KasNotaInfo) + End If + Return (ret) + End Function + +End Class diff --git a/ImportDokMag/ImportDokMag.vbproj b/ImportDokMag/ImportDokMag.vbproj new file mode 100644 index 0000000..97dfa8d --- /dev/null +++ b/ImportDokMag/ImportDokMag.vbproj @@ -0,0 +1,246 @@ + + + + + Debug + AnyCPU + {ACEDBC4B-04AD-423D-B0D7-B930B9998493} + WinExe + ImportDokMag.My.MyApplication + ImportDokMag + ImportDokMag + 512 + WindowsForms + v4.8 + true + true + false + + D:\Dokumenty\Praca\myCONSULT\Gotec\ImportDokMag\Publikuj\ + true + Disk + false + Foreground + 7 + Days + false + false + false + ImportDokMag + myCONSULT Sp. z o. o. + ImportDokMag + 0 + 2.0.0.0 + false + true + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + ImportDokMag.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + ImportDokMag.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false + + + On + + + Binary + + + Off + + + On + + + true + true + true + bin\x86\Debug\ + ImportDokMag.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + full + x86 + MinimumRecommendedRules.ruleset + true + + + true + bin\x86\Release\ + ImportDokMag.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + pdbonly + x86 + MinimumRecommendedRules.ruleset + true + + + 7632AB20CCBEDCF1AC243A2A06A675C12FFD4C4D + + + ImportDokMag_TemporaryKey.pfx + + + true + + + false + + + cab.ico + + + false + + + ImportDokMag_TemporaryKey.pfx + + + + C:\xl\comarch xl\cdn_api20251.net.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + dlgKonfig.vb + + + Form + + + True + True + DsMain.xsd + + + DsMain.xsd + + + + Form + + + MainFrm.vb + Form + + + Form + + + + True + Application.myapp + True + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + dlgKonfig.vb + + + MainFrm.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + DsMain.xsd + + + MSDataSetGenerator + DsMain.Designer.vb + Designer + + + DsMain.xsd + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + False + Microsoft .NET Framework 4.5.2 %28x86 i x64%29 + true + + + False + .NET Framework 3.5 SP1 + false + + + + + 7.1.1 + + + + \ No newline at end of file diff --git a/ImportDokMag/MainFrm.Designer.vb b/ImportDokMag/MainFrm.Designer.vb new file mode 100644 index 0000000..e02e18a --- /dev/null +++ b/ImportDokMag/MainFrm.Designer.vb @@ -0,0 +1,711 @@ + +Partial Class MainFrm + Inherits System.Windows.Forms.Form + + 'Formularz przesłania metodę dispose, aby wyczyścić listę składników. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wymagane przez Projektanta formularzy systemu Windows + Private components As System.ComponentModel.IContainer + + 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows + 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows. + 'Nie należy modyfikować za pomocą edytora kodu. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrm)) + Me.TlMainPanel = New System.Windows.Forms.TableLayoutPanel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.GbRadio = New System.Windows.Forms.GroupBox() + Me.RbAll = New System.Windows.Forms.RadioButton() + Me.RbBlack = New System.Windows.Forms.RadioButton() + Me.RbRed = New System.Windows.Forms.RadioButton() + Me.CbWewn = New System.Windows.Forms.CheckBox() + Me.CbZakup = New System.Windows.Forms.CheckBox() + Me.CbSprzedaz = New System.Windows.Forms.CheckBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.CbKonto = New System.Windows.Forms.ComboBox() + Me.BsTbmyImpDMKonta = New System.Windows.Forms.BindingSource(Me.components) + Me.DsMain = New ImportDokMag.DsMain() + Me.Label3 = New System.Windows.Forms.Label() + Me.edRok = New System.Windows.Forms.NumericUpDown() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.CbMiesiac = New System.Windows.Forms.ComboBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.BtImport = New System.Windows.Forms.Button() + Me.lbUwaga = New System.Windows.Forms.Button() + Me.BtKonfig = New System.Windows.Forms.Button() + Me.BtUsunFlage = New System.Windows.Forms.Button() + Me.BtKoniec = New System.Windows.Forms.Button() + Me.BtOdswiez = New System.Windows.Forms.Button() + Me.TcZakladki = New System.Windows.Forms.TabControl() + Me.TpDocs = New System.Windows.Forms.TabPage() + Me.DgvDokumenty = New System.Windows.Forms.DataGridView() + Me.colLp = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDokument = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDokZr = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDZKOpis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDataWyst = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDataOper = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colSumaCT = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colSumaDT = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDZKDziennik = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDekret = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colRokMiesiac = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDataImportu = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colMagazyn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colKontrahent = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colOpisDok = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colDokKoryg = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.BsTbmy_ImpDM_Src = New System.Windows.Forms.BindingSource(Me.components) + Me.TpList = New System.Windows.Forms.TabPage() + Me.LstWynik = New System.Windows.Forms.ListBox() + Me.Timer = New System.Windows.Forms.Timer(Me.components) + Me.Tamy_ImpDM_Src = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Src() + Me.TableAdapterManager = New ImportDokMag.DsMainTableAdapters.TableAdapterManager() + Me.BsTbmy_ImpDM_Dekr = New System.Windows.Forms.BindingSource(Me.components) + Me.Tamy_ImpDM_Dekr = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Dekr() + Me.Tamy_ImpDM_Konta = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Konta() + Me.TlMainPanel.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.GbRadio.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DsMain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.edRok, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.TcZakladki.SuspendLayout() + Me.TpDocs.SuspendLayout() + CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TpList.SuspendLayout() + CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TlMainPanel + ' + Me.TlMainPanel.ColumnCount = 2 + Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 150.0!)) + Me.TlMainPanel.Controls.Add(Me.Panel1, 0, 0) + Me.TlMainPanel.Controls.Add(Me.Panel2, 0, 2) + Me.TlMainPanel.Controls.Add(Me.TableLayoutPanel1, 1, 1) + Me.TlMainPanel.Controls.Add(Me.BtKoniec, 1, 2) + Me.TlMainPanel.Controls.Add(Me.BtOdswiez, 1, 0) + Me.TlMainPanel.Controls.Add(Me.TcZakladki, 0, 1) + Me.TlMainPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.TlMainPanel.Location = New System.Drawing.Point(3, 3) + Me.TlMainPanel.Name = "TlMainPanel" + Me.TlMainPanel.RowCount = 3 + Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 7.102805!)) + Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 92.89719!)) + Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 65.0!)) + Me.TlMainPanel.Size = New System.Drawing.Size(774, 651) + Me.TlMainPanel.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.GbRadio) + Me.Panel1.Controls.Add(Me.CbWewn) + Me.Panel1.Controls.Add(Me.CbZakup) + Me.Panel1.Controls.Add(Me.CbSprzedaz) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(3, 3) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(618, 35) + Me.Panel1.TabIndex = 1 + ' + 'GbRadio + ' + Me.GbRadio.Controls.Add(Me.RbAll) + Me.GbRadio.Controls.Add(Me.RbBlack) + Me.GbRadio.Controls.Add(Me.RbRed) + Me.GbRadio.Dock = System.Windows.Forms.DockStyle.Right + Me.GbRadio.Location = New System.Drawing.Point(241, 0) + Me.GbRadio.Name = "GbRadio" + Me.GbRadio.Size = New System.Drawing.Size(377, 35) + Me.GbRadio.TabIndex = 3 + Me.GbRadio.TabStop = False + ' + 'RbAll + ' + Me.RbAll.AutoSize = True + Me.RbAll.Location = New System.Drawing.Point(297, 9) + Me.RbAll.Name = "RbAll" + Me.RbAll.Size = New System.Drawing.Size(73, 17) + Me.RbAll.TabIndex = 2 + Me.RbAll.TabStop = True + Me.RbAll.Text = "Wszystkie" + Me.RbAll.UseVisualStyleBackColor = True + ' + 'RbBlack + ' + Me.RbBlack.AutoSize = True + Me.RbBlack.Location = New System.Drawing.Point(164, 9) + Me.RbBlack.Name = "RbBlack" + Me.RbBlack.Size = New System.Drawing.Size(101, 17) + Me.RbBlack.TabIndex = 1 + Me.RbBlack.TabStop = True + Me.RbBlack.Text = "Nieimportowane" + Me.RbBlack.UseVisualStyleBackColor = True + ' + 'RbRed + ' + Me.RbRed.AutoSize = True + Me.RbRed.Location = New System.Drawing.Point(34, 9) + Me.RbRed.Name = "RbRed" + Me.RbRed.Size = New System.Drawing.Size(98, 17) + Me.RbRed.TabIndex = 0 + Me.RbRed.TabStop = True + Me.RbRed.Text = "Zaimportowane" + Me.RbRed.UseVisualStyleBackColor = True + ' + 'CbWewn + ' + Me.CbWewn.AutoSize = True + Me.CbWewn.Location = New System.Drawing.Point(146, 9) + Me.CbWewn.Name = "CbWewn" + Me.CbWewn.Size = New System.Drawing.Size(86, 17) + Me.CbWewn.TabIndex = 2 + Me.CbWewn.Text = "Wewnętrzne" + Me.CbWewn.UseVisualStyleBackColor = True + ' + 'CbZakup + ' + Me.CbZakup.AutoSize = True + Me.CbZakup.Location = New System.Drawing.Point(83, 9) + Me.CbZakup.Name = "CbZakup" + Me.CbZakup.Size = New System.Drawing.Size(57, 17) + Me.CbZakup.TabIndex = 1 + Me.CbZakup.Text = "Zakup" + Me.CbZakup.UseVisualStyleBackColor = True + ' + 'CbSprzedaz + ' + Me.CbSprzedaz.AutoSize = True + Me.CbSprzedaz.Location = New System.Drawing.Point(7, 9) + Me.CbSprzedaz.Name = "CbSprzedaz" + Me.CbSprzedaz.Size = New System.Drawing.Size(70, 17) + Me.CbSprzedaz.TabIndex = 0 + Me.CbSprzedaz.Text = "Sprzedaż" + Me.CbSprzedaz.UseVisualStyleBackColor = True + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.CbKonto) + Me.Panel2.Controls.Add(Me.Label3) + Me.Panel2.Controls.Add(Me.edRok) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Controls.Add(Me.CbMiesiac) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(3, 588) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(618, 60) + Me.Panel2.TabIndex = 2 + ' + 'CbKonto + ' + Me.CbKonto.DataSource = Me.BsTbmyImpDMKonta + Me.CbKonto.DisplayMember = "Konto" + Me.CbKonto.FormattingEnabled = True + Me.CbKonto.Location = New System.Drawing.Point(415, 20) + Me.CbKonto.Name = "CbKonto" + Me.CbKonto.Size = New System.Drawing.Size(121, 21) + Me.CbKonto.TabIndex = 5 + Me.CbKonto.ValueMember = "Konto" + ' + 'BsTbmyImpDMKonta + ' + Me.BsTbmyImpDMKonta.DataMember = "Tbmy_ImpDM_Konta" + Me.BsTbmyImpDMKonta.DataSource = Me.DsMain + ' + 'DsMain + ' + Me.DsMain.DataSetName = "DsMain" + Me.DsMain.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(366, 24) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(35, 13) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "Konto" + ' + 'edRok + ' + Me.edRok.Location = New System.Drawing.Point(37, 22) + Me.edRok.Maximum = New Decimal(New Integer() {3000, 0, 0, 0}) + Me.edRok.Minimum = New Decimal(New Integer() {2000, 0, 0, 0}) + Me.edRok.Name = "edRok" + Me.edRok.Size = New System.Drawing.Size(120, 20) + Me.edRok.TabIndex = 0 + Me.edRok.Value = New Decimal(New Integer() {2019, 0, 0, 0}) + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(169, 24) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(43, 13) + Me.Label2.TabIndex = 3 + Me.Label2.Text = "Miesiąc" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(4, 24) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(27, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Rok" + ' + 'CbMiesiac + ' + Me.CbMiesiac.FormattingEnabled = True + Me.CbMiesiac.Items.AddRange(New Object() {"styczeń", "luty", "marzec", "kwiecień", "maj", "czerwiec", "lipiec", "sierpień", "wrzesień", "październik", "listopad", "grudzień"}) + Me.CbMiesiac.Location = New System.Drawing.Point(218, 21) + Me.CbMiesiac.Name = "CbMiesiac" + Me.CbMiesiac.Size = New System.Drawing.Size(121, 21) + Me.CbMiesiac.TabIndex = 1 + Me.CbMiesiac.Text = "styczeń" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoScroll = True + Me.TableLayoutPanel1.ColumnCount = 3 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BtImport, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.lbUwaga, 1, 4) + Me.TableLayoutPanel1.Controls.Add(Me.BtKonfig, 1, 6) + Me.TableLayoutPanel1.Controls.Add(Me.BtUsunFlage, 1, 3) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(627, 44) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 8 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 42.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 60.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 57.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 538) + Me.TableLayoutPanel1.TabIndex = 3 + ' + 'BtImport + ' + Me.BtImport.Dock = System.Windows.Forms.DockStyle.Fill + Me.BtImport.Location = New System.Drawing.Point(25, 23) + Me.BtImport.Name = "BtImport" + Me.BtImport.Size = New System.Drawing.Size(94, 26) + Me.BtImport.TabIndex = 4 + Me.BtImport.Text = "Importuj" + Me.BtImport.UseVisualStyleBackColor = True + ' + 'lbUwaga + ' + Me.lbUwaga.BackColor = System.Drawing.Color.PaleGreen + Me.lbUwaga.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbUwaga.Enabled = False + Me.lbUwaga.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte)) + Me.lbUwaga.ForeColor = System.Drawing.Color.Red + Me.lbUwaga.Location = New System.Drawing.Point(25, 119) + Me.lbUwaga.Name = "lbUwaga" + Me.lbUwaga.Size = New System.Drawing.Size(94, 54) + Me.lbUwaga.TabIndex = 5 + Me.lbUwaga.Text = "Czekaj: pobieranie danych" + Me.lbUwaga.UseVisualStyleBackColor = False + Me.lbUwaga.Visible = False + ' + 'BtKonfig + ' + Me.BtKonfig.Dock = System.Windows.Forms.DockStyle.Fill + Me.BtKonfig.Location = New System.Drawing.Point(25, 456) + Me.BtKonfig.Name = "BtKonfig" + Me.BtKonfig.Size = New System.Drawing.Size(94, 22) + Me.BtKonfig.TabIndex = 6 + Me.BtKonfig.Text = "Konfiguracja" + Me.BtKonfig.UseVisualStyleBackColor = True + ' + 'BtUsunFlage + ' + Me.BtUsunFlage.Dock = System.Windows.Forms.DockStyle.Fill + Me.BtUsunFlage.Location = New System.Drawing.Point(25, 77) + Me.BtUsunFlage.Name = "BtUsunFlage" + Me.BtUsunFlage.Size = New System.Drawing.Size(94, 36) + Me.BtUsunFlage.TabIndex = 7 + Me.BtUsunFlage.Text = "Skasuj flagę importu" + Me.BtUsunFlage.UseVisualStyleBackColor = True + ' + 'BtKoniec + ' + Me.BtKoniec.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.BtKoniec.DialogResult = System.Windows.Forms.DialogResult.OK + Me.BtKoniec.Location = New System.Drawing.Point(627, 588) + Me.BtKoniec.Name = "BtKoniec" + Me.BtKoniec.Size = New System.Drawing.Size(144, 60) + Me.BtKoniec.TabIndex = 4 + Me.BtKoniec.Text = "Koniec" + Me.BtKoniec.UseVisualStyleBackColor = True + ' + 'BtOdswiez + ' + Me.BtOdswiez.Dock = System.Windows.Forms.DockStyle.Fill + Me.BtOdswiez.Location = New System.Drawing.Point(627, 3) + Me.BtOdswiez.Name = "BtOdswiez" + Me.BtOdswiez.Size = New System.Drawing.Size(144, 35) + Me.BtOdswiez.TabIndex = 5 + Me.BtOdswiez.Text = "Odśwież dane" + Me.BtOdswiez.UseVisualStyleBackColor = True + ' + 'TcZakladki + ' + Me.TcZakladki.Controls.Add(Me.TpDocs) + Me.TcZakladki.Controls.Add(Me.TpList) + Me.TcZakladki.Dock = System.Windows.Forms.DockStyle.Fill + Me.TcZakladki.Location = New System.Drawing.Point(3, 44) + Me.TcZakladki.Name = "TcZakladki" + Me.TcZakladki.SelectedIndex = 0 + Me.TcZakladki.Size = New System.Drawing.Size(618, 538) + Me.TcZakladki.TabIndex = 6 + ' + 'TpDocs + ' + Me.TpDocs.Controls.Add(Me.DgvDokumenty) + Me.TpDocs.Location = New System.Drawing.Point(4, 22) + Me.TpDocs.Name = "TpDocs" + Me.TpDocs.Padding = New System.Windows.Forms.Padding(3) + Me.TpDocs.Size = New System.Drawing.Size(610, 512) + Me.TpDocs.TabIndex = 0 + Me.TpDocs.Text = "Dokumenty" + Me.TpDocs.UseVisualStyleBackColor = True + ' + 'DgvDokumenty + ' + Me.DgvDokumenty.AllowUserToAddRows = False + Me.DgvDokumenty.AllowUserToDeleteRows = False + Me.DgvDokumenty.AllowUserToOrderColumns = True + Me.DgvDokumenty.AllowUserToResizeRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.WhiteSmoke + Me.DgvDokumenty.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.DgvDokumenty.AutoGenerateColumns = False + Me.DgvDokumenty.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells + Me.DgvDokumenty.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable + Me.DgvDokumenty.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DgvDokumenty.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colLp, Me.colDokument, Me.colDokZr, Me.colDZKOpis, Me.colDataWyst, Me.colDataOper, Me.colSumaCT, Me.colSumaDT, Me.colDZKDziennik, Me.colDekret, Me.colRokMiesiac, Me.colDataImportu, Me.colMagazyn, Me.colKontrahent, Me.colOpisDok, Me.colDokKoryg}) + Me.DgvDokumenty.DataSource = Me.BsTbmy_ImpDM_Src + Me.DgvDokumenty.Dock = System.Windows.Forms.DockStyle.Fill + Me.DgvDokumenty.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically + Me.DgvDokumenty.Location = New System.Drawing.Point(3, 3) + Me.DgvDokumenty.Name = "DgvDokumenty" + Me.DgvDokumenty.ReadOnly = True + Me.DgvDokumenty.RowHeadersVisible = False + Me.DgvDokumenty.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.DgvDokumenty.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DgvDokumenty.ShowEditingIcon = False + Me.DgvDokumenty.Size = New System.Drawing.Size(604, 506) + Me.DgvDokumenty.TabIndex = 0 + ' + 'colLp + ' + Me.colLp.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colLp.DataPropertyName = "Lp" + Me.colLp.HeaderText = "Lp" + Me.colLp.Name = "colLp" + Me.colLp.ReadOnly = True + Me.colLp.Width = 44 + ' + 'colDokument + ' + Me.colDokument.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDokument.DataPropertyName = "Dokument" + Me.colDokument.HeaderText = "Dokument" + Me.colDokument.Name = "colDokument" + Me.colDokument.ReadOnly = True + Me.colDokument.Width = 81 + ' + 'colDokZr + ' + Me.colDokZr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDokZr.DataPropertyName = "DokZr" + Me.colDokZr.HeaderText = "Dok. żródłowy" + Me.colDokZr.Name = "colDokZr" + Me.colDokZr.ReadOnly = True + Me.colDokZr.Width = 101 + ' + 'colDZKOpis + ' + Me.colDZKOpis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDZKOpis.DataPropertyName = "DZK_Opis" + Me.colDZKOpis.HeaderText = "Opis dziennika" + Me.colDZKOpis.Name = "colDZKOpis" + Me.colDZKOpis.ReadOnly = True + Me.colDZKOpis.Width = 53 + ' + 'colDataWyst + ' + Me.colDataWyst.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDataWyst.DataPropertyName = "DataWyst" + Me.colDataWyst.HeaderText = "Data" + Me.colDataWyst.Name = "colDataWyst" + Me.colDataWyst.ReadOnly = True + Me.colDataWyst.Width = 55 + ' + 'colDataOper + ' + Me.colDataOper.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDataOper.DataPropertyName = "DataOper" + Me.colDataOper.HeaderText = "Data dokumentu" + Me.colDataOper.Name = "colDataOper" + Me.colDataOper.ReadOnly = True + Me.colDataOper.Width = 102 + ' + 'colSumaCT + ' + Me.colSumaCT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colSumaCT.DataPropertyName = "SumaCT" + Me.colSumaCT.HeaderText = "Suma Ma" + Me.colSumaCT.Name = "colSumaCT" + Me.colSumaCT.ReadOnly = True + Me.colSumaCT.Width = 71 + ' + 'colSumaDT + ' + Me.colSumaDT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colSumaDT.DataPropertyName = "SumaDT" + Me.colSumaDT.HeaderText = "Suma Winien" + Me.colSumaDT.Name = "colSumaDT" + Me.colSumaDT.ReadOnly = True + Me.colSumaDT.Width = 87 + ' + 'colDZKDziennik + ' + Me.colDZKDziennik.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDZKDziennik.DataPropertyName = "DZK_Dziennik" + Me.colDZKDziennik.HeaderText = "Dziennik" + Me.colDZKDziennik.Name = "colDZKDziennik" + Me.colDZKDziennik.ReadOnly = True + Me.colDZKDziennik.Visible = False + Me.colDZKDziennik.Width = 73 + ' + 'colDekret + ' + Me.colDekret.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDekret.DataPropertyName = "Dekret" + Me.colDekret.HeaderText = "Dekret" + Me.colDekret.Name = "colDekret" + Me.colDekret.ReadOnly = True + Me.colDekret.Visible = False + Me.colDekret.Width = 64 + ' + 'colRokMiesiac + ' + Me.colRokMiesiac.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colRokMiesiac.DataPropertyName = "RokMiesiac" + Me.colRokMiesiac.HeaderText = "RokMiesiac" + Me.colRokMiesiac.Name = "colRokMiesiac" + Me.colRokMiesiac.ReadOnly = True + Me.colRokMiesiac.Visible = False + Me.colRokMiesiac.Width = 88 + ' + 'colDataImportu + ' + Me.colDataImportu.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDataImportu.DataPropertyName = "DataImportu" + Me.colDataImportu.HeaderText = "Data importu" + Me.colDataImportu.Name = "colDataImportu" + Me.colDataImportu.ReadOnly = True + Me.colDataImportu.Width = 85 + ' + 'colMagazyn + ' + Me.colMagazyn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colMagazyn.DataPropertyName = "Magazyn" + Me.colMagazyn.HeaderText = "Magazyn" + Me.colMagazyn.Name = "colMagazyn" + Me.colMagazyn.ReadOnly = True + ' + 'colKontrahent + ' + Me.colKontrahent.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colKontrahent.DataPropertyName = "Kontrahent" + Me.colKontrahent.HeaderText = "Kontrahent" + Me.colKontrahent.Name = "colKontrahent" + Me.colKontrahent.ReadOnly = True + ' + 'colOpisDok + ' + Me.colOpisDok.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colOpisDok.DataPropertyName = "Opis" + Me.colOpisDok.HeaderText = "Opis dokumentu" + Me.colOpisDok.Name = "colOpisDok" + Me.colOpisDok.ReadOnly = True + ' + 'colDokKoryg + ' + Me.colDokKoryg.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.colDokKoryg.DataPropertyName = "DokKoryg" + Me.colDokKoryg.HeaderText = "DokKoryg" + Me.colDokKoryg.Name = "colDokKoryg" + Me.colDokKoryg.ReadOnly = True + ' + 'BsTbmy_ImpDM_Src + ' + Me.BsTbmy_ImpDM_Src.DataMember = "Tbmy_ImpDM_Src" + Me.BsTbmy_ImpDM_Src.DataSource = Me.DsMain + ' + 'TpList + ' + Me.TpList.Controls.Add(Me.LstWynik) + Me.TpList.Location = New System.Drawing.Point(4, 22) + Me.TpList.Name = "TpList" + Me.TpList.Padding = New System.Windows.Forms.Padding(3) + Me.TpList.Size = New System.Drawing.Size(610, 512) + Me.TpList.TabIndex = 1 + Me.TpList.Text = "Przebieg pracy" + Me.TpList.UseVisualStyleBackColor = True + ' + 'LstWynik + ' + Me.LstWynik.Dock = System.Windows.Forms.DockStyle.Fill + Me.LstWynik.FormattingEnabled = True + Me.LstWynik.Location = New System.Drawing.Point(3, 3) + Me.LstWynik.Name = "LstWynik" + Me.LstWynik.Size = New System.Drawing.Size(604, 506) + Me.LstWynik.TabIndex = 0 + ' + 'Timer + ' + Me.Timer.Interval = 200 + ' + 'Tamy_ImpDM_Src + ' + Me.Tamy_ImpDM_Src.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.UpdateOrder = ImportDokMag.DsMainTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'BsTbmy_ImpDM_Dekr + ' + Me.BsTbmy_ImpDM_Dekr.DataMember = "Tbmy_ImpDM_Dekr" + Me.BsTbmy_ImpDM_Dekr.DataSource = Me.DsMain + ' + 'Tamy_ImpDM_Dekr + ' + Me.Tamy_ImpDM_Dekr.ClearBeforeFill = True + ' + 'Tamy_ImpDM_Konta + ' + Me.Tamy_ImpDM_Konta.ClearBeforeFill = True + ' + 'MainFrm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi + Me.CancelButton = Me.BtKoniec + Me.ClientSize = New System.Drawing.Size(780, 657) + Me.Controls.Add(Me.TlMainPanel) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MinimumSize = New System.Drawing.Size(796, 696) + Me.Name = "MainFrm" + Me.Padding = New System.Windows.Forms.Padding(3) + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Import dokumentów magazynowych 2.0.1 z 13.10.2026" + Me.TlMainPanel.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.GbRadio.ResumeLayout(False) + Me.GbRadio.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DsMain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.edRok, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TcZakladki.ResumeLayout(False) + Me.TpDocs.ResumeLayout(False) + CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).EndInit() + Me.TpList.ResumeLayout(False) + CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents TlMainPanel As TableLayoutPanel + Friend WithEvents DgvDokumenty As DataGridView + Friend WithEvents Panel1 As Panel + Friend WithEvents CbWewn As CheckBox + Friend WithEvents CbZakup As CheckBox + Friend WithEvents CbSprzedaz As CheckBox + Friend WithEvents Panel2 As Panel + Friend WithEvents edRok As NumericUpDown + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents CbMiesiac As ComboBox + Friend WithEvents TableLayoutPanel1 As TableLayoutPanel + Friend WithEvents BtImport As Button + Friend WithEvents BtKoniec As Button + Friend WithEvents BtOdswiez As Button + Friend WithEvents DsMain As DsMain + Friend WithEvents BsTbmy_ImpDM_Src As BindingSource + Friend WithEvents Tamy_ImpDM_Src As DsMainTableAdapters.Tamy_ImpDM_Src + Friend WithEvents TableAdapterManager As DsMainTableAdapters.TableAdapterManager + Friend WithEvents lbUwaga As Button + Friend WithEvents TcZakladki As TabControl + Friend WithEvents TpDocs As TabPage + Friend WithEvents TpList As TabPage + Friend WithEvents LstWynik As ListBox + Friend WithEvents BtKonfig As Button + Friend WithEvents Timer As Timer + Friend WithEvents BsTbmy_ImpDM_Dekr As BindingSource + Friend WithEvents Tamy_ImpDM_Dekr As DsMainTableAdapters.Tamy_ImpDM_Dekr + Friend WithEvents BtUsunFlage As Button + Friend WithEvents colLp As DataGridViewTextBoxColumn + Friend WithEvents colDokument As DataGridViewTextBoxColumn + Friend WithEvents colDokZr As DataGridViewTextBoxColumn + Friend WithEvents colDZKOpis As DataGridViewTextBoxColumn + Friend WithEvents colDataWyst As DataGridViewTextBoxColumn + Friend WithEvents colDataOper As DataGridViewTextBoxColumn + Friend WithEvents colSumaCT As DataGridViewTextBoxColumn + Friend WithEvents colSumaDT As DataGridViewTextBoxColumn + Friend WithEvents colDZKDziennik As DataGridViewTextBoxColumn + Friend WithEvents colDekret As DataGridViewTextBoxColumn + Friend WithEvents colRokMiesiac As DataGridViewTextBoxColumn + Friend WithEvents colDataImportu As DataGridViewTextBoxColumn + Friend WithEvents colMagazyn As DataGridViewTextBoxColumn + Friend WithEvents colKontrahent As DataGridViewTextBoxColumn + Friend WithEvents colOpisDok As DataGridViewTextBoxColumn + Friend WithEvents colDokKoryg As DataGridViewTextBoxColumn + Friend WithEvents GbRadio As GroupBox + Friend WithEvents RbAll As RadioButton + Friend WithEvents RbBlack As RadioButton + Friend WithEvents RbRed As RadioButton + Friend WithEvents CbKonto As ComboBox + Friend WithEvents Label3 As Label + Friend WithEvents BsTbmyImpDMKonta As BindingSource + Friend WithEvents Tamy_ImpDM_Konta As DsMainTableAdapters.Tamy_ImpDM_Konta +End Class diff --git a/ImportDokMag/MainFrm.resx b/ImportDokMag/MainFrm.resx new file mode 100644 index 0000000..8bc3ae3 --- /dev/null +++ b/ImportDokMag/MainFrm.resx @@ -0,0 +1,539 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 1083, 18 + + + 17, 17 + + + True + + + True + + + True + + + True + + + 110, 17 + + + 661, 17 + + + 339, 17 + + + 488, 17 + + + 743, 17 + + + 925, 18 + + + 17, 57 + + + + + AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA + IACsJQAAHh0AACAgAAABACAArBAAAMpCAAAQEAAAAQAgAGwEAAB2UwAAKAAAADAAAABgAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD+/PsA/fn2APr18gD68+4A+/HoAPfv6wD17OcA9erkAPzt + 2gDz5+AA/OjSAPHj3ADw4dkA++HPAO/f1gD648kA7tzTAPvcxwDr2dEA8dvJAOvYzgD63L8A69fNAPzc + uAD/1MYA8tjCAOrUyQD/1rwA8ta+APzZrwDo0cUA8tO4AOfPwwD41LAA5czAAOjLugDkybwA/NCkAOPH + uQDuy6sA4ca4APrNoADGwcoA4sS1AP/LlgDgwrMA5sSqAPDGoADgwLEA8sSbAN6+rgDpw58A5sGkAPrK + hwDdu6wA/bOvAPzJggDduqkA6L6cAK23uwDcuKYAz7apAN23oQDwv4oA5LqXANq1owD/xnIA9cF9ANmz + oADYsp8A47eQANixngDYsZ0A7biFANevmwD3vnEA77p6ALGnswDSrZoA1q2YAP/AYwDrtn4A4LGLAPa7 + bQDVq5UA9blrAP++XACvo60A1KmTAOqydwDUp5EA3KqGANOnjwDTo5QA/7tUANKkjQDlrXQAn52sAOms + cADmrHAA/7hMANinewDRoIoA3qZ2AKmZoQDPn4cAdJa6AHaWuADpqWcAy5iRAP2zSQDOnYQAzZyEAP+0 + QgAnlc4A0p1+AMyagQBxlqkAJZLLAFqXqwAxksMA/7A6AMuXfgDsp1IA6qRQAP+tMwDJk3kANorAANiZ + ZQDmoFEAyJJ2AIuLlwD/qy0A6aBKADSEwABwhqYAGoW/AMaNcADgmE4A/KYoAP+nJAC6inUAxY1oAP+l + HgDDiGwA25NMAGR7pgDBh2kA/6MZAMKFZgAmerQA145KAL+DZgD/oRMA/J8XAPSbIAD/nw4Av4BgANKI + RwD2mRYA/50JAPeYFACneW0AAG67AAZuuADGflEA/5sDALx7WgDzkxQAa3KDAP6ZAAD6lgYAyX5EALt3 + VAD8lQAAAG2rALl2VAD2kgUAJmejAPmSAAAAa6UAuXNPACZlngAFZakAwXZCAPSOAADwiwQA8YoAAO6I + AAATXqEAAAAAAOuFAAC9bzwAtWtGAOiCAAAAX5kA5oABACVUngDkfgAAsWU+AOB6AAAGUJoA23UAAMxs + FADXcAAAbVlOANJrAACsWTAAd1BOALhcGQCpVCkAyl0AAE1NTQBiTkIApkwgAI9HLgDEVAAAslAKAF9G + OQC4UAAAqEkTAIVDKwCqSQ0AtUsAAKFEFQCgQhMAqkYFAH89IQCvQwAAqUMAAJ08DACmQAAASTcuAGA3 + JQCjPQAAoDoAAGAzIACaNgIAgjATAIEwEwCMMwUAmTMAAHQyDwCFLgMAki0AAHIuAAB/KgAAQCUXAIEh + AABDIxIAViMAACIZFQA+GQAACwgHAAAAAAC/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/ + v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v9XV1dW/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/ + v7+/v7+/v7+/v7+/v7+/v7+/1fDw287V1dXVv7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/ + v7+/v7/V8PXy8vLt7dvO1dXVv7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v9Xw5ezy8vLy + 8u7y7erW1dXV1b+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/1fDlz+zy8vLy8vLy8vLu8u3q1tXV + 1b+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7/V8OXPz+vy8sIVOp7X8vLy8vLy7u3t6tXV1dW/v7+/v7+/ + v7+/v7+/v7+/v7+/v9Xv5c3Nz+vuwrYTFxshI0uo1/Ly8vLy8vLt7erV1b+/v7+/v7+/v7+/v7+/v7+/ + 1eTgy8vNzevisa4RFRsfIyUpLjNgsdfu8vLy8vL51b+/v7+/v7+/v7+/v7+/v7/V3uDJy8vNzevisa4P + ExcbHyMnLDE3PUJJcbHX7vL51b+/v7+/v7+/v7+/v7+/v9Xe4MfJycvLzeviqKgNERUbHyElKS4zOj1F + S1VbYIOe0dW/v7+/v7+/v7+/v7+/1djcw8fHycnLy+viqKgMDxEXGx8jJywxMz1CSFBZXWdqddW/v7+/ + v7+/v7+/v7+/5tzAwMPHx8nJy+vinqgKDQ8TFx8hJScuMzo9RUtQWWBncdW/v7+/v7+/v7+/v7+/6Ly9 + wMPFx8nJy+vinp4KDA0RFRsfJ1BbW1VVUElLWV1gatW/v7+/v7+/v7+/v7+/5ry9wMDDxcfJyevilpkI + Cg0PExcldXBwcHBqampQUFlgZ9W/v7+/v7+/v7+/v7+/5rq8vcDAw8fHyevilpYHCgwNERV7insxM0Vw + g391S1VbYNW/v7+/v7+/v7+/v7+/5rq8vL3Aw8XHyejhlJEHCAoNDxeqiaS+xpNYSZSKS1BZXdW/v7+/ + v7+/v7+/v7+/5rS6vL29wMPFx+jhkZEGBwoMDSuwh2uzxMTEuKNdRktVW9W/v7+/v7+/v7+/v7+/5rS6 + ury9wMDDx+jhlLEEBggKDBMVFxsfI06TeYQ9QklQWdW/v7+/v7+/v7+/v7+/5rS0ury8vcDDxej0/7ED + BgcIDA0RFRsfIyUpYjc6PUVLVdW/v7+/v7+/v7+/v7+/5q+0tLq8vb3Aw+j3/7EDBAYICgwPERcbHyMn + LDE3PUJJUNW/v7+/v7+/v7+/v7+/5quvtLq6vL3AwOj3/64CAwYHCAoNERMXHyElKS4zOj1FS9W/v7+/ + v7+/v7+/v7+/5quvtLS6vLy9wOj3/64CAwQGBwoMDxEVGx8jJywuMz1CSNW/v7+/v7+/v7+/v7+/5qur + r7S0ury9vej3+K4HBwMGBwgKDQ8TFxshIycuMzo9RdW/v7+/v7+/v7+/v7+/5qerq6+0urq8vebTZi1K + aI9TaC40FxQRFRsfIyUsLjM6QtW/v7+/v7+/v7+/v7+/5qGnq6+0tLq6vNI1CRg1JlxmZkpmZFpjXFpG + Tz4uLDE6PdW/v7+/v7+/v7+/v7+/452hq6uvtLS6qTABAAsQEAsvGDUiRzImLab6/vzb6Y6uRtW/v7+/ + v7+/v7+/v7+/45qdp6urr7ScJgEAAAAQEBILIBYoIh4ckeTz8ez2+/311b+/v7+/v7+/v7+/v7+/45Wa + oaerr6+iKgEAAAACEhodECAWGBxumZaxg7nB0tr11b+/v7+/v7+/v7+/v7+/45CVnaGrq6+0ojABAAAC + AxodIBYWGW6ZkYpbWWBncbn11b+/v7+/v7+/v7+/v7+/442Qmp2nq6uvtMwyAQACAwUdJBASXo57cUtQ + VV1narny1b+/v7+/v7+/v7+/v7+/44WNlZqhp6uvr9SBNAECBD8OCxlee2BZQkVLUFlgZ63u1b+/v7+/ + v7+/v7+/v7+/436MkJWdoaurr89oDzsDQW9mOGdnRkI3OkJGS1VdYK3s1b+/v7+/v7+/v7+/v7+/436F + jZCanaerq89oChFcUm2fe3FgYF1dWUhFS1BZYK3r1b+/v7+/v7+/v7+/v7+/33p+hY2VmqGnq81hCAoM + DycxaopxdXWDf3tIRktVW5/o1b+/v7+/v7+/v7+/v7+/33J6foyQlZ2hq8thBwgKDRE8eHeXt3aIaZZL + QklQWZ/m1b+/v7+/v7+/v7+/v7+/33J6foWNkJqdp8taBggKDA9spXOXysTEtYA9QkVLVZjl1b+/v7+/ + v7+/v7+/v7+/32Vyen6FjZWaoclaBAcICg0PExcbISUpWGI3PUJJUJjg1b+/v7+/v7+/v7+/v7+/319v + cnp+jJCVncVNBAYHCgwNERUbHyMlJy4zOj1FS5Lg1b+/v7+/v7+/v7+/v7+/319lcnp+hY2QmsBNAwQH + CAoNDxMXGyEjJywxNz1CSYvc1b+/v7+/v7+/v7+/v7+/31dfZXJ6foWNlbtEAgQGBwoMDREVGx8jJScu + Mzo9RYvc1b+/v7+/v7+/v7+/v7+/3VFXX29yen6MjbtEAgMEBwgKDA8RFxshIycsMTc6QoLZ1b+/v7+/ + v7+/v7+/v7+/3VFXX2Vyen6FjbJEAQIEBgcKCg0RFRcfISUnLjM6PYLZ1b+/v7+/v7+/v7+/v7+/3UNR + V19lcnp+haybjIyMjG9MTFRWQCgoNDQvLDEzOn3U1b+/v7+/v7+/v7+/v7+/3UNRUVdfVzYgDw8TFxsf + IzQ7QUFHZHx9fYaGnKCgoKDU1b+/v7+/v7+/v7+/v7+/3UM2HgsGBwgKDA8RFRsbISMlKS4zNz1GcHV1 + dbbQ0NjYv7+/v7+/v7+/v7+/v7+/7tPT09PIwsKucHBdNzc3N11wcKjC0NDQ0NDQ0NC/v7+/v7+/v7+/ + v7+/v7+/v7+/v7+/v7+/v7/IyMjIyMjIyMjI0NC/v7+/v7+/v7+/v7+/v7+/v7+/v7////////8AAP// + h////wAA//8Af///AAD//gAP//8AAP/8AAD//wAA//gAAB//AAD/8AAAAf8AAP/gAAAAfwAA/8AAAAB/ + AAD/gAAAAH8AAP8AAAAAPwAA/gAAAAA/AAD+AAAAAD8AAP4AAAAAPwAA/gAAAAA/AAD+AAAAAD8AAP4A + AAAAPwAA/gAAAAA/AAD+AAAAAD8AAP4AAAAAPwAA/gAAAAA/AAD+AAAAAD8AAP4AAAAAPwAA/gAAAAA/ + AAD+AAAAAD8AAP4AAAAAPwAA/gAAAAA/AAD+AAAAAH8AAP4AAAAAfwAA/gAAAAB/AAD+AAAAAH8AAP4A + AAAAfwAA/gAAAAB/AAD+AAAAAH8AAP4AAAAAfwAA/gAAAAB/AAD+AAAAAH8AAP4AAAAAfwAA/gAAAAB/ + AAD+AAAAAH8AAP4AAAAAfwAA/gAAAAB/AAD+AAAAAH8AAP4AAAAAfwAA/gAAAAB/AAD+AAAAAP8AAP4A + AAAP/wAA//4AH///AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AP/8 + +QD++vUA+vXzAPr08AD+8+kA+PDtAPbu6gD27OgA/e/cAPXq5gD06OMA8+bgAPTn2gD55tcA/OfSAPHj + 3ADw4NgA/OPNAO/e1gDz3c0A9t7JAO3b0gDt2tEA7NnQAPTdwwDr2M4A99bIAOvWzAD72rwA6tXKAOrU + yQDu1MIA6NLHAPjYtADr0sIA58/EANPKzgDmzcAA8dGzAPDQtQDz0qwA6823AOXLvQDkybsA782vAOHI + uwDjx7kA7syrAOfIswD/z5wA4sa4APbNogDixLYA+tCVAOjHrADryKcA4cO0AOjFqwDgwbIA37+vAMK4 + wADmuawA3burAOO9oQCzs8YAt7PDANu5qQDlvZ0A3LmnAPvHfADjs6oA27elAPzFeADru5EA2rWjALq0 + rwDatKEA1rOiAOCvpgCtrroA2bOfAP/EbQD4wXUAyq+oANixnQDYsJwAzqymAOG0jwD3vnIA16+bAP/B + ZADWrZkA6KedAOKxiQDWrJcAy6iiAO+0fACwpbAA3a6LANWqlADUqZMA/71bAMiknwDTppAA3quAANap + hQDZqYMA3qp+AP+6UgDHn5kA9rJiANGjjQDMoI4A0KGJAM+giAD/tkoARZy/AM6dhQD/tEMAzZuCAP+x + PQDMmH4ApZaHAMqVewD/rjYAgIivAP+tMgBwjKYA/6wxAMSRewDIkncA6aFLAHGFqQD/qisAE4XJAKGJ + iwDalloA96M1AMaNcQDmm0YA/6ckACeFtQDFi24ALYK3AP+lHgD3nygAJ3y2AP+jGgD/ohYAu4JsALqH + YAAzd7AA/6ARAMeDWgDrlSkAv4BgAP+eDQBNeJkA+JsVAL9/YAD/nAgA5I4oAL17WgD/mgMA/pkAADJt + oAC8eFcA2IYxAN6IJwD8lgAAzn47APqTAAD5kgAAunRRABNmqQDWgSsA2IEnAPWPAADMezUA8owAALdv + SwDwigAAi2xdAMx4LQDReiYABmObAKRrUQDthgAAAAAAALZpSQDrhAAAzHUmAOiCAADLdCUAAF2ZAMxz + IADlfgAA4nwAALJlPgDgeQAAzG8XAN13AADcdQAAsmE0ANhyAACwXDkAzGwPAK5dNQCZWzsA1G4AAG5X + SwDMaAcAq1cvAM9oAADMZgAAqlMxAMljAACFVjAA2lwFAMZgAAB0Tz0ATU1NAK5TGADJVwAAYUc7AMBR + AACvTgsAm0cdAGVEMwChQxQAt0kAALFGAACeQBEAnz4OAKxBAACROxIAoT0GAJ48BQCmPQAAWjYkAJU9 + AACbOAcAoDkAAJs4AwCZNwUAWjEfAJkzAACVLwAAZCkRAH8qAACCKAAAciUJAHEkBwCBIQAAHQ8IAL29 + vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb3e3t7e3r29vb29vb29vb29vb29 + vb29vb29vb29vb293vX38v353t7e3t69vb29vb29vb29vb29vb29vb29vd711/f39/f3/v359t7e3t69 + vb29vb29vb29vb29vb3e7tLW9+Y1L3jH6vf3/v359t7e3r29vb29vb29vb293u7NzdLqtS8aISszUYvQ + 6vf+/vzevb29vb29vb29vd7tyMrN0umuKxceJCw5P0hVcqDV0OHevb29vb29vb3e7MXFyMvN6a4mExof + KzM8P0taZXB2cd69vb29vb29veS/v8XGysvmpyQRFh4kM0VLUVVfaHJu3r29vb29vb293La8wcXGyuaj + HxATGiFydnZzcl9kcG7evb29vb29vb3ctLy/wcXI5qAaDBEWVntMQ0h8fFxoZ969vb29vb29vdmytLy/ + xcbmnBcKEBOOh6/Dup56VmRn3r29vb29vb292a20trzBxenlFwcLECUcIS5ikEVNXGfevb29vb29vb3X + rLK0vL/B+v8TBgoMERgfJC85P0hWYN69vb29vb29vdeqrbK0vL/6/xMDBwsQExohKzM8Q0tg3r29vb29 + vb2916WqrbS2vPraHg0GCAwRFx4kLDk/SFfevb29vb29vb3UpaqssrS2mjRraWyXY0BEJjEmMzxOV969 + vb29vb29vdShpaqtsm8EAgkiKjBjajJh8N3Tt/vevb29vb29vb29z5mkpaqSDwAAAg8tKCcdT7vR3+Px + +969vb29vb29vb3PlJ2lqqyKDgABBRU6HUeWj3Noc3r43r29vb29vb29vcmNlaGlqq2rDgEFGxI+gnZf + WmVwdvfevb29vb29vb29yYaRmaSlqsIgFEqJXXFVSEhRX2hy8969vb29vb29vb3EgY2UnaWquQsjN2t4 + enZ2cFxaZXDv3r29vb29vb29vcR5ho2VoaWxCAwRUHWTpoCIZVFcaOvevb29vb29vb29wHd9hpGZpKkH + CxBBQj1+hZhUS1Zk6N69vb29vb29vb24dHl/jZSdogQIDBEWHiQsNTxFUVzn3r29vb29vb29vbhtdHmB + jZWbAwYKEBMYHyYvOz9LVeLevb29vb29vb29s2Ztd32GkZICBAgMERYcJCs1PEVN4t69vb29vb29vb2z + W2Z0eX+Nn0ZJU1kpJy04OC85P0jg3r29vb29vb29vatSW0k2GREWHCEmLFhYXmlshIyosNvevb29vb29 + vb29zMzMzMyPg3Y/Pz94eI+nvr6+ztjVzL29vb29vb29vb29vb29vr6+vr6+vr6+vr6+vb29vb29vb29 + vb3//////+D////AB///gAB//wAAD/4AAA/8AAAH+AAAB/gAAAf4AAAH+AAAB/gAAAf4AAAH+AAAB/gA + AAf4AAAH+AAAB/gAAA/4AAAP+AAAD/gAAA/4AAAP+AAAD/gAAA/4AAAP+AAAD/gAAA/4AAAP+AAAD/gA + AA/4AAAf/4AH/ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/WQAAy2QAAM9p + AADTbQAA1G4AANhxAADcdgAA3ngAAOJ7AADngAAA7IUAAO+IAADxiwAA9I0AAPWPAAD2kAAA+ZIAAPyV + AAD9lwAA/pkAAP+ZAgD4kwMA8YwEAK0vBgA2FwgA/5wKAJ08CwD7mxAAcDYRAP+fEQB5LRIAfTEWAII/ + GgD/oxoA/aMdAP+nIwB9QCUAgUUlAHU7JgCGSSYAjE0nAHI9KACzQyoA/6osAJBCLQC7ZS0AeUkwALpS + MwD/rzcAzHY4AM96OABwSTkAsGE5AM96OQDWfDkA8H45APKBPgBvTkAA/7JAAJxTQgC1a0YA/7ZIALdu + SgDviEwATU1NAP+8WADujVkA7I9hALuGZQD6u2sAyo9tAOuXbwDUlXAA5KxyAOGTdADPmHQAzYR3AN2s + eQDVoHsA0aB8AMuXfQDNm4IA26iDAM+giADitowA0qSOANKljgDLno8A06eQANOokgC2m5MA2KyUAOW6 + lADswJQAzqOWAOa/mgCuppsA16+bANConQDYsJ0AWXKeAPHKnwDcqKAA2bOgAOrEoADatKIA06+kAM+0 + pgDbt6YA27imANy4pwBJe6kA3LqpANm5qgDWtawA782sAPzcrgBznK8A9M+vANmuswDhwrMA4sS1ALOs + twDjx7kA9Ni5AJyguwDs0bsA8dO7AOTJvADn0MMA8trDAPnixQDo0sYA9dnGAPbfxgDp08gA9+HJAOrW + ywDlx84A7NrQAO3b0gDt3NMA797WAPDh2QCJy9oA8eTdAPTo4wD06uQA9evlAPfu6gD78uoA+vTxAAAA + AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmJiYmJiY + QEBAQJiYmJiYmJiYmJiYQB8mM0BAQECYmJiYmJiYQAAaTC8XHik5QECYmJiYQAMBNIuBeGxQKixAmJiY + QAcIAjyPiYBtY1VXQJiYmDELCQQ+koxgWlFZXkCYmJgyDQoFLpWPfXpkZ2JAmJiYNRAMBhiXk42EeW5q + QJiYmDYSDwhPVE1fZWtxckCYmJg3FBFFmYZ/dkQgHDtAmJiYOB0TFpaWhVtTWEYkmJiYmD8jGQ5+XUhT + VmFLJZiYmJhCMCEVgpGQdW9pTieYmJiYQz0rG4iUjod7cFIomJiYmEdBOiJ0g3xzaFxJLZiYmJhKSkpm + d4p3Uk5KRpiYmPw/vb34B7+/8AHKy+ABJBHAASQzwAFRVcABcm7AAb29wAG9vcABtrzAA8bKwAMfEMAD + IXLAA3NywANwbsAHvb0oAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEAABDsn + FA1EIgkePiILLUAjDCw+HwghRiMMFkAgEBBGFwALVSsABlUAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABAQAAERCIRDzodDCw8IQxVOx8LdToeC3Y7Hw1jPB8NUT8jDEE+HwoxPh8IIUYjDBZEIhEPORwACTMz + AAWAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAEBAAAREIhEPPSELLkUfC21mHwTOUx4I1TwcDMs3Gwy6OR0MqjseDJc7Hgx+Ox8NZD0g + DU8+IQg+PiILLT4jCR1AGg0USSQSDjkcAAkzMwAFgAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAQEAABEQiEQ89IQsuRR8LbnghAu6SLQD/mTMA/5kzAP9zIAL8YR8F9FAe + Cec9HAzPNxsMujgdDKc6HgqSOh4NdzoeC109HwpLPyEIPT4iCy0+IwkdQBoNFEkkEg45HAAJMzMABYAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABVVQADRCIRDz0hCy5FHwtueCAC7q0/AP+hOwD/mTMA/5kz + AP+ZMwD/mTMA/5kzAP+bOAf/byAD+l0fBvJLHQniNhwNxzccDbY5HQulOh4LkToeDXc6HgtdPR8KSz8h + CD0+IgstPiMJHUAaDRRJJBIOORwACUBAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUAAANJJBIOPSELLkUfCW54IALurkIA/9Bp + AP+hOwD/mTMA/5kzAP+ZMwD/mTMA/5kzAP+ZMwD/mTMA/5kzAP+ZMwD/mzgH/28gA/peHwbySx0J4jYc + Dcc3HA22OR0LpToeC5E6Hg13Oh4LXT0fCks/IQg9OyQMK0AgCxhAIAAIAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkArFQw9HgwqRB8JbHgh + Au6wQwD/1G0A/9FrAP+iPAD/mTMA/5k0Af+2bEf/7NjO/9y6qP/AgmL/pkwg/5kzAP+ZMwD/mTMA/5kz + AP+ZMwD/mTMA/5s4B/9vIAP6Xh8G8ksdCeI2HA3HNxwNtjkdC6U6HguROyALcTkdC0c1GgkdJCQABwAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACRhcXCzwi + DSZGHwlleCAB7bFFAP/YcQD/1W8A/9NsAP+iPAD/mjUC/7RpQ/+6dFH/7drR/+vXzf/p08f/58/D/+XL + vv/Xr5v/vXta/6RKHf+ZMwD/mTMA/5kzAP+ZMwD/mTMA/5kzAP+hRBX/byAD+l4fBvJMHQnhNRsMuzYd + DYU5HBA/OSscElVVAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAJGFxcLPhwOJT4gDFd1IQLlskwA/9t1AP/ZcwD/13EA/9VuAP+iPAD/n0AR/7p1Uv+7dlT/7t3U/+zY + zv/q1cr/6NHF/+bNwf/kybz/4sa4/+DBsv/fvq7/0qSN/7p1Uv+nTyP/mjYE/5kzAP+ZMwD/mTMA/5kz + AP+ZMwD/gSEA/zYcELM7IRVjQy8iJk0zMwr/AAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAADMaAApAHA4kOx0MV24gA9izTQD/4HkA/913AP/bdQD/2HIA/9ZwAP+jPQD/n0AR/7p1 + U/+7d1T/79/X/+3a0f/r183/6dPI/+jQxP/ly7//48i6/+HEtf/gwLH/3rys/9y5p//ataL/2LGd/82c + g/+6dVL/pUwg/5o2A/+ZMwD/gSEA/zceEdI/JhmOSS8kRl06LhaAQEAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAADwaCR47HwxSbyAD17VOAP/kfQD/4XsA/995AP/cdgD/2nQA/9hx + AP+jPQD/n0AR/716Wf+9e1r/8OHZ/+7d1f/s2c//6tXL/+nSxv/mzsL/5Mq8/+LGuP/hwrP/376v/927 + qv/bt6X/2bOg/9evm//VrJb/06eS/9Kkjf/IkXX/v35f/25FQ/BJLCG4Ry0hZVU5MiRgQEAIAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADsbDjhwIAPRtlAA/+iCAP/lfwD/43wA/+F6 + AP/eeAD/3HYA/9lzAP+jPQD/n0AR/716Wf++fFv/8OLb/+/f1//t29L/69fN/+rUyf/o0MT/5czA/+PI + uv/ixbb/4MCx/969rP/cuaf/2rWj/9ixnv/WrZn/1KqU/9OmkP/Roov/z5+H/8yagf9jPjnURi4hdVE6 + LixxVTkJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHYgArq3UQD/7IYA/+qD + AP/ngQD/5H4A/+J8AP/geQD/3ncA/9t1AP+jPQD/oEIT/79/X/++fV3/8uXf//Dh2f/u3tX/7NnQ/+vW + zP/p0sb/587C/+TKvf/jx7j/4cKz/9++r//du6r/3Lim/9mzoP/Xr5v/1ayX/9Sokv/SpI3/0KGJ/82c + hP9jPTfXRywfelM3LC5mTTMKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKU/ + AP/wiQD/7YcA/+uFAP/pggD/54AA/+R+AP/hewD/33kA/912AP+kPgD/oEIT/79/X//AgWH/8+fh//Hj + 3P/v4Nj/7dzT/+zYzv/q1Mn/6NDE/+PHuf/WrJf/1KiR/9Sokf/VqpT/1auV/9atmP/YsZ3/1q6a/9Sq + lP/TppD/0aOL/8+fh/9kPzjXRywfelM3LC5mTTMKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKhBAP/xiwD/74kA/+yGAP/rhAD/6IIA/+Z/AP/jfQD/4XoA/954AP+kPgD/oEIT/8GE + Zf/Bg2P/9Onj//Ll3//w4dr/7t7W/+zZ0P/r1sz/5cq8/82agf/OnIP/zpyD/86cg//PnoX/z5+G/8+f + hv/QoIj/1q2Y/9Wsl//UqJP/0qWO/9Chif9kPzrXRywhelM3LC5mTTMKAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKhCAP/zjQD/8YoA/+6IAP/shgD/6oMA/+eBAP/lfgD/4nwA/+B5 + AP+kPgD/oEIT/8KEZv/ChGb/9evm//To4v/x49z/7+DY/+3c0//s2M7/y5d9/8aNcf/Ll33/38Cw/969 + rf/Zs6D/zp2F/8mSd//KlHr/zZuC/9aumv/Vq5X/06aR/9GjjP9kQTvXRy4helM3Mi5mTTMKAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKhCAP/1jwD/8owA//CJAP/thwD/64UA/+mC + AP/ngAD/5H4A/+F7AP+lPgD/oUMU/8OIaf/EiWz/9u3p//Xq5P/y5uD/8OLa/+7e1v/m1c//a3KD/xqF + v/8Abrv/E16h/yVUnv9keqX/rqCr/9iwnf/Dh2n/x45y/9ewnP/WrZj/1KmT/9Klj/9kQTvXRy4helM3 + Mi5mTTMKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlCAP/3kAD/9I4A//GL + AP/viQD/7YcA/+uEAP/oggD/5n8A/+N9AP+lPwD/oUQV/8SKbP/Fim3/9+/r//bs5//06OL/8eTd/+/g + 2P/Gwcr/AG2r/zSEwP90lrr/Jmej/wBamf8AZJn/AGWa/wVlqf+neW3/0qaP/9iyn//Xr5v/1auV/9On + kf9lQjzXRy4helM3Mi5mTTMKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlD + AP/5kgD/9o8A//ONAP/xigD/7ogA/+yGAP/qgwD/54EA/+V+AP+lPwD/oUQV/7+Hav+1eFr/+PHu//fu + 6f/16uT/8+bg//Di2//o2tX/5tbQ/+vXzf/p08j/6NDE/+XLv/+xp7P/ZHum/zGSw/+Li5f/3Lmn/9m0 + ov/YsZ3/1q2Y/9SplP9lQz3XRy4helM9Mi5mTTMKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKlDAP/6kwD/+JEA//WPAP/yjAD/8IkA/+2HAP/rhQD/6YIA/+eAAP+lPwD/hS4D/wUE + A/+6dVP/+fTx//jw7P/27Of/9Onj//Hk3v/w4dn/7t3U/+zZz//q1cv/6dLG/+bNwf/kyrz/4sa4/5ab + rf/Zuq7/3bup/9u3pf/Zs6D/16+b/9Wslv9mRUDXRy4helM9Mi5mTTMKAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlDAP/7lQD/+ZMA//eQAP/0jgD/8YsA/++JAP/thwD/64QA/+iC + AP+mQAD/fyoA/wAAAP+6dlP/+vb0//ny7//37ur/9erl//Pn4f/x49z/79/X/+3b0v/r183/6tTJ/+jQ + xP/lzL//48i6/+HEtf/gwLH/3rys/9y5p//ataP/2LGd/9atmf9mRUDXRy4kelM9Mi5mTTMKAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKlDAP/9lwD/+pQA//mSAP/2jwD/840A//GK + AP/uiAD/7IYA/+qDAP+mQAD/fyoA/wAAAP+7dlT/+/j2//n08f/48Oz/9uzo//Tp4//y5d//8OHZ/+7d + 1f/s2dD/69bL/+nSxv/nzsL/5Mq9/+LGuP/hwrP/376v/927qv/cuKb/2bOg/9ewnP9nRkHXRy4kelM9 + Mi5mTTMKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpEAP/+mAD//JYA//qT + AP/4kQD/9Y8A//KMAP/wiQD/7YcA/+uFAP+mQAD/fyoA/wAAAP+7dlT//Pr4//r29P/58u//9+7q//Xr + 5v/z5+H/8ePc/+/f1//t3NP/7NjO/+rUyf/o0cX/5czA/+PIuv/ixbb/4MGy/969rP/cuaf/2rWj/9ix + nv9nRkHXSTAkelk9Mi5mTU0KAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpE + AP//mQD//pgA//uVAP/5kwD/95AA//SOAP/xiwD/74kA/+2HAP+mQAD/fyoA/0AlF/+7d1X/9uzl//Lr + 5//69fL/+PDs//bt6P/06eP/8uXf//Dh2v/u3tb/7drR/+vWzP/p08f/58/D/+XLvv/jx7n/4cKz/9+/ + r//du6r/3Lim/9mzof9oSELXSjAkeVk9Mi5mTU0KAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKpEAf//mwT//pkA//2XAP/6lAD/+ZIA//aPAP/zjQD/8YoA/+6IAP+qRAD/p1Qq/9ig + e///y5b/7biF/+CqeP/GkWf/5LKI/+Cqd//iw7L/6cWh/+zXy//w28r/7dzT/+zYzv/q1Mr/6NHF/+XM + wP/kybv/4sW2/+DBsv/eva3/3bqo/9q2pP9pSUPRSS8jc1k7LytxVVUJAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpFAv//nQn//5oC//6YAP/8lgD/+pMA//iRAP/1jwD/84wA//CK + AP+8YBz/5r+k///w3f//4Ln/5sSm//rQpf/VrYf/2Kh+/9ioff/vu4f/16R1/+ascP/us3n/6axw/9yq + hv/psHT/2bKf/8Womv/Ptqn/3cK0/+HDtP/fv7D/3buq/9y4pv9vTki/Ry8kXVU+LiFtSUkHAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpFA///nw///5wH//+ZAP/+mAD/+5UA//qT + AP/3kAD/9I4A//OTFP/1yJ7//v37///////969H/++bL//rkyv/86NL/5cWu//jYt//lwqP/+NOr/9+2 + kP/0xZn//9Cg///Llv/LgU7/QyMS/xEMCv8iGRX/WkQ4/0k3Lv+yh3P/wHtU/9iynv93U0+eSC0kOVo8 + LRFVVVUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpFBP//oRT//54M//+b + BP/+mQD//ZcA//uUAP/5kgD/+Jsd//vQpv/+/fz//////////////v7/+uXM//jgxv/33sX/+uXR//PV + uv/53cL/8Myv//jVtf/717L//9a6/76Fbv97QiX/dDIP/4wzBf+aPAD/ci4A/1YjAP8+GQD/jisA/0ws + I8E4HhBfQikZH1UrKwYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpG + Bf//oxn//6AR//+dCv//mgL//pgA//2WAP/6lAD/+ZoV//rNoP/+/fz//////////////v7///v3//bf + x//02sH/89e///nhyv/wz7T/+Ni7//zbuv//1b7/yZaQ/7h/aP/ChWb/tnhY/8mSdv/AdkX/vW88/7RX + Ff+yUAr/kS0A/zQaDbE0HA9TOhcMFgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKpGBv//piD//6IX//+fD///nAf//5kB//6YAP/8lQD/+pMA//eYFP/1yJ7//v37//// + /////v7///v3///37//y2ML/8dS8//DRuv/43ML//N7C///Yw//NmpL/uoFq/8SJa//GjnL/06eR/9So + kv/SpI3/0KCJ/82chP/AdED/lTAA/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpGB///qCX//6Ud//+hFP//ngz//5sF//6ZAP/9lwD/+5QA//mS + AP/MbBT/78Kc//79+////v7///v3///37///8+f/79K9/+3Ntv/84sn//9rI/9GdlP/BjHf/ypV8/82c + hP/Wrpr/1q2Z/9Wqlf/TppD/0aKL/8+eh//Dd0H/mTQA/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpHCP//qiv//6cj//+jGf//oBL//50K//+a + Av/+mAD//ZYA//qUAP/IYgD/2Jll/+zBoP/+/Pv///v3//307P/ft57//djQ//zm0v//0Mj/1KOV/8eW + gf/RpI3/1KmT/9q1ov/ZtKH/17Cc/9asl//UqJL/0qWO/9Chif/Ge0P/nDYA/zMaDa8zGg1QMxoNFAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpHCP//rTH//6ko//+m + IP//ohf//58P//+cB///mQH//pgA//yVAP/NZgD/3KNy//Hg1f/ovZ3//fbw/+O4mf/8rkb/2aJ6//2z + r//YnI//zqGN/9mynv/btqT/3byr/9y5qP/ataP/2LKe/9eumv/VqpX/06aQ/9Gji//KfkT/nzkA/zMa + Da8zGg1QMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpH + Cf//rjX//6wu//+oJf//pR3//6EU//+eDP//mwX//pkA//2XAP/RagD/36Zz//To4v/w3dL/3qyK/+u2 + fv/pqWf/1YpG/8uXgP/LmoT/0qWO/9Kkjf/TppD/06eQ/9Spk//YsZ7/2bSh/9ewnP/WrJj/1KiS/9Kl + jv/MgkX/ozsA/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKpICv//sDr//60y//+qK///pyP//6MZ//+gEv//nQr//5oC//6YAP/VbwD/4qp0//Xq + 5f/z5+H/8ePc/+/f1//jx7n/4MCw/8+ehv/GjXD/zZyD/8yagP/MmYD/yJJ3/8mTef/Llnz/2LGe/9iy + n//Xrpr/1auW/9Onkf/PhUb/pz4A/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpIC///s0D//683//+tMf//qSj//6Yg//+iF///nw///5wH//+Z + Af/ZcwD/5a52//bs5//06eP/8uXe//Dh2v/u3dX/rbe7/1qXq/8lksv/Jnqz/yZlnv9xlqn/cIam/6mZ + of/Chmf/16+b/9m0ov/YsZ3/1qyY/9Spk//SiUj/q0AA/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpJDP//tUX//7I9//+uNf//rC7//6gl//+l + Hf//oRT//54M//+bBf/ddwD/57F3//fu6v/16uX/8+fh//Lk3P/v39f/dpa4/wZuuP8nlc7/Jnq0/wZQ + mv8AWpn/AF2Z/wBrpf82isD/27in/9q2pP/Zs5//166a/9Wrlv/VjEn/r0UA/zMaDa8zGg1QMxoNFAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpJDf//t0r//7RC//+w + Ov//rTL//6or//+nI///oxn//6AS//+dCv/hfAH/6rR4//jx7f/27ej/9Onk//Pm3//x4tr/7t7W/+za + 0f/r183/6dPH/+fPw//lyr3/3cO4/6+mr/+nn6v/3byr/9u4p//ataL/2LGd/9atmf/YkEr/skgA/zMa + Da8zGg1QMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpJ + Dv//ulH//7ZH//+zQP//rzf//60x//+pKP//piD//6MY//+fEP/mgAH/7bh5//nz7//37+v/9evm//To + 4v/y5N3/8ODY/+3c1P/r2M7/6tXK/+jRxf/mzcH/5Mm8/+PGt//hwrL/3r6u/9y6qf/bt6X/2bOg/9ev + m//bk0z/tkoA/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKpKD///vFb//7lO//+1Rf//sj3//641//+sL///qCb//6Ue//+iFf/qhAL/8Lt7//r1 + 8v/48e3/9u3p//Tp5P/z5t//8eLa/+7e1v/s2tH/69fN/+nTyP/nz8P/5cu+/+PHuf/ixLX/4MCx/928 + rP/buKf/2rWi/9ixnf/elk3/uk0A/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpKEP//vlr//7tT//+3Sv//tEL//7E7//+uM///qyz//6cj//+k + Gv/uiQP/8798//v39f/58+//9/Ds//Xr5v/06OL/8uTd//Dg2P/u3dT/7NnP/+rVy//o0sb/5s3B/+TJ + vP/jxrj/4cKy/96+r//cuqn/27el/9m0of/hmk7/vlAA/zMaDa8zGg1QMxoNFAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpKEf//v2D//71Y//+6Uf//tkj//7NA//+w + OP//rTH//6ko//+mIf/yjQT/9sJ9//z59//69fL/+PLu//bt6f/16uT/8+bg//Hj2//u3tb/7dvS/+vX + zf/p1Mn/59DE/+XLv//kyLr/4sS2/+DAsf/dvKz/3Lmo/9q2o//knlD/wlEA/zMaDa8zGg1QMxoNFAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpLEf//wWX//79e//+8 + Vv//uU7//7VF//+yPf//rzb//6wv//+oJv/2kgX/+cV+//37+v/79/X/+fPw//fw7P/27Of/9Oji//Ll + 3v/w4dn/7t3V/+zZz//q1sz/6NLG/+fOwv/kybz/48a4/+HDs//evq//3buq/9u3pf/noVH/xVYA/zQb + Da00Gg1PMxoNFAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpL + Ev//xGz//8Bj//++Wv//u1T//7dK//+0Q///sTv//64z//+rLP/6lgb/+pwV//qkKf/6pCn/+aMo//mj + J//5sU3/975y//e9cP/2u23/9blr//HDjP/uzKv/7Mmn/+vGo//pwp//5sSr/+LFtv/gwbH/3r2t/9y5 + qP/qpVL/yVkA/zQbDqE0HA5JORwOEgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAKpLE///xnL//8Jo//+/Yf//vVj//7pR//29Xv/6yof/9Ni4//Df1f/u3tX/7NrR/+vX + zf/q1Mr/6NHF/+bNwf/pwp7/57+a/+a8l//kuZT/47eQ/+eucf/sp1L/66VR/+qkTv/pok3/6aBK//Sb + IP/2mhf/9pkX//aYFv/1mBX/zlsA/zceD3g5HA42OycUDQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKpMFP//yHf//s2F//zbrP/56tb/9+/r//Xs5//06eP/8uXf//Hi + 2//v39f/7dzT/+zZz//q1cv/6dPI/+fPw//mzMD/5Mm7/+LGt//gwrP/376v/968q//cuKf/2LKe/86d + hP/MmoH/t29L/7ZuSf+lTCD/okUX/7NINP+tMRH/oicE3jgcDjczHwoZKysABgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJs4B/+pVCr/qVQp/6lTKP+pUyj/sWQ9/7Rq + Rf+4b0z/u3dV/8WLbv/EiWz/w4hq/8KGaP/ChWb/wYNk/8CCYv+/gGD/v35e/75+Xf+0akX/rFkw/6lU + Kv+jSBz/rDsb6nohAdN5IQLHciECpHMhAqFmIQRtaSIEZlIgCDY6IQgfOiMMFjckEg4rKwAGAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgSEAEIEh + ACGBIQArgSEANYEhAD2BIQBAgSEATIEhAFeBIQBhgSEAcYEhAHyBIQCAgSEAgIEhAICBIQCAgSEAbYEh + AF2BIQBQgSEATIEhAEaBIQA6gSEALYEhAB+BIQAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4AD///AAD//AAA//8AAP/4AAAP/wAA//AAAAD/ + AAD/4AAAAD8AAP/AAAAAHwAA/4AAAAAPAAD/AAAAAA8AAP4AAAAABwAA/gAAAAAHAAD+AAAAAAMAAP4A + AAAAAwAA/gAAAAADAAD+AAAAAAMAAP4AAAAAAwAA/gAAAAADAAD+AAAAAAMAAP4AAAAAAwAA/gAAAAAD + AAD+AAAAAAMAAP4AAAAAAwAA/gAAAAADAAD+AAAAAAMAAP4AAAAAAwAA/gAAAAADAAD+AAAAAAMAAP4A + AAAABwAA/gAAAAAHAAD+AAAAAA8AAP4AAAAADwAA/gAAAAAPAAD+AAAAAA8AAP4AAAAADwAA/gAAAAAP + AAD+AAAAAA8AAP4AAAAADwAA/gAAAAAPAAD+AAAAAA8AAP4AAAAADwAA/gAAAAAPAAD+AAAAAA8AAP4A + AAAADwAA/gAAAAAPAAD+AAAAAA8AAP4AAAAADwAA/gAAAAAPAAD+AAAAAB8AAP+AAAB//wAAAAAAACgA + AAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAErKwAFPSQMEUAiCio/IglXPyEMZTkdC0c9Hwo8PyEIMT4iCyQ+IwkXQBoNEEkk + Egs5HAAHMzMABIAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABKysABTojDBI+IwkuViIGh08fB8g1GwzGNRsMwjseC7Q9IAuaPSAMdToe + C0o9Hwo8PyEIMT4iCyQ+IwkXQBoNEEkkEgs5HAAHMzMABIAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAASsrAAU6IwwSPSMJL1UhB4mXNAH7mTMA/5s4B/9vIAP7XR8G9Eod + Ceg1HA3SNhsNxTseC7Q9IAuaPSAMdToeC0o9Hwo8PyEIMT4iCyRAJAkWRCIRDCsrAAUAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEzMwAEPSQMET4jCS5VIQeJmDYB+81mAP+ZMwD/mTMA/5kz + AP+ZMwD/mTMA/4EhAP9vIAP7XR8G9EodCeg1HA3SNhsNxTseC7Q9IAuaPSAMdTodDEY6HwkuPR8KFFUr + AAUAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEAAA0MoDQ88IAksVSEGiJo3AfvTbQD/0WoA/5kz + AP+hRBX/4sS1/+PHuf/Nm4L/smU+/58/D/+ZMwD/mTMA/4EhAP9vIAP7XR8G9EodCeg1HA3SNRsMvDoe + C5M8HhEwORwODgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAIBANPSQKKFciB4CcOQH72XIA/9dw + AP/TbQD/nz8P/7dvS//jx7n/69fN/+jSx//ly73/4sW3/9mzoP/GjXH/rl42/549Df+ZMwD/gSEA/4Eh + AP9vIAP5NR0PwT0hFFBCLB0cSSQkBgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAD0kDCJSIgdrnzkB+t94 + AP/ddgD/2XMA/9VvAP+fQBH/uXNQ/+XKvP/t2tH/6tXK/+fPw//kybv/4cO0/928rP/bt6b/2LGd/9Ci + iv+/f2D/q1gu/65dNf9KLR/fRSsfnUYsHy5OOycK/wAAAQAAAAAAAAAAAAAAAAAAAAAAAAAATCIIUIou + Au/lfwD/5H0A/+B5AP/cdQD/2HEA/59AEf+6dFH/5s3A/+7d1f/r2M7/6dPI/+XMvv/ixrf/38Cw/926 + qf/ataP/16+a/9Spk//Ro4z/zp2F/8mdjv1EKx6xSCsgOUs8LQ6AAAACAAAAAAAAAAAAAAAAAAAAAAAA + AACPMAHj64QA/+qEAP/mgAD/43wA/954AP/bdAD/oEIT/7x4Vv/n0MT/8OHZ/+3b0v/q1cv/59DE/+LG + uP/cuaj/2rWi/9mzoP/Ysp7/1ayX/9OmkP/QoYr/xpyX/UQqHrZHLCI8QzYoD4AAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAMVfAP/wigD/7IUA/+iCAP/lfgD/4XsA/913AP+gQhP/vXta/+rUyf/x5Nz/797W/+zY + zv/o0cb/0KGK/86dhf/OnoX/z6CI/9Ciiv/WrJf/1KqU/9Gjjf/Hn5n9RCwet0YvIj1DNigPgAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAx2EA//KMAP/uiAD/64UA/+eBAP/kfQD/4HkA/6FEFf+/f1//7NjO//Pm + 4P/w4dr/7dzT/9ewnP+llof/urSv/9e4qv/bt6X/ypV7/8qVev/WrZj/06aQ/8iinf1ELB+3Ri8iPVE2 + KA+AAAACAAAAAAAAAAAAAAAAAAAAAAAAAADIYgD/9Y4A//GLAP/thwD/6oQA/+aAAP/jfAD/oUQV/7+A + YP/s2tH/9evm//Hk3f/v39f/J4W1/xOFyf8TZqn/AF2Z/wZjm/9NeJn/y5h9/9iwnP/Vq5X/yKSe/UQs + ILdGLyI9UTYoD4AAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAMljAP/4kQD/840A//CKAP/shQD/6YMA/+V+ + AP+bPxH/ZUQz/+3a0f/27un/8+fi//Hi2v/Tys7/69fM/+jRxv/ex7z/sKWw/y2Ct//cuaj/2bSh/9at + mf/JpJ/9RSwht0YvIj1RNigPgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAy2UA//qTAP/2kAD/8owA/+6I + AP/rhQD/54EA/38qAP8dDwj/7t3U//jw7f/16+f/8uXe//Dg2P/s2dD/6dTJ/+fOwv/jyLr/4cKz/928 + q//bt6X/2LCc/8qloP1FLCG3Ri8iPVE2KA+AAAACAAAAAAAAAAAAAAAAAAAAAAAAAADMZgD//JYA//mS + AP/1jgD/8YsA/+2HAP/qhAD/fyoA/x0PCP/v39f/+vXy//bu6v/06OP/8eLb/+7d1P/r183/6NLH/+XL + vv/ixrf/37+v/9y6qf/ataL/y6ii/UYuIbZLMCU8UTYoD4AAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAMxm + AP/+mAD/+5UA//iRAP/zjQD/8IoA/+yFAP9/KgD/hVYw/+rVy//059r/+PHu//bs5//y5d//8ODY/+3a + 0f/q1cr/58/D/+TJu//hw7T/3bys/9u3pv/MqqX8Ry0hsUsvJDlaPC0OgAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAzGcE//+ZAP/9lwD/+pMA//aQAP/yjAD/74kA/8eDWv/2zaL/2auC/9uqgP/eqn7/uodg/92u + i//jvaH/5b2d/+bNwP/nyLP/5sy//+LGuP/fwLD/1rOi/82rpftGLSGeRiwjLk47Jwr/AAABAAAAAAAA + AAAAAAAAAAAAAAAAAADMaQn//5wH//+ZAP/8lgD/+ZIA//WPAP/2smL//fbw///69P/979z/+Ni0/+vN + t//uy6n/3a6L/9aphf//z5z/77R8/1o2JP90Tz3/bldL/4tsXf/AloD/wZmH/TwhFVZFKRweSSQkBgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAMxrDf//nxH//5oD//6YAP/7lQD/+qAm//3m0P////////////76 + 9f/659P/782v//DQtf/xz7L//Nm5/+Cvpv+ka1H/mVs7/65TGP+vTgv/lT0A/4IoAP8zGw7CNR0PRjUg + FRMAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzG0R//+jGf//ng3//5kA//2XAP/6lAD/96M1//rn + 1/////////z5//7z6f/23sn/6MWr//navv/js6r/u4Js/8WKbf/QoIj/0qWP/9CgiP/MmH7/lS8A/zMa + Db8yGQ1BMxoNEAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMbhX//6Yi//+hFf//nAj//pgA//yW + AP/5kgD/0H46//fk1v///Pn//fPp//fWyP/8483/5rms/8SRe//Pnob/1qyX/9eumv/UqZP/0aOM/86d + hf+cNQD/MxoNvzMaDUAzGg0QAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMxwGf//qSr//6Ud//+g + Ef//mgT//pgA//uVAP/LdCX/7tTC//Pdzf/ru5H/2pZa/+innf/OoY3/2LGd/9u2pP/bt6X/2bKe/9Ws + l//TppD/0KCJ/6A5AP8zGg2/MxoNQDMaDRAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzHIe//+s + Mf//qCX//6Ma//+eDf//mQH//ZcA/9F6Jv/06OP/69LC/+jHrP/Zp4P/y5mB/8yZgP/OnIT/zpyE/9Gi + i//Wrpn/16+a/9SplP/Ro43/pj0A/zMaDb8zGg1AMxoNEAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADMcyL//7A6//+rLf//piL//6IW//+cCP/+mQD/2IEn//Xs5//y5t//8ODY/62uuv9FnL//J3y2/zJt + oP9wjKb/oYmL/9Spk//Zsp//1q2Y/9Onkf+sQQD/MxoNvzMaDUAzGg0QAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAMx1Jv//tEP//641//+qKv//pR7//6AS//+aBP/eiCf/9+/r//Tp5P/x49z/s7PG/7ez + w//CuMD/gIiv/3GFqf8zd7D/yq+o/9q2o//YsJz/1aqU/7FGAP8zGg2/MxoNQDMaDRAAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAzHcr//+3S///sj///60y//+oJv//oxr//54N/+SOKP/58u//9uzo//Pm + 4f/w4dn/7dvS/+rVy//nz8T/5Mq8/+LEtf/evq7/3Lmn/9mzoP/WrZn/t0kA/zMaDb8zGg1AMxoNEAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMeS///7pU//+1SP//sDr//6su//+mIv//ohb/65Up//r1 + 8//37+z/9erl//Hk3f/v3tb/7NjP/+nTyP/mzcH/48e5/+DBsv/du6v/2rak/9ixnf+9TwD/MxoNvzMa + DUAzGg0QAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMx6Mv//vl3//7lP//+0Q///rjb//6oq//+l + Hv/znSn//Pn3//nz8P/27ej/8+fh//Dh2f/t29P/69bM/+fQxf/lyr3/4sS2/9+/r//cuaf/2rSh/8NS + AP80Gw67NRoNPjYbDQ8AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzHw3///BY///vFn//7dL//+y + QP//rTL//6gm//ibFf/7x3z/+sR5//jBdf/3vnL/89Ks//HSs//uza3/7Mmn/+nGp//jx7n/4cKz/928 + q//bt6X/yVcA/zYcDKk5Gws2PB4PDgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMfTv//8Rt//7B + ZP/9xnb/+tCV//Tdw//v4Nj/7dvS/+vWzP/o0cb/5s3A/+PIuv/gso3/4raQ/+Kxif/grYL/3qp//+mh + S//mm0b/2IYx/9aBK//aXAX/RCQNcT4iCyRGFwAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALJh + NP/Lj2r/yZR5/8iSdv/Hj3P/xYtu/8WJbP/DiGr/woVn/8GDZP/AgGH/u3dX/7lyUv+2aUn/sVo7/6RI + I++nTib0q1Mu9KdJKOKnTS7bizcWupJAHrNtOBs1RysODkBAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAgSEAHIEhACSBIQAqgSEAMoEhADuOMhFWhScFXIEhAHCBIQCAgSEAgIEhAICBIQCAiy4Mco8z + EW6GKAZOgSEANYEhABypVDEdqVQxCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/wAAP/4A + AAf8AAAD+AAAAfgAAAH4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPgA + AAD4AAAA+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAA/gA + AP8AAAAAKAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAUYu + FwVHKw4OQiYJIUorCYY+IQubQiMKhkMjCV06HgsmOx8KHj4jCRdBIQ0QPSQMCUkkAAMAAAAAAAAAAE0z + AARHKw4OQScMIok2A9BzIAPsYR4G3k0dCc00Gw22NRsMrjwfCqFCIwl+RCYLTUEkEBpHKRQKAAAAAAAA + AABGLAkMQiYNIZY9A9a/WQD/nTwL/82Ed/+6UjP/rS8G/3EgA/BbHgbcRxwKxzYcDq1IKhaCRigZFQAA + AAAAAAAASCsKFptBAtHTbQD/y2QA/7BhOf/s2tD/59DD/+HCs//bt6b/y5d9/7NDKv+CKhLiRy4hnkYs + HhwAAAAAAAAAAJo5AZveeAD/4nsA/89pAP+1a0b/8OHZ/+rWy//kybz/27im/9iwnf/SpI7/ypyN+0kv + I6JHLB8eAAAAAAAAAAC+UADH74gA/+eAAP/UbgD/t25K//To4//t29L/rqab/7abk//Nm4L/06iS/82i + lPtJMCWjRi8iHgAAAAAAAAAAwVUAx/SNAP/shQD/2HEA/3lJMP/37ur/8OHZ/5ygu/+zrLf/WXKe/9mz + oP/Pp5v7SjEmokovIh4AAAAAAAAAAMFVAcf5kgD/8YsA/9x2AP82Fwj/+vTx//Tq5P/t3NP/6NLG/+LE + tf/cuKf/0q6j+0oxJaJILR8eAAAAAAAAAADLVwHH/ZcA//aQAP/iewD/0aB8/+K2jP/drHn/5r+a//HK + n//PtKb/2bmq/9W0q/tJLRyYSCsZHQAAAAAAAAAA7FoBx/+ZAv/8lQD/+rtr///////238b/8dO7//TP + r/+7hmX/gj8a/3A2Ef+SQS7nRygMi0UqExsAAAAAAAAAAO5eCMf/nxH//pkA//GMBP/wzbD/+/Lq//XZ + xv/YrJT/z6CI/9OnkP/Kj23/aiUG30gpC4pGJwwaAAAAAAAAAADrZxrH/6cj//+cCv/1jwD/7NG7/+zA + lP/UlXD/z6CI/9Kljv/Xr5v/z5h0/28qBt9KLAqKSysMGgAAAAAAAAAA6W0qx/+vN///oxr/+JMD//La + w//x5N3/icva/3Ocr/9Je6n/2rSi/9Wge/90LgbeTi4KiUwsDBoAAAAAAAAAAOdwNcf/tkj//6os//ub + EP/34cn/9evl/+/e1v/p08j/48e5/9y6qf/bqIP/ejIG3VAxC4ZNLw0YAAAAAAAAAADlekfH/7xY//+y + QP/9ox3//Nyu//nixf/02Ln/782s/+rEoP/lupT/5Kxy/7BNDNxYORltTzMTFgAAAAAAAAAA129Fv+2v + k//jsqP/3Kig/+rV2//lx87/2a6z/9mlodbRi4rKz4uIoNuAYZXgkW5l////CgAAAADAAAAAwAAAAMAA + AADAAAAAwAAAAMAAAePAAAD/wAAA/8AAAP/AAAD/wAAA/8AAAP/AABP/wABW/8AAxP/AAdn/AAAAAA== + + + \ No newline at end of file diff --git a/ImportDokMag/MainFrm.vb b/ImportDokMag/MainFrm.vb new file mode 100644 index 0000000..43e91b5 --- /dev/null +++ b/ImportDokMag/MainFrm.vb @@ -0,0 +1,532 @@ +Imports System.Globalization +Imports System.IO +Imports System.Text + +Public Class MainFrm + Public Tylko_Listing As Boolean + Public f_out As StreamWriter ' Plik wyjściowy + Public SourceConnected As Boolean = False + + Private Structure DokKolumny + Public cLp As Integer + Public cDokument As Integer + Public cDokZr As Integer + Public cDZKOpis As Integer + Public cDataWyst As Integer + Public cDataOper As Integer + Public cSumaCT As Integer + Public cSumaDT As Integer + Public cDZKDziennik As Integer + Public cDekret As Integer + Public cRokMiesiac As Integer + Public cDataImp As Integer + Public cMagazyn As Integer + Public cKontrahent As Integer + Public cOpisDok As Integer + Public cDokKor As Integer + End Structure + + Private SpFlag, ZakFlag, WewFlag As Integer + Private RM, Rok, Mies As Integer + Private SrcConn_str, DstConn_str As String + Private KD As DokKolumny + + '---------------------------------------------------------- + Private Const INT_lens As Integer = 1 + Private ReadOnly p As Int32() = {2, 4, 7, 9, 3, INT_lens} + + Public Function Encrypt(ByVal inputstr As String) As String + Dim str As StringBuilder + Dim b As Int32 = 6 + Dim i, j, k, c, cc, bb, lens As Int32 + + If inputstr > "" Then + str = New StringBuilder(inputstr) + lens = str.Length + While (lens < b) OrElse (lens Mod b) + str.Append(” “) + lens += INT_lens + End While + cc = (lens / b) - INT_lens + For i = 0 To cc + bb = b - INT_lens + For j = 0 To bb + k = p(j) + 50 + c = (b * i + j) + str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens) + Next + Next + Return str.ToString + Else + Return "" + End If + str = Nothing + End Function + + Public Function Decrypt(ByVal inputstr As String) As String + Dim str As StringBuilder + Dim b As Int32 = 6 + Dim i, j, k, c, c1, cc, bb, lens As Int32 + + If inputstr > "" Then + + str = New StringBuilder(inputstr) + lens = str.Length + While (lens < b) OrElse (lens Mod b) + str.Append(” “) + lens += INT_lens + End While + + cc = (lens / b) - INT_lens + For i = 0 To cc + bb = b - INT_lens + For j = 0 To bb + k = p(j) + 50 + c = (b * i + j) + c1 = Asc(str.Chars(c)) + c1 -= k + str.Replace(str.Chars(c), Chr(c1), c, INT_lens) + Next j + Next i + Return str.ToString + Else + Return "" + End If + str = Nothing + End Function + + Private Function zrob_polaczenie(srv As String, baza As String, user As String, pass As String) + Dim cnstr As String + + cnstr = "Data Source=" & srv & ";Initial Catalog=" & baza + cnstr += ";Persist Security Info=false;User ID=" & Decrypt(user).Trim & ";Password=" & Decrypt(pass).Trim & ";TrustServerCertificate=True;Connection Timeout=30" + Return (cnstr) + End Function + + Private Function PolaczBaze() As Boolean + Dim B1, conn, pp, K1 As String + Dim ret As Boolean = False + + lbUwaga.Text = "Czekaj: Logowanie do ERPXL" + lbUwaga.Visible = True + lbUwaga.BringToFront() + lbUwaga.Refresh() + + If Strings.Left(UCase(My.Settings.BazaDst), 6) = "CDNXL_" Or Strings.Left(UCase(My.Settings.BazaDst), 6) = "ERPXL_" Then + B1 = Mid(My.Settings.BazaDst, 7) + Else + B1 = My.Settings.BazaDst + End If + K1 = My.Settings.SerwerKlucza + If Not Zalogowany Then listuj(" Logowanie do ERP XL - proszę czekać...") + ret = Zaloguj(B1, "", "", K1) + If ret Then + listuj(" sprawdzanie dostępności licencji...") + ret = XLSprawdzLicencje() + If ret Then + listuj(" Zalogowano pomyslnie do ERP XL") + conn = FunkcjeXL.Polaczenie() 'string połączenia wyznaczony przez API + pp = InStr(conn.ToUpper, "SERVER=") + If pp > 0 Then + conn = Mid(conn, pp) + End If + DstConn_str = conn + ret = True + Else + listuj("!! Nie udało się pobrać licencji stanowiskowej ERP XL.") + Wyloguj() + ret = False + End If + Else + listuj("!! Nie udało się zalogować. Proszę uruchomić aplikację ERP XL !!") + End If + If Not ret Then + TcZakladki.SelectedTab = TpList + TpList.Select() + End If + lbUwaga.Text = "Czekaj: pobieranie danych" + lbUwaga.Visible = False + lbUwaga.Invalidate() + Return ret + End Function + + '---------------------------------------------------------- + + Public Sub UstawKolumny() + With KD + .cLp = DgvDokumenty.Columns.Item("colLp").Index + .cDokument = DgvDokumenty.Columns.Item("colDokument").Index + .cDokZr = DgvDokumenty.Columns.Item("colDokZr").Index + .cDZKOpis = DgvDokumenty.Columns.Item("colDZKOpis").Index + .cDataWyst = DgvDokumenty.Columns.Item("colDataWyst").Index + .cDataOper = DgvDokumenty.Columns.Item("colDataOper").Index + .cSumaCT = DgvDokumenty.Columns.Item("colSumaCT").Index + .cSumaDT = DgvDokumenty.Columns.Item("colSumaDT").Index + .cDZKDziennik = DgvDokumenty.Columns.Item("colDZKDziennik").Index + .cDekret = DgvDokumenty.Columns.Item("colDekret").Index + .cRokMiesiac = DgvDokumenty.Columns.Item("colRokMiesiac").Index + .cDataImp = DgvDokumenty.Columns.Item("colDataImportu").Index + .cMagazyn = DgvDokumenty.Columns.Item("colMagazyn").Index + .cKontrahent = DgvDokumenty.Columns.Item("colKontrahent").Index + .cOpisDok = DgvDokumenty.Columns.Item("colOpisDok").Index + .cDokKor = DgvDokumenty.Columns.Item("colDokKoryg").Index + End With + End Sub + + Private Sub CbWewn_CheckedChanged(sender As Object, e As EventArgs) Handles CbWewn.CheckedChanged + If CbWewn.Checked Then + WewFlag = 1 + Else + WewFlag = 0 + End If + OdswiezDane() + End Sub + + Private Sub BtOdswiez_Click(sender As Object, e As EventArgs) Handles BtOdswiez.Click + If SourceConnected Then OdswiezDane() + End Sub + + Private Sub CbZakup_CheckedChanged(sender As Object, e As EventArgs) Handles CbZakup.CheckedChanged + If CbZakup.Checked Then + ZakFlag = 1 + Else + ZakFlag = 0 + End If + OdswiezDane() + End Sub + + Private Sub edRok_ValueChanged(sender As Object, e As EventArgs) Handles edRok.ValueChanged + If SourceConnected And IsNumeric(edRok.Value) Then + Rok = edRok.Value + Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies) + BsTbmyImpDMKonta.ResetBindings(False) + OdswiezDane() + End If + End Sub + + Private Sub CbMiesiac_TextChanged(sender As Object, e As EventArgs) Handles CbMiesiac.TextChanged + If SourceConnected Then + Mies = CbMiesiac.Items.IndexOf(CbMiesiac.Text) + 1 + Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies) + BsTbmyImpDMKonta.ResetBindings(False) + OdswiezDane() + End If + End Sub + + Private Sub DgvDokumenty_KeyPress(sender As Object, e As KeyPressEventArgs) 'Handles DgvDokumenty.KeyPress + Dim wiersz As DataGridViewRow + Dim check As Boolean + Dim colWybrany, colData, kk As Integer + + Select Case e.KeyChar + Case " " + kk = 0 + colWybrany = DgvDokumenty.Columns.Item("Wybrany").Index + colData = DgvDokumenty.Columns.Item("colDataImportu").Index + For Each wiersz In DgvDokumenty.SelectedRows + If wiersz.Cells(colData).Value <= "1990-01-01 00:00:00" Then + check = wiersz.Cells(colWybrany).Value + wiersz.Cells(colWybrany).Value = Not check + If (kk Mod 10) = 0 Then Application.DoEvents() + End If + kk += 1 + Next + End Select + End Sub + + Private Sub CbSprzedaz_CheckedChanged(sender As Object, e As EventArgs) Handles CbSprzedaz.CheckedChanged + If CbSprzedaz.Checked Then + SpFlag = 1 + Else + SpFlag = 0 + End If + OdswiezDane() + End Sub + + Private Sub DgvDokumenty_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DgvDokumenty.RowPostPaint + If Not DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value Is DBNull.Value Then + If CStr(DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value) > "1990-01-01" Then DgvDokumenty.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red + End If + End Sub + + Private Sub BtImport_Click(sender As Object, e As EventArgs) Handles BtImport.Click + Dim DoImportu As New List(Of DataGridViewRow) 'kopia zaznaczonych do importu dokumentów + Dim Aktwiersz As DataGridViewRow + Dim AktualnyDokument As String = "" + Dim ret, Nr_ZapisuSrc As Integer + Dim sql, ss, tresc, nrdok, s1, s2 As String + + If Not SourceConnected Then Return + + If DgvDokumenty.Rows.Count > 0 Then + If System.Windows.Forms.MessageBox.Show("Czy zaimportować zaznaczone dokumenty ?", "", MessageBoxButtons.YesNo) = DialogResult.No Then + Return + End If + + DoImportu.Clear() + UstawKolumny() 'powiązanie nazw kolumn z ich indeksem + For Each wiersz In DgvDokumenty.SelectedRows 'zrób kopię zaznaczonych na niebiesko dokumentów + Dim targetRow = CType(wiersz.Clone(), DataGridViewRow) + For Each cell As DataGridViewCell In wiersz.Cells + targetRow.Cells(cell.ColumnIndex).Value = cell.Value + Next + DoImportu.Add(targetRow) + Next + If DoImportu.Count > 0 Then + 'zaloguj do XL + listuj("Start importu: " + Now) + ret = PolaczBaze() + If ret Then + DgvDokumenty.CurrentCell = DgvDokumenty(0, 0) + Aktwiersz = DgvDokumenty.CurrentRow + For Each wiersz In DoImportu + Aktwiersz = wiersz + DgvDokumenty.CurrentCell = DgvDokumenty(0, wiersz.Cells.Item(0).Value - 1) 'pokaż aktualnie przetwarzany wiersz + If (wiersz.Cells.Item(KD.cDataImp).Value <= "1990-01-01 00:00:00") And (AktualnyDokument <> wiersz.Cells.Item(KD.cDokument).Value) Then 'dekret nie zaimportowany + AktualnyDokument = wiersz.Cells.Item(KD.cDokument).Value 'Nowa nota memoriałowa - numer dokumentu w Jastrzębiu + Nr_ZapisuSrc = wiersz.Cells.Item(KD.cDekret).Value 'Dekret (DZK_GIDNumer) źródłowy + tresc = " " + s1 = AktualnyDokument.Substring(0, 2) + If s1 = "PZ" Or s1 = "WZ" Or s1 = "KK" Or s1 = "PK" Or s1 = "WK" Then + ss = IIf(IsNothing(wiersz.Cells.Item(KD.cKontrahent).Value), " ", wiersz.Cells.Item(KD.cKontrahent).Value) + If ss > " " Then tresc = ss + End If + ss = IIf(IsNothing(wiersz.Cells.Item(KD.cOpisDok).Value), " ", wiersz.Cells.Item(KD.cOpisDok).Value) + If ss > " " Then + If tresc > " " Then tresc += "; " + ss Else tresc = ss + End If + If tresc < " " Then tresc = "brak opisu" + nrdok = "" + s1 = AktualnyDokument.Substring(0, 3) + If s1 = "PZK" Or s1 = "PKI" Or s1 = "WZK" Or s1 = "WKE" Or s1 = "RWK" Or s1 = "PWK" Then + nrdok = AktualnyDokument + ", " + IIf(IsNothing(wiersz.Cells.Item(KD.cDokKor).Value), "", wiersz.Cells.Item(KD.cDokKor).Value) + Else + nrdok = AktualnyDokument + End If + System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL + Try + If UtworzNote(nrdok, wiersz.Cells.Item(KD.cDataWyst).Value, '"Data Wystawienia" + wiersz.Cells.Item(KD.cDataWyst).Value, 'wszystkie daty takie same + wiersz.Cells.Item(KD.cDokZr).Value, '"Dokument źródłowy" + tresc) Then '"treśc noty" + ss = IIf(IsNothing(wiersz.Cells.Item(KD.cDZKOpis).Value), " ", wiersz.Cells.Item(KD.cDZKOpis).Value) + s1 = AktualnyDokument.Substring(0, 2) + If s1 = "WZ" Or s1 = "WK" Or s1 = "RW" Or s1 = "PW" Then ss = tresc 'dla WZ/WZE/WZK/WKE, RW/RWK/PW/PWK opis pozycji taki sam jak treść noty + If DodajPozycjeNoty(Nr_ZapisuSrc, wiersz.Cells.Item(KD.cDataWyst).Value, + wiersz.Cells.Item(KD.cDataWyst).Value, + ss, nrdok) Then 'dodajpozycje noty + ZamknijNote(True) 'zamknij notę + System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL + 'oznacz dokument jako zaimportowany + sql = "update CDN.Dekrety Set DT_DataCentrali = datediff(s,'19900101', GetDate()) where DT_GIDNUmer = " & Str(Nr_ZapisuSrc) + SqlCmd(sql, SrcConn_str) + System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL + 'AktualnyDokument = "" + sql = "update CDN.MemNag set MEN_CechaOpis = '" + IIf(IsNothing(wiersz.Cells.Item(KD.cMagazyn).Value), "", wiersz.Cells.Item(KD.cMagazyn).Value) + "' " + sql += " where MEN_GIDNumer = " + CStr(GIDNumer) + SqlCmd(sql, DstConn_str) + System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL + Else + ZamknijNote(False) 'usuń utworzoną notę + AktualnyDokument = "" + End If + End If + Catch ex As System.Exception + ret = False + System.Windows.Forms.MessageBox.Show("ImportClick: " & ex.Message) + End Try + Else + listuj(CStr(Now) & "-> Dokument: " & wiersz.Cells.Item(2).Value & " już jest zaimportowany !!") + End If + Next + End If + Tylko_Listing = False + OdswiezDane() + End If + TcZakladki.SelectedTab = TpList + TpList.Select() + End If + End Sub + + Private Sub BtKonfig_Click(sender As Object, e As EventArgs) Handles BtKonfig.Click + dlgKonfig.ShowDialog() + End Sub + + Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick + Dim plik As String + + Timer.Stop() + My.Settings.Reload() + Try + plik = My.Settings.FolderR_Roboczy + "\ImportDM-" + Replace(Replace(Replace(Now, ":", "."), "/", "."), " ", "_") + ".LOG" + f_out = System.IO.File.CreateText(plik) + Tylko_Listing = False + Catch + Tylko_Listing = True + End Try + Timer.Enabled = False + Application.DoEvents() + If My.Settings.SerwerSrc > "" Then + SrcConn_str = zrob_polaczenie(My.Settings.SerwerSrc, My.Settings.BazaSrc, My.Settings.MCsrc, My.Settings.Comsrc) + Tamy_ImpDM_Src.Connection.ConnectionString = SrcConn_str + Tamy_ImpDM_Dekr.Connection.ConnectionString = SrcConn_str + Tamy_ImpDM_Konta.Connection.ConnectionString = SrcConn_str + SourceConnected = True + Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies) + BsTbmyImpDMKonta.ResetBindings(False) + OdswiezDane() + End If + If My.Settings.SerwerKlucza > "" And My.Settings.BazaDst > "" Then PolaczBaze() + 'If Zalogowany Then OdswiezDane() + End Sub + + Private Sub BtUsunFlage_Click(sender As Object, e As EventArgs) Handles BtUsunFlage.Click + If DgvDokumenty.Rows.Count > 0 Then + If System.Windows.Forms.MessageBox.Show("Czy usunąć flagę z zaznaczonych dokumentów ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then + Dim sql As String + Dim col As Integer + + col = DgvDokumenty.Columns("colDekret").Index + For Each wiersz In DgvDokumenty.SelectedRows + sql = "update CDN.Dekrety set DT_DataCentrali = 0 where DT_GIDNUmer = " & Str(wiersz.Cells(col).Value) + SqlCmd(sql, SrcConn_str) + Next + OdswiezDane() + End If + End If + End Sub + + Private Sub BtKoniec_Click(sender As Object, e As EventArgs) Handles BtKoniec.Click + Wyloguj() + If Not IsNothing(f_out) Then + f_out.Flush() + f_out.Close() + End If + Close() + End Sub + + Private Sub OdswiezDane() + Dim Konto As String + Dim ImpFl, pos As Integer + + If Not SourceConnected Then Return + + Konto = CbKonto.Text + ImpFl = 2 + If RbBlack.Checked Then ImpFl = 0 Else If RbRed.Checked Then ImpFl = 1 + + RM = CInt(CStr(Rok) & IIf(Mies < 10, "0", "") & CStr(Mies)) + If RM < 2001 Or Mies <= 0 Then Return + Try + lbUwaga.Visible = True + Application.DoEvents() + lbUwaga.BringToFront() + Application.DoEvents() + lbUwaga.Refresh() + Application.DoEvents() + pos = BsTbmy_ImpDM_Src.Position + Tamy_ImpDM_Src.Fill(Me.DsMain.Tbmy_ImpDM_Src, SpFlag, ZakFlag, WewFlag, RM, Rok, Mies, Konto, ImpFl) + If pos < BsTbmy_ImpDM_Src.Count Then BsTbmy_ImpDM_Src.Position = pos Else BsTbmy_ImpDM_Src.Position = BsTbmy_ImpDM_Src.Count - 1 + lbUwaga.Visible = False + lbUwaga.Invalidate() + Catch ex As System.Exception + lbUwaga.Visible = False + Application.DoEvents() + lbUwaga.Refresh() + Application.DoEvents() + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + End Sub + + Private Sub MainFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Dim spr As String + + SpFlag = 0 + ZakFlag = 0 + WewFlag = 0 + Rok = Year(Now) + Mies = Month(Now) + edRok.Value = Rok + CbMiesiac.SelectedIndex = Mies - 1 + CbMiesiac.Text = CbMiesiac.Items(CbMiesiac.SelectedIndex) + RbAll.Checked = True + CbKonto.Text = "" + spr = Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper) + DecimalSep = NumberFormatInfo.CurrentInfo.NumberDecimalSeparator.ToString + DecimalGroupSep = NumberFormatInfo.CurrentInfo.NumberGroupSeparator.ToString + If spr <> My.Settings.check Then + MsgBox("Niezgodna konfiguracja. Ustaw od nowa") + My.Settings.SerwerSrc = "" + ' My.Settings.SerwerDst = "" + My.Settings.SerwerKlucza = "" + My.Settings.BazaSrc = "" + ' My.Settings.BazaDst = "" + My.Settings.FolderR_Roboczy = "" + My.Settings.MCsrc = "" + ' My.Settings.MCdst = "" + My.Settings.Comsrc = "" + ' My.Settings.Comdst = "" + My.Settings.check = spr + My.Settings.Save() + End If + Timer.Start() + End Sub + + Public Sub listuj(ByVal linia As String) + If linia > "" Then + LstWynik.Items.Add(linia) + + If Not Tylko_Listing Then + f_out.WriteLine(linia) + End If + If (LstWynik.Items.Count - 1) > 0 Then + LstWynik.TopIndex = Me.LstWynik.Items.Count - 1 + Else + LstWynik.TopIndex = 0 + End If + Application.DoEvents() + End If + End Sub + + Public Function SqlCmd(ByVal sql As String, conn_str As String) As Boolean + Dim wynik As Boolean + + wynik = False + Try + Using connection As New SqlClient.SqlConnection(conn_str) + Dim command As New SqlClient.SqlCommand(sql, connection) + connection.Open() + command.ExecuteNonQuery() + wynik = True + End Using + Catch ex As Exception + My.Forms.MainFrm.listuj(ex.Message) + End Try + Return (wynik) + End Function + + Public Function GetOneVal(ByVal sql As String, conn_str As String) As String + Dim val As String + + val = "" + Try + Using connection As New SqlClient.SqlConnection(conn_str) + Dim command As New SqlClient.SqlCommand(sql, connection) + connection.Open() + Dim reader As SqlClient.SqlDataReader = command.ExecuteReader() + While reader.Read() + If reader.IsDBNull(0) Then + val = "" + Else + val = CType(reader, IDataRecord)(0) + End If + End While + reader.Close() + End Using + Catch ex As Exception + My.Forms.MainFrm.listuj(ex.Message) + End Try + GetOneVal = val + End Function + +End Class diff --git a/ImportDokMag/My Project/Application.Designer.vb b/ImportDokMag/My Project/Application.Designer.vb new file mode 100644 index 0000000..3dfa0b5 --- /dev/null +++ b/ImportDokMag/My Project/Application.Designer.vb @@ -0,0 +1,44 @@ +'------------------------------------------------------------------------------ +' +' Ten kod został wygenerowany przez narzędzie. +' Wersja wykonawcza:4.0.30319.42000 +' +' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli +' kod zostanie ponownie wygenerowany. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'UWAGA: Ten plik został wygenerowany automatycznie; nie należy go bezpośrednio modyfikować. Aby wprowadzić zmiany + ' lub jeśli napotkasz w tym pliku błędy kompilacji, przejdź do Projektanta projektu + ' (przejdź do obszaru Właściwości projektu lub kliknij dwukrotnie węzeł Mój Projekt w + ' Eksploratorze rozwiązań) i wprowadź zmiany na karcie Aplikacja. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.ImportDokMag.MainFrm + End Sub + + _ + 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 diff --git a/ImportDokMag/My Project/Application.myapp b/ImportDokMag/My Project/Application.myapp new file mode 100644 index 0000000..d0d7904 --- /dev/null +++ b/ImportDokMag/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + MainFrm + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/ImportDokMag/My Project/AssemblyInfo.vb b/ImportDokMag/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..da34cf1 --- /dev/null +++ b/ImportDokMag/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Ogólne informacje o zestawie są kontrolowane poprzez następujący +' zestaw atrybutów. Zmień wartości tych atrybutów, aby zmodyfikować informacje +' powiązane z zestawem. + +' Sprawdź wartości atrybutów zestawu + + + + + + + + + + +'Następujący identyfikator GUID jest identyfikatorem biblioteki typów w przypadku udostępnienia tego projektu w modelu COM + + +' Informacje o wersji zestawu zawierają następujące cztery wartości: +' +' Wersja główna +' Wersja pomocnicza +' Numer kompilacji +' Rewizja +' +' Możesz określić wszystkie wartości lub użyć domyślnych numerów kompilacji i poprawki +' przy użyciu symbolu „*”, tak jak pokazano poniżej: +' + + + diff --git a/ImportDokMag/My Project/Resources.Designer.vb b/ImportDokMag/My Project/Resources.Designer.vb new file mode 100644 index 0000000..4b7bdb9 --- /dev/null +++ b/ImportDokMag/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' Ten kod został wygenerowany przez narzędzie. +' Wersja wykonawcza:4.0.30319.42000 +' +' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli +' kod zostanie ponownie wygenerowany. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Ta klasa została automatycznie wygenerowana za pomocą klasy StronglyTypedResourceBuilder + 'przez narzędzie, takie jak ResGen lub Visual Studio. + 'Aby dodać lub usunąć składową, edytuj plik ResX, a następnie ponownie uruchom narzędzie ResGen + 'z opcją /str lub ponownie utwórz projekt VS. + ''' + ''' Klasa zasobu wymagająca zdefiniowania typu do wyszukiwania zlokalizowanych ciągów itd. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + '''Zwraca buforowane wystąpienie ResourceManager używane przez tę klasę. + ''' + _ + 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("ImportDokMag.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Przesłania właściwość CurrentUICulture bieżącego wątku dla wszystkich + ''' przypadków przeszukiwania zasobów za pomocą tej klasy zasobów wymagającej zdefiniowania typu. + ''' + _ + 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/ImportDokMag/My Project/Resources.resx b/ImportDokMag/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ImportDokMag/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 + + \ No newline at end of file diff --git a/ImportDokMag/My Project/Settings.Designer.vb b/ImportDokMag/My Project/Settings.Designer.vb new file mode 100644 index 0000000..f636d3f --- /dev/null +++ b/ImportDokMag/My Project/Settings.Designer.vb @@ -0,0 +1,192 @@ +'------------------------------------------------------------------------------ +' +' Ten kod został wygenerowany przez narzędzie. +' Wersja wykonawcza:4.0.30319.42000 +' +' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli +' kod zostanie ponownie wygenerowany. +' +'------------------------------------------------------------------------------ + +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 "Funkcje automatycznego zapisywania My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, 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 + + _ + Public Property FolderR_Roboczy() As String + Get + Return CType(Me("FolderR_Roboczy"),String) + End Get + Set + Me("FolderR_Roboczy") = value + End Set + End Property + + _ + Public Property SerwerKlucza() As String + Get + Return CType(Me("SerwerKlucza"),String) + End Get + Set + Me("SerwerKlucza") = value + End Set + End Property + + _ + Public Property Seria() As String + Get + Return CType(Me("Seria"),String) + End Get + Set + Me("Seria") = value + End Set + End Property + + _ + Public Property SerwerSrc() As String + Get + Return CType(Me("SerwerSrc"),String) + End Get + Set + Me("SerwerSrc") = value + End Set + End Property + + _ + Public Property MCsrc() As String + Get + Return CType(Me("MCsrc"),String) + End Get + Set + Me("MCsrc") = value + End Set + End Property + + _ + Public Property Comsrc() As String + Get + Return CType(Me("Comsrc"),String) + End Get + Set + Me("Comsrc") = value + End Set + End Property + + _ + Public Property BazaSrc() As String + Get + Return CType(Me("BazaSrc"),String) + End Get + Set + Me("BazaSrc") = value + End Set + End Property + + _ + Public Property check() As String + Get + Return CType(Me("check"),String) + End Get + Set + Me("check") = value + End Set + End Property + + _ + Public Property BazaDst() As String + Get + Return CType(Me("BazaDst"),String) + End Get + Set + Me("BazaDst") = value + End Set + End Property + + _ + Public ReadOnly Property CS_Src() As String + Get + Return CType(Me("CS_Src"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ImportDokMag.My.MySettings + Get + Return Global.ImportDokMag.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ImportDokMag/My Project/Settings.settings b/ImportDokMag/My Project/Settings.settings new file mode 100644 index 0000000..a229474 --- /dev/null +++ b/ImportDokMag/My Project/Settings.settings @@ -0,0 +1,41 @@ + + + + + + c:\temp + + + crispcl\erp + + + MAGJ + + + crispcl\erp + + + + + + + + + ERPXL_Test + + + + + + CDNXL_GOTEC_80_20210809 + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=crispcl\erp;Initial Catalog=ERPXL_test;Integrated Security=True;TrustServerCertificate=True</ConnectionString> + <ProviderName>Microsoft.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=crispcl\erp;Initial Catalog=ERPXL_test;Integrated Security=True;TrustServerCertificate=True + + + \ No newline at end of file diff --git a/ImportDokMag/cab.ico b/ImportDokMag/cab.ico new file mode 100644 index 0000000..c66ec3a Binary files /dev/null and b/ImportDokMag/cab.ico differ diff --git a/ImportDokMag/dlgKonfig.Designer.vb b/ImportDokMag/dlgKonfig.Designer.vb new file mode 100644 index 0000000..9160e07 --- /dev/null +++ b/ImportDokMag/dlgKonfig.Designer.vb @@ -0,0 +1,416 @@ + _ +Partial Class dlgKonfig + Inherits System.Windows.Forms.Form + + 'Formularz przesłania metodę dispose, aby wyczyścić listę składników. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wymagane przez Projektanta formularzy systemu Windows + Private components As System.ComponentModel.IContainer + + 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows + 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows. + 'Nie należy modyfikować za pomocą edytora kodu. + _ + Private Sub InitializeComponent() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.OK_Button = New System.Windows.Forms.Button() + Me.Cancel_Button = New System.Windows.Forms.Button() + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() + Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.EdSeria = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.edBazaDst = New System.Windows.Forms.TextBox() + Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.edSerwerSrc = New System.Windows.Forms.TextBox() + Me.edBazaSrc = New System.Windows.Forms.TextBox() + Me.edUserSrc = New System.Windows.Forms.TextBox() + Me.edPassSrc = New System.Windows.Forms.TextBox() + Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.edHASPServer = New System.Windows.Forms.TextBox() + Me.edWorkingDir = New System.Windows.Forms.TextBox() + Me.TableLayoutPanel1.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() + Me.TableLayoutPanel4.SuspendLayout() + Me.TableLayoutPanel3.SuspendLayout() + Me.TableLayoutPanel5.SuspendLayout() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(288, 305) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 32) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'OK_Button + ' + Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.OK_Button.Location = New System.Drawing.Point(3, 4) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(66, 23) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "OK" + ' + 'Cancel_Button + ' + Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel_Button.Location = New System.Drawing.Point(75, 4) + Me.Cancel_Button.Name = "Cancel_Button" + Me.Cancel_Button.Size = New System.Drawing.Size(66, 23) + Me.Cancel_Button.TabIndex = 1 + Me.Cancel_Button.Text = "Anuluj" + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.ColumnCount = 3 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 135.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel4, 0, 1) + Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel1, 2, 3) + Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel3, 0, 0) + Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel5, 0, 2) + Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 4 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 93.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 59.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(435, 340) + Me.TableLayoutPanel2.TabIndex = 1 + ' + 'TableLayoutPanel4 + ' + Me.TableLayoutPanel4.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset + Me.TableLayoutPanel4.ColumnCount = 4 + Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel4, 3) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 35.0!)) + Me.TableLayoutPanel4.Controls.Add(Me.Label6, 0, 0) + Me.TableLayoutPanel4.Controls.Add(Me.Label13, 1, 2) + Me.TableLayoutPanel4.Controls.Add(Me.EdSeria, 2, 2) + Me.TableLayoutPanel4.Controls.Add(Me.Label7, 1, 1) + Me.TableLayoutPanel4.Controls.Add(Me.edBazaDst, 2, 1) + Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel4.Location = New System.Drawing.Point(3, 153) + Me.TableLayoutPanel4.Name = "TableLayoutPanel4" + Me.TableLayoutPanel4.RowCount = 3 + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel4.Size = New System.Drawing.Size(429, 87) + Me.TableLayoutPanel4.TabIndex = 2 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.TableLayoutPanel4.SetColumnSpan(Me.Label6, 4) + Me.Label6.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label6.Location = New System.Drawing.Point(5, 2) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(419, 26) + Me.Label6.TabIndex = 0 + Me.Label6.Text = "Baza docelowa" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label13.Location = New System.Drawing.Point(27, 58) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(176, 27) + Me.Label13.TabIndex = 9 + Me.Label13.Text = "Seria noty" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'EdSeria + ' + Me.EdSeria.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.EdSeria.Location = New System.Drawing.Point(211, 61) + Me.EdSeria.Name = "EdSeria" + Me.EdSeria.Size = New System.Drawing.Size(176, 20) + Me.EdSeria.TabIndex = 10 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label7.Location = New System.Drawing.Point(27, 30) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(176, 26) + Me.Label7.TabIndex = 11 + Me.Label7.Text = "Nazwa bazy" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'edBazaDst + ' + Me.edBazaDst.Dock = System.Windows.Forms.DockStyle.Fill + Me.edBazaDst.Location = New System.Drawing.Point(211, 33) + Me.edBazaDst.Name = "edBazaDst" + Me.edBazaDst.Size = New System.Drawing.Size(176, 20) + Me.edBazaDst.TabIndex = 12 + ' + 'TableLayoutPanel3 + ' + Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset + Me.TableLayoutPanel3.ColumnCount = 4 + Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel3, 3) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 35.0!)) + Me.TableLayoutPanel3.Controls.Add(Me.Label1, 0, 0) + Me.TableLayoutPanel3.Controls.Add(Me.Label2, 1, 1) + Me.TableLayoutPanel3.Controls.Add(Me.Label3, 1, 2) + Me.TableLayoutPanel3.Controls.Add(Me.Label4, 1, 3) + Me.TableLayoutPanel3.Controls.Add(Me.Label5, 1, 4) + Me.TableLayoutPanel3.Controls.Add(Me.edSerwerSrc, 2, 1) + Me.TableLayoutPanel3.Controls.Add(Me.edBazaSrc, 2, 2) + Me.TableLayoutPanel3.Controls.Add(Me.edUserSrc, 2, 3) + Me.TableLayoutPanel3.Controls.Add(Me.edPassSrc, 2, 4) + Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel3.Location = New System.Drawing.Point(3, 3) + Me.TableLayoutPanel3.Name = "TableLayoutPanel3" + Me.TableLayoutPanel3.RowCount = 5 + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!)) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!)) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!)) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!)) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!)) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel3.Size = New System.Drawing.Size(429, 144) + Me.TableLayoutPanel3.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.TableLayoutPanel3.SetColumnSpan(Me.Label1, 4) + Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label1.Location = New System.Drawing.Point(5, 2) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(419, 26) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Połączenie do bazy źródłowej" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label2 + ' + Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label2.Location = New System.Drawing.Point(27, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(176, 26) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Serwer SQL" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label3.Location = New System.Drawing.Point(27, 58) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(176, 26) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "baza danych" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label4 + ' + Me.Label4.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label4.Location = New System.Drawing.Point(27, 86) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(176, 26) + Me.Label4.TabIndex = 3 + Me.Label4.Text = "użytkownik" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + Me.Label5.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label5.Location = New System.Drawing.Point(27, 114) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(176, 28) + Me.Label5.TabIndex = 4 + Me.Label5.Text = "hasło" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'edSerwerSrc + ' + Me.edSerwerSrc.Dock = System.Windows.Forms.DockStyle.Fill + Me.edSerwerSrc.Location = New System.Drawing.Point(211, 33) + Me.edSerwerSrc.Name = "edSerwerSrc" + Me.edSerwerSrc.Size = New System.Drawing.Size(176, 20) + Me.edSerwerSrc.TabIndex = 5 + ' + 'edBazaSrc + ' + Me.edBazaSrc.Dock = System.Windows.Forms.DockStyle.Fill + Me.edBazaSrc.Location = New System.Drawing.Point(211, 61) + Me.edBazaSrc.Name = "edBazaSrc" + Me.edBazaSrc.Size = New System.Drawing.Size(176, 20) + Me.edBazaSrc.TabIndex = 6 + ' + 'edUserSrc + ' + Me.edUserSrc.Dock = System.Windows.Forms.DockStyle.Fill + Me.edUserSrc.Location = New System.Drawing.Point(211, 89) + Me.edUserSrc.Name = "edUserSrc" + Me.edUserSrc.Size = New System.Drawing.Size(176, 20) + Me.edUserSrc.TabIndex = 7 + Me.edUserSrc.UseSystemPasswordChar = True + ' + 'edPassSrc + ' + Me.edPassSrc.Dock = System.Windows.Forms.DockStyle.Fill + Me.edPassSrc.Location = New System.Drawing.Point(211, 117) + Me.edPassSrc.Name = "edPassSrc" + Me.edPassSrc.Size = New System.Drawing.Size(176, 20) + Me.edPassSrc.TabIndex = 8 + Me.edPassSrc.UseSystemPasswordChar = True + ' + 'TableLayoutPanel5 + ' + Me.TableLayoutPanel5.ColumnCount = 2 + Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel5, 2) + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 32.61649!)) + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.38351!)) + Me.TableLayoutPanel5.Controls.Add(Me.Label11, 0, 0) + Me.TableLayoutPanel5.Controls.Add(Me.Label12, 0, 1) + Me.TableLayoutPanel5.Controls.Add(Me.edHASPServer, 1, 0) + Me.TableLayoutPanel5.Controls.Add(Me.edWorkingDir, 1, 1) + Me.TableLayoutPanel5.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel5.Location = New System.Drawing.Point(3, 246) + Me.TableLayoutPanel5.Name = "TableLayoutPanel5" + Me.TableLayoutPanel5.RowCount = 2 + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel5.Size = New System.Drawing.Size(279, 53) + Me.TableLayoutPanel5.TabIndex = 3 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label11.Location = New System.Drawing.Point(3, 0) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(85, 26) + Me.Label11.TabIndex = 0 + Me.Label11.Text = "Serwer klucza" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label12.Location = New System.Drawing.Point(3, 26) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(85, 27) + Me.Label12.TabIndex = 1 + Me.Label12.Text = "Katalog roboczy" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'edHASPServer + ' + Me.edHASPServer.Dock = System.Windows.Forms.DockStyle.Fill + Me.edHASPServer.Location = New System.Drawing.Point(94, 3) + Me.edHASPServer.Name = "edHASPServer" + Me.edHASPServer.Size = New System.Drawing.Size(182, 20) + Me.edHASPServer.TabIndex = 2 + Me.edHASPServer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'edWorkingDir + ' + Me.edWorkingDir.Dock = System.Windows.Forms.DockStyle.Fill + Me.edWorkingDir.Location = New System.Drawing.Point(94, 29) + Me.edWorkingDir.Name = "edWorkingDir" + Me.edWorkingDir.Size = New System.Drawing.Size(182, 20) + Me.edWorkingDir.TabIndex = 3 + Me.edWorkingDir.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'dlgKonfig + ' + Me.AcceptButton = Me.OK_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel_Button + Me.ClientSize = New System.Drawing.Size(435, 340) + Me.Controls.Add(Me.TableLayoutPanel2) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "dlgKonfig" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Konfiguracja programu" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel2.ResumeLayout(False) + Me.TableLayoutPanel4.ResumeLayout(False) + Me.TableLayoutPanel4.PerformLayout() + Me.TableLayoutPanel3.ResumeLayout(False) + Me.TableLayoutPanel3.PerformLayout() + Me.TableLayoutPanel5.ResumeLayout(False) + Me.TableLayoutPanel5.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents Cancel_Button As System.Windows.Forms.Button + Friend WithEvents TableLayoutPanel2 As TableLayoutPanel + Friend WithEvents TableLayoutPanel3 As TableLayoutPanel + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label5 As Label + Friend WithEvents edSerwerSrc As TextBox + Friend WithEvents edBazaSrc As TextBox + Friend WithEvents edUserSrc As TextBox + Friend WithEvents edPassSrc As TextBox + Friend WithEvents TableLayoutPanel4 As TableLayoutPanel + Friend WithEvents Label6 As Label + Friend WithEvents TableLayoutPanel5 As TableLayoutPanel + Friend WithEvents Label11 As Label + Friend WithEvents Label12 As Label + Friend WithEvents edHASPServer As TextBox + Friend WithEvents edWorkingDir As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents EdSeria As TextBox + Friend WithEvents Label7 As Label + Friend WithEvents edBazaDst As TextBox +End Class diff --git a/ImportDokMag/dlgKonfig.resx b/ImportDokMag/dlgKonfig.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ImportDokMag/dlgKonfig.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/ImportDokMag/dlgKonfig.vb b/ImportDokMag/dlgKonfig.vb new file mode 100644 index 0000000..e5b9fc4 --- /dev/null +++ b/ImportDokMag/dlgKonfig.vb @@ -0,0 +1,44 @@ +Imports System.Windows.Forms + +Public Class dlgKonfig + Public Check As String + + Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.OK + My.Settings.SerwerSrc = edSerwerSrc.Text + ' My.Settings.SerwerDst = edServerDst.Text + My.Settings.SerwerKlucza = edHASPServer.Text + My.Settings.BazaSrc = edBazaSrc.Text + My.Settings.BazaDst = edBazaDst.Text + My.Settings.Seria = EdSeria.Text + My.Settings.FolderR_Roboczy = edWorkingDir.Text + My.Settings.MCsrc = MainFrm.Encrypt(edUserSrc.Text) + ' My.Settings.MCdst = MainFrm.Encrypt(edUserDst.Text) + My.Settings.Comsrc = MainFrm.Encrypt(edPassSrc.Text) + ' My.Settings.Comdst = MainFrm.Encrypt(edPassDst.Text) + My.Settings.check = MainFrm.Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper) + My.Settings.Save() + MsgBox("Zakończ program i uruchom ponownie.") + Me.Close() + End Sub + + Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + Private Sub dlgKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load + edSerwerSrc.Text = My.Settings.SerwerSrc + ' edServerDst.Text = My.Settings.SerwerDst + edHASPServer.Text = My.Settings.SerwerKlucza + edBazaSrc.Text = My.Settings.BazaSrc + edBazaDst.Text = My.Settings.BazaDst + EdSeria.Text = My.Settings.Seria + edWorkingDir.Text = My.Settings.FolderR_Roboczy + edUserSrc.Text = MainFrm.Decrypt(My.Settings.MCsrc) + ' edUserDst.Text = MainFrm.Decrypt(My.Settings.MCdst) + edPassSrc.Text = MainFrm.Decrypt(My.Settings.Comsrc) + ' edPassDst.Text = MainFrm.Decrypt(My.Settings.Comdst) + + End Sub +End Class diff --git a/Instalator/Instalator.vdproj b/Instalator/Instalator.vdproj new file mode 100644 index 0000000..214cb2a --- /dev/null +++ b/Instalator/Instalator.vdproj @@ -0,0 +1,2796 @@ +"DeployProject" +{ +"VSVersion" = "3:800" +"ProjectType" = "8:{978C614F-708E-4E1A-B201-565925725DBA}" +"IsWebType" = "8:FALSE" +"ProjectName" = "8:Instalator" +"LanguageId" = "3:1045" +"CodePage" = "3:1250" +"UILanguageId" = "3:1045" +"SccProjectName" = "8:" +"SccLocalPath" = "8:" +"SccAuxPath" = "8:" +"SccProvider" = "8:" +"BackwardsCompatibleGUIDGeneration" = "8:TRUE" + "Hierarchy" + { + "Entry" + { + "MsmKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_115712F578D9EBB3109B94958D677211" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_13C335171777659196A395DA0A9C1040" + "OwnerKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_13C335171777659196A395DA0A9C1040" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_1B43F574460893EFC4119FB063720BA9" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_1B43F574460893EFC4119FB063720BA9" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "OwnerKey" = "8:_UNDEFINED" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_3782AF8405A8F8B7E4D5665D14470170" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_4111B82A2AD53B23423B43D2CF8EEF93" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_4111B82A2AD53B23423B43D2CF8EEF93" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_4111B82A2AD53B23423B43D2CF8EEF93" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_4111B82A2AD53B23423B43D2CF8EEF93" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_411A37065770F1244C75CBA4DB352BE4" + "OwnerKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_411A37065770F1244C75CBA4DB352BE4" + "OwnerKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_44EA96E53084B60E9A4070388EEF7E35" + "OwnerKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_44EA96E53084B60E9A4070388EEF7E35" + "OwnerKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_44EA96E53084B60E9A4070388EEF7E35" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_49788B1BF43C40538D55DF85500AFDB9" + "OwnerKey" = "8:_UNDEFINED" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_4F705D33472964DCD62BF97373D5911C" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_4F705D33472964DCD62BF97373D5911C" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_4F705D33472964DCD62BF97373D5911C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_5F23C5FF65182F0DBB838CC1247B3270" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "OwnerKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5ED72FC4ACDAE7178194246A390B312D" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5ED72FC4ACDAE7178194246A390B312D" + "OwnerKey" = "8:_8AF6DD6F977158202394A251C107BA59" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5F23C5FF65182F0DBB838CC1247B3270" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5F23C5FF65182F0DBB838CC1247B3270" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_5F23C5FF65182F0DBB838CC1247B3270" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "OwnerKey" = "8:_5ED72FC4ACDAE7178194246A390B312D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "OwnerKey" = "8:_8AF6DD6F977158202394A251C107BA59" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "OwnerKey" = "8:_EF722D653CB3B1A62A5ACCE81FA7D2CE" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "OwnerKey" = "8:_115712F578D9EBB3109B94958D677211" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "OwnerKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_6A4ADB4AD6EF61BB966B81F68B6964E8" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_6A4ADB4AD6EF61BB966B81F68B6964E8" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_6A4ADB4AD6EF61BB966B81F68B6964E8" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_6A4ADB4AD6EF61BB966B81F68B6964E8" + "OwnerKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "OwnerKey" = "8:_5ED72FC4ACDAE7178194246A390B312D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "OwnerKey" = "8:_8AF6DD6F977158202394A251C107BA59" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "OwnerKey" = "8:_115712F578D9EBB3109B94958D677211" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "OwnerKey" = "8:_EF722D653CB3B1A62A5ACCE81FA7D2CE" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "OwnerKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "OwnerKey" = "8:_4F705D33472964DCD62BF97373D5911C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_8AF6DD6F977158202394A251C107BA59" + "OwnerKey" = "8:_115712F578D9EBB3109B94958D677211" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_8AF6DD6F977158202394A251C107BA59" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_960E2CC7274B69BABC6941BC8B8975C1" + "OwnerKey" = "8:_6A4ADB4AD6EF61BB966B81F68B6964E8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_960E2CC7274B69BABC6941BC8B8975C1" + "OwnerKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_960E2CC7274B69BABC6941BC8B8975C1" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_960E2CC7274B69BABC6941BC8B8975C1" + "OwnerKey" = "8:_CE8725025FF66F1B1977929CE1079E8B" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_960E2CC7274B69BABC6941BC8B8975C1" + "OwnerKey" = "8:_5F23C5FF65182F0DBB838CC1247B3270" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_960E2CC7274B69BABC6941BC8B8975C1" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_99BACB5324A8434F781E8D4D10A7EDC7" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_99BACB5324A8434F781E8D4D10A7EDC7" + "OwnerKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_A006D997702F0219515F49E02EF5518D" + "OwnerKey" = "8:_A05113AD6289413349425368468DB5CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_A006D997702F0219515F49E02EF5518D" + "OwnerKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_A05113AD6289413349425368468DB5CF" + "OwnerKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_B50D2122F2FB80D196B3238B13DB49A2" + "OwnerKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_B50D2122F2FB80D196B3238B13DB49A2" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C18FF9DC675151BE9403FEBC6CD17C29" + "OwnerKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C27DF94F2011639452C2601FDD323D9C" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C27DF94F2011639452C2601FDD323D9C" + "OwnerKey" = "8:_EF722D653CB3B1A62A5ACCE81FA7D2CE" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C27DF94F2011639452C2601FDD323D9C" + "OwnerKey" = "8:_115712F578D9EBB3109B94958D677211" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C27DF94F2011639452C2601FDD323D9C" + "OwnerKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C27DF94F2011639452C2601FDD323D9C" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C6055B8970CE231F0F157DB3AA184D47" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C6F5AAEFEFAD0E4D78974661C54FD887" + "OwnerKey" = "8:_4F705D33472964DCD62BF97373D5911C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C6F5AAEFEFAD0E4D78974661C54FD887" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C6F5AAEFEFAD0E4D78974661C54FD887" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C6F5AAEFEFAD0E4D78974661C54FD887" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C9CF83DB989FE3AAFD0EE8045A16B62F" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C9CF83DB989FE3AAFD0EE8045A16B62F" + "OwnerKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_C9CF83DB989FE3AAFD0EE8045A16B62F" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_CE8725025FF66F1B1977929CE1079E8B" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_CE8725025FF66F1B1977929CE1079E8B" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_CE8725025FF66F1B1977929CE1079E8B" + "OwnerKey" = "8:_4111B82A2AD53B23423B43D2CF8EEF93" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_CE8725025FF66F1B1977929CE1079E8B" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_CE8725025FF66F1B1977929CE1079E8B" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_D9168E8B53F6E14FA36C84958F908997" + "OwnerKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_D9168E8B53F6E14FA36C84958F908997" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_D9168E8B53F6E14FA36C84958F908997" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_EC75420880E338A94C6B3E4129D66ED4" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_EF722D653CB3B1A62A5ACCE81FA7D2CE" + "OwnerKey" = "8:_115712F578D9EBB3109B94958D677211" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_EF722D653CB3B1A62A5ACCE81FA7D2CE" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "OwnerKey" = "8:_47B034E1418C8B9327CB9EDE397D5FD6" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "OwnerKey" = "8:_C6055B8970CE231F0F157DB3AA184D47" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "OwnerKey" = "8:_4F705D33472964DCD62BF97373D5911C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "OwnerKey" = "8:_C6F5AAEFEFAD0E4D78974661C54FD887" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "OwnerKey" = "8:_5ED72FC4ACDAE7178194246A390B312D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_C6F5AAEFEFAD0E4D78974661C54FD887" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_5F23C5FF65182F0DBB838CC1247B3270" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_5ED72FC4ACDAE7178194246A390B312D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_064E799438ACB76CE32EDBCDD4283BC8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_6A4ADB4AD6EF61BB966B81F68B6964E8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "OwnerKey" = "8:_4F705D33472964DCD62BF97373D5911C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_EC75420880E338A94C6B3E4129D66ED4" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_1B43F574460893EFC4119FB063720BA9" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_5F23C5FF65182F0DBB838CC1247B3270" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_99BACB5324A8434F781E8D4D10A7EDC7" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_115712F578D9EBB3109B94958D677211" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_8AF6DD6F977158202394A251C107BA59" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_EF722D653CB3B1A62A5ACCE81FA7D2CE" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_5ED72FC4ACDAE7178194246A390B312D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_7522A064999CC648FF409B5F21E46D09" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_679D819A2BD96F43DE73BEC8F5B9140B" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_C6055B8970CE231F0F157DB3AA184D47" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_C9CF83DB989FE3AAFD0EE8045A16B62F" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_13C335171777659196A395DA0A9C1040" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_B50D2122F2FB80D196B3238B13DB49A2" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_F49D69E31015218F391D16CD99C7495C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_44EA96E53084B60E9A4070388EEF7E35" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_CE8725025FF66F1B1977929CE1079E8B" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_6A4ADB4AD6EF61BB966B81F68B6964E8" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_960E2CC7274B69BABC6941BC8B8975C1" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_F702FBF72E8E3900A9D8153F0B8FF231" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_C6F5AAEFEFAD0E4D78974661C54FD887" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_FE4506DB300A9C40126C69A365B6606D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_D9168E8B53F6E14FA36C84958F908997" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_5E2B82D9FCB94C1861BE361B63AAE81A" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_4111B82A2AD53B23423B43D2CF8EEF93" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_C27DF94F2011639452C2601FDD323D9C" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_3782AF8405A8F8B7E4D5665D14470170" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_89DD098843E9FB331C28376DD54FEE27" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_411A37065770F1244C75CBA4DB352BE4" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_A05113AD6289413349425368468DB5CF" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_A006D997702F0219515F49E02EF5518D" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_UNDEFINED" + "OwnerKey" = "8:_C18FF9DC675151BE9403FEBC6CD17C29" + "MsmSig" = "8:_UNDEFINED" + } + } + "Configurations" + { + "Debug" + { + "DisplayName" = "8:Debug" + "IsDebugOnly" = "11:TRUE" + "IsReleaseOnly" = "11:FALSE" + "OutputFilename" = "8:Debug\\Instalator.msi" + "PackageFilesAs" = "3:2" + "PackageFileSize" = "3:-2147483648" + "CabType" = "3:1" + "Compression" = "3:2" + "SignOutput" = "11:FALSE" + "CertificateFile" = "8:" + "PrivateKeyFile" = "8:" + "TimeStampServer" = "8:" + "InstallerBootstrapper" = "3:2" + "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}" + { + "Enabled" = "11:TRUE" + "PromptEnabled" = "11:TRUE" + "PrerequisitesLocation" = "2:1" + "Url" = "8:" + "ComponentsUrl" = "8:" + "Items" + { + "{EDC2488A-8267-493A-A98E-7D9C3B36CDF3}:Microsoft.Net.Framework.3.5.SP1" + { + "Name" = "8:.NET Framework 3.5 SP1" + "ProductCode" = "8:Microsoft.Net.Framework.3.5.SP1" + } + } + } + } + "Release" + { + "DisplayName" = "8:Release" + "IsDebugOnly" = "11:FALSE" + "IsReleaseOnly" = "11:TRUE" + "OutputFilename" = "8:Release\\Instalator.msi" + "PackageFilesAs" = "3:2" + "PackageFileSize" = "3:-2147483648" + "CabType" = "3:1" + "Compression" = "3:2" + "SignOutput" = "11:FALSE" + "CertificateFile" = "8:" + "PrivateKeyFile" = "8:" + "TimeStampServer" = "8:" + "InstallerBootstrapper" = "3:2" + "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}" + { + "Enabled" = "11:TRUE" + "PromptEnabled" = "11:TRUE" + "PrerequisitesLocation" = "2:1" + "Url" = "8:" + "ComponentsUrl" = "8:" + "Items" + { + "{EDC2488A-8267-493A-A98E-7D9C3B36CDF3}:.NETFramework,Version=v4.6.1" + { + "Name" = "8:Microsoft .NET Framework 4.6.1 (x86 and x64)" + "ProductCode" = "8:.NETFramework,Version=v4.6.1" + } + } + } + } + } + "Deployable" + { + "CustomAction" + { + } + "DefaultFeature" + { + "Name" = "8:DefaultFeature" + "Title" = "8:" + "Description" = "8:" + } + "ExternalPersistence" + { + "LaunchCondition" + { + "{A06ECF26-33A3-4562-8140-9B0E340D4F24}:_68E9A4974B7347D6B68EBF2B3A14C7BA" + { + "Name" = "8:.NET Framework" + "Message" = "8:[VSDNETMSG]" + "FrameworkVersion" = "8:ANY" + "AllowLaterVersions" = "11:FALSE" + "InstallUrl" = "8:http://go.microsoft.com/fwlink/?LinkId=671728" + } + } + } + "File" + { + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_064E799438ACB76CE32EDBCDD4283BC8" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Azure.Identity, Version=1.11.4.0, Culture=neutral, PublicKeyToken=92742159e12e44c8, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_064E799438ACB76CE32EDBCDD4283BC8" + { + "Name" = "8:Azure.Identity.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Azure.Identity.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_115712F578D9EBB3109B94958D677211" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.IdentityModel.Protocols.OpenIdConnect, Version=6.35.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_115712F578D9EBB3109B94958D677211" + { + "Name" = "8:Microsoft.IdentityModel.Protocols.OpenIdConnect.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.IdentityModel.Protocols.OpenIdConnect.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_13C335171777659196A395DA0A9C1040" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Security.Principal.Windows, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + "ScatterAssemblies" + { + "_13C335171777659196A395DA0A9C1040" + { + "Name" = "8:System.Security.Principal.Windows.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Security.Principal.Windows.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_1B43F574460893EFC4119FB063720BA9" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51" + "ScatterAssemblies" + { + "_1B43F574460893EFC4119FB063720BA9" + { + "Name" = "8:System.ValueTuple.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.ValueTuple.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_3782AF8405A8F8B7E4D5665D14470170" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Runtime.InteropServices.RuntimeInformation, Version=4.0.2.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + "ScatterAssemblies" + { + "_3782AF8405A8F8B7E4D5665D14470170" + { + "Name" = "8:System.Runtime.InteropServices.RuntimeInformation.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Runtime.InteropServices.RuntimeInformation.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_4111B82A2AD53B23423B43D2CF8EEF93" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.Bcl.AsyncInterfaces, Version=1.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51" + "ScatterAssemblies" + { + "_4111B82A2AD53B23423B43D2CF8EEF93" + { + "Name" = "8:Microsoft.Bcl.AsyncInterfaces.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.Bcl.AsyncInterfaces.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_411A37065770F1244C75CBA4DB352BE4" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:TRUE" + "AssemblyAsmDisplayName" = "8:System.Net.Http, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_411A37065770F1244C75CBA4DB352BE4" + { + "Name" = "8:System.Net.Http.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Net.Http.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:TRUE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_44EA96E53084B60E9A4070388EEF7E35" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.IdentityModel.Abstractions, Version=6.35.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_44EA96E53084B60E9A4070388EEF7E35" + { + "Name" = "8:Microsoft.IdentityModel.Abstractions.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.IdentityModel.Abstractions.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_47B034E1418C8B9327CB9EDE397D5FD6" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.Identity.Client.Extensions.Msal, Version=4.61.3.0, Culture=neutral, PublicKeyToken=0a613f4dd989e8ae, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_47B034E1418C8B9327CB9EDE397D5FD6" + { + "Name" = "8:Microsoft.Identity.Client.Extensions.Msal.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.Identity.Client.Extensions.Msal.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_49788B1BF43C40538D55DF85500AFDB9" + { + "SourcePath" = "8:..\\ImportDokMag\\cab.ico" + "TargetName" = "8:cab.ico" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:FALSE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_4F705D33472964DCD62BF97373D5911C" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.ClientModel, Version=1.0.0.0, Culture=neutral, PublicKeyToken=92742159e12e44c8, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_4F705D33472964DCD62BF97373D5911C" + { + "Name" = "8:System.ClientModel.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.ClientModel.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_5E2B82D9FCB94C1861BE361B63AAE81A" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51" + "ScatterAssemblies" + { + "_5E2B82D9FCB94C1861BE361B63AAE81A" + { + "Name" = "8:System.Buffers.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Buffers.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_5ED72FC4ACDAE7178194246A390B312D" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.IdentityModel.JsonWebTokens, Version=6.35.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_5ED72FC4ACDAE7178194246A390B312D" + { + "Name" = "8:Microsoft.IdentityModel.JsonWebTokens.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.IdentityModel.JsonWebTokens.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_5F23C5FF65182F0DBB838CC1247B3270" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Text.Encodings.Web, Version=6.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_5F23C5FF65182F0DBB838CC1247B3270" + { + "Name" = "8:System.Text.Encodings.Web.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Text.Encodings.Web.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_679D819A2BD96F43DE73BEC8F5B9140B" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.IdentityModel.Logging, Version=6.35.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_679D819A2BD96F43DE73BEC8F5B9140B" + { + "Name" = "8:Microsoft.IdentityModel.Logging.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.IdentityModel.Logging.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_6A4ADB4AD6EF61BB966B81F68B6964E8" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Diagnostics.DiagnosticSource, Version=6.0.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_6A4ADB4AD6EF61BB966B81F68B6964E8" + { + "Name" = "8:System.Diagnostics.DiagnosticSource.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Diagnostics.DiagnosticSource.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_7522A064999CC648FF409B5F21E46D09" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.IdentityModel.Tokens, Version=6.35.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_7522A064999CC648FF409B5F21E46D09" + { + "Name" = "8:Microsoft.IdentityModel.Tokens.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.IdentityModel.Tokens.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_89DD098843E9FB331C28376DD54FEE27" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:netstandard, Version=2.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51" + "ScatterAssemblies" + { + "_89DD098843E9FB331C28376DD54FEE27" + { + "Name" = "8:netstandard.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:netstandard.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_8AF6DD6F977158202394A251C107BA59" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.IdentityModel.Tokens.Jwt, Version=6.35.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_8AF6DD6F977158202394A251C107BA59" + { + "Name" = "8:System.IdentityModel.Tokens.Jwt.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.IdentityModel.Tokens.Jwt.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_960E2CC7274B69BABC6941BC8B8975C1" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_960E2CC7274B69BABC6941BC8B8975C1" + { + "Name" = "8:System.Runtime.CompilerServices.Unsafe.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Runtime.CompilerServices.Unsafe.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_99BACB5324A8434F781E8D4D10A7EDC7" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Security.AccessControl, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_99BACB5324A8434F781E8D4D10A7EDC7" + { + "Name" = "8:System.Security.AccessControl.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Security.AccessControl.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_A006D997702F0219515F49E02EF5518D" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:TRUE" + "AssemblyAsmDisplayName" = "8:System.IO.Compression, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_A006D997702F0219515F49E02EF5518D" + { + "Name" = "8:System.IO.Compression.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.IO.Compression.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:TRUE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_A05113AD6289413349425368468DB5CF" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:TRUE" + "AssemblyAsmDisplayName" = "8:System.IO.Compression.FileSystem, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_A05113AD6289413349425368468DB5CF" + { + "Name" = "8:System.IO.Compression.FileSystem.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.IO.Compression.FileSystem.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:TRUE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_B50D2122F2FB80D196B3238B13DB49A2" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.IO.FileSystem.AccessControl, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + "ScatterAssemblies" + { + "_B50D2122F2FB80D196B3238B13DB49A2" + { + "Name" = "8:System.IO.FileSystem.AccessControl.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.IO.FileSystem.AccessControl.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_C18FF9DC675151BE9403FEBC6CD17C29" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:TRUE" + "AssemblyAsmDisplayName" = "8:System.Diagnostics.Tracing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_C18FF9DC675151BE9403FEBC6CD17C29" + { + "Name" = "8:System.Diagnostics.Tracing.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Diagnostics.Tracing.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:TRUE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_C27DF94F2011639452C2601FDD323D9C" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Net.Http, Version=4.2.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + "ScatterAssemblies" + { + "_C27DF94F2011639452C2601FDD323D9C" + { + "Name" = "8:System.Net.Http.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Net.Http.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:TRUE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_C6055B8970CE231F0F157DB3AA184D47" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.Data.SqlClient, Version=5.0.0.0, Culture=neutral, PublicKeyToken=23ec7fc2d6eaa4a5, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_C6055B8970CE231F0F157DB3AA184D47" + { + "Name" = "8:Microsoft.Data.SqlClient.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.Data.SqlClient.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_C6F5AAEFEFAD0E4D78974661C54FD887" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Memory.Data, Version=1.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_C6F5AAEFEFAD0E4D78974661C54FD887" + { + "Name" = "8:System.Memory.Data.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Memory.Data.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_C9CF83DB989FE3AAFD0EE8045A16B62F" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Security.Cryptography.ProtectedData, Version=4.0.5.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_C9CF83DB989FE3AAFD0EE8045A16B62F" + { + "Name" = "8:System.Security.Cryptography.ProtectedData.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Security.Cryptography.ProtectedData.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_CE8725025FF66F1B1977929CE1079E8B" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_CE8725025FF66F1B1977929CE1079E8B" + { + "Name" = "8:System.Threading.Tasks.Extensions.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Threading.Tasks.Extensions.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_D9168E8B53F6E14FA36C84958F908997" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Numerics.Vectors, Version=4.1.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + "ScatterAssemblies" + { + "_D9168E8B53F6E14FA36C84958F908997" + { + "Name" = "8:System.Numerics.Vectors.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Numerics.Vectors.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_E8FD10C3E19EFF21CDD745EC0EA7C70C" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Azure.Core, Version=1.38.0.0, Culture=neutral, PublicKeyToken=92742159e12e44c8, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_E8FD10C3E19EFF21CDD745EC0EA7C70C" + { + "Name" = "8:Azure.Core.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Azure.Core.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_EC75420880E338A94C6B3E4129D66ED4" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:cdn_api20251.net, Version=2025.1.0.0, Culture=neutral, PublicKeyToken=5179454a0b814fab, processorArchitecture=x86" + "ScatterAssemblies" + { + "_EC75420880E338A94C6B3E4129D66ED4" + { + "Name" = "8:cdn_api20251.net.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:cdn_api20251.net.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_EF722D653CB3B1A62A5ACCE81FA7D2CE" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.IdentityModel.Protocols, Version=6.35.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_EF722D653CB3B1A62A5ACCE81FA7D2CE" + { + "Name" = "8:Microsoft.IdentityModel.Protocols.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.IdentityModel.Protocols.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_F49D69E31015218F391D16CD99C7495C" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:Microsoft.Identity.Client, Version=4.61.3.0, Culture=neutral, PublicKeyToken=0a613f4dd989e8ae, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_F49D69E31015218F391D16CD99C7495C" + { + "Name" = "8:Microsoft.Identity.Client.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:Microsoft.Identity.Client.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_F702FBF72E8E3900A9D8153F0B8FF231" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Text.Json, Version=4.0.1.2, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_F702FBF72E8E3900A9D8153F0B8FF231" + { + "Name" = "8:System.Text.Json.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Text.Json.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_FE4506DB300A9C40126C69A365B6606D" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:System.Memory, Version=4.0.1.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_FE4506DB300A9C40126C69A365B6606D" + { + "Name" = "8:System.Memory.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:System.Memory.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + } + "FileType" + { + } + "Folder" + { + "{1525181F-901A-416C-8A58-119130FE478E}:_0E2A769A3BDC48F2B395EBE23FF897DE" + { + "Name" = "8:#1919" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:ProgramMenuFolder" + "Folders" + { + } + } + "{1525181F-901A-416C-8A58-119130FE478E}:_35C2D5FD2F5942BD81B83EB09E3DA2E6" + { + "Name" = "8:#1916" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:DesktopFolder" + "Folders" + { + } + } + "{3C67513D-01DD-4637-8A68-80971EB9504F}:_50871440B64A4B20B1CD74CFDF9CA7F9" + { + "DefaultLocation" = "8:[ProgramFilesFolder][Manufacturer]\\[ProductName]" + "Name" = "8:#1925" + "AlwaysCreate" = "11:FALSE" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Property" = "8:TARGETDIR" + "Folders" + { + } + } + } + "LaunchCondition" + { + } + "Locator" + { + } + "MsiBootstrapper" + { + "LangId" = "3:1045" + "RequiresElevation" = "11:FALSE" + } + "Product" + { + "Name" = "8:Microsoft Visual Studio" + "ProductName" = "8:ImportDokMag" + "ProductCode" = "8:{C1C7C7F2-F7E5-4A19-B4DD-F40A170381A2}" + "PackageCode" = "8:{EADCC523-5C12-4037-B2FE-80FBA9FA0DA3}" + "UpgradeCode" = "8:{E007770B-8123-40D0-A07D-1E6CFEBE903D}" + "AspNetVersion" = "8:2.0.50727.0" + "RestartWWWService" = "11:FALSE" + "RemovePreviousVersions" = "11:TRUE" + "DetectNewerInstalledVersion" = "11:TRUE" + "InstallAllUsers" = "11:TRUE" + "ProductVersion" = "8:2.0.0" + "Manufacturer" = "8:myCONSULT SP. z o. o." + "ARPHELPTELEPHONE" = "8:" + "ARPHELPLINK" = "8:" + "Title" = "8:Instalator programu ImportDokMag" + "Subject" = "8:" + "ARPCONTACT" = "8:Krzysztof Czapliński" + "Keywords" = "8:" + "ARPCOMMENTS" = "8:Program do importu dekretów dokumnetów magazynowych" + "ARPURLINFOABOUT" = "8:www.myconsult.com.pl" + "ARPPRODUCTICON" = "8:_49788B1BF43C40538D55DF85500AFDB9" + "ARPIconIndex" = "3:0" + "SearchPath" = "8:" + "UseSystemSearchPath" = "11:TRUE" + "TargetPlatform" = "3:0" + "PreBuildEvent" = "8:" + "PostBuildEvent" = "8:" + "RunPostBuildEvent" = "3:0" + } + "Registry" + { + "HKLM" + { + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_14A5D4D1DAF74AB1B116EF6D64D465B8" + { + "Name" = "8:Software" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_3D3B378B7D6443379A137B227B2CF8E3" + { + "Name" = "8:[Manufacturer]" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + } + "Values" + { + } + } + } + "Values" + { + } + } + } + } + "HKCU" + { + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_183C92BC953A43BBAC0FC1D320E8407E" + { + "Name" = "8:Software" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_4E43A27CB157418DB3CEA9E3FC6705B4" + { + "Name" = "8:[Manufacturer]" + "Condition" = "8:" + "AlwaysCreate" = "11:FALSE" + "DeleteAtUninstall" = "11:FALSE" + "Transitive" = "11:FALSE" + "Keys" + { + } + "Values" + { + } + } + } + "Values" + { + } + } + } + } + "HKCR" + { + "Keys" + { + } + } + "HKU" + { + "Keys" + { + } + } + "HKPU" + { + "Keys" + { + } + } + } + "Sequences" + { + } + "Shortcut" + { + "{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_7AC3C26AE5054D769B2CD49356336C7C" + { + "Name" = "8:ImportDokMag" + "Arguments" = "8:" + "Description" = "8:" + "ShowCmd" = "3:1" + "IconIndex" = "3:0" + "Transitive" = "11:FALSE" + "Target" = "8:_370DEE148AAB42D7A584CF9661EBF4CF" + "Folder" = "8:_0E2A769A3BDC48F2B395EBE23FF897DE" + "WorkingFolder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Icon" = "8:" + "Feature" = "8:" + } + } + "UserInterface" + { + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_2C138F37321C45B8BC863887B265E74D" + { + "Name" = "8:#1902" + "Sequence" = "3:2" + "Attributes" = "3:3" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_051D8F80CA62431B88D19FCF6F8DDCCA" + { + "Sequence" = "3:100" + "DisplayName" = "8:Zakończono" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminFinishedDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_3857FBBA21254D9196B7BB3782E5F1CC" + { + "Name" = "8:#1900" + "Sequence" = "3:1" + "Attributes" = "3:1" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_233F85456C1F46408B1FF52CE2A3333C" + { + "Sequence" = "3:100" + "DisplayName" = "8:Zapraszamy" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdWelcomeDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "CopyrightWarning" + { + "Name" = "8:CopyrightWarning" + "DisplayName" = "8:#1002" + "Description" = "8:#1102" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1202" + "DefaultValue" = "8:#1202" + "UsePlugInResources" = "11:TRUE" + } + "Welcome" + { + "Name" = "8:Welcome" + "DisplayName" = "8:#1003" + "Description" = "8:#1103" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1203" + "DefaultValue" = "8:#1203" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_366756F4B2114C36AD1714833DF81439" + { + "Sequence" = "3:200" + "DisplayName" = "8:Folder instalacji" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdFolderDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "InstallAllUsersVisible" + { + "Name" = "8:InstallAllUsersVisible" + "DisplayName" = "8:#1059" + "Description" = "8:#1159" + "Type" = "3:5" + "ContextData" = "8:1;True=1;False=0" + "Attributes" = "3:0" + "Setting" = "3:0" + "Value" = "3:1" + "DefaultValue" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_E8553CE9C9F444AC85EDBE110A18A0C0" + { + "Sequence" = "3:300" + "DisplayName" = "8:Potwierdzanie instalacji" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdConfirmDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_49D1ABE51EB349C2BB84363C2AC4E50C" + { + "UseDynamicProperties" = "11:FALSE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdUserInterface.wim" + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_5CF09CEF61F84E599FFA1A0D5AEDFC2E" + { + "Name" = "8:#1901" + "Sequence" = "3:1" + "Attributes" = "3:2" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_C52AA13216134FAF9E4C64657856B7A7" + { + "Sequence" = "3:100" + "DisplayName" = "8:Postęp" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdProgressDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "ShowProgress" + { + "Name" = "8:ShowProgress" + "DisplayName" = "8:#1009" + "Description" = "8:#1109" + "Type" = "3:5" + "ContextData" = "8:1;True=1;False=0" + "Attributes" = "3:0" + "Setting" = "3:0" + "Value" = "3:1" + "DefaultValue" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_7D365393285F4299AEA6C715E85E5BD9" + { + "Name" = "8:#1902" + "Sequence" = "3:1" + "Attributes" = "3:3" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_5875D34493A9488185B0387EB232B28D" + { + "Sequence" = "3:100" + "DisplayName" = "8:Zakończono" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdFinishedDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "UpdateText" + { + "Name" = "8:UpdateText" + "DisplayName" = "8:#1058" + "Description" = "8:#1158" + "Type" = "3:15" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1258" + "DefaultValue" = "8:#1258" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_A73298DE647C48F2907A88BC23802AF2" + { + "Name" = "8:#1901" + "Sequence" = "3:2" + "Attributes" = "3:2" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_371A5E2D3B5341F88171D2A6E48C489F" + { + "Sequence" = "3:100" + "DisplayName" = "8:Postęp" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminProgressDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "ShowProgress" + { + "Name" = "8:ShowProgress" + "DisplayName" = "8:#1009" + "Description" = "8:#1109" + "Type" = "3:5" + "ContextData" = "8:1;True=1;False=0" + "Attributes" = "3:0" + "Setting" = "3:0" + "Value" = "3:1" + "DefaultValue" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_E874B98968404660B16B15E8077B602A" + { + "Name" = "8:#1900" + "Sequence" = "3:2" + "Attributes" = "3:1" + "Dialogs" + { + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_68269945CB70415F9DFD6F37F3D7F324" + { + "Sequence" = "3:200" + "DisplayName" = "8:Folder instalacji" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminFolderDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_92540D7DEBF24D2A812120C019FA72BD" + { + "Sequence" = "3:100" + "DisplayName" = "8:Zapraszamy" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminWelcomeDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + "CopyrightWarning" + { + "Name" = "8:CopyrightWarning" + "DisplayName" = "8:#1002" + "Description" = "8:#1102" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1202" + "DefaultValue" = "8:#1202" + "UsePlugInResources" = "11:TRUE" + } + "Welcome" + { + "Name" = "8:Welcome" + "DisplayName" = "8:#1003" + "Description" = "8:#1103" + "Type" = "3:3" + "ContextData" = "8:" + "Attributes" = "3:0" + "Setting" = "3:1" + "Value" = "8:#1203" + "DefaultValue" = "8:#1203" + "UsePlugInResources" = "11:TRUE" + } + } + } + "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_A4C42942C8AC4E639F27164F9206430F" + { + "Sequence" = "3:300" + "DisplayName" = "8:Potwierdzanie instalacji" + "UseDynamicProperties" = "11:TRUE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdAdminConfirmDlg.wid" + "Properties" + { + "BannerBitmap" + { + "Name" = "8:BannerBitmap" + "DisplayName" = "8:#1001" + "Description" = "8:#1101" + "Type" = "3:8" + "ContextData" = "8:Bitmap" + "Attributes" = "3:4" + "Setting" = "3:1" + "UsePlugInResources" = "11:TRUE" + } + } + } + } + } + "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_F0DF71F431A741539E005077697AEE17" + { + "UseDynamicProperties" = "11:FALSE" + "IsDependency" = "11:FALSE" + "SourcePath" = "8:\\VsdBasicDialogs.wim" + } + } + "MergeModule" + { + } + "ProjectOutput" + { + "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_06B783810FB84C86A4F04496ABE6D3FB" + { + "SourcePath" = "8:" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:FALSE" + "IsolateTo" = "8:" + "ProjectOutputGroupRegister" = "3:1" + "OutputConfiguration" = "8:" + "OutputGroupCanonicalName" = "8:ReferenceCopyLocalPaths" + "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}" + "ShowKeyOutput" = "11:TRUE" + "ExcludeFilters" + { + } + } + "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_370DEE148AAB42D7A584CF9661EBF4CF" + { + "SourcePath" = "8:..\\ImportDokMag\\obj\\x86\\Debug\\ImportDokMag.exe" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:FALSE" + "IsolateTo" = "8:" + "ProjectOutputGroupRegister" = "3:1" + "OutputConfiguration" = "8:" + "OutputGroupCanonicalName" = "8:Built" + "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}" + "ShowKeyOutput" = "11:TRUE" + "ExcludeFilters" + { + } + } + } + } +} diff --git a/Konta.sql b/Konta.sql new file mode 100644 index 0000000..21706ad --- /dev/null +++ b/Konta.sql @@ -0,0 +1,17 @@ +IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Konta' AND user_name(uid) = 'CDN') + DROP PROCEDURE [CDN].my_ImpDM_Konta +GO + +CREATE PROCEDURE [CDN].my_ImpDM_Konta +( + @Rok smallint, + @Miesiac smallint +) +AS + SET NOCOUNT ON; + select distinct DT_Konto as Konto + from CDN.Dziennik inner join CDN.DziennikElem on DZK_GIDNumer = DEL_GIDNumer + inner join CDN.Dekrety on DT_GIDNumer = DEL_GIDNumer + where DZK_Rok = @Rok and DZK_Miesiac = @Miesiac + order by 1 +GO diff --git a/README.md b/README.md new file mode 100644 index 0000000..6dda105 --- /dev/null +++ b/README.md @@ -0,0 +1 @@ +# ImportDokMag \ No newline at end of file