Dodaj pliki projektów.

This commit is contained in:
Krzysztof committed 2026-10-14 11:31:36 +02:00
1 parent 1d6a7b0924
commit da030eff7c
298 files changed
+83623

No files matched your search

@@ -0,0 +1,192 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 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.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
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
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.11.31\sql08r2;Initial Catalog=CDNXL_GOTEC_J;User ID=sa;Passwo"& _
"rd=cdn")> _
Public ReadOnly Property CS_Src() As String
Get
Return CType(Me("CS_Src"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("c:\temp")> _
Public Property FolderR_Roboczy() As String
Get
Return CType(Me("FolderR_Roboczy"),String)
End Get
Set
Me("FolderR_Roboczy") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("crispcas\sql17")> _
Public Property SerwerKlucza() As String
Get
Return CType(Me("SerwerKlucza"),String)
End Get
Set
Me("SerwerKlucza") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("MAGJ")> _
Public Property Seria() As String
Get
Return CType(Me("Seria"),String)
End Get
Set
Me("Seria") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("10.0.2.252\GOTECSQL2")> _
Public Property SerwerSrc() As String
Get
Return CType(Me("SerwerSrc"),String)
End Get
Set
Me("SerwerSrc") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property MCsrc() As String
Get
Return CType(Me("MCsrc"),String)
End Get
Set
Me("MCsrc") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property Comsrc() As String
Get
Return CType(Me("Comsrc"),String)
End Get
Set
Me("Comsrc") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("CDNXL_GOTEC_J")> _
Public Property BazaSrc() As String
Get
Return CType(Me("BazaSrc"),String)
End Get
Set
Me("BazaSrc") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property check() As String
Get
Return CType(Me("check"),String)
End Get
Set
Me("check") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("CDNXL_GOTEC_80")> _
Public Property BazaDst() As String
Get
Return CType(Me("BazaDst"),String)
End Get
Set
Me("BazaDst") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.ImportDokMag.My.MySettings
Get
Return Global.ImportDokMag.My.MySettings.Default
End Get
End Property
End Module
End Namespace
@@ -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
<Assembly: AssemblyTitle("ImportDokMag")>
<Assembly: AssemblyDescription("Import księgowań WZ, PZ, PW, RW, MMW")>
<Assembly: AssemblyCompany("myCONSULT Sp. z o. o.")>
<Assembly: AssemblyProduct("ImportDokMag")>
<Assembly: AssemblyCopyright("Copyright © 2019 Krzysztof Czapliński")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Następujący identyfikator GUID jest identyfikatorem biblioteki typów w przypadku udostępnienia tego projektu w modelu COM
<Assembly: Guid("64ceae1f-cb15-4f1b-8e35-2cb92f6fda95")>
' 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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.1.0.0")>
<Assembly: AssemblyFileVersion("1.1.0.0")>