neu
This commit is contained in:
@@ -1203,6 +1203,7 @@ Public Class cDakosy_EZA_Adressen
|
||||
Property ezaAd_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL,
|
||||
Property ezaAd_BewilligungsFachVerfahren As Object = Nothing ' VARCHAR (35) NULL,
|
||||
Property ezaAd_BewilligungsnummerEndverwender As Object = Nothing ' VARCHAR (35) NULL,
|
||||
' Property ezaAd_VERAGKdNr As Object = Nothing ' VARCHAR (35) NULL,
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -1233,6 +1234,7 @@ Public Class cDakosy_EZA_Adressen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_Bewilligungsnummer", ezaAd_Bewilligungsnummer)) ' VARCHAR (35) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsFachVerfahren", ezaAd_BewilligungsFachVerfahren)) ' VARCHAR (35) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsnummerEndverwender", ezaAd_BewilligungsnummerEndverwender)) ' VARCHAR (35) NULL,
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_VERAGKdNr", ezaAd_VERAGKdNr)) ' VARCHAR (35) NULL,
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
@@ -866,7 +866,7 @@ Public Class cDakosyNCTSOut
|
||||
SPEDITIONSBUCH.Abfertigungsart = 6
|
||||
For Each s In DY.ncts_SICHERHEITSANGABEN
|
||||
Select Case If(s.nctsSA_GRN, "")
|
||||
Case "15TR0004000020917", "12TR0004000004665" : SPEDITIONSBUCH.Abfertigungsart = 34
|
||||
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" : SPEDITIONSBUCH.Abfertigungsart = 34
|
||||
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
|
||||
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
|
||||
End Select
|
||||
|
||||
@@ -84,7 +84,20 @@ Public Class cDakosy_Zollanmeldungen
|
||||
Dim split = Me.dy_BezugsNr.Split("/")
|
||||
If split.Length >= 2 Then
|
||||
srchStrFiliale = split(0)
|
||||
srchStrAbf = split(1)
|
||||
|
||||
'Wenn Abfertigungsnummer korrekt gefunden wurde...
|
||||
If IsNumeric(split(1)) Then
|
||||
srchStrAbf = split(1)
|
||||
Else
|
||||
Dim tmp = ""
|
||||
'Bis zum ersten Buchstaben...
|
||||
For Each s In split(1)
|
||||
If IsNumeric(s) Then : tmp &= s
|
||||
Else : Exit For : End If
|
||||
Next
|
||||
srchStrAbf = tmp
|
||||
End If
|
||||
|
||||
' ElseIf Then
|
||||
' srchStrAbf = split(X)
|
||||
Else
|
||||
|
||||
@@ -10,7 +10,8 @@
|
||||
<AssemblyName>DAKOSY_Worker</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
@@ -73,6 +74,7 @@
|
||||
<Compile Include="cDakosy_Statusmeldungen.vb" />
|
||||
<Compile Include="cDY_Statusliste.vb" />
|
||||
<Compile Include="cDakosy_Stammreferenzen.vb" />
|
||||
<Compile Include="cZollsysteme_Aktenbeschriftung.vb" />
|
||||
<Compile Include="cZOLL_IMPORT.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\AES\ERROR\e_err_nck.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\AES\e_exp_dat_DEXPDE.Designer.vb" />
|
||||
|
||||
8
DAKOSY_Worker/My Project/Application.Designer.vb
generated
8
DAKOSY_Worker/My Project/Application.Designer.vb
generated
@@ -1,10 +1,10 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
|
||||
39
DAKOSY_Worker/My Project/Resources.Designer.vb
generated
39
DAKOSY_Worker/My Project/Resources.Designer.vb
generated
@@ -1,30 +1,31 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
@@ -32,9 +33,9 @@ Namespace My.Resources
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
@@ -46,15 +47,15 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
50
DAKOSY_Worker/My Project/Settings.Designer.vb
generated
50
DAKOSY_Worker/My Project/Settings.Designer.vb
generated
@@ -1,10 +1,10 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
@@ -14,26 +14,26 @@ Option Explicit On
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<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)
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#Region "Automatische My.Settings-Speicherfunktion"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
<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
|
||||
|
||||
@@ -41,14 +41,14 @@ Namespace My
|
||||
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
|
||||
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
|
||||
|
||||
@@ -27,6 +27,8 @@ Public Class cIMPORT_Codelisten
|
||||
Return Import_I0400(TESTSYSTEM)
|
||||
Case "I0200"
|
||||
Return Import_I0200(TESTSYSTEM)
|
||||
Case "I0700"
|
||||
Return Import_I0700(TESTSYSTEM)
|
||||
End Select
|
||||
Return False
|
||||
End Function
|
||||
@@ -469,6 +471,60 @@ Public Class cIMPORT_Codelisten
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function Import_I0700(TESTSYSTEM) As Boolean
|
||||
Dim MyData As String = ""
|
||||
Try
|
||||
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
||||
|
||||
Using WC As New System.Net.WebClient()
|
||||
' C0008_URL()
|
||||
WC.Encoding = ASCIIEncoding.UTF8
|
||||
Dim URL = cDY_Paramter.GET_PARAM_ByName("I0700_URL", TESTSYSTEM)
|
||||
If URL = String.Empty Then Return False
|
||||
' MsgBox(URL)
|
||||
MyData = WC.DownloadString(URL)
|
||||
Dim doc As New XmlDocument()
|
||||
doc.LoadXml(MyData)
|
||||
|
||||
Dim LC As New cMasseinheit
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("Codelist").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then
|
||||
For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes
|
||||
' MsgBox(Entry.SelectNodes("Code")(0).InnerText)
|
||||
Dim Code = ""
|
||||
Dim Qualifier = ""
|
||||
Dim CodeQualifier = ""
|
||||
Dim Description = ""
|
||||
Dim StartDate = Nothing
|
||||
Dim EndDate = Nothing
|
||||
If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText
|
||||
If Entry.SelectNodes("Qualifier").Count > 0 Then Qualifier = Entry.SelectNodes("Qualifier")(0).InnerText
|
||||
If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText
|
||||
If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText)
|
||||
If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText)
|
||||
|
||||
LC.Add(New cMasseinheit.cMasseinheitI0700(Code, Qualifier, Code & Qualifier, Description, StartDate, EndDate))
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If LC.Count > 0 Then
|
||||
Return LC.INSERT_DB(TESTSYSTEM)
|
||||
End If
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -513,6 +569,54 @@ Class cWaehrungsliste
|
||||
|
||||
End Class
|
||||
|
||||
Class cMasseinheit
|
||||
Inherits List(Of cMasseinheitI0700)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Function INSERT_DB(TESTSSYSTEM) As Boolean
|
||||
|
||||
If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_I0700_Masseinheiten]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
|
||||
Dim ok = True
|
||||
For Each l In Me
|
||||
Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Qualifier", l.Qualifier))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("CodeQualifier", l.CodeQualifier))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate))
|
||||
If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_I0700_Masseinheiten] (Code, Qualifier,CodeQualifier,Description, StartDate, EndDate) VALUES (@Code,@Qualifier,@CodeQualifier,@Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
|
||||
ok = False
|
||||
End If
|
||||
Next
|
||||
Return ok
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Class cMasseinheitI0700
|
||||
Property Code As String = ""
|
||||
Property Qualifier As String = ""
|
||||
Property CodeQualifier As String = ""
|
||||
|
||||
Property Description As String = ""
|
||||
Property StartDate As Object = Nothing
|
||||
Property EndDate As Object = Nothing
|
||||
|
||||
Sub New(Code, Qualifier, CodeQualifier, Description, StartDate, EndDate)
|
||||
Me.Code = Code
|
||||
Me.Qualifier = Qualifier
|
||||
Me.CodeQualifier = CodeQualifier
|
||||
Me.Description = Description
|
||||
Me.StartDate = StartDate
|
||||
Me.EndDate = EndDate
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Class cEZA_Unterlagearten
|
||||
Inherits List(Of cEZA_UnterlageartenI0200)
|
||||
|
||||
@@ -253,7 +253,7 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
End Function
|
||||
'Zollsystem 0,1
|
||||
Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False) As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False, Optional Personalnummer As Integer = -1) As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
|
||||
Me.SPEDITIONSBUCH = SPEDITIONSBUCH
|
||||
Me.strManNr = strManNr
|
||||
@@ -497,28 +497,28 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
'Wenn Packstücke im Aviso eingegeben wurden, werden diese in das Speditionbuch gespeichert
|
||||
If packstueckeAVISO_TMP.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Packstücke = packstueckeAVISO_TMP
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Bemerkungen = packstueckeZOLL_TMP
|
||||
SPEDITIONSBUCH.Packstücke = packstueckeAVISO_TMP
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Bemerkungen = packstueckeZOLL_TMP
|
||||
Else
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Packstücke = packstueckeZOLL_TMP
|
||||
End If
|
||||
|
||||
'Wenn Gewicht im Aviso eingegeben ist, aber keine Rohmasse von ATLAS/EZOLL
|
||||
If IsNull(SPEDITIONSBUCH.Rohmasse) And Not IsNull(RohmasseAviso) Then
|
||||
If IsNumeric(RohmasseAviso) Then
|
||||
SPEDITIONSBUCH.Rohmasse = CInt(RohmasseAviso)
|
||||
End If
|
||||
End If
|
||||
|
||||
' If autoImport And Not notFound Then
|
||||
If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then
|
||||
'Überstellungs-T
|
||||
SPEDITIONSBUCH.Abfertigungsart = 5
|
||||
Else
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Packstücke = packstueckeZOLL_TMP
|
||||
End If
|
||||
|
||||
'Wenn Gewicht im Aviso eingegeben ist, aber keine Rohmasse von ATLAS/EZOLL
|
||||
If IsNull(SPEDITIONSBUCH.Rohmasse) And Not IsNull(RohmasseAviso) Then
|
||||
If IsNumeric(RohmasseAviso) Then
|
||||
SPEDITIONSBUCH.Rohmasse = CInt(RohmasseAviso)
|
||||
End If
|
||||
End If
|
||||
|
||||
' If autoImport And Not notFound Then
|
||||
If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then
|
||||
'Überstellungs-T
|
||||
SPEDITIONSBUCH.Abfertigungsart = 5
|
||||
Else
|
||||
SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
End If
|
||||
SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
|
||||
|
||||
@@ -531,7 +531,7 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
If SPEDITIONSBUCH.Währungsschlüssel Is Nothing OrElse (IsNumeric(SPEDITIONSBUCH.Währungsschlüssel) AndAlso SPEDITIONSBUCH.Währungsschlüssel <= 0) Then SPEDITIONSBUCH.Währungsschlüssel = 900
|
||||
|
||||
|
||||
If Personalnummer > 0 Then SPEDITIONSBUCH.Personalnummer = Personalnummer
|
||||
'notFound = Me.notFound
|
||||
|
||||
If autoImport AndAlso Not checkIfAutoOK() Then
|
||||
@@ -609,7 +609,7 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
|
||||
|
||||
Function checkIfAutoOK() As Boolean
|
||||
Public Function checkIfAutoOK() As Boolean
|
||||
Try
|
||||
|
||||
If If(SPEDITIONSBUCH.Personalnummer, "") = "" Then Return False
|
||||
|
||||
649
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
Normal file
649
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
Normal file
@@ -0,0 +1,649 @@
|
||||
Public Class cZollsysteme_Aktenbeschriftung
|
||||
|
||||
Property Praeferenznachweis As String
|
||||
Property Handelsrechnung As String
|
||||
Property PräferenzAufRechnung As String
|
||||
|
||||
Property Colli As String
|
||||
Property Gewicht As String
|
||||
Property Rechnungspreis As String
|
||||
Property Warenbezeichung As String
|
||||
|
||||
Property AbgabenKonto As String
|
||||
Property Garantie As String
|
||||
|
||||
Property Absender As String
|
||||
Property Empfaenger As String
|
||||
Property Anmelder As String
|
||||
Property Vertreter As String
|
||||
Property Sachbearbeiter As String
|
||||
|
||||
Property VerBestLandZst As String
|
||||
|
||||
Property ATCMRN As String
|
||||
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
'Sub New(BezugsNr, Abfertigungsart)
|
||||
' getDataByBezugsnummer(BezugsNr, Abfertigungsart)
|
||||
'End Sub
|
||||
|
||||
Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
Case "UNISPED"
|
||||
Case Else
|
||||
Select Case Abfertigungsart
|
||||
Case 38, 26 'AT
|
||||
' getADFrom_EZOLL
|
||||
Case 1, 2, 3, 28
|
||||
If load_EZA_FromDAKOSY(BezugsNr) Then Return True
|
||||
'... and Systeme
|
||||
|
||||
Case 5, 6
|
||||
If load_NCTS_FromDAKOSY(BezugsNr) Then Return True
|
||||
End Select
|
||||
End Select
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function addIfNotExists(ByRef LIST As List(Of String), addstring As String) As List(Of String)
|
||||
If addstring = "" Then Return LIST
|
||||
For Each s In LIST
|
||||
If s = addstring Then Return LIST
|
||||
Next
|
||||
LIST.Add(addstring)
|
||||
Return LIST
|
||||
End Function
|
||||
|
||||
Function listToString(ByRef LIST As List(Of String)) As String
|
||||
listToString = ""
|
||||
For Each s In LIST
|
||||
listToString &= ", " & s
|
||||
Next
|
||||
If listToString <> "" Then listToString = listToString.Substring(2)
|
||||
End Function
|
||||
|
||||
Function load_EZA_FromDAKOSY(BezugsNr) As Boolean
|
||||
Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
|
||||
If EZA Is Nothing Then Return False
|
||||
Return load_EZA_FromDAKOSY(EZA)
|
||||
End Function
|
||||
|
||||
Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean
|
||||
Try
|
||||
If EZA Is Nothing Then Return Nothing
|
||||
EZA.LOAD_Warenposition()
|
||||
|
||||
'
|
||||
If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg"
|
||||
If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2")
|
||||
Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
|
||||
ATCMRN = If(EZA.eza_ANR, "")
|
||||
|
||||
' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
|
||||
'Property Absender As String
|
||||
'Property Empfaenger As String
|
||||
'Property Anmelder As String
|
||||
|
||||
Dim RG_List As New List(Of String)
|
||||
Dim ATR_List As New List(Of String)
|
||||
Dim PAR_List As New List(Of String) ' präfAufRg
|
||||
Dim Colli As Integer = 0
|
||||
Dim cnt As Integer = 0
|
||||
If EZA.eza_WARENPOS.Count > 0 Then
|
||||
Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: "
|
||||
Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *")
|
||||
For Each POS In EZA.eza_WARENPOS
|
||||
For Each UL In POS.ezaWP_UNTERLAGEN
|
||||
If UL.ezaWpUl_Art IsNot Nothing Then
|
||||
Select Case UL.ezaWpUl_Art
|
||||
Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
|
||||
Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
|
||||
Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl
|
||||
cnt += 1
|
||||
Next
|
||||
End If
|
||||
Me.Colli = Colli & " Pk."
|
||||
|
||||
For Each AD In EZA.eza_ADRESSEN
|
||||
If AD.ezaAd_AdressTyp IsNot Nothing Then
|
||||
Dim Anschrift = (If(AD.ezaAd_TeilnehmerEORI, "") & " " & If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "")).ToString.Trim
|
||||
Select Case AD.ezaAd_AdressTyp
|
||||
Case "CZ" : Absender = Anschrift
|
||||
Case "CN" : Empfaenger = Anschrift
|
||||
Case "DT" : Anmelder = Anschrift
|
||||
Case "CB" : Vertreter = Anschrift
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
Sachbearbeiter = If(EZA.eza_Bearbeiter, "")
|
||||
|
||||
VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "")
|
||||
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
|
||||
If If(EZA.eza_Bestimmungsland, "") = "DE" Then
|
||||
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle
|
||||
Else
|
||||
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle
|
||||
End If
|
||||
|
||||
|
||||
Handelsrechnung = listToString(RG_List)
|
||||
Praeferenznachweis = listToString(ATR_List)
|
||||
PräferenzAufRechnung = listToString(PAR_List)
|
||||
|
||||
Dim AUFSCHUB_List As New List(Of String)
|
||||
For Each AB In EZA.eza_AUFSCHUB
|
||||
addIfNotExists(AUFSCHUB_List, (If(AB.ezaAfb_KontoNr, "")).Trim)
|
||||
Next
|
||||
|
||||
AbgabenKonto = listToString(AUFSCHUB_List)
|
||||
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(BezugsNr) As Boolean
|
||||
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True)
|
||||
If NCTS Is Nothing Then Return False
|
||||
Return load_NCTS_FromDAKOSY(NCTS)
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut) As Boolean
|
||||
Try
|
||||
If NCTS Is Nothing Then Return Nothing
|
||||
NCTS.LOAD_Warenposition()
|
||||
|
||||
'
|
||||
If IsNumeric(If(NCTS.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") & " kg"
|
||||
|
||||
' Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "")
|
||||
'Property Absender As String
|
||||
'Property Empfaenger As String
|
||||
'Property Anmelder As String
|
||||
|
||||
Dim RG_List As New List(Of String)
|
||||
Dim ATR_List As New List(Of String)
|
||||
Dim PAR_List As New List(Of String) ' präfAufRg
|
||||
Dim Colli As Integer = 0
|
||||
Dim cnt As Integer = 0
|
||||
Dim Warenwert As Double = 0
|
||||
Dim WarenwertWaehrung As String = ""
|
||||
|
||||
If NCTS.ncts_WARENPOS.Count > 0 Then
|
||||
Me.Warenbezeichung = NCTS.ncts_WARENPOS.Count & " POS: "
|
||||
Me.Warenbezeichung &= If(NCTS.ncts_WARENPOS.Count = 1, If(NCTS.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, ""), "* diverse *")
|
||||
For Each POS In NCTS.ncts_WARENPOS
|
||||
For Each UL In POS.nctsWP_UNTERLAGEN
|
||||
If UL.nctsWpUl_Typ IsNot Nothing Then
|
||||
Select Case UL.nctsWpUl_Typ
|
||||
Case "380" : addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, ""))
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
For Each UL In POS.nctsWP_PACKSTUECKE
|
||||
If IsNumeric(If(UL.nctsWpPk_PackstueckeAnzahl, "")) Then Colli += UL.nctsWpPk_PackstueckeAnzahl
|
||||
Next
|
||||
|
||||
If cnt = 0 Then WarenwertWaehrung = If(POS.nctsWP_WarenwertWaehrung, "")
|
||||
If IsNumeric(If(POS.nctsWP_Warenwert, "")) Then Warenwert += POS.nctsWP_Warenwert
|
||||
|
||||
cnt += 1
|
||||
Next
|
||||
End If
|
||||
Me.Colli = Colli & " Pk."
|
||||
Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
|
||||
|
||||
|
||||
Absender = (If(NCTS.ncts_Versender_EORI, "") & " " & If(NCTS.ncts_Versender_Name, "") & " " & If(NCTS.ncts_Versender_Land, "") & " " & If(NCTS.ncts_Versender_Ort, "")).ToString.Trim
|
||||
Empfaenger = (If(NCTS.ncts_Empfaenger_EORI, "") & " " & If(NCTS.ncts_Empfaenger_Name, "") & " " & If(NCTS.ncts_Empfaenger_Land, "") & " " & If(NCTS.ncts_Empfaenger_Ort, "")).ToString.Trim
|
||||
Anmelder = (If(NCTS.ncts_Hauptverpflichteter_EORI, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Name, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Land, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Ort, "")).ToString.Trim
|
||||
Sachbearbeiter = If(NCTS.ncts_Bearbeiter, "")
|
||||
|
||||
|
||||
ATCMRN = If(If(NCTS.ncts_MRN, "") = "", If(NCTS.ncts_ANR, ""), If(NCTS.ncts_MRN, ""))
|
||||
|
||||
VerBestLandZst = If(NCTS.ncts_VersendungsLandCode, "") & " --> "
|
||||
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand1, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_SumA_BefoerderungsrouteLand1
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand2, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand2
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand3, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand3
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand4, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand4
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand5, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand5
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand6, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand6
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand7, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand7
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand8, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand8
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand9, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand9
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand10, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand10
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand11, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand11
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand12, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand12
|
||||
VerBestLandZst &= " --> " & If(NCTS.ncts_BestimmungslandCode, "") & ", "
|
||||
|
||||
VerBestLandZst &= If(NCTS.ncts_AbgangsDienststellennummer, "") & " --> "
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer1, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer1
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer2, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer2
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer3, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer3
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer4, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer4
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer5, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer5
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer6, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer6
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer7, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer7
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer8, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer8
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer9, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer9
|
||||
|
||||
If If(NCTS.ncts_BestimmungsstelleDienststellennummer, "") <> "" Then VerBestLandZst &= " --> " & NCTS.ncts_BestimmungsstelleDienststellennummer
|
||||
|
||||
VerBestLandZst = VerBestLandZst.Replace(" --> --> ", " --> ")
|
||||
|
||||
Handelsrechnung = listToString(RG_List)
|
||||
Praeferenznachweis = listToString(ATR_List)
|
||||
PräferenzAufRechnung = listToString(PAR_List)
|
||||
|
||||
Dim AUFSCHUB_List As New List(Of String)
|
||||
Dim GRNBetrag As Double = 0
|
||||
For Each AB In NCTS.ncts_SICHERHEITSANGABEN
|
||||
addIfNotExists(AUFSCHUB_List, (If(AB.nctsSA_GRN, "")).Trim)
|
||||
If IsNumeric(If(AB.nctsSA_AbgabenBetrag, "")) Then GRNBetrag += AB.nctsSA_AbgabenBetrag
|
||||
Next
|
||||
|
||||
Garantie = listToString(AUFSCHUB_List)
|
||||
Garantie &= ", " & GRNBetrag.ToString("C2")
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As Boolean
|
||||
Try
|
||||
If DY_TMP Is Nothing Then Return Nothing
|
||||
If NCTS_TMP Is Nothing Then Return Nothing
|
||||
NCTS_TMP.LOAD_Warenposition()
|
||||
|
||||
Me.Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, "") & " Pk."
|
||||
If IsNumeric(If(NCTS_TMP.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") & " kg"
|
||||
|
||||
|
||||
Dim RG_List As New List(Of String)
|
||||
Dim ATR_List As New List(Of String)
|
||||
Dim NAR_List As New List(Of String)
|
||||
|
||||
For Each POS In NCTS_TMP.ncts_WARENPOS
|
||||
For Each UL In POS.nctsWP_UNTERLAGEN
|
||||
If UL.nctsWpUl_Typ = 380 Then addIfNotExists(RG_List, UL.nctsWpUl_Referenz)
|
||||
If UL.nctsWpUl_Typ = 380 Then addIfNotExists(ATR_List, UL.nctsWpUl_Referenz)
|
||||
If UL.nctsWpUl_Typ = 380 Then addIfNotExists(NAR_List, UL.nctsWpUl_Referenz)
|
||||
Next
|
||||
Next
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
|
||||
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
||||
" FROM zsAnmRefs" &
|
||||
" WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')" &
|
||||
" ORDER BY GeaendertAm DESC", "EZOLL")
|
||||
If dEZOLL Is Nothing Then Return Nothing
|
||||
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
||||
|
||||
Dim r As DataRow = dEZOLL.Rows(0)
|
||||
|
||||
Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim LRN = ""
|
||||
Try
|
||||
|
||||
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
|
||||
|
||||
Dim Bestimmungszollstelle = ""
|
||||
Dim Bürgschaft = ""
|
||||
|
||||
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
||||
" FROM zsAnmRefs" &
|
||||
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
|
||||
" ORDER BY GeaendertAm DESC", "EZOLL")
|
||||
|
||||
If dEZOLL Is Nothing Then Return Nothing
|
||||
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
||||
|
||||
'TextBox2.ForeColor = Color.Green
|
||||
Dim r As DataRow = dEZOLL.Rows(0)
|
||||
|
||||
LRN = r.Item("LRN")
|
||||
|
||||
If Not SQL.IsNull(r.Item("OperatorID")) Then
|
||||
Select Case r.Item("OperatorID")
|
||||
Case "1"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "2"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "SBG"
|
||||
|
||||
Case "3"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "NKD"
|
||||
Case "4", "5"
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "6"
|
||||
If LRN.StartsWith("4801") Then
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
Else
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
End If
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "8"
|
||||
VERAG_NCTS.Company = "DURMAZ"
|
||||
VERAG_NCTS.Department = "SBG"
|
||||
Return Nothing
|
||||
Case Else
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
|
||||
|
||||
VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
|
||||
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
|
||||
|
||||
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
Case "F"
|
||||
VERAG_NCTS.ProcessData.Status = 50
|
||||
Case "FB"
|
||||
VERAG_NCTS.ProcessData.Status = 60
|
||||
Case Else
|
||||
VERAG_NCTS.ProcessData.Status = 0
|
||||
End Select
|
||||
|
||||
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmHea.Rows().Count > 0 Then
|
||||
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
|
||||
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
|
||||
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
||||
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
|
||||
End If
|
||||
|
||||
|
||||
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
|
||||
'BestimmungsstelleDienststelle
|
||||
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmDestCo.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
|
||||
End If
|
||||
|
||||
' Kennzeichen
|
||||
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmTransp.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
|
||||
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
|
||||
End If
|
||||
End If
|
||||
|
||||
'Versender
|
||||
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmSender.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
|
||||
End If
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
'Empfänger
|
||||
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
||||
End If
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
'Frächter
|
||||
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmCarrier.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Carrier.Name = DTzsAnmCarrier.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
' Tabelle zsAnmGrteeGrteeRef lesen.
|
||||
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
|
||||
" FROM zsAnmGrteeGrteeRef" &
|
||||
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
|
||||
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
||||
|
||||
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
|
||||
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
||||
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
||||
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
|
||||
Next
|
||||
End If
|
||||
|
||||
'POSITIONEN
|
||||
Dim cntPos = 1
|
||||
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
|
||||
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
||||
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
|
||||
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
||||
V_POS.PosNr = cntPos
|
||||
Dim pkGes = 0
|
||||
Dim pkArt = ""
|
||||
|
||||
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
|
||||
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
|
||||
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
|
||||
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
|
||||
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
|
||||
Next
|
||||
End If
|
||||
|
||||
V_POS.Quantity = pkGes
|
||||
V_POS.Packaging = pkArt
|
||||
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
|
||||
|
||||
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
|
||||
|
||||
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
||||
cntPos += 1
|
||||
Next
|
||||
End If
|
||||
|
||||
UniqueId = AnmID
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return VERAG_NCTS
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function getGRTY_fromEZOLL(LRN As String) As String
|
||||
Try
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Try
|
||||
If NCTS_TMP Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing
|
||||
|
||||
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
|
||||
|
||||
If NCTS_TMP.telanm_firma <> "" Then
|
||||
VERAG_NCTS.Company = NCTS_TMP.telanm_firma
|
||||
Else
|
||||
VERAG_NCTS.Company = "IMEX"
|
||||
End If
|
||||
VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung
|
||||
|
||||
|
||||
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
||||
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
||||
Select Case NCTS_TMP.telanm_Status
|
||||
Case < 50
|
||||
VERAG_NCTS.ProcessData.Status = 0
|
||||
Case 50, 53
|
||||
VERAG_NCTS.ProcessData.Status = 50
|
||||
Case 60
|
||||
VERAG_NCTS.ProcessData.Status = 60
|
||||
End Select
|
||||
|
||||
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate
|
||||
|
||||
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "")
|
||||
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "")
|
||||
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "")
|
||||
|
||||
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = If(NCTS_TMP.CtrlRslt_DLimit, "")
|
||||
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp
|
||||
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "")
|
||||
|
||||
'Versender
|
||||
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
||||
|
||||
'Empfänger
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
|
||||
|
||||
''Frächter
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
||||
''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
||||
|
||||
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
|
||||
End If
|
||||
|
||||
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0")
|
||||
Dim cntPos = 1
|
||||
If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then
|
||||
For Each POS In NCTS_TMP.POSITIONSDATEN
|
||||
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
||||
V_POS.PosNr = cntPos
|
||||
Dim pkGes = 0
|
||||
Dim pkArt = ""
|
||||
If POS.PACKSTUECKE IsNot Nothing Then
|
||||
For Each PK In POS.PACKSTUECKE
|
||||
If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
|
||||
If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
|
||||
If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
|
||||
Next
|
||||
End If
|
||||
V_POS.Quantity = pkGes
|
||||
V_POS.Packaging = pkArt
|
||||
V_POS.GrossWeight = POS.Item_Gross
|
||||
V_POS.GoodsDescription = POS.Item_GdsDes
|
||||
|
||||
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
||||
cntPos += 1
|
||||
Next
|
||||
End If
|
||||
UniqueId = NCTS_TMP.telanm_id
|
||||
|
||||
'If XMLFilePath = "" Then
|
||||
' Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
||||
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
||||
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
|
||||
'End If
|
||||
|
||||
|
||||
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return VERAG_NCTS
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function insertFTPLOG(filePath As String, user As String, NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, vorsystem As String)
|
||||
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','" & vorsystem & "')", "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem)
|
||||
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -10,8 +10,9 @@
|
||||
<AssemblyName>MDM_Worker</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<Deterministic>true</Deterministic>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
|
||||
8
MDM_Worker/My Project/Application.Designer.vb
generated
8
MDM_Worker/My Project/Application.Designer.vb
generated
@@ -1,10 +1,10 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
|
||||
39
MDM_Worker/My Project/Resources.Designer.vb
generated
39
MDM_Worker/My Project/Resources.Designer.vb
generated
@@ -1,30 +1,31 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
@@ -32,9 +33,9 @@ Namespace My.Resources
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
@@ -46,15 +47,15 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
50
MDM_Worker/My Project/Settings.Designer.vb
generated
50
MDM_Worker/My Project/Settings.Designer.vb
generated
@@ -1,10 +1,10 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
@@ -14,26 +14,26 @@ Option Explicit On
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<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)
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#Region "Automatische My.Settings-Speicherfunktion"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
<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
|
||||
|
||||
@@ -41,14 +41,14 @@ Namespace My
|
||||
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
|
||||
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
|
||||
|
||||
@@ -10,7 +10,7 @@
|
||||
<AssemblyName>TELOTEC_Worker</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<Deterministic>true</Deterministic>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
|
||||
@@ -408,6 +408,42 @@ Public Class cTelotec_Anmeldung
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function LOAD_ByBezugsNr(BezugsNr, Optional loadALL = True) As cTelotec_Anmeldung
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim TC As New cTelotec_Anmeldung
|
||||
TC.POSITIONSDATEN.Clear()
|
||||
TC.SICHERHEIT.Clear()
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@BezugsNr AND [telnam_aktuellsteNachricht]=1 ", conn)
|
||||
cmd.Parameters.AddWithValue("@BezugsNr", BezugsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In TC.getParameterList()
|
||||
Dim propInfo As PropertyInfo = TC.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(TC, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(TC, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
TC.LOAD_Positionsdaten()
|
||||
TC.LOAD_Sicherheit()
|
||||
End If
|
||||
Return TC
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Function UPDATE_Status(status As Integer) As String
|
||||
If telanm_id > 0 Then
|
||||
|
||||
@@ -11,7 +11,7 @@
|
||||
<AssemblyName>ADMIN</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<TargetFrameworkProfile>
|
||||
</TargetFrameworkProfile>
|
||||
@@ -31,7 +31,7 @@
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
|
||||
@@ -10,7 +10,7 @@
|
||||
<add name="ADMIN.My.MySettings.connToAdminDEV" connectionString="Data Source=DEVELOPER\DEVSQL;Initial Catalog=ADMIN;Persist Security Info=True;User ID=sa;Password=BmWr501956" providerName="System.Data.SqlClient"/>
|
||||
</connectionStrings>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
|
||||
</startup>
|
||||
<userSettings>
|
||||
<ADMIN.My.MySettings>
|
||||
|
||||
68
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
68
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
@@ -61,6 +61,9 @@ Partial Class frmMitarbDetails
|
||||
Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtALIASUser = New System.Windows.Forms.TextBox()
|
||||
Me.Label52 = New System.Windows.Forms.Label()
|
||||
Me.lkl = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
|
||||
@@ -158,9 +161,6 @@ Partial Class frmMitarbDetails
|
||||
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
|
||||
Me.cboAdminBer = New System.Windows.Forms.ComboBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label52 = New System.Windows.Forms.Label()
|
||||
Me.txtALIASUser = New System.Windows.Forms.TextBox()
|
||||
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.TabControl2.SuspendLayout()
|
||||
@@ -643,6 +643,37 @@ Partial Class frmMitarbDetails
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Firmendaten"
|
||||
'
|
||||
'cboALIASDomain
|
||||
'
|
||||
Me.cboALIASDomain._allowedValuesFreiText = Nothing
|
||||
Me.cboALIASDomain._allowFreiText = False
|
||||
Me.cboALIASDomain._value = ""
|
||||
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboALIASDomain.FormattingEnabled = True
|
||||
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
|
||||
Me.cboALIASDomain.Location = New System.Drawing.Point(409, 37)
|
||||
Me.cboALIASDomain.Name = "cboALIASDomain"
|
||||
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
|
||||
Me.cboALIASDomain.TabIndex = 100
|
||||
'
|
||||
'txtALIASUser
|
||||
'
|
||||
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtALIASUser.Location = New System.Drawing.Point(524, 37)
|
||||
Me.txtALIASUser.Name = "txtALIASUser"
|
||||
Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
|
||||
Me.txtALIASUser.TabIndex = 99
|
||||
'
|
||||
'Label52
|
||||
'
|
||||
Me.Label52.AutoSize = True
|
||||
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label52.Location = New System.Drawing.Point(406, 21)
|
||||
Me.Label52.Name = "Label52"
|
||||
Me.Label52.Size = New System.Drawing.Size(167, 13)
|
||||
Me.Label52.TabIndex = 98
|
||||
Me.Label52.Text = "ALIAS-Name (Domain / AD-User):"
|
||||
'
|
||||
'lkl
|
||||
'
|
||||
Me.lkl.AutoSize = True
|
||||
@@ -704,7 +735,6 @@ Partial Class frmMitarbDetails
|
||||
Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboFirma.FormattingEnabled = True
|
||||
Me.cboFirma.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX", "BEIDE"})
|
||||
Me.cboFirma.Location = New System.Drawing.Point(18, 76)
|
||||
Me.cboFirma.Name = "cboFirma"
|
||||
Me.cboFirma.Size = New System.Drawing.Size(177, 21)
|
||||
@@ -1259,7 +1289,7 @@ Partial Class frmMitarbDetails
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage3.Size = New System.Drawing.Size(715, 679)
|
||||
Me.TabPage3.Size = New System.Drawing.Size(715, 700)
|
||||
Me.TabPage3.TabIndex = 1
|
||||
Me.TabPage3.Text = "Programme"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
@@ -1694,34 +1724,6 @@ Partial Class frmMitarbDetails
|
||||
Me.Label7.TabIndex = 78
|
||||
Me.Label7.Text = "Berechtigung:"
|
||||
'
|
||||
'Label52
|
||||
'
|
||||
Me.Label52.AutoSize = True
|
||||
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label52.Location = New System.Drawing.Point(406, 21)
|
||||
Me.Label52.Name = "Label52"
|
||||
Me.Label52.Size = New System.Drawing.Size(167, 13)
|
||||
Me.Label52.TabIndex = 98
|
||||
Me.Label52.Text = "ALIAS-Name (Domain / AD-User):"
|
||||
'
|
||||
'txtALIASUser
|
||||
'
|
||||
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtALIASUser.Location = New System.Drawing.Point(524, 37)
|
||||
Me.txtALIASUser.Name = "txtALIASUser"
|
||||
Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
|
||||
Me.txtALIASUser.TabIndex = 99
|
||||
'
|
||||
'cboALIASDomain
|
||||
'
|
||||
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboALIASDomain.FormattingEnabled = True
|
||||
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
|
||||
Me.cboALIASDomain.Location = New System.Drawing.Point(409, 37)
|
||||
Me.cboALIASDomain.Name = "cboALIASDomain"
|
||||
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
|
||||
Me.cboALIASDomain.TabIndex = 100
|
||||
'
|
||||
'frmMitarbDetails
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
|
||||
@@ -52,6 +52,9 @@
|
||||
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
|
||||
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
|
||||
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
|
||||
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
|
||||
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
|
||||
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
|
||||
|
||||
cboALIASDomain.Items.Clear()
|
||||
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
@@ -60,6 +63,17 @@
|
||||
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-SBG", "VERAG-SBG"))
|
||||
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGNEUHAUS", "VERAGNEUHAUS"))
|
||||
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS"))
|
||||
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISU.AT"))
|
||||
|
||||
|
||||
cboFirma.Items.Clear()
|
||||
cboFirma.Items.Add("VERAG")
|
||||
cboFirma.Items.Add("ATILLA")
|
||||
cboFirma.Items.Add("IMEX")
|
||||
cboFirma.Items.Add("UNISPED")
|
||||
cboFirma.Items.Add("AMBAR")
|
||||
cboFirma.Items.Add("FRONTOFFICE")
|
||||
cboFirma.Items.Add("ALLE")
|
||||
|
||||
|
||||
|
||||
@@ -195,14 +209,12 @@
|
||||
cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
|
||||
txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
|
||||
|
||||
If mitarbeiter.mit_firma = "VERAG" Then
|
||||
cboFirma.SelectedIndex = 0
|
||||
ElseIf mitarbeiter.mit_firma = "ATILLA" Then
|
||||
cboFirma.SelectedIndex = 1
|
||||
ElseIf mitarbeiter.mit_firma = "IMEX" Then
|
||||
cboFirma.SelectedIndex = 2
|
||||
ElseIf mitarbeiter.mit_firma = "ALL" Then
|
||||
cboFirma.SelectedIndex = 3
|
||||
|
||||
|
||||
If mitarbeiter.mit_firma = "ALL" Then
|
||||
cboFirma.Text = "ALLE"
|
||||
Else
|
||||
cboFirma.Text = mitarbeiter.mit_firma
|
||||
End If
|
||||
|
||||
cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
|
||||
@@ -493,15 +505,10 @@
|
||||
cboKasse.changeItem(SQL.doSQL("UPDATE [Personal] SET Standard_RKSV_KasseId='" & cboKasse._value & "' WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
|
||||
End If
|
||||
|
||||
|
||||
If cboFirma.SelectedIndex = 0 Then
|
||||
mitarbeiter.mit_firma = "VERAG"
|
||||
ElseIf cboFirma.SelectedIndex = 1 Then
|
||||
mitarbeiter.mit_firma = "ATILLA"
|
||||
ElseIf cboFirma.SelectedIndex = 2 Then
|
||||
mitarbeiter.mit_firma = "IMEX"
|
||||
ElseIf cboFirma.SelectedIndex = 3 Then
|
||||
If cboFirma.Text = "ALLE" Then
|
||||
mitarbeiter.mit_firma = "ALL"
|
||||
Else
|
||||
mitarbeiter.mit_firma = cboFirma.Text
|
||||
End If
|
||||
|
||||
If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""
|
||||
|
||||
137
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
generated
137
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
generated
@@ -33,6 +33,12 @@ Partial Class usrCntlMitarbeiter
|
||||
Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.TabPage5 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cbx = New System.Windows.Forms.CheckBox()
|
||||
Me.txtSuche = New System.Windows.Forms.TextBox()
|
||||
@@ -40,18 +46,24 @@ Partial Class usrCntlMitarbeiter
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.TabPage6 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.TabPage3.SuspendLayout()
|
||||
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabPage4.SuspendLayout()
|
||||
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabPage5.SuspendLayout()
|
||||
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.TabPage6.SuspendLayout()
|
||||
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Button6
|
||||
@@ -116,6 +128,9 @@ Partial Class usrCntlMitarbeiter
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage3)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage4)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage5)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage6)
|
||||
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
@@ -165,6 +180,69 @@ Partial Class usrCntlMitarbeiter
|
||||
Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
|
||||
Me.dgvATILLA.TabIndex = 25
|
||||
'
|
||||
'TabPage3
|
||||
'
|
||||
Me.TabPage3.Controls.Add(Me.dgvIMEX)
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage3.Size = New System.Drawing.Size(881, 622)
|
||||
Me.TabPage3.TabIndex = 2
|
||||
Me.TabPage3.Text = "IMEX"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvIMEX
|
||||
'
|
||||
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvIMEX.Name = "dgvIMEX"
|
||||
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
|
||||
Me.dgvIMEX.TabIndex = 25
|
||||
'
|
||||
'TabPage4
|
||||
'
|
||||
Me.TabPage4.Controls.Add(Me.dgvUNISPED)
|
||||
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage4.Name = "TabPage4"
|
||||
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage4.Size = New System.Drawing.Size(881, 622)
|
||||
Me.TabPage4.TabIndex = 3
|
||||
Me.TabPage4.Text = "UNISPED"
|
||||
Me.TabPage4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvUNISPED
|
||||
'
|
||||
Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvUNISPED.Name = "dgvUNISPED"
|
||||
Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616)
|
||||
Me.dgvUNISPED.TabIndex = 25
|
||||
'
|
||||
'TabPage5
|
||||
'
|
||||
Me.TabPage5.Controls.Add(Me.dgvAMBAR)
|
||||
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage5.Name = "TabPage5"
|
||||
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage5.Size = New System.Drawing.Size(881, 622)
|
||||
Me.TabPage5.TabIndex = 4
|
||||
Me.TabPage5.Text = "AMBAR"
|
||||
Me.TabPage5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvAMBAR
|
||||
'
|
||||
Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvAMBAR.Name = "dgvAMBAR"
|
||||
Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
|
||||
Me.dgvAMBAR.TabIndex = 25
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.cbx)
|
||||
@@ -232,26 +310,26 @@ Partial Class usrCntlMitarbeiter
|
||||
Me.Panel3.Size = New System.Drawing.Size(889, 648)
|
||||
Me.Panel3.TabIndex = 27
|
||||
'
|
||||
'TabPage3
|
||||
'TabPage6
|
||||
'
|
||||
Me.TabPage3.Controls.Add(Me.dgvIMEX)
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage3.Size = New System.Drawing.Size(881, 622)
|
||||
Me.TabPage3.TabIndex = 2
|
||||
Me.TabPage3.Text = "IMEX"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE)
|
||||
Me.TabPage6.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage6.Name = "TabPage6"
|
||||
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage6.Size = New System.Drawing.Size(881, 622)
|
||||
Me.TabPage6.TabIndex = 5
|
||||
Me.TabPage6.Text = "FRONT-OFFICE"
|
||||
Me.TabPage6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvIMEX
|
||||
'dgvFRONTOFFICE
|
||||
'
|
||||
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvIMEX.Name = "dgvIMEX"
|
||||
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
|
||||
Me.dgvIMEX.TabIndex = 25
|
||||
Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
|
||||
Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
|
||||
Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
|
||||
Me.dgvFRONTOFFICE.TabIndex = 26
|
||||
'
|
||||
'usrCntlMitarbeiter
|
||||
'
|
||||
@@ -269,11 +347,17 @@ Partial Class usrCntlMitarbeiter
|
||||
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage3.ResumeLayout(False)
|
||||
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage4.ResumeLayout(False)
|
||||
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage5.ResumeLayout(False)
|
||||
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
Me.TabPage3.ResumeLayout(False)
|
||||
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage6.ResumeLayout(False)
|
||||
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -296,5 +380,10 @@ Partial Class usrCntlMitarbeiter
|
||||
Friend WithEvents cbx As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents dgvIMEX As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
|
||||
Friend WithEvents TabPage4 As TabPage
|
||||
Friend WithEvents TabPage5 As TabPage
|
||||
Friend WithEvents dgvUNISPED As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents dgvAMBAR As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents TabPage6 As TabPage
|
||||
Friend WithEvents dgvFRONTOFFICE As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
End Class
|
||||
|
||||
@@ -33,6 +33,12 @@ Public Class usrCntlMitarbeiter
|
||||
showVERAGATILLA("ATILLA")
|
||||
ElseIf TabControl1.SelectedIndex = 2 Then
|
||||
showVERAGATILLA("IMEX")
|
||||
ElseIf TabControl1.SelectedIndex = 3 Then
|
||||
showVERAGATILLA("UNISPED")
|
||||
ElseIf TabControl1.SelectedIndex = 4 Then
|
||||
showVERAGATILLA("AMBAR")
|
||||
ElseIf TabControl1.SelectedIndex = 5 Then
|
||||
showVERAGATILLA("FRONTOFFICE")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -64,7 +70,7 @@ Public Class usrCntlMitarbeiter
|
||||
If dgvVERAG.RowCount = 0 Then
|
||||
dgvVERAG.DataSource = Nothing
|
||||
Else
|
||||
sortVERAG()
|
||||
sortDGV(dgvVERAG)
|
||||
'Eintraege_festlegen()
|
||||
'AL: Sortierung nach Ausfahrt (Zeit)
|
||||
dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending)
|
||||
@@ -79,7 +85,7 @@ Public Class usrCntlMitarbeiter
|
||||
If dgvATILLA.RowCount = 0 Then
|
||||
dgvATILLA.DataSource = Nothing
|
||||
Else
|
||||
sortATILLA()
|
||||
sortDGV(dgvATILLA)
|
||||
'Eintraege_festlegen()
|
||||
'AL: Sortierung nach Ausfahrt (Zeit)
|
||||
dgvATILLA.Sort(dgvATILLA.Columns(3), ListSortDirection.Ascending)
|
||||
@@ -94,111 +100,67 @@ Public Class usrCntlMitarbeiter
|
||||
If dgvIMEX.RowCount = 0 Then
|
||||
dgvIMEX.DataSource = Nothing
|
||||
Else
|
||||
sortIMEX()
|
||||
sortDGV(dgvIMEX)
|
||||
'Eintraege_festlegen()
|
||||
'AL: Sortierung nach Ausfahrt (Zeit)
|
||||
dgvIMEX.Sort(dgvIMEX.Columns(3), ListSortDirection.Ascending)
|
||||
End If
|
||||
ElseIf firma = "UNISPED" Then
|
||||
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
|
||||
|
||||
dgvUNISPED.SET_SQL(sql, "ADMIN")
|
||||
dgvUNISPED.LOAD()
|
||||
|
||||
'Tabelle Kommt/Geht bereinigen
|
||||
If dgvUNISPED.RowCount = 0 Then
|
||||
dgvUNISPED.DataSource = Nothing
|
||||
Else
|
||||
sortDGV(dgvUNISPED)
|
||||
'Eintraege_festlegen()
|
||||
'AL: Sortierung nach Ausfahrt (Zeit)
|
||||
dgvUNISPED.Sort(dgvUNISPED.Columns(3), ListSortDirection.Ascending)
|
||||
End If
|
||||
ElseIf firma = "AMBAR" Then
|
||||
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
|
||||
|
||||
dgvAMBAR.SET_SQL(sql, "ADMIN")
|
||||
dgvAMBAR.LOAD()
|
||||
|
||||
'Tabelle Kommt/Geht bereinigen
|
||||
If dgvAMBAR.RowCount = 0 Then
|
||||
dgvAMBAR.DataSource = Nothing
|
||||
Else
|
||||
sortDGV(dgvAMBAR)
|
||||
'Eintraege_festlegen()
|
||||
'AL: Sortierung nach Ausfahrt (Zeit)
|
||||
dgvAMBAR.Sort(dgvAMBAR.Columns(3), ListSortDirection.Ascending)
|
||||
End If
|
||||
|
||||
ElseIf firma = "FRONTOFFICE" Then
|
||||
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
|
||||
|
||||
dgvFRONTOFFICE.SET_SQL(sql, "ADMIN")
|
||||
dgvFRONTOFFICE.LOAD()
|
||||
|
||||
'Tabelle Kommt/Geht bereinigen
|
||||
If dgvFRONTOFFICE.RowCount = 0 Then
|
||||
dgvFRONTOFFICE.DataSource = Nothing
|
||||
Else
|
||||
sortDGV(dgvFRONTOFFICE)
|
||||
'Eintraege_festlegen()
|
||||
'AL: Sortierung nach Ausfahrt (Zeit)
|
||||
dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub sortVERAG()
|
||||
With dgvVERAG
|
||||
.RowTemplate.Height = 20
|
||||
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
.AllowUserToOrderColumns = True
|
||||
|
||||
.Columns(0).Visible = False 'ID nicht anzeigen
|
||||
|
||||
.Columns(1).Width = 150
|
||||
.Columns(1).HeaderText = "Username"
|
||||
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns(2).Width = 100
|
||||
.Columns(2).HeaderText = "Vorname"
|
||||
|
||||
.Columns(3).Width = 130
|
||||
.Columns(3).HeaderText = "Nachname"
|
||||
|
||||
.Columns(4).Width = 85
|
||||
.Columns(4).HeaderText = "Niederlassung"
|
||||
|
||||
.Columns(5).Width = 85
|
||||
.Columns(5).HeaderText = "Abteilung"
|
||||
|
||||
.Columns(6).Width = 120
|
||||
.Columns(6).HeaderText = "Email"
|
||||
|
||||
.Columns(7).Width = 120
|
||||
.Columns(7).HeaderText = "TelefonNr."
|
||||
|
||||
.Columns(8).Width = 80
|
||||
.Columns(8).HeaderText = "Gekündigt"
|
||||
|
||||
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub sortATILLA()
|
||||
With dgvATILLA
|
||||
.RowTemplate.Height = 20
|
||||
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
.AllowUserToOrderColumns = True
|
||||
|
||||
.Columns(0).Visible = False 'ID nicht anzeigen
|
||||
|
||||
.Columns(1).Width = 150
|
||||
.Columns(1).HeaderText = "Username"
|
||||
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns(2).Width = 100
|
||||
.Columns(2).HeaderText = "Vorname"
|
||||
|
||||
.Columns(3).Width = 130
|
||||
.Columns(3).HeaderText = "Nachname"
|
||||
|
||||
.Columns(4).Width = 85
|
||||
.Columns(4).HeaderText = "Niederlassung"
|
||||
|
||||
.Columns(5).Width = 85
|
||||
.Columns(5).HeaderText = "Abteilung"
|
||||
|
||||
.Columns(6).Width = 120
|
||||
.Columns(6).HeaderText = "Email"
|
||||
|
||||
.Columns(7).Width = 120
|
||||
.Columns(7).HeaderText = "TelefonNr."
|
||||
|
||||
.Columns(8).Width = 80
|
||||
.Columns(8).HeaderText = "Gekündigt"
|
||||
|
||||
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub sortIMEX()
|
||||
With dgvIMEX
|
||||
Private Sub sortDGV(dgv As DataGridView)
|
||||
With dgv
|
||||
.RowTemplate.Height = 20
|
||||
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
||||
.AllowUserToAddRows = False
|
||||
@@ -248,6 +210,9 @@ Public Class usrCntlMitarbeiter
|
||||
Case 0 : Firma = "VERAG"
|
||||
Case 1 : Firma = "ATILLA"
|
||||
Case 2 : Firma = "IMEX"
|
||||
Case 3 : Firma = "UNISPED"
|
||||
Case 4 : Firma = "AMBAR"
|
||||
Case 5 : Firma = "FRONTOFFICE"
|
||||
End Select
|
||||
Dim frmMitarbDetails As New frmMitarbDetails(Firma)
|
||||
frmMitarbDetails.Show()
|
||||
@@ -285,6 +250,31 @@ Public Class usrCntlMitarbeiter
|
||||
Tabelle_anzeigen()
|
||||
Case vbNo
|
||||
|
||||
End Select
|
||||
ElseIf TabControl1.SelectedIndex = 3 Then
|
||||
Select Case MsgBox("Soll der Mitarbeiter '" & dgvUNISPED.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
||||
Case vbYes
|
||||
UID.delData(Convert.ToInt32(dgvUNISPED.CurrentRow.Cells(0).Value))
|
||||
Tabelle_anzeigen()
|
||||
Case vbNo
|
||||
|
||||
End Select
|
||||
ElseIf TabControl1.SelectedIndex = 4 Then
|
||||
Select Case MsgBox("Soll der Mitarbeiter '" & dgvAMBAR.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
||||
Case vbYes
|
||||
UID.delData(Convert.ToInt32(dgvAMBAR.CurrentRow.Cells(0).Value))
|
||||
Tabelle_anzeigen()
|
||||
Case vbNo
|
||||
|
||||
End Select
|
||||
|
||||
ElseIf TabControl1.SelectedIndex = 5 Then
|
||||
Select Case MsgBox("Soll der Mitarbeiter '" & dgvFRONTOFFICE.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
||||
Case vbYes
|
||||
UID.delData(Convert.ToInt32(dgvFRONTOFFICE.CurrentRow.Cells(0).Value))
|
||||
Tabelle_anzeigen()
|
||||
Case vbNo
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -304,33 +294,13 @@ Public Class usrCntlMitarbeiter
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvVERAG_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellDoubleClick
|
||||
|
||||
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim frmMitarbDetails As New frmMitarbDetails
|
||||
frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
|
||||
frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
|
||||
frmMitarbDetails.ShowDialog(Me)
|
||||
dgvVERAG.RELOAD()
|
||||
Me.Cursor = Cursors.Default
|
||||
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
|
||||
End Sub
|
||||
|
||||
Private Sub dgvATILLA_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATILLA.CellDoubleClick
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim frmMitarbDetails As New frmMitarbDetails
|
||||
frmMitarbDetails.mid = dgvATILLA.CurrentRow.Cells(0).Value
|
||||
frmMitarbDetails.ShowDialog(Me)
|
||||
dgvATILLA.RELOAD()
|
||||
Me.Cursor = Cursors.Default
|
||||
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim frmMitarbDetails As New frmMitarbDetails
|
||||
frmMitarbDetails.mid = dgvIMEX.CurrentRow.Cells(0).Value
|
||||
frmMitarbDetails.ShowDialog(Me)
|
||||
dgvIMEX.RELOAD()
|
||||
sender.RELOAD()
|
||||
Me.Cursor = Cursors.Default
|
||||
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
|
||||
End Sub
|
||||
@@ -341,25 +311,26 @@ Public Class usrCntlMitarbeiter
|
||||
Tabelle_anzeigen()
|
||||
End Sub
|
||||
|
||||
Private Sub dgvVERAG_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellContentClick
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
|
||||
|
||||
Dim dgv As DataGridView = Nothing
|
||||
|
||||
Select Case TabControl1.SelectedIndex
|
||||
Case 0 : dgv = dgvVERAG
|
||||
Case 1 : dgv = dgvATILLA
|
||||
Case 2 : dgv = dgvIMEX
|
||||
Case 3 : dgv = dgvUNISPED
|
||||
Case 4 : dgv = dgvAMBAR
|
||||
Case 5 : dgv = dgvFRONTOFFICE
|
||||
End Select
|
||||
|
||||
If e.KeyCode = Keys.Return Then
|
||||
If TabControl1.SelectedIndex = 0 Then
|
||||
If dgvVERAG.SelectedRows.Count > 0 Then
|
||||
dgvVERAG_CellContentClick(dgvVERAG, New DataGridViewCellEventArgs(0, dgvVERAG.SelectedRows(0).Index))
|
||||
End If
|
||||
ElseIf TabControl1.SelectedIndex = 1 Then
|
||||
If dgvATILLA.SelectedRows.Count > 0 Then
|
||||
dgvATILLA_CellContentClick(dgvATILLA, New DataGridViewCellEventArgs(0, dgvATILLA.SelectedRows(0).Index))
|
||||
End If
|
||||
End If
|
||||
ElseIf TabControl1.SelectedIndex = 1 Then
|
||||
If dgvIMEX.SelectedRows.Count > 0 Then
|
||||
dgvIMEX_CellContentClick(dgvIMEX, New DataGridViewCellEventArgs(0, dgvIMEX.SelectedRows(0).Index))
|
||||
If dgv.SelectedRows.Count > 0 Then
|
||||
dgvIMEX_CellContentClick(dgv, New DataGridViewCellEventArgs(0, dgv.SelectedRows(0).Index))
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
11
UID/My Project/Resources.Designer.vb
generated
11
UID/My Project/Resources.Designer.vb
generated
@@ -375,6 +375,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property jjjiioioolokoik() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("jjjiioioolokoik", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -635,7 +644,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 1.8.5 ähnelt.
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 1.8.8 ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Version() As String
|
||||
Get
|
||||
|
||||
@@ -188,7 +188,7 @@
|
||||
<value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
|
||||
</data>
|
||||
<data name="Version" xml:space="preserve">
|
||||
<value>1.8.5</value>
|
||||
<value>1.8.8</value>
|
||||
</data>
|
||||
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -298,4 +298,7 @@
|
||||
<data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="jjjiioioolokoik" xml:space="preserve">
|
||||
<value />
|
||||
</data>
|
||||
</root>
|
||||
428
UID/Programme/frmProgDetails.Designer.vb
generated
428
UID/Programme/frmProgDetails.Designer.vb
generated
@@ -113,13 +113,33 @@ Partial Class frmProgDetails
|
||||
Me.Button22 = New System.Windows.Forms.Button()
|
||||
Me.Button23 = New System.Windows.Forms.Button()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.txtInstallProdPfadNKD = New System.Windows.Forms.TextBox()
|
||||
Me.txtInstallProdPfadUNI = New System.Windows.Forms.TextBox()
|
||||
Me.Button24 = New System.Windows.Forms.Button()
|
||||
Me.Button25 = New System.Windows.Forms.Button()
|
||||
Me.Label25 = New System.Windows.Forms.Label()
|
||||
Me.txtInstallProdPfadNEU = New System.Windows.Forms.TextBox()
|
||||
Me.txtInstallProdPfadAMB = New System.Windows.Forms.TextBox()
|
||||
Me.Button26 = New System.Windows.Forms.Button()
|
||||
Me.cbxZip = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxStandorttxtErstellenAMB = New System.Windows.Forms.CheckBox()
|
||||
Me.Button27 = New System.Windows.Forms.Button()
|
||||
Me.Label26 = New System.Windows.Forms.Label()
|
||||
Me.txtProdPfadAMB = New System.Windows.Forms.TextBox()
|
||||
Me.Button28 = New System.Windows.Forms.Button()
|
||||
Me.cbxStandorttxtErstellenUNI = New System.Windows.Forms.CheckBox()
|
||||
Me.Button29 = New System.Windows.Forms.Button()
|
||||
Me.Label27 = New System.Windows.Forms.Label()
|
||||
Me.txtProdPfadUNI = New System.Windows.Forms.TextBox()
|
||||
Me.Button30 = New System.Windows.Forms.Button()
|
||||
Me.Button31 = New System.Windows.Forms.Button()
|
||||
Me.txtInstallProdPfadNEU = New System.Windows.Forms.TextBox()
|
||||
Me.Button32 = New System.Windows.Forms.Button()
|
||||
Me.Button33 = New System.Windows.Forms.Button()
|
||||
Me.txtInstallProdPfadNKD = New System.Windows.Forms.TextBox()
|
||||
Me.Button34 = New System.Windows.Forms.Button()
|
||||
Me.Label28 = New System.Windows.Forms.Label()
|
||||
Me.Label29 = New System.Windows.Forms.Label()
|
||||
Me.Button35 = New System.Windows.Forms.Button()
|
||||
Me.cbxIncrementalCopy = New System.Windows.Forms.CheckBox()
|
||||
CType(Me.picIcon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.grpName.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
@@ -137,7 +157,7 @@ Partial Class frmProgDetails
|
||||
'btnProdCopy
|
||||
'
|
||||
Me.btnProdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnProdCopy.Location = New System.Drawing.Point(487, 188)
|
||||
Me.btnProdCopy.Location = New System.Drawing.Point(509, 188)
|
||||
Me.btnProdCopy.Name = "btnProdCopy"
|
||||
Me.btnProdCopy.Size = New System.Drawing.Size(100, 24)
|
||||
Me.btnProdCopy.TabIndex = 41
|
||||
@@ -147,7 +167,7 @@ Partial Class frmProgDetails
|
||||
'btnDevCopy
|
||||
'
|
||||
Me.btnDevCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDevCopy.Location = New System.Drawing.Point(487, 161)
|
||||
Me.btnDevCopy.Location = New System.Drawing.Point(509, 161)
|
||||
Me.btnDevCopy.Name = "btnDevCopy"
|
||||
Me.btnDevCopy.Size = New System.Drawing.Size(100, 24)
|
||||
Me.btnDevCopy.TabIndex = 40
|
||||
@@ -211,7 +231,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtDevPfad
|
||||
'
|
||||
Me.txtDevPfad.Location = New System.Drawing.Point(110, 164)
|
||||
Me.txtDevPfad.Location = New System.Drawing.Point(132, 164)
|
||||
Me.txtDevPfad.Name = "txtDevPfad"
|
||||
Me.txtDevPfad.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtDevPfad.TabIndex = 44
|
||||
@@ -236,7 +256,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtProdPfad
|
||||
'
|
||||
Me.txtProdPfad.Location = New System.Drawing.Point(110, 190)
|
||||
Me.txtProdPfad.Location = New System.Drawing.Point(132, 190)
|
||||
Me.txtProdPfad.Name = "txtProdPfad"
|
||||
Me.txtProdPfad.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfad.TabIndex = 46
|
||||
@@ -244,7 +264,7 @@ Partial Class frmProgDetails
|
||||
'btnDevAkt
|
||||
'
|
||||
Me.btnDevAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDevAkt.Location = New System.Drawing.Point(405, 162)
|
||||
Me.btnDevAkt.Location = New System.Drawing.Point(427, 162)
|
||||
Me.btnDevAkt.Name = "btnDevAkt"
|
||||
Me.btnDevAkt.Size = New System.Drawing.Size(76, 24)
|
||||
Me.btnDevAkt.TabIndex = 48
|
||||
@@ -254,7 +274,7 @@ Partial Class frmProgDetails
|
||||
'btnProdAkt
|
||||
'
|
||||
Me.btnProdAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnProdAkt.Location = New System.Drawing.Point(405, 188)
|
||||
Me.btnProdAkt.Location = New System.Drawing.Point(427, 188)
|
||||
Me.btnProdAkt.Name = "btnProdAkt"
|
||||
Me.btnProdAkt.Size = New System.Drawing.Size(76, 24)
|
||||
Me.btnProdAkt.TabIndex = 49
|
||||
@@ -264,7 +284,7 @@ Partial Class frmProgDetails
|
||||
'btnSourceAkt
|
||||
'
|
||||
Me.btnSourceAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSourceAkt.Location = New System.Drawing.Point(405, 125)
|
||||
Me.btnSourceAkt.Location = New System.Drawing.Point(427, 125)
|
||||
Me.btnSourceAkt.Name = "btnSourceAkt"
|
||||
Me.btnSourceAkt.Size = New System.Drawing.Size(76, 24)
|
||||
Me.btnSourceAkt.TabIndex = 53
|
||||
@@ -282,7 +302,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtSourcePfad
|
||||
'
|
||||
Me.txtSourcePfad.Location = New System.Drawing.Point(110, 127)
|
||||
Me.txtSourcePfad.Location = New System.Drawing.Point(132, 127)
|
||||
Me.txtSourcePfad.Name = "txtSourcePfad"
|
||||
Me.txtSourcePfad.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtSourcePfad.TabIndex = 51
|
||||
@@ -301,7 +321,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(20, 407)
|
||||
Me.Label7.Location = New System.Drawing.Point(20, 435)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(79, 13)
|
||||
Me.Label7.TabIndex = 67
|
||||
@@ -310,7 +330,7 @@ Partial Class frmProgDetails
|
||||
'btnInstallSourceAkt
|
||||
'
|
||||
Me.btnInstallSourceAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInstallSourceAkt.Location = New System.Drawing.Point(405, 421)
|
||||
Me.btnInstallSourceAkt.Location = New System.Drawing.Point(427, 449)
|
||||
Me.btnInstallSourceAkt.Name = "btnInstallSourceAkt"
|
||||
Me.btnInstallSourceAkt.Size = New System.Drawing.Size(76, 24)
|
||||
Me.btnInstallSourceAkt.TabIndex = 66
|
||||
@@ -320,7 +340,7 @@ Partial Class frmProgDetails
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(20, 426)
|
||||
Me.Label8.Location = New System.Drawing.Point(20, 454)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label8.TabIndex = 65
|
||||
@@ -328,7 +348,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInstallSourcePfad
|
||||
'
|
||||
Me.txtInstallSourcePfad.Location = New System.Drawing.Point(110, 423)
|
||||
Me.txtInstallSourcePfad.Location = New System.Drawing.Point(132, 451)
|
||||
Me.txtInstallSourcePfad.Name = "txtInstallSourcePfad"
|
||||
Me.txtInstallSourcePfad.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallSourcePfad.TabIndex = 64
|
||||
@@ -336,7 +356,7 @@ Partial Class frmProgDetails
|
||||
'btnInstallProdAkt
|
||||
'
|
||||
Me.btnInstallProdAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInstallProdAkt.Location = New System.Drawing.Point(405, 484)
|
||||
Me.btnInstallProdAkt.Location = New System.Drawing.Point(427, 512)
|
||||
Me.btnInstallProdAkt.Name = "btnInstallProdAkt"
|
||||
Me.btnInstallProdAkt.Size = New System.Drawing.Size(76, 24)
|
||||
Me.btnInstallProdAkt.TabIndex = 62
|
||||
@@ -346,7 +366,7 @@ Partial Class frmProgDetails
|
||||
'btnInstallDevAkt
|
||||
'
|
||||
Me.btnInstallDevAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInstallDevAkt.Location = New System.Drawing.Point(405, 458)
|
||||
Me.btnInstallDevAkt.Location = New System.Drawing.Point(427, 486)
|
||||
Me.btnInstallDevAkt.Name = "btnInstallDevAkt"
|
||||
Me.btnInstallDevAkt.Size = New System.Drawing.Size(76, 24)
|
||||
Me.btnInstallDevAkt.TabIndex = 61
|
||||
@@ -356,7 +376,7 @@ Partial Class frmProgDetails
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(20, 489)
|
||||
Me.Label9.Location = New System.Drawing.Point(20, 517)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(80, 13)
|
||||
Me.Label9.TabIndex = 60
|
||||
@@ -364,7 +384,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInstallProdPfad
|
||||
'
|
||||
Me.txtInstallProdPfad.Location = New System.Drawing.Point(110, 486)
|
||||
Me.txtInstallProdPfad.Location = New System.Drawing.Point(132, 514)
|
||||
Me.txtInstallProdPfad.Name = "txtInstallProdPfad"
|
||||
Me.txtInstallProdPfad.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfad.TabIndex = 59
|
||||
@@ -372,7 +392,7 @@ Partial Class frmProgDetails
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(20, 463)
|
||||
Me.Label11.Location = New System.Drawing.Point(20, 491)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(84, 13)
|
||||
Me.Label11.TabIndex = 58
|
||||
@@ -380,7 +400,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInstallDevPfad
|
||||
'
|
||||
Me.txtInstallDevPfad.Location = New System.Drawing.Point(110, 460)
|
||||
Me.txtInstallDevPfad.Location = New System.Drawing.Point(132, 488)
|
||||
Me.txtInstallDevPfad.Name = "txtInstallDevPfad"
|
||||
Me.txtInstallDevPfad.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallDevPfad.TabIndex = 57
|
||||
@@ -388,7 +408,7 @@ Partial Class frmProgDetails
|
||||
'btnInstallProdCopy
|
||||
'
|
||||
Me.btnInstallProdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInstallProdCopy.Location = New System.Drawing.Point(487, 484)
|
||||
Me.btnInstallProdCopy.Location = New System.Drawing.Point(509, 512)
|
||||
Me.btnInstallProdCopy.Name = "btnInstallProdCopy"
|
||||
Me.btnInstallProdCopy.Size = New System.Drawing.Size(100, 24)
|
||||
Me.btnInstallProdCopy.TabIndex = 56
|
||||
@@ -398,7 +418,7 @@ Partial Class frmProgDetails
|
||||
'btnInstallDevCopy
|
||||
'
|
||||
Me.btnInstallDevCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInstallDevCopy.Location = New System.Drawing.Point(487, 457)
|
||||
Me.btnInstallDevCopy.Location = New System.Drawing.Point(509, 485)
|
||||
Me.btnInstallDevCopy.Name = "btnInstallDevCopy"
|
||||
Me.btnInstallDevCopy.Size = New System.Drawing.Size(100, 24)
|
||||
Me.btnInstallDevCopy.TabIndex = 55
|
||||
@@ -408,7 +428,7 @@ Partial Class frmProgDetails
|
||||
'btnInsert
|
||||
'
|
||||
Me.btnInsert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInsert.Location = New System.Drawing.Point(510, 786)
|
||||
Me.btnInsert.Location = New System.Drawing.Point(532, 854)
|
||||
Me.btnInsert.Name = "btnInsert"
|
||||
Me.btnInsert.Size = New System.Drawing.Size(77, 24)
|
||||
Me.btnInsert.TabIndex = 68
|
||||
@@ -419,7 +439,7 @@ Partial Class frmProgDetails
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(18, 712)
|
||||
Me.Label12.Location = New System.Drawing.Point(20, 783)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(28, 13)
|
||||
Me.Label12.TabIndex = 70
|
||||
@@ -427,7 +447,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInfo
|
||||
'
|
||||
Me.txtInfo.Location = New System.Drawing.Point(110, 712)
|
||||
Me.txtInfo.Location = New System.Drawing.Point(132, 780)
|
||||
Me.txtInfo.Multiline = True
|
||||
Me.txtInfo.Name = "txtInfo"
|
||||
Me.txtInfo.Size = New System.Drawing.Size(477, 68)
|
||||
@@ -436,7 +456,7 @@ Partial Class frmProgDetails
|
||||
'btnAktInfo
|
||||
'
|
||||
Me.btnAktInfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAktInfo.Location = New System.Drawing.Point(110, 786)
|
||||
Me.btnAktInfo.Location = New System.Drawing.Point(132, 854)
|
||||
Me.btnAktInfo.Name = "btnAktInfo"
|
||||
Me.btnAktInfo.Size = New System.Drawing.Size(76, 24)
|
||||
Me.btnAktInfo.TabIndex = 72
|
||||
@@ -491,7 +511,7 @@ Partial Class frmProgDetails
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(405, 213)
|
||||
Me.Button1.Location = New System.Drawing.Point(427, 213)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button1.TabIndex = 78
|
||||
@@ -509,7 +529,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtProdPfadAtilla
|
||||
'
|
||||
Me.txtProdPfadAtilla.Location = New System.Drawing.Point(110, 216)
|
||||
Me.txtProdPfadAtilla.Location = New System.Drawing.Point(132, 216)
|
||||
Me.txtProdPfadAtilla.Name = "txtProdPfadAtilla"
|
||||
Me.txtProdPfadAtilla.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadAtilla.TabIndex = 76
|
||||
@@ -517,7 +537,7 @@ Partial Class frmProgDetails
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(487, 213)
|
||||
Me.Button2.Location = New System.Drawing.Point(509, 213)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button2.TabIndex = 75
|
||||
@@ -527,7 +547,7 @@ Partial Class frmProgDetails
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Location = New System.Drawing.Point(405, 510)
|
||||
Me.Button3.Location = New System.Drawing.Point(427, 538)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button3.TabIndex = 82
|
||||
@@ -537,7 +557,7 @@ Partial Class frmProgDetails
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Location = New System.Drawing.Point(20, 515)
|
||||
Me.Label15.Location = New System.Drawing.Point(20, 543)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(80, 13)
|
||||
Me.Label15.TabIndex = 81
|
||||
@@ -545,7 +565,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInstallProdPfadAtilla
|
||||
'
|
||||
Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(110, 512)
|
||||
Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(132, 540)
|
||||
Me.txtInstallProdPfadAtilla.Name = "txtInstallProdPfadAtilla"
|
||||
Me.txtInstallProdPfadAtilla.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadAtilla.TabIndex = 80
|
||||
@@ -553,7 +573,7 @@ Partial Class frmProgDetails
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Location = New System.Drawing.Point(487, 510)
|
||||
Me.Button4.Location = New System.Drawing.Point(509, 538)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button4.TabIndex = 79
|
||||
@@ -565,7 +585,7 @@ Partial Class frmProgDetails
|
||||
Me.cbxStandorttxtErstellen.AutoSize = True
|
||||
Me.cbxStandorttxtErstellen.Checked = True
|
||||
Me.cbxStandorttxtErstellen.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellen.Location = New System.Drawing.Point(593, 219)
|
||||
Me.cbxStandorttxtErstellen.Location = New System.Drawing.Point(615, 219)
|
||||
Me.cbxStandorttxtErstellen.Name = "cbxStandorttxtErstellen"
|
||||
Me.cbxStandorttxtErstellen.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellen.TabIndex = 83
|
||||
@@ -577,7 +597,7 @@ Partial Class frmProgDetails
|
||||
Me.cbxStandorttxtErstellenImex.AutoSize = True
|
||||
Me.cbxStandorttxtErstellenImex.Checked = True
|
||||
Me.cbxStandorttxtErstellenImex.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellenImex.Location = New System.Drawing.Point(593, 245)
|
||||
Me.cbxStandorttxtErstellenImex.Location = New System.Drawing.Point(615, 245)
|
||||
Me.cbxStandorttxtErstellenImex.Name = "cbxStandorttxtErstellenImex"
|
||||
Me.cbxStandorttxtErstellenImex.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellenImex.TabIndex = 88
|
||||
@@ -587,7 +607,7 @@ Partial Class frmProgDetails
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Location = New System.Drawing.Point(405, 239)
|
||||
Me.Button5.Location = New System.Drawing.Point(427, 239)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button5.TabIndex = 87
|
||||
@@ -605,7 +625,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtProdPfadImex
|
||||
'
|
||||
Me.txtProdPfadImex.Location = New System.Drawing.Point(110, 242)
|
||||
Me.txtProdPfadImex.Location = New System.Drawing.Point(132, 242)
|
||||
Me.txtProdPfadImex.Name = "txtProdPfadImex"
|
||||
Me.txtProdPfadImex.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadImex.TabIndex = 85
|
||||
@@ -613,7 +633,7 @@ Partial Class frmProgDetails
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button6.Location = New System.Drawing.Point(487, 239)
|
||||
Me.Button6.Location = New System.Drawing.Point(509, 239)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button6.TabIndex = 84
|
||||
@@ -623,7 +643,7 @@ Partial Class frmProgDetails
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.Location = New System.Drawing.Point(405, 536)
|
||||
Me.Button7.Location = New System.Drawing.Point(427, 564)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button7.TabIndex = 92
|
||||
@@ -633,7 +653,7 @@ Partial Class frmProgDetails
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(20, 541)
|
||||
Me.Label17.Location = New System.Drawing.Point(20, 569)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(84, 13)
|
||||
Me.Label17.TabIndex = 91
|
||||
@@ -641,7 +661,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInstallProdPfadimex
|
||||
'
|
||||
Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(110, 538)
|
||||
Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(132, 566)
|
||||
Me.txtInstallProdPfadimex.Name = "txtInstallProdPfadimex"
|
||||
Me.txtInstallProdPfadimex.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadimex.TabIndex = 90
|
||||
@@ -649,7 +669,7 @@ Partial Class frmProgDetails
|
||||
'Button8
|
||||
'
|
||||
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button8.Location = New System.Drawing.Point(487, 536)
|
||||
Me.Button8.Location = New System.Drawing.Point(509, 564)
|
||||
Me.Button8.Name = "Button8"
|
||||
Me.Button8.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button8.TabIndex = 89
|
||||
@@ -659,7 +679,7 @@ Partial Class frmProgDetails
|
||||
'Button9
|
||||
'
|
||||
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button9.Location = New System.Drawing.Point(405, 562)
|
||||
Me.Button9.Location = New System.Drawing.Point(427, 590)
|
||||
Me.Button9.Name = "Button9"
|
||||
Me.Button9.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button9.TabIndex = 96
|
||||
@@ -669,7 +689,7 @@ Partial Class frmProgDetails
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Location = New System.Drawing.Point(20, 567)
|
||||
Me.Label18.Location = New System.Drawing.Point(20, 595)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(80, 13)
|
||||
Me.Label18.TabIndex = 95
|
||||
@@ -677,7 +697,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInstallProdPfadSBG
|
||||
'
|
||||
Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(110, 564)
|
||||
Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(132, 592)
|
||||
Me.txtInstallProdPfadSBG.Name = "txtInstallProdPfadSBG"
|
||||
Me.txtInstallProdPfadSBG.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadSBG.TabIndex = 94
|
||||
@@ -685,7 +705,7 @@ Partial Class frmProgDetails
|
||||
'Button10
|
||||
'
|
||||
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button10.Location = New System.Drawing.Point(487, 562)
|
||||
Me.Button10.Location = New System.Drawing.Point(509, 590)
|
||||
Me.Button10.Name = "Button10"
|
||||
Me.Button10.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button10.TabIndex = 93
|
||||
@@ -697,7 +717,7 @@ Partial Class frmProgDetails
|
||||
Me.cbxStandorttxtErstellenSBG.AutoSize = True
|
||||
Me.cbxStandorttxtErstellenSBG.Checked = True
|
||||
Me.cbxStandorttxtErstellenSBG.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellenSBG.Location = New System.Drawing.Point(593, 271)
|
||||
Me.cbxStandorttxtErstellenSBG.Location = New System.Drawing.Point(615, 271)
|
||||
Me.cbxStandorttxtErstellenSBG.Name = "cbxStandorttxtErstellenSBG"
|
||||
Me.cbxStandorttxtErstellenSBG.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellenSBG.TabIndex = 101
|
||||
@@ -707,7 +727,7 @@ Partial Class frmProgDetails
|
||||
'Button11
|
||||
'
|
||||
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button11.Location = New System.Drawing.Point(405, 265)
|
||||
Me.Button11.Location = New System.Drawing.Point(427, 265)
|
||||
Me.Button11.Name = "Button11"
|
||||
Me.Button11.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button11.TabIndex = 100
|
||||
@@ -725,7 +745,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtProdPfadSBG
|
||||
'
|
||||
Me.txtProdPfadSBG.Location = New System.Drawing.Point(110, 268)
|
||||
Me.txtProdPfadSBG.Location = New System.Drawing.Point(132, 268)
|
||||
Me.txtProdPfadSBG.Name = "txtProdPfadSBG"
|
||||
Me.txtProdPfadSBG.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadSBG.TabIndex = 98
|
||||
@@ -733,7 +753,7 @@ Partial Class frmProgDetails
|
||||
'Button12
|
||||
'
|
||||
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button12.Location = New System.Drawing.Point(487, 265)
|
||||
Me.Button12.Location = New System.Drawing.Point(509, 265)
|
||||
Me.Button12.Name = "Button12"
|
||||
Me.Button12.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button12.TabIndex = 97
|
||||
@@ -745,7 +765,7 @@ Partial Class frmProgDetails
|
||||
Me.Button13.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button13.ForeColor = System.Drawing.Color.White
|
||||
Me.Button13.Location = New System.Drawing.Point(487, 125)
|
||||
Me.Button13.Location = New System.Drawing.Point(509, 125)
|
||||
Me.Button13.Name = "Button13"
|
||||
Me.Button13.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button13.TabIndex = 102
|
||||
@@ -757,7 +777,7 @@ Partial Class frmProgDetails
|
||||
Me.Button14.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button14.ForeColor = System.Drawing.Color.White
|
||||
Me.Button14.Location = New System.Drawing.Point(487, 421)
|
||||
Me.Button14.Location = New System.Drawing.Point(509, 449)
|
||||
Me.Button14.Name = "Button14"
|
||||
Me.Button14.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button14.TabIndex = 103
|
||||
@@ -769,7 +789,7 @@ Partial Class frmProgDetails
|
||||
Me.cbxStandorttxtErstellenWAI.AutoSize = True
|
||||
Me.cbxStandorttxtErstellenWAI.Checked = True
|
||||
Me.cbxStandorttxtErstellenWAI.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellenWAI.Location = New System.Drawing.Point(593, 297)
|
||||
Me.cbxStandorttxtErstellenWAI.Location = New System.Drawing.Point(615, 297)
|
||||
Me.cbxStandorttxtErstellenWAI.Name = "cbxStandorttxtErstellenWAI"
|
||||
Me.cbxStandorttxtErstellenWAI.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellenWAI.TabIndex = 108
|
||||
@@ -779,7 +799,7 @@ Partial Class frmProgDetails
|
||||
'Button15
|
||||
'
|
||||
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button15.Location = New System.Drawing.Point(405, 291)
|
||||
Me.Button15.Location = New System.Drawing.Point(427, 291)
|
||||
Me.Button15.Name = "Button15"
|
||||
Me.Button15.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button15.TabIndex = 107
|
||||
@@ -797,7 +817,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtProdPfadWAI
|
||||
'
|
||||
Me.txtProdPfadWAI.Location = New System.Drawing.Point(110, 294)
|
||||
Me.txtProdPfadWAI.Location = New System.Drawing.Point(132, 294)
|
||||
Me.txtProdPfadWAI.Name = "txtProdPfadWAI"
|
||||
Me.txtProdPfadWAI.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadWAI.TabIndex = 105
|
||||
@@ -805,7 +825,7 @@ Partial Class frmProgDetails
|
||||
'Button16
|
||||
'
|
||||
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button16.Location = New System.Drawing.Point(487, 291)
|
||||
Me.Button16.Location = New System.Drawing.Point(509, 291)
|
||||
Me.Button16.Name = "Button16"
|
||||
Me.Button16.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button16.TabIndex = 104
|
||||
@@ -817,7 +837,7 @@ Partial Class frmProgDetails
|
||||
Me.cbxStandorttxtErstellenNKD.AutoSize = True
|
||||
Me.cbxStandorttxtErstellenNKD.Checked = True
|
||||
Me.cbxStandorttxtErstellenNKD.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellenNKD.Location = New System.Drawing.Point(593, 323)
|
||||
Me.cbxStandorttxtErstellenNKD.Location = New System.Drawing.Point(615, 323)
|
||||
Me.cbxStandorttxtErstellenNKD.Name = "cbxStandorttxtErstellenNKD"
|
||||
Me.cbxStandorttxtErstellenNKD.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellenNKD.TabIndex = 113
|
||||
@@ -827,7 +847,7 @@ Partial Class frmProgDetails
|
||||
'Button17
|
||||
'
|
||||
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button17.Location = New System.Drawing.Point(405, 317)
|
||||
Me.Button17.Location = New System.Drawing.Point(427, 317)
|
||||
Me.Button17.Name = "Button17"
|
||||
Me.Button17.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button17.TabIndex = 112
|
||||
@@ -845,7 +865,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtProdPfadNKD
|
||||
'
|
||||
Me.txtProdPfadNKD.Location = New System.Drawing.Point(110, 320)
|
||||
Me.txtProdPfadNKD.Location = New System.Drawing.Point(132, 320)
|
||||
Me.txtProdPfadNKD.Name = "txtProdPfadNKD"
|
||||
Me.txtProdPfadNKD.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadNKD.TabIndex = 110
|
||||
@@ -853,7 +873,7 @@ Partial Class frmProgDetails
|
||||
'Button18
|
||||
'
|
||||
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button18.Location = New System.Drawing.Point(487, 317)
|
||||
Me.Button18.Location = New System.Drawing.Point(509, 317)
|
||||
Me.Button18.Name = "Button18"
|
||||
Me.Button18.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button18.TabIndex = 109
|
||||
@@ -865,7 +885,7 @@ Partial Class frmProgDetails
|
||||
Me.cbxStandorttxtErstellenNEU.AutoSize = True
|
||||
Me.cbxStandorttxtErstellenNEU.Checked = True
|
||||
Me.cbxStandorttxtErstellenNEU.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellenNEU.Location = New System.Drawing.Point(593, 349)
|
||||
Me.cbxStandorttxtErstellenNEU.Location = New System.Drawing.Point(615, 349)
|
||||
Me.cbxStandorttxtErstellenNEU.Name = "cbxStandorttxtErstellenNEU"
|
||||
Me.cbxStandorttxtErstellenNEU.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellenNEU.TabIndex = 118
|
||||
@@ -875,7 +895,7 @@ Partial Class frmProgDetails
|
||||
'Button19
|
||||
'
|
||||
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button19.Location = New System.Drawing.Point(405, 343)
|
||||
Me.Button19.Location = New System.Drawing.Point(427, 343)
|
||||
Me.Button19.Name = "Button19"
|
||||
Me.Button19.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button19.TabIndex = 117
|
||||
@@ -893,7 +913,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtProdPfadNEU
|
||||
'
|
||||
Me.txtProdPfadNEU.Location = New System.Drawing.Point(110, 346)
|
||||
Me.txtProdPfadNEU.Location = New System.Drawing.Point(132, 346)
|
||||
Me.txtProdPfadNEU.Name = "txtProdPfadNEU"
|
||||
Me.txtProdPfadNEU.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadNEU.TabIndex = 115
|
||||
@@ -901,7 +921,7 @@ Partial Class frmProgDetails
|
||||
'Button20
|
||||
'
|
||||
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button20.Location = New System.Drawing.Point(487, 343)
|
||||
Me.Button20.Location = New System.Drawing.Point(509, 343)
|
||||
Me.Button20.Name = "Button20"
|
||||
Me.Button20.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button20.TabIndex = 114
|
||||
@@ -911,7 +931,7 @@ Partial Class frmProgDetails
|
||||
'Button21
|
||||
'
|
||||
Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button21.Location = New System.Drawing.Point(405, 588)
|
||||
Me.Button21.Location = New System.Drawing.Point(427, 616)
|
||||
Me.Button21.Name = "Button21"
|
||||
Me.Button21.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button21.TabIndex = 122
|
||||
@@ -921,7 +941,7 @@ Partial Class frmProgDetails
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Location = New System.Drawing.Point(20, 593)
|
||||
Me.Label23.Location = New System.Drawing.Point(20, 621)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(79, 13)
|
||||
Me.Label23.TabIndex = 121
|
||||
@@ -929,7 +949,7 @@ Partial Class frmProgDetails
|
||||
'
|
||||
'txtInstallProdPfadWAI
|
||||
'
|
||||
Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(110, 590)
|
||||
Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(132, 618)
|
||||
Me.txtInstallProdPfadWAI.Name = "txtInstallProdPfadWAI"
|
||||
Me.txtInstallProdPfadWAI.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadWAI.TabIndex = 120
|
||||
@@ -937,7 +957,7 @@ Partial Class frmProgDetails
|
||||
'Button22
|
||||
'
|
||||
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button22.Location = New System.Drawing.Point(487, 588)
|
||||
Me.Button22.Location = New System.Drawing.Point(509, 616)
|
||||
Me.Button22.Name = "Button22"
|
||||
Me.Button22.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button22.TabIndex = 119
|
||||
@@ -947,7 +967,7 @@ Partial Class frmProgDetails
|
||||
'Button23
|
||||
'
|
||||
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button23.Location = New System.Drawing.Point(405, 614)
|
||||
Me.Button23.Location = New System.Drawing.Point(427, 695)
|
||||
Me.Button23.Name = "Button23"
|
||||
Me.Button23.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button23.TabIndex = 126
|
||||
@@ -957,23 +977,23 @@ Partial Class frmProgDetails
|
||||
'Label24
|
||||
'
|
||||
Me.Label24.AutoSize = True
|
||||
Me.Label24.Location = New System.Drawing.Point(20, 619)
|
||||
Me.Label24.Location = New System.Drawing.Point(20, 647)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(81, 13)
|
||||
Me.Label24.TabIndex = 125
|
||||
Me.Label24.Text = "Produktiv-NKD:"
|
||||
'
|
||||
'txtInstallProdPfadNKD
|
||||
'txtInstallProdPfadUNI
|
||||
'
|
||||
Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(110, 616)
|
||||
Me.txtInstallProdPfadNKD.Name = "txtInstallProdPfadNKD"
|
||||
Me.txtInstallProdPfadNKD.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadNKD.TabIndex = 124
|
||||
Me.txtInstallProdPfadUNI.Location = New System.Drawing.Point(132, 697)
|
||||
Me.txtInstallProdPfadUNI.Name = "txtInstallProdPfadUNI"
|
||||
Me.txtInstallProdPfadUNI.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadUNI.TabIndex = 124
|
||||
'
|
||||
'Button24
|
||||
'
|
||||
Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button24.Location = New System.Drawing.Point(487, 614)
|
||||
Me.Button24.Location = New System.Drawing.Point(509, 695)
|
||||
Me.Button24.Name = "Button24"
|
||||
Me.Button24.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button24.TabIndex = 123
|
||||
@@ -983,7 +1003,7 @@ Partial Class frmProgDetails
|
||||
'Button25
|
||||
'
|
||||
Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button25.Location = New System.Drawing.Point(405, 640)
|
||||
Me.Button25.Location = New System.Drawing.Point(427, 721)
|
||||
Me.Button25.Name = "Button25"
|
||||
Me.Button25.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button25.TabIndex = 130
|
||||
@@ -993,23 +1013,23 @@ Partial Class frmProgDetails
|
||||
'Label25
|
||||
'
|
||||
Me.Label25.AutoSize = True
|
||||
Me.Label25.Location = New System.Drawing.Point(20, 645)
|
||||
Me.Label25.Location = New System.Drawing.Point(20, 673)
|
||||
Me.Label25.Name = "Label25"
|
||||
Me.Label25.Size = New System.Drawing.Size(81, 13)
|
||||
Me.Label25.TabIndex = 129
|
||||
Me.Label25.Text = "Produktiv-NEU:"
|
||||
'
|
||||
'txtInstallProdPfadNEU
|
||||
'txtInstallProdPfadAMB
|
||||
'
|
||||
Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(110, 642)
|
||||
Me.txtInstallProdPfadNEU.Name = "txtInstallProdPfadNEU"
|
||||
Me.txtInstallProdPfadNEU.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadNEU.TabIndex = 128
|
||||
Me.txtInstallProdPfadAMB.Location = New System.Drawing.Point(132, 723)
|
||||
Me.txtInstallProdPfadAMB.Name = "txtInstallProdPfadAMB"
|
||||
Me.txtInstallProdPfadAMB.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadAMB.TabIndex = 128
|
||||
'
|
||||
'Button26
|
||||
'
|
||||
Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button26.Location = New System.Drawing.Point(487, 640)
|
||||
Me.Button26.Location = New System.Drawing.Point(509, 721)
|
||||
Me.Button26.Name = "Button26"
|
||||
Me.Button26.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button26.TabIndex = 127
|
||||
@@ -1026,20 +1046,230 @@ Partial Class frmProgDetails
|
||||
Me.cbxZip.Text = "ZIP Copy"
|
||||
Me.cbxZip.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxStandorttxtErstellenAMB
|
||||
'
|
||||
Me.cbxStandorttxtErstellenAMB.AutoSize = True
|
||||
Me.cbxStandorttxtErstellenAMB.Checked = True
|
||||
Me.cbxStandorttxtErstellenAMB.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellenAMB.Location = New System.Drawing.Point(615, 401)
|
||||
Me.cbxStandorttxtErstellenAMB.Name = "cbxStandorttxtErstellenAMB"
|
||||
Me.cbxStandorttxtErstellenAMB.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellenAMB.TabIndex = 141
|
||||
Me.cbxStandorttxtErstellenAMB.Text = "'Standort.txt' erstellen"
|
||||
Me.cbxStandorttxtErstellenAMB.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button27
|
||||
'
|
||||
Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button27.Location = New System.Drawing.Point(427, 395)
|
||||
Me.Button27.Name = "Button27"
|
||||
Me.Button27.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button27.TabIndex = 140
|
||||
Me.Button27.Text = "Aktualisieren"
|
||||
Me.Button27.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label26
|
||||
'
|
||||
Me.Label26.AutoSize = True
|
||||
Me.Label26.Location = New System.Drawing.Point(20, 401)
|
||||
Me.Label26.Name = "Label26"
|
||||
Me.Label26.Size = New System.Drawing.Size(96, 13)
|
||||
Me.Label26.TabIndex = 139
|
||||
Me.Label26.Text = "Produktiv-AMBAR:"
|
||||
'
|
||||
'txtProdPfadAMB
|
||||
'
|
||||
Me.txtProdPfadAMB.Location = New System.Drawing.Point(132, 398)
|
||||
Me.txtProdPfadAMB.Name = "txtProdPfadAMB"
|
||||
Me.txtProdPfadAMB.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadAMB.TabIndex = 138
|
||||
'
|
||||
'Button28
|
||||
'
|
||||
Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button28.Location = New System.Drawing.Point(509, 395)
|
||||
Me.Button28.Name = "Button28"
|
||||
Me.Button28.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button28.TabIndex = 137
|
||||
Me.Button28.Text = "PRODUKTIV->F"
|
||||
Me.Button28.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxStandorttxtErstellenUNI
|
||||
'
|
||||
Me.cbxStandorttxtErstellenUNI.AutoSize = True
|
||||
Me.cbxStandorttxtErstellenUNI.Checked = True
|
||||
Me.cbxStandorttxtErstellenUNI.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxStandorttxtErstellenUNI.Location = New System.Drawing.Point(615, 375)
|
||||
Me.cbxStandorttxtErstellenUNI.Name = "cbxStandorttxtErstellenUNI"
|
||||
Me.cbxStandorttxtErstellenUNI.Size = New System.Drawing.Size(126, 17)
|
||||
Me.cbxStandorttxtErstellenUNI.TabIndex = 136
|
||||
Me.cbxStandorttxtErstellenUNI.Text = "'Standort.txt' erstellen"
|
||||
Me.cbxStandorttxtErstellenUNI.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button29
|
||||
'
|
||||
Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button29.Location = New System.Drawing.Point(427, 369)
|
||||
Me.Button29.Name = "Button29"
|
||||
Me.Button29.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button29.TabIndex = 135
|
||||
Me.Button29.Text = "Aktualisieren"
|
||||
Me.Button29.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label27
|
||||
'
|
||||
Me.Label27.AutoSize = True
|
||||
Me.Label27.Location = New System.Drawing.Point(20, 375)
|
||||
Me.Label27.Name = "Label27"
|
||||
Me.Label27.Size = New System.Drawing.Size(106, 13)
|
||||
Me.Label27.TabIndex = 134
|
||||
Me.Label27.Text = "Produktiv-UNISPED:"
|
||||
'
|
||||
'txtProdPfadUNI
|
||||
'
|
||||
Me.txtProdPfadUNI.Location = New System.Drawing.Point(132, 372)
|
||||
Me.txtProdPfadUNI.Name = "txtProdPfadUNI"
|
||||
Me.txtProdPfadUNI.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtProdPfadUNI.TabIndex = 133
|
||||
'
|
||||
'Button30
|
||||
'
|
||||
Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button30.Location = New System.Drawing.Point(509, 369)
|
||||
Me.Button30.Name = "Button30"
|
||||
Me.Button30.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button30.TabIndex = 132
|
||||
Me.Button30.Text = "PRODUKTIV->F"
|
||||
Me.Button30.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button31
|
||||
'
|
||||
Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button31.Location = New System.Drawing.Point(427, 668)
|
||||
Me.Button31.Name = "Button31"
|
||||
Me.Button31.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button31.TabIndex = 147
|
||||
Me.Button31.Text = "Aktualisieren"
|
||||
Me.Button31.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtInstallProdPfadNEU
|
||||
'
|
||||
Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(132, 670)
|
||||
Me.txtInstallProdPfadNEU.Name = "txtInstallProdPfadNEU"
|
||||
Me.txtInstallProdPfadNEU.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadNEU.TabIndex = 146
|
||||
'
|
||||
'Button32
|
||||
'
|
||||
Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button32.Location = New System.Drawing.Point(509, 668)
|
||||
Me.Button32.Name = "Button32"
|
||||
Me.Button32.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button32.TabIndex = 145
|
||||
Me.Button32.Text = "PRODUKTIV->F"
|
||||
Me.Button32.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button33
|
||||
'
|
||||
Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button33.Location = New System.Drawing.Point(427, 642)
|
||||
Me.Button33.Name = "Button33"
|
||||
Me.Button33.Size = New System.Drawing.Size(76, 24)
|
||||
Me.Button33.TabIndex = 144
|
||||
Me.Button33.Text = "Aktualisieren"
|
||||
Me.Button33.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtInstallProdPfadNKD
|
||||
'
|
||||
Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(132, 644)
|
||||
Me.txtInstallProdPfadNKD.Name = "txtInstallProdPfadNKD"
|
||||
Me.txtInstallProdPfadNKD.Size = New System.Drawing.Size(289, 20)
|
||||
Me.txtInstallProdPfadNKD.TabIndex = 143
|
||||
'
|
||||
'Button34
|
||||
'
|
||||
Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button34.Location = New System.Drawing.Point(509, 642)
|
||||
Me.Button34.Name = "Button34"
|
||||
Me.Button34.Size = New System.Drawing.Size(100, 24)
|
||||
Me.Button34.TabIndex = 142
|
||||
Me.Button34.Text = "PRODUKTIV->F"
|
||||
Me.Button34.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label28
|
||||
'
|
||||
Me.Label28.AutoSize = True
|
||||
Me.Label28.Location = New System.Drawing.Point(20, 726)
|
||||
Me.Label28.Name = "Label28"
|
||||
Me.Label28.Size = New System.Drawing.Size(96, 13)
|
||||
Me.Label28.TabIndex = 149
|
||||
Me.Label28.Text = "Produktiv-AMBAR:"
|
||||
'
|
||||
'Label29
|
||||
'
|
||||
Me.Label29.AutoSize = True
|
||||
Me.Label29.Location = New System.Drawing.Point(20, 700)
|
||||
Me.Label29.Name = "Label29"
|
||||
Me.Label29.Size = New System.Drawing.Size(106, 13)
|
||||
Me.Label29.TabIndex = 148
|
||||
Me.Label29.Text = "Produktiv-UNISPED:"
|
||||
'
|
||||
'Button35
|
||||
'
|
||||
Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button35.Location = New System.Drawing.Point(615, 125)
|
||||
Me.Button35.Name = "Button35"
|
||||
Me.Button35.Size = New System.Drawing.Size(126, 24)
|
||||
Me.Button35.TabIndex = 150
|
||||
Me.Button35.Text = "Update-Daten"
|
||||
Me.Button35.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxIncrementalCopy
|
||||
'
|
||||
Me.cbxIncrementalCopy.AutoSize = True
|
||||
Me.cbxIncrementalCopy.Checked = True
|
||||
Me.cbxIncrementalCopy.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxIncrementalCopy.Location = New System.Drawing.Point(487, 72)
|
||||
Me.cbxIncrementalCopy.Name = "cbxIncrementalCopy"
|
||||
Me.cbxIncrementalCopy.Size = New System.Drawing.Size(105, 17)
|
||||
Me.cbxIncrementalCopy.TabIndex = 151
|
||||
Me.cbxIncrementalCopy.Text = "IncrementalCopy"
|
||||
Me.cbxIncrementalCopy.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmProgDetails
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(716, 824)
|
||||
Me.ClientSize = New System.Drawing.Size(759, 903)
|
||||
Me.Controls.Add(Me.cbxIncrementalCopy)
|
||||
Me.Controls.Add(Me.Button35)
|
||||
Me.Controls.Add(Me.Label28)
|
||||
Me.Controls.Add(Me.Label29)
|
||||
Me.Controls.Add(Me.Button31)
|
||||
Me.Controls.Add(Me.txtInstallProdPfadNEU)
|
||||
Me.Controls.Add(Me.Button32)
|
||||
Me.Controls.Add(Me.Button33)
|
||||
Me.Controls.Add(Me.txtInstallProdPfadNKD)
|
||||
Me.Controls.Add(Me.Button34)
|
||||
Me.Controls.Add(Me.cbxStandorttxtErstellenAMB)
|
||||
Me.Controls.Add(Me.Button27)
|
||||
Me.Controls.Add(Me.Label26)
|
||||
Me.Controls.Add(Me.txtProdPfadAMB)
|
||||
Me.Controls.Add(Me.Button28)
|
||||
Me.Controls.Add(Me.cbxStandorttxtErstellenUNI)
|
||||
Me.Controls.Add(Me.Button29)
|
||||
Me.Controls.Add(Me.Label27)
|
||||
Me.Controls.Add(Me.txtProdPfadUNI)
|
||||
Me.Controls.Add(Me.Button30)
|
||||
Me.Controls.Add(Me.cbxZip)
|
||||
Me.Controls.Add(Me.Button25)
|
||||
Me.Controls.Add(Me.Label25)
|
||||
Me.Controls.Add(Me.txtInstallProdPfadNEU)
|
||||
Me.Controls.Add(Me.txtInstallProdPfadAMB)
|
||||
Me.Controls.Add(Me.Button26)
|
||||
Me.Controls.Add(Me.Button23)
|
||||
Me.Controls.Add(Me.Label24)
|
||||
Me.Controls.Add(Me.txtInstallProdPfadNKD)
|
||||
Me.Controls.Add(Me.txtInstallProdPfadUNI)
|
||||
Me.Controls.Add(Me.Button24)
|
||||
Me.Controls.Add(Me.Button21)
|
||||
Me.Controls.Add(Me.Label23)
|
||||
@@ -1226,11 +1456,31 @@ Partial Class frmProgDetails
|
||||
Friend WithEvents Button22 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button23 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label24 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtInstallProdPfadNKD As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtInstallProdPfadUNI As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button24 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button25 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label25 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtInstallProdPfadNEU As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtInstallProdPfadAMB As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button26 As System.Windows.Forms.Button
|
||||
Friend WithEvents cbxZip As CheckBox
|
||||
Friend WithEvents cbxStandorttxtErstellenAMB As CheckBox
|
||||
Friend WithEvents Button27 As Button
|
||||
Friend WithEvents Label26 As Label
|
||||
Friend WithEvents txtProdPfadAMB As TextBox
|
||||
Friend WithEvents Button28 As Button
|
||||
Friend WithEvents cbxStandorttxtErstellenUNI As CheckBox
|
||||
Friend WithEvents Button29 As Button
|
||||
Friend WithEvents Label27 As Label
|
||||
Friend WithEvents txtProdPfadUNI As TextBox
|
||||
Friend WithEvents Button30 As Button
|
||||
Friend WithEvents Button31 As Button
|
||||
Friend WithEvents txtInstallProdPfadNEU As TextBox
|
||||
Friend WithEvents Button32 As Button
|
||||
Friend WithEvents Button33 As Button
|
||||
Friend WithEvents txtInstallProdPfadNKD As TextBox
|
||||
Friend WithEvents Button34 As Button
|
||||
Friend WithEvents Label28 As Label
|
||||
Friend WithEvents Label29 As Label
|
||||
Friend WithEvents Button35 As Button
|
||||
Friend WithEvents cbxIncrementalCopy As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -59,6 +59,12 @@ Public Class frmProgDetails
|
||||
txtProdPfadNEU.Text = daten.prog_prod_path_NEU
|
||||
txtInstallProdPfadNEU.Text = daten.prog_installer_prod_path_NEU
|
||||
|
||||
txtProdPfadUNI.Text = daten.prog_prod_path_UNI
|
||||
txtInstallProdPfadUNI.Text = daten.prog_installer_prod_path_UNI
|
||||
|
||||
txtProdPfadAMB.Text = daten.prog_prod_path_AMB
|
||||
txtInstallProdPfadAMB.Text = daten.prog_installer_prod_path_AMB
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnVersionAkt_Click(sender As Object, e As EventArgs) Handles btnVersionAkt.Click
|
||||
@@ -147,6 +153,12 @@ Public Class frmProgDetails
|
||||
daten.prog_prod_path_NEU = txtProdPfadNEU.Text
|
||||
daten.prog_installer_prod_path_NEU = txtInstallProdPfadNEU.Text
|
||||
|
||||
daten.prog_prod_path_UNI = txtProdPfadUNI.Text
|
||||
daten.prog_installer_prod_path_UNI = txtInstallProdPfadUNI.Text
|
||||
daten.prog_prod_path_AMB = txtProdPfadAMB.Text
|
||||
daten.prog_installer_prod_path_AMB = txtInstallProdPfadAMB.Text
|
||||
|
||||
|
||||
|
||||
If PROG.insertProgramm(daten) Then Me.Close()
|
||||
|
||||
@@ -167,14 +179,14 @@ Public Class frmProgDetails
|
||||
|
||||
Dim PROG_FUNC As New cProgramFunctions
|
||||
|
||||
Sub copyProgrammFiles(sender As Button, von As String, nach As String, cbx As Boolean, Optional standort As String = "")
|
||||
Sub copyProgrammFiles(sender As Button, von As String, nach As String, cbx As Boolean, Optional standort As String = "", Optional LIST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) = Nothing)
|
||||
sender.BackColor = Color.LightGray
|
||||
Application.DoEvents()
|
||||
Me.Refresh()
|
||||
If von = "" Then sender.BackColor = Color.White : Exit Sub
|
||||
If nach = "" Then sender.BackColor = Color.White : Exit Sub
|
||||
If checkSicherheitsfrage(von, nach) Then
|
||||
setBG(sender, PROG_FUNC.copyProgram(von, nach, cbx))
|
||||
setBG(sender, PROG_FUNC.copyProgram(von, nach, cbx, cbxIncrementalCopy.Checked))
|
||||
End If
|
||||
Application.DoEvents()
|
||||
Me.Refresh()
|
||||
@@ -187,6 +199,7 @@ Public Class frmProgDetails
|
||||
|
||||
|
||||
|
||||
|
||||
Function checkSicherheitsfrage(von, nach) As Boolean
|
||||
If sicherheitsfrageUeberspringen Then Return True
|
||||
If vbYes = MsgBox("Möchten Sie folgende Aktion ausführen?:" & vbNewLine & vbNewLine & " Kopiere alle Files von: " & von & vbNewLine & "Nach: " & nach, vbYesNo, "Aktion ausführen?") Then
|
||||
@@ -320,6 +333,8 @@ Public Class frmProgDetails
|
||||
Button16.PerformClick()
|
||||
Button18.PerformClick()
|
||||
Button20.PerformClick()
|
||||
Button30.PerformClick()
|
||||
Button28.PerformClick()
|
||||
End If
|
||||
sicherheitsfrageUeberspringen = False
|
||||
End Sub
|
||||
@@ -336,6 +351,8 @@ Public Class frmProgDetails
|
||||
Button22.PerformClick()
|
||||
Button24.PerformClick()
|
||||
Button26.PerformClick()
|
||||
Button32.PerformClick()
|
||||
Button34.PerformClick()
|
||||
End If
|
||||
sicherheitsfrageUeberspringen = False
|
||||
End Sub
|
||||
@@ -361,12 +378,12 @@ Public Class frmProgDetails
|
||||
End Sub
|
||||
|
||||
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
|
||||
PROG.setParam("prog_installer_prod_path_nkd", txtInstallProdPfadNKD.Text, codename)
|
||||
PROG.setParam("prog_installer_prod_path_uni", txtInstallProdPfadUNI.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
|
||||
PROG.setParam("prog_installer_prod_path_neu", txtInstallProdPfadNEU.Text, codename)
|
||||
PROG.setParam("prog_installer_prod_path_amb", txtInstallProdPfadAMB.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
@@ -391,12 +408,101 @@ Public Class frmProgDetails
|
||||
End Sub
|
||||
|
||||
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNKD.Text, cbxZip.Checked)
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadUNI.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNEU.Text, cbxZip.Checked)
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadAMB.Text, cbxZip.Checked)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadUNI.Text, cbxZip.Checked, If(cbxStandorttxtErstellenUNI.Checked, "UNISPED", ""))
|
||||
End Sub
|
||||
|
||||
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
|
||||
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadAMB.Text, cbxZip.Checked, If(cbxStandorttxtErstellenAMB.Checked, "AMBAR", ""))
|
||||
End Sub
|
||||
|
||||
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
|
||||
PROG.setParam("prog_prod_path_uni", txtProdPfadUNI.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
|
||||
PROG.setParam("prog_prod_path_amb", txtProdPfadAMB.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNKD.Text, cbxZip.Checked)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
|
||||
|
||||
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNEU.Text, cbxZip.Checked)
|
||||
End Sub
|
||||
|
||||
Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
|
||||
PROG.setParam("prog_installer_prod_path_nkd", txtInstallProdPfadNKD.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
|
||||
PROG.setParam("prog_installer_prod_path_neu", txtInstallProdPfadNEU.Text, codename)
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Dim LIST As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)
|
||||
Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
|
||||
If txtSourcePfad.Text = "" Then Exit Sub
|
||||
If Not IO.Directory.Exists(txtSourcePfad.Text) Then Exit Sub
|
||||
Dim LIST = New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)
|
||||
|
||||
Dim dirName = ""
|
||||
VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.RekursivGetFiles(New IO.DirectoryInfo(txtSourcePfad.Text), dirName, LIST, {})
|
||||
|
||||
For Each f In IO.Directory.GetFiles(txtSourcePfad.Text)
|
||||
Dim FI As New IO.FileInfo(f)
|
||||
If dirName = "" Then
|
||||
dirName = FI.DirectoryName
|
||||
MsgBox(dirName)
|
||||
End If
|
||||
|
||||
Dim UD As New VERAG_PROG_ALLGEMEIN.cProgrammeUpdate
|
||||
UD.pud_fileName = FI.Name
|
||||
UD.pud_filePathFolder = FI.DirectoryName.Replace(dirName, "")
|
||||
If UD.pud_filePathFolder = "" Then UD.pud_filePathFolder = Nothing
|
||||
UD.pud_file_Size = FI.Length
|
||||
UD.pud_file_Date = FI.LastWriteTime
|
||||
UD.pud_file_Verion = "" 'FI.
|
||||
LIST.Add(UD)
|
||||
Next
|
||||
Dim daten As cProgramm = PROG.getProgrammByCodeName(codename)
|
||||
If daten Is Nothing Then Exit Sub
|
||||
VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.SAVE_LIST(daten.prog_id, txtVersion.Text.Replace(".", ""), codename, LIST)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function isNewFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_DEST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
|
||||
For Each l In LIST_DEST
|
||||
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function isOldFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_SOURCE As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
|
||||
For Each l In LIST_SOURCE
|
||||
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -36,6 +36,11 @@ Public Class cProgramm
|
||||
Property prog_installer_prod_path_NKD As String = ""
|
||||
Property prog_prod_path_NEU As String = ""
|
||||
Property prog_installer_prod_path_NEU As String = ""
|
||||
|
||||
Property prog_prod_path_UNI As String = ""
|
||||
Property prog_installer_prod_path_UNI As String = ""
|
||||
Property prog_prod_path_AMB As String = ""
|
||||
Property prog_installer_prod_path_AMB As String = ""
|
||||
End Class
|
||||
|
||||
Public Class cSeminar
|
||||
|
||||
@@ -129,8 +129,10 @@ Public Class cProgramFunctions
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function copyProgram(ByRef sourcePfad As String, ByVal destPfad As String, Optional ZIP As Boolean = False) As Boolean
|
||||
If ZIP Then
|
||||
Public Function copyProgram(ByRef sourcePfad As String, ByVal destPfad As String, Optional ZIP As Boolean = False, Optional incrementalCopy As Boolean = False, Optional list As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) = Nothing) As Boolean
|
||||
If incrementalCopy Then
|
||||
Return VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(sourcePfad, destPfad, {})
|
||||
ElseIf ZIP Then
|
||||
Return copyProgramZIP(sourcePfad, destPfad)
|
||||
Else
|
||||
Return copyProgramNOTZip(sourcePfad, destPfad)
|
||||
@@ -176,6 +178,8 @@ Public Class cProgramFunctions
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Function FileCopier(ByRef sourcePfad As String, ByVal destPfad As String) As Boolean
|
||||
If Not destPfad.EndsWith("\") Then destPfad = destPfad & "\"
|
||||
Try
|
||||
|
||||
@@ -819,6 +819,10 @@ Public Class cProgramme
|
||||
If Not dr.Item("prog_installer_prod_path_NKD") Is DBNull.Value Then daten.prog_installer_prod_path_NKD = dr.Item("prog_installer_prod_path_NKD")
|
||||
If Not dr.Item("prog_prod_path_NEU") Is DBNull.Value Then daten.prog_prod_path_NEU = dr.Item("prog_prod_path_NEU")
|
||||
If Not dr.Item("prog_installer_prod_path_NEU") Is DBNull.Value Then daten.prog_installer_prod_path_NEU = dr.Item("prog_installer_prod_path_NEU")
|
||||
If Not dr.Item("prog_prod_path_UNI") Is DBNull.Value Then daten.prog_prod_path_UNI = dr.Item("prog_prod_path_UNI")
|
||||
If Not dr.Item("prog_installer_prod_path_UNI") Is DBNull.Value Then daten.prog_installer_prod_path_UNI = dr.Item("prog_installer_prod_path_UNI")
|
||||
If Not dr.Item("prog_prod_path_AMB") Is DBNull.Value Then daten.prog_prod_path_AMB = dr.Item("prog_prod_path_AMB")
|
||||
If Not dr.Item("prog_installer_prod_path_AMB") Is DBNull.Value Then daten.prog_installer_prod_path_AMB = dr.Item("prog_installer_prod_path_AMB")
|
||||
|
||||
Return daten
|
||||
End If
|
||||
@@ -834,8 +838,8 @@ Public Class cProgramme
|
||||
|
||||
Public Function insertProgramm(ByVal daten As cProgramm) As Boolean
|
||||
Dim sql = "INSERT INTO tblProgramme " &
|
||||
"(prog_codename, prog_name, prog_aktuelleVersion, prog_info, prog_source_path, prog_dev_path,prog_prod_path,prog_installer_source_path,prog_installer_dev_path,prog_installer_prod_path,prog_installer_prod_path_atilla,prog_prod_path_atilla,prog_prod_path_imex,prog_installer_prod_path_imex,prog_prod_path_SBG,prog_installer_prod_path_SBG,prog_prod_path_WAI,prog_installer_prod_path_WAI,prog_prod_path_NKD,prog_installer_prod_path_NKD,prog_prod_path_NEU,prog_installer_prod_path_NEU) VALUES " &
|
||||
"(@prog_codename,@prog_name,@prog_aktuelleVersion,@prog_info,@prog_source_path,@prog_dev_path,@prog_prod_path,@prog_installer_source_path,@prog_installer_dev_path,@prog_installer_prod_path,@prog_installer_prod_path_atilla,@prog_prod_path_atilla,@prog_prod_path_imex,@prog_installer_prod_path_imex,@prog_prod_path_SBG,@prog_installer_prod_path_SBG,@prog_prod_path_WAI,@prog_installer_prod_path_WAI,@prog_prod_path_NKD,@prog_installer_prod_path_NKD,@prog_prod_path_NEU,@prog_installer_prod_path_NEU)"
|
||||
"(prog_codename, prog_name, prog_aktuelleVersion, prog_info, prog_source_path, prog_dev_path,prog_prod_path,prog_installer_source_path,prog_installer_dev_path,prog_installer_prod_path,prog_installer_prod_path_atilla,prog_prod_path_atilla,prog_prod_path_imex,prog_installer_prod_path_imex,prog_prod_path_SBG,prog_installer_prod_path_SBG,prog_prod_path_WAI,prog_installer_prod_path_WAI,prog_prod_path_NKD,prog_installer_prod_path_NKD,prog_prod_path_NEU,prog_installer_prod_path_NEU,prog_installer_prod_path_UNI,prog_installer_prod_path_AMB) VALUES " &
|
||||
"(@prog_codename,@prog_name,@prog_aktuelleVersion,@prog_info,@prog_source_path,@prog_dev_path,@prog_prod_path,@prog_installer_source_path,@prog_installer_dev_path,@prog_installer_prod_path,@prog_installer_prod_path_atilla,@prog_prod_path_atilla,@prog_prod_path_imex,@prog_installer_prod_path_imex,@prog_prod_path_SBG,@prog_installer_prod_path_SBG,@prog_prod_path_WAI,@prog_installer_prod_path_WAI,@prog_prod_path_NKD,@prog_installer_prod_path_NKD,@prog_prod_path_NEU,@prog_installer_prod_path_NEU,@prog_installer_prod_path_UNI,@prog_installer_prod_path_AMB)"
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
@@ -862,6 +866,10 @@ Public Class cProgramme
|
||||
cmd.Parameters.AddWithValue("@prog_prod_path_NEU", daten.prog_prod_path_NEU)
|
||||
cmd.Parameters.AddWithValue("@prog_installer_prod_path_NEU", daten.prog_installer_prod_path_NEU)
|
||||
|
||||
cmd.Parameters.AddWithValue("@prog_prod_path_UNI", daten.prog_prod_path_UNI)
|
||||
cmd.Parameters.AddWithValue("@prog_installer_prod_path_UNI", daten.prog_installer_prod_path_UNI)
|
||||
cmd.Parameters.AddWithValue("@prog_prod_path_AMB", daten.prog_prod_path_AMB)
|
||||
cmd.Parameters.AddWithValue("@prog_installer_prod_path_AMB", daten.prog_installer_prod_path_AMB)
|
||||
|
||||
|
||||
Try
|
||||
|
||||
@@ -74,7 +74,7 @@ Public Class frmActiveReprotViewer
|
||||
p.Parameters("date").Value = semiCert.datum
|
||||
p.Parameters("titel").Value = semiCert.titel
|
||||
p.Parameters("inhalt").Value = semiCert.inhalt
|
||||
'p.Parameters("referent").Value = semiCert.referent
|
||||
' p.Parameters("referent").Value = semiCert.referent
|
||||
If semiCert.unterzeichnender = "" Then
|
||||
Dim u As String = InputBox("Bitte geben Sie den Unterzeichnenden an:")
|
||||
p.Parameters("unterz").Value = If(u <> "", u, "Johann Luxbauer")
|
||||
|
||||
@@ -30,6 +30,7 @@ Public Class frmSeminarDetails
|
||||
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Name (Standard)", "rptSeminatZert.rpx"))
|
||||
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand", "rptSeminatZertVorst.rpx"))
|
||||
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Allg / nur Inh. 1", "rptSeminatZertAllgUnter.rpx"))
|
||||
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. XXX", "rptSeminatZertVorst.rpx"))
|
||||
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung CS", "rptIntAusb.rpx")) '3
|
||||
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung AG", "rptIntAusbAG.rpx")) '3
|
||||
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung ATILLA", "rptIntAusbATILLA.rpx")) '3
|
||||
@@ -271,7 +272,7 @@ Public Class frmSeminarDetails
|
||||
semiCert.teilnehmer = teilnehmer
|
||||
|
||||
If datBis.Text = datVon.Text Then
|
||||
semiCert.datum = lblBez.Text
|
||||
'semiCert.datum = lblBez.Text
|
||||
semiCert.datum = "hat am " & datVon.Value.ToShortDateString & " am Seminar"
|
||||
Else
|
||||
semiCert.datum = "hat vom " & datVon.Value.ToShortDateString & " bis zum " & datBis.Value.ToShortDateString & " am Seminar"
|
||||
@@ -281,10 +282,11 @@ Public Class frmSeminarDetails
|
||||
semiCert.inhalt = rtbInhalt.Text
|
||||
semiCert.inhalt2 = rtbInhalt2.Text
|
||||
semiCert.referent = txtVortragender.Text
|
||||
semiCert.unterzeichnender = lblBez.Text
|
||||
If Not cboReportVorlage.SelectedItem Is Nothing Then frmActiveReprotViewer.report = CType(cboReportVorlage.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
|
||||
'frmActiveReprotViewer.semiCert = semiCert
|
||||
If cbxIntAusbildung.Checked Then
|
||||
semiCert.datum = lblBez.Text
|
||||
' semiCert.datum = lblBez.Text
|
||||
frmActiveReprotViewer.BefüllenSeminarZertifikatIntern(semiCert)
|
||||
Else
|
||||
frmActiveReprotViewer.BefüllenSeminarZertifikat(semiCert)
|
||||
|
||||
File diff suppressed because one or more lines are too long
73
UID/usrctlProcedures.Designer.vb
generated
73
UID/usrctlProcedures.Designer.vb
generated
@@ -100,6 +100,9 @@ Partial Class usrctlProcedures
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button27 = New System.Windows.Forms.Button()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -525,7 +528,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Button19
|
||||
'
|
||||
Me.Button19.Location = New System.Drawing.Point(322, 88)
|
||||
Me.Button19.Location = New System.Drawing.Point(219, 91)
|
||||
Me.Button19.Name = "Button19"
|
||||
Me.Button19.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button19.TabIndex = 20
|
||||
@@ -534,7 +537,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(319, 140)
|
||||
Me.Label5.Location = New System.Drawing.Point(216, 143)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label5.TabIndex = 21
|
||||
@@ -546,7 +549,7 @@ Partial Class usrctlProcedures
|
||||
Me.cbxTESTSYSTEMATLAS.AutoSize = True
|
||||
Me.cbxTESTSYSTEMATLAS.Checked = True
|
||||
Me.cbxTESTSYSTEMATLAS.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxTESTSYSTEMATLAS.Location = New System.Drawing.Point(322, 62)
|
||||
Me.cbxTESTSYSTEMATLAS.Location = New System.Drawing.Point(219, 65)
|
||||
Me.cbxTESTSYSTEMATLAS.Name = "cbxTESTSYSTEMATLAS"
|
||||
Me.cbxTESTSYSTEMATLAS.Size = New System.Drawing.Size(98, 17)
|
||||
Me.cbxTESTSYSTEMATLAS.TabIndex = 22
|
||||
@@ -580,7 +583,7 @@ Partial Class usrctlProcedures
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Checked = True
|
||||
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(570, 39)
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(389, 39)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(98, 17)
|
||||
Me.CheckBox2.TabIndex = 26
|
||||
@@ -589,7 +592,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Location = New System.Drawing.Point(567, 140)
|
||||
Me.Label6.Location = New System.Drawing.Point(386, 140)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label6.TabIndex = 25
|
||||
@@ -598,7 +601,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Button20
|
||||
'
|
||||
Me.Button20.Location = New System.Drawing.Point(570, 88)
|
||||
Me.Button20.Location = New System.Drawing.Point(389, 88)
|
||||
Me.Button20.Name = "Button20"
|
||||
Me.Button20.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button20.TabIndex = 24
|
||||
@@ -608,7 +611,7 @@ Partial Class usrctlProcedures
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(573, 68)
|
||||
Me.Label7.Location = New System.Drawing.Point(392, 68)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label7.TabIndex = 28
|
||||
@@ -616,7 +619,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Location = New System.Drawing.Point(621, 65)
|
||||
Me.TextBox3.Location = New System.Drawing.Point(440, 65)
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(91, 20)
|
||||
Me.TextBox3.TabIndex = 27
|
||||
@@ -674,7 +677,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Button21
|
||||
'
|
||||
Me.Button21.Location = New System.Drawing.Point(322, 170)
|
||||
Me.Button21.Location = New System.Drawing.Point(219, 173)
|
||||
Me.Button21.Name = "Button21"
|
||||
Me.Button21.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button21.TabIndex = 35
|
||||
@@ -684,7 +687,7 @@ Partial Class usrctlProcedures
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(328, 156)
|
||||
Me.Label9.Location = New System.Drawing.Point(225, 159)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(42, 13)
|
||||
Me.Label9.TabIndex = 37
|
||||
@@ -692,7 +695,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'TextBox8
|
||||
'
|
||||
Me.TextBox8.Location = New System.Drawing.Point(376, 153)
|
||||
Me.TextBox8.Location = New System.Drawing.Point(273, 156)
|
||||
Me.TextBox8.Name = "TextBox8"
|
||||
Me.TextBox8.Size = New System.Drawing.Size(91, 20)
|
||||
Me.TextBox8.TabIndex = 36
|
||||
@@ -718,7 +721,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Button22
|
||||
'
|
||||
Me.Button22.Location = New System.Drawing.Point(467, 170)
|
||||
Me.Button22.Location = New System.Drawing.Point(364, 173)
|
||||
Me.Button22.Name = "Button22"
|
||||
Me.Button22.Size = New System.Drawing.Size(154, 49)
|
||||
Me.Button22.TabIndex = 40
|
||||
@@ -727,7 +730,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Button23
|
||||
'
|
||||
Me.Button23.Location = New System.Drawing.Point(771, 199)
|
||||
Me.Button23.Location = New System.Drawing.Point(606, 161)
|
||||
Me.Button23.Name = "Button23"
|
||||
Me.Button23.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button23.TabIndex = 41
|
||||
@@ -735,7 +738,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Button24
|
||||
'
|
||||
Me.Button24.Location = New System.Drawing.Point(748, 88)
|
||||
Me.Button24.Location = New System.Drawing.Point(583, 50)
|
||||
Me.Button24.Name = "Button24"
|
||||
Me.Button24.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button24.TabIndex = 42
|
||||
@@ -747,7 +750,7 @@ Partial Class usrctlProcedures
|
||||
Me.CheckBox3.AutoSize = True
|
||||
Me.CheckBox3.Checked = True
|
||||
Me.CheckBox3.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.CheckBox3.Location = New System.Drawing.Point(748, 62)
|
||||
Me.CheckBox3.Location = New System.Drawing.Point(583, 24)
|
||||
Me.CheckBox3.Name = "CheckBox3"
|
||||
Me.CheckBox3.Size = New System.Drawing.Size(98, 17)
|
||||
Me.CheckBox3.TabIndex = 43
|
||||
@@ -756,7 +759,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Button25
|
||||
'
|
||||
Me.Button25.Location = New System.Drawing.Point(748, 140)
|
||||
Me.Button25.Location = New System.Drawing.Point(583, 102)
|
||||
Me.Button25.Name = "Button25"
|
||||
Me.Button25.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button25.TabIndex = 44
|
||||
@@ -765,7 +768,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.Location = New System.Drawing.Point(744, 192)
|
||||
Me.Label10.Location = New System.Drawing.Point(579, 154)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label10.TabIndex = 45
|
||||
@@ -826,10 +829,43 @@ Partial Class usrctlProcedures
|
||||
Me.Label13.TabIndex = 28
|
||||
Me.Label13.Text = "Änderung bei vorh. Kd.:"
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.Location = New System.Drawing.Point(752, 102)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label14.TabIndex = 53
|
||||
Me.Label14.Text = "0/0"
|
||||
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'CheckBox4
|
||||
'
|
||||
Me.CheckBox4.AutoSize = True
|
||||
Me.CheckBox4.Checked = True
|
||||
Me.CheckBox4.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.CheckBox4.Location = New System.Drawing.Point(756, 24)
|
||||
Me.CheckBox4.Name = "CheckBox4"
|
||||
Me.CheckBox4.Size = New System.Drawing.Size(98, 17)
|
||||
Me.CheckBox4.TabIndex = 51
|
||||
Me.CheckBox4.Text = "TESTSYSTEM"
|
||||
Me.CheckBox4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button27
|
||||
'
|
||||
Me.Button27.Location = New System.Drawing.Point(756, 50)
|
||||
Me.Button27.Name = "Button27"
|
||||
Me.Button27.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button27.TabIndex = 50
|
||||
Me.Button27.Text = "UNISPED MDB Importieren"
|
||||
Me.Button27.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrctlProcedures
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.Label14)
|
||||
Me.Controls.Add(Me.CheckBox4)
|
||||
Me.Controls.Add(Me.Button27)
|
||||
Me.Controls.Add(Me.TextBox12)
|
||||
Me.Controls.Add(Me.TextBox11)
|
||||
Me.Controls.Add(Me.TextBox10)
|
||||
@@ -961,4 +997,7 @@ Partial Class usrctlProcedures
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents Label13 As Label
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents CheckBox4 As CheckBox
|
||||
Friend WithEvents Button27 As Button
|
||||
End Class
|
||||
|
||||
@@ -14,6 +14,7 @@ Imports System.Net
|
||||
Imports System.Text
|
||||
Imports System.Xml.Serialization
|
||||
Imports System.Xml
|
||||
Imports System.Data.OleDb
|
||||
|
||||
'Imports Microsoft.Office.Interop
|
||||
|
||||
@@ -345,7 +346,7 @@ Public Class usrctlProcedures
|
||||
Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)
|
||||
|
||||
' Draw the text
|
||||
gfx.DrawString("Hello, World!", font, XBrushes.Black, _
|
||||
gfx.DrawString("Hello, World!", font, XBrushes.Black,
|
||||
New XRect(0, 0, page.Width.Point, page.Height.Point), XStringFormats.Center)
|
||||
|
||||
' Save the document...
|
||||
@@ -699,8 +700,8 @@ Public Class usrctlProcedures
|
||||
WordDoc = WordApp.Documents.Open("C:\Users\DEVELOPER1\Desktop\test\Erstattungsschreiben DE.doc")
|
||||
WordDoc.MailMerge.MainDocumentType = Word.WdMailMergeMainDocType.wdFormLetters
|
||||
|
||||
WordDoc.MailMerge.OpenDataSource(Name:="", _
|
||||
Connection:="DSN=dbConn_DEVELOPER;DATABASE=VERAG;uid=sa;pwd=BmWr501956;", _
|
||||
WordDoc.MailMerge.OpenDataSource(Name:="",
|
||||
Connection:="DSN=dbConn_DEVELOPER;DATABASE=VERAG;uid=sa;pwd=BmWr501956;",
|
||||
SQLStatement:="SELECT * FROM vwUstRueckerstattung ", SubType:=Microsoft.Office.Interop.Word.WdMergeSubType.wdMergeSubTypeWord2000)
|
||||
|
||||
'Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=VERAG;uid=sa;Password=BmWr501956;
|
||||
@@ -939,7 +940,7 @@ Public Class usrctlProcedures
|
||||
' Copy the part of the original bitmap that we want
|
||||
' into the bitmap.
|
||||
Dim gr As Graphics = Graphics.FromImage(bm2)
|
||||
gr.DrawImage(bm, 0, 0, New Rectangle(dx, dy, wid, hgt), _
|
||||
gr.DrawImage(bm, 0, 0, New Rectangle(dx, dy, wid, hgt),
|
||||
GraphicsUnit.Pixel)
|
||||
Return bm2
|
||||
End Function
|
||||
@@ -1195,7 +1196,7 @@ Public Class usrctlProcedures
|
||||
' string_writer.Close()
|
||||
|
||||
MsgBox(xml)
|
||||
Dim data As String = Xml
|
||||
Dim data As String = xml
|
||||
Dim url As String = "http://localhost:64588/wsGetBrgData.asmx"
|
||||
Dim responsestring As String = ""
|
||||
|
||||
@@ -1204,7 +1205,7 @@ Public Class usrctlProcedures
|
||||
Dim proxyaddress As String
|
||||
Dim myProxy As New WebProxy()
|
||||
Dim encoding As New ASCIIEncoding
|
||||
Dim buffer() As Byte = Encoding.GetBytes(Xml)
|
||||
Dim buffer() As Byte = encoding.GetBytes(xml)
|
||||
Dim response As String
|
||||
|
||||
myReq.AllowWriteStreamBuffering = False
|
||||
@@ -1265,7 +1266,7 @@ Public Class usrctlProcedures
|
||||
Dim cn As New SqlConnection()
|
||||
cn.ConnectionString = My.Resources.connStringFMZOLL
|
||||
cn.Open()
|
||||
Using cmd As New SqlCommand(sql, cn)
|
||||
Using cmd As New SqlCommand(sql, cn)
|
||||
cmd.Parameters.AddWithValue("@kdnr", s.Trim)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
@@ -1337,7 +1338,7 @@ Public Class usrctlProcedures
|
||||
|
||||
|
||||
'exec atlas.dbo.kundenstamm @ndl = 'SUB';
|
||||
Private Function GetTimeInterval(ByVal nSeks As Long) As String
|
||||
Private Function GetTimeInterval(ByVal nSeks As Long) As String
|
||||
Dim h As Long, m As Long
|
||||
Dim sInterv As String
|
||||
|
||||
@@ -1377,9 +1378,9 @@ Public Class usrctlProcedures
|
||||
|
||||
Public Sub SpeichernVermerk(NEWAVISOID As Integer, ByVal r As DataRow)
|
||||
Dim hAuswahl As String
|
||||
hAuswahl = "INSERT INTO Vermerke " &
|
||||
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung)"
|
||||
Dim sql = hAuswahl
|
||||
hAuswahl = "INSERT INTO Vermerke " &
|
||||
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung)"
|
||||
Dim sql = hAuswahl
|
||||
|
||||
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
@@ -1406,12 +1407,12 @@ Public Class usrctlProcedures
|
||||
Public Function SpeichernAviso(ByVal r As DataRow) As Integer
|
||||
Dim hAuswahl As String
|
||||
Dim id As Integer = -1
|
||||
'Neuanlage
|
||||
hAuswahl = "INSERT INTO Aviso " &
|
||||
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
|
||||
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA) VALUES (" &
|
||||
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
|
||||
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA); SELECT CAST(scope_identity() AS int);"
|
||||
'Neuanlage
|
||||
hAuswahl = "INSERT INTO Aviso " &
|
||||
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
|
||||
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA) VALUES (" &
|
||||
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
|
||||
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA); SELECT CAST(scope_identity() AS int);"
|
||||
|
||||
Dim sql = hAuswahl
|
||||
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionAVISO
|
||||
@@ -2099,7 +2100,7 @@ Public Class usrctlProcedures
|
||||
If KD.Besonderheiten <> getTrimedString(currentRow(22), 2000) Then TextBox12.Text &= kdnr & vbNewLine
|
||||
|
||||
End If
|
||||
If cnt Mod 10 = 0 Then
|
||||
If cnt Mod 10 = 0 Then
|
||||
Application.DoEvents()
|
||||
|
||||
Label10.Text = (cnt + 1)
|
||||
@@ -2108,8 +2109,8 @@ Public Class usrctlProcedures
|
||||
Else
|
||||
'MsgBox(currentRow(2))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'For Each currentField In currentRow
|
||||
cnt += 1
|
||||
@@ -2133,6 +2134,355 @@ Public Class usrctlProcedures
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
|
||||
|
||||
Dim StartZeit As Date = DateTime.Now
|
||||
Dim StopZeit As Date = DateTime.Now
|
||||
Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox4.Checked
|
||||
|
||||
Dim cnt = 0
|
||||
'dim listAVISO = New List(Of cAviso)
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim kdnr_tmp = ""
|
||||
Try
|
||||
|
||||
Dim fd As New OpenFileDialog
|
||||
If fd.ShowDialog = DialogResult.OK Then
|
||||
If fd.FileName.ToUpper.EndsWith(".MDB") Then
|
||||
|
||||
|
||||
|
||||
'Dim Datenbank As OleDbConnection
|
||||
'Dim DaHeadertest As OleDbDataAdapter
|
||||
'Dim DsHeadertest As DataSet
|
||||
|
||||
'Datenbank = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fd.FileName)
|
||||
|
||||
'DaHeadertest = New OleDbDataAdapter("show tables", Datenbank)
|
||||
'DsHeadertest = New DataSet
|
||||
'DaHeadertest.Fill(DsHeadertest)
|
||||
'For Each dr As System.Data.DataRow In DsHeadertest.Tables("KundenKartei").Rows
|
||||
' MessageBox.Show(dr(1))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Next
|
||||
|
||||
'Exit Sub
|
||||
|
||||
Dim Datenbank As OleDbConnection
|
||||
Dim DaHeadertest As OleDbDataAdapter
|
||||
Dim DsHeadertest As DataSet
|
||||
' MsgBox("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
|
||||
' Datenbank = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
|
||||
Datenbank = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
|
||||
' cGlobal.ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & pfadDatei
|
||||
'DaHeadertest = New OleDbDataAdapter("show tables", Datenbank)
|
||||
'DsHeadertest = New DataSet
|
||||
'DaHeadertest.Fill(DsHeadertest)
|
||||
'For Each dr As System.Data.DataRow In DsHeadertest.Tables("Kunden Kartei").Rows
|
||||
' MessageBox.Show(dr(1))
|
||||
'Next
|
||||
|
||||
Dim query = "SELECT * FROM KundenKartei"
|
||||
Dim Table_ = "KundenKartei"
|
||||
Dim ds As New DataSet
|
||||
Dim cnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fd.FileName)
|
||||
cnn.Open()
|
||||
Dim cmd As New OleDbCommand(query, cnn)
|
||||
Dim da As New OleDbDataAdapter(cmd)
|
||||
da.Fill(ds, Table_)
|
||||
cnn.Close()
|
||||
Dim t1 As DataTable = ds.Tables(Table_)
|
||||
Dim row As DataRow
|
||||
Dim Item(2) As String
|
||||
|
||||
|
||||
For Each row In t1.Rows
|
||||
Dim kdnr As Integer = 2000000
|
||||
|
||||
|
||||
If IsNumeric(row("Debitorennr")) Then
|
||||
kdnr += CInt(row("Debitorennr"))
|
||||
Else
|
||||
kdnr += CInt(row("Kundennummer"))
|
||||
End If
|
||||
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
|
||||
If Not KD.hasEntry Then
|
||||
|
||||
' MsgBox(kdnr)
|
||||
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
||||
Dim KDE As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
|
||||
|
||||
|
||||
|
||||
AD.Auswahl = If(CBool(row("gelöscht")), "I", "A")
|
||||
AD.Ordnungsbegriff = row("Kundencode").ToString.ToUpper
|
||||
AD.Name_1 = getTrimedStringACCES(row("Name"), 40)
|
||||
AD.Name_2 = isleernothing(getTrimedStringACCES(row("Gesellschaft"), 40))
|
||||
If AD.Name_1 = "" Then AD.Name_1 = AD.Ordnungsbegriff
|
||||
|
||||
AD.Straße = isleernothing(getTrimedStringACCES(row("Straße"), 40))
|
||||
AD.Ort = isleernothing(getTrimedStringACCES(row("Ort"), 40))
|
||||
AD.PLZ = isleernothing(getTrimedStringACCES(row("PLZ"), 7))
|
||||
AD.LandKz = isleernothing(getTrimedStringACCES(row("Land"), 3))
|
||||
AD.Telefon = isleernothing(getTrimedStringACCES(row("Telefonnr"), 20))
|
||||
AD.Mobiltelefon = isleernothing(getTrimedStringACCES(row("Mobil"), 20))
|
||||
AD.Telefax = isleernothing(getTrimedStringACCES(row("Faxnr"), 20))
|
||||
AD.E_Mail = isleernothing(getTrimedStringACCES(row("Email1"), 40).ToString.Replace("mailto:", "").Replace("#", ""))
|
||||
AD.E_Mail2 = isleernothing(getTrimedStringACCES(row("Email2"), 40).ToString.Replace("mailto:", "").Replace("#", ""))
|
||||
' AD. = row("Internet1")
|
||||
AD.Ansprechpartner = isleernothing(getTrimedStringACCES(row("Ansprechpartner"), 40))
|
||||
KD.Währungscode = "EUR" 'getTrimedStringACCES(row("Standard FakturenWährung"), 3)
|
||||
KD.Zahlungsziel = getTrimedStringACCES(row("Zahlungsziel"), 3)
|
||||
' Offerte ??
|
||||
|
||||
Dim Allg = ""
|
||||
|
||||
|
||||
If getTrimedStringACCES(row("ÖVZ"), 9999) <> "" Then Allg &= "Offert ÖVZ: " & getTrimedStringACCESEUR(row("ÖVZ"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("ÖVZ_Fiskal"), 9999) <> "" Then Allg &= "Offert ÖVZ_Fiskal: " & getTrimedStringACCESEUR(row("ÖVZ_Fiskal"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("DVZ"), 9999) <> "" Then Allg &= "Offert DVZ: " & getTrimedStringACCESEUR(row("DVZ"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("DVZ_Fiskal"), 9999) <> "" Then Allg &= "Offert DVZ_Fiskal: " & getTrimedStringACCESEUR(row("DVZ_Fiskal"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("T1"), 9999) <> "" Then Allg &= "Offert T1: " & getTrimedStringACCESEUR(row("T1"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("AE"), 9999) <> "" Then Allg &= "Offert AE: " & getTrimedStringACCESEUR(row("AE"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("AE_ATR"), 9999) <> "" Then Allg &= "Offert AE_ATR: " & getTrimedStringACCESEUR(row("AE_ATR"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("eZoll_Zuschlag"), 9999) <> "" Then Allg &= "Offert eZoll_Zuschlag: " & getTrimedStringACCESEUR(row("eZoll_Zuschlag"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Atlas_Zuschlag"), 9999) <> "" Then Allg &= "Offert Atlas_Zuschlag: " & getTrimedStringACCESEUR(row("Atlas_Zuschlag"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("TNR_Zuschlag"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag: " & getTrimedStringACCESEUR(row("TNR_Zuschlag"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("TNR_Zuschlag_Hinweis"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag_Hinweis: " & getTrimedStringACCESEUR(row("TNR_Zuschlag_Hinweis"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("TNR_Zuschlag_Hinweis"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag_Hinweis: " & getTrimedStringACCESEUR(row("TNR_Zuschlag_Hinweis"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Porti"), 9999) <> "" Then Allg &= "Offert Porti: " & getTrimedStringACCESEUR(row("Porti"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("SKR"), 9999) <> "" Then Allg &= "Offert SKR: " & getTrimedStringACCESEUR(row("SKR"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vorlage"), 9999) <> "" Then Allg &= "Offert Vorlage: " & getTrimedStringACCESEUR(row("Vorlage"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Bargeldbeistellung"), 9999) <> "" Then Allg &= "Offert Bargeldbeistellung: " & getTrimedStringACCESEUR(row("Bargeldbeistellung"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vorlage"), 9999) <> "" Then Allg &= "Offert Vorlage: " & getTrimedStringACCESEUR(row("Vorlage"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Abrechnungssätze_Anmerkungen"), 9999) <> "" Then Allg &= "Abrechnung: " & getTrimedStringACCES(row("Abrechnungssätze_Anmerkungen"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Abfertigungsort"), 9999) <> "" Then Allg &= "Abfertigungsort: " & getTrimedStringACCES(row("Abfertigungsort"), 99999) & vbNewLine
|
||||
|
||||
|
||||
If getTrimedStringACCES(row("Handelsregisterauszug"), 9999) <> "" Then Allg &= "Handelsregisterauszug: " & getTrimedStringACCES(row("Handelsregisterauszug"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Passkopie"), 9999) <> "" Then Allg &= "Passkopie: " & getTrimedStringACCES(row("Passkopie"), 99999) & vbNewLine
|
||||
|
||||
If (IsNumeric(getTrimedStringACCES(row("Creditreform_Rating"), 3))) Then KD.Bonität = getTrimedStringACCES(row("Creditreform_Rating"), 3)
|
||||
If (IsDate(getTrimedStringACCES(row("Creditreform_Abfrage_Datum"), 99999))) Then KD.Bonitätsdatum = getTrimedStringACCES(row("Creditreform_Abfrage_Datum"), 99999)
|
||||
If getTrimedStringACCES(row("Creditreform_Zahlungsziel"), 9999) <> "" Then Allg &= "Creditreform_Zahlungsziel: " & getTrimedStringACCES(row("Creditreform_Zahlungsziel"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Creditreform_Anmerkung"), 9999) <> "" Then Allg &= "Creditreform_Anmerkung: " & getTrimedStringACCES(row("Creditreform_Anmerkung"), 99999) & vbNewLine
|
||||
If IsNumeric(getTrimedStringACCES(row("Creditreform_Höchstkredit"), 9999)) Then KD.Höchstkredit = CDbl(getTrimedStringACCES(row("Creditreform_Höchstkredit"), 9999))
|
||||
|
||||
|
||||
If getTrimedStringACCES(row("UmsatzsteuerID"), 9999).Replace(" ", "").Length > 4 Then
|
||||
Dim ustTmp = getTrimedStringACCES(row("UmsatzsteuerID"), 9999).Replace(" ", "")
|
||||
|
||||
Dim UST_Land = ustTmp.Substring(0, 2)
|
||||
Dim UST_NR = ustTmp.Substring(2)
|
||||
|
||||
AD.UstIdKz = UST_Land
|
||||
AD.UstIdNr = UST_NR
|
||||
|
||||
End If
|
||||
|
||||
If AD.doesOrdnungsbegriffExist Then
|
||||
AD.Ordnungsbegriff = getTrimedStringACCES(AD.Ordnungsbegriff, 43) & " (UNISPED)"
|
||||
End If
|
||||
|
||||
KD.Zollnummer = isleernothing(getTrimedStringACCES(getTrimedStringACCES(row("ZollNr"), 99).Replace(" ", ""), 7))
|
||||
KD.EORITIN = isleernothing(getTrimedStringACCES(getTrimedStringACCES(row("EORINr"), 99).Replace(" ", ""), 17))
|
||||
|
||||
|
||||
If getTrimedStringACCES(row("Abgabenkonto"), 9999) <> "" Then Allg &= "Abgabenkonto: " & getTrimedStringACCES(row("Abgabenkonto"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Aufschubkonto_EUST"), 9999) <> "" Then Allg &= "Aufschub-EUST: " & getTrimedStringACCES(row("Aufschubkonto_EUST"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Aufschubkonto_ZOLL"), 9999) <> "" Then Allg &= "Aufschub-ZOLL: " & getTrimedStringACCES(row("Aufschubkonto_ZOLL"), 99999) & vbNewLine
|
||||
|
||||
If CBool(row("Aufschub_BIN")) Then Allg &= "Aufschub-BIN: JA" & vbNewLine
|
||||
|
||||
|
||||
AD.Steuernummer = isleernothing(getTrimedStringACCES(row("Steuernr_AT"), 20))
|
||||
If getTrimedStringACCES(row("Steuernr_DE"), 9999) <> "" Then Allg &= "Steuernummer-DE: " & getTrimedStringACCES(row("Steuernr_DE"), 99999) & vbNewLine
|
||||
|
||||
|
||||
|
||||
If getTrimedStringACCES(row("Vollmacht_ÖVZ"), 9999) <> "" Then Allg &= "Vollmacht_ÖVZ: " & getTrimedStringACCES(row("Vollmacht_ÖVZ"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vollmacht_ÖVZ_Fiskal"), 9999) <> "" Then Allg &= "Vollmacht_ÖVZ_Fiskal: " & getTrimedStringACCES(row("Vollmacht_ÖVZ_Fiskal"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Erwerbssteuer"), 9999) <> "" Then Allg &= "Erwerbssteuer: " & getTrimedStringACCES(row("Erwerbssteuer"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vollmacht_DVZ"), 9999) <> "" Then Allg &= "Vollmacht_DVZ: " & getTrimedStringACCES(row("Vollmacht_DVZ"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vollmacht_DVZ_Fiskal"), 9999) <> "" Then Allg &= "Vollmacht_DVZ_Fiskal: " & getTrimedStringACCES(row("Vollmacht_DVZ_Fiskal"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vollmacht_AE"), 9999) <> "" Then Allg &= "Vollmacht_AE: " & getTrimedStringACCES(row("Vollmacht_AE"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vollmacht_AE_ATR"), 9999) <> "" Then Allg &= "Vollmacht_AE_ATR: " & getTrimedStringACCES(row("Vollmacht_AE_ATR"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Vollmachten_Anmerkungen"), 9999) <> "" Then Allg &= "Vollmachten_Anmerkungen: " & getTrimedStringACCES(row("Vollmachten_Anmerkungen"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Zoll_Anmerkungen"), 9999) <> "" Then Allg &= "Zoll_Anmerkungen: " & getTrimedStringACCES(row("Zoll_Anmerkungen"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Zoll_Anmerkungen_Fiskal"), 9999) <> "" Then Allg &= "Zoll_Anmerkungen_Fiskal: " & getTrimedStringACCES(row("Zoll_Anmerkungen_Fiskal"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Fiskal_Anmerkungen"), 9999) <> "" Then Allg &= "Fiskal_Anmerkungen: " & getTrimedStringACCES(row("Fiskal_Anmerkungen"), 99999) & vbNewLine
|
||||
|
||||
KD.Abfertigungsverbot = CBool(row("Arbeitsverbot"))
|
||||
KD.Abfertigungsverbot_Grund = isleernothing((getTrimedStringACCES(row("Arbeitsverbot_Anmerkung"), 9999) & vbNewLine & getTrimedStringACCES(row("Anmerkungen_einblenden"), 9999)).Trim)
|
||||
|
||||
If CBool(row("Mahnsperre")) Then Allg &= "Mahnsperre: JA" & vbNewLine
|
||||
If CBool(row("Rechnung_per_Email")) Then Allg &= "Rechnung_per_Email: JA" & vbNewLine
|
||||
|
||||
|
||||
' Rechnung_per_Email
|
||||
|
||||
|
||||
If getTrimedStringACCES(row("Fiskal_Email_Monatsauswertung_Versand"), 9999) <> "" Then Allg &= "Fiskal_Email_Monatsauswertung_Versand: " & getTrimedStringACCES(row("Fiskal_Email_Monatsauswertung_Versand"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 9999) <> "" Then Allg &= "Fiskal_Ansprechpartner: " & getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("eZoll_AdressID"), 9999) <> "" Then Allg &= "eZoll_AdressID: " & getTrimedStringACCES(row("eZoll_AdressID"), 99999) & vbNewLine
|
||||
|
||||
|
||||
If getTrimedStringACCES(row("Geschäftszweig"), 9999) <> "" Then Allg &= "Geschäftszweig: " & getTrimedStringACCES(row("Geschäftszweig"), 99999) & vbNewLine
|
||||
If CBool(row("Rechnung_per_Email")) Then Allg &= "Rechnung_per_Email: JA" & vbNewLine
|
||||
' If getTrimedStringACCES(row("Rechnung_per_Email"), 9999) <> "" Then Allg &= "Rechnung_per_Email: " & getTrimedStringACCES(row("Rechnung_per_Email"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Email_Rechnungsversand"), 9999) <> "" Then Allg &= "Email_Rechnungsversand: " & getTrimedStringACCES(row("Email_Rechnungsversand"), 99999) & vbNewLine
|
||||
|
||||
If getTrimedStringACCES(row("Steuerberater"), 9999) <> "" Then Allg &= "Steuerberater: " & getTrimedStringACCES(row("Steuerberater"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Verbundenheit"), 9999) <> "" Then Allg &= "Verbundenheit: " & getTrimedStringACCES(row("Verbundenheit"), 99999) & vbNewLine
|
||||
If CBool(row("Unternehmerbescheinigung")) Then Allg &= "Unternehmerbescheinigung: JA" & vbNewLine
|
||||
If getTrimedStringACCES(row("Unternehmerbescheinigung_Anmerkung"), 9999) <> "" Then Allg &= "Unternehmerbescheinigung_Anmerkung: " & getTrimedStringACCES(row("Unternehmerbescheinigung_Anmerkung"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Zahlungsbedingungen"), 9999) <> "" Then Allg &= "Zahlungsbedingungen: " & getTrimedStringACCES(row("Zahlungsbedingungen"), 99999) & vbNewLine
|
||||
If getTrimedStringACCES(row("Lieferbedingungen"), 9999) <> "" Then Allg &= "Lieferbedingungen: " & getTrimedStringACCES(row("Lieferbedingungen"), 99999) & vbNewLine
|
||||
' If getTrimedStringACCES(row("KDE"), 9999) <> "" Then Allg &= "Anmerkungen_Warnhinweis: " & getTrimedStringACCES(row("Anmerkungen_Warnhinweis"), 99999) & vbNewLine
|
||||
|
||||
KDE.Anmerkungen_Warnhinweis = getTrimedStringACCES(row("Anmerkungen_Warnhinweis"), 9999)
|
||||
|
||||
If CBool(row("Post1")) Then Allg &= "Post1: JA" & vbNewLine
|
||||
' AD.Eingegeben_am = CDate(row("erstellt"))
|
||||
If IsDate(row("zuletzt_geändert")) Then AD.Geändert_am = CDate(row("zuletzt_geändert"))
|
||||
' KD.Eingegeben_am = CDate(row("erstellt"))
|
||||
If IsDate(row("zuletzt_geändert")) Then KD.Geändert_am = CDate(row("zuletzt_geändert"))
|
||||
|
||||
AD.Sachbearbeiter = If(getTrimedStringACCES(row("User_zuletzt_geändert"), 99999) <> "", getTrimedStringACCES(row("User_zuletzt_geändert"), 99999), getTrimedStringACCES(row("User"), 99999))
|
||||
KD.Sachbearbeiter = If(getTrimedStringACCES(row("User_zuletzt_geändert"), 99999) <> "", getTrimedStringACCES(row("User_zuletzt_geändert"), 99999), getTrimedStringACCES(row("User"), 99999))
|
||||
|
||||
KD.KundenNrZentrale = KD.KundenNr
|
||||
|
||||
KD.FilialenNr = 5601
|
||||
If KD.Sachbearbeiter = "" Then KD.Sachbearbeiter = "AUTO"
|
||||
KD.Währungscode = "EUR"
|
||||
KD.Eingegeben_am = Now.ToShortDateString
|
||||
|
||||
' AD.Ordnungsbegriff = getTrimedString(AD.Name_1 & "; " & AD.Ort, 50)
|
||||
If AD.Sachbearbeiter = "" Then AD.Sachbearbeiter = "AUTO"
|
||||
AD.Eingegeben_am = Now.ToShortDateString
|
||||
|
||||
AD.LandKz = isleernothing(cProgramFunctions.getISO1Land(AD.LandKz))
|
||||
|
||||
AD.Rechnungsdruck = True
|
||||
If KD.EORITIN = "" Then KD.EORITIN = Nothing
|
||||
KD.Vorlageprovision = 0.01
|
||||
KD.Kreditaufwendungen = 0.02
|
||||
KD.Bankspesen = 0
|
||||
KD.SVS = True
|
||||
KD.Bankspesen_Mindestbetrag = 0
|
||||
|
||||
KD.Sammelrechnung = 0
|
||||
KD.Steuerschlüssel = 10
|
||||
KD.Kreditlimit = 2600
|
||||
KD.Überwachungskunde = 0
|
||||
KD.Abfertigungsverbot = 0
|
||||
KD.Rechtsanwalt = 0
|
||||
KD.Euroeinführung = CDate("01.01.2002")
|
||||
KD.UStV_Summe3470BetragEUR = 0
|
||||
KD.UStV_SummeErstattungsbetragEUR = 0
|
||||
KD.UStV_SummeVorschaubetragEUR = 0
|
||||
KD.UStV_SummeVorschaubetragEUR_IDS = 0
|
||||
KD.UStV_SummeVorschaubetragEUR_VERAG = 0
|
||||
KD.UStV_SummeUmsatzsteuerbetragEUR = 0
|
||||
KD.UStV_SummeVZBetragEUR = 0
|
||||
KD.Fiskal_Aktiv = 0
|
||||
|
||||
If Allg <> "" Then Allg &= vbNewLine & "____________________________________________________________" & vbNewLine
|
||||
KD.Besonderheiten = isleernothing((Allg & getTrimedStringACCES(row("Sonstiges"), 99999)).Trim)
|
||||
|
||||
|
||||
Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte()
|
||||
KDKont.kkd_KundenNr = kdnr
|
||||
|
||||
KDKont.kkd_kkaId = 10
|
||||
KDKont.kkd_kkaBez = "Fiskal"
|
||||
KDKont.kkd_Tel = isleernothing(getTrimedStringACCES(row("Fiskal_Telefon"), 40))
|
||||
|
||||
KDKont.kkd_Email = isleernothing(getTrimedStringACCES(row("Fiskal_Email1"), 40) & ";" & getTrimedStringACCES(row("Fiskal_Email2"), 40) & ";" & getTrimedStringACCES(row("Fiskal_Email3"), 40))
|
||||
' If (KDKont.kkd_Email.replace(";;", "") = "") Then KDKont.kkd_Email = ""
|
||||
KDKont.kkd_Email = KDKont.kkd_Email.replace(";;", ";")
|
||||
KDKont.kkd_Email = isleernothing(KDKont.kkd_Email)
|
||||
|
||||
KDKont.kkd_Fax = isleernothing(getTrimedStringACCES(row("Fiskal_Faxnr"), 40))
|
||||
KDKont.kkd_Mobil = isleernothing(getTrimedStringACCES(row("Fiskal_Mobil"), 40))
|
||||
KDKont.kkd_AnsprechpartnerVorname = isleernothing(getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 40))
|
||||
|
||||
|
||||
|
||||
If AD.SAVE() AndAlso KD.SAVE() AndAlso KDE.SAVE() Then
|
||||
VERAG_PROG_ALLGEMEIN.cKundenKontakte.DELETE_ALL_KONTAKTE(kdnr) 'alle Löschen!
|
||||
|
||||
KDKont.SAVE()
|
||||
|
||||
If getTrimedStringACCES(row("Email3"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("Email3"), 50).ToString.Replace("mailto:", "").Replace("#", ""), "Email3")
|
||||
If getTrimedStringACCES(row("EmailABD1"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD1"), 30), "ABD01")
|
||||
If getTrimedStringACCES(row("EmailABD2"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD2"), 30), "ABD02")
|
||||
If getTrimedStringACCES(row("EmailABD3"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD3"), 30), "ABD03")
|
||||
|
||||
TextBox10.Text &= AD.AdressenNr & " " & AD.Ordnungsbegriff & vbNewLine
|
||||
Else
|
||||
MsgBox("FEHLER: " & kdnr)
|
||||
End If
|
||||
|
||||
|
||||
' AD.XXXXXXXXX = getTrimedStringACCES(row("XXXXXXXXXXXXXXXXXX"), 99999)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'Item(0) = row(0)
|
||||
'Item(1) = row(1)
|
||||
'Dim NextListItem As New ListViewItem(Item)
|
||||
'ListView1.Items.Add(NextListItem)
|
||||
cnt += 1
|
||||
Label14.Text = cnt
|
||||
Me.Refresh()
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message & ex.StackTrace)
|
||||
Finally
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub insertKontakt(kdnr, kkd_Email, kkd_AnsprechpartnerVorname)
|
||||
Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte()
|
||||
KDKont.kkd_KundenNr = kdnr
|
||||
|
||||
KDKont.kkd_kkaId = 1
|
||||
KDKont.kkd_kkaBez = "Allgemein"
|
||||
|
||||
KDKont.kkd_Email = kkd_Email
|
||||
KDKont.kkd_AnsprechpartnerVorname = KDKont.kkd_AnsprechpartnerVorname
|
||||
|
||||
KDKont.SAVE()
|
||||
End Sub
|
||||
Function getTrimedString(s As String, l As Integer) As String
|
||||
Try
|
||||
If s Is Nothing Then Return ""
|
||||
@@ -2146,6 +2496,42 @@ Public Class usrctlProcedures
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
Function getTrimedStringACCES(s As Object, l As Integer) As String
|
||||
|
||||
Try
|
||||
If s Is Nothing Then Return ""
|
||||
If s Is DBNull.Value Then Return ""
|
||||
If s.ToString.Length > l Then
|
||||
Return s.Substring(0, l)
|
||||
End If
|
||||
Return s
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
Function getTrimedStringACCESEUR(s As Object, l As Integer) As String
|
||||
|
||||
Try
|
||||
If s Is Nothing Then Return ""
|
||||
If s Is DBNull.Value Then Return ""
|
||||
If s.ToString.Length > l Then
|
||||
Return s.Substring(0, l)
|
||||
End If
|
||||
|
||||
If IsNumeric(s) Then
|
||||
Return CDbl(s).ToString("C2")
|
||||
End If
|
||||
|
||||
Return s
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
|
||||
Dim StartZeit As Date = DateTime.Now
|
||||
@@ -2364,6 +2750,8 @@ Public Class usrctlProcedures
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
'Private Sub Button26_Click(sender As Object, e As EventArgs)
|
||||
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
||||
' Dim fi As New FileInfo(d)
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
|
||||
@@ -21,7 +21,7 @@ Public Class EZollAufschubEinlesen
|
||||
|
||||
Dim saveAbgaben = True
|
||||
Select Case d1.Abgabenart
|
||||
Case "2EU", "2IG", "2PE", "5EU"
|
||||
Case "2EU", "2IG", "5EU" ' "2PE",
|
||||
LeistungsNr = "20"
|
||||
Case "B00" 'EUST
|
||||
LeistungsNr = "20"
|
||||
|
||||
@@ -14,8 +14,8 @@ Option Explicit On
|
||||
|
||||
Namespace My
|
||||
|
||||
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
|
||||
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
|
||||
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
|
||||
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
|
||||
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
|
||||
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
|
||||
'
|
||||
|
||||
@@ -22,7 +22,7 @@ Namespace My.Resources
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
|
||||
@@ -15,21 +15,21 @@ Option Explicit On
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
|
||||
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 "Funktion zum automatischen Speichern von My.Settings"
|
||||
#Region "Automatische My.Settings-Speicherfunktion"
|
||||
#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(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
|
||||
@@ -11,7 +11,7 @@
|
||||
<AssemblyName>RoutineManager</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
@@ -72,6 +72,11 @@
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
|
||||
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
|
||||
@@ -111,6 +116,7 @@
|
||||
<Compile Include="cBuergschaften.vb" />
|
||||
<Compile Include="cEDI.vb" />
|
||||
<Compile Include="cGetMsgType.vb" />
|
||||
<Compile Include="cVERAG_Interface.vb" />
|
||||
<Compile Include="cWorker_NCTS.vb" />
|
||||
<Compile Include="EZollAufschubEinlesen.vb" />
|
||||
<Compile Include="frmMDMNachrichtenVerarbeitung.Designer.vb">
|
||||
|
||||
775
initATLASAufschubkonten/cVERAG_Interface.vb
Normal file
775
initATLASAufschubkonten/cVERAG_Interface.vb
Normal file
@@ -0,0 +1,775 @@
|
||||
Public Class cVERAG_Interface
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
'Shared Function copyFileFTP_OLD(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', filePath As String)
|
||||
' Try
|
||||
' If NCTS_TMP Is Nothing Then Return False
|
||||
' If NCTS_TMP.ncts_ObjectName Is Nothing Then Return False
|
||||
' If NCTS_TMP.ncts_ObjectName.ToString.StartsWith("DU") Then Return False
|
||||
' If NCTS_TMP.ncts_firma.ToString = "DURMAZ" Then Return False
|
||||
|
||||
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
||||
' If filePath = "" Then Return False
|
||||
|
||||
' NCTS_TMP.LOAD_Sicherheitsangaben()
|
||||
' If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
||||
' Dim GRN = NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
|
||||
' Dim destFile = ""
|
||||
' Select Case GRN
|
||||
' ' --> FTP Bereitstellung
|
||||
' '\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB
|
||||
' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
||||
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
||||
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
||||
' frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
' End Select
|
||||
' End If
|
||||
' Return True
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' Return False
|
||||
' End Try
|
||||
'End Function
|
||||
|
||||
Shared Function copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNr As String) As Boolean
|
||||
Dim DY_TMP = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(BezugsNr)
|
||||
Dim NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True)
|
||||
If DY_TMP Is Nothing Then Return False
|
||||
If NCTS_TMP Is Nothing Then Return False
|
||||
Return copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP, False)
|
||||
End Function
|
||||
Shared Function copyFileFTP_VERAGncts_DY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
||||
Try
|
||||
If NCTS_TMP Is Nothing Then Return False
|
||||
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return False
|
||||
If NCTS_TMP.ncts_ObjectName.ToString.StartsWith("DU") Then Return False
|
||||
If NCTS_TMP.ncts_firma.ToString = "DURMAZ" Then Return False
|
||||
|
||||
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
||||
|
||||
|
||||
NCTS_TMP.LOAD_Sicherheitsangaben()
|
||||
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
||||
Dim GRN = NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
|
||||
|
||||
Dim destFile = ""
|
||||
Dim filePath = ""
|
||||
Dim UniqueId = ""
|
||||
|
||||
' --> FTP Bereitstellung
|
||||
Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
|
||||
|
||||
Dim FTP_Path = ""
|
||||
Dim CooName = ""
|
||||
Dim vorsystem = "DY"
|
||||
If getPathsByGRN(GRN, FTP_Path, CooName) Then
|
||||
NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
|
||||
If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then
|
||||
If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
||||
frmStartOptions.copyFile(filePath, FTP_Path, destFile)
|
||||
If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyFileFTP")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Dim destFile = ""
|
||||
'Dim filePath = ""
|
||||
'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
|
||||
'' --> FTP Bereitstellung
|
||||
'Select Case GRN
|
||||
' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
||||
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath)
|
||||
' If filePath = "" Then Return False
|
||||
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
||||
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath)
|
||||
' If filePath = "" Then Return False
|
||||
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
||||
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath)
|
||||
' If filePath = "" Then Return False
|
||||
' frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
'End Select
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNr As String) As Boolean
|
||||
Dim NCTS_TMP = TELOTEC_Worker.cTelotec_Anmeldung.LOAD_ByBezugsNr(BezugsNr)
|
||||
If NCTS_TMP Is Nothing Then Return False
|
||||
Return copyFileFTP_VERAGncts_TC(NCTS_TMP, False)
|
||||
End Function
|
||||
Shared Function copyFileFTP_VERAGncts_TC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
||||
Try
|
||||
If NCTS_TMP Is Nothing Then Return False
|
||||
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return False
|
||||
'If NCTS_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
|
||||
Select Case NCTS_TMP.telanm_ART
|
||||
Case "T1", "T2", "T2L", "T-"
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
|
||||
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
||||
|
||||
' NCTS_TMP.LOAD_Sicherheitsangaben()
|
||||
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
||||
Dim GRN = NCTS_TMP.SICHERHEIT(0).GRN
|
||||
Dim destFile = ""
|
||||
Dim filePath = ""
|
||||
Dim UniqueId = ""
|
||||
|
||||
' --> FTP Bereitstellung
|
||||
Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
|
||||
Dim FTP_Path = ""
|
||||
Dim CooName = ""
|
||||
Dim vorsystem = "TC"
|
||||
If getPathsByGRN(GRN, FTP_Path, CooName) Then
|
||||
NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId)
|
||||
If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then
|
||||
If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
||||
frmStartOptions.copyFile(filePath, FTP_Path, destFile)
|
||||
If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyFileFTP")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Select Case GRN
|
||||
' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
||||
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath)
|
||||
' If filePath = "" Then Return False
|
||||
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP")
|
||||
' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
||||
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath)
|
||||
' If filePath = "" Then Return False
|
||||
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP")
|
||||
' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
||||
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath)
|
||||
' If filePath = "" Then Return False
|
||||
' frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
|
||||
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP")
|
||||
'End Select
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String) As Boolean
|
||||
Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
|
||||
If AnmId = "" Then Return False
|
||||
Return copyFileFTP_VERAGncts_EZOLL(AnmId, False)
|
||||
End Function
|
||||
|
||||
Shared Function copyFileFTP_VERAGncts_EZOLL(AnmId As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
||||
Dim LRN = ""
|
||||
Try
|
||||
|
||||
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
||||
" FROM zsAnmRefs" &
|
||||
" WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')" &
|
||||
" ORDER BY GeaendertAm DESC", "EZOLL")
|
||||
|
||||
|
||||
If dEZOLL Is Nothing Then Return False
|
||||
If dEZOLL.Rows.Count <= 0 Then Return False
|
||||
'If NCTS_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
|
||||
|
||||
LRN = dEZOLL.Rows(0)("LRN")
|
||||
Select Case SQL.getValueTxtBySql("SELECT TOP 1 DecTy FROM zsAnmHea WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')", "EZOLL")
|
||||
Case "T1", "T2", "T2L", "T-"
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
|
||||
' Tabelle zsAnmGrteeGrteeRef lesen.
|
||||
Dim GRN As String = SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmGrteeGrteeRef WHERE AnmID = " & AnmId & " ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
||||
Dim destFile = ""
|
||||
Dim filePath = ""
|
||||
Dim UniqueId = ""
|
||||
|
||||
' --> FTP Bereitstellung
|
||||
Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
|
||||
|
||||
Dim FTP_Path = ""
|
||||
Dim CooName = ""
|
||||
Dim vorsystem = "DHF"
|
||||
If getPathsByGRN(GRN, FTP_Path, CooName) Then
|
||||
NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId)
|
||||
If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then
|
||||
If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
||||
frmStartOptions.copyFile(filePath, FTP_Path, destFile)
|
||||
If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & LRN, "", "copyFileFTP")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function getPathsByGRN(GRN, ByRef FTP_Path, ByRef CooName) As Boolean
|
||||
Select Case GRN
|
||||
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
||||
FTP_Path = "\\ftps.verag.ag\FTP\TOBB\OUT\"
|
||||
CooName = "TOBB"
|
||||
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
||||
FTP_Path = "\\ftps.verag.ag\FTP\OREGON\OUT\"
|
||||
CooName = "OREGON"
|
||||
Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
||||
FTP_Path = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\"
|
||||
CooName = "VERAG"
|
||||
Case "16AT520000G000VA6" 'IMEX
|
||||
FTP_Path = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\IMEX\"
|
||||
CooName = "IMEX"
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Shared Function alreadyProvidedInInterface(NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, vorsystem As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
||||
If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben
|
||||
Try
|
||||
'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','')", "FMZOLL")
|
||||
If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "' AND [ftp_art]='" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "' AND [ftp_status]='" & NCTS_VERAG_OUT.ProcessData.Status & "' AND [ftp_vorsystem]='" & vorsystem & "' ", "FMZOLL",,, 0) = 0 Then
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Shared Function genXMLFile(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
|
||||
Try
|
||||
If XMLFilePath = "" Then
|
||||
Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
||||
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
||||
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
|
||||
End If
|
||||
VERAG_NCTS.SaveToFile(XMLFilePath)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return XMLFilePath
|
||||
End Function
|
||||
Shared Function genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Try
|
||||
If DY_TMP Is Nothing Then Return Nothing
|
||||
If NCTS_TMP Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return Nothing
|
||||
NCTS_TMP.LOAD_Warenposition()
|
||||
|
||||
VERAG_NCTS.Version = "2.0.0" ' Automaitsch, weil default ' doch nicht?
|
||||
|
||||
If NCTS_TMP.ncts_firma <> "" Then
|
||||
VERAG_NCTS.Company = NCTS_TMP.ncts_firma
|
||||
Else
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
End If
|
||||
VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung
|
||||
|
||||
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
||||
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
||||
|
||||
Select Case DY_TMP.dy_Status
|
||||
Case < 50
|
||||
VERAG_NCTS.ProcessData.Status = 0
|
||||
Case 50, 53
|
||||
VERAG_NCTS.ProcessData.Status = 50
|
||||
Case 60
|
||||
VERAG_NCTS.ProcessData.Status = 60
|
||||
End Select
|
||||
|
||||
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.ncts_Trans_DatumZeit
|
||||
|
||||
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.ncts_MRN, "")
|
||||
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.ncts_ObjectName, "")
|
||||
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.ncts_ArtAnmeldung, "")
|
||||
|
||||
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = If(NCTS_TMP.ncts_Wiedergestellungsdatum, "")
|
||||
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "")
|
||||
|
||||
'Versender
|
||||
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "")
|
||||
|
||||
'Empfänger
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ncts_Empfaenger_Name, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "")
|
||||
|
||||
'Frächter
|
||||
VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "")
|
||||
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "")
|
||||
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "")
|
||||
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "")
|
||||
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "")
|
||||
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "")
|
||||
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "")
|
||||
|
||||
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "")
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0")
|
||||
End If
|
||||
|
||||
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
||||
Dim cntPos = 1
|
||||
If NCTS_TMP.ncts_WARENPOS IsNot Nothing Then
|
||||
For Each POS In NCTS_TMP.ncts_WARENPOS
|
||||
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
||||
V_POS.PosNr = cntPos
|
||||
Dim pkGes = 0
|
||||
Dim pkArt = ""
|
||||
If POS.nctsWP_PACKSTUECKE IsNot Nothing Then
|
||||
For Each PK In POS.nctsWP_PACKSTUECKE
|
||||
If PK.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then pkGes += PK.nctsWpPk_PackstueckeAnzahl
|
||||
If PK.nctsWpPk_Verpackungsart IsNot Nothing Then pkArt = PK.nctsWpPk_Verpackungsart
|
||||
Next
|
||||
End If
|
||||
V_POS.Quantity = pkGes
|
||||
V_POS.Packaging = pkArt
|
||||
V_POS.GrossWeight = POS.nctsWP_Rohmasse
|
||||
V_POS.GoodsDescription = POS.nctsWP_Warenbezeichnung
|
||||
|
||||
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
||||
cntPos += 1
|
||||
Next
|
||||
End If
|
||||
|
||||
If False Then
|
||||
Try
|
||||
If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
|
||||
Dim Path = DS.GET_TOP1_PATH()
|
||||
If Path <> "" And IO.File.Exists(Path) Then
|
||||
Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachment
|
||||
ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachmentDocumentType.NCTS
|
||||
ATT.FileType = "PDF"
|
||||
ATT.Name = "NCTS_VBD_" & If(VERAG_NCTS.ProcessData.ProcedureCode, "") & ".pdf"
|
||||
Convert.ToBase64String(System.IO.File.ReadAllBytes(Path))
|
||||
'ATT.base64BinaryStream = Convert.ToBase64CharArray(System.IO.File.ReadAllBytes(Path))
|
||||
ATT.base64BinaryStream = System.Text.Encoding.UTF8.GetBytes(System.Convert.ToBase64String(System.IO.File.ReadAllBytes(Path)))
|
||||
VERAG_NCTS.Attachments.Add(ATT)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End If
|
||||
'If XMLFilePath = "" Then
|
||||
' Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
||||
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
||||
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
|
||||
'End If
|
||||
|
||||
UniqueId = DY_TMP.dy_Id
|
||||
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return VERAG_NCTS
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
|
||||
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
||||
" FROM zsAnmRefs" &
|
||||
" WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')" &
|
||||
" ORDER BY GeaendertAm DESC", "EZOLL")
|
||||
If dEZOLL Is Nothing Then Return Nothing
|
||||
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
||||
|
||||
Dim r As DataRow = dEZOLL.Rows(0)
|
||||
|
||||
Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim LRN = ""
|
||||
Try
|
||||
|
||||
VERAG_NCTS.Version = "2.0.0" ' Automaitsch, weil default ' doch nicht?
|
||||
|
||||
Dim Bestimmungszollstelle = ""
|
||||
Dim Bürgschaft = ""
|
||||
|
||||
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
||||
" FROM zsAnmRefs" &
|
||||
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
|
||||
" ORDER BY GeaendertAm DESC", "EZOLL")
|
||||
|
||||
If dEZOLL Is Nothing Then Return Nothing
|
||||
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
||||
|
||||
'TextBox2.ForeColor = Color.Green
|
||||
Dim r As DataRow = dEZOLL.Rows(0)
|
||||
|
||||
LRN = r.Item("LRN")
|
||||
|
||||
If Not SQL.IsNull(r.Item("OperatorID")) Then
|
||||
Select Case r.Item("OperatorID")
|
||||
Case "1"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "2"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "SBG"
|
||||
|
||||
Case "3"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "NKD"
|
||||
Case "4", "5"
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "6"
|
||||
If LRN.StartsWith("4801") Then
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
Else
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
End If
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "8"
|
||||
VERAG_NCTS.Company = "DURMAZ"
|
||||
VERAG_NCTS.Department = "SBG"
|
||||
Return Nothing
|
||||
Case Else
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then
|
||||
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
|
||||
Else
|
||||
VERAG_NCTS.ProcessData.TransactionDate = Now.ToShortDateString
|
||||
End If
|
||||
|
||||
VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
|
||||
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
|
||||
|
||||
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
Case "F"
|
||||
VERAG_NCTS.ProcessData.Status = 50
|
||||
Case "FB"
|
||||
VERAG_NCTS.ProcessData.Status = 60
|
||||
Case Else
|
||||
VERAG_NCTS.ProcessData.Status = 0
|
||||
End Select
|
||||
|
||||
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmHea.Rows().Count > 0 Then
|
||||
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
|
||||
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
|
||||
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
||||
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
|
||||
'BestimmungsstelleDienststelle
|
||||
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmDestCo.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
|
||||
End If
|
||||
|
||||
' Kennzeichen
|
||||
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmTransp.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
|
||||
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
|
||||
End If
|
||||
End If
|
||||
|
||||
'Versender
|
||||
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmSender.Rows().Count > 0 Then
|
||||
'VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
|
||||
End If
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
'Empfänger
|
||||
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
||||
End If
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
'Frächter
|
||||
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmCarrier.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
' Tabelle zsAnmGrteeGrteeRef lesen.
|
||||
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
|
||||
" FROM zsAnmGrteeGrteeRef" &
|
||||
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
|
||||
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
||||
|
||||
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
|
||||
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
||||
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
||||
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
|
||||
Next
|
||||
End If
|
||||
|
||||
'POSITIONEN
|
||||
Dim cntPos = 1
|
||||
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
|
||||
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
||||
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
|
||||
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
||||
V_POS.PosNr = cntPos
|
||||
Dim pkGes = 0
|
||||
Dim pkArt = ""
|
||||
|
||||
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
|
||||
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
|
||||
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
|
||||
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
|
||||
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
|
||||
Next
|
||||
End If
|
||||
|
||||
V_POS.Quantity = pkGes
|
||||
V_POS.Packaging = pkArt
|
||||
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
|
||||
|
||||
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
|
||||
|
||||
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
||||
cntPos += 1
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
UniqueId = AnmID
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return VERAG_NCTS
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function getGRTY_fromEZOLL(LRN As String) As String
|
||||
Try
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Try
|
||||
If NCTS_TMP Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing
|
||||
|
||||
VERAG_NCTS.Version = "2.0.0" ' Automaitsch, weil default ' doch nicht?
|
||||
|
||||
If NCTS_TMP.telanm_firma <> "" Then
|
||||
VERAG_NCTS.Company = NCTS_TMP.telanm_firma
|
||||
Else
|
||||
VERAG_NCTS.Company = "IMEX"
|
||||
End If
|
||||
VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung
|
||||
|
||||
|
||||
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
||||
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
||||
Select Case NCTS_TMP.telanm_Status
|
||||
Case < 50
|
||||
VERAG_NCTS.ProcessData.Status = 0
|
||||
Case 50, 53
|
||||
VERAG_NCTS.ProcessData.Status = 50
|
||||
Case 60
|
||||
VERAG_NCTS.ProcessData.Status = 60
|
||||
End Select
|
||||
|
||||
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate
|
||||
|
||||
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "")
|
||||
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "")
|
||||
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "")
|
||||
|
||||
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = If(NCTS_TMP.CtrlRslt_DLimit, "")
|
||||
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp
|
||||
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "")
|
||||
|
||||
'Versender
|
||||
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
||||
|
||||
'Empfänger
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
|
||||
|
||||
''Frächter
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
||||
''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
||||
|
||||
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
|
||||
End If
|
||||
|
||||
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0")
|
||||
Dim cntPos = 1
|
||||
If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then
|
||||
For Each POS In NCTS_TMP.POSITIONSDATEN
|
||||
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
||||
V_POS.PosNr = cntPos
|
||||
Dim pkGes = 0
|
||||
Dim pkArt = ""
|
||||
If POS.PACKSTUECKE IsNot Nothing Then
|
||||
For Each PK In POS.PACKSTUECKE
|
||||
If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
|
||||
If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
|
||||
If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
|
||||
Next
|
||||
End If
|
||||
V_POS.Quantity = pkGes
|
||||
V_POS.Packaging = pkArt
|
||||
V_POS.GrossWeight = POS.Item_Gross
|
||||
V_POS.GoodsDescription = POS.Item_GdsDes
|
||||
|
||||
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
||||
cntPos += 1
|
||||
Next
|
||||
End If
|
||||
UniqueId = NCTS_TMP.telanm_id
|
||||
|
||||
'If XMLFilePath = "" Then
|
||||
' Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
||||
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
||||
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
|
||||
'End If
|
||||
|
||||
|
||||
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return VERAG_NCTS
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function insertFTPLOG(filePath As String, user As String, NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, vorsystem As String)
|
||||
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','" & vorsystem & "')", "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem)
|
||||
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -320,6 +320,18 @@ Public Class cWorker_NCTS
|
||||
WP.nctsWP_PACKSTUECKE.Add(PST)
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
If GOODSITEM.Document IsNot Nothing AndAlso GOODSITEM.Document.Count > 0 Then
|
||||
For Each ULdoc In GOODSITEM.Document
|
||||
Dim UL = New DAKOSY_Worker.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen()
|
||||
UL.nctsWpUl_Referenz = ULdoc.ReferenceNumber
|
||||
UL.nctsWpUl_Typ = ULdoc.Type
|
||||
UL.nctsWpUl_Zusatz = ULdoc.Complement
|
||||
WP.nctsWP_UNTERLAGEN.Add(UL)
|
||||
Next
|
||||
End If
|
||||
|
||||
NCTS.ncts_WARENPOS.Add(WP)
|
||||
Next
|
||||
End If
|
||||
@@ -1461,9 +1473,10 @@ Public Class cWorker_NCTS
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
statusTMP = STATUS
|
||||
copyFileFTP(NCTS_TMP, DY_TMP)
|
||||
|
||||
'If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
|
||||
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
|
||||
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
|
||||
|
||||
|
||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
@@ -1673,6 +1686,9 @@ Public Class cWorker_NCTS
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
|
||||
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
|
||||
@@ -1741,7 +1757,7 @@ Public Class cWorker_NCTS
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
statusTMP = STATUS
|
||||
copyFileFTP(NCTS_TMP, DY_TMP)
|
||||
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
|
||||
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
|
||||
|
||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
@@ -1816,7 +1832,7 @@ Public Class cWorker_NCTS
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
statusTMP = STATUS
|
||||
copyFileFTP(NCTS_TMP, DY_TMP)
|
||||
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
|
||||
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
|
||||
|
||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
@@ -1831,45 +1847,6 @@ Public Class cWorker_NCTS
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function copyFileFTP(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', filePath As String)
|
||||
Try
|
||||
If NCTS_TMP Is Nothing Then Return False
|
||||
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return False
|
||||
If NCTS_TMP.ncts_ObjectName.ToString.StartsWith("DU") Then Return False
|
||||
If NCTS_TMP.ncts_firma.ToString = "DURMAZ" Then Return False
|
||||
|
||||
Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
||||
If filePath = "" Then Return False
|
||||
|
||||
NCTS_TMP.LOAD_Sicherheitsangaben()
|
||||
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
||||
Dim GRN = NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
|
||||
Dim destFile = ""
|
||||
Select Case GRN
|
||||
' --> FTP Bereitstellung
|
||||
'\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB
|
||||
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349"
|
||||
frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
|
||||
If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
||||
frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
|
||||
If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
||||
frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
|
||||
If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
||||
End Select
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function insertFTPLOG(filePath, user)
|
||||
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user) VALUES ('" & filePath & "','" & user & "')", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object)
|
||||
|
||||
If WGDAT IsNot Nothing AndAlso IsDate(WGDAT) Then
|
||||
|
||||
397
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
397
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
@@ -24,6 +24,8 @@ Partial Class frmStartOptions
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
|
||||
Me.LinkLabel26 = New System.Windows.Forms.LinkLabel()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.LinkLabel25 = New System.Windows.Forms.LinkLabel()
|
||||
Me.LinkLabel23 = New System.Windows.Forms.LinkLabel()
|
||||
@@ -77,8 +79,19 @@ Partial Class frmStartOptions
|
||||
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
|
||||
Me.lblRoutineManager = New System.Windows.Forms.Label()
|
||||
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.tbcntr = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -92,21 +105,19 @@ Partial Class frmStartOptions
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picC0008, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.tbcntr.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Controls.Add(Me.tbcntr)
|
||||
Me.pnl.Controls.Add(Me.CheckBox2)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel25)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel23)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel24)
|
||||
Me.pnl.Controls.Add(Me.Label5)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel21)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel22)
|
||||
Me.pnl.Controls.Add(Me.Label4)
|
||||
Me.pnl.Controls.Add(Me.CheckBox1)
|
||||
Me.pnl.Controls.Add(Me.cbxBu)
|
||||
Me.pnl.Controls.Add(Me.cbxKd)
|
||||
@@ -121,32 +132,8 @@ Partial Class frmStartOptions
|
||||
Me.pnl.Controls.Add(Me.LinkLabel18)
|
||||
Me.pnl.Controls.Add(Me.PictureBox9)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel17)
|
||||
Me.pnl.Controls.Add(Me.PictureBox8)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel16)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel15)
|
||||
Me.pnl.Controls.Add(Me.cbxHistory)
|
||||
Me.pnl.Controls.Add(Me.PictureBox7)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel14)
|
||||
Me.pnl.Controls.Add(Me.PictureBox6)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel13)
|
||||
Me.pnl.Controls.Add(Me.PictureBox5)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel12)
|
||||
Me.pnl.Controls.Add(Me.PictureBox4)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel11)
|
||||
Me.pnl.Controls.Add(Me.PictureBox3)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel10)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel9)
|
||||
Me.pnl.Controls.Add(Me.PictureBox2)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel8)
|
||||
Me.pnl.Controls.Add(Me.PictureBox1)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel7)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel6)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel5)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.picC0008)
|
||||
Me.pnl.Controls.Add(Me.btn)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel4)
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel2)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel1)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel3)
|
||||
@@ -158,13 +145,35 @@ Partial Class frmStartOptions
|
||||
Me.pnl.Size = New System.Drawing.Size(790, 677)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'PictureBox13
|
||||
'
|
||||
Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox13.Location = New System.Drawing.Point(129, 120)
|
||||
Me.PictureBox13.Name = "PictureBox13"
|
||||
Me.PictureBox13.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox13.TabIndex = 54
|
||||
Me.PictureBox13.TabStop = False
|
||||
Me.PictureBox13.Visible = False
|
||||
'
|
||||
'LinkLabel26
|
||||
'
|
||||
Me.LinkLabel26.AutoSize = True
|
||||
Me.LinkLabel26.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel26.Location = New System.Drawing.Point(13, 125)
|
||||
Me.LinkLabel26.Name = "LinkLabel26"
|
||||
Me.LinkLabel26.Size = New System.Drawing.Size(95, 13)
|
||||
Me.LinkLabel26.TabIndex = 10
|
||||
Me.LinkLabel26.TabStop = True
|
||||
Me.LinkLabel26.Text = "I0700 - Maßeinheit"
|
||||
'
|
||||
'CheckBox2
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(302, 151)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(98, 17)
|
||||
Me.CheckBox2.TabIndex = 51
|
||||
Me.CheckBox2.TabIndex = 13
|
||||
Me.CheckBox2.Text = "History (7Tage)"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -175,7 +184,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel25.Location = New System.Drawing.Point(299, 135)
|
||||
Me.LinkLabel25.Name = "LinkLabel25"
|
||||
Me.LinkLabel25.Size = New System.Drawing.Size(99, 13)
|
||||
Me.LinkLabel25.TabIndex = 50
|
||||
Me.LinkLabel25.TabIndex = 12
|
||||
Me.LinkLabel25.TabStop = True
|
||||
Me.LinkLabel25.Text = "ZOLARIS Anhänge"
|
||||
'
|
||||
@@ -183,10 +192,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel23.AutoSize = True
|
||||
Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel23.Location = New System.Drawing.Point(299, 620)
|
||||
Me.LinkLabel23.Location = New System.Drawing.Point(295, 313)
|
||||
Me.LinkLabel23.Name = "LinkLabel23"
|
||||
Me.LinkLabel23.Size = New System.Drawing.Size(180, 13)
|
||||
Me.LinkLabel23.TabIndex = 49
|
||||
Me.LinkLabel23.TabIndex = 21
|
||||
Me.LinkLabel23.TabStop = True
|
||||
Me.LinkLabel23.Text = "Eingangsnachrichten abrufen PROD"
|
||||
'
|
||||
@@ -194,10 +203,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel24.AutoSize = True
|
||||
Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel24.Location = New System.Drawing.Point(299, 595)
|
||||
Me.LinkLabel24.Location = New System.Drawing.Point(295, 288)
|
||||
Me.LinkLabel24.Name = "LinkLabel24"
|
||||
Me.LinkLabel24.Size = New System.Drawing.Size(177, 13)
|
||||
Me.LinkLabel24.TabIndex = 48
|
||||
Me.LinkLabel24.TabIndex = 19
|
||||
Me.LinkLabel24.TabStop = True
|
||||
Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST"
|
||||
'
|
||||
@@ -205,20 +214,20 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(299, 568)
|
||||
Me.Label5.Location = New System.Drawing.Point(295, 261)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(184, 13)
|
||||
Me.Label5.TabIndex = 47
|
||||
Me.Label5.TabIndex = 17
|
||||
Me.Label5.Text = "MDM Nachrichtenverarbeitung:"
|
||||
'
|
||||
'LinkLabel21
|
||||
'
|
||||
Me.LinkLabel21.AutoSize = True
|
||||
Me.LinkLabel21.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel21.Location = New System.Drawing.Point(15, 620)
|
||||
Me.LinkLabel21.Location = New System.Drawing.Point(11, 313)
|
||||
Me.LinkLabel21.Name = "LinkLabel21"
|
||||
Me.LinkLabel21.Size = New System.Drawing.Size(180, 13)
|
||||
Me.LinkLabel21.TabIndex = 46
|
||||
Me.LinkLabel21.TabIndex = 20
|
||||
Me.LinkLabel21.TabStop = True
|
||||
Me.LinkLabel21.Text = "Eingangsnachrichten abrufen PROD"
|
||||
'
|
||||
@@ -226,10 +235,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel22.AutoSize = True
|
||||
Me.LinkLabel22.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel22.Location = New System.Drawing.Point(15, 595)
|
||||
Me.LinkLabel22.Location = New System.Drawing.Point(11, 288)
|
||||
Me.LinkLabel22.Name = "LinkLabel22"
|
||||
Me.LinkLabel22.Size = New System.Drawing.Size(177, 13)
|
||||
Me.LinkLabel22.TabIndex = 45
|
||||
Me.LinkLabel22.TabIndex = 18
|
||||
Me.LinkLabel22.TabStop = True
|
||||
Me.LinkLabel22.Text = "Eingangsnachrichten abrufen TEST"
|
||||
'
|
||||
@@ -237,10 +246,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(15, 568)
|
||||
Me.Label4.Location = New System.Drawing.Point(11, 261)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(211, 13)
|
||||
Me.Label4.TabIndex = 44
|
||||
Me.Label4.TabIndex = 16
|
||||
Me.Label4.Text = "TELOTEC Nachrichtenverarbeitung:"
|
||||
'
|
||||
'CheckBox1
|
||||
@@ -250,7 +259,7 @@ Partial Class frmStartOptions
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(173, 220)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
|
||||
Me.CheckBox1.TabIndex = 43
|
||||
Me.CheckBox1.TabIndex = 18
|
||||
Me.CheckBox1.Text = "öffnen"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -262,7 +271,7 @@ Partial Class frmStartOptions
|
||||
Me.cbxBu.Location = New System.Drawing.Point(87, 220)
|
||||
Me.cbxBu.Name = "cbxBu"
|
||||
Me.cbxBu.Size = New System.Drawing.Size(81, 17)
|
||||
Me.cbxBu.TabIndex = 42
|
||||
Me.cbxBu.TabIndex = 17
|
||||
Me.cbxBu.Text = "Buchungen"
|
||||
Me.cbxBu.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -274,7 +283,7 @@ Partial Class frmStartOptions
|
||||
Me.cbxKd.Location = New System.Drawing.Point(18, 220)
|
||||
Me.cbxKd.Name = "cbxKd"
|
||||
Me.cbxKd.Size = New System.Drawing.Size(63, 17)
|
||||
Me.cbxKd.TabIndex = 41
|
||||
Me.cbxKd.TabIndex = 16
|
||||
Me.cbxKd.Text = "Kunden"
|
||||
Me.cbxKd.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -286,7 +295,7 @@ Partial Class frmStartOptions
|
||||
Me.Button9.Location = New System.Drawing.Point(18, 193)
|
||||
Me.Button9.Name = "Button9"
|
||||
Me.Button9.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button9.TabIndex = 40
|
||||
Me.Button9.TabIndex = 15
|
||||
Me.Button9.Text = "Kunden --> DVO"
|
||||
Me.Button9.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -297,7 +306,7 @@ Partial Class frmStartOptions
|
||||
Me.Label3.Location = New System.Drawing.Point(15, 177)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(138, 13)
|
||||
Me.Label3.TabIndex = 39
|
||||
Me.Label3.TabIndex = 14
|
||||
Me.Label3.Text = "Routine Manager IMEX"
|
||||
'
|
||||
'PictureBox12
|
||||
@@ -318,7 +327,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel20.Location = New System.Drawing.Point(15, 135)
|
||||
Me.LinkLabel20.Name = "LinkLabel20"
|
||||
Me.LinkLabel20.Size = New System.Drawing.Size(66, 13)
|
||||
Me.LinkLabel20.TabIndex = 36
|
||||
Me.LinkLabel20.TabIndex = 10
|
||||
Me.LinkLabel20.TabStop = True
|
||||
Me.LinkLabel20.Text = "UID-Prüfung"
|
||||
'
|
||||
@@ -340,7 +349,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel19.Location = New System.Drawing.Point(479, 99)
|
||||
Me.LinkLabel19.Name = "LinkLabel19"
|
||||
Me.LinkLabel19.Size = New System.Drawing.Size(129, 13)
|
||||
Me.LinkLabel19.TabIndex = 34
|
||||
Me.LinkLabel19.TabIndex = 9
|
||||
Me.LinkLabel19.TabStop = True
|
||||
Me.LinkLabel19.Text = "Währungskurse EZB 90D"
|
||||
'
|
||||
@@ -362,7 +371,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel18.Location = New System.Drawing.Point(479, 78)
|
||||
Me.LinkLabel18.Name = "LinkLabel18"
|
||||
Me.LinkLabel18.Size = New System.Drawing.Size(106, 13)
|
||||
Me.LinkLabel18.TabIndex = 32
|
||||
Me.LinkLabel18.TabIndex = 7
|
||||
Me.LinkLabel18.TabStop = True
|
||||
Me.LinkLabel18.Text = "Währungskurse EZB"
|
||||
'
|
||||
@@ -384,7 +393,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel17.Location = New System.Drawing.Point(479, 51)
|
||||
Me.LinkLabel17.Name = "LinkLabel17"
|
||||
Me.LinkLabel17.Size = New System.Drawing.Size(107, 13)
|
||||
Me.LinkLabel17.TabIndex = 30
|
||||
Me.LinkLabel17.TabIndex = 4
|
||||
Me.LinkLabel17.TabStop = True
|
||||
Me.LinkLabel17.Text = "Bundesanzeiger EZT"
|
||||
'
|
||||
@@ -392,7 +401,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox8.Location = New System.Drawing.Point(634, 397)
|
||||
Me.PictureBox8.Location = New System.Drawing.Point(630, 90)
|
||||
Me.PictureBox8.Name = "PictureBox8"
|
||||
Me.PictureBox8.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox8.TabIndex = 29
|
||||
@@ -403,10 +412,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel16.AutoSize = True
|
||||
Me.LinkLabel16.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel16.Location = New System.Drawing.Point(479, 402)
|
||||
Me.LinkLabel16.Location = New System.Drawing.Point(475, 95)
|
||||
Me.LinkLabel16.Name = "LinkLabel16"
|
||||
Me.LinkLabel16.Size = New System.Drawing.Size(149, 13)
|
||||
Me.LinkLabel16.TabIndex = 28
|
||||
Me.LinkLabel16.TabIndex = 9
|
||||
Me.LinkLabel16.TabStop = True
|
||||
Me.LinkLabel16.Text = "I0200 - Unterlageaerten (EZA)"
|
||||
'
|
||||
@@ -414,10 +423,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel15.AutoSize = True
|
||||
Me.LinkLabel15.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel15.Location = New System.Drawing.Point(299, 517)
|
||||
Me.LinkLabel15.Location = New System.Drawing.Point(295, 210)
|
||||
Me.LinkLabel15.Name = "LinkLabel15"
|
||||
Me.LinkLabel15.Size = New System.Drawing.Size(183, 13)
|
||||
Me.LinkLabel15.TabIndex = 27
|
||||
Me.LinkLabel15.TabIndex = 15
|
||||
Me.LinkLabel15.TabStop = True
|
||||
Me.LinkLabel15.Text = "VERAG Kundendaten senden PROD"
|
||||
'
|
||||
@@ -427,7 +436,7 @@ Partial Class frmStartOptions
|
||||
Me.cbxHistory.Location = New System.Drawing.Point(18, 95)
|
||||
Me.cbxHistory.Name = "cbxHistory"
|
||||
Me.cbxHistory.Size = New System.Drawing.Size(58, 17)
|
||||
Me.cbxHistory.TabIndex = 26
|
||||
Me.cbxHistory.TabIndex = 8
|
||||
Me.cbxHistory.Text = "History"
|
||||
Me.cbxHistory.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -435,7 +444,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(404, 397)
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(400, 90)
|
||||
Me.PictureBox7.Name = "PictureBox7"
|
||||
Me.PictureBox7.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox7.TabIndex = 25
|
||||
@@ -446,10 +455,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel14.AutoSize = True
|
||||
Me.LinkLabel14.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel14.Location = New System.Drawing.Point(299, 402)
|
||||
Me.LinkLabel14.Location = New System.Drawing.Point(295, 95)
|
||||
Me.LinkLabel14.Name = "LinkLabel14"
|
||||
Me.LinkLabel14.Size = New System.Drawing.Size(99, 13)
|
||||
Me.LinkLabel14.TabIndex = 24
|
||||
Me.LinkLabel14.TabIndex = 8
|
||||
Me.LinkLabel14.TabStop = True
|
||||
Me.LinkLabel14.Text = "C0013 - Unterlagen"
|
||||
'
|
||||
@@ -457,7 +466,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox6.Location = New System.Drawing.Point(131, 397)
|
||||
Me.PictureBox6.Location = New System.Drawing.Point(127, 90)
|
||||
Me.PictureBox6.Name = "PictureBox6"
|
||||
Me.PictureBox6.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox6.TabIndex = 23
|
||||
@@ -468,10 +477,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel13.AutoSize = True
|
||||
Me.LinkLabel13.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel13.Location = New System.Drawing.Point(15, 402)
|
||||
Me.LinkLabel13.Location = New System.Drawing.Point(11, 95)
|
||||
Me.LinkLabel13.Name = "LinkLabel13"
|
||||
Me.LinkLabel13.Size = New System.Drawing.Size(110, 13)
|
||||
Me.LinkLabel13.TabIndex = 22
|
||||
Me.LinkLabel13.TabIndex = 7
|
||||
Me.LinkLabel13.TabStop = True
|
||||
Me.LinkLabel13.Text = "I0400 - Währungsliste"
|
||||
'
|
||||
@@ -479,7 +488,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(644, 339)
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(640, 32)
|
||||
Me.PictureBox5.Name = "PictureBox5"
|
||||
Me.PictureBox5.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox5.TabIndex = 21
|
||||
@@ -490,10 +499,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel12.AutoSize = True
|
||||
Me.LinkLabel12.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel12.Location = New System.Drawing.Point(479, 344)
|
||||
Me.LinkLabel12.Location = New System.Drawing.Point(475, 37)
|
||||
Me.LinkLabel12.Name = "LinkLabel12"
|
||||
Me.LinkLabel12.Size = New System.Drawing.Size(159, 13)
|
||||
Me.LinkLabel12.TabIndex = 20
|
||||
Me.LinkLabel12.TabIndex = 3
|
||||
Me.LinkLabel12.TabStop = True
|
||||
Me.LinkLabel12.Text = "A0127 - Beteiligten-Konstellation"
|
||||
'
|
||||
@@ -501,7 +510,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox4.Location = New System.Drawing.Point(687, 367)
|
||||
Me.PictureBox4.Location = New System.Drawing.Point(683, 60)
|
||||
Me.PictureBox4.Name = "PictureBox4"
|
||||
Me.PictureBox4.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox4.TabIndex = 19
|
||||
@@ -512,10 +521,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel11.AutoSize = True
|
||||
Me.LinkLabel11.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel11.Location = New System.Drawing.Point(479, 372)
|
||||
Me.LinkLabel11.Location = New System.Drawing.Point(475, 65)
|
||||
Me.LinkLabel11.Name = "LinkLabel11"
|
||||
Me.LinkLabel11.Size = New System.Drawing.Size(202, 13)
|
||||
Me.LinkLabel11.TabIndex = 18
|
||||
Me.LinkLabel11.TabIndex = 6
|
||||
Me.LinkLabel11.TabStop = True
|
||||
Me.LinkLabel11.Text = "A0122 - Art der Anmeldung (Überführung)"
|
||||
'
|
||||
@@ -523,7 +532,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(409, 367)
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(405, 60)
|
||||
Me.PictureBox3.Name = "PictureBox3"
|
||||
Me.PictureBox3.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox3.TabIndex = 17
|
||||
@@ -534,10 +543,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel10.AutoSize = True
|
||||
Me.LinkLabel10.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel10.Location = New System.Drawing.Point(299, 372)
|
||||
Me.LinkLabel10.Location = New System.Drawing.Point(295, 65)
|
||||
Me.LinkLabel10.Name = "LinkLabel10"
|
||||
Me.LinkLabel10.Size = New System.Drawing.Size(104, 13)
|
||||
Me.LinkLabel10.TabIndex = 16
|
||||
Me.LinkLabel10.TabIndex = 5
|
||||
Me.LinkLabel10.TabStop = True
|
||||
Me.LinkLabel10.Text = "C0010 - AES Länder"
|
||||
'
|
||||
@@ -545,10 +554,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel9.AutoSize = True
|
||||
Me.LinkLabel9.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel9.Location = New System.Drawing.Point(15, 517)
|
||||
Me.LinkLabel9.Location = New System.Drawing.Point(11, 210)
|
||||
Me.LinkLabel9.Name = "LinkLabel9"
|
||||
Me.LinkLabel9.Size = New System.Drawing.Size(180, 13)
|
||||
Me.LinkLabel9.TabIndex = 15
|
||||
Me.LinkLabel9.TabIndex = 14
|
||||
Me.LinkLabel9.TabStop = True
|
||||
Me.LinkLabel9.Text = "Eingangsnachrichten abrufen PROD"
|
||||
'
|
||||
@@ -556,7 +565,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(425, 339)
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(421, 32)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox2.TabIndex = 14
|
||||
@@ -567,10 +576,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel8.AutoSize = True
|
||||
Me.LinkLabel8.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel8.Location = New System.Drawing.Point(299, 344)
|
||||
Me.LinkLabel8.Location = New System.Drawing.Point(295, 37)
|
||||
Me.LinkLabel8.Name = "LinkLabel8"
|
||||
Me.LinkLabel8.Size = New System.Drawing.Size(120, 13)
|
||||
Me.LinkLabel8.TabIndex = 13
|
||||
Me.LinkLabel8.TabIndex = 2
|
||||
Me.LinkLabel8.TabStop = True
|
||||
Me.LinkLabel8.Text = "C0014 - Vorpapier Arten"
|
||||
'
|
||||
@@ -578,7 +587,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(209, 367)
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(205, 60)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox1.TabIndex = 12
|
||||
@@ -589,10 +598,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel7.AutoSize = True
|
||||
Me.LinkLabel7.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel7.Location = New System.Drawing.Point(15, 372)
|
||||
Me.LinkLabel7.Location = New System.Drawing.Point(11, 65)
|
||||
Me.LinkLabel7.Name = "LinkLabel7"
|
||||
Me.LinkLabel7.Size = New System.Drawing.Size(188, 13)
|
||||
Me.LinkLabel7.TabIndex = 11
|
||||
Me.LinkLabel7.TabIndex = 4
|
||||
Me.LinkLabel7.TabStop = True
|
||||
Me.LinkLabel7.Text = "C0017 - Packstücke (Verpackungsart)"
|
||||
'
|
||||
@@ -600,10 +609,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel6.AutoSize = True
|
||||
Me.LinkLabel6.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel6.Location = New System.Drawing.Point(299, 492)
|
||||
Me.LinkLabel6.Location = New System.Drawing.Point(295, 185)
|
||||
Me.LinkLabel6.Name = "LinkLabel6"
|
||||
Me.LinkLabel6.Size = New System.Drawing.Size(180, 13)
|
||||
Me.LinkLabel6.TabIndex = 10
|
||||
Me.LinkLabel6.TabIndex = 13
|
||||
Me.LinkLabel6.TabStop = True
|
||||
Me.LinkLabel6.Text = "VERAG Kundendaten senden TEST"
|
||||
'
|
||||
@@ -611,10 +620,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel5.AutoSize = True
|
||||
Me.LinkLabel5.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel5.Location = New System.Drawing.Point(15, 492)
|
||||
Me.LinkLabel5.Location = New System.Drawing.Point(11, 185)
|
||||
Me.LinkLabel5.Name = "LinkLabel5"
|
||||
Me.LinkLabel5.Size = New System.Drawing.Size(177, 13)
|
||||
Me.LinkLabel5.TabIndex = 9
|
||||
Me.LinkLabel5.TabIndex = 12
|
||||
Me.LinkLabel5.TabStop = True
|
||||
Me.LinkLabel5.Text = "Eingangsnachrichten abrufen TEST"
|
||||
'
|
||||
@@ -622,17 +631,17 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(15, 465)
|
||||
Me.Label2.Location = New System.Drawing.Point(11, 158)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(205, 13)
|
||||
Me.Label2.TabIndex = 8
|
||||
Me.Label2.TabIndex = 11
|
||||
Me.Label2.Text = "DAKOSY Nachrichtenverarbeitung:"
|
||||
'
|
||||
'picC0008
|
||||
'
|
||||
Me.picC0008.BackgroundImage = CType(resources.GetObject("picC0008.BackgroundImage"), System.Drawing.Image)
|
||||
Me.picC0008.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picC0008.Location = New System.Drawing.Point(133, 339)
|
||||
Me.picC0008.Location = New System.Drawing.Point(129, 32)
|
||||
Me.picC0008.Name = "picC0008"
|
||||
Me.picC0008.Size = New System.Drawing.Size(18, 18)
|
||||
Me.picC0008.TabIndex = 7
|
||||
@@ -650,7 +659,7 @@ Partial Class frmStartOptions
|
||||
Me.btn.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(75, 22)
|
||||
Me.btn.TabIndex = 6
|
||||
Me.btn.TabIndex = 0
|
||||
Me.btn.Text = "X"
|
||||
Me.btn.UseVisualStyleBackColor = False
|
||||
'
|
||||
@@ -658,10 +667,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.LinkLabel4.AutoSize = True
|
||||
Me.LinkLabel4.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel4.Location = New System.Drawing.Point(15, 344)
|
||||
Me.LinkLabel4.Location = New System.Drawing.Point(11, 37)
|
||||
Me.LinkLabel4.Name = "LinkLabel4"
|
||||
Me.LinkLabel4.Size = New System.Drawing.Size(112, 13)
|
||||
Me.LinkLabel4.TabIndex = 5
|
||||
Me.LinkLabel4.TabIndex = 1
|
||||
Me.LinkLabel4.TabStop = True
|
||||
Me.LinkLabel4.Text = "C0008 - NCTS Länder"
|
||||
'
|
||||
@@ -669,10 +678,10 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(15, 311)
|
||||
Me.Label1.Location = New System.Drawing.Point(8, 11)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(177, 13)
|
||||
Me.Label1.TabIndex = 4
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "ZOLL.DE Codelisten einlesen:"
|
||||
'
|
||||
'LinkLabel2
|
||||
@@ -682,7 +691,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel2.Location = New System.Drawing.Point(299, 78)
|
||||
Me.LinkLabel2.Name = "LinkLabel2"
|
||||
Me.LinkLabel2.Size = New System.Drawing.Size(133, 13)
|
||||
Me.LinkLabel2.TabIndex = 3
|
||||
Me.LinkLabel2.TabIndex = 6
|
||||
Me.LinkLabel2.TabStop = True
|
||||
Me.LinkLabel2.Text = "Bürgschaftsdaten ZODIAK"
|
||||
'
|
||||
@@ -693,7 +702,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel1.Location = New System.Drawing.Point(15, 78)
|
||||
Me.LinkLabel1.Name = "LinkLabel1"
|
||||
Me.LinkLabel1.Size = New System.Drawing.Size(182, 13)
|
||||
Me.LinkLabel1.TabIndex = 2
|
||||
Me.LinkLabel1.TabIndex = 5
|
||||
Me.LinkLabel1.TabStop = True
|
||||
Me.LinkLabel1.Text = "Bürgschaftsdaten ZABIS + ZOLARIS"
|
||||
'
|
||||
@@ -704,7 +713,7 @@ Partial Class frmStartOptions
|
||||
Me.LinkLabel3.Location = New System.Drawing.Point(299, 51)
|
||||
Me.LinkLabel3.Name = "LinkLabel3"
|
||||
Me.LinkLabel3.Size = New System.Drawing.Size(128, 13)
|
||||
Me.LinkLabel3.TabIndex = 1
|
||||
Me.LinkLabel3.TabIndex = 3
|
||||
Me.LinkLabel3.TabStop = True
|
||||
Me.LinkLabel3.Text = "Aufschubkonten ZODIAK"
|
||||
'
|
||||
@@ -715,7 +724,7 @@ Partial Class frmStartOptions
|
||||
Me.lklAufschubkontenATLASEZOLL.Location = New System.Drawing.Point(15, 51)
|
||||
Me.lklAufschubkontenATLASEZOLL.Name = "lklAufschubkontenATLASEZOLL"
|
||||
Me.lklAufschubkontenATLASEZOLL.Size = New System.Drawing.Size(177, 13)
|
||||
Me.lklAufschubkontenATLASEZOLL.TabIndex = 1
|
||||
Me.lklAufschubkontenATLASEZOLL.TabIndex = 2
|
||||
Me.lklAufschubkontenATLASEZOLL.TabStop = True
|
||||
Me.lklAufschubkontenATLASEZOLL.Text = "Aufschubkonten ZABIS + ZOLARIS"
|
||||
'
|
||||
@@ -726,7 +735,7 @@ Partial Class frmStartOptions
|
||||
Me.lblRoutineManager.Location = New System.Drawing.Point(12, 12)
|
||||
Me.lblRoutineManager.Name = "lblRoutineManager"
|
||||
Me.lblRoutineManager.Size = New System.Drawing.Size(104, 13)
|
||||
Me.lblRoutineManager.TabIndex = 0
|
||||
Me.lblRoutineManager.TabIndex = 1
|
||||
Me.lblRoutineManager.Text = "Routine Manager"
|
||||
'
|
||||
'MyTextBox1
|
||||
@@ -748,17 +757,178 @@ Partial Class frmStartOptions
|
||||
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox1.Name = "MyTextBox1"
|
||||
Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
|
||||
Me.MyTextBox1.TabIndex = 38
|
||||
Me.MyTextBox1.TabIndex = 11
|
||||
Me.MyTextBox1.Text = "10000"
|
||||
'
|
||||
'tbcntr
|
||||
'
|
||||
Me.tbcntr.Controls.Add(Me.TabPage1)
|
||||
Me.tbcntr.Controls.Add(Me.TabPage2)
|
||||
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.tbcntr.Location = New System.Drawing.Point(0, 254)
|
||||
Me.tbcntr.Name = "tbcntr"
|
||||
Me.tbcntr.SelectedIndex = 0
|
||||
Me.tbcntr.Size = New System.Drawing.Size(788, 421)
|
||||
Me.tbcntr.TabIndex = 19
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel4)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox13)
|
||||
Me.TabPage1.Controls.Add(Me.picC0008)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel26)
|
||||
Me.TabPage1.Controls.Add(Me.Label2)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel5)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel6)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel23)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel7)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel24)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox1)
|
||||
Me.TabPage1.Controls.Add(Me.Label5)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel8)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel21)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox2)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel22)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel9)
|
||||
Me.TabPage1.Controls.Add(Me.Label4)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel10)
|
||||
Me.TabPage1.Controls.Add(Me.Label1)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox3)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel11)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox4)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel12)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox5)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel13)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox6)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel14)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox7)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel15)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel16)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox8)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(780, 395)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Zollverfahren"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.PictureBox14)
|
||||
Me.TabPage2.Controls.Add(Me.MyComboBox1)
|
||||
Me.TabPage2.Controls.Add(Me.Label8)
|
||||
Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr)
|
||||
Me.TabPage2.Controls.Add(Me.Button1)
|
||||
Me.TabPage2.Controls.Add(Me.Label7)
|
||||
Me.TabPage2.Controls.Add(Me.LinkLabel27)
|
||||
Me.TabPage2.Controls.Add(Me.Label6)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(780, 395)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "VERAG Interface"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'LinkLabel27
|
||||
'
|
||||
Me.LinkLabel27.AutoSize = True
|
||||
Me.LinkLabel27.Enabled = False
|
||||
Me.LinkLabel27.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel27.Location = New System.Drawing.Point(14, 46)
|
||||
Me.LinkLabel27.Name = "LinkLabel27"
|
||||
Me.LinkLabel27.Size = New System.Drawing.Size(85, 13)
|
||||
Me.LinkLabel27.TabIndex = 2
|
||||
Me.LinkLabel27.TabStop = True
|
||||
Me.LinkLabel27.Text = "Eingang abrufen"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(11, 20)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(66, 13)
|
||||
Me.Label6.TabIndex = 0
|
||||
Me.Label6.Text = "VERAG IN"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(295, 20)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(79, 13)
|
||||
Me.Label7.TabIndex = 1
|
||||
Me.Label7.Text = "VERAG OUT"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(489, 221)
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(484, 45)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(198, 34)
|
||||
Me.Button1.TabIndex = 52
|
||||
Me.Button1.Size = New System.Drawing.Size(72, 38)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "Daten --> FTP"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtVRGOut_BezugsNr
|
||||
'
|
||||
Me.txtVRGOut_BezugsNr._DateTimeOnly = False
|
||||
Me.txtVRGOut_BezugsNr._numbersOnly = False
|
||||
Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
|
||||
Me.txtVRGOut_BezugsNr._Prozent = False
|
||||
Me.txtVRGOut_BezugsNr._ShortDateNew = False
|
||||
Me.txtVRGOut_BezugsNr._ShortDateOnly = False
|
||||
Me.txtVRGOut_BezugsNr._TimeOnly = False
|
||||
Me.txtVRGOut_BezugsNr._value = ""
|
||||
Me.txtVRGOut_BezugsNr._Waehrung = False
|
||||
Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
|
||||
Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
|
||||
Me.txtVRGOut_BezugsNr.MaxLineLength = -1
|
||||
Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
|
||||
Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVRGOut_BezugsNr.Multiline = True
|
||||
Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
|
||||
Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21)
|
||||
Me.txtVRGOut_BezugsNr.TabIndex = 5
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(295, 46)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(176, 13)
|
||||
Me.Label8.TabIndex = 3
|
||||
Me.Label8.Text = "Bereitstellen - Zollysytem/BezugsNr:"
|
||||
'
|
||||
'MyComboBox1
|
||||
'
|
||||
Me.MyComboBox1._allowedValuesFreiText = Nothing
|
||||
Me.MyComboBox1._allowFreiText = False
|
||||
Me.MyComboBox1._value = ""
|
||||
Me.MyComboBox1.FormattingEnabled = True
|
||||
Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
|
||||
Me.MyComboBox1.Name = "MyComboBox1"
|
||||
Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
|
||||
Me.MyComboBox1.TabIndex = 4
|
||||
'
|
||||
'PictureBox14
|
||||
'
|
||||
Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox14.Location = New System.Drawing.Point(562, 65)
|
||||
Me.PictureBox14.Name = "PictureBox14"
|
||||
Me.PictureBox14.Size = New System.Drawing.Size(18, 18)
|
||||
Me.PictureBox14.TabIndex = 56
|
||||
Me.PictureBox14.TabStop = False
|
||||
Me.PictureBox14.Visible = False
|
||||
'
|
||||
'frmStartOptions
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -774,6 +944,7 @@ Partial Class frmStartOptions
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -787,6 +958,12 @@ Partial Class frmStartOptions
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picC0008, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.tbcntr.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage2.PerformLayout()
|
||||
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -844,5 +1021,17 @@ Partial Class frmStartOptions
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents LinkLabel25 As LinkLabel
|
||||
Friend WithEvents CheckBox2 As CheckBox
|
||||
Friend WithEvents PictureBox13 As PictureBox
|
||||
Friend WithEvents LinkLabel26 As LinkLabel
|
||||
Friend WithEvents tbcntr As TabControl
|
||||
Friend WithEvents TabPage1 As TabPage
|
||||
Friend WithEvents TabPage2 As TabPage
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents LinkLabel27 As LinkLabel
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents txtVRGOut_BezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents PictureBox14 As PictureBox
|
||||
End Class
|
||||
|
||||
@@ -118,6 +118,30 @@
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="PictureBox14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
@@ -212,6 +236,30 @@
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
|
||||
@@ -39,6 +39,12 @@ Public Class frmStartOptions
|
||||
timer.Interval = 2500
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
MyComboBox1.Items.Clear()
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "DY"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
|
||||
|
||||
Dim PARAM = ""
|
||||
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
|
||||
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
|
||||
@@ -215,6 +221,8 @@ Public Class frmStartOptions
|
||||
Select Case row("MsgTyp")
|
||||
Case "EZ922" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA")
|
||||
Case "TR109" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS")
|
||||
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
|
||||
cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
|
||||
Case "EZ923" 'Ergänzung STB - Mitteilung
|
||||
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
|
||||
End Select
|
||||
@@ -344,7 +352,15 @@ Public Class frmStartOptions
|
||||
PictureBox4.Visible = False
|
||||
PictureBox5.Visible = False
|
||||
PictureBox6.Visible = False
|
||||
PictureBox7.Visible = False
|
||||
PictureBox8.Visible = False
|
||||
PictureBox9.Visible = False
|
||||
PictureBox10.Visible = False
|
||||
PictureBox11.Visible = False
|
||||
PictureBox12.Visible = False
|
||||
PictureBox13.Visible = False
|
||||
PictureBox14.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel5_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked
|
||||
@@ -902,7 +918,7 @@ Public Class frmStartOptions
|
||||
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now))
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
||||
Dim fid As New FileInfo(d)
|
||||
If fid.Name >= 20190820 Then
|
||||
@@ -956,4 +972,30 @@ Public Class frmStartOptions
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel26_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel26.LinkClicked
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", True) 'TESTSYSTEM
|
||||
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", False) 'ECHTSYSTEM
|
||||
showPic(erg, PictureBox13)
|
||||
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub TabPage2_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim ok As Boolean = False
|
||||
Select Case MyComboBox1._value
|
||||
Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text)
|
||||
Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text)
|
||||
Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text)
|
||||
End Select
|
||||
|
||||
showPic(ok, PictureBox14)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -519,9 +519,8 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
TC.Hea_DecTy = vifDEC.Hea_DecTy
|
||||
'Art der Anmeldung
|
||||
Select Case TC.Hea_DecTy
|
||||
Case "T1" : TC.telanm_ART = "T1"
|
||||
Case "T2" : TC.telanm_ART = "T2"
|
||||
Case Else : TC.telanm_ART = TC.Hea_DecTy
|
||||
Case "T1", "T2", "T2L" : TC.telanm_ART = TC.Hea_DecTy
|
||||
Case Else : TC.telanm_ART = TC.Hea_DecTy '^^
|
||||
End Select
|
||||
|
||||
TC.MsgType = vifDEC.MsgType
|
||||
@@ -541,7 +540,7 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
|
||||
'Derzeit nur IMEX
|
||||
TC.telanm_firma = "IMEX"
|
||||
TC.telanm_niederlassung = "SUB"
|
||||
TC.telanm_niederlassung = "Sub"
|
||||
|
||||
TC.telanm_Erstellung = Now
|
||||
TC.telanm_LetzteBearbeitung = Now
|
||||
@@ -764,7 +763,7 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
|
||||
|
||||
''''Aktuellste Nachricht
|
||||
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
|
||||
If SQL.getValueTxtBySql("Select COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
|
||||
TC.telnam_aktuellsteNachricht = 0
|
||||
Else
|
||||
TC.telnam_aktuellsteNachricht = 1
|
||||
@@ -772,18 +771,24 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
End If
|
||||
|
||||
If TC.SAVE() Then
|
||||
' TELOTEC_Worker.cTELOTEC_Statusmeldungen.InsertStatusMeldung(DY_TMP, TELOTEC_Worker.cDY_Statusliste.S_05)
|
||||
If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
|
||||
' TC.insertIntoSpedBuch()
|
||||
Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
|
||||
ZOLLIMPORT.TelotecImport(TC)
|
||||
End If
|
||||
' TELOTEC_Worker.cTELOTEC_Statusmeldungen.InsertStatusMeldung(DY_TMP, TELOTEC_Worker.cDY_Statusliste.S_05)
|
||||
If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
|
||||
' TC.insertIntoSpedBuch()
|
||||
Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
|
||||
ZOLLIMPORT.TelotecImport(TC)
|
||||
End If
|
||||
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
|
||||
If TC.telanm_ART = "T1" Or TC.telanm_ART.ToString.Contains("T2") Or TC.telanm_ART.ToString.StartsWith("T-") Then
|
||||
Select Case TC.telanm_Status
|
||||
Case TELOTEC_Worker.cTC_Statusliste.S_50, TELOTEC_Worker.cTC_Statusliste.S_60
|
||||
cVERAG_Interface.copyFileFTP_VERAGncts_TC(TC)
|
||||
End Select
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
Try
|
||||
' System.IO.File.Delete(p)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
Reference in New Issue
Block a user