edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

StartOptions (Einlesen Währungen) NCTS wegen Import von Dakosy

Browse Source
This commit is contained in:
d.breimaier
2024-10-10 16:16:49 +02:00
parent 05815eff9e
commit cc67e23bb4
5 changed files with 209 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -161,7 +161,7 @@ Public Class cWorker_NCTS
If DETUDC.ProcedureOwner.ContactPerson IsNot Nothing Then If DETUDC.ProcedureOwner.ContactPerson IsNot Nothing Then
Dim AnsprechpTMP = DETUDC.ProcedureOwner.ContactPerson.Name Dim AnsprechpTMP = DETUDC.ProcedureOwner.ContactPerson.Name
If AnsprechpTMP <> "" Then If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp NCTS.ncts_Bearbeiter = SB_Tmp
Else Else
@@ -379,7 +379,7 @@ Public Class cWorker_NCTS
If DETUDC.ProcedureOwner.ContactPerson IsNot Nothing Then If DETUDC.ProcedureOwner.ContactPerson IsNot Nothing Then
Dim AnsprechpTMP = DETUDC.ProcedureOwner.ContactPerson.Name Dim AnsprechpTMP = DETUDC.ProcedureOwner.ContactPerson.Name
If AnsprechpTMP <> "" Then If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp NCTS.ncts_Bearbeiter = SB_Tmp
Else Else
@@ -707,7 +707,7 @@ Public Class cWorker_NCTS
If DETPDD.HolderOfTheTransitProcedure.ContactPerson IsNot Nothing Then If DETPDD.HolderOfTheTransitProcedure.ContactPerson IsNot Nothing Then
Dim AnsprechpTMP = DETPDD.HolderOfTheTransitProcedure.ContactPerson.name Dim AnsprechpTMP = DETPDD.HolderOfTheTransitProcedure.ContactPerson.name
If AnsprechpTMP <> "" Then If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp NCTS.ncts_Bearbeiter = SB_Tmp
ElseIf isAtez(NCTS.ncts_ObjectName) Then ElseIf isAtez(NCTS.ncts_ObjectName) Then
@@ -1379,7 +1379,7 @@ Public Class cWorker_NCTS
' Ansprechpartner ' Ansprechpartner
Dim AnsprechpTMP = cEDI.getSimpleLine("CTA+CC+:", lines) Dim AnsprechpTMP = cEDI.getSimpleLine("CTA+CC+:", lines)
If AnsprechpTMP <> "" Then If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp NCTS.ncts_Bearbeiter = SB_Tmp
ElseIf isAtez(NCTS.ncts_ObjectName) Then ElseIf isAtez(NCTS.ncts_ObjectName) Then
@@ -1775,7 +1775,7 @@ Public Class cWorker_NCTS
Dim AnsprechpTMP = DETBAE.AuthorisedConsignee.ContactPerson.Name Dim AnsprechpTMP = DETBAE.AuthorisedConsignee.ContactPerson.Name
If AnsprechpTMP <> "" Then If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp NCTS.ncts_Bearbeiter = SB_Tmp
ElseIf isAtez(NCTS.ncts_ObjectName) Then ElseIf isAtez(NCTS.ncts_ObjectName) Then

4
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -6293,14 +6293,14 @@ Public Class frmDYNachrichtenVerarbeitung
Dim AnsprechpTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PK++", lines)) Dim AnsprechpTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PK++", lines))
If AnsprechpTMP.Length > 0 Then If AnsprechpTMP.Length > 0 Then
EZA.eza_AnmeldenderBearbeiterName = AnsprechpTMP(0) '? EZA.eza_AnmeldenderBearbeiterName = AnsprechpTMP(0) '?
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP(0) & "'", "ADMIN") Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP(0) & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP(0) & "'", "ADMIN")
If SB_Tmp <> "" Then If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp EZA.eza_Bearbeiter = SB_Tmp
ElseIf isAtez(EZA.eza_ObjectName) Then ElseIf isAtez(EZA.eza_ObjectName) Then
EZA.eza_Bearbeiter = "VERIMEX" EZA.eza_Bearbeiter = "VERIMEX"
Else Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP(0) & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP(0) & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End If End If
End If End If
If AnsprechpTMP.Length > 1 Then EZA.eza_AnmeldenderBearbeiterStellung = AnsprechpTMP(1) '? If AnsprechpTMP.Length > 1 Then EZA.eza_AnmeldenderBearbeiterStellung = AnsprechpTMP(1) '?

132
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -22,10 +22,11 @@ Partial Class frmStartOptions
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.PictureBox24 = New System.Windows.Forms.PictureBox()
Me.buchungenAMBAR = New System.Windows.Forms.Button() Me.buchungenAMBAR = New System.Windows.Forms.Button()
Me.LinkLabel63 = New System.Windows.Forms.LinkLabel()
Me.PictureBox23 = New System.Windows.Forms.PictureBox() Me.PictureBox23 = New System.Windows.Forms.PictureBox()
Me.Label27 = New System.Windows.Forms.Label() Me.Label27 = New System.Windows.Forms.Label()
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -74,6 +75,8 @@ Partial Class frmStartOptions
Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label41 = New System.Windows.Forms.Label()
Me.LinkLabel99 = New System.Windows.Forms.LinkLabel() Me.LinkLabel99 = New System.Windows.Forms.LinkLabel()
Me.PictureBox99 = New System.Windows.Forms.PictureBox() Me.PictureBox99 = New System.Windows.Forms.PictureBox()
Me.Button99 = New System.Windows.Forms.Button() Me.Button99 = New System.Windows.Forms.Button()
@@ -142,7 +145,7 @@ Partial Class frmStartOptions
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -248,9 +251,10 @@ Partial Class frmStartOptions
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.Label41 = New System.Windows.Forms.Label() Me.PictureBox25 = New System.Windows.Forms.PictureBox()
Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button23 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -283,13 +287,18 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnl 'pnl
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.PictureBox25)
Me.pnl.Controls.Add(Me.Button23)
Me.pnl.Controls.Add(Me.PictureBox24)
Me.pnl.Controls.Add(Me.buchungenAMBAR) Me.pnl.Controls.Add(Me.buchungenAMBAR)
Me.pnl.Controls.Add(Me.LinkLabel63)
Me.pnl.Controls.Add(Me.PictureBox23) Me.pnl.Controls.Add(Me.PictureBox23)
Me.pnl.Controls.Add(Me.Label27) Me.pnl.Controls.Add(Me.Label27)
Me.pnl.Controls.Add(Me.MyTextBox3) Me.pnl.Controls.Add(Me.MyTextBox3)
@@ -367,6 +376,17 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(1229, 1007) Me.pnl.Size = New System.Drawing.Size(1229, 1007)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'PictureBox24
'
Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image)
Me.PictureBox24.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox24.Location = New System.Drawing.Point(782, 46)
Me.PictureBox24.Name = "PictureBox24"
Me.PictureBox24.Size = New System.Drawing.Size(18, 18)
Me.PictureBox24.TabIndex = 92
Me.PictureBox24.TabStop = False
Me.PictureBox24.Visible = False
'
'buchungenAMBAR 'buchungenAMBAR
' '
Me.buchungenAMBAR.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.buchungenAMBAR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -379,6 +399,17 @@ Partial Class frmStartOptions
Me.buchungenAMBAR.Text = "AMB GU --> Syska" Me.buchungenAMBAR.Text = "AMB GU --> Syska"
Me.buchungenAMBAR.UseVisualStyleBackColor = True Me.buchungenAMBAR.UseVisualStyleBackColor = True
' '
'LinkLabel63
'
Me.LinkLabel63.AutoSize = True
Me.LinkLabel63.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel63.Location = New System.Drawing.Point(668, 51)
Me.LinkLabel63.Name = "LinkLabel63"
Me.LinkLabel63.Size = New System.Drawing.Size(100, 13)
Me.LinkLabel63.TabIndex = 91
Me.LinkLabel63.TabStop = True
Me.LinkLabel63.Text = "Wahrungsliste NEU"
'
'PictureBox23 'PictureBox23
' '
Me.PictureBox23.BackgroundImage = CType(resources.GetObject("PictureBox23.BackgroundImage"), System.Drawing.Image) Me.PictureBox23.BackgroundImage = CType(resources.GetObject("PictureBox23.BackgroundImage"), System.Drawing.Image)
@@ -1016,6 +1047,40 @@ Partial Class frmStartOptions
Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.Text = "Zollverfahren"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'MyTextBox4
'
Me.MyTextBox4._DateTimeOnly = False
Me.MyTextBox4._numbersOnly = False
Me.MyTextBox4._numbersOnlyKommastellen = ""
Me.MyTextBox4._numbersOnlyTrennzeichen = True
Me.MyTextBox4._Prozent = False
Me.MyTextBox4._ShortDateNew = True
Me.MyTextBox4._ShortDateOnly = False
Me.MyTextBox4._TimeOnly = False
Me.MyTextBox4._TimeOnly_Seconds = False
Me.MyTextBox4._value = ""
Me.MyTextBox4._Waehrung = False
Me.MyTextBox4._WaehrungZeichen = True
Me.MyTextBox4.ForeColor = System.Drawing.Color.Black
Me.MyTextBox4.Location = New System.Drawing.Point(775, 277)
Me.MyTextBox4.MaxLength = 10
Me.MyTextBox4.MaxLineLength = -1
Me.MyTextBox4.MaxLines_Warning = ""
Me.MyTextBox4.MaxLines_Warning_Label = Nothing
Me.MyTextBox4.Name = "MyTextBox4"
Me.MyTextBox4.Size = New System.Drawing.Size(80, 20)
Me.MyTextBox4.TabIndex = 90
'
'Label41
'
Me.Label41.AutoSize = True
Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Label41.Location = New System.Drawing.Point(775, 260)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(56, 13)
Me.Label41.TabIndex = 84
Me.Label41.Text = "ab Datum:"
'
'LinkLabel99 'LinkLabel99
' '
Me.LinkLabel99.AutoSize = True Me.LinkLabel99.AutoSize = True
@@ -1560,7 +1625,7 @@ Partial Class frmStartOptions
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1158, 476) Me.TabPage2.Size = New System.Drawing.Size(1219, 476)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "VERAG Interface" Me.TabPage2.Text = "VERAG Interface"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -1976,7 +2041,7 @@ Partial Class frmStartOptions
Me.TabPage3.Controls.Add(Me.Label11) Me.TabPage3.Controls.Add(Me.Label11)
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(1158, 476) Me.TabPage3.Size = New System.Drawing.Size(1219, 476)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -3159,39 +3224,28 @@ Partial Class frmStartOptions
Me.Button21.Text = "AAS Sendung 24h" Me.Button21.Text = "AAS Sendung 24h"
Me.Button21.UseVisualStyleBackColor = True Me.Button21.UseVisualStyleBackColor = True
' '
'Label41 'PictureBox25
' '
Me.Label41.AutoSize = True Me.PictureBox25.BackgroundImage = CType(resources.GetObject("PictureBox25.BackgroundImage"), System.Drawing.Image)
Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) Me.PictureBox25.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Label41.Location = New System.Drawing.Point(775, 260) Me.PictureBox25.Location = New System.Drawing.Point(762, 459)
Me.Label41.Name = "Label41" Me.PictureBox25.Name = "PictureBox25"
Me.Label41.Size = New System.Drawing.Size(56, 13) Me.PictureBox25.Size = New System.Drawing.Size(18, 18)
Me.Label41.TabIndex = 84 Me.PictureBox25.TabIndex = 94
Me.Label41.Text = "ab Datum:" Me.PictureBox25.TabStop = False
Me.PictureBox25.Visible = False
' '
'MyTextBox4 'Button23
' '
Me.MyTextBox4._DateTimeOnly = False Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyTextBox4._numbersOnly = False Me.Button23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyTextBox4._numbersOnlyKommastellen = "" Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.MyTextBox4._numbersOnlyTrennzeichen = True Me.Button23.Location = New System.Drawing.Point(564, 459)
Me.MyTextBox4._Prozent = False Me.Button23.Name = "Button23"
Me.MyTextBox4._ShortDateNew = True Me.Button23.Size = New System.Drawing.Size(187, 24)
Me.MyTextBox4._ShortDateOnly = False Me.Button23.TabIndex = 93
Me.MyTextBox4._TimeOnly = False Me.Button23.Text = "Kundendaten aktualisieren (USTV-Anträge)"
Me.MyTextBox4._TimeOnly_Seconds = False Me.Button23.UseVisualStyleBackColor = True
Me.MyTextBox4._value = ""
Me.MyTextBox4._Waehrung = False
Me.MyTextBox4._WaehrungZeichen = True
Me.MyTextBox4.ForeColor = System.Drawing.Color.Black
Me.MyTextBox4.Location = New System.Drawing.Point(775, 277)
Me.MyTextBox4.MaxLength = 10
Me.MyTextBox4.MaxLineLength = -1
Me.MyTextBox4.MaxLines_Warning = ""
Me.MyTextBox4.MaxLines_Warning_Label = Nothing
Me.MyTextBox4.Name = "MyTextBox4"
Me.MyTextBox4.Size = New System.Drawing.Size(80, 20)
Me.MyTextBox4.TabIndex = 90
' '
'frmStartOptions 'frmStartOptions
' '
@@ -3208,6 +3262,7 @@ Partial Class frmStartOptions
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3244,6 +3299,7 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -3473,4 +3529,8 @@ Partial Class frmStartOptions
Friend WithEvents cbxUploadDA As CheckBox Friend WithEvents cbxUploadDA As CheckBox
Friend WithEvents MyTextBox4 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents MyTextBox4 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label41 As Label Friend WithEvents Label41 As Label
Friend WithEvents PictureBox24 As PictureBox
Friend WithEvents LinkLabel63 As LinkLabel
Friend WithEvents PictureBox25 As PictureBox
Friend WithEvents Button23 As Button
End Class End Class

48
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -118,6 +118,54 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox25.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="PictureBox24.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="PictureBox23.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBox23.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj

91
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1,15 +1,8 @@
Imports System.Data.OleDb Imports System.Data.OleDb
Imports System.DirectoryServices.ActiveDirectory
Imports System.IO Imports System.IO
Imports System.Net Imports System.Net
Imports System.Text Imports System.Text
Imports System.Xml Imports System.Xml
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports DocumentFormat.OpenXml.Presentation
Imports DocumentFormat.OpenXml.Wordprocessing
Imports iTextSharp.text.pdf.qrcode.Version
Imports Org.BouncyCastle.Asn1.Pkcs
Imports Renci.SshNet Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -4000,6 +3993,11 @@ Public Class frmStartOptions
showPic(importEZOLLWechselkurse(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM), PictureBox20) showPic(importEZOLLWechselkurse(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM), PictureBox20)
End Sub End Sub
Private Sub LinkLabel63_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel63.LinkClicked
showPic(importEZOLLWechselkurse(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 2, 2), PictureBox24)
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
Dim f As New frmDatenarchivarchiv Dim f As New frmDatenarchivarchiv
f.ShowDialog() f.ShowDialog()
@@ -4248,10 +4246,14 @@ Public Class frmStartOptions
End Sub End Sub
Private Function importEZOLLWechselkurse(isTestsystem As Boolean) As Boolean Private Function importEZOLLWechselkurse(isTestsystem As Boolean, Optional kursart As Integer = 1, Optional art As Integer = 1) As Boolean
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = isTestsystem VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = isTestsystem
'KURSART 1 = notirete Währung, 2 ...
'ART 1 = cFremdwaehrungskurse, 2 WährungkurseNeu
Dim MyData As String = "" Dim MyData As String = ""
Dim SQL = New SQL Dim SQL = New SQL
Dim erg = True Dim erg = True
@@ -4262,7 +4264,7 @@ Public Class frmStartOptions
Dim lastDaycurrentMonth = DateTime.Now.AddMonths(1) Dim lastDaycurrentMonth = DateTime.Now.AddMonths(1)
lastDaycurrentMonth = New DateTime(lastDaycurrentMonth.Year, lastDaycurrentMonth.Month, 1).AddDays(-1) lastDaycurrentMonth = New DateTime(lastDaycurrentMonth.Year, lastDaycurrentMonth.Month, 1).AddDays(-1)
Dim kursart = "1" 'notirete Währung
Dim startdatum_tag2 = firstDaycurrentMonth.Day Dim startdatum_tag2 = firstDaycurrentMonth.Day
Dim startdatum_monat2 = firstDaycurrentMonth.Month Dim startdatum_monat2 = firstDaycurrentMonth.Month
Dim startdatum_jahr2 = firstDaycurrentMonth.Year Dim startdatum_jahr2 = firstDaycurrentMonth.Year
@@ -4295,47 +4297,65 @@ Public Class frmStartOptions
Dim endDatum, startDatum Dim endDatum, startDatum
Dim count As Integer = 1 Dim count As Integer = 1
For Each node As XmlElement In doc.GetElementsByTagName("kurs") For Each node As XmlElement In doc.GetElementsByTagName("kurs")
Dim wk As New cFremdwaehrungskurse() Dim wk
If art = 1 Then
wk = New cFremdwaehrungskurse()
Else
wk = New cWaehrungskurseNEU()
End If
If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value
If node.HasChildNodes Then If node.HasChildNodes Then
For Each element As XmlElement In node.ChildNodes For Each element As XmlElement In node.ChildNodes
If element.Name = "land" AndAlso element.InnerText <> "" Then wk.fw_land = element.InnerText If element.Name = "land" AndAlso element.InnerText <> "" Then wk.fw_land = element.InnerText
If element.Name = "iso2" AndAlso element.InnerText <> "" Then wk.fw_iso2 = element.InnerText If element.Name = "iso2" AndAlso element.InnerText <> "" Then wk.fw_iso2 = element.InnerText
If element.Name = "iso3" AndAlso element.InnerText <> "" Then wk.fw_iso3 = element.InnerText If element.Name = "iso3" AndAlso element.InnerText <> "" Then wk.fw_iso3 = element.InnerText
If element.Name = "kurswert" AndAlso element.InnerText <> "" Then If element.Name = "kurswert" AndAlso element.InnerText <> "" Then
wk.fw_kurswert = element.InnerText wk.fw_kurswert = element.InnerText
End If End If
If element.Name = "startdatum" AndAlso element.InnerText <> "" Then If art = 1 Then
wk.fw_startdatum = element.InnerText If element.Name = "startdatum" AndAlso element.InnerText <> "" Then
startDatum = wk.fw_startdatum wk.fw_startdatum = element.InnerText
End If startDatum = wk.fw_startdatum
If element.Name = "enddatum" AndAlso element.InnerText <> "" Then End If
wk.fw_enddatum = element.InnerText If element.Name = "enddatum" AndAlso element.InnerText <> "" Then
endDatum = wk.fw_enddatum wk.fw_enddatum = element.InnerText
endDatum = wk.fw_enddatum
End If
End If End If
Next Next
count = count + 1 count = count + 1
wk.SAVE() wk.SAVE()
End If End If
Next Next
Dim wk_euro As New cFremdwaehrungskurse() Dim wk_euro
If art = 1 Then
wk_euro = New cFremdwaehrungskurse()
Else
wk_euro = New cWaehrungskurseNEU()
End If
wk_euro.fw_id = 0 wk_euro.fw_id = 0
wk_euro.fw_land = "Europa" wk_euro.fw_land = "Europa"
wk_euro.fw_kurswert = 1 wk_euro.fw_kurswert = 1
wk_euro.fw_iso3 = "EUR" wk_euro.fw_iso3 = "EUR"
wk_euro.fw_iso2 = "EU" wk_euro.fw_iso2 = "EU"
wk_euro.fw_startdatum = firstDaycurrentMonth.ToShortDateString() If art = 1 Then
wk_euro.fw_enddatum = lastDaycurrentMonth.ToShortDateString() wk_euro.fw_startdatum = firstDaycurrentMonth.ToShortDateString()
wk_euro.fw_enddatum = lastDaycurrentMonth.ToShortDateString()
End If
wk_euro.SAVE() wk_euro.SAVE()
'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL") 'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL")
'If count <> sqlCount Then 'If count <> sqlCount Then
' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count) ' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count)
' 'erg = False ' 'erg = False
'End If 'End If
End If
End If End If
End If
End Using End Using
@@ -4920,4 +4940,9 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim ok = False
End Sub
End Class End Class