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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2023-01-24 16:16:54 +01:00
parent 09d7e9f71d 950127d6a4
commit 0875d2f627
13 changed files with 354 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1876,11 +1876,14 @@ Public Class cFakturierung
' 3-_> Sammel-Rg gedruckt
' 4-_> ? irgendwas mit SR 6 Maut/Diesel??
Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing, Optional FakturierungsGruppe As String = "") As DataTable
Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "") As DataTable
If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
Dim whereAbfArt = ""
If Abfertigungsart <> "" Then whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & Abfertigungsart & "' "
Dim sqlStr = " SELECT Rechnungsausgang.RK_ID, Rechnungsausgang.Firma_ID, Rechnungsausgang.FilialenNr, Rechnungsausgang.RechnungsKundenNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Status, Rechnungsausgang.Sammelrechnung, Rechnungsausgang.Abfertigungsdatum, Rechnungsausgang.Buchungsjahr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.SpeditionsbuchUnterNr,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag]
From Rechnungsausgang
WHERE Rechnungsausgang.Status IN(0, 2) And Rechnungsausgang.Firma_ID = " & Firma_ID & " And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And Rechnungsausgang.FakturierungsGruppe = '" & FakturierungsGruppe & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & DatumBis.ToShortDateString & "' " & whereKdNr & "
WHERE Rechnungsausgang.Status IN(0, 2) And Rechnungsausgang.Firma_ID = " & Firma_ID & " And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And Rechnungsausgang.FakturierungsGruppe = '" & FakturierungsGruppe & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & DatumBis.ToShortDateString & "' " & whereKdNr & whereAbfArt & "
" & If(SammelrechungArt = 7 And SB <> "", " AND Sachbearbeiter='" & SB & "' ", "") & "" & getWhereAvisoId(AvisoIds)
'Rechnungsausgang.Status IN(0, 2) --> vorher nur 2, da Anlagen vor der SR gedruckt wurden...
If SammelrechungArt = 7 Then
@@ -1915,7 +1918,7 @@ Public Class cFakturierung
End Function
Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False, Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False, Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
'If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False
Try
'If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
@@ -1936,7 +1939,7 @@ Public Class cFakturierung
If SammelrechungArt = 7 And (AvisoIds IsNot Nothing AndAlso AvisoIds.Count = 0) Then Return False 'Prüfung, ob Daten vorhanden; Abbruch ZB wenn keine AvisoId
Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds, FakturierungsGruppe) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds, FakturierungsGruppe, Abfertigungsart) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True
If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True
If Not CHECK_SR_SQLDT(dt) Then MsgBox("ERR03: Es wurden Rechnungen mit einem 0-Betrag gefunden. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True
@@ -1968,7 +1971,7 @@ Public Class cFakturierung
If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal
If kdTmp <> RG.RechnungsKundenNr Or AvisoIdTmp <> RG.AvisoID Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr
Dim path = ""
doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe) 'hier wird auch die RG Nr erhöht!
doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe, Abfertigungsart) 'hier wird auch die RG Nr erhöht!
Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr)
If path <> "" Then listPDFs.Add(path)
End If
@@ -1982,7 +1985,7 @@ Public Class cFakturierung
If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal
If kdTmp <> RG.RechnungsKundenNr Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr
Dim path = ""
doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe)
doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe, Abfertigungsart)
Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr)
If path <> "" Then listPDFs.Add(path)
End If
@@ -2009,7 +2012,7 @@ Public Class cFakturierung
'Letzter Abschnitt:
If found Then
Dim path = ""
doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe)
doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe, Abfertigungsart)
If path <> "" Then listPDFs.Add(path)
End If
lastAktuelle_RgNr = Aktuelle_RgNr
@@ -2030,7 +2033,7 @@ Public Class cFakturierung
End Function
Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "") As Boolean
Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "") As Boolean
'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit
Dim dt As DataTable

94
SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb generated
View File

@@ -55,6 +55,8 @@ Partial Class frmFaktSammelRgDrucken
Me.cbxTransFerry = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -154,15 +156,15 @@ Partial Class frmFaktSammelRgDrucken
Me.cboFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Location = New System.Drawing.Point(252, 18)
Me.cboFirma.Location = New System.Drawing.Point(252, 17)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(547, 21)
Me.cboFirma.Size = New System.Drawing.Size(183, 21)
Me.cboFirma.TabIndex = 2
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(147, 21)
Me.lbl.Location = New System.Drawing.Point(148, 20)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(35, 13)
Me.lbl.TabIndex = 1
@@ -171,7 +173,7 @@ Partial Class frmFaktSammelRgDrucken
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(147, 44)
Me.Label1.Location = New System.Drawing.Point(147, 45)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(94, 13)
Me.Label1.TabIndex = 3
@@ -180,7 +182,7 @@ Partial Class frmFaktSammelRgDrucken
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(147, 69)
Me.Label2.Location = New System.Drawing.Point(147, 67)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(67, 13)
Me.Label2.TabIndex = 7
@@ -189,7 +191,7 @@ Partial Class frmFaktSammelRgDrucken
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(148, 90)
Me.Label3.Location = New System.Drawing.Point(148, 93)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(47, 13)
Me.Label3.TabIndex = 10
@@ -200,9 +202,10 @@ Partial Class frmFaktSammelRgDrucken
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(12, 268)
Me.cboPrinter.Location = New System.Drawing.Point(12, 364)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(113, 21)
Me.cboPrinter.TabIndex = 17
@@ -212,15 +215,17 @@ Partial Class frmFaktSammelRgDrucken
Me.txtRechnungsdatum._DateTimeOnly = False
Me.txtRechnungsdatum._numbersOnly = False
Me.txtRechnungsdatum._numbersOnlyKommastellen = ""
Me.txtRechnungsdatum._numbersOnlyTrennzeichen = True
Me.txtRechnungsdatum._Prozent = False
Me.txtRechnungsdatum._ShortDateNew = True
Me.txtRechnungsdatum._ShortDateOnly = False
Me.txtRechnungsdatum._TimeOnly = False
Me.txtRechnungsdatum._TimeOnly_Seconds = False
Me.txtRechnungsdatum._value = ""
Me.txtRechnungsdatum._Waehrung = False
Me.txtRechnungsdatum._WaehrungZeichen = True
Me.txtRechnungsdatum.ForeColor = System.Drawing.Color.Black
Me.txtRechnungsdatum.Location = New System.Drawing.Point(252, 41)
Me.txtRechnungsdatum.Location = New System.Drawing.Point(252, 42)
Me.txtRechnungsdatum.MaxLength = 10
Me.txtRechnungsdatum.MaxLineLength = -1
Me.txtRechnungsdatum.MaxLines_Warning = ""
@@ -234,10 +239,12 @@ Partial Class frmFaktSammelRgDrucken
Me.txtZeitraumBis._DateTimeOnly = False
Me.txtZeitraumBis._numbersOnly = False
Me.txtZeitraumBis._numbersOnlyKommastellen = ""
Me.txtZeitraumBis._numbersOnlyTrennzeichen = True
Me.txtZeitraumBis._Prozent = False
Me.txtZeitraumBis._ShortDateNew = True
Me.txtZeitraumBis._ShortDateOnly = False
Me.txtZeitraumBis._TimeOnly = False
Me.txtZeitraumBis._TimeOnly_Seconds = False
Me.txtZeitraumBis._value = ""
Me.txtZeitraumBis._Waehrung = False
Me.txtZeitraumBis._WaehrungZeichen = True
@@ -263,20 +270,21 @@ Partial Class frmFaktSammelRgDrucken
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(252, 88)
Me.MyDatagridview1.Location = New System.Drawing.Point(252, 91)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(547, 201)
Me.MyDatagridview1.Size = New System.Drawing.Size(547, 294)
Me.MyDatagridview1.TabIndex = 18
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.printer2
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(12, 166)
Me.btn.Location = New System.Drawing.Point(12, 262)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(113, 60)
Me.btn.TabIndex = 11
@@ -284,11 +292,12 @@ Partial Class frmFaktSammelRgDrucken
'
'Button9
'
Me.Button9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button9.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(12, 225)
Me.Button9.Location = New System.Drawing.Point(12, 321)
Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.Button9.Name = "Button9"
Me.Button9.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
@@ -299,11 +308,12 @@ Partial Class frmFaktSammelRgDrucken
'
'Button8
'
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button8.BackgroundImage = Global.SDL.My.Resources.Resources.email_big
Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(67, 225)
Me.Button8.Location = New System.Drawing.Point(67, 321)
Me.Button8.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.Button8.Name = "Button8"
Me.Button8.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
@@ -314,8 +324,9 @@ Partial Class frmFaktSammelRgDrucken
'
'cbxEinzelAnlagen
'
Me.cbxEinzelAnlagen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxEinzelAnlagen.AutoSize = True
Me.cbxEinzelAnlagen.Location = New System.Drawing.Point(150, 195)
Me.cbxEinzelAnlagen.Location = New System.Drawing.Point(150, 291)
Me.cbxEinzelAnlagen.Name = "cbxEinzelAnlagen"
Me.cbxEinzelAnlagen.Size = New System.Drawing.Size(96, 17)
Me.cbxEinzelAnlagen.TabIndex = 14
@@ -324,10 +335,11 @@ Partial Class frmFaktSammelRgDrucken
'
'cbxSammelbericht
'
Me.cbxSammelbericht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxSammelbericht.AutoSize = True
Me.cbxSammelbericht.Checked = True
Me.cbxSammelbericht.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxSammelbericht.Location = New System.Drawing.Point(150, 215)
Me.cbxSammelbericht.Location = New System.Drawing.Point(150, 311)
Me.cbxSammelbericht.Name = "cbxSammelbericht"
Me.cbxSammelbericht.Size = New System.Drawing.Size(95, 17)
Me.cbxSammelbericht.TabIndex = 16
@@ -339,7 +351,7 @@ Partial Class frmFaktSammelRgDrucken
Me.lkl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lkl.AutoSize = True
Me.lkl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lkl.Location = New System.Drawing.Point(704, 69)
Me.lkl.Location = New System.Drawing.Point(704, 72)
Me.lkl.Name = "lkl"
Me.lkl.Size = New System.Drawing.Size(95, 13)
Me.lkl.TabIndex = 9
@@ -348,8 +360,9 @@ Partial Class frmFaktSammelRgDrucken
'
'cbxZusammenfassen
'
Me.cbxZusammenfassen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxZusammenfassen.AutoSize = True
Me.cbxZusammenfassen.Location = New System.Drawing.Point(12, 251)
Me.cbxZusammenfassen.Location = New System.Drawing.Point(12, 347)
Me.cbxZusammenfassen.Name = "cbxZusammenfassen"
Me.cbxZusammenfassen.Size = New System.Drawing.Size(107, 17)
Me.cbxZusammenfassen.TabIndex = 15
@@ -364,7 +377,7 @@ Partial Class frmFaktSammelRgDrucken
Me.cboSB.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboSB.FormattingEnabled = True
Me.cboSB.Location = New System.Drawing.Point(532, 40)
Me.cboSB.Location = New System.Drawing.Point(532, 19)
Me.cboSB.Name = "cboSB"
Me.cboSB.Size = New System.Drawing.Size(267, 21)
Me.cboSB.TabIndex = 6
@@ -373,7 +386,7 @@ Partial Class frmFaktSammelRgDrucken
'lblSB
'
Me.lblSB.AutoSize = True
Me.lblSB.Location = New System.Drawing.Point(444, 44)
Me.lblSB.Location = New System.Drawing.Point(444, 23)
Me.lblSB.Name = "lblSB"
Me.lblSB.Size = New System.Drawing.Size(82, 13)
Me.lblSB.TabIndex = 5
@@ -382,8 +395,9 @@ Partial Class frmFaktSammelRgDrucken
'
'cbxEVOLOG
'
Me.cbxEVOLOG.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxEVOLOG.AutoSize = True
Me.cbxEVOLOG.Location = New System.Drawing.Point(151, 253)
Me.cbxEVOLOG.Location = New System.Drawing.Point(151, 349)
Me.cbxEVOLOG.Name = "cbxEVOLOG"
Me.cbxEVOLOG.Size = New System.Drawing.Size(99, 17)
Me.cbxEVOLOG.TabIndex = 19
@@ -392,8 +406,9 @@ Partial Class frmFaktSammelRgDrucken
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(148, 237)
Me.Label4.Location = New System.Drawing.Point(148, 333)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(41, 13)
Me.Label4.TabIndex = 20
@@ -401,10 +416,11 @@ Partial Class frmFaktSammelRgDrucken
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(150, 166)
Me.Button1.Location = New System.Drawing.Point(150, 262)
Me.Button1.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(91, 25)
@@ -414,8 +430,9 @@ Partial Class frmFaktSammelRgDrucken
'
'cbxTransFerry
'
Me.cbxTransFerry.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxTransFerry.AutoSize = True
Me.cbxTransFerry.Location = New System.Drawing.Point(151, 271)
Me.cbxTransFerry.Location = New System.Drawing.Point(151, 367)
Me.cbxTransFerry.Name = "cbxTransFerry"
Me.cbxTransFerry.Size = New System.Drawing.Size(105, 17)
Me.cbxTransFerry.TabIndex = 22
@@ -424,7 +441,7 @@ Partial Class frmFaktSammelRgDrucken
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(444, 67)
Me.Label5.Location = New System.Drawing.Point(444, 46)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(82, 17)
Me.Label5.TabIndex = 23
@@ -438,17 +455,40 @@ Partial Class frmFaktSammelRgDrucken
Me.cboFaktGrp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboFaktGrp.FormattingEnabled = True
Me.cboFaktGrp.Location = New System.Drawing.Point(532, 63)
Me.cboFaktGrp.Location = New System.Drawing.Point(532, 42)
Me.cboFaktGrp.Name = "cboFaktGrp"
Me.cboFaktGrp.Size = New System.Drawing.Size(166, 21)
Me.cboFaktGrp.TabIndex = 24
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(444, 68)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(82, 17)
Me.Label6.TabIndex = 25
Me.Label6.Text = "Abfertigungsart:"
'
'cboAbfertigungsart
'
Me.cboAbfertigungsart._allowedValuesFreiText = Nothing
Me.cboAbfertigungsart._allowFreiText = False
Me.cboAbfertigungsart._value = ""
Me.cboAbfertigungsart.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(532, 64)
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
Me.cboAbfertigungsart.Size = New System.Drawing.Size(166, 21)
Me.cboAbfertigungsart.TabIndex = 26
'
'frmFaktSammelRgDrucken
'
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(811, 297)
Me.ClientSize = New System.Drawing.Size(811, 393)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.cboAbfertigungsart)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cboFaktGrp)
Me.Controls.Add(Me.Button1)
@@ -517,4 +557,6 @@ Partial Class frmFaktSammelRgDrucken
Friend WithEvents cbxTransFerry As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents cboFaktGrp As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label6 As Label
Friend WithEvents cboAbfertigungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

16
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

@@ -55,11 +55,15 @@ Public Class frmFaktSammelRgDrucken
Sub initDGV()
With MyDatagridview1
Dim whereAbfArt = ""
If cboAbfertigungsart._value <> "" Then whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & cboAbfertigungsart._value & "' "
Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & "
,(SELECT CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' ELSE '-' END FROM Adressen WHERE AdressenNr=Rechnungsausgang.RechnungsKundenNr ) as Rechnungsdruck
FROM Rechnungsausgang
WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechung & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & txtZeitraumBis._value & "'
" & If(Sammelrechung = 7 And cboSB._value <> "", " AND Rechnungsausgang.Sachbearbeiter='" & cboSB._value & "' ", "") & "
" & whereAbfArt & "
AND Rechnungsausgang.FakturierungsGruppe='" & cboFaktGrp._value & "'
GROUP BY RechnungsKundenNr " & If(Sammelrechung = 7, ",AvisoId", "") & "
ORDER BY Rechnungsausgang.RechnungsKundenNr "
@@ -89,6 +93,8 @@ Public Class frmFaktSammelRgDrucken
txtZeitraumBis.Text = Now.ToShortDateString
txtRechnungsdatum.Text = Now.ToShortDateString
cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL", True)
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
FirmaTmp = "VERAGIMEX"
@@ -96,10 +102,10 @@ Public Class frmFaktSammelRgDrucken
Select Case FirmaTmp
Case "VERAG"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID<>20", False, "FMZOLL")
cboFirma.fillWithSQL("Select [Firma_ID], [Firma_Bez] FROM [tblFirma] WHERE Firma_ID<>20", False, "FMZOLL")
cboFirma.changeItem("1")
cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True)
Case "IMEX"
Case "IMEX"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=20", False, "FMZOLL")
cboFirma.changeItem("20")
cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='IMEX' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
@@ -242,7 +248,7 @@ Public Class frmFaktSammelRgDrucken
Me.Cursor = Cursors.WaitCursor
Dim listPDFs As New List(Of String)
Dim SonstAnlagen As New List(Of String)
cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value)
cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value)
'-------------- für PDF-Sammel-Rechnung --------------
@@ -360,4 +366,8 @@ Public Class frmFaktSammelRgDrucken
Private Sub cboFaktGrp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFaktGrp.SelectedIndexChanged
initDGV()
End Sub
Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged
initDGV()
End Sub
End Class

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.3.3")>
<Assembly: AssemblyFileVersion("1.2.3.3")>
<Assembly: AssemblyVersion("1.2.3.4")>
<Assembly: AssemblyFileVersion("1.2.3.4")>

111
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb generated
View File

@@ -233,6 +233,8 @@ Partial Class frmNacherfassungNEU
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.txtAtlasBezNrAES = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label65 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@@ -517,6 +519,7 @@ Partial Class frmNacherfassungNEU
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = False
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
@@ -552,6 +555,7 @@ Partial Class frmNacherfassungNEU
Me.txtUnterNr._DateTimeOnly = False
Me.txtUnterNr._numbersOnly = False
Me.txtUnterNr._numbersOnlyKommastellen = ""
Me.txtUnterNr._numbersOnlyTrennzeichen = True
Me.txtUnterNr._Prozent = False
Me.txtUnterNr._ShortDateNew = False
Me.txtUnterNr._ShortDateOnly = False
@@ -598,9 +602,9 @@ Partial Class frmNacherfassungNEU
Me.btnImport.BackColor = System.Drawing.Color.Transparent
Me.btnImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnImport.ForeColor = System.Drawing.Color.Black
Me.btnImport.Location = New System.Drawing.Point(593, 15)
Me.btnImport.Location = New System.Drawing.Point(679, 5)
Me.btnImport.Name = "btnImport"
Me.btnImport.Size = New System.Drawing.Size(116, 24)
Me.btnImport.Size = New System.Drawing.Size(201, 38)
Me.btnImport.TabIndex = 9
Me.btnImport.Text = "Datenimport"
Me.btnImport.UseVisualStyleBackColor = False
@@ -1106,6 +1110,7 @@ Partial Class frmNacherfassungNEU
Me.txtZuschlaege._DateTimeOnly = False
Me.txtZuschlaege._numbersOnly = True
Me.txtZuschlaege._numbersOnlyKommastellen = ""
Me.txtZuschlaege._numbersOnlyTrennzeichen = True
Me.txtZuschlaege._Prozent = False
Me.txtZuschlaege._ShortDateNew = False
Me.txtZuschlaege._ShortDateOnly = False
@@ -1129,6 +1134,7 @@ Partial Class frmNacherfassungNEU
Me.txtBarvorlagen._DateTimeOnly = False
Me.txtBarvorlagen._numbersOnly = True
Me.txtBarvorlagen._numbersOnlyKommastellen = ""
Me.txtBarvorlagen._numbersOnlyTrennzeichen = True
Me.txtBarvorlagen._Prozent = False
Me.txtBarvorlagen._ShortDateNew = False
Me.txtBarvorlagen._ShortDateOnly = False
@@ -1152,6 +1158,7 @@ Partial Class frmNacherfassungNEU
Me.txtAE._DateTimeOnly = False
Me.txtAE._numbersOnly = True
Me.txtAE._numbersOnlyKommastellen = ""
Me.txtAE._numbersOnlyTrennzeichen = True
Me.txtAE._Prozent = False
Me.txtAE._ShortDateNew = False
Me.txtAE._ShortDateOnly = False
@@ -1175,6 +1182,7 @@ Partial Class frmNacherfassungNEU
Me.txtT1._DateTimeOnly = False
Me.txtT1._numbersOnly = True
Me.txtT1._numbersOnlyKommastellen = ""
Me.txtT1._numbersOnlyTrennzeichen = True
Me.txtT1._Prozent = False
Me.txtT1._ShortDateNew = False
Me.txtT1._ShortDateOnly = False
@@ -1198,6 +1206,7 @@ Partial Class frmNacherfassungNEU
Me.txtZnV._DateTimeOnly = False
Me.txtZnV._numbersOnly = True
Me.txtZnV._numbersOnlyKommastellen = ""
Me.txtZnV._numbersOnlyTrennzeichen = True
Me.txtZnV._Prozent = False
Me.txtZnV._ShortDateNew = False
Me.txtZnV._ShortDateOnly = False
@@ -1221,6 +1230,7 @@ Partial Class frmNacherfassungNEU
Me.txtSonstiges._DateTimeOnly = False
Me.txtSonstiges._numbersOnly = True
Me.txtSonstiges._numbersOnlyKommastellen = ""
Me.txtSonstiges._numbersOnlyTrennzeichen = True
Me.txtSonstiges._Prozent = False
Me.txtSonstiges._ShortDateNew = False
Me.txtSonstiges._ShortDateOnly = False
@@ -1244,6 +1254,7 @@ Partial Class frmNacherfassungNEU
Me.txtCarnetTIR._DateTimeOnly = False
Me.txtCarnetTIR._numbersOnly = True
Me.txtCarnetTIR._numbersOnlyKommastellen = ""
Me.txtCarnetTIR._numbersOnlyTrennzeichen = True
Me.txtCarnetTIR._Prozent = False
Me.txtCarnetTIR._ShortDateNew = False
Me.txtCarnetTIR._ShortDateOnly = False
@@ -1267,6 +1278,7 @@ Partial Class frmNacherfassungNEU
Me.txtT2._DateTimeOnly = False
Me.txtT2._numbersOnly = True
Me.txtT2._numbersOnlyKommastellen = ""
Me.txtT2._numbersOnlyTrennzeichen = True
Me.txtT2._Prozent = False
Me.txtT2._ShortDateNew = False
Me.txtT2._ShortDateOnly = False
@@ -1290,6 +1302,7 @@ Partial Class frmNacherfassungNEU
Me.txtZnVFremd._DateTimeOnly = False
Me.txtZnVFremd._numbersOnly = True
Me.txtZnVFremd._numbersOnlyKommastellen = ""
Me.txtZnVFremd._numbersOnlyTrennzeichen = True
Me.txtZnVFremd._Prozent = False
Me.txtZnVFremd._ShortDateNew = False
Me.txtZnVFremd._ShortDateOnly = False
@@ -1313,6 +1326,7 @@ Partial Class frmNacherfassungNEU
Me.txtZAFremd._DateTimeOnly = False
Me.txtZAFremd._numbersOnly = True
Me.txtZAFremd._numbersOnlyKommastellen = ""
Me.txtZAFremd._numbersOnlyTrennzeichen = True
Me.txtZAFremd._Prozent = False
Me.txtZAFremd._ShortDateNew = False
Me.txtZAFremd._ShortDateOnly = False
@@ -1336,6 +1350,7 @@ Partial Class frmNacherfassungNEU
Me.txtZA._DateTimeOnly = False
Me.txtZA._numbersOnly = True
Me.txtZA._numbersOnlyKommastellen = ""
Me.txtZA._numbersOnlyTrennzeichen = True
Me.txtZA._Prozent = False
Me.txtZA._ShortDateNew = False
Me.txtZA._ShortDateOnly = False
@@ -1452,6 +1467,9 @@ Partial Class frmNacherfassungNEU
Me.Panel1.AutoScroll = True
Me.Panel1.Controls.Add(Me.cbxEIDR)
Me.Panel1.Controls.Add(Me.Button4)
Me.Panel1.Controls.Add(Me.cboNiederlassung)
Me.Panel1.Controls.Add(Me.Label56)
Me.Panel1.Controls.Add(Me.btnATLASPOS)
Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerEmpfaenger)
Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerFrachtfuehrer)
Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerAvisierer)
@@ -1578,6 +1596,7 @@ Partial Class frmNacherfassungNEU
Me.txtKdAuftragsnummerEmpfaenger._DateTimeOnly = False
Me.txtKdAuftragsnummerEmpfaenger._numbersOnly = False
Me.txtKdAuftragsnummerEmpfaenger._numbersOnlyKommastellen = ""
Me.txtKdAuftragsnummerEmpfaenger._numbersOnlyTrennzeichen = True
Me.txtKdAuftragsnummerEmpfaenger._Prozent = False
Me.txtKdAuftragsnummerEmpfaenger._ShortDateNew = False
Me.txtKdAuftragsnummerEmpfaenger._ShortDateOnly = False
@@ -1601,6 +1620,7 @@ Partial Class frmNacherfassungNEU
Me.txtKdAuftragsnummerFrachtfuehrer._DateTimeOnly = False
Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnly = False
Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnlyKommastellen = ""
Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnlyTrennzeichen = True
Me.txtKdAuftragsnummerFrachtfuehrer._Prozent = False
Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateNew = False
Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateOnly = False
@@ -1624,6 +1644,7 @@ Partial Class frmNacherfassungNEU
Me.txtKdAuftragsnummerAvisierer._DateTimeOnly = False
Me.txtKdAuftragsnummerAvisierer._numbersOnly = False
Me.txtKdAuftragsnummerAvisierer._numbersOnlyKommastellen = ""
Me.txtKdAuftragsnummerAvisierer._numbersOnlyTrennzeichen = True
Me.txtKdAuftragsnummerAvisierer._Prozent = False
Me.txtKdAuftragsnummerAvisierer._ShortDateNew = False
Me.txtKdAuftragsnummerAvisierer._ShortDateOnly = False
@@ -1647,6 +1668,7 @@ Partial Class frmNacherfassungNEU
Me.txtInkasso._DateTimeOnly = False
Me.txtInkasso._numbersOnly = True
Me.txtInkasso._numbersOnlyKommastellen = ""
Me.txtInkasso._numbersOnlyTrennzeichen = True
Me.txtInkasso._Prozent = False
Me.txtInkasso._ShortDateNew = False
Me.txtInkasso._ShortDateOnly = False
@@ -1836,6 +1858,7 @@ Partial Class frmNacherfassungNEU
Me.txtCMRNr._DateTimeOnly = False
Me.txtCMRNr._numbersOnly = False
Me.txtCMRNr._numbersOnlyKommastellen = ""
Me.txtCMRNr._numbersOnlyTrennzeichen = True
Me.txtCMRNr._Prozent = False
Me.txtCMRNr._ShortDateNew = False
Me.txtCMRNr._ShortDateOnly = False
@@ -1860,6 +1883,7 @@ Partial Class frmNacherfassungNEU
Me.txtCMRDatum._DateTimeOnly = False
Me.txtCMRDatum._numbersOnly = False
Me.txtCMRDatum._numbersOnlyKommastellen = ""
Me.txtCMRDatum._numbersOnlyTrennzeichen = True
Me.txtCMRDatum._Prozent = False
Me.txtCMRDatum._ShortDateNew = True
Me.txtCMRDatum._ShortDateOnly = False
@@ -1939,6 +1963,7 @@ Partial Class frmNacherfassungNEU
Me.txtKdAuftragsnummer._DateTimeOnly = False
Me.txtKdAuftragsnummer._numbersOnly = False
Me.txtKdAuftragsnummer._numbersOnlyKommastellen = ""
Me.txtKdAuftragsnummer._numbersOnlyTrennzeichen = True
Me.txtKdAuftragsnummer._Prozent = False
Me.txtKdAuftragsnummer._ShortDateNew = False
Me.txtKdAuftragsnummer._ShortDateOnly = False
@@ -2181,6 +2206,7 @@ Partial Class frmNacherfassungNEU
Me.txtAvisiererKdNr._DateTimeOnly = False
Me.txtAvisiererKdNr._numbersOnly = False
Me.txtAvisiererKdNr._numbersOnlyKommastellen = ""
Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True
Me.txtAvisiererKdNr._Prozent = False
Me.txtAvisiererKdNr._ShortDateNew = False
Me.txtAvisiererKdNr._ShortDateOnly = False
@@ -2384,6 +2410,7 @@ Partial Class frmNacherfassungNEU
Me.txtZucker_Aufschub._DateTimeOnly = False
Me.txtZucker_Aufschub._numbersOnly = False
Me.txtZucker_Aufschub._numbersOnlyKommastellen = ""
Me.txtZucker_Aufschub._numbersOnlyTrennzeichen = True
Me.txtZucker_Aufschub._Prozent = False
Me.txtZucker_Aufschub._ShortDateNew = False
Me.txtZucker_Aufschub._ShortDateOnly = False
@@ -2407,6 +2434,7 @@ Partial Class frmNacherfassungNEU
Me.txtZucker_Datum._DateTimeOnly = False
Me.txtZucker_Datum._numbersOnly = False
Me.txtZucker_Datum._numbersOnlyKommastellen = ""
Me.txtZucker_Datum._numbersOnlyTrennzeichen = True
Me.txtZucker_Datum._Prozent = False
Me.txtZucker_Datum._ShortDateNew = False
Me.txtZucker_Datum._ShortDateOnly = False
@@ -2450,6 +2478,7 @@ Partial Class frmNacherfassungNEU
Me.txtZuckerMRN._DateTimeOnly = False
Me.txtZuckerMRN._numbersOnly = False
Me.txtZuckerMRN._numbersOnlyKommastellen = ""
Me.txtZuckerMRN._numbersOnlyTrennzeichen = True
Me.txtZuckerMRN._Prozent = False
Me.txtZuckerMRN._ShortDateNew = False
Me.txtZuckerMRN._ShortDateOnly = False
@@ -2511,6 +2540,7 @@ Partial Class frmNacherfassungNEU
Me.txtCRN._DateTimeOnly = False
Me.txtCRN._numbersOnly = False
Me.txtCRN._numbersOnlyKommastellen = ""
Me.txtCRN._numbersOnlyTrennzeichen = True
Me.txtCRN._Prozent = False
Me.txtCRN._ShortDateNew = False
Me.txtCRN._ShortDateOnly = False
@@ -2620,6 +2650,7 @@ Partial Class frmNacherfassungNEU
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = ""
Me.txtRohmasse._numbersOnlyTrennzeichen = True
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
@@ -2642,6 +2673,7 @@ Partial Class frmNacherfassungNEU
Me.txtZahlungsaufschub._DateTimeOnly = False
Me.txtZahlungsaufschub._numbersOnly = False
Me.txtZahlungsaufschub._numbersOnlyKommastellen = ""
Me.txtZahlungsaufschub._numbersOnlyTrennzeichen = True
Me.txtZahlungsaufschub._Prozent = False
Me.txtZahlungsaufschub._ShortDateNew = False
Me.txtZahlungsaufschub._ShortDateOnly = False
@@ -2664,6 +2696,7 @@ Partial Class frmNacherfassungNEU
Me.txtAbsenderKdNr._DateTimeOnly = False
Me.txtAbsenderKdNr._numbersOnly = False
Me.txtAbsenderKdNr._numbersOnlyKommastellen = ""
Me.txtAbsenderKdNr._numbersOnlyTrennzeichen = True
Me.txtAbsenderKdNr._Prozent = False
Me.txtAbsenderKdNr._ShortDateNew = False
Me.txtAbsenderKdNr._ShortDateOnly = False
@@ -2688,6 +2721,7 @@ Partial Class frmNacherfassungNEU
Me.txtAnzahl._DateTimeOnly = False
Me.txtAnzahl._numbersOnly = False
Me.txtAnzahl._numbersOnlyKommastellen = ""
Me.txtAnzahl._numbersOnlyTrennzeichen = True
Me.txtAnzahl._Prozent = False
Me.txtAnzahl._ShortDateNew = False
Me.txtAnzahl._ShortDateOnly = False
@@ -2710,6 +2744,7 @@ Partial Class frmNacherfassungNEU
Me.txtBarzahlungsbetrag._DateTimeOnly = False
Me.txtBarzahlungsbetrag._numbersOnly = True
Me.txtBarzahlungsbetrag._numbersOnlyKommastellen = ""
Me.txtBarzahlungsbetrag._numbersOnlyTrennzeichen = True
Me.txtBarzahlungsbetrag._Prozent = False
Me.txtBarzahlungsbetrag._ShortDateNew = False
Me.txtBarzahlungsbetrag._ShortDateOnly = False
@@ -2731,6 +2766,7 @@ Partial Class frmNacherfassungNEU
Me.txtFraechterKdNr._DateTimeOnly = False
Me.txtFraechterKdNr._numbersOnly = False
Me.txtFraechterKdNr._numbersOnlyKommastellen = ""
Me.txtFraechterKdNr._numbersOnlyTrennzeichen = True
Me.txtFraechterKdNr._Prozent = False
Me.txtFraechterKdNr._ShortDateNew = False
Me.txtFraechterKdNr._ShortDateOnly = False
@@ -2755,6 +2791,7 @@ Partial Class frmNacherfassungNEU
Me.txtAuftraggeberKdNr._DateTimeOnly = False
Me.txtAuftraggeberKdNr._numbersOnly = False
Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = ""
Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True
Me.txtAuftraggeberKdNr._Prozent = False
Me.txtAuftraggeberKdNr._ShortDateNew = False
Me.txtAuftraggeberKdNr._ShortDateOnly = False
@@ -2779,6 +2816,7 @@ Partial Class frmNacherfassungNEU
Me.txtPackstuecke._DateTimeOnly = False
Me.txtPackstuecke._numbersOnly = False
Me.txtPackstuecke._numbersOnlyKommastellen = ""
Me.txtPackstuecke._numbersOnlyTrennzeichen = True
Me.txtPackstuecke._Prozent = False
Me.txtPackstuecke._ShortDateNew = False
Me.txtPackstuecke._ShortDateOnly = False
@@ -2804,6 +2842,7 @@ Partial Class frmNacherfassungNEU
Me.txtUmrechnungskurs._DateTimeOnly = False
Me.txtUmrechnungskurs._numbersOnly = False
Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
Me.txtUmrechnungskurs._Prozent = False
Me.txtUmrechnungskurs._ShortDateNew = False
Me.txtUmrechnungskurs._ShortDateOnly = False
@@ -2826,6 +2865,7 @@ Partial Class frmNacherfassungNEU
Me.txtRechnungsbetrag._DateTimeOnly = False
Me.txtRechnungsbetrag._numbersOnly = True
Me.txtRechnungsbetrag._numbersOnlyKommastellen = ""
Me.txtRechnungsbetrag._numbersOnlyTrennzeichen = True
Me.txtRechnungsbetrag._Prozent = False
Me.txtRechnungsbetrag._ShortDateNew = False
Me.txtRechnungsbetrag._ShortDateOnly = False
@@ -2848,6 +2888,7 @@ Partial Class frmNacherfassungNEU
Me.txtBemerkung._DateTimeOnly = False
Me.txtBemerkung._numbersOnly = False
Me.txtBemerkung._numbersOnlyKommastellen = ""
Me.txtBemerkung._numbersOnlyTrennzeichen = True
Me.txtBemerkung._Prozent = False
Me.txtBemerkung._ShortDateNew = False
Me.txtBemerkung._ShortDateOnly = False
@@ -2871,6 +2912,7 @@ Partial Class frmNacherfassungNEU
Me.txtEmpfaengerKdNr._DateTimeOnly = False
Me.txtEmpfaengerKdNr._numbersOnly = False
Me.txtEmpfaengerKdNr._numbersOnlyKommastellen = ""
Me.txtEmpfaengerKdNr._numbersOnlyTrennzeichen = True
Me.txtEmpfaengerKdNr._Prozent = False
Me.txtEmpfaengerKdNr._ShortDateNew = False
Me.txtEmpfaengerKdNr._ShortDateOnly = False
@@ -2895,6 +2937,7 @@ Partial Class frmNacherfassungNEU
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._numbersOnlyTrennzeichen = True
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
@@ -2918,6 +2961,7 @@ Partial Class frmNacherfassungNEU
Me.txtErfassungsnummer._DateTimeOnly = False
Me.txtErfassungsnummer._numbersOnly = False
Me.txtErfassungsnummer._numbersOnlyKommastellen = ""
Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True
Me.txtErfassungsnummer._Prozent = False
Me.txtErfassungsnummer._ShortDateNew = False
Me.txtErfassungsnummer._ShortDateOnly = False
@@ -2941,6 +2985,7 @@ Partial Class frmNacherfassungNEU
Me.txtEndEmpfKdNr._DateTimeOnly = False
Me.txtEndEmpfKdNr._numbersOnly = False
Me.txtEndEmpfKdNr._numbersOnlyKommastellen = ""
Me.txtEndEmpfKdNr._numbersOnlyTrennzeichen = True
Me.txtEndEmpfKdNr._Prozent = False
Me.txtEndEmpfKdNr._ShortDateNew = False
Me.txtEndEmpfKdNr._ShortDateOnly = False
@@ -2965,6 +3010,7 @@ Partial Class frmNacherfassungNEU
Me.txtBelegNummerZAT1T2._DateTimeOnly = False
Me.txtBelegNummerZAT1T2._numbersOnly = False
Me.txtBelegNummerZAT1T2._numbersOnlyKommastellen = ""
Me.txtBelegNummerZAT1T2._numbersOnlyTrennzeichen = True
Me.txtBelegNummerZAT1T2._Prozent = False
Me.txtBelegNummerZAT1T2._ShortDateNew = False
Me.txtBelegNummerZAT1T2._ShortDateOnly = False
@@ -2987,11 +3033,10 @@ Partial Class frmNacherfassungNEU
'
Me.pnlZOll.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.pnlZOll.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlZOll.Controls.Add(Me.cboNiederlassung)
Me.pnlZOll.Controls.Add(Me.Label56)
Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrAES)
Me.pnlZOll.Controls.Add(Me.Label65)
Me.pnlZOll.Controls.Add(Me.lblZollsys)
Me.pnlZOll.Controls.Add(Me.cboZollsystem)
Me.pnlZOll.Controls.Add(Me.btnATLASPOS)
Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrEZA)
Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrNCTS)
Me.pnlZOll.Controls.Add(Me.Label26)
@@ -3008,7 +3053,7 @@ Partial Class frmNacherfassungNEU
'
Me.cboNiederlassung.FormattingEnabled = True
Me.cboNiederlassung.Items.AddRange(New Object() {"SUB", "SBG", "WAI", "NEU", "SUW"})
Me.cboNiederlassung.Location = New System.Drawing.Point(801, 17)
Me.cboNiederlassung.Location = New System.Drawing.Point(301, 309)
Me.cboNiederlassung.Name = "cboNiederlassung"
Me.cboNiederlassung.Size = New System.Drawing.Size(74, 21)
Me.cboNiederlassung.TabIndex = 3
@@ -3016,7 +3061,7 @@ Partial Class frmNacherfassungNEU
'Label56
'
Me.Label56.AutoSize = True
Me.Label56.Location = New System.Drawing.Point(798, 1)
Me.Label56.Location = New System.Drawing.Point(298, 293)
Me.Label56.Name = "Label56"
Me.Label56.Size = New System.Drawing.Size(77, 13)
Me.Label56.TabIndex = 0
@@ -3049,12 +3094,12 @@ Partial Class frmNacherfassungNEU
'
Me.btnATLASPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnATLASPOS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnATLASPOS.Location = New System.Drawing.Point(715, 15)
Me.btnATLASPOS.Location = New System.Drawing.Point(318, 315)
Me.btnATLASPOS.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.btnATLASPOS.Name = "btnATLASPOS"
Me.btnATLASPOS.Size = New System.Drawing.Size(78, 24)
Me.btnATLASPOS.Size = New System.Drawing.Size(29, 24)
Me.btnATLASPOS.TabIndex = 10
Me.btnATLASPOS.Text = "Positionen"
Me.btnATLASPOS.Text = "Pos"
Me.btnATLASPOS.UseVisualStyleBackColor = True
Me.btnATLASPOS.Visible = False
'
@@ -3063,6 +3108,7 @@ Partial Class frmNacherfassungNEU
Me.txtAtlasBezNrEZA._DateTimeOnly = False
Me.txtAtlasBezNrEZA._numbersOnly = False
Me.txtAtlasBezNrEZA._numbersOnlyKommastellen = ""
Me.txtAtlasBezNrEZA._numbersOnlyTrennzeichen = True
Me.txtAtlasBezNrEZA._Prozent = False
Me.txtAtlasBezNrEZA._ShortDateNew = False
Me.txtAtlasBezNrEZA._ShortDateOnly = False
@@ -3086,6 +3132,7 @@ Partial Class frmNacherfassungNEU
Me.txtAtlasBezNrNCTS._DateTimeOnly = False
Me.txtAtlasBezNrNCTS._numbersOnly = False
Me.txtAtlasBezNrNCTS._numbersOnlyKommastellen = ""
Me.txtAtlasBezNrNCTS._numbersOnlyTrennzeichen = True
Me.txtAtlasBezNrNCTS._Prozent = False
Me.txtAtlasBezNrNCTS._ShortDateNew = False
Me.txtAtlasBezNrNCTS._ShortDateOnly = False
@@ -3095,7 +3142,7 @@ Partial Class frmNacherfassungNEU
Me.txtAtlasBezNrNCTS._Waehrung = False
Me.txtAtlasBezNrNCTS._WaehrungZeichen = True
Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black
Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(483, 18)
Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(428, 18)
Me.txtAtlasBezNrNCTS.MaxLength = 22
Me.txtAtlasBezNrNCTS.MaxLineLength = -1
Me.txtAtlasBezNrNCTS.MaxLines_Warning = ""
@@ -3127,9 +3174,9 @@ Partial Class frmNacherfassungNEU
Me.Label51.AutoSize = True
Me.Label51.Location = New System.Drawing.Point(383, 22)
Me.Label51.Name = "Label51"
Me.Label51.Size = New System.Drawing.Size(94, 13)
Me.Label51.Size = New System.Drawing.Size(39, 13)
Me.Label51.TabIndex = 7
Me.Label51.Text = "Bezugs-Nr. NCTS:"
Me.Label51.Text = "NCTS:"
'
'Label58
'
@@ -3189,6 +3236,7 @@ Partial Class frmNacherfassungNEU
Me.txtHandlingZuKassieren._DateTimeOnly = False
Me.txtHandlingZuKassieren._numbersOnly = True
Me.txtHandlingZuKassieren._numbersOnlyKommastellen = ""
Me.txtHandlingZuKassieren._numbersOnlyTrennzeichen = True
Me.txtHandlingZuKassieren._Prozent = False
Me.txtHandlingZuKassieren._ShortDateNew = False
Me.txtHandlingZuKassieren._ShortDateOnly = False
@@ -3264,6 +3312,7 @@ Partial Class frmNacherfassungNEU
Me.MyTextBoxLKWKz._DateTimeOnly = False
Me.MyTextBoxLKWKz._numbersOnly = False
Me.MyTextBoxLKWKz._numbersOnlyKommastellen = ""
Me.MyTextBoxLKWKz._numbersOnlyTrennzeichen = True
Me.MyTextBoxLKWKz._Prozent = False
Me.MyTextBoxLKWKz._ShortDateNew = False
Me.MyTextBoxLKWKz._ShortDateOnly = False
@@ -3287,6 +3336,7 @@ Partial Class frmNacherfassungNEU
Me.txtLKWId._DateTimeOnly = False
Me.txtLKWId._numbersOnly = True
Me.txtLKWId._numbersOnlyKommastellen = ""
Me.txtLKWId._numbersOnlyTrennzeichen = True
Me.txtLKWId._Prozent = False
Me.txtLKWId._ShortDateNew = False
Me.txtLKWId._ShortDateOnly = False
@@ -3337,6 +3387,39 @@ Partial Class frmNacherfassungNEU
Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
'
'txtAtlasBezNrAES
'
Me.txtAtlasBezNrAES._DateTimeOnly = False
Me.txtAtlasBezNrAES._numbersOnly = False
Me.txtAtlasBezNrAES._numbersOnlyKommastellen = ""
Me.txtAtlasBezNrAES._numbersOnlyTrennzeichen = True
Me.txtAtlasBezNrAES._Prozent = False
Me.txtAtlasBezNrAES._ShortDateNew = False
Me.txtAtlasBezNrAES._ShortDateOnly = False
Me.txtAtlasBezNrAES._TimeOnly = False
Me.txtAtlasBezNrAES._TimeOnly_Seconds = False
Me.txtAtlasBezNrAES._value = Nothing
Me.txtAtlasBezNrAES._Waehrung = False
Me.txtAtlasBezNrAES._WaehrungZeichen = True
Me.txtAtlasBezNrAES.ForeColor = System.Drawing.Color.Black
Me.txtAtlasBezNrAES.Location = New System.Drawing.Point(571, 18)
Me.txtAtlasBezNrAES.MaxLength = 22
Me.txtAtlasBezNrAES.MaxLineLength = -1
Me.txtAtlasBezNrAES.MaxLines_Warning = ""
Me.txtAtlasBezNrAES.MaxLines_Warning_Label = Nothing
Me.txtAtlasBezNrAES.Name = "txtAtlasBezNrAES"
Me.txtAtlasBezNrAES.Size = New System.Drawing.Size(100, 20)
Me.txtAtlasBezNrAES.TabIndex = 11
'
'Label65
'
Me.Label65.AutoSize = True
Me.Label65.Location = New System.Drawing.Point(534, 22)
Me.Label65.Name = "Label65"
Me.Label65.Size = New System.Drawing.Size(31, 13)
Me.Label65.TabIndex = 10
Me.Label65.Text = "AES:"
'
'frmNacherfassungNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3578,4 +3661,6 @@ Partial Class frmNacherfassungNEU
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
Friend WithEvents KopierenZwischenablageToolStripMenuItem As ToolStripMenuItem
Public WithEvents Button5 As Button
Friend WithEvents txtAtlasBezNrAES As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label65 As Label
End Class

9
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -228,6 +228,7 @@ Public Class frmNacherfassungNEU
If SPEDITIONSBUCH.EndempfängerKundenNr > 0 Then txtEndEmpf.KdNr = SPEDITIONSBUCH.EndempfängerKundenNr
txtAtlasBezNrEZA.Text = SPEDITIONSBUCH.AtlasBezNrEZA
txtAtlasBezNrAES.Text = SPEDITIONSBUCH.AtlasBezNrAES
txtAtlasBezNrNCTS.Text = SPEDITIONSBUCH.AtlasBezNrNCTS
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
@@ -896,6 +897,7 @@ Public Class frmNacherfassungNEU
SPEDITIONSBUCH.NCTS_Verzollungsadresse = txtT1Verzollungsadresse.Text
SPEDITIONSBUCH.AtlasBezNrEZA = txtAtlasBezNrEZA.Text
SPEDITIONSBUCH.AtlasBezNrAES = txtAtlasBezNrAES.Text
SPEDITIONSBUCH.AtlasBezNrNCTS = txtAtlasBezNrNCTS.Text
SPEDITIONSBUCH.Zollsystem = If(cboZollsystem._value = "", Nothing, cboZollsystem._value)
@@ -1036,7 +1038,7 @@ Public Class frmNacherfassungNEU
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnImport.Click
Label26.ForeColor = Color.Black
If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Then
If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Or txtAtlasBezNrAES.Text <> "" Then
If cboZollsystem._value = "" Then
Label26.ForeColor = Color.Red
Exit Sub
@@ -1056,6 +1058,7 @@ Public Class frmNacherfassungNEU
Dim EZANr = txtAtlasBezNrEZA.Text
Dim NCTSNr = txtAtlasBezNrNCTS.Text
Dim AESNr = txtAtlasBezNrAES.Text
If cboNiederlassung.Text <> "" Then
strManNl = cboNiederlassung.Text
@@ -1082,7 +1085,7 @@ Public Class frmNacherfassungNEU
lblLastMa.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
loadDatainSPEDBUCH()
SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound)
SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound,,, AESNr)
If notFound Then
lblZollsys.Visible = True
MsgBox("Der Eintrag wurde nicht gefunden!", vbInformation)
@@ -1375,7 +1378,7 @@ Public Class frmNacherfassungNEU
End If
End Sub
Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown
Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown, txtAtlasBezNrAES.KeyDown
If e.KeyCode = Keys.Return Then
btnImport.PerformClick()
End If

182
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb generated
View File

@@ -23,12 +23,12 @@ Partial Class usrCntlSpeditionsBuchSuche
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche))
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.cntxtCntxtSpeditionsbuch = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -72,6 +72,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button20 = New System.Windows.Forms.Button()
Me.Label46 = New System.Windows.Forms.Label()
@@ -162,7 +163,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label3 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.cbxEIDR = New System.Windows.Forms.CheckBox()
Me.cbxCMR = New System.Windows.Forms.CheckBox()
Me.Label41 = New System.Windows.Forms.Label()
@@ -194,7 +195,6 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label45 = New System.Windows.Forms.Label()
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
Me.pnlRechts.SuspendLayout()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -652,35 +652,35 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.DataGridView.AllowUserToDeleteRows = False
Me.DataGridView.AllowUserToOrderColumns = True
Me.DataGridView.AllowUserToResizeRows = False
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView.Location = New System.Drawing.Point(450, 0)
Me.DataGridView.Name = "DataGridView"
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.DataGridView.Size = New System.Drawing.Size(770, 227)
Me.DataGridView.TabIndex = 0
'
@@ -707,35 +707,35 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.dgvLKW.AllowUserToOrderColumns = True
Me.dgvLKW.AllowUserToResizeRows = False
Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvLKW.Location = New System.Drawing.Point(0, 0)
Me.dgvLKW.Name = "dgvLKW"
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvLKW.Size = New System.Drawing.Size(450, 227)
Me.dgvLKW.TabIndex = 35
Me.dgvLKW.Visible = False
@@ -866,7 +866,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
Me.MenuStrip1.Location = New System.Drawing.Point(601, 128)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(283, 27)
Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
Me.MenuStrip1.TabIndex = 89
Me.MenuStrip1.Text = "Kundenauswertungen"
'
@@ -884,17 +884,25 @@ Partial Class usrCntlSpeditionsBuchSuche
'
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
'
'ZFThyrnauZeitraumAuswählenToolStripMenuItem
'
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem"
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
'
'FlenderBocholtZeitraumAuswählenToolStripMenuItem
'
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem"
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
'
'cboHandlingssatz
'
Me.cboHandlingssatz._allowedValuesFreiText = Nothing
@@ -1876,7 +1884,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.txtBestimmungszollstelle)
Me.SplitContainer1.Panel2.Controls.Add(Me.txtZollstelle)
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxEIDR)
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxCMR)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label41)
@@ -2185,32 +2193,32 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
Me.DateTimePicker1.TabIndex = 2
'
'txtBestimmungszollstelle
'txtZollstelle
'
Me.txtBestimmungszollstelle._allowFreitext = False
Me.txtBestimmungszollstelle._AllowSetValue = False
Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtBestimmungszollstelle._autoSizeGross = False
Me.txtBestimmungszollstelle._hideIfListEmpty = True
Me.txtBestimmungszollstelle._value = Nothing
Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtBestimmungszollstelle.dgvpos = "LEFT"
Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtBestimmungszollstelle.key_visible = False
Me.txtBestimmungszollstelle.KEYPARAM = Nothing
Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(627, 192)
Me.txtBestimmungszollstelle.MaxLength = 50
Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
Me.txtBestimmungszollstelle.searchActive = True
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(106, 20)
Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtBestimmungszollstelle.TabIndex = 55
Me.txtBestimmungszollstelle.usrcntl = Nothing
Me.txtBestimmungszollstelle.Visible = False
Me.txtZollstelle._allowFreitext = False
Me.txtZollstelle._AllowSetValue = False
Me.txtZollstelle._allowSpaceAsSplitter = False
Me.txtZollstelle._autoSizeGross = False
Me.txtZollstelle._hideIfListEmpty = True
Me.txtZollstelle._value = Nothing
Me.txtZollstelle.conn_art = "FMZOLL"
Me.txtZollstelle.dgvpos = "LEFT"
Me.txtZollstelle.DISPLAY_PARAM = Nothing
Me.txtZollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtZollstelle.key_visible = False
Me.txtZollstelle.KEYPARAM = Nothing
Me.txtZollstelle.Location = New System.Drawing.Point(627, 192)
Me.txtZollstelle.MaxLength = 50
Me.txtZollstelle.Name = "txtZollstelle"
Me.txtZollstelle.searchActive = True
Me.txtZollstelle.Size = New System.Drawing.Size(106, 20)
Me.txtZollstelle.SQL_ORDER_BY = Nothing
Me.txtZollstelle.SQL_SELECT = Nothing
Me.txtZollstelle.SQL_WHERE = Nothing
Me.txtZollstelle.SQL_WhereParamList = Nothing
Me.txtZollstelle.TabIndex = 55
Me.txtZollstelle.usrcntl = Nothing
Me.txtZollstelle.Visible = False
'
'cbxEIDR
'
@@ -2708,14 +2716,6 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.SplitContainer.SplitterWidth = 2
Me.SplitContainer.TabIndex = 3
'
'FlenderBocholtZeitraumAuswählenToolStripMenuItem
'
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem"
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
'
'usrCntlSpeditionsBuchSuche
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2923,6 +2923,6 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents Button21 As Button
Friend WithEvents Button22 As Button
Friend WithEvents Button23 As Button
Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents txtZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
End Class

18
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -279,8 +279,8 @@ Public Class usrCntlSpeditionsBuchSuche
If cbxEIDR.CheckState = CheckState.Unchecked Then sqlstr &= " AND UK_EIDR_ausstehend=0 "
End If
If txtBestimmungszollstelle.Visible And txtBestimmungszollstelle._value <> "" Then
sqlstr &= " AND Bestimmungszollstelle='" & txtBestimmungszollstelle._value & "' "
If txtZollstelle.Visible And txtZollstelle._value <> "" Then
sqlstr &= " AND Zollstelle='" & txtZollstelle._value & "' "
End If
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND Speditionsbuch.[Personalnummer] = @Personalnummer "
@@ -379,7 +379,7 @@ Public Class usrCntlSpeditionsBuchSuche
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
' cboFilialeHandling.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
txtZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
cboHandlingssatz.fillWithSQL("SELECT [hs_Bezeichnung] FROM [tblHandlingssaetzeIntern] group by [hs_Bezeichnung] ", False, "FMZOLL", True)
@@ -1317,9 +1317,9 @@ Public Class usrCntlSpeditionsBuchSuche
End Sub
Print.Viewer.LoadDocument(rpt)
Print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
Print.Show()
print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
End If
End Sub
@@ -1894,7 +1894,7 @@ Public Class usrCntlSpeditionsBuchSuche
,BelegNr
,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung
FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
where EmpfängerKundenNr IN (" & kdNrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29)", "FMZOLL")
where EmpfängerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29)", "FMZOLL")
Dim Path = ""
If dt IsNot Nothing And dt.Rows.Count > 0 Then
@@ -2259,12 +2259,12 @@ Public Class usrCntlSpeditionsBuchSuche
End Sub
Private Sub lstGrenze_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstGrenze.SelectedIndexChanged
txtBestimmungszollstelle.Visible = False
txtZollstelle.Visible = False
For Each l In lstGrenze.SelectedItems
If l.text <> "???" Then Exit Sub
Next
txtBestimmungszollstelle.Visible = True
txtZollstelle.Visible = True
End Sub
Private Sub initToolStripMenu()

33
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -1,4 +1,6 @@
Public Class frmVorauskasse

Public Class frmVorauskasse
@@ -304,7 +306,7 @@
.Columns("vk_Datum").HeaderText = "Datum"
.Columns("vk_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("vk_LKW").Width = 120
.Columns("vk_LKW").Width = 120
.Columns("vk_LKW").HeaderText = "LKW Kennz."
@@ -340,7 +342,7 @@
.Columns("vk_storno").HeaderText = "Storno"
.Columns("vk_storno").Width = 45
' lblErgebnis.Text = "Ergebnise: " & .RowCount
' lblErgebnis.Text = "Ergebnise: " & .RowCount
End With
End Sub
@@ -487,7 +489,7 @@
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
If vbYes <> MsgBox("Möchten Sie die Vorauskasse wirklich löschen?", vbYesNoCancel) Then Exit Sub
VK.delete()
VK.DELETE()
MyDatagridview1.RELOAD()
setDGVOptions()
End If
@@ -613,8 +615,8 @@ Public Class cVorauskasseOptions
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Select Case VermerkCodeId
Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & If(CDbl(vk_Betrag) > 0, " (" & CDbl(vk_Betrag).ToString("C2") & ")", "")
Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten"
Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben"
Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk, myVermerk.AvisoID, myVermerk.SendungID)
Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk, myVermerk.AvisoID, myVermerk.SendungID)
Case Else : Exit Sub
End Select
If VermerkCodeId IsNot Nothing Then myVermerk.VermerkCodeId = VermerkCodeId
@@ -631,7 +633,7 @@ Public Class cVorauskasseOptions
Dim veragSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'", "AVISO")
If dt.Rows.Count = 0 Then Exit Sub
If dt.Rows.Count = 0 Then Exit Sub
If Not IsNumeric(dt.Rows(0)("tblSnd_SendungID")) Then Exit Sub
veragSQL.doSQL("DELETE TOP (1) FROM [Vermerke] where SendungID='" & dt.Rows(0)("tblSnd_SendungID") & "' AND VermerkeCode='" & VermerkCodeId & "' ", "AVISO")
@@ -652,6 +654,23 @@ Public Class cVorauskasseOptions
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Shared Sub insertBenachrichtigung(VermerkTxt, AvisoId, SendungID)
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO")
Dim art = "B"
If sendToID < 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO")
art = "T"
End If
'6 = VK OK
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungID, 6, art, sendToID, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, , VermerkTxt)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub

6
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -318,7 +318,7 @@ Public Class cADMIN
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
'Dim sql As String = "SELECT mit_vname,mit_nname,mit_berechtigung FROM tblUser where mit_username=@mit_username COLLATE Latin1_General_CS_AS and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS "
Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly,mit_abweichenderAnzeigename FROM " &
Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username, case WHEN isnull(mit_abweichenderAnzeigename,'')='' THEN mit_username ELSE mit_abweichenderAnzeigename END mit_usernameDisplay,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly,mit_abweichenderAnzeigename FROM " &
" tblMitarbeiter,tblBerProg where mit_username=@mit_username and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS AND (mit_firma=@mit_firma OR mit_firma='ALL' ) AND bepr_programm=@bepr_programm AND bepr_userId=mit_id "
@@ -345,7 +345,8 @@ Public Class cADMIN
' If cMitarbeiterAVISO.Grenzstelle = "Nickelsdorf" Then cMitarbeiterAVISO.Grenzstelle = "NKD"
' If cMitarbeiterAVISO.Grenzstelle = "Salzburg" Then cMitarbeiterAVISO.Grenzstelle = "SBG"
' If cMitarbeiterAVISO.Grenzstelle = "" Then cMitarbeiterAVISO.Grenzstelle = "???"
cMitarbeiterAVISO.Mitarbeiter = If(CStr(dr.Item("mit_abweichenderAnzeigename")) <> "", CStr(dr.Item("mit_abweichenderAnzeigename")), CStr(dr.Item("mit_username")))
cMitarbeiterAVISO.Mitarbeiter = CStr(dr.Item("mit_usernameDisplay"))
'cMitarbeiterAVISO.Mitarbeiter = If(CStr(dr.Item("mit_abweichenderAnzeigename")) <> "", CStr(dr.Item("mit_abweichenderAnzeigename")), CStr(dr.Item("mit_username")))
cMitarbeiterAVISO.Mitarbeitername = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname"))
cMitarbeiterAVISO.KW = CStr(dr.Item("mit_pwd"))
' cMitarbeiterAVISO.Sicherheitsstufe = CInt(dr.Item("ber_sicherheitsstufe"))
@@ -363,6 +364,7 @@ Public Class cADMIN
' VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME = CStr(dr.Item("mit_nname"))
'VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname"))
VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_username"))
' VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_usernameDisplay"))
If dr.Item("mit_firmaFMZoll") Is DBNull.Value Then
MsgBox("Benutzer muss einer Firma zugeordnet sein!")
Return False

4
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -423,8 +423,8 @@ Public Class cSendungen
Me.tblSnd_FrachtkostenGesamt = SQL.checkNullReturnValue(dr.Item("tblSnd_FrachtkostenGesamt"), Nothing)
Me.tblSnd_AbfertigungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR"), Nothing)
Me.tblSnd_AbfertigungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR_MA"), Nothing)
Me.tblSnd_AbfertigungTRAnzahl = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTRAnzahl"), Nothing)
Me.tblSnd_AbfertigungTRAnzahlPos = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTRAnzahlPos"), Nothing)
Me.tblSnd_AbfertigungTRAnzahl = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahl"))
Me.tblSnd_AbfertigungTRAnzahlPos = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahlPos"))
End If

15
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
View File

@@ -125,6 +125,21 @@ Public Class cSession
Public Shared Function IS_ONLINE(sess_maId) As Boolean
Try
Dim SQL As New SQL
Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_Id FROM tblSessions where sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_maId='" & sess_maId & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1)
If sess_IdOnline > 0 Then
Return True
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Public Shared Function GET_IP_FROM_MAID(sess_maId) As String
Dim SQL As New SQL
Return SQL.getValueTxtBySql(" SELECT TOP 1 isnull(sess_ipaddress,'') as sess_ipaddress FROM [tblSessions] where sess_lastRm > DATEADD(SECOND,-70, GETDATE()) AND sess_maId=" & sess_maId, "ADMIN")

8
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -137,6 +137,7 @@ Public Class cSpeditionsbuch
Property PersonalnummerQS As Object = Nothing 'int=-1
Property AtlasBezNrEZA As String = ""
Property AtlasBezNrNCTS As String = ""
Property AtlasBezNrAES As String = ""
Property Versendungsland As String = ""
Property SB_CMR As Boolean = False
Property SB_CMRDatum As Object = Nothing
@@ -185,6 +186,7 @@ Public Class cSpeditionsbuch
Property PersonalnummerAbklTR As Object = Nothing
Property UK_EIDR_ausstehend As Boolean = False
Property Zollstelle As Object = Nothing
Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
Property VORKOSTEN As New List(Of cVorkosten)
@@ -311,6 +313,7 @@ Public Class cSpeditionsbuch
Me.PersonalnummerQS = SQL.checkNullReturnValue(dr.Item("PersonalnummerQS"), Nothing)
Me.AtlasBezNrEZA = SQL.checkNullStr(dr.Item("AtlasBezNrEZA"))
Me.AtlasBezNrNCTS = SQL.checkNullStr(dr.Item("AtlasBezNrNCTS"))
Me.AtlasBezNrAES = SQL.checkNullStr(dr.Item("AtlasBezNrAES"))
Me.Versendungsland = SQL.checkNullStr(dr.Item("Versendungsland"))
Me.SB_CMR = SQL.checkNullBool(dr.Item("SB_CMR"))
Me.SB_CMRDatum = SQL.checkNullDateNothing(dr.Item("SB_CMRDatum"))
@@ -350,6 +353,7 @@ Public Class cSpeditionsbuch
Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren"))
Me.PersonalnummerAbklTR = SQL.checkNullReturnValue(dr.Item("PersonalnummerAbklTR"), Nothing)
Me.UK_EIDR_ausstehend = SQL.checkNullBool(dr.Item("UK_EIDR_ausstehend"))
Me.Zollstelle = SQL.checkNullReturnValue(dr.Item("Zollstelle"), Nothing)
Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)
@@ -376,7 +380,7 @@ Public Class cSpeditionsbuch
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr )", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr OR [AtlasBezNrAES]=@bezugsNr )", conn)
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
@@ -464,6 +468,7 @@ Public Class cSpeditionsbuch
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrAES", AtlasBezNrAES))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum))
@@ -503,6 +508,7 @@ Public Class cSpeditionsbuch
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UK_EIDR_ausstehend", UK_EIDR_ausstehend))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollstelle", Zollstelle))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))