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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-09-23 07:24:25 +02:00
parent 89d8e0a3a8
commit ce31c2c398
84 changed files with 4953 additions and 554 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Classes/cRKSV_Kasse.vb
View File

@@ -18,6 +18,9 @@ Public Class cRKSV_Kasse
Property rksv_AesKey As Object = Nothing Property rksv_AesKey As Object = Nothing
Property rksv_KassaGuid As Object = Nothing Property rksv_KassaGuid As Object = Nothing
Property rksv_ipAdresse As Object = Nothing Property rksv_ipAdresse As Object = Nothing
Property rksv_DE_TSE_Serial As Object = Nothing
Property rksv_DE_user As Object = Nothing
Property rksv_DE_pwd As Object = Nothing
Dim SQL As New SQL Dim SQL As New SQL
@@ -210,6 +213,9 @@ Public Class cRKSV_Kasse
Me.rksv_AesKey = cSqlDb.checkNullReturnValue(dr.Item("rksv_AesKey"), Nothing) Me.rksv_AesKey = cSqlDb.checkNullReturnValue(dr.Item("rksv_AesKey"), Nothing)
Me.rksv_KassaGuid = cSqlDb.checkNullReturnValue(dr.Item("rksv_KassaGuid"), Nothing) Me.rksv_KassaGuid = cSqlDb.checkNullReturnValue(dr.Item("rksv_KassaGuid"), Nothing)
Me.rksv_ipAdresse = cSqlDb.checkNullReturnValue(dr.Item("rksv_ipAdresse"), Nothing) Me.rksv_ipAdresse = cSqlDb.checkNullReturnValue(dr.Item("rksv_ipAdresse"), Nothing)
Me.rksv_DE_TSE_Serial = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_TSE_Serial"), Nothing)
Me.rksv_DE_user = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_user"), Nothing)
Me.rksv_DE_pwd = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_pwd"), Nothing)
End If End If
dr.Close() dr.Close()
@@ -240,6 +246,11 @@ Public Class cRKSV_Kasse
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_AesKey", rksv_AesKey)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_AesKey", rksv_AesKey))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_KassaGuid", rksv_KassaGuid)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_KassaGuid", rksv_KassaGuid))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ipAdresse", rksv_ipAdresse)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ipAdresse", rksv_ipAdresse))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_TSE_Serial", rksv_DE_TSE_Serial))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_user", rksv_DE_user))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_pwd", rksv_DE_pwd))
Return list Return list
End Function End Function

34
SDL/Fakturierung/cFakturierung.vb
View File

@@ -416,14 +416,22 @@ Public Class cFakturierung
rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "") rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "") rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")
rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
rpt.lblUID.Text = If(FIRMA.Firma_UID, "") rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim
Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case 21 '"UNISPED" Case 21 '"UNISPED"
rpt.txtBank1.Text = "????" rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
rpt.txtBank2.Text = "????" rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
rpt.picVERAG.Size = New SizeF(2.712, 0.61)
Case 22 '"UNISPED"
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
rpt.picVERAG.Size = New SizeF(2.712, 0.61)
Case 23 '"UNISPED"
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
rpt.picVERAG.Size = New SizeF(2.712, 0.61)
Case 20 '"IMEX" Case 20 '"IMEX"
If Rechnung.RechnungsLandKz = "TR" Then If Rechnung.RechnungsLandKz = "TR" Then
'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" 'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -648,7 +656,8 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
End Select End Select
@@ -892,12 +901,13 @@ Public Class cFakturierung
End If End If
End If End If
'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben
' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"
Dim RG_Bezeichnung = "Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" Dim RG_Bezeichnung = If(RECHNUNG.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(RECHNUNG.RechnungsNr, "") & ".pdf"
'Immer Exportieren, da in Therefore speichern 'Immer Exportieren, da in Therefore speichern
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False) rpt.Run(False)
p.NeverEmbedFonts = "" p.NeverEmbedFonts = ""
@@ -1037,7 +1047,7 @@ Public Class cFakturierung
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>" getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>" getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
Case 21 'UNISPED Case 21 'UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>" getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>" getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
Case 99 'GmbH Case 99 'GmbH
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>" getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
@@ -1400,7 +1410,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
End Select End Select
@@ -1703,7 +1713,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
End Select End Select

47
SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb generated
View File

@@ -48,6 +48,8 @@ Partial Class frmAbrechnungsMaske
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.cbx = New System.Windows.Forms.CheckBox() Me.cbx = New System.Windows.Forms.CheckBox()
Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
@@ -78,8 +80,6 @@ Partial Class frmAbrechnungsMaske
Me.btnBisJahr = New System.Windows.Forms.Button() Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = New System.Windows.Forms.Button() Me.btnVonJahr = New System.Windows.Forms.Button()
Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung() Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel1.SuspendLayout()
@@ -218,6 +218,7 @@ Partial Class frmAbrechnungsMaske
Me.cboPrinter._allowedValuesFreiText = Nothing Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = "" Me.cboPrinter._value = ""
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboPrinter.FormattingEnabled = True Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(142, 52) Me.cboPrinter.Location = New System.Drawing.Point(142, 52)
Me.cboPrinter.Name = "cboPrinter" Me.cboPrinter.Name = "cboPrinter"
@@ -409,6 +410,27 @@ Partial Class frmAbrechnungsMaske
Me.Panel1.Size = New System.Drawing.Size(575, 170) Me.Panel1.Size = New System.Drawing.Size(575, 170)
Me.Panel1.TabIndex = 0 Me.Panel1.TabIndex = 0
' '
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(453, 28)
Me.MyComboBox1.Margin = New System.Windows.Forms.Padding(2)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(83, 21)
Me.MyComboBox1.TabIndex = 53
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(345, 31)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(108, 13)
Me.Label14.TabIndex = 52
Me.Label14.Text = "Rechnungsdruck-Art:"
'
'cbx 'cbx
' '
Me.cbx.AutoSize = True Me.cbx.AutoSize = True
@@ -829,27 +851,6 @@ Partial Class frmAbrechnungsMaske
Me.UsrCntlFaktAbrechnung1.Size = New System.Drawing.Size(863, 615) Me.UsrCntlFaktAbrechnung1.Size = New System.Drawing.Size(863, 615)
Me.UsrCntlFaktAbrechnung1.TabIndex = 0 Me.UsrCntlFaktAbrechnung1.TabIndex = 0
' '
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(453, 28)
Me.MyComboBox1.Margin = New System.Windows.Forms.Padding(2)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(83, 21)
Me.MyComboBox1.TabIndex = 53
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(345, 31)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(108, 13)
Me.Label14.TabIndex = 52
Me.Label14.Text = "Rechnungsdruck-Art:"
'
'frmAbrechnungsMaske 'frmAbrechnungsMaske
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

6
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -50,6 +50,10 @@ Public Class frmAbrechnungsMaske
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("20") cboFirma.changeItem("20")
MyComboBox2.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) MyComboBox2.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)
Case "UNISPED"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID IN (21,22,23) ", False, "FMZOLL")
cboFirma.changeItem("21")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='UNISPED' 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)
Case "VERAGIMEX" Case "VERAGIMEX"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] ", False, "FMZOLL") cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] ", False, "FMZOLL")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -569,7 +573,7 @@ Public Class frmAbrechnungsMaske
initBtns("") initBtns("")
End Sub End Sub
Private Sub MyTextBox2_TextChanged(sender As Object, e As KeyEventArgs) Handles MyTextBox2.KeyDown, MyTextBox3.KeyDown ', MyTextBox2.TextChanged Private Sub MyTextBox2_TextChanged(sender As Object, e As KeyEventArgs) Handles MyTextBox2.KeyDown, MyTextBox3.KeyDown, MyTextBox2.TextChanged ', MyTextBox2.TextChanged
If e.KeyCode = Keys.Return Then If e.KeyCode = Keys.Return Then
initBtns("") initBtns("")
End If End If

199
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -186,7 +186,7 @@ Public Class frmFaktEmail
Dim TextHTML = "" Dim TextHTML = ""
Select Case RechnungsLandKz Select Case RechnungsLandKz
Case "TR" Case "TR"
txtSubject.Text = "Rechnung Nr. " & txtRgNr txtSubject.Text = If(BelegartenNr = 71, "Kredi Nr. ", "Fatura Nr. ") & txtRgNr
TextHTML = "Sayin Bayanlar ve Baylar," & vbNewLine & vbNewLine & "ekte baslikta yazan faturayi bulabilirsinz." TextHTML = "Sayin Bayanlar ve Baylar," & vbNewLine & vbNewLine & "ekte baslikta yazan faturayi bulabilirsinz."
TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Saygilarimizla" & vbNewLine & vbNewLine & "" TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Saygilarimizla" & vbNewLine & vbNewLine & ""
Case "A", "AT", "D", "DE", "CH" Case "A", "AT", "D", "DE", "CH"
@@ -194,7 +194,7 @@ Public Class frmFaktEmail
TextHTML = "Sehr geehrte Damen und Herren" & vbNewLine & vbNewLine & "im Anhang senden wir Ihnen die o.g. " & If(BelegartenNr = 71, "Gutschrift(en).", "Rechnung(en).") TextHTML = "Sehr geehrte Damen und Herren" & vbNewLine & vbNewLine & "im Anhang senden wir Ihnen die o.g. " & If(BelegartenNr = 71, "Gutschrift(en).", "Rechnung(en).")
TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & vbNewLine & "" TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & vbNewLine & ""
Case Else Case Else
txtSubject.Text = "Invoice No. " & txtRgNr txtSubject.Text = If(BelegartenNr = 71, "Credit No. ", "Invoice No. ") & txtRgNr
TextHTML = "Dear Sir or Madam," & vbNewLine & vbNewLine & "attached we send you the invoice mentioned above." TextHTML = "Dear Sir or Madam," & vbNewLine & vbNewLine & "attached we send you the invoice mentioned above."
TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Best regards" & vbNewLine & vbNewLine & "" TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Best regards" & vbNewLine & vbNewLine & ""
End Select End Select
@@ -278,8 +278,10 @@ Public Class frmFaktEmail
Mail.Display() Mail.Display()
'------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------
' STB /FA ' STB /FA SR: ABFRAGE FISKAL-VZ
send_StbFAMail(AD.AdressenNr, " Rg-Nr.: " & lastAktuelle_RgNr) If isFiskal Then
send_StbFAMail(AD.AdressenNr, " Rg-Nr.: " & lastAktuelle_RgNr, lastAktuelle_RgNr)
End If
'------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------
End If End If
@@ -318,7 +320,7 @@ Public Class frmFaktEmail
End If End If
RechnungsNr = RECHNUNG.RechnungsNr RechnungsNr = RECHNUNG.RechnungsNr
If pathRG <> "" Then ATTACHMENTS.Add(New cFakt_MailATTach(pathRG, "Rechnung.pdf")) If pathRG <> "" Then ATTACHMENTS.Add(New cFakt_MailATTach(pathRG, If(RECHNUNG.BelegartenKz = "AR", "Rechnung.pdf", "Gutschrift.pdf")))
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", RechnungsNr) RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", RechnungsNr)
@@ -349,7 +351,7 @@ Public Class frmFaktEmail
'------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------
' STB /FA ' STB /FA
send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr) send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr, RECHNUNG.RechnungsNr)
'------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------
Catch ex As Exception Catch ex As Exception
@@ -368,90 +370,95 @@ Public Class frmFaktEmail
End Sub End Sub
Sub send_StbFAMail(KundenNr, RgAbfNr) Sub send_StbFAMail(KundenNr, RgAbfNr, RechnungsNr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr) Try
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
If cbxSteuerberaterEmail.Checked Or cbxFAEmail.Checked Then Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
Dim outl As New Outlook.Application If cbxSteuerberaterEmail.Checked Or cbxFAEmail.Checked Then
Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem
Mail_StbFA = outl.CreateItem(0)
Mail_StbFA.Subject = txtSubject.Text
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" Dim outl As New Outlook.Application
Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem
Mail_StbFA = outl.CreateItem(0)
Mail_StbFA.Subject = txtSubject.Text
Select Case cboFaStb_Sprache._value Dim TextHTML = "<div style=""font-family:Calibri, Arial"">"
Case "DE"
TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">" Select Case cboFaStb_Sprache._value
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>" Case "DE"
TextHTML &= "<tr><td>UID-Nr.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
TextHTML &= "<tr><td>Firma:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
TextHTML &= "</table></b>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Sehr geehrte Damen & Herren!" & "<br>"
TextHTML &= "<br>"
TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "<br>"
TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "<br>"
TextHTML &= "<br>"
TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "<br>"
TextHTML &= "<br><br>"
TextHTML &= "Freundliche Grüße"
TextHTML &= "<br><br>"
Case "EN" TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
TextHTML &= "<tr><td>UID-Nr.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
TextHTML &= "<tr><td>Firma:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
TextHTML &= "</table></b>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Sehr geehrte Damen & Herren!" & "<br>"
TextHTML &= "<br>"
TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "<br>"
TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "<br>"
TextHTML &= "<br>"
TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "<br>"
TextHTML &= "<br><br>"
TextHTML &= "Freundliche Grüße"
TextHTML &= "<br><br>"
TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">" Case "EN"
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
TextHTML &= "<tr><td>VAT-ID.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
TextHTML &= "<tr><td>Company:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
TextHTML &= "</table></b>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Dear Sir or Madam!" & "<br>"
TextHTML &= "<br>"
TextHTML &= "We would like to inform you, that we made the customs clearance and subsequent intra-community supply of goods for the company above-mentioned (Code 4200).<br>"
TextHTML &= "The documents are attached." & "<br>"
TextHTML &= "<br>"
TextHTML &= "This intra-community acquisition has to be reported to the tax office." & "<br>"
TextHTML &= "<br><br>"
TextHTML &= "Yours faithfully,"
TextHTML &= "<br><br>"
End Select TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
TextHTML &= "<tr><td>VAT-ID.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
TextHTML &= "<tr><td>Company:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
TextHTML &= "</table></b>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Dear Sir or Madam!" & "<br>"
TextHTML &= "<br>"
TextHTML &= "We would like to inform you, that we made the customs clearance and subsequent intra-community supply of goods for the company above-mentioned (Code 4200).<br>"
TextHTML &= "The documents are attached." & "<br>"
TextHTML &= "<br>"
TextHTML &= "This intra-community acquisition has to be reported to the tax office." & "<br>"
TextHTML &= "<br><br>"
TextHTML &= "Yours faithfully,"
TextHTML &= "<br><br>"
TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID) End Select
TextHTML &= "</div>"
Mail_StbFA.HTMLBody = TextHTML TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID)
Mail_StbFA.Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff & RgAbfNr TextHTML &= "</div>"
If txtSteuerberaterEmail.Text <> "" Then Mail_StbFA.HTMLBody = TextHTML
Mail_StbFA.To = txtSteuerberaterEmail.Text Mail_StbFA.Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff & RgAbfNr
Mail_StbFA.CC = txtFAEmail.Text
Else If txtSteuerberaterEmail.Text <> "" Then
Mail_StbFA.To = txtFAEmail.Text Mail_StbFA.To = txtSteuerberaterEmail.Text
Mail_StbFA.CC = txtFAEmail.Text
Else
Mail_StbFA.To = txtFAEmail.Text
End If
'-----------------------------------------------------------------
'Steuerbescheid anfügen
'-----------------------------------------------------------------
getAnhaenge(False)
'Anhang an Mail anfügen
'-----------------------------------------------------------------
addAttachments(Mail_StbFA, RechnungsNr, cbxMergePDF.Checked)
'-----------------------------------------------------------------
Mail_StbFA.Display()
End If End If
'----------------------------------------------------------------- Catch ex As Exception
'Steuerbescheid anfügen MsgBox("Fehler beim Öffnen des Mail-Programmes (STB FA). " & ex.Message & ex.StackTrace)
'----------------------------------------------------------------- End Try
getAnhaenge(False)
'Anhang an Mail anfügen
'-----------------------------------------------------------------
addAttachments(Mail_StbFA, RECHNUNG.RechnungsNr, cbxMergePDF.Checked)
'-----------------------------------------------------------------
Mail_StbFA.Display()
End If
End Sub End Sub
Sub getAnhaenge(Optional vbd As Boolean = True) Sub getAnhaenge(Optional vbd As Boolean = True)
@@ -485,26 +492,29 @@ Public Class frmFaktEmail
Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, RgNr As Integer, MergePDF As Boolean) Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, RgNr As Integer, MergePDF As Boolean)
If ATTACHMENTS.Count = 0 Then Exit Sub If ATTACHMENTS.Count = 0 Then Exit Sub
Try
If MergePDF And ATTACHMENTS.Count > 1 Then If MergePDF And ATTACHMENTS.Count > 1 Then
Dim extension = ".pdf" Dim extension = ".pdf"
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Rechnungs_Anhänge_" & RgNr & extension, extension,, False, "Zusammenfassung") Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Rechnungs_Anhänge_" & RgNr & extension, extension,, False, "Zusammenfassung")
Dim myList As New List(Of String) Dim myList As New List(Of String)
For Each a In ATTACHMENTS : myList.Add(a.Pfad) : Next For Each a In ATTACHMENTS : myList.Add(a.Pfad) : Next
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) ' überscheiben ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) ' überscheiben
End If
End If End If
End If 'Anhang an Mail anfügen
'Anhang an Mail anfügen '-----------------------------------------------------------------
'----------------------------------------------------------------- For Each a In ATTACHMENTS
For Each a In ATTACHMENTS Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName) Next
Next '-----------------------------------------------------------------
'-----------------------------------------------------------------
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -531,7 +541,7 @@ Public Class frmFaktEmail
sender.ClearSelection() sender.ClearSelection()
End Sub End Sub
Dim isFiskal = False
Sub initList() Sub initList()
MyDatagridview1.Rows.Clear() MyDatagridview1.Rows.Clear()
@@ -541,6 +551,9 @@ Public Class frmFaktEmail
For Each r In SR_DT.Rows For Each r In SR_DT.Rows
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("SpeditionsbuchUnterNr")) Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("SpeditionsbuchUnterNr"))
initRowSpedbuch(SPEDBUCH) initRowSpedbuch(SPEDBUCH)
If SPEDBUCH.AbfertigungsNr = 26 Or SPEDBUCH.AbfertigungsNr = 28 Then
isFiskal = True
End If
Next Next
End Sub End Sub

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

@@ -194,6 +194,7 @@ Partial Class frmFaktSammelRgDrucken
Me.cboPrinter._allowedValuesFreiText = Nothing Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = "" Me.cboPrinter._value = ""
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboPrinter.FormattingEnabled = True Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(12, 268) Me.cboPrinter.Location = New System.Drawing.Point(12, 268)
Me.cboPrinter.Name = "cboPrinter" Me.cboPrinter.Name = "cboPrinter"

3
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -238,8 +238,7 @@ Public Class frmRechnungenSuche
cboFiliale.changeItem("5501") cboFiliale.changeItem("5501")
cboFiliale.Enabled = False cboFiliale.Enabled = False
Case "VERAGIMEX" Case "VERAGIMEX"
cboFiliale.changeItem("5501") ' cboFiliale.changeItem("5501")
End Select End Select
cboDatum.Items.Clear() cboDatum.Items.Clear()

36
SDL/Fakturierung/rptRechnungDruck.Designer.vb generated
View File

@@ -115,7 +115,7 @@ Partial Public Class rptRechnungDruck
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label37 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label37 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label39 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtWarenwert = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtWarenwert = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGrenzeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtGrenzeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
@@ -205,7 +205,7 @@ Partial Public Class rptRechnungDruck
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label37, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label37, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label39, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -431,14 +431,14 @@ Partial Public Class rptRechnungDruck
' '
'picVERAG 'picVERAG
' '
Me.picVERAG.Height = 0.4169292! Me.picVERAG.Height = 0.5389765!
Me.picVERAG.HyperLink = Nothing Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 0.01023622! Me.picVERAG.Left = 0.01023622!
Me.picVERAG.Name = "picVERAG" Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.1220473! Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.198425! Me.picVERAG.Width = 2.482677!
' '
'Label3 'Label3
' '
@@ -1197,7 +1197,7 @@ Partial Public Class rptRechnungDruck
' '
'GroupHeader4 'GroupHeader4
' '
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.Label4, Me.Label8, Me.Label6, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.Label37, Me.txtZollbelegNr, Me.Label39, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.Label42, Me.txtBef<EFBFBD>rderungsmittel, Me.Label43, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.Label4, Me.Label8, Me.Label6, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.Label37, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.Label42, Me.txtBef<EFBFBD>rderungsmittel, Me.Label43, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
Me.GroupHeader4.Height = 1.777811! Me.GroupHeader4.Height = 1.777811!
Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4" Me.GroupHeader4.Name = "GroupHeader4"
@@ -1355,17 +1355,17 @@ Partial Public Class rptRechnungDruck
Me.txtZollbelegNr.Top = 0.7980316! Me.txtZollbelegNr.Top = 0.7980316!
Me.txtZollbelegNr.Width = 2.659449! Me.txtZollbelegNr.Width = 2.659449!
' '
'Label39 'lblWarenWertUeberschrift
' '
Me.Label39.Height = 0.1574803! Me.lblWarenWertUeberschrift.Height = 0.1574803!
Me.Label39.HyperLink = Nothing Me.lblWarenWertUeberschrift.HyperLink = Nothing
Me.Label39.Left = 0! Me.lblWarenWertUeberschrift.Left = 0!
Me.Label39.Name = "Label39" Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift"
Me.Label39.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1" "har-set: 1"
Me.Label39.Text = "Warenwert:" Me.lblWarenWertUeberschrift.Text = "Warenwert:"
Me.Label39.Top = 0.9555119! Me.lblWarenWertUeberschrift.Top = 0.9555119!
Me.Label39.Width = 0.9366142! Me.lblWarenWertUeberschrift.Width = 0.9366142!
' '
'txtWarenwert 'txtWarenwert
' '
@@ -1386,7 +1386,7 @@ Partial Public Class rptRechnungDruck
Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift" Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift"
Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1" "har-set: 1"
Me.txtGrenzeUeberschrift.Text = "Grenze:" Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:"
Me.txtGrenzeUeberschrift.Top = 0.7980316! Me.txtGrenzeUeberschrift.Top = 0.7980316!
Me.txtGrenzeUeberschrift.Width = 1.020079! Me.txtGrenzeUeberschrift.Width = 1.020079!
' '
@@ -1592,7 +1592,7 @@ Partial Public Class rptRechnungDruck
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label37, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label37, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label39, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1631,7 +1631,6 @@ Partial Public Class rptRechnungDruck
Private WithEvents Label29 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label29 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label31 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label31 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label37 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label37 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label39 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label42 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label42 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label43 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label43 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label48 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label48 As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1711,4 +1710,5 @@ Partial Public Class rptRechnungDruck
Public WithEvents txtHandlingATA As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtHandlingATA As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblHandlingATA As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblHandlingATA As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnung_Land As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnung_Land As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblWarenWertUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
End Class End Class

4
SDL/Fakturierung/rptRechnungDruck.vb
View File

@@ -6,4 +6,8 @@ Public Class rptRechnungDruck
Private Sub GroupHeader3_Format(sender As Object, e As EventArgs) Private Sub GroupHeader3_Format(sender As Object, e As EventArgs)
End Sub End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class End Class

29
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

@@ -127,6 +127,7 @@ Partial Class usrCntlFaktAbrechnung
Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label()
Me.pnlRechnungAn = New System.Windows.Forms.Panel() Me.pnlRechnungAn = New System.Windows.Forms.Panel()
Me.picKdAuftrInfo = New System.Windows.Forms.PictureBox()
Me.lblKdInaktiv = New System.Windows.Forms.Label() Me.lblKdInaktiv = New System.Windows.Forms.Label()
Me.picWarnRgAn = New System.Windows.Forms.PictureBox() Me.picWarnRgAn = New System.Windows.Forms.PictureBox()
Me.lblUIDOK = New System.Windows.Forms.Label() Me.lblUIDOK = New System.Windows.Forms.Label()
@@ -228,6 +229,7 @@ Partial Class usrCntlFaktAbrechnung
Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.Timer = New System.Windows.Forms.Timer(Me.components) Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
Me.pnlTop.SuspendLayout() Me.pnlTop.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@@ -236,6 +238,7 @@ Partial Class usrCntlFaktAbrechnung
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlAuftraggeber.SuspendLayout() Me.pnlAuftraggeber.SuspendLayout()
Me.pnlRechnungAn.SuspendLayout() Me.pnlRechnungAn.SuspendLayout()
CType(Me.picKdAuftrInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picWarnRgAn, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picWarnRgAn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlAbsender.SuspendLayout() Me.pnlAbsender.SuspendLayout()
Me.Panel7.SuspendLayout() Me.Panel7.SuspendLayout()
@@ -1701,6 +1704,7 @@ Partial Class usrCntlFaktAbrechnung
' '
Me.pnlRechnungAn.BackColor = System.Drawing.Color.PapayaWhip Me.pnlRechnungAn.BackColor = System.Drawing.Color.PapayaWhip
Me.pnlRechnungAn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlRechnungAn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlRechnungAn.Controls.Add(Me.picKdAuftrInfo)
Me.pnlRechnungAn.Controls.Add(Me.lblKdInaktiv) Me.pnlRechnungAn.Controls.Add(Me.lblKdInaktiv)
Me.pnlRechnungAn.Controls.Add(Me.picWarnRgAn) Me.pnlRechnungAn.Controls.Add(Me.picWarnRgAn)
Me.pnlRechnungAn.Controls.Add(Me.lblUIDOK) Me.pnlRechnungAn.Controls.Add(Me.lblUIDOK)
@@ -1730,6 +1734,17 @@ Partial Class usrCntlFaktAbrechnung
Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 146) Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 146)
Me.pnlRechnungAn.TabIndex = 0 Me.pnlRechnungAn.TabIndex = 0
' '
'picKdAuftrInfo
'
Me.picKdAuftrInfo.BackgroundImage = Global.SDL.My.Resources.Resources.warning2
Me.picKdAuftrInfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picKdAuftrInfo.Location = New System.Drawing.Point(7, 116)
Me.picKdAuftrInfo.Name = "picKdAuftrInfo"
Me.picKdAuftrInfo.Size = New System.Drawing.Size(20, 20)
Me.picKdAuftrInfo.TabIndex = 87
Me.picKdAuftrInfo.TabStop = False
Me.picKdAuftrInfo.Visible = False
'
'lblKdInaktiv 'lblKdInaktiv
' '
Me.lblKdInaktiv.AutoSize = True Me.lblKdInaktiv.AutoSize = True
@@ -2870,6 +2885,7 @@ Partial Class usrCntlFaktAbrechnung
' '
Me.pnl.BackColor = System.Drawing.Color.Gainsboro Me.pnl.BackColor = System.Drawing.Color.Gainsboro
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.rtbAbf_Besonderheiten)
Me.pnl.Controls.Add(Me.cbxOriginalPrint) Me.pnl.Controls.Add(Me.cbxOriginalPrint)
Me.pnl.Controls.Add(Me.pnlDocs) Me.pnl.Controls.Add(Me.pnlDocs)
Me.pnl.Controls.Add(Me.cbxAdmin) Me.pnl.Controls.Add(Me.cbxAdmin)
@@ -3305,6 +3321,16 @@ Partial Class usrCntlFaktAbrechnung
' '
Me.Timer.Interval = 6000 Me.Timer.Interval = 6000
' '
'rtbAbf_Besonderheiten
'
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 39)
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 52)
Me.rtbAbf_Besonderheiten.TabIndex = 235
Me.rtbAbf_Besonderheiten.Visible = False
'
'usrCntlFaktAbrechnung 'usrCntlFaktAbrechnung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3330,6 +3356,7 @@ Partial Class usrCntlFaktAbrechnung
Me.pnlAuftraggeber.PerformLayout() Me.pnlAuftraggeber.PerformLayout()
Me.pnlRechnungAn.ResumeLayout(False) Me.pnlRechnungAn.ResumeLayout(False)
Me.pnlRechnungAn.PerformLayout() Me.pnlRechnungAn.PerformLayout()
CType(Me.picKdAuftrInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picWarnRgAn, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picWarnRgAn, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlAbsender.ResumeLayout(False) Me.pnlAbsender.ResumeLayout(False)
Me.pnlAbsender.PerformLayout() Me.pnlAbsender.PerformLayout()
@@ -3546,4 +3573,6 @@ Partial Class usrCntlFaktAbrechnung
Friend WithEvents rtbHandling As VERAG_PROG_ALLGEMEIN.MyRichTextBox Friend WithEvents rtbHandling As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label53 As Label Friend WithEvents Label53 As Label
Friend WithEvents Timer As Timer Friend WithEvents Timer As Timer
Friend WithEvents picKdAuftrInfo As PictureBox
Friend WithEvents rtbAbf_Besonderheiten As usrCntlKundenBesonderheiten
End Class End Class

67
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -52,10 +52,10 @@ Public Class usrCntlFaktAbrechnung
'Firma = 20 'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Firma = 20 'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
'cboFiliale.changeItem(5501) 'cboFiliale.changeItem(5501)
Case "UNISPED" Case "UNISPED"
Firma = 21 Firma = -1
cboFiliale.changeItem(5601) cboFiliale.changeItem(5601)
Case "AMBAR" Case "AMBAR"
Firma = 22 Firma = 24
cboFiliale.changeItem(5701) cboFiliale.changeItem(5701)
Case "FRONT-OFFICE" Case "FRONT-OFFICE"
Firma = 17 Firma = 17
@@ -478,18 +478,18 @@ Public Class usrCntlFaktAbrechnung
cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([Steuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True) cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([Steuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)
Dim whereFirma = "" Dim whereFirma = ""
Dim firstEmpty = False
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "IMEX" : whereFirma = " AND Firma_ID NOT IN (21,22) " : pnlDocs.Visible = True Case "VERAG", "IMEX" : whereFirma = " AND Firma_ID NOT IN (21,22,23,24) " : pnlDocs.Visible = True
'Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True 'Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True
'Case "IMEX" : whereFirma = " AND Firma_ID=20 " 'Case "IMEX" : whereFirma = " AND Firma_ID=20 "
Case "ATILLA" : whereFirma = " AND Firma_ID=7 " : pnlDocs.Visible = True Case "ATILLA" : whereFirma = " AND Firma_ID=7 " : pnlDocs.Visible = True
Case "UNISPED" : whereFirma = " AND Firma_ID=21 " Case "UNISPED" : whereFirma = " AND Firma_ID IN (21,22,23) " : firstEmpty = True
Case "AMBAR" : whereFirma = " AND Firma_ID=22 " Case "AMBAR" : whereFirma = " AND Firma_ID=24 "
Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 " Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 "
End Select End Select
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL") cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL", firstEmpty)
cboFirma.SelectedIndex = 0 cboFirma.SelectedIndex = 0
cboRechnungNotiz.fillWithSQL("SELECT [Notiz],[Notiz] as N2 FROM tblRechnungsnotizen", True, "FMZOLL", True) cboRechnungNotiz.fillWithSQL("SELECT [Notiz],[Notiz] as N2 FROM tblRechnungsnotizen", True, "FMZOLL", True)
@@ -520,7 +520,7 @@ Public Class usrCntlFaktAbrechnung
AddHandler kdFirmaRechnungAn.PropertyChanged, Sub() AddHandler kdFirmaRechnungAn.PropertyChanged, Sub()
Try Try
initKdAtrNr()
initRechnungKd() initRechnungKd()
FlatButton3.Image = IIf(kdFirmaRechnungAn.KdNr_value > 0, My.Resources.person1, My.Resources.personInaktiv) FlatButton3.Image = IIf(kdFirmaRechnungAn.KdNr_value > 0, My.Resources.person1, My.Resources.personInaktiv)
@@ -529,6 +529,18 @@ Public Class usrCntlFaktAbrechnung
initWarnKd(kdFirmaRechnungAn, picWarnRgAn) initWarnKd(kdFirmaRechnungAn, picWarnRgAn)
If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then
ToolTip.SetToolTip(picKdAuftrInfo, kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr)
picKdAuftrInfo.Cursor = Cursors.Hand
picKdAuftrInfo.Tag = kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr
Else
ToolTip.SetToolTip(picKdAuftrInfo, "")
picKdAuftrInfo.Cursor = Cursors.Default
picKdAuftrInfo.Tag = ""
End If
Try Try
Dim OfferteNnr = setOffertFromAbfArt() 'setzt dir OffertenNr in RECHNUNG, für die Auswahl wichtig! Dim OfferteNnr = setOffertFromAbfArt() 'setzt dir OffertenNr in RECHNUNG, für die Auswahl wichtig!
For Each r As DataGridViewRow In dgvOffertenSperrliste.Rows For Each r As DataGridViewRow In dgvOffertenSperrliste.Rows
@@ -688,6 +700,8 @@ Public Class usrCntlFaktAbrechnung
Label7.Text = "-" Label7.Text = "-"
txtRechnungAnBuKdNr.Text = "" txtRechnungAnBuKdNr.Text = ""
txtBesonderheiten.Text = "" txtBesonderheiten.Text = ""
rtbAbf_Besonderheiten.Visible = False
RECHNUNG.Lastschrift = Nothing RECHNUNG.Lastschrift = Nothing
RECHNUNG.Kunden_SVS = Nothing RECHNUNG.Kunden_SVS = Nothing
@@ -709,9 +723,18 @@ Public Class usrCntlFaktAbrechnung
End If End If
If kdFirmaRechnungAn.KdNr_value > 0 And kdFirmaRechnungAn.KdData_KUNDE IsNot Nothing Then If kdFirmaRechnungAn.KdNr_value > 0 And kdFirmaRechnungAn.KdData_KUNDE IsNot Nothing Then
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = kdFirmaRechnungAn.KdData_KUNDE Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = kdFirmaRechnungAn.KdData_KUNDE
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = kdFirmaRechnungAn.KdData_KUNDE_ERW
txtRechnungAnBuKdNr.Text = If(KD.KundenNrZentrale, "") txtRechnungAnBuKdNr.Text = If(KD.KundenNrZentrale, "")
txtBesonderheiten.Text = If(KD.Besonderheiten, "") txtBesonderheiten.Text = If(KD.Besonderheiten, "")
If KUNDE_ERW.kde_BesonderheitenNeu Then
rtbAbf_Besonderheiten.Size = txtBesonderheiten.Size
rtbAbf_Besonderheiten.init(kdFirmaRechnungAn.KdNr_value, "VRR", True)
rtbAbf_Besonderheiten.Visible = True
Else
rtbAbf_Besonderheiten.Visible = False
End If
RECHNUNG.Besonderheiten = KD.Besonderheiten RECHNUNG.Besonderheiten = KD.Besonderheiten
RECHNUNG.Kunden_SVS = KD.SVS RECHNUNG.Kunden_SVS = KD.SVS
RECHNUNG.Vorkasse = KD.Vorkasse RECHNUNG.Vorkasse = KD.Vorkasse
@@ -719,6 +742,8 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Vorlageprovision_Proz = KD.Vorlageprovision RECHNUNG.Vorlageprovision_Proz = KD.Vorlageprovision
End If End If
txtBesonderheiten.Visible = Not rtbAbf_Besonderheiten.Visible
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)
End Try End Try
@@ -818,10 +843,15 @@ Public Class usrCntlFaktAbrechnung
If SPEDBUCH IsNot Nothing Then txtKdAuftragsNr.Text = If(SPEDBUCH.KdAuftragsNrAvisierer, "") If SPEDBUCH IsNot Nothing Then txtKdAuftragsNr.Text = If(SPEDBUCH.KdAuftragsNrAvisierer, "")
Case Else Case Else
End Select End Select
initKdAtrNrBG()
End Sub
Sub initKdAtrNrBG()
picKdAuftrInfo.Visible = False
txtKdAuftragsNr.BackColor = Color.White txtKdAuftragsNr.BackColor = Color.White
If kdFirmaRechnungAn.KdNr > 0 Then If kdFirmaRechnungAn.KdNr > 0 Then
If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing Then If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing Then
If kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNr.BackColor = Color.LightYellow If kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNr.BackColor = Color.LightYellow : picKdAuftrInfo.Visible = True
End If End If
End If End If
End Sub End Sub
@@ -1264,7 +1294,7 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.FilialenNr = SPEDBUCH.FilialenNr RECHNUNG.FilialenNr = SPEDBUCH.FilialenNr
End If End If
'RECHNUNG.Firma_ID = If(cboFirma._value = "", -1, cboFirma._value)
RECHNUNG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum RECHNUNG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
RECHNUNG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr RECHNUNG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
@@ -1467,15 +1497,18 @@ Public Class usrCntlFaktAbrechnung
Case 20 : pic.BackgroundImage = My.Resources.IMEX_LOGO_simple Case 20 : pic.BackgroundImage = My.Resources.IMEX_LOGO_simple
pnlTop.BackColor = Color.FromArgb(250, 120, 0) : errCOlor = Color.DarkRed pnlTop.BackColor = Color.FromArgb(250, 120, 0) : errCOlor = Color.DarkRed
Case 21 : pic.BackgroundImage = My.Resources.Unisped_logo Case 21, 22, 23 : pic.BackgroundImage = My.Resources.Unisped_logo
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed
Case 22 : pic.BackgroundImage = My.Resources.ambar_simple Case 24 : pic.BackgroundImage = My.Resources.ambar_simple
pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed
Case 23 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal
pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed
'Case 23 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal
' pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed
Case 17 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal Case 17 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed
Case Else : pic.BackgroundImage = Nothing
pnlTop.BackColor = Color.Gray : errCOlor = Color.white
End Select End Select
@@ -1520,8 +1553,8 @@ Public Class usrCntlFaktAbrechnung
Case "4801" : cboFirma.changeItem(7) : RECHNUNG.Firma_ID = 7 Case "4801" : cboFirma.changeItem(7) : RECHNUNG.Firma_ID = 7
Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20 Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20
Case "5601" : cboFirma.changeItem(21) : RECHNUNG.Firma_ID = 21 'UNISPED Case "5601" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UNISPED
Case "5701" : cboFirma.changeItem(22) : RECHNUNG.Firma_ID = 22'AMBAR Case "5701" : cboFirma.changeItem(24) : RECHNUNG.Firma_ID = 24'AMBAR
Case "5801" : cboFirma.changeItem(17) : RECHNUNG.Firma_ID = 17 'FRONT-OFFICE Case "5801" : cboFirma.changeItem(17) : RECHNUNG.Firma_ID = 17 'FRONT-OFFICE
Case Else Case Else
@@ -1672,7 +1705,7 @@ Public Class usrCntlFaktAbrechnung
' RECHNUNG.Zucker_MRN_Datum = cProgramFunctions.isLeerNothing(XXXXXXXXX.text) ' RECHNUNG.Zucker_MRN_Datum = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
' RECHNUNG.Zucker_Aufschub = cProgramFunctions.isLeerNothing(XXXXXXXXX.text) ' RECHNUNG.Zucker_Aufschub = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
RECHNUNG.ReErfZeitstempel = Now RECHNUNG.ReErfZeitstempel = Now
RECHNUNG.Firma_ID = cProgramFunctions.isLeerNothing(cboFirma._value) RECHNUNG.Firma_ID = If(cboFirma._value = "", -1, cboFirma._value)
RECHNUNG.SpeditionsbuchUnterNr = cProgramFunctions.isLeerNothing(cboSpedBuchUnterNr._value) RECHNUNG.SpeditionsbuchUnterNr = cProgramFunctions.isLeerNothing(cboSpedBuchUnterNr._value)
RECHNUNG.ErfassungsNr = txtErfassungsnummer.Text RECHNUNG.ErfassungsNr = txtErfassungsnummer.Text

1
SDL/Formulare/Einheitspapier/frmEinheitspapier.Designer.vb generated
View File

@@ -260,6 +260,7 @@ Partial Class frmEinheitspapier
Me.txtSuchbegriff._TimeOnly = False Me.txtSuchbegriff._TimeOnly = False
Me.txtSuchbegriff._value = Nothing Me.txtSuchbegriff._value = Nothing
Me.txtSuchbegriff._Waehrung = False Me.txtSuchbegriff._Waehrung = False
Me.txtSuchbegriff._WaehrungZeichen = True
Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black
Me.txtSuchbegriff.Location = New System.Drawing.Point(18, 42) Me.txtSuchbegriff.Location = New System.Drawing.Point(18, 42)
Me.txtSuchbegriff.MaxLength = 80 Me.txtSuchbegriff.MaxLength = 80

8
SDL/Formulare/Einheitspapier/frmEinheitspapier.vb
View File

@@ -118,7 +118,7 @@ Public Class frmEinheitspapier
' c.cboPraeferenz.changeItem(If(EPBES.Präferenz, "")) ' c.cboPraeferenz.changeItem(If(EPBES.Präferenz, ""))
c.cboPraeferenz.Text = If(EPBES.Präferenz, "") c.cboPraeferenz.Text = If(EPBES.Präferenz, "")
c.txtKontingent.Text = If(EPBES.Kontingent, "") c.txtKontingent.Text = If(EPBES.Kontingent, "")
' c.txtEigenmasse.Text = If(EPBES.Eigenmasse, "") --> varialer Wert, nicht laden c.txtEigenmasse.Text = If(EPBES.Eigenmasse, "") 'FRÜHER::- -> varialer Wert, nicht laden
c.txtWtNr1.Text = If(EPBES.Warennummer1, "") c.txtWtNr1.Text = If(EPBES.Warennummer1, "")
c.txtWtNr2.Text = If(EPBES.Warennummer2, "") c.txtWtNr2.Text = If(EPBES.Warennummer2, "")
c.txtWtNr3.Text = If(EPBES.Warennummer3, "") c.txtWtNr3.Text = If(EPBES.Warennummer3, "")
@@ -199,7 +199,7 @@ Public Class frmEinheitspapier
p.Warennummer5 = usr.txtWtNr5.Text p.Warennummer5 = usr.txtWtNr5.Text
p.UrsprungslandCode = If(IsNumeric(usr.cboUrsprungsland._value), usr.cboUrsprungsland._value, Nothing) p.UrsprungslandCode = If(IsNumeric(usr.cboUrsprungsland._value), usr.cboUrsprungsland._value, Nothing)
' p.Rohmasse = usr.txtrohmasse.Text 'p.Rohmasse = usr.roh.Text
p.Kontingent = If(IsNumeric(usr.txtKontingent.Text), usr.txtKontingent.Text, Nothing) p.Kontingent = If(IsNumeric(usr.txtKontingent.Text), usr.txtKontingent.Text, Nothing)
p.Verfahren = usr.txtVerfahren.Text.Replace(" ", "") p.Verfahren = usr.txtVerfahren.Text.Replace(" ", "")
@@ -647,4 +647,8 @@ Public Class frmEinheitspapier
Private Sub UsrCntlEinheitspapier1_Load(sender As Object, e As EventArgs) Handles UsrCntlEinheitspapier1.Load Private Sub UsrCntlEinheitspapier1_Load(sender As Object, e As EventArgs) Handles UsrCntlEinheitspapier1.Load
End Sub End Sub
Private Sub cboSearch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSearch.SelectedIndexChanged
End Sub
End Class End Class

15
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -154,6 +154,7 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -176,7 +177,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(10).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -194,7 +195,7 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
@@ -213,10 +214,10 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.") dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("CS") ' cboFirma.changeItem("CS")
@@ -239,6 +240,7 @@
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("AG") ' cboFirma.changeItem("AG")
@@ -275,6 +277,7 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -297,7 +300,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(10).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -326,6 +329,7 @@
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
@@ -338,6 +342,7 @@
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.") dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
cboFirma.changeItem("CS") cboFirma.changeItem("CS")
@@ -360,6 +365,7 @@
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
cboFirma.changeItem("AG") cboFirma.changeItem("AG")
@@ -379,6 +385,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))

70
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -184,7 +184,7 @@ Public Class frmFormulare
End Try End Try
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText'", False, "FMZOLL", True) cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" Case "IMEX"
@@ -345,6 +345,10 @@ Public Class frmFormulare
AddHandler c.DELETE, AddressOf ControlDELETE AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Neukunde Fiskal DE"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
MyFlowLayoutPanel1.Controls.Add(c) MyFlowLayoutPanel1.Controls.Add(c)
End If End If
Case FormularManagerArten.AT_Vollmacht Case FormularManagerArten.AT_Vollmacht
@@ -381,6 +385,10 @@ Public Class frmFormulare
AddHandler c.DELETE, AddressOf ControlDELETE AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Neukunde Fiskal AT"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
MyFlowLayoutPanel1.Controls.Add(c) MyFlowLayoutPanel1.Controls.Add(c)
End If End If
Case FormularManagerArten.ATILLA_EXPORT Case FormularManagerArten.ATILLA_EXPORT
@@ -957,8 +965,8 @@ Public Class frmFormulare
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value) Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature() & "</div>" Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig) & "</div>"
Mail.Subject = tX.txt_betreff.Replace("%LKW%", "") Mail.Subject = tX.txt_betreff.Replace("%LKW%", "")
End If End If
@@ -1145,7 +1153,7 @@ Public Class frmFormulare
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTextkonserve.SelectedIndexChanged Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTextkonserve.SelectedIndexChanged
cboTextKonserveSprache.Items.Clear() cboTextKonserveSprache.Items.Clear()
If cboTextkonserve._value <> "" Then cboTextKonserveSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_bezeichnung]='" & cboTextkonserve._value & "' ", False, "FMZOLL", True) If cboTextkonserve._value <> "" Then cboTextKonserveSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_bezeichnung]='" & cboTextkonserve._value & "' and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
End Sub End Sub
End Class End Class
@@ -3335,6 +3343,21 @@ Public Class FormularManagerNEU
MailHTMLText = "<div style=""font-family:Calibri, Arial"">" MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">" MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">"
Dim Firma_idI_Sig_AT = -1
Dim Firma_idI_Sig_DE = -1
Dim Firma_idI_Sig_EV = -1
Dim Postfach_DE = "VERAG CUSTOMS SERVICE GMBH<br>POSTFACH 1013<br>D 94152 NEUHAUS AM INN<br>"
Dim SonderUID_AT = "ATU68374145"
Dim SonderUID_DE = "DE813667748"
Select Case usrCntl.cboFiliale._value
Case "5501" : Firma_idI_Sig_AT = 20 : Firma_idI_Sig_DE = 20 : Firma_idI_Sig_EV = 20 : SonderUID_AT = "DE295575575" : SonderUID_DE = "DE295575575" : Postfach_DE = "IMEX CUSTOMS SERVICE GMBH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
Case "5601" : Firma_idI_Sig_AT = 23 : Firma_idI_Sig_DE = 22 : Firma_idI_Sig_EV = 23 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "UNISPED Speditions GmbH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
Case Else : Firma_idI_Sig_AT = 11 : Firma_idI_Sig_DE = 99 : Firma_idI_Sig_EV = 11 ' VERAG
End Select
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "DE", "" Case "DE", ""
@@ -3421,7 +3444,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>" MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>" MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>" MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: " & SonderUID_AT & " an</b>.<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>" MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
@@ -3438,16 +3461,17 @@ Public Class FormularManagerNEU
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<b>Post Adresse:</b><br>" MailHTMLText &= "<b>Post Adresse:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>" 'MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>" 'MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>" 'MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= Postfach_DE
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>" MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11) MailHTMLText &= cFakturierung.getSignature("D", Firma_idI_Sig_AT) '11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11) MailHTMLText_STBFA &= cFakturierung.getSignature("D", Firma_idI_Sig_AT)' 11)
Case "EN" Case "EN"
Mail_Subject = "intra-community acquisition" & posNr Mail_Subject = "intra-community acquisition" & posNr
@@ -3458,7 +3482,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>" MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>" MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>" MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number " & SonderUID_AT & ".</b>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>" MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
@@ -3475,16 +3499,17 @@ Public Class FormularManagerNEU
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<b>Adress:</b><br>" MailHTMLText &= "<b>Adress:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>" 'MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>" 'MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>" 'MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= Postfach_DE
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>" MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11) MailHTMLText &= cFakturierung.getSignature("EN", Firma_idI_Sig_AT) '11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11) MailHTMLText_STBFA &= cFakturierung.getSignature("D", Firma_idI_Sig_AT) ' 11)
End Select End Select
@@ -3500,8 +3525,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>" MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>" MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number " & SonderUID_DE & ".</b> <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>" MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
@@ -3509,8 +3533,8 @@ Public Class FormularManagerNEU
MailHTMLText &= "Yours faithfully<br>" MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 99) MailHTMLText &= cFakturierung.getSignature("EN", Firma_idI_Sig_DE) '99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99) MailHTMLText_STBFA &= cFakturierung.getSignature("D", Firma_idI_Sig_DE) '99)
End Select End Select
@@ -3527,7 +3551,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "Freundlichen Grüßen<br>" MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11) MailHTMLText &= cFakturierung.getSignature("D", Firma_idI_Sig_EV)'11)
Case "EN" Case "EN"
Mail_Subject = "Verzollungsunterlagen" & posNr Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Dear Sir / Madam,<br>" MailHTMLText &= "Dear Sir / Madam,<br>"
@@ -3538,7 +3562,7 @@ Public Class FormularManagerNEU
MailHTMLText &= "Yours faithfully<br>" MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= "<br>" MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11) MailHTMLText &= cFakturierung.getSignature("EN", Firma_idI_Sig_EV) '11)
End Select End Select
@@ -3992,7 +4016,7 @@ Public Class FormularManagerNEU
usrCntl.lblCRsaved.ForeColor = Color.Green usrCntl.lblCRsaved.ForeColor = Color.Green
' VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL") ' VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL")
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId, , cVorauskasse.vk_Betrag) cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId, , cVorauskasse.vk_Betrag, cVorauskasse.vk_id)
cVorauskasse.SAVE() 'VermerkId speichern cVorauskasse.SAVE() 'VermerkId speichern
Return True Return True
Else Else

2
SDL/My Project/Resources.Designer.vb generated
View File

@@ -2102,7 +2102,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.6.8 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.7.2 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get Get

2
SDL/My Project/Resources.resx
View File

@@ -629,7 +629,7 @@
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Version" xml:space="preserve"> <data name="Version" xml:space="preserve">
<value>1.1.6.8</value> <value>1.1.7.2</value>
</data> </data>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

39
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.Designer.vb generated
View File

@@ -53,6 +53,7 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport2 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -102,12 +103,12 @@ Partial Public Class rptKontrolleLKW_NCTSTR
'Line 'Line
' '
Me.Line.Height = 0.00008200109! Me.Line.Height = 0.00008200109!
Me.Line.Left = 0.0! Me.Line.Left = 0!
Me.Line.LineWeight = 1.0! Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line" Me.Line.Name = "Line"
Me.Line.Top = 0.1901575! Me.Line.Top = 0.1901575!
Me.Line.Width = 7.677083! Me.Line.Width = 7.677083!
Me.Line.X1 = 0.0! Me.Line.X1 = 0!
Me.Line.X2 = 7.677083! Me.Line.X2 = 7.677083!
Me.Line.Y1 = 0.1901575! Me.Line.Y1 = 0.1901575!
Me.Line.Y2 = 0.1902395! Me.Line.Y2 = 0.1902395!
@@ -186,14 +187,14 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Si-Sum" Me.Label4.Text = "Si-Sum"
Me.Label4.Top = 0.0! Me.Label4.Top = 0!
Me.Label4.Width = 0.7972444! Me.Label4.Width = 0.7972444!
' '
'Label9 'Label9
' '
Me.Label9.Height = 0.1895669! Me.Label9.Height = 0.1895669!
Me.Label9.HyperLink = Nothing Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.0! Me.Label9.Left = 0!
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold" Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Nr" Me.Label9.Text = "Nr"
@@ -221,7 +222,7 @@ Partial Public Class rptKontrolleLKW_NCTSTR
' '
Me.lblNr.Height = 0.1374016! Me.lblNr.Height = 0.1374016!
Me.lblNr.HyperLink = Nothing Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 0.0! Me.lblNr.Left = 0!
Me.lblNr.Name = "lblNr" Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 8pt; font-weight: normal" Me.lblNr.Style = "font-size: 8pt; font-weight: normal"
Me.lblNr.Text = "500." Me.lblNr.Text = "500."
@@ -302,12 +303,12 @@ Partial Public Class rptKontrolleLKW_NCTSTR
'Line2 'Line2
' '
Me.Line2.Height = 0.00008201972! Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.0! Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0! Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2" Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02519685! Me.Line2.Top = 0.02519685!
Me.Line2.Width = 7.677083! Me.Line2.Width = 7.677083!
Me.Line2.X1 = 0.0! Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677083! Me.Line2.X2 = 7.677083!
Me.Line2.Y1 = 0.02519685! Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887! Me.Line2.Y2 = 0.02527887!
@@ -320,14 +321,14 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.picVERAG.Left = 5.0! Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG" Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0! Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166! Me.picVERAG.Width = 2.677166!
' '
'lblText1 'lblText1
' '
Me.lblText1.Height = 0.4082677! Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.0! Me.lblText1.Left = 0!
Me.lblText1.Name = "lblText1" Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold" Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS LKW-Liste" Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS LKW-Liste"
@@ -375,15 +376,15 @@ Partial Public Class rptKontrolleLKW_NCTSTR
' '
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzLKWs, Me.lblAnzT}) Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzLKWs, Me.lblAnzT, Me.SubReport2})
Me.ReportFooter1.Height = 0.6272475! Me.ReportFooter1.Height = 0.95!
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
' '
'Label1 'Label1
' '
Me.Label1.Height = 0.1374017! Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0! Me.Label1.Left = 0!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal" Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe LKWs:" Me.Label1.Text = "Summe LKWs:"
@@ -446,7 +447,18 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.lblAnzT.Top = 0.4795276! Me.lblAnzT.Top = 0.4795276!
Me.lblAnzT.Width = 0.5122049! Me.lblAnzT.Width = 0.5122049!
' '
'rptKontrolleLKW_Dakosy 'SubReport2
'
Me.SubReport2.CloseBorder = False
Me.SubReport2.Height = 0.1374016!
Me.SubReport2.Left = 0!
Me.SubReport2.Name = "SubReport2"
Me.SubReport2.Report = Nothing
Me.SubReport2.ReportName = "SubReport1"
Me.SubReport2.Top = 0.8125985!
Me.SubReport2.Width = 6.100394!
'
'rptKontrolleLKW_NCTSTR
' '
Me.MasterReport = False Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504! Me.PageSettings.Margins.Bottom = 0.1968504!
@@ -529,4 +541,5 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
End Class End Class

49
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb
View File

@@ -10,7 +10,7 @@ Public Class rptKontrolleLKW_NCTSTR
Dim operatorID = "1" Dim operatorID = "1"
Dim kundenSQL As New kundenSQL Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = Nothing Dim SUB_DATA As DataTable = Nothing
Dim LIST_NCTSABR As VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST = Nothing
'Public brg As String = "05DE0000000009345," 'default brg 'Public brg As String = "05DE0000000009345," 'default brg
Public erstelltVon As String = "" Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
@@ -56,6 +56,10 @@ Public Class rptKontrolleLKW_NCTSTR
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') " firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
End If End If
If True Then '"OREGON"
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("OREGON")
End If
' If FIRMA = "ATILLA" Then operatorID = "'5','6'" ' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId " Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
@@ -83,6 +87,7 @@ Public Class rptKontrolleLKW_NCTSTR
SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "FMZOLL", 1000) SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "FMZOLL", 1000)
lblText1.Text = lblText1.Text & " - " & FIRMA lblText1.Text = lblText1.Text & " - " & FIRMA
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "" '"B<>rgschaft: " & brg Label7.Text = "" '"B<>rgschaft: " & brg
@@ -131,6 +136,23 @@ Public Class rptKontrolleLKW_NCTSTR
End Sub End Sub
End If End If
If LIST_NCTSABR IsNot Nothing Then
For Each l In LIST_NCTSABR.LIST
If CDbl(Fields.Item("GarantieWert").Value) < l.abrg_GarantiewertBis Then
Select Case l.abrg_artAbrechnung
Case "LKW" : l._ANZAHL += 1 : Exit For
Case "%"
l._ANZAHL += 1
Dim prozent As Double = 0.001
If l.abrg_prozent IsNot Nothing Then prozent = CDbl(l.abrg_prozent)
l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent : Exit For
End Select
End If
Next
End If
'Abwechselnd grauen und wei<65>en Hintergrund 'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then If (dummycount Mod 2) = 0 Then
Detail.BackColor = Drawing.Color.White Detail.BackColor = Drawing.Color.White
@@ -150,5 +172,30 @@ Public Class rptKontrolleLKW_NCTSTR
lblAnzLKWs.Text = anzLkw lblAnzLKWs.Text = anzLkw
lblAnzT.Text = anzT lblAnzT.Text = anzT
If LIST_NCTSABR IsNot Nothing Then
Dim dt As New DataTable
dt.Columns.Add("GARANTIEBIS")
dt.Columns.Add("ANZAHL")
dt.Columns.Add("EINZALBETRAG")
dt.Columns.Add("GESAMTBETRAG")
dt.Columns.Add("BETRAG")
dt.Columns.Add("ART")
For Each l In LIST_NCTSABR.LIST
If l._ANZAHL > 0 Then dt.Rows.Add(l.abrg_GarantiewertBis, l._ANZAHL, l.abrg_bertrag, l.abrg_bertrag * l._ANZAHL, l._BETRAG, l.abrg_artAbrechnung)
Next
Dim subrpt As New subrptKontrolleLKW_NCTSTR_Abrechnung
'subrpt.Kennzeichen = Fields.Item("Kennzeichen").Value
'subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
subrpt.DataSource = dt
Me.SubReport2.Report = subrpt
End If
End Sub End Sub
End Class End Class

290
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.Designer.vb generated Normal file
View File

@@ -0,0 +1,290 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptKontrolleLKW_NCTSTR_Abrechnung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblGarantieBis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEinzelpreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGesamtpreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblGesamtsumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGarantieBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEinzelpreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesamtpreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesamtsumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Label1
'
Me.Label1.Height = 0.2208662!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label1.Text = "Garantiewert"
Me.Label1.Top = 0.5602363!
Me.Label1.Width = 1.48937!
'
'Label2
'
Me.Label2.Height = 0.2208662!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.48937!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label2.Text = "Anzahl"
Me.Label2.Top = 0.5602363!
Me.Label2.Width = 1.041339!
'
'Label3
'
Me.Label3.Height = 0.2208662!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 2.530709!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label3.Text = "Einzelpreis"
Me.Label3.Top = 0.5602363!
Me.Label3.Width = 1.041339!
'
'Label4
'
Me.Label4.Height = 0.2208662!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 3.572048!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label4.Text = "Gesamtpreis"
Me.Label4.Top = 0.5602363!
Me.Label4.Width = 1.041339!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblGarantieBis, Me.lblAnzahl, Me.lblEinzelpreis, Me.lblGesamtpreis})
Me.Detail.Height = 0.168504!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'lblGarantieBis
'
Me.lblGarantieBis.Height = 0.168504!
Me.lblGarantieBis.HyperLink = Nothing
Me.lblGarantieBis.Left = 0!
Me.lblGarantieBis.Name = "lblGarantieBis"
Me.lblGarantieBis.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblGarantieBis.Text = "Garantiewert bis"
Me.lblGarantieBis.Top = 0!
Me.lblGarantieBis.Width = 1.48937!
'
'lblAnzahl
'
Me.lblAnzahl.Height = 0.168504!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 1.48937!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblAnzahl.Text = "Anzahl"
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 1.041339!
'
'lblEinzelpreis
'
Me.lblEinzelpreis.Height = 0.168504!
Me.lblEinzelpreis.HyperLink = Nothing
Me.lblEinzelpreis.Left = 2.530709!
Me.lblEinzelpreis.Name = "lblEinzelpreis"
Me.lblEinzelpreis.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblEinzelpreis.Text = "Einzelpreis"
Me.lblEinzelpreis.Top = 0!
Me.lblEinzelpreis.Width = 1.041339!
'
'lblGesamtpreis
'
Me.lblGesamtpreis.Height = 0.168504!
Me.lblGesamtpreis.HyperLink = Nothing
Me.lblGesamtpreis.Left = 3.572048!
Me.lblGesamtpreis.Name = "lblGesamtpreis"
Me.lblGesamtpreis.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblGesamtpreis.Text = "Gesamtpreis"
Me.lblGesamtpreis.Top = 0!
Me.lblGesamtpreis.Width = 1.041339!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Line})
Me.ReportHeader1.Height = 0.7811025!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Label5
'
Me.Label5.Height = 0.2208662!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 12pt; font-weight: bold; text-decoration: underline; ddo-char-set: 1"
Me.Label5.Text = "Abrechnungstabelle"
Me.Label5.Top = 0.264567!
Me.Label5.Width = 3.291339!
'
'Line
'
Me.Line.Height = 0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.7653544!
Me.Line.Width = 4.613386!
Me.Line.X1 = 0!
Me.Line.X2 = 4.613386!
Me.Line.Y1 = 0.7653544!
Me.Line.Y2 = 0.7653544!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblGesamtsumme, Me.Label11, Me.Line1, Me.Line2})
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'lblGesamtsumme
'
Me.lblGesamtsumme.Height = 0.168504!
Me.lblGesamtsumme.HyperLink = Nothing
Me.lblGesamtsumme.Left = 3.572047!
Me.lblGesamtsumme.Name = "lblGesamtsumme"
Me.lblGesamtsumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesamtsumme.Text = "Gesamtpreis"
Me.lblGesamtsumme.Top = 0.05196851!
Me.lblGesamtsumme.Width = 1.041339!
'
'Label11
'
Me.Label11.Height = 0.168504!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 2.529528!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.Label11.Text = "Gesamtsumme:"
Me.Label11.Top = 0.05196851!
Me.Label11.Width = 1.041339!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 3.572047!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.25!
Me.Line1.Width = 1.04134!
Me.Line1.X1 = 3.572047!
Me.Line1.X2 = 4.613387!
Me.Line1.Y1 = 0.25!
Me.Line1.Y2 = 0.25!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 3.572047!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.2204725!
Me.Line2.Width = 1.041339!
Me.Line2.X1 = 3.572047!
Me.Line2.X2 = 4.613386!
Me.Line2.Y1 = 0.2204725!
Me.Line2.Y2 = 0.2204725!
'
'subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.100394!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGarantieBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEinzelpreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesamtpreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesamtsumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblGarantieBis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEinzelpreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesamtpreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesamtsumme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

126
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

63
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb Normal file
View File

@@ -0,0 +1,63 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
Public AnzT = 0
Public GesSumme As Double = 0
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
End Sub
Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
' MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
Me.Cancel() 'ev. abbrechen, falls noch aufgebaut wird
End Sub
'''''''' ADD AT RUNTIME:
'Dim d As New GrapeCity.ActiveReports.SectionReportModel.TextBox
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'Format + R<>nder setzen
Me.PageSettings.Orientation = Section.PageOrientation.Portrait
Me.PageSettings.Margins.Left = 0.3
Me.PageSettings.Margins.Right = 0.3
Me.PageSettings.Margins.Top = 0.5
Me.PageSettings.Margins.Bottom = 0.4
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
lblGarantieBis.Text = "bis <20> " & CDbl(Fields.Item("GARANTIEBIS").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAnzahl.Text = CInt(Fields.Item("ANZAHL").Value)
Select Case Fields.Item("ART").Value
Case "LKW"
lblEinzelpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("EINZALBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
Case "%"
lblEinzelpreis.Text = ""
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
End Select
GesSumme += "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value)
AnzT += 1
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
' Detail.BackColor = Drawing.Color.White
Else
' Detail.BackColor = Drawing.Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblGesamtsumme.Text = "<EFBFBD> " & GesSumme.ToString("N2", CultureInfo.InvariantCulture)
End Sub
End Class

BIN
SDL/Resources/Unisped_logo.jpg
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 121 KiB

After

Width:  |  Height:  |  Size: 113 KiB

29
SDL/SDL.vbproj
View File

@@ -453,12 +453,30 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.vb"> <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmKundenBesonderheiten_Add.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\usrCntlKundenBesonderheiten.Designer.vb">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.Designer.vb"> <Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.Designer.vb">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon> <DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.vb"> <Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </Compile>
<Compile Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR_Abrechnung.Designer.vb">
<DependentUpon>subrptKontrolleLKW_NCTSTR_Abrechnung.vb</DependentUpon>
</Compile>
<Compile Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR_Abrechnung.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR.Designer.vb"> <Compile Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR.Designer.vb">
<DependentUpon>subrptKontrolleLKW_NCTSTR.vb</DependentUpon> <DependentUpon>subrptKontrolleLKW_NCTSTR.vb</DependentUpon>
</Compile> </Compile>
@@ -2484,9 +2502,18 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.resx"> <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.resx">
<DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon> <DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.resx"> <EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.resx">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon> <DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR_Abrechnung.resx">
<DependentUpon>subrptKontrolleLKW_NCTSTR_Abrechnung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR.resx"> <EmbeddedResource Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR.resx">
<DependentUpon>subrptKontrolleLKW_NCTSTR.vb</DependentUpon> <DependentUpon>subrptKontrolleLKW_NCTSTR.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -3848,6 +3875,7 @@
<ItemGroup> <ItemGroup>
<Content Include="My Project\logo_mdm.png" /> <Content Include="My Project\logo_mdm.png" />
<Content Include="My Project\zoll.png" /> <Content Include="My Project\zoll.png" />
<None Include="Resources\Unisped_logo.jpg" />
<None Include="Resources\unisped_aeo_AT.jpg" /> <None Include="Resources\unisped_aeo_AT.jpg" />
<None Include="Resources\oregon.png" /> <None Include="Resources\oregon.png" />
<None Include="Resources\Telefonliste_small.png" /> <None Include="Resources\Telefonliste_small.png" />
@@ -3855,7 +3883,6 @@
<None Include="Resources\person_add.jpg" /> <None Include="Resources\person_add.jpg" />
<None Include="Resources\plose_cz.png" /> <None Include="Resources\plose_cz.png" />
<None Include="Resources\plose_it.png" /> <None Include="Resources\plose_it.png" />
<None Include="Resources\Unisped_logo.jpg" />
<None Include="Resources\plose.png" /> <None Include="Resources\plose.png" />
<None Include="Resources\plose_big.png" /> <None Include="Resources\plose_big.png" />
<None Include="Resources\ok_gray.png" /> <None Include="Resources\ok_gray.png" />

12
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb generated
View File

@@ -53,6 +53,7 @@ Partial Class usrCntlATLAS_EZA
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BezugsnummerKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.SuspendLayout() Me.SplitContainer.SuspendLayout()
@@ -351,9 +352,9 @@ Partial Class usrCntlATLAS_EZA
' '
'cntxtBezugsnr 'cntxtBezugsnr
' '
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem}) Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem, Me.BezugsnummerKopierenToolStripMenuItem})
Me.cntxtBezugsnr.Name = "cntxtBezugsnr" Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26) Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 70)
Me.cntxtBezugsnr.Text = "Bezugsnr" Me.cntxtBezugsnr.Text = "Bezugsnr"
' '
'NeueBezugsnummerVergebenToolStripMenuItem 'NeueBezugsnummerVergebenToolStripMenuItem
@@ -436,6 +437,12 @@ Partial Class usrCntlATLAS_EZA
Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22) Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.EZAIDToolStripMenuItem.Text = "EZA ID" Me.EZAIDToolStripMenuItem.Text = "EZA ID"
' '
'BezugsnummerKopierenToolStripMenuItem
'
Me.BezugsnummerKopierenToolStripMenuItem.Name = "BezugsnummerKopierenToolStripMenuItem"
Me.BezugsnummerKopierenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
Me.BezugsnummerKopierenToolStripMenuItem.Text = "Bezugsnummer kopieren"
'
'usrCntlATLAS_EZA 'usrCntlATLAS_EZA
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -489,4 +496,5 @@ Partial Class usrCntlATLAS_EZA
Friend WithEvents btnDV1 As System.Windows.Forms.Button Friend WithEvents btnDV1 As System.Windows.Forms.Button
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EZAIDToolStripMenuItem As ToolStripMenuItem Friend WithEvents EZAIDToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BezugsnummerKopierenToolStripMenuItem As ToolStripMenuItem
End Class End Class

16
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -441,8 +441,9 @@ Public Class usrCntlATLAS_EZA
If If(SH.EZA.PrePaperNr, "") <> "" Then EZA.eza_VorpapierNr = SH.EZA.PrePaperNr If If(SH.EZA.PrePaperNr, "") <> "" Then EZA.eza_VorpapierNr = SH.EZA.PrePaperNr
If If(SH.EZA.CountryCodeDeparture, "") <> "" Then EZA.eza_VersendungsLandCode = SH.EZA.CountryCodeDeparture If If(SH.EZA.CountryCodeDeparture, "") <> "" Then EZA.eza_VersendungsLandCode = SH.EZA.CountryCodeDeparture
If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.eza_VerkehrszweigInland = SH.EZA.TransportBorderType If If(SH.EZA.TransportModeBorder, "") <> "" Then EZA.eza_VerkehrszweigInland = SH.EZA.TransportModeBorder
If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.eza_VerkehrszweigGrenze = SH.EZA.TransportBorderType If If(SH.EZA.TransportModeBorder, "") <> "" Then EZA.eza_VerkehrszweigGrenze = SH.EZA.TransportModeBorder
If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.eza_BeförderungsmittelGrenzeArt = SH.EZA.TransportBorderType
'If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then 'If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
' EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ) ' EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
@@ -463,10 +464,12 @@ Public Class usrCntlATLAS_EZA
EZA_POS.ezaWP_UrsprungslandCode = SH_POS.OriginCountryCode EZA_POS.ezaWP_UrsprungslandCode = SH_POS.OriginCountryCode
If If(SH_POS.KindOfPackages, "") <> "" Then EZA_POS.ezaWP_PackstueckArt = SH_POS.KindOfPackages 'If If(SH_POS.KindOfPackages, "") <> "" Then EZA_POS.ezaWP_PackstueckArt = SH_POS.KindOfPackages
EZA_POS.ezaWP_PackstueckArt = "PK"
If SH_POS.ItemInvoiceAmount IsNot Nothing Then If SH_POS.ItemInvoiceAmount IsNot Nothing Then
EZA_POS.ezaWP_Artikelpreis = SH_POS.ItemInvoiceAmount EZA_POS.ezaWP_Artikelpreis = SH_POS.ItemInvoiceAmount
EZA_POS.ezaWP_ArtikelpreisWaehrung = SH_POS.ItemInvoiceCurrency
EZA_POS.ezaWP_AHStatWert = SH_POS.ItemInvoiceAmount EZA_POS.ezaWP_AHStatWert = SH_POS.ItemInvoiceAmount
InvoiceSum += CDbl(SH_POS.ItemInvoiceAmount) InvoiceSum += CDbl(SH_POS.ItemInvoiceAmount)
If SH_POS.ItemInvoiceCurrency = "" Then If SH_POS.ItemInvoiceCurrency = "" Then
@@ -496,7 +499,8 @@ Public Class usrCntlATLAS_EZA
Next Next
EZA.eza_Rechnungspreis = InvoiceSum EZA.eza_Rechnungspreis = InvoiceSum
If InvoiceCurr <> "XXX" Then EZA.eza_Rechnungswaehrung = InvoiceCurr ' If InvoiceCurr <> "XXX" Then EZA.eza_Rechnungswaehrung = InvoiceCurr
If If(SH.EZA.InvoiceCurrency, "") <> "" Then EZA.eza_Rechnungswaehrung = SH.EZA.InvoiceCurrency
Dim LieferbedingungOrtAbsedner = "" Dim LieferbedingungOrtAbsedner = ""
Dim LieferbedingungOrtEmpfaenger = "" Dim LieferbedingungOrtEmpfaenger = ""
@@ -734,5 +738,9 @@ Public Class usrCntlATLAS_EZA
MsgBox(EZA.eza_Id) MsgBox(EZA.eza_Id)
End If End If
End Sub End Sub
Private Sub BezugsnummerKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BezugsnummerKopierenToolStripMenuItem.Click
Clipboard.SetText(lblBezugsnummer.Text)
End Sub
End Class End Class

51
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb generated
View File

@@ -49,7 +49,6 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.txtPositionszusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPositionszusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lklBearbeitungAbbrechenUl = New System.Windows.Forms.LinkLabel() Me.lklBearbeitungAbbrechenUl = New System.Windows.Forms.LinkLabel()
Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label31 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label()
Me.txtWarennummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtWarennummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtWTZ2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtWTZ2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -85,6 +84,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.txtArtikelpreisWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
@@ -93,6 +93,7 @@ Partial Class usrCntlATLAS_EZA_Position
' '
Me.pnl.AutoScroll = True Me.pnl.AutoScroll = True
Me.pnl.BackColor = System.Drawing.Color.FloralWhite Me.pnl.BackColor = System.Drawing.Color.FloralWhite
Me.pnl.Controls.Add(Me.txtArtikelpreisWaehrung)
Me.pnl.Controls.Add(Me.sbAHStatMasseinheit) Me.pnl.Controls.Add(Me.sbAHStatMasseinheit)
Me.pnl.Controls.Add(Me.Label12) Me.pnl.Controls.Add(Me.Label12)
Me.pnl.Controls.Add(Me.txtAHStatMenge) Me.pnl.Controls.Add(Me.txtAHStatMenge)
@@ -117,7 +118,6 @@ Partial Class usrCntlATLAS_EZA_Position
Me.pnl.Controls.Add(Me.Label6) Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.txtPositionszusatz) Me.pnl.Controls.Add(Me.txtPositionszusatz)
Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenUl) Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenUl)
Me.pnl.Controls.Add(Me.cboWaehrung)
Me.pnl.Controls.Add(Me.Label31) Me.pnl.Controls.Add(Me.Label31)
Me.pnl.Controls.Add(Me.txtWarennummer) Me.pnl.Controls.Add(Me.txtWarennummer)
Me.pnl.Controls.Add(Me.txtWTZ2) Me.pnl.Controls.Add(Me.txtWTZ2)
@@ -158,6 +158,7 @@ Partial Class usrCntlATLAS_EZA_Position
' '
Me.sbAHStatMasseinheit._allowFreitext = False Me.sbAHStatMasseinheit._allowFreitext = False
Me.sbAHStatMasseinheit._AllowSetValue = False Me.sbAHStatMasseinheit._AllowSetValue = False
Me.sbAHStatMasseinheit._allowSpaceAsSplitter = False
Me.sbAHStatMasseinheit._autoSizeGross = False Me.sbAHStatMasseinheit._autoSizeGross = False
Me.sbAHStatMasseinheit._hideIfListEmpty = True Me.sbAHStatMasseinheit._hideIfListEmpty = True
Me.sbAHStatMasseinheit._value = Nothing Me.sbAHStatMasseinheit._value = Nothing
@@ -294,6 +295,7 @@ Partial Class usrCntlATLAS_EZA_Position
' '
Me.sbUrsprungsland._allowFreitext = False Me.sbUrsprungsland._allowFreitext = False
Me.sbUrsprungsland._AllowSetValue = False Me.sbUrsprungsland._AllowSetValue = False
Me.sbUrsprungsland._allowSpaceAsSplitter = False
Me.sbUrsprungsland._autoSizeGross = False Me.sbUrsprungsland._autoSizeGross = False
Me.sbUrsprungsland._hideIfListEmpty = True Me.sbUrsprungsland._hideIfListEmpty = True
Me.sbUrsprungsland._value = "" Me.sbUrsprungsland._value = ""
@@ -457,19 +459,6 @@ Partial Class usrCntlATLAS_EZA_Position
Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen" Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen"
Me.lklBearbeitungAbbrechenUl.Visible = False Me.lklBearbeitungAbbrechenUl.Visible = False
' '
'cboWaehrung
'
Me.cboWaehrung._allowedValuesFreiText = Nothing
Me.cboWaehrung._allowFreiText = False
Me.cboWaehrung._value = ""
Me.cboWaehrung.Enabled = False
Me.cboWaehrung.FormattingEnabled = True
Me.cboWaehrung.Location = New System.Drawing.Point(281, 213)
Me.cboWaehrung.Name = "cboWaehrung"
Me.cboWaehrung.Size = New System.Drawing.Size(67, 21)
Me.cboWaehrung.TabIndex = 21
Me.cboWaehrung.Text = "EUR"
'
'Label31 'Label31
' '
Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -559,6 +548,7 @@ Partial Class usrCntlATLAS_EZA_Position
' '
Me.sbKundenzolltarif._allowFreitext = False Me.sbKundenzolltarif._allowFreitext = False
Me.sbKundenzolltarif._AllowSetValue = False Me.sbKundenzolltarif._AllowSetValue = False
Me.sbKundenzolltarif._allowSpaceAsSplitter = False
Me.sbKundenzolltarif._autoSizeGross = False Me.sbKundenzolltarif._autoSizeGross = False
Me.sbKundenzolltarif._hideIfListEmpty = True Me.sbKundenzolltarif._hideIfListEmpty = True
Me.sbKundenzolltarif._value = Nothing Me.sbKundenzolltarif._value = Nothing
@@ -600,6 +590,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtEigenmasse.Name = "txtEigenmasse" Me.txtEigenmasse.Name = "txtEigenmasse"
Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20) Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20)
Me.txtEigenmasse.TabIndex = 24 Me.txtEigenmasse.TabIndex = 24
Me.txtEigenmasse.Text = "0,00"
' '
'txtRohmasse 'txtRohmasse
' '
@@ -622,6 +613,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtRohmasse.Name = "txtRohmasse" Me.txtRohmasse.Name = "txtRohmasse"
Me.txtRohmasse.Size = New System.Drawing.Size(117, 20) Me.txtRohmasse.Size = New System.Drawing.Size(117, 20)
Me.txtRohmasse.TabIndex = 25 Me.txtRohmasse.TabIndex = 25
Me.txtRohmasse.Text = "0,00"
' '
'Label27 'Label27
' '
@@ -645,6 +637,7 @@ Partial Class usrCntlATLAS_EZA_Position
' '
Me.sbUlArt._allowFreitext = False Me.sbUlArt._allowFreitext = False
Me.sbUlArt._AllowSetValue = False Me.sbUlArt._AllowSetValue = False
Me.sbUlArt._allowSpaceAsSplitter = False
Me.sbUlArt._autoSizeGross = False Me.sbUlArt._autoSizeGross = False
Me.sbUlArt._hideIfListEmpty = True Me.sbUlArt._hideIfListEmpty = True
Me.sbUlArt._value = Nothing Me.sbUlArt._value = Nothing
@@ -669,6 +662,7 @@ Partial Class usrCntlATLAS_EZA_Position
' '
Me.sbPkTyp._allowFreitext = False Me.sbPkTyp._allowFreitext = False
Me.sbPkTyp._AllowSetValue = False Me.sbPkTyp._AllowSetValue = False
Me.sbPkTyp._allowSpaceAsSplitter = False
Me.sbPkTyp._autoSizeGross = False Me.sbPkTyp._autoSizeGross = False
Me.sbPkTyp._hideIfListEmpty = True Me.sbPkTyp._hideIfListEmpty = True
Me.sbPkTyp._value = Nothing Me.sbPkTyp._value = Nothing
@@ -992,6 +986,31 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label11.Text = "Ursprungsland:" Me.Label11.Text = "Ursprungsland:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'txtArtikelpreisWaehrung
'
Me.txtArtikelpreisWaehrung._allowFreitext = False
Me.txtArtikelpreisWaehrung._AllowSetValue = False
Me.txtArtikelpreisWaehrung._allowSpaceAsSplitter = False
Me.txtArtikelpreisWaehrung._autoSizeGross = False
Me.txtArtikelpreisWaehrung._hideIfListEmpty = True
Me.txtArtikelpreisWaehrung._value = ""
Me.txtArtikelpreisWaehrung.conn_art = "FMZOLL"
Me.txtArtikelpreisWaehrung.dgvpos = "LEFT"
Me.txtArtikelpreisWaehrung.DISPLAY_PARAM = Nothing
Me.txtArtikelpreisWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtArtikelpreisWaehrung.key_visible = False
Me.txtArtikelpreisWaehrung.KEYPARAM = Nothing
Me.txtArtikelpreisWaehrung.Location = New System.Drawing.Point(281, 214)
Me.txtArtikelpreisWaehrung.Name = "txtArtikelpreisWaehrung"
Me.txtArtikelpreisWaehrung.searchActive = True
Me.txtArtikelpreisWaehrung.Size = New System.Drawing.Size(67, 20)
Me.txtArtikelpreisWaehrung.SQL_ORDER_BY = Nothing
Me.txtArtikelpreisWaehrung.SQL_SELECT = Nothing
Me.txtArtikelpreisWaehrung.SQL_WHERE = Nothing
Me.txtArtikelpreisWaehrung.SQL_WhereParamList = Nothing
Me.txtArtikelpreisWaehrung.TabIndex = 60
Me.txtArtikelpreisWaehrung.usrcntl = Nothing
'
'usrCntlATLAS_EZA_Position 'usrCntlATLAS_EZA_Position
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1037,7 +1056,6 @@ Partial Class usrCntlATLAS_EZA_Position
Friend WithEvents txtWarennummer As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtWarennummer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtWTZ2 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtWTZ2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtWTZ1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtWTZ1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cboWaehrung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lklBearbeitungAbbrechenUl As System.Windows.Forms.LinkLabel Friend WithEvents lklBearbeitungAbbrechenUl As System.Windows.Forms.LinkLabel
Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtPositionszusatz As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtPositionszusatz As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -1068,4 +1086,5 @@ Partial Class usrCntlATLAS_EZA_Position
Friend WithEvents Label12 As Label Friend WithEvents Label12 As Label
Friend WithEvents txtAHStatMenge As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAHStatMenge As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents sbAHStatMasseinheit As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents sbAHStatMasseinheit As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents txtArtikelpreisWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
End Class End Class

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb
View File

@@ -113,6 +113,7 @@
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("420 - Kontingent im Rahmen einer Zollunion", "420")) cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("420 - Kontingent im Rahmen einer Zollunion", "420"))
txtArtikelpreisWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
setvalue(WARE) setvalue(WARE)
@@ -139,6 +140,7 @@
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0)) RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0))
Me.txtEigenmasse.Text = If(WARE.ezaWP_Eigenmasse, "") Me.txtEigenmasse.Text = If(WARE.ezaWP_Eigenmasse, "")
Me.txtWarenwert._value = If(WARE.ezaWP_Artikelpreis, "") Me.txtWarenwert._value = If(WARE.ezaWP_Artikelpreis, "")
Me.txtArtikelpreisWaehrung.SET_VALUE(If(WARE.ezaWP_ArtikelpreisWaehrung, ""))
' Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "") ' Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "")
txtAHStatMenge.Text = If(WARE.ezaWP_AHStatMenge, "") txtAHStatMenge.Text = If(WARE.ezaWP_AHStatMenge, "")

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb
View File

@@ -230,6 +230,7 @@
POSITION.ezaWP_WarennummerZusatzCode2 = cProgramFunctions.isLeerNothing(P.txtWTZ2.Text) POSITION.ezaWP_WarennummerZusatzCode2 = cProgramFunctions.isLeerNothing(P.txtWTZ2.Text)
POSITION.ezaWP_Warenbezeichnung = cProgramFunctions.isLeerNothing(P.txtWarenbezeichnung.Text) POSITION.ezaWP_Warenbezeichnung = cProgramFunctions.isLeerNothing(P.txtWarenbezeichnung.Text)
POSITION.ezaWP_Artikelpreis = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value) POSITION.ezaWP_Artikelpreis = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
POSITION.ezaWP_ArtikelpreisWaehrung = cProgramFunctions.isLeerNothing(P.txtArtikelpreisWaehrung._value)
'POSITION.ezaWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text 'POSITION.ezaWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text
'POSITION.ezaWP_SchaetzKz = P.XXXXXXXXXXXX.Text 'POSITION.ezaWP_SchaetzKz = P.XXXXXXXXXXXX.Text

22
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -429,7 +429,13 @@ Class DAKOSY_Interface_SEND
If u.ezaWP_AbgabensteuerungKz IsNot Nothing Then WP.AbgabensteuerungKz = CInt(Int(u.ezaWP_AbgabensteuerungKz)) If u.ezaWP_AbgabensteuerungKz IsNot Nothing Then WP.AbgabensteuerungKz = CInt(Int(u.ezaWP_AbgabensteuerungKz))
If u.ezaWP_EUCode IsNot Nothing Then WP.EUCode = u.ezaWP_EUCode If u.ezaWP_EUCode IsNot Nothing Then WP.EUCode = u.ezaWP_EUCode
If u.ezaWP_UrsprungslandCode IsNot Nothing Then WP.UrsprungslandCode = u.ezaWP_UrsprungslandCode If u.ezaWP_UrsprungslandCode IsNot Nothing Then WP.UrsprungslandCode = u.ezaWP_UrsprungslandCode
If u.ezaWP_Rohmasse IsNot Nothing Then WP.Rohmasse = u.ezaWP_Rohmasse
If cDY.eza_WARENPOS.Count > 1 Then
WP.Rohmasse = Nothing
Else
If u.ezaWP_Rohmasse IsNot Nothing Then WP.Rohmasse = u.ezaWP_Rohmasse
End If
If u.ezaWP_Eigenmasse IsNot Nothing Then WP.Eigenmasse = u.ezaWP_Eigenmasse If u.ezaWP_Eigenmasse IsNot Nothing Then WP.Eigenmasse = u.ezaWP_Eigenmasse
If u.ezaWP_AHStatMenge IsNot Nothing Then WP.AHStatMenge = u.ezaWP_AHStatMenge If u.ezaWP_AHStatMenge IsNot Nothing Then WP.AHStatMenge = u.ezaWP_AHStatMenge
If u.ezaWP_AHStatMengeMasseinheit IsNot Nothing Then WP.AHStatMengeMasseinheit = u.ezaWP_AHStatMengeMasseinheit If u.ezaWP_AHStatMengeMasseinheit IsNot Nothing Then WP.AHStatMengeMasseinheit = u.ezaWP_AHStatMengeMasseinheit
@@ -661,6 +667,20 @@ Class DAKOSY_Interface_SEND
If u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft IsNot Nothing Then WP.Aussenhandelsstatistik.ArtGeschaeft = u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft If u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft IsNot Nothing Then WP.Aussenhandelsstatistik.ArtGeschaeft = u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft
If u.ezaWP_Aussenhandelsstatistik_Statistikstatus IsNot Nothing Then WP.Aussenhandelsstatistik.Statistikstatus = u.ezaWP_Aussenhandelsstatistik_Statistikstatus If u.ezaWP_Aussenhandelsstatistik_Statistikstatus IsNot Nothing Then WP.Aussenhandelsstatistik.Statistikstatus = u.ezaWP_Aussenhandelsstatistik_Statistikstatus
'DV1
If u.ezaWP_Artikelpreis IsNot Nothing Then
Dim ABZHRG As New FreierVerkehrAktVeredelUmwandlung_004.AbzugHinzurechnungAVUVTyp
ABZHRG.Betrag = u.ezaWP_Artikelpreis
ABZHRG.Waehrung = u.ezaWP_ArtikelpreisWaehrung
ABZHRG.ArtCode = "R"
If If(ABZHRG.Waehrung, "") = "EUR" Then ABZHRG.KursAuslandswaehrung = 1
WP.Artikelpreis = u.ezaWP_Artikelpreis
WP.AbzugHinzurechnung.Add(ABZHRG)
End If
EA.WarenPosition.Add(WP) EA.WarenPosition.Add(WP)
Next Next
End If End If

6
SDL/cProgramFunctions.vb
View File

@@ -837,6 +837,12 @@ Public Class cProgramFunctions
End Sub End Sub
Public Sub initPIN(pintxt As VERAG_PROG_ALLGEMEIN.MyTextBox)
' If pintxt.Text <> "" Then pintxt.Enabled = False : pintxt.ForeColor = Color.Black
If pintxt.Text <> "" Then pintxt.ReadOnly = True : pintxt.BackColor = Color.WhiteSmoke
pintxt.initPINSHowPic()
End Sub
Public Sub addPicToGueltigBis(tb As TextBox) Public Sub addPicToGueltigBis(tb As TextBox)
Dim pb As New VERAG_PROG_ALLGEMEIN.MyLinkPicBoxVALUE Dim pb As New VERAG_PROG_ALLGEMEIN.MyLinkPicBoxVALUE
tb.Parent.Controls.Add(pb) tb.Parent.Controls.Add(pb)

2
SDL/cServerClient.vb
View File

@@ -130,6 +130,8 @@ Public Class cServerClient
Case "initAufschubkonten" Case "initAufschubkonten"
Send("initAufschubkonten", clientSocket) Send("initAufschubkonten", clientSocket)
status = "sendTask" status = "sendTask"
End Select End Select
' MsgBox("!!!!!ConSuccess --> initAufschubkonten") ' MsgBox("!!!!!ConSuccess --> initAufschubkonten")

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

@@ -327,7 +327,7 @@
If MyDatagridview1.SelectedRows.Count > 0 Then If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value) Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_GELDEINGANG(True, txtBemerkung.Text) VK.SET_GELDEINGANG(True, txtBemerkung.Text)
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14) cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,,,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
'cVorauskasseOptions.SpeichernVermerkIDAufgehoben(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14) 'cVorauskasseOptions.SpeichernVermerkIDAufgehoben(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
txtBemerkung.Text = "" txtBemerkung.Text = ""
@@ -456,12 +456,10 @@
If MyDatagridview1.SelectedRows.Count > 0 Then If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value) Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_FREIGEGEBEN(True, txtBemerkung.Text) VK.SET_FREIGEGEBEN(True, txtBemerkung.Text)
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 59,, True, If(VK.vk_VermerkId, -1), If(VK.vk_SendungId, -1)) cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 59,, True, If(VK.vk_VermerkId, -1), If(VK.vk_SendungId, -1),, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
txtBemerkung.Text = "" txtBemerkung.Text = ""
MyDatagridview1.RELOAD() MyDatagridview1.RELOAD()
setDGVOptions() setDGVOptions()
End If End If
End Sub End Sub
@@ -520,7 +518,7 @@ End Class
Public Class cVorauskasseOptions Public Class cVorauskasseOptions
Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing, Optional Freigegeben = False, Optional ByRef VermerkId = -1, Optional tblSnd_SendungID = -1, Optional vk_Betrag = Nothing) Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing, Optional Freigegeben = False, Optional ByRef VermerkId = -1, Optional tblSnd_SendungID = -1, Optional vk_Betrag = Nothing, Optional VorauskasseId = Nothing)
Try Try
If vk_Betrag Is Nothing Then vk_Betrag = 0 If vk_Betrag Is Nothing Then vk_Betrag = 0
@@ -533,6 +531,7 @@ Public Class cVorauskasseOptions
Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
' MsgBox("ThenSELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'") ' MsgBox("ThenSELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'")
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If tblSnd_SendungID > 0 Then If tblSnd_SendungID > 0 Then
dt = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where tblSnd_SendungID='" & tblSnd_SendungID & "' ", "AVISO") dt = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where tblSnd_SendungID='" & tblSnd_SendungID & "' ", "AVISO")
Else Else
@@ -552,6 +551,7 @@ Public Class cVorauskasseOptions
myVermerk.SendungID = dt.Rows(0)("tblSnd_SendungID") myVermerk.SendungID = dt.Rows(0)("tblSnd_SendungID")
myVermerk.Datum = If(DatumTmp, Now) myVermerk.Datum = If(DatumTmp, Now)
myVermerk.VermerkArt = "S" myVermerk.VermerkArt = "S"
myVermerk.VorauskasseId = VorauskasseId
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)" myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)"
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Select Case VermerkCodeId Select Case VermerkCodeId

135
SDL/kunden/frmKundenBesonderheiten_Add.Designer.vb generated Normal file
View File

@@ -0,0 +1,135 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmKundenBesonderheiten_Add
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenBesonderheiten_Add))
Me.lbl = New System.Windows.Forms.Label()
Me.rtbText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.cbxHervorheben = New System.Windows.Forms.CheckBox()
Me.lblErr = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(20, 15)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(55, 13)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Kategorie:"
'
'rtbText
'
Me.rtbText.Location = New System.Drawing.Point(81, 39)
Me.rtbText.MaxLineLength = -1
Me.rtbText.MaxLines_Warning = ""
Me.rtbText.MaxLines_Warning_Label = Nothing
Me.rtbText.Name = "rtbText"
Me.rtbText.Size = New System.Drawing.Size(420, 121)
Me.rtbText.TabIndex = 1
Me.rtbText.Text = ""
'
'cboKategorie
'
Me.cboKategorie._allowedValuesFreiText = Nothing
Me.cboKategorie._allowFreiText = False
Me.cboKategorie._value = ""
Me.cboKategorie.FormattingEnabled = True
Me.cboKategorie.Location = New System.Drawing.Point(81, 12)
Me.cboKategorie.Name = "cboKategorie"
Me.cboKategorie.Size = New System.Drawing.Size(420, 21)
Me.cboKategorie.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(20, 39)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(31, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Text:"
'
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(380, 166)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(121, 36)
Me.btn.TabIndex = 4
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = True
'
'cbxHervorheben
'
Me.cbxHervorheben.AutoSize = True
Me.cbxHervorheben.Location = New System.Drawing.Point(81, 166)
Me.cbxHervorheben.Name = "cbxHervorheben"
Me.cbxHervorheben.Size = New System.Drawing.Size(88, 17)
Me.cbxHervorheben.TabIndex = 5
Me.cbxHervorheben.Text = "Hervorheben"
Me.cbxHervorheben.UseVisualStyleBackColor = True
'
'lblErr
'
Me.lblErr.AutoSize = True
Me.lblErr.ForeColor = System.Drawing.Color.Red
Me.lblErr.Location = New System.Drawing.Point(175, 167)
Me.lblErr.Name = "lblErr"
Me.lblErr.Size = New System.Drawing.Size(33, 13)
Me.lblErr.TabIndex = 6
Me.lblErr.Text = "ERR:"
Me.lblErr.Visible = False
'
'frmKundenBesonderheiten_Add
'
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(513, 204)
Me.Controls.Add(Me.lblErr)
Me.Controls.Add(Me.cbxHervorheben)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cboKategorie)
Me.Controls.Add(Me.rtbText)
Me.Controls.Add(Me.lbl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmKundenBesonderheiten_Add"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Besonderheiten"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As Label
Friend WithEvents rtbText As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents cboKategorie As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As Label
Friend WithEvents btn As Button
Friend WithEvents cbxHervorheben As CheckBox
Friend WithEvents lblErr As Label
End Class

980
SDL/kunden/frmKundenBesonderheiten_Add.resx Normal file
View File

@@ -0,0 +1,980 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

67
SDL/kunden/frmKundenBesonderheiten_Add.vb Normal file
View File

@@ -0,0 +1,67 @@
Public Class frmKundenBesonderheiten_Add
Dim KD_BESONSERHEITEN As VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten
Dim KdNr As Integer = -1
Sub New(KdNr)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
KD_BESONSERHEITEN = New VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten
Me.KdNr = KdNr
End Sub
Sub New(kdb_id, KdNr)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
KD_BESONSERHEITEN = New VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten(kdb_id)
Me.KdNr = KdNr
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
lblErr.Visible = False
If rtbText.Text = "" Then
lblErr.Text = "ERR: Text fehlt!"
lblErr.Visible = True
Exit Sub
End If
If cboKategorie._value = "" Then
lblErr.Text = "ERR: Kategorie auswählen!"
lblErr.Visible = True
Exit Sub
End If
If KD_BESONSERHEITEN.hasEntry Then
KD_BESONSERHEITEN.kdb_history = 1
KD_BESONSERHEITEN.SAVE()
KD_BESONSERHEITEN.kdb_id = -1 ' zurücksetzen
Else
KD_BESONSERHEITEN.kdb_EingetragenAm = Now
End If
KD_BESONSERHEITEN.kdb_history = 0
KD_BESONSERHEITEN.kdb_mitName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
KD_BESONSERHEITEN.kdb_mitId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
KD_BESONSERHEITEN.kdb_KundenNr = KdNr
KD_BESONSERHEITEN.kdb_AenderungAm = Now
KD_BESONSERHEITEN.kdb_kategorie = cboKategorie._value
KD_BESONSERHEITEN.kdb_text = rtbText.Text
KD_BESONSERHEITEN.kdb_hervorheben = cbxHervorheben.Checked
'KD_BESONSERHEITEN.kdb_visible =
If KD_BESONSERHEITEN.SAVE Then
Me.Close()
End If
End Sub
Private Sub frmKundenBesonderheiten_Add_Load(sender As Object, e As EventArgs) Handles Me.Load
cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True)
If KD_BESONSERHEITEN.hasEntry Then
rtbText.Text = KD_BESONSERHEITEN.kdb_text
cboKategorie.changeItem(KD_BESONSERHEITEN.kdb_kategorie)
End If
End Sub
End Class

21
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -57,7 +57,7 @@ Public Class frmKundenUebersichtZOLL
InitializeComponent() InitializeComponent()
MenuStripSDL.Renderer = New MyRenderer() MenuStripSDL.Renderer = New MyRenderer()
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try End Try
End Sub End Sub
@@ -106,13 +106,13 @@ Public Class frmKundenUebersichtZOLL
lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then
Select Case BER_STUFE Select Case BER_STUFE
Case 99 : Me.Close() : Exit Sub Case 99 : Me.Close() : Exit Sub
End Select End Select
End If 'End If
KdSearchBox1.initKdBox(Me) ', lblKdNr) KdSearchBox1.initKdBox(Me) ', lblKdNr)
@@ -123,6 +123,10 @@ Public Class frmKundenUebersichtZOLL
End If End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
' cbx.Checked = True
'End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
mnueRechnungen.Visible = False mnueRechnungen.Visible = False
mnueSpeditionsbuch.Visible = False mnueSpeditionsbuch.Visible = False
@@ -133,12 +137,13 @@ Public Class frmKundenUebersichtZOLL
ToolStripFormulare.Visible = False ToolStripFormulare.Visible = False
mnueFiskal.Visible = False mnueFiskal.Visible = False
toolNeuerKunde.Visible = False toolNeuerKunde.Visible = False
' cbx.Checked = True
End If End If
' BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID) ' BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
AddHandler KdSearchBox1.PropertyChanged, Sub() AddHandler KdSearchBox1.PropertyChanged, Sub()
Try Try
setKD(KdSearchBox1.KdNr_value) setKD(KdSearchBox1.KdNr_value)
Catch ex As Exception Catch ex As Exception

227
SDL/kunden/usrCntlKundenBesonderheiten.Designer.vb generated Normal file
View File

@@ -0,0 +1,227 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlKundenBesonderheiten
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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()
Me.pnl = New System.Windows.Forms.Panel()
Me.dgvBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lbl = New System.Windows.Forms.Label()
Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btn = New System.Windows.Forms.Button()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BearbetienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnl.SuspendLayout()
CType(Me.dgvBesonderheiten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.dgvBesonderheiten)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(658, 175)
Me.pnl.TabIndex = 0
'
'dgvBesonderheiten
'
Me.dgvBesonderheiten.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvBesonderheiten.AllowUserToAddRows = False
Me.dgvBesonderheiten.AllowUserToDeleteRows = False
Me.dgvBesonderheiten.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.White
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBesonderheiten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvBesonderheiten.BackgroundColor = System.Drawing.Color.White
Me.dgvBesonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.None
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBesonderheiten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgvBesonderheiten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
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.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBesonderheiten.DefaultCellStyle = DataGridViewCellStyle3
Me.dgvBesonderheiten.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvBesonderheiten.Location = New System.Drawing.Point(0, 0)
Me.dgvBesonderheiten.MultiSelect = False
Me.dgvBesonderheiten.Name = "dgvBesonderheiten"
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.dgvBesonderheiten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvBesonderheiten.RowHeadersVisible = False
Me.dgvBesonderheiten.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBesonderheiten.RowsDefaultCellStyle = DataGridViewCellStyle5
Me.dgvBesonderheiten.RowTemplate.Height = 25
Me.dgvBesonderheiten.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBesonderheiten.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.dgvBesonderheiten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvBesonderheiten.ShowCellErrors = False
Me.dgvBesonderheiten.ShowRowErrors = False
Me.dgvBesonderheiten.Size = New System.Drawing.Size(658, 175)
Me.dgvBesonderheiten.TabIndex = 71
Me.dgvBesonderheiten.TabStop = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.Controls.Add(Me.lbl)
Me.Panel1.Controls.Add(Me.cboKategorie)
Me.Panel1.Controls.Add(Me.btn)
Me.Panel1.Controls.Add(Me.cbx)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 175)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(658, 23)
Me.Panel1.TabIndex = 76
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(4, 4)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(55, 13)
Me.lbl.TabIndex = 78
Me.lbl.Text = "Kategorie:"
Me.lbl.Visible = False
'
'cboKategorie
'
Me.cboKategorie._allowedValuesFreiText = Nothing
Me.cboKategorie._allowFreiText = False
Me.cboKategorie._value = ""
Me.cboKategorie.FormattingEnabled = True
Me.cboKategorie.Location = New System.Drawing.Point(64, 1)
Me.cboKategorie.Name = "cboKategorie"
Me.cboKategorie.Size = New System.Drawing.Size(121, 21)
Me.cboKategorie.TabIndex = 77
Me.cboKategorie.Visible = False
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(632, 0)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 23)
Me.btn.TabIndex = 77
Me.btn.UseVisualStyleBackColor = True
Me.btn.Visible = False
'
'cbx
'
Me.cbx.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx.AutoSize = True
Me.cbx.Location = New System.Drawing.Point(555, 3)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(58, 17)
Me.cbx.TabIndex = 76
Me.cbx.Text = "History"
Me.cbx.UseVisualStyleBackColor = True
Me.cbx.Visible = False
'
'cntxt
'
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbetienToolStripMenuItem, Me.LöschenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(131, 48)
'
'BearbetienToolStripMenuItem
'
Me.BearbetienToolStripMenuItem.BackColor = System.Drawing.SystemColors.Control
Me.BearbetienToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift
Me.BearbetienToolStripMenuItem.Name = "BearbetienToolStripMenuItem"
Me.BearbetienToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.BearbetienToolStripMenuItem.Text = "Bearbeiten"
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.LöschenToolStripMenuItem.Text = "Löschen"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'usrCntlKundenBesonderheiten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlKundenBesonderheiten"
Me.Size = New System.Drawing.Size(658, 198)
Me.pnl.ResumeLayout(False)
CType(Me.dgvBesonderheiten, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.cntxt.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents dgvBesonderheiten As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel1 As Panel
Friend WithEvents cbx As CheckBox
Friend WithEvents lbl As Label
Friend WithEvents cboKategorie As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents BearbetienToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents btn As Button
End Class

126
SDL/kunden/usrCntlKundenBesonderheiten.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>95, 17</value>
</metadata>
</root>

155
SDL/kunden/usrCntlKundenBesonderheiten.vb Normal file
View File

@@ -0,0 +1,155 @@
Public Class usrCntlKundenBesonderheiten
Dim kdNr As Integer = -1
Dim loaded = False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub usrCntlKundenBesonderheiten_Load(sender As Object, e As EventArgs) Handles Me.Load
'initDGV()
cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then
showhideOptions(True)
End If
loaded = True
End Sub
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False)
loaded = False
If simpleView Then Panel1.Visible = False 'showhideOptions(False)
cboKategorie.changeItem(Kategorie)
cbx.Checked = False
initDGV(kdNr, simpleView)
loaded = True
End Sub
Sub showhideOptions(visible)
cbx.Visible = visible
btn.Visible = visible
cboKategorie.Visible = visible
lbl.Visible = visible
End Sub
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False)
dgvBesonderheiten.Columns.Clear()
If kdnrTmp > 0 Then Me.kdNr = kdnrTmp
If kdNr <= 0 Then Exit Sub
With dgvBesonderheiten
Dim loadedTmp = loaded
Dim where = ""
If cboKategorie._value <> "" Then
where &= " AND kdb_kategorie='" & cboKategorie._value & "' "
End If
If Not cbx.Checked Or Not cbx.Visible Then
where &= " and kdb_history=0 "
End If
.DataSource = SQL.loadDgvBySql("SELECT kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " and kdb_visible=1 " & where & " ORDER BY kdb_AenderungAm desc", "FMZOLL")
If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
.ClearSelection()
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("kdb_id").Visible = False
.Columns("kdb_hervorheben").Visible = False
.Columns("kdb_EingetragenAm").Visible = False
.Columns("kdb_history").Visible = False
.Columns("kdb_mitId").Visible = False
.Columns("kdb_kategorie").Width = 65
.Columns("kdb_kategorie").HeaderText = "Art"
.Columns("kdb_text").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdb_text").HeaderText = "Text"
.Columns("kdb_mitName").Width = 60
.Columns("kdb_mitName").HeaderText = "SB"
.Columns("kdb_AenderungAm").Width = 65
.Columns("kdb_AenderungAm").HeaderText = "Datum"
.Columns("kdb_AenderungAm").DefaultCellStyle.Format = "dd.MM.yyyy"
.EnableHeadersVisualStyles = False
For Each c In .Columns
c.HeaderCell.Style.ForeColor = Color.White
c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
Next
For Each r As DataGridViewRow In .Rows
If r.Cells("kdb_hervorheben").Value Then
r.DefaultCellStyle.BackColor = Color.LightYellow
End If
If r.Cells("kdb_history").Value Then
r.DefaultCellStyle.BackColor = Color.LightGray
End If
Next
If simpleView Then
.Columns("kdb_kategorie").Visible = False
.Columns("kdb_mitName").Visible = False
.ColumnHeadersVisible = False
End If
' .GetOrder()
End With
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim f As New frmKundenBesonderheiten_Add(kdNr)
f.ShowDialog()
initDGV()
End Sub
Private Sub dgvBesonderheiten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBesonderheiten.SelectionChanged
dgvBesonderheiten.ClearSelection()
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKategorie.SelectedIndexChanged, cbx.CheckedChanged
If loaded Then initDGV()
End Sub
Dim TMP_kdb_id = -1
Private Sub dgvBesonderheiten_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvBesonderheiten.CellMouseClick
If e.Button = MouseButtons.Right Then
If e.RowIndex >= 0 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then
TMP_kdb_id = dgvBesonderheiten.Rows(e.RowIndex).Cells("kdb_id").Value
cntxt.Show(Cursor.Position)
End If
End If
End If
End Sub
Private Sub BearbetienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbetienToolStripMenuItem.Click
If TMP_kdb_id < 0 Then Exit Sub
Dim f As New frmKundenBesonderheiten_Add(TMP_kdb_id, kdNr)
f.ShowDialog()
TMP_kdb_id = -1
initDGV()
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
If TMP_kdb_id < 0 Then Exit Sub
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich auf 'gelöscht' setzten?", vbYesNoCancel) Then
Dim KD_BES As New VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten(TMP_kdb_id)
KD_BES.kdb_history = True
Dim delStr = "*Gelöscht: "
If Not KD_BES.kdb_text.Contains(delStr) Then KD_BES.kdb_text = delStr & KD_BES.kdb_text
KD_BES.SAVE()
TMP_kdb_id = -1
initDGV()
End If
End Sub
End Class

175
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -67,11 +67,12 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAnhaenge = New System.Windows.Forms.DataGridView() Me.dgvAnhaenge = New System.Windows.Forms.DataGridView()
Me.btnAddAttach = New System.Windows.Forms.Button() Me.btnAddAttach = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.FlatButton8 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnThereforeTarifNr = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.FlatButton7 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnThereforeKundeninfo = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblKdNr = New System.Windows.Forms.TextBox() Me.lblKdNr = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.grpAbfertigung = New System.Windows.Forms.GroupBox() Me.grpAbfertigung = New System.Windows.Forms.GroupBox()
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.rtbInfo = New System.Windows.Forms.RichTextBox() Me.rtbInfo = New System.Windows.Forms.RichTextBox()
Me.lblAbfertigungsverbot = New System.Windows.Forms.Label() Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label()
@@ -171,6 +172,8 @@ Partial Class usrCntlKundenuebersicht
Me.TabPage6 = New System.Windows.Forms.TabPage() Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.TabPage7 = New System.Windows.Forms.TabPage() Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtInfoKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label43 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label()
Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox() Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
@@ -211,6 +214,8 @@ Partial Class usrCntlKundenuebersicht
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.lblFirma = New System.Windows.Forms.Label() Me.lblFirma = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtVerzolltBei = New System.Windows.Forms.TextBox()
Me.cntxtAddSdl.SuspendLayout() Me.cntxtAddSdl.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout()
Me.TabPage4.SuspendLayout() Me.TabPage4.SuspendLayout()
@@ -701,49 +706,49 @@ Partial Class usrCntlKundenuebersicht
' '
'Panel3 'Panel3
' '
Me.Panel3.Controls.Add(Me.FlatButton8) Me.Panel3.Controls.Add(Me.btnThereforeTarifNr)
Me.Panel3.Controls.Add(Me.FlatButton7) Me.Panel3.Controls.Add(Me.btnThereforeKundeninfo)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 255) Me.Panel3.Location = New System.Drawing.Point(0, 255)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(655, 39) Me.Panel3.Size = New System.Drawing.Size(655, 39)
Me.Panel3.TabIndex = 217 Me.Panel3.TabIndex = 217
' '
'FlatButton8 'btnThereforeTarifNr
' '
Me.FlatButton8.allowBorder = False Me.btnThereforeTarifNr.allowBorder = False
Me.FlatButton8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnThereforeTarifNr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton8.FlatAppearance.BorderSize = 0 Me.btnThereforeTarifNr.FlatAppearance.BorderSize = 0
Me.FlatButton8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnThereforeTarifNr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton8.ForeColor = System.Drawing.Color.Black Me.btnThereforeTarifNr.ForeColor = System.Drawing.Color.Black
Me.FlatButton8.Image = Global.SDL.My.Resources.Resources.therefore1 Me.btnThereforeTarifNr.Image = Global.SDL.My.Resources.Resources.therefore1
Me.FlatButton8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnThereforeTarifNr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.FlatButton8.Location = New System.Drawing.Point(5, 3) Me.btnThereforeTarifNr.Location = New System.Drawing.Point(5, 3)
Me.FlatButton8.Name = "FlatButton8" Me.btnThereforeTarifNr.Name = "btnThereforeTarifNr"
Me.FlatButton8.Size = New System.Drawing.Size(118, 33) Me.btnThereforeTarifNr.Size = New System.Drawing.Size(118, 33)
Me.FlatButton8.TabIndex = 213 Me.btnThereforeTarifNr.TabIndex = 213
Me.FlatButton8.Tag = "" Me.btnThereforeTarifNr.Tag = ""
Me.FlatButton8.Text = "Tarifnummern" Me.btnThereforeTarifNr.Text = "Tarifnummern"
Me.FlatButton8.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnThereforeTarifNr.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.FlatButton8.UseVisualStyleBackColor = True Me.btnThereforeTarifNr.UseVisualStyleBackColor = True
' '
'FlatButton7 'btnThereforeKundeninfo
' '
Me.FlatButton7.allowBorder = False Me.btnThereforeKundeninfo.allowBorder = False
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnThereforeKundeninfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatAppearance.BorderSize = 0 Me.btnThereforeKundeninfo.FlatAppearance.BorderSize = 0
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnThereforeKundeninfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.ForeColor = System.Drawing.Color.Black Me.btnThereforeKundeninfo.ForeColor = System.Drawing.Color.Black
Me.FlatButton7.Image = Global.SDL.My.Resources.Resources.therefore1 Me.btnThereforeKundeninfo.Image = Global.SDL.My.Resources.Resources.therefore1
Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnThereforeKundeninfo.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.FlatButton7.Location = New System.Drawing.Point(144, 3) Me.btnThereforeKundeninfo.Location = New System.Drawing.Point(144, 3)
Me.FlatButton7.Name = "FlatButton7" Me.btnThereforeKundeninfo.Name = "btnThereforeKundeninfo"
Me.FlatButton7.Size = New System.Drawing.Size(118, 33) Me.btnThereforeKundeninfo.Size = New System.Drawing.Size(118, 33)
Me.FlatButton7.TabIndex = 212 Me.btnThereforeKundeninfo.TabIndex = 212
Me.FlatButton7.Tag = "" Me.btnThereforeKundeninfo.Tag = ""
Me.FlatButton7.Text = "Kundeninfo" Me.btnThereforeKundeninfo.Text = "Kundeninfo"
Me.FlatButton7.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnThereforeKundeninfo.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.FlatButton7.UseVisualStyleBackColor = True Me.btnThereforeKundeninfo.UseVisualStyleBackColor = True
' '
'lblKdNr 'lblKdNr
' '
@@ -772,6 +777,11 @@ Partial Class usrCntlKundenuebersicht
Me.grpAbfertigung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.grpAbfertigung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.grpAbfertigung.BackColor = System.Drawing.Color.White Me.grpAbfertigung.BackColor = System.Drawing.Color.White
Me.grpAbfertigung.Controls.Add(Me.txtVerzolltBei)
Me.grpAbfertigung.Controls.Add(Me.Label15)
Me.grpAbfertigung.Controls.Add(Me.lblAviso)
Me.grpAbfertigung.Controls.Add(Me.Label2)
Me.grpAbfertigung.Controls.Add(Me.UsrCntlKundenBesonderheiten1)
Me.grpAbfertigung.Controls.Add(Me.rtbInfo) Me.grpAbfertigung.Controls.Add(Me.rtbInfo)
Me.grpAbfertigung.Controls.Add(Me.lblAbfertigungsverbot) Me.grpAbfertigung.Controls.Add(Me.lblAbfertigungsverbot)
Me.grpAbfertigung.Controls.Add(Me.Label45) Me.grpAbfertigung.Controls.Add(Me.Label45)
@@ -796,9 +806,7 @@ Partial Class usrCntlKundenuebersicht
Me.grpAbfertigung.Controls.Add(Me.lblFisk) Me.grpAbfertigung.Controls.Add(Me.lblFisk)
Me.grpAbfertigung.Controls.Add(Me.lblKreditlimit) Me.grpAbfertigung.Controls.Add(Me.lblKreditlimit)
Me.grpAbfertigung.Controls.Add(Me.Label1) Me.grpAbfertigung.Controls.Add(Me.Label1)
Me.grpAbfertigung.Controls.Add(Me.lblAviso)
Me.grpAbfertigung.Controls.Add(Me.txtAbf_ErsteAbfertigung) Me.grpAbfertigung.Controls.Add(Me.txtAbf_ErsteAbfertigung)
Me.grpAbfertigung.Controls.Add(Me.Label2)
Me.grpAbfertigung.Controls.Add(Me.Label41) Me.grpAbfertigung.Controls.Add(Me.Label41)
Me.grpAbfertigung.Controls.Add(Me.rtbAbf_Besonderheiten) Me.grpAbfertigung.Controls.Add(Me.rtbAbf_Besonderheiten)
Me.grpAbfertigung.Controls.Add(Me.lblNeutralisierung) Me.grpAbfertigung.Controls.Add(Me.lblNeutralisierung)
@@ -815,6 +823,16 @@ Partial Class usrCntlKundenuebersicht
Me.grpAbfertigung.TabStop = False Me.grpAbfertigung.TabStop = False
Me.grpAbfertigung.Text = "Abfertigung" Me.grpAbfertigung.Text = "Abfertigung"
' '
'UsrCntlKundenBesonderheiten1
'
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
Me.UsrCntlKundenBesonderheiten1.TabIndex = 234
Me.UsrCntlKundenBesonderheiten1.Visible = False
'
'rtbInfo 'rtbInfo
' '
Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1291,11 +1309,12 @@ Partial Class usrCntlKundenuebersicht
Me.lblAviso.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblAviso.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAviso.ForeColor = System.Drawing.Color.Black Me.lblAviso.ForeColor = System.Drawing.Color.Black
Me.lblAviso.Location = New System.Drawing.Point(358, 251) Me.lblAviso.Location = New System.Drawing.Point(293, 176)
Me.lblAviso.Name = "lblAviso" Me.lblAviso.Name = "lblAviso"
Me.lblAviso.ReadOnly = True Me.lblAviso.ReadOnly = True
Me.lblAviso.Size = New System.Drawing.Size(127, 13) Me.lblAviso.Size = New System.Drawing.Size(127, 13)
Me.lblAviso.TabIndex = 185 Me.lblAviso.TabIndex = 185
Me.lblAviso.Visible = False
' '
'txtAbf_ErsteAbfertigung 'txtAbf_ErsteAbfertigung
' '
@@ -1327,11 +1346,12 @@ Partial Class usrCntlKundenuebersicht
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(270, 251) Me.Label2.Location = New System.Drawing.Point(205, 176)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(36, 13) Me.Label2.Size = New System.Drawing.Size(36, 13)
Me.Label2.TabIndex = 184 Me.Label2.TabIndex = 184
Me.Label2.Text = "Aviso:" Me.Label2.Text = "Aviso:"
Me.Label2.Visible = False
' '
'Label41 'Label41
' '
@@ -1363,7 +1383,7 @@ Partial Class usrCntlKundenuebersicht
Me.lblNeutralisierung.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblNeutralisierung.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblNeutralisierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblNeutralisierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNeutralisierung.ForeColor = System.Drawing.Color.Black Me.lblNeutralisierung.ForeColor = System.Drawing.Color.Black
Me.lblNeutralisierung.Location = New System.Drawing.Point(358, 235) Me.lblNeutralisierung.Location = New System.Drawing.Point(358, 251)
Me.lblNeutralisierung.Name = "lblNeutralisierung" Me.lblNeutralisierung.Name = "lblNeutralisierung"
Me.lblNeutralisierung.ReadOnly = True Me.lblNeutralisierung.ReadOnly = True
Me.lblNeutralisierung.Size = New System.Drawing.Size(127, 13) Me.lblNeutralisierung.Size = New System.Drawing.Size(127, 13)
@@ -1381,7 +1401,7 @@ Partial Class usrCntlKundenuebersicht
'Label3 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(270, 235) Me.Label3.Location = New System.Drawing.Point(270, 251)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(80, 13) Me.Label3.Size = New System.Drawing.Size(80, 13)
Me.Label3.TabIndex = 182 Me.Label3.TabIndex = 182
@@ -2160,6 +2180,7 @@ Partial Class usrCntlKundenuebersicht
' '
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True
Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing
@@ -2240,6 +2261,8 @@ Partial Class usrCntlKundenuebersicht
' '
'TabPage7 'TabPage7
' '
Me.TabPage7.Controls.Add(Me.Label14)
Me.TabPage7.Controls.Add(Me.txtInfoKdAtrNr)
Me.TabPage7.Controls.Add(Me.Label43) Me.TabPage7.Controls.Add(Me.Label43)
Me.TabPage7.Controls.Add(Me.cbxKdAuftragsNr) Me.TabPage7.Controls.Add(Me.cbxKdAuftragsNr)
Me.TabPage7.Controls.Add(Me.RichTextBox1) Me.TabPage7.Controls.Add(Me.RichTextBox1)
@@ -2255,6 +2278,38 @@ Partial Class usrCntlKundenuebersicht
Me.TabPage7.Text = "Kundenspezifisch" Me.TabPage7.Text = "Kundenspezifisch"
Me.TabPage7.UseVisualStyleBackColor = True Me.TabPage7.UseVisualStyleBackColor = True
' '
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(232, 44)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(28, 13)
Me.Label14.TabIndex = 220
Me.Label14.Text = "Info:"
'
'txtInfoKdAtrNr
'
Me.txtInfoKdAtrNr._DateTimeOnly = False
Me.txtInfoKdAtrNr._numbersOnly = False
Me.txtInfoKdAtrNr._numbersOnlyKommastellen = ""
Me.txtInfoKdAtrNr._Prozent = False
Me.txtInfoKdAtrNr._ShortDateNew = False
Me.txtInfoKdAtrNr._ShortDateOnly = False
Me.txtInfoKdAtrNr._TimeOnly = False
Me.txtInfoKdAtrNr._value = ""
Me.txtInfoKdAtrNr._Waehrung = False
Me.txtInfoKdAtrNr._WaehrungZeichen = True
Me.txtInfoKdAtrNr.Enabled = False
Me.txtInfoKdAtrNr.ForeColor = System.Drawing.Color.Black
Me.txtInfoKdAtrNr.Location = New System.Drawing.Point(266, 41)
Me.txtInfoKdAtrNr.MaxLineLength = -1
Me.txtInfoKdAtrNr.MaxLines_Warning = ""
Me.txtInfoKdAtrNr.MaxLines_Warning_Label = Nothing
Me.txtInfoKdAtrNr.Name = "txtInfoKdAtrNr"
Me.txtInfoKdAtrNr.Size = New System.Drawing.Size(192, 20)
Me.txtInfoKdAtrNr.TabIndex = 219
'
'Label43 'Label43
' '
Me.Label43.AutoSize = True Me.Label43.AutoSize = True
@@ -2277,7 +2332,7 @@ Partial Class usrCntlKundenuebersicht
' '
'RichTextBox1 'RichTextBox1
' '
Me.RichTextBox1.Location = New System.Drawing.Point(235, 61) Me.RichTextBox1.Location = New System.Drawing.Point(235, 84)
Me.RichTextBox1.Name = "RichTextBox1" Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(222, 50) Me.RichTextBox1.Size = New System.Drawing.Size(222, 50)
Me.RichTextBox1.TabIndex = 208 Me.RichTextBox1.TabIndex = 208
@@ -2288,7 +2343,7 @@ Partial Class usrCntlKundenuebersicht
' '
Me.Label31.AutoSize = True Me.Label31.AutoSize = True
Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label31.Location = New System.Drawing.Point(232, 45) Me.Label31.Location = New System.Drawing.Point(232, 68)
Me.Label31.Name = "Label31" Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(213, 13) Me.Label31.Size = New System.Drawing.Size(213, 13)
Me.Label31.TabIndex = 207 Me.Label31.TabIndex = 207
@@ -2342,7 +2397,7 @@ Partial Class usrCntlKundenuebersicht
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton4.ForeColor = System.Drawing.Color.Black Me.FlatButton4.ForeColor = System.Drawing.Color.Black
Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.FlatButton4.Location = New System.Drawing.Point(365, 111) Me.FlatButton4.Location = New System.Drawing.Point(365, 134)
Me.FlatButton4.Name = "FlatButton4" Me.FlatButton4.Name = "FlatButton4"
Me.FlatButton4.Size = New System.Drawing.Size(92, 26) Me.FlatButton4.Size = New System.Drawing.Size(92, 26)
Me.FlatButton4.TabIndex = 206 Me.FlatButton4.TabIndex = 206
@@ -2675,6 +2730,27 @@ Partial Class usrCntlKundenuebersicht
Me.lblFirma.Text = "VERAG" Me.lblFirma.Text = "VERAG"
Me.lblFirma.Visible = False Me.lblFirma.Visible = False
' '
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(270, 235)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(61, 13)
Me.Label15.TabIndex = 235
Me.Label15.Text = "Verzollt bei:"
'
'txtVerzolltBei
'
Me.txtVerzolltBei.BackColor = System.Drawing.Color.White
Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black
Me.txtVerzolltBei.Location = New System.Drawing.Point(358, 235)
Me.txtVerzolltBei.Name = "txtVerzolltBei"
Me.txtVerzolltBei.ReadOnly = True
Me.txtVerzolltBei.Size = New System.Drawing.Size(177, 13)
Me.txtVerzolltBei.TabIndex = 236
'
'usrCntlKundenuebersicht 'usrCntlKundenuebersicht
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2783,8 +2859,8 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents dgvAnhaenge As DataGridView Friend WithEvents dgvAnhaenge As DataGridView
Friend WithEvents btnAddAttach As Button Friend WithEvents btnAddAttach As Button
Friend WithEvents Panel3 As Panel Friend WithEvents Panel3 As Panel
Friend WithEvents FlatButton8 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnThereforeTarifNr As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton7 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnThereforeKundeninfo As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblKdNr As TextBox Friend WithEvents lblKdNr As TextBox
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
Friend WithEvents grpAbfertigung As GroupBox Friend WithEvents grpAbfertigung As GroupBox
@@ -2927,4 +3003,9 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents Button10 As Button Friend WithEvents Button10 As Button
Friend WithEvents Button2 As Button Friend WithEvents Button2 As Button
Friend WithEvents lblFirma As Label Friend WithEvents lblFirma As Label
Friend WithEvents UsrCntlKundenBesonderheiten1 As usrCntlKundenBesonderheiten
Friend WithEvents Label14 As Label
Friend WithEvents txtInfoKdAtrNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVerzolltBei As TextBox
Friend WithEvents Label15 As Label
End Class End Class

98
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -107,13 +107,15 @@ Public Class usrCntlKundenuebersicht
timerOP.Interval = 500 timerOP.Interval = 500
timerOP.Enabled = False timerOP.Enabled = False
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then
Try
Select Case BER_STUFE Select Case BER_STUFE
Case 99 : Me.FindForm.Close() : Exit Sub Case 99 : Me.FindForm.Close() : Exit Sub
End Select End Select
End If Catch ex As Exception
End Try
' KdSearchBox1.initKdBox(Me, lblKdNr) ' KdSearchBox1.initKdBox(Me, lblKdNr)
@@ -154,8 +156,8 @@ Public Class usrCntlKundenuebersicht
txtVorauskasse.Visible = True txtVorauskasse.Visible = True
Label42.Visible = True Label42.Visible = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
FlatButton7.Visible = True btnThereforeKundeninfo.Visible = True
End If End If
@@ -165,10 +167,15 @@ Public Class usrCntlKundenuebersicht
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
tbWeitereKundenDetails.TabPages.Remove(TabPage3) Try
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
tbcntrAllg.TabPages.Remove(TabPage6) tbWeitereKundenDetails.TabPages.Remove(TabPage3)
tbcntrAllg.TabPages.Remove(TabPage7) tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
tbcntrAllg.TabPages.Remove(TabPage6)
tbcntrAllg.TabPages.Remove(TabPage7)
Catch ex As Exception
End Try
End If End If
@@ -192,8 +199,10 @@ Public Class usrCntlKundenuebersicht
btncheckliste.Visible = False btncheckliste.Visible = False
tbcntrAllg.Visible = False tbcntrAllg.Visible = False
Case "IMEX" Case "IMEX"
FlatButton8.Visible = False btnThereforeTarifNr.Visible = True
FlatButton7.Visible = False ' btnThereforeTarifNr.Visible = False
btnThereforeKundeninfo.Visible = True
'btnThereforeKundeninfo.Visible = False
End Select End Select
@@ -247,9 +256,14 @@ Public Class usrCntlKundenuebersicht
initAllgemein() initAllgemein()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
tbWeitereKundenDetails.TabPages.Remove(TabPage3) Try
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten) tbWeitereKundenDetails.TabPages.Remove(TabPage3)
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
Catch ex As Exception
End Try
If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
tbWeitereKundenDetails.TabPages.Add(TabPage3) tbWeitereKundenDetails.TabPages.Add(TabPage3)
tbWeitereKundenDetails.TabPages.Add(tbOffenePosten) tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
@@ -333,7 +347,7 @@ Public Class usrCntlKundenuebersicht
If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") And If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") And
Not ((KdFirma = "IMEX" Or KdFirma = "VERAG") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL")) Then Not ((KdFirma = "IMEX" Or KdFirma = "VERAG" Or KdFirma = "VERIMEX") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL")) Then
dgvOfferteDetailsUebersicht.Visible = False dgvOfferteDetailsUebersicht.Visible = False
dgvOffenePosten.Visible = False dgvOffenePosten.Visible = False
dgvUmsatzbericht.Visible = False dgvUmsatzbericht.Visible = False
@@ -468,10 +482,31 @@ Public Class usrCntlKundenuebersicht
Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
End Select End Select
Select Case checkNullStr(KUNDE.Neutralisierung)
Case 0 : lblNeutralisierung.Text = "NEIN"
Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold
End Select
If KUNDE.Vorkasse Then If KUNDE.Vorkasse Then
txtVorauskasse.Text = "JA" : txtVorauskasse.BackColor = Color.Yellow 'txtVorauskasse.Font = f_bold txtVorauskasse.Text = "JA"
txtVorauskasse.BackColor = Color.Yellow
Else Else
txtVorauskasse.Text = "NEIN" txtVorauskasse.Text = ""
txtVorauskasse.BackColor = Color.White
End If
If KUNDE_ERW.kde_KundeFremdspedition Then
txtVerzolltBei.Text = If(KUNDE_ERW.kde_verzolltBei, "FREMD")
txtVerzolltBei.BackColor = Color.Yellow
Else
txtVerzolltBei.Text = ""
txtVerzolltBei.BackColor = Color.White
End If End If
@@ -540,9 +575,21 @@ Public Class usrCntlKundenuebersicht
rtbLKWFreigabeSenden.Text = checkNullStr(KUNDE.DokumenteLKWFreigabe) rtbLKWFreigabeSenden.Text = checkNullStr(KUNDE.DokumenteLKWFreigabe)
cbxKdAuftragsNr.Checked = checkNullBool(KUNDE_ERW.kde_VerwendetAuftragsNr) cbxKdAuftragsNr.Checked = checkNullBool(KUNDE_ERW.kde_VerwendetAuftragsNr)
txtFixeKdAtrNr.Text = If(KUNDE_ERW.kde_FixeAuftragsNr, "") txtFixeKdAtrNr.Text = If(KUNDE_ERW.kde_FixeAuftragsNr, "")
txtInfoKdAtrNr.Text = If(KUNDE_ERW.kde_InfoAuftragsNr, "")
UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
If KUNDE_ERW.kde_BesonderheitenNeu Then
UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
UsrCntlKundenBesonderheiten1.init(kdNr)
UsrCntlKundenBesonderheiten1.Visible = True
Else
UsrCntlKundenBesonderheiten1.Visible = False
End If
rtbAbf_Besonderheiten.Visible = Not UsrCntlKundenBesonderheiten1.Visible
initAufschub() initAufschub()
Button1.BackgroundImage = My.Resources.fragezeichen Button1.BackgroundImage = My.Resources.fragezeichen
@@ -562,6 +609,8 @@ Public Class usrCntlKundenuebersicht
Dim kdErwTmp As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) Dim kdErwTmp As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
kdErwTmp.kde_VerwendetAuftragsNr = cbxKdAuftragsNr.Checked kdErwTmp.kde_VerwendetAuftragsNr = cbxKdAuftragsNr.Checked
kdErwTmp.kde_FixeAuftragsNr = If(txtFixeKdAtrNr.Text <> "", txtFixeKdAtrNr.Text, Nothing) kdErwTmp.kde_FixeAuftragsNr = If(txtFixeKdAtrNr.Text <> "", txtFixeKdAtrNr.Text, Nothing)
kdErwTmp.kde_InfoAuftragsNr = If(txtInfoKdAtrNr.Text <> "", txtInfoKdAtrNr.Text, Nothing)
kdErwTmp.SAVE() kdErwTmp.SAVE()
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message) MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message)
@@ -781,12 +830,12 @@ Public Class usrCntlKundenuebersicht
r.DefaultCellStyle.ForeColor = Color.Red r.DefaultCellStyle.ForeColor = Color.Red
End If End If
If True Then If True Then
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
End If End If
Next End If
Next
End With End With
End Sub End Sub
@@ -1856,6 +1905,7 @@ Public Class usrCntlKundenuebersicht
Private Sub cbxKdAuftragsNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKdAuftragsNr.CheckedChanged Private Sub cbxKdAuftragsNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKdAuftragsNr.CheckedChanged
txtFixeKdAtrNr.Enabled = cbxKdAuftragsNr.Checked txtFixeKdAtrNr.Enabled = cbxKdAuftragsNr.Checked
txtInfoKdAtrNr.Enabled = cbxKdAuftragsNr.Checked
End Sub End Sub
Private Sub timer_EORI_Tick(sender As Object, e As EventArgs) Handles timer_EORI.Tick Private Sub timer_EORI_Tick(sender As Object, e As EventArgs) Handles timer_EORI.Tick
@@ -1957,11 +2007,11 @@ Public Class usrCntlKundenuebersicht
End Sub End Sub
Private Sub FlatButton8_Click(sender As Object, e As EventArgs) Handles FlatButton8.Click Private Sub FlatButton8_Click(sender As Object, e As EventArgs) Handles btnThereforeTarifNr.Click
cProgramFunctions.openThereforeNavigatorTarifnummern(kdNr) cProgramFunctions.openThereforeNavigatorTarifnummern(kdNr)
End Sub End Sub
Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) Handles FlatButton7.Click Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) Handles btnThereforeKundeninfo.Click
cProgramFunctions.openThereforeNavigatorKudnenInfo(kdNr) cProgramFunctions.openThereforeNavigatorKudnenInfo(kdNr)
End Sub End Sub

269
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -22,18 +22,22 @@ Partial Class usrcntlKundeBearbeitenFull
'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()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.cboFremdspedition = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.tbcntrAbf = New System.Windows.Forms.TabControl() Me.tbcntrAbf = New System.Windows.Forms.TabControl()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
@@ -76,6 +80,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label37 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label()
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
Me.tbFiskal = New System.Windows.Forms.TabPage() Me.tbFiskal = New System.Windows.Forms.TabPage()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.tbVerrechnung = New System.Windows.Forms.TabPage()
Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox() Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox()
Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -295,7 +300,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxFiBu = New System.Windows.Forms.CheckBox() Me.cbxFiBu = New System.Windows.Forms.CheckBox()
Me.cbxFiBuLG = New System.Windows.Forms.CheckBox() Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.Label93 = New System.Windows.Forms.Label()
Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbcntrDetails.SuspendLayout() Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout() Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout() Me.tbcntrAbf.SuspendLayout()
@@ -349,6 +355,10 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'tbAbfertigung 'tbAbfertigung
' '
Me.tbAbfertigung.Controls.Add(Me.cboFremdspedition)
Me.tbAbfertigung.Controls.Add(Me.cbxVerzolltBei)
Me.tbAbfertigung.Controls.Add(Me.cbxBesonderheitenNEU)
Me.tbAbfertigung.Controls.Add(Me.UsrCntlKundenBesonderheiten1)
Me.tbAbfertigung.Controls.Add(Me.tbcntrAbf) Me.tbAbfertigung.Controls.Add(Me.tbcntrAbf)
Me.tbAbfertigung.Controls.Add(Me.cbxAbf_Ausfuhr) Me.tbAbfertigung.Controls.Add(Me.cbxAbf_Ausfuhr)
Me.tbAbfertigung.Controls.Add(Me.txtAbf_Planzahl) Me.tbAbfertigung.Controls.Add(Me.txtAbf_Planzahl)
@@ -370,6 +380,49 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbAbfertigung.Text = " Abfertigung" Me.tbAbfertigung.Text = " Abfertigung"
Me.tbAbfertigung.UseVisualStyleBackColor = True Me.tbAbfertigung.UseVisualStyleBackColor = True
' '
'cboFremdspedition
'
Me.cboFremdspedition._allowedValuesFreiText = Nothing
Me.cboFremdspedition._allowFreiText = False
Me.cboFremdspedition._value = ""
Me.cboFremdspedition.Enabled = False
Me.cboFremdspedition.FormattingEnabled = True
Me.cboFremdspedition.Items.AddRange(New Object() {"SEBERT", "SCHENKER", "AS-SPED", "NIETEN", "BUCHAUER"})
Me.cboFremdspedition.Location = New System.Drawing.Point(333, 222)
Me.cboFremdspedition.Name = "cboFremdspedition"
Me.cboFremdspedition.Size = New System.Drawing.Size(126, 21)
Me.cboFremdspedition.TabIndex = 238
'
'cbxVerzolltBei
'
Me.cbxVerzolltBei.AutoSize = True
Me.cbxVerzolltBei.Location = New System.Drawing.Point(174, 224)
Me.cbxVerzolltBei.Name = "cbxVerzolltBei"
Me.cbxVerzolltBei.Size = New System.Drawing.Size(160, 17)
Me.cbxVerzolltBei.TabIndex = 237
Me.cbxVerzolltBei.Text = "Verzollt bei (Fremdspedition):"
Me.cbxVerzolltBei.UseVisualStyleBackColor = True
'
'cbxBesonderheitenNEU
'
Me.cbxBesonderheitenNEU.AutoSize = True
Me.cbxBesonderheitenNEU.Location = New System.Drawing.Point(333, 8)
Me.cbxBesonderheitenNEU.Name = "cbxBesonderheitenNEU"
Me.cbxBesonderheitenNEU.Size = New System.Drawing.Size(126, 17)
Me.cbxBesonderheitenNEU.TabIndex = 236
Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
'
'UsrCntlKundenBesonderheiten1
'
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
Me.UsrCntlKundenBesonderheiten1.Visible = False
'
'tbcntrAbf 'tbcntrAbf
' '
Me.tbcntrAbf.Controls.Add(Me.TabPage4) Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -721,7 +774,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_ErsteAbfertigung._Waehrung = False Me.txtAbf_ErsteAbfertigung._Waehrung = False
Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True
Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Red Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Red
Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(401, 224) Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(268, 87)
Me.txtAbf_ErsteAbfertigung.MaxLength = 10 Me.txtAbf_ErsteAbfertigung.MaxLength = 10
Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1
Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = ""
@@ -729,6 +782,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung" Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung"
Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(60, 20) Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(60, 20)
Me.txtAbf_ErsteAbfertigung.TabIndex = 13 Me.txtAbf_ErsteAbfertigung.TabIndex = 13
Me.txtAbf_ErsteAbfertigung.Visible = False
' '
'cbxAbf_Fiskal 'cbxAbf_Fiskal
' '
@@ -852,7 +906,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxAbf_EinmaligeAbfertigung 'cbxAbf_EinmaligeAbfertigung
' '
Me.cbxAbf_EinmaligeAbfertigung.AutoSize = True Me.cbxAbf_EinmaligeAbfertigung.AutoSize = True
Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(333, 8) Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(467, 5)
Me.cbxAbf_EinmaligeAbfertigung.Name = "cbxAbf_EinmaligeAbfertigung" Me.cbxAbf_EinmaligeAbfertigung.Name = "cbxAbf_EinmaligeAbfertigung"
Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(128, 17) Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(128, 17)
Me.cbxAbf_EinmaligeAbfertigung.TabIndex = 1 Me.cbxAbf_EinmaligeAbfertigung.TabIndex = 1
@@ -863,11 +917,12 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label41.AutoSize = True Me.Label41.AutoSize = True
Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label41.Location = New System.Drawing.Point(304, 227) Me.Label41.Location = New System.Drawing.Point(171, 90)
Me.Label41.Name = "Label41" Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(91, 13) Me.Label41.Size = New System.Drawing.Size(91, 13)
Me.Label41.TabIndex = 12 Me.Label41.TabIndex = 12
Me.Label41.Text = "Erste Abfertigung:" Me.Label41.Text = "Erste Abfertigung:"
Me.Label41.Visible = False
' '
'Label37 'Label37
' '
@@ -896,8 +951,19 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.Text = "Fiskal"
Me.tbFiskal.UseVisualStyleBackColor = True Me.tbFiskal.UseVisualStyleBackColor = True
' '
'UsrCntlKundeFiskaldaten1
'
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'tbVerrechnung 'tbVerrechnung
' '
Me.tbVerrechnung.Controls.Add(Me.Label93)
Me.tbVerrechnung.Controls.Add(Me.txtDebKdNr)
Me.tbVerrechnung.Controls.Add(Me.cbxAutoFakturierung) Me.tbVerrechnung.Controls.Add(Me.cbxAutoFakturierung)
Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel3) Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel3)
Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel2) Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel2)
@@ -944,7 +1010,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAutoFakturierung.AutoSize = True Me.cbxAutoFakturierung.AutoSize = True
Me.cbxAutoFakturierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAutoFakturierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAutoFakturierung.Location = New System.Drawing.Point(417, 118) Me.cbxAutoFakturierung.Location = New System.Drawing.Point(417, 158)
Me.cbxAutoFakturierung.Name = "cbxAutoFakturierung" Me.cbxAutoFakturierung.Name = "cbxAutoFakturierung"
Me.cbxAutoFakturierung.Size = New System.Drawing.Size(118, 17) Me.cbxAutoFakturierung.Size = New System.Drawing.Size(118, 17)
Me.cbxAutoFakturierung.TabIndex = 31 Me.cbxAutoFakturierung.TabIndex = 31
@@ -964,7 +1030,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Zahlungsziel3._Waehrung = False Me.txtAbf_Zahlungsziel3._Waehrung = False
Me.txtAbf_Zahlungsziel3._WaehrungZeichen = True Me.txtAbf_Zahlungsziel3._WaehrungZeichen = True
Me.txtAbf_Zahlungsziel3.ForeColor = System.Drawing.Color.Red Me.txtAbf_Zahlungsziel3.ForeColor = System.Drawing.Color.Red
Me.txtAbf_Zahlungsziel3.Location = New System.Drawing.Point(257, 119) Me.txtAbf_Zahlungsziel3.Location = New System.Drawing.Point(257, 159)
Me.txtAbf_Zahlungsziel3.MaxLength = 10 Me.txtAbf_Zahlungsziel3.MaxLength = 10
Me.txtAbf_Zahlungsziel3.MaxLineLength = -1 Me.txtAbf_Zahlungsziel3.MaxLineLength = -1
Me.txtAbf_Zahlungsziel3.MaxLines_Warning = "" Me.txtAbf_Zahlungsziel3.MaxLines_Warning = ""
@@ -987,7 +1053,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Zahlungsziel2._Waehrung = False Me.txtAbf_Zahlungsziel2._Waehrung = False
Me.txtAbf_Zahlungsziel2._WaehrungZeichen = True Me.txtAbf_Zahlungsziel2._WaehrungZeichen = True
Me.txtAbf_Zahlungsziel2.ForeColor = System.Drawing.Color.Red Me.txtAbf_Zahlungsziel2.ForeColor = System.Drawing.Color.Red
Me.txtAbf_Zahlungsziel2.Location = New System.Drawing.Point(191, 119) Me.txtAbf_Zahlungsziel2.Location = New System.Drawing.Point(191, 159)
Me.txtAbf_Zahlungsziel2.MaxLength = 10 Me.txtAbf_Zahlungsziel2.MaxLength = 10
Me.txtAbf_Zahlungsziel2.MaxLineLength = -1 Me.txtAbf_Zahlungsziel2.MaxLineLength = -1
Me.txtAbf_Zahlungsziel2.MaxLines_Warning = "" Me.txtAbf_Zahlungsziel2.MaxLines_Warning = ""
@@ -1001,7 +1067,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label36.AutoSize = True Me.Label36.AutoSize = True
Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label36.Location = New System.Drawing.Point(122, 206) Me.Label36.Location = New System.Drawing.Point(122, 246)
Me.Label36.Name = "Label36" Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(384, 13) Me.Label36.Size = New System.Drawing.Size(384, 13)
Me.Label36.TabIndex = 21 Me.Label36.TabIndex = 21
@@ -1012,7 +1078,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxDepot.AutoSize = True Me.cbxDepot.AutoSize = True
Me.cbxDepot.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxDepot.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDepot.Location = New System.Drawing.Point(15, 206) Me.cbxDepot.Location = New System.Drawing.Point(15, 246)
Me.cbxDepot.Name = "cbxDepot" Me.cbxDepot.Name = "cbxDepot"
Me.cbxDepot.Size = New System.Drawing.Size(100, 17) Me.cbxDepot.Size = New System.Drawing.Size(100, 17)
Me.cbxDepot.TabIndex = 20 Me.cbxDepot.TabIndex = 20
@@ -1033,7 +1099,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_LastschriftBis._WaehrungZeichen = True Me.txtAbf_LastschriftBis._WaehrungZeichen = True
Me.txtAbf_LastschriftBis.Enabled = False Me.txtAbf_LastschriftBis.Enabled = False
Me.txtAbf_LastschriftBis.ForeColor = System.Drawing.Color.Red Me.txtAbf_LastschriftBis.ForeColor = System.Drawing.Color.Red
Me.txtAbf_LastschriftBis.Location = New System.Drawing.Point(257, 156) Me.txtAbf_LastschriftBis.Location = New System.Drawing.Point(257, 196)
Me.txtAbf_LastschriftBis.MaxLength = 10 Me.txtAbf_LastschriftBis.MaxLength = 10
Me.txtAbf_LastschriftBis.MaxLineLength = -1 Me.txtAbf_LastschriftBis.MaxLineLength = -1
Me.txtAbf_LastschriftBis.MaxLines_Warning = "" Me.txtAbf_LastschriftBis.MaxLines_Warning = ""
@@ -1086,7 +1152,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_LastschriftVon._WaehrungZeichen = True Me.txtAbf_LastschriftVon._WaehrungZeichen = True
Me.txtAbf_LastschriftVon.Enabled = False Me.txtAbf_LastschriftVon.Enabled = False
Me.txtAbf_LastschriftVon.ForeColor = System.Drawing.Color.Red Me.txtAbf_LastschriftVon.ForeColor = System.Drawing.Color.Red
Me.txtAbf_LastschriftVon.Location = New System.Drawing.Point(191, 156) Me.txtAbf_LastschriftVon.Location = New System.Drawing.Point(191, 196)
Me.txtAbf_LastschriftVon.MaxLength = 10 Me.txtAbf_LastschriftVon.MaxLength = 10
Me.txtAbf_LastschriftVon.MaxLineLength = -1 Me.txtAbf_LastschriftVon.MaxLineLength = -1
Me.txtAbf_LastschriftVon.MaxLines_Warning = "" Me.txtAbf_LastschriftVon.MaxLines_Warning = ""
@@ -1108,7 +1174,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label47 'Label47
' '
Me.Label47.AutoSize = True Me.Label47.AutoSize = True
Me.Label47.Location = New System.Drawing.Point(12, 95) Me.Label47.Location = New System.Drawing.Point(12, 135)
Me.Label47.Name = "Label47" Me.Label47.Name = "Label47"
Me.Label47.Size = New System.Drawing.Size(92, 13) Me.Label47.Size = New System.Drawing.Size(92, 13)
Me.Label47.TabIndex = 15 Me.Label47.TabIndex = 15
@@ -1117,7 +1183,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label46 'Label46
' '
Me.Label46.AutoSize = True Me.Label46.AutoSize = True
Me.Label46.Location = New System.Drawing.Point(12, 73) Me.Label46.Location = New System.Drawing.Point(12, 113)
Me.Label46.Name = "Label46" Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(69, 13) Me.Label46.Size = New System.Drawing.Size(69, 13)
Me.Label46.TabIndex = 10 Me.Label46.TabIndex = 10
@@ -1126,7 +1192,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label45 'Label45
' '
Me.Label45.AutoSize = True Me.Label45.AutoSize = True
Me.Label45.Location = New System.Drawing.Point(12, 51) Me.Label45.Location = New System.Drawing.Point(12, 91)
Me.Label45.Name = "Label45" Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(108, 13) Me.Label45.Size = New System.Drawing.Size(108, 13)
Me.Label45.TabIndex = 5 Me.Label45.TabIndex = 5
@@ -1136,7 +1202,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAbf_Lastschrift.AutoSize = True Me.cbxAbf_Lastschrift.AutoSize = True
Me.cbxAbf_Lastschrift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAbf_Lastschrift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_Lastschrift.Location = New System.Drawing.Point(15, 158) Me.cbxAbf_Lastschrift.Location = New System.Drawing.Point(15, 198)
Me.cbxAbf_Lastschrift.Name = "cbxAbf_Lastschrift" Me.cbxAbf_Lastschrift.Name = "cbxAbf_Lastschrift"
Me.cbxAbf_Lastschrift.Size = New System.Drawing.Size(85, 17) Me.cbxAbf_Lastschrift.Size = New System.Drawing.Size(85, 17)
Me.cbxAbf_Lastschrift.TabIndex = 6 Me.cbxAbf_Lastschrift.TabIndex = 6
@@ -1146,7 +1212,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label40 'Label40
' '
Me.Label40.AutoSize = True Me.Label40.AutoSize = True
Me.Label40.Location = New System.Drawing.Point(122, 159) Me.Label40.Location = New System.Drawing.Point(122, 199)
Me.Label40.Name = "Label40" Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(46, 13) Me.Label40.Size = New System.Drawing.Size(46, 13)
Me.Label40.TabIndex = 7 Me.Label40.TabIndex = 7
@@ -1155,7 +1221,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label44 'Label44
' '
Me.Label44.AutoSize = True Me.Label44.AutoSize = True
Me.Label44.Location = New System.Drawing.Point(12, 29) Me.Label44.Location = New System.Drawing.Point(12, 69)
Me.Label44.Name = "Label44" Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(88, 13) Me.Label44.Size = New System.Drawing.Size(88, 13)
Me.Label44.TabIndex = 0 Me.Label44.TabIndex = 0
@@ -1164,7 +1230,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label43 'Label43
' '
Me.Label43.AutoSize = True Me.Label43.AutoSize = True
Me.Label43.Location = New System.Drawing.Point(12, 122) Me.Label43.Location = New System.Drawing.Point(12, 162)
Me.Label43.Name = "Label43" Me.Label43.Name = "Label43"
Me.Label43.Size = New System.Drawing.Size(103, 13) Me.Label43.Size = New System.Drawing.Size(103, 13)
Me.Label43.TabIndex = 17 Me.Label43.TabIndex = 17
@@ -1174,7 +1240,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAbf_SvsRvs.AutoSize = True Me.cbxAbf_SvsRvs.AutoSize = True
Me.cbxAbf_SvsRvs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAbf_SvsRvs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 73) Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 113)
Me.cbxAbf_SvsRvs.Name = "cbxAbf_SvsRvs" Me.cbxAbf_SvsRvs.Name = "cbxAbf_SvsRvs"
Me.cbxAbf_SvsRvs.Size = New System.Drawing.Size(74, 17) Me.cbxAbf_SvsRvs.Size = New System.Drawing.Size(74, 17)
Me.cbxAbf_SvsRvs.TabIndex = 12 Me.cbxAbf_SvsRvs.TabIndex = 12
@@ -1185,7 +1251,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAbf_Rabattstaffel.AutoSize = True Me.cbxAbf_Rabattstaffel.AutoSize = True
Me.cbxAbf_Rabattstaffel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAbf_Rabattstaffel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 51) Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 91)
Me.cbxAbf_Rabattstaffel.Name = "cbxAbf_Rabattstaffel" Me.cbxAbf_Rabattstaffel.Name = "cbxAbf_Rabattstaffel"
Me.cbxAbf_Rabattstaffel.Size = New System.Drawing.Size(86, 17) Me.cbxAbf_Rabattstaffel.Size = New System.Drawing.Size(86, 17)
Me.cbxAbf_Rabattstaffel.TabIndex = 7 Me.cbxAbf_Rabattstaffel.TabIndex = 7
@@ -1196,7 +1262,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAbf_Vorkasse.AutoSize = True Me.cbxAbf_Vorkasse.AutoSize = True
Me.cbxAbf_Vorkasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAbf_Vorkasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 29) Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 69)
Me.cbxAbf_Vorkasse.Name = "cbxAbf_Vorkasse" Me.cbxAbf_Vorkasse.Name = "cbxAbf_Vorkasse"
Me.cbxAbf_Vorkasse.Size = New System.Drawing.Size(70, 17) Me.cbxAbf_Vorkasse.Size = New System.Drawing.Size(70, 17)
Me.cbxAbf_Vorkasse.TabIndex = 2 Me.cbxAbf_Vorkasse.TabIndex = 2
@@ -1207,7 +1273,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label49.AutoSize = True Me.Label49.AutoSize = True
Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label49.Location = New System.Drawing.Point(414, 73) Me.Label49.Location = New System.Drawing.Point(414, 113)
Me.Label49.Name = "Label49" Me.Label49.Name = "Label49"
Me.Label49.Size = New System.Drawing.Size(54, 13) Me.Label49.Size = New System.Drawing.Size(54, 13)
Me.Label49.TabIndex = 13 Me.Label49.TabIndex = 13
@@ -1217,7 +1283,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label48.AutoSize = True Me.Label48.AutoSize = True
Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label48.Location = New System.Drawing.Point(414, 51) Me.Label48.Location = New System.Drawing.Point(414, 91)
Me.Label48.Name = "Label48" Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(90, 13) Me.Label48.Size = New System.Drawing.Size(90, 13)
Me.Label48.TabIndex = 8 Me.Label48.TabIndex = 8
@@ -1227,7 +1293,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label39.AutoSize = True Me.Label39.AutoSize = True
Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label39.Location = New System.Drawing.Point(414, 29) Me.Label39.Location = New System.Drawing.Point(414, 69)
Me.Label39.Name = "Label39" Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(92, 13) Me.Label39.Size = New System.Drawing.Size(92, 13)
Me.Label39.TabIndex = 3 Me.Label39.TabIndex = 3
@@ -1299,7 +1365,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbf_Waehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboAbf_Waehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboAbf_Waehrung.ForeColor = System.Drawing.Color.Black Me.cboAbf_Waehrung.ForeColor = System.Drawing.Color.Black
Me.cboAbf_Waehrung.FormattingEnabled = True Me.cboAbf_Waehrung.FormattingEnabled = True
Me.cboAbf_Waehrung.Location = New System.Drawing.Point(527, 70) Me.cboAbf_Waehrung.Location = New System.Drawing.Point(527, 110)
Me.cboAbf_Waehrung.Name = "cboAbf_Waehrung" Me.cboAbf_Waehrung.Name = "cboAbf_Waehrung"
Me.cboAbf_Waehrung.Size = New System.Drawing.Size(47, 21) Me.cboAbf_Waehrung.Size = New System.Drawing.Size(47, 21)
Me.cboAbf_Waehrung.TabIndex = 14 Me.cboAbf_Waehrung.TabIndex = 14
@@ -1315,7 +1381,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbf_Steuerschluessel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboAbf_Steuerschluessel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboAbf_Steuerschluessel.ForeColor = System.Drawing.Color.Black Me.cboAbf_Steuerschluessel.ForeColor = System.Drawing.Color.Black
Me.cboAbf_Steuerschluessel.FormattingEnabled = True Me.cboAbf_Steuerschluessel.FormattingEnabled = True
Me.cboAbf_Steuerschluessel.Location = New System.Drawing.Point(527, 48) Me.cboAbf_Steuerschluessel.Location = New System.Drawing.Point(527, 88)
Me.cboAbf_Steuerschluessel.Name = "cboAbf_Steuerschluessel" Me.cboAbf_Steuerschluessel.Name = "cboAbf_Steuerschluessel"
Me.cboAbf_Steuerschluessel.Size = New System.Drawing.Size(48, 21) Me.cboAbf_Steuerschluessel.Size = New System.Drawing.Size(48, 21)
Me.cboAbf_Steuerschluessel.TabIndex = 9 Me.cboAbf_Steuerschluessel.TabIndex = 9
@@ -1331,7 +1397,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbf_Sammelrechnung.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboAbf_Sammelrechnung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboAbf_Sammelrechnung.ForeColor = System.Drawing.Color.Black Me.cboAbf_Sammelrechnung.ForeColor = System.Drawing.Color.Black
Me.cboAbf_Sammelrechnung.FormattingEnabled = True Me.cboAbf_Sammelrechnung.FormattingEnabled = True
Me.cboAbf_Sammelrechnung.Location = New System.Drawing.Point(527, 26) Me.cboAbf_Sammelrechnung.Location = New System.Drawing.Point(527, 66)
Me.cboAbf_Sammelrechnung.Name = "cboAbf_Sammelrechnung" Me.cboAbf_Sammelrechnung.Name = "cboAbf_Sammelrechnung"
Me.cboAbf_Sammelrechnung.Size = New System.Drawing.Size(105, 21) Me.cboAbf_Sammelrechnung.Size = New System.Drawing.Size(105, 21)
Me.cboAbf_Sammelrechnung.TabIndex = 4 Me.cboAbf_Sammelrechnung.TabIndex = 4
@@ -1349,7 +1415,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_BankspesenMindestbetrag._Waehrung = True Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(125, 92) Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(125, 132)
Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50 Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50
Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1 Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1
Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = "" Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = ""
@@ -1372,7 +1438,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Bankspesen._Waehrung = False Me.txtAbf_Bankspesen._Waehrung = False
Me.txtAbf_Bankspesen._WaehrungZeichen = True Me.txtAbf_Bankspesen._WaehrungZeichen = True
Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 70) Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 110)
Me.txtAbf_Bankspesen.MaxLength = 10 Me.txtAbf_Bankspesen.MaxLength = 10
Me.txtAbf_Bankspesen.MaxLineLength = -1 Me.txtAbf_Bankspesen.MaxLineLength = -1
Me.txtAbf_Bankspesen.MaxLines_Warning = "" Me.txtAbf_Bankspesen.MaxLines_Warning = ""
@@ -1396,7 +1462,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Kreditaufwendungen._Waehrung = False Me.txtAbf_Kreditaufwendungen._Waehrung = False
Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 48) Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 88)
Me.txtAbf_Kreditaufwendungen.MaxLength = 10 Me.txtAbf_Kreditaufwendungen.MaxLength = 10
Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1 Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1
Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = "" Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = ""
@@ -1420,7 +1486,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision._Waehrung = False Me.txtAbf_Vorlageprovision._Waehrung = False
Me.txtAbf_Vorlageprovision._WaehrungZeichen = True Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 26) Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 66)
Me.txtAbf_Vorlageprovision.MaxLength = 10 Me.txtAbf_Vorlageprovision.MaxLength = 10
Me.txtAbf_Vorlageprovision.MaxLineLength = -1 Me.txtAbf_Vorlageprovision.MaxLineLength = -1
Me.txtAbf_Vorlageprovision.MaxLines_Warning = "" Me.txtAbf_Vorlageprovision.MaxLines_Warning = ""
@@ -1444,7 +1510,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Zahlungsziel._Waehrung = False Me.txtAbf_Zahlungsziel._Waehrung = False
Me.txtAbf_Zahlungsziel._WaehrungZeichen = True Me.txtAbf_Zahlungsziel._WaehrungZeichen = True
Me.txtAbf_Zahlungsziel.ForeColor = System.Drawing.Color.Red Me.txtAbf_Zahlungsziel.ForeColor = System.Drawing.Color.Red
Me.txtAbf_Zahlungsziel.Location = New System.Drawing.Point(125, 119) Me.txtAbf_Zahlungsziel.Location = New System.Drawing.Point(125, 159)
Me.txtAbf_Zahlungsziel.MaxLength = 10 Me.txtAbf_Zahlungsziel.MaxLength = 10
Me.txtAbf_Zahlungsziel.MaxLineLength = -1 Me.txtAbf_Zahlungsziel.MaxLineLength = -1
Me.txtAbf_Zahlungsziel.MaxLines_Warning = "" Me.txtAbf_Zahlungsziel.MaxLines_Warning = ""
@@ -2250,8 +2316,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2348,8 +2414,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToOrderColumns = True
Me.dgvOffenePosten.AllowUserToResizeRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12 Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2505,41 +2571,41 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToDeleteRows = False
Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToOrderColumns = True
Me.dgvKreditkarten.AllowUserToResizeRows = False Me.dgvKreditkarten.AllowUserToResizeRows = False
DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15 Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.MultiSelect = False
Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.Name = "dgvKreditkarten"
Me.dgvKreditkarten.ReadOnly = True Me.dgvKreditkarten.ReadOnly = True
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16 Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvKreditkarten.RowHeadersVisible = False Me.dgvKreditkarten.RowHeadersVisible = False
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -2677,8 +2743,8 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'dgvUstv_LaenderUndSteuernummern 'dgvUstv_LaenderUndSteuernummern
' '
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
@@ -2891,8 +2957,8 @@ Partial Class usrcntlKundeBearbeitenFull
'dgvSonst_IDSKunden 'dgvSonst_IDSKunden
' '
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19 Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
@@ -3095,8 +3161,8 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1 'DataGridView1
' '
Me.DataGridView1.AllowUserToResizeRows = False Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Enabled = False Me.DataGridView1.Enabled = False
@@ -3924,14 +3990,37 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxFiBuLG.UseVisualStyleBackColor = True Me.cbxFiBuLG.UseVisualStyleBackColor = True
Me.cbxFiBuLG.Visible = False Me.cbxFiBuLG.Visible = False
' '
'UsrCntlKundeFiskaldaten1 'Label93
' '
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White Me.Label93.AutoSize = True
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill Me.Label93.Location = New System.Drawing.Point(12, 23)
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) Me.Label93.Name = "Label93"
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" Me.Label93.Size = New System.Drawing.Size(110, 13)
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458) Me.Label93.TabIndex = 32
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 Me.Label93.Text = "Debitoren-KundenNr.:"
'
'txtDebKdNr
'
Me.txtDebKdNr._DateTimeOnly = False
Me.txtDebKdNr._numbersOnly = True
Me.txtDebKdNr._numbersOnlyKommastellen = ""
Me.txtDebKdNr._Prozent = False
Me.txtDebKdNr._ShortDateNew = False
Me.txtDebKdNr._ShortDateOnly = False
Me.txtDebKdNr._TimeOnly = False
Me.txtDebKdNr._value = ""
Me.txtDebKdNr._Waehrung = False
Me.txtDebKdNr._WaehrungZeichen = False
Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red
Me.txtDebKdNr.Location = New System.Drawing.Point(125, 20)
Me.txtDebKdNr.MaxLength = 10
Me.txtDebKdNr.MaxLineLength = -1
Me.txtDebKdNr.MaxLines_Warning = ""
Me.txtDebKdNr.MaxLines_Warning_Label = Nothing
Me.txtDebKdNr.Name = "txtDebKdNr"
Me.txtDebKdNr.Size = New System.Drawing.Size(86, 20)
Me.txtDebKdNr.TabIndex = 33
Me.txtDebKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'usrcntlKundeBearbeitenFull 'usrcntlKundeBearbeitenFull
' '
@@ -4280,4 +4369,10 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label92 As Label Friend WithEvents Label92 As Label
Friend WithEvents DataGridView1 As DataGridView Friend WithEvents DataGridView1 As DataGridView
Friend WithEvents UsrCntlKundeFiskaldaten1 As usrCntlKundeFiskaldaten Friend WithEvents UsrCntlKundeFiskaldaten1 As usrCntlKundeFiskaldaten
Friend WithEvents UsrCntlKundenBesonderheiten1 As usrCntlKundenBesonderheiten
Friend WithEvents cbxBesonderheitenNEU As CheckBox
Friend WithEvents cboFremdspedition As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxVerzolltBei As CheckBox
Friend WithEvents Label93 As Label
Friend WithEvents txtDebKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class End Class

54
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -184,6 +184,8 @@ Public Class usrcntlKundeBearbeitenFull
txtAbf_ErsteAbfertigung._value = loadValue(KUNDE.Erste_Abfertigung, "") txtAbf_ErsteAbfertigung._value = loadValue(KUNDE.Erste_Abfertigung, "")
txtAbf_Vorlageprovision._value = loadValue(KUNDE.Vorlageprovision, "") txtAbf_Vorlageprovision._value = loadValue(KUNDE.Vorlageprovision, "")
txtDebKdNr.Text = loadValue(KUNDE.KundenNrZentrale, KUNDE.KundenNr)
txtAbf_Kreditaufwendungen._value = loadValue(KUNDE.Kreditaufwendungen, "") txtAbf_Kreditaufwendungen._value = loadValue(KUNDE.Kreditaufwendungen, "")
txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "") txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "")
txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "") txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "")
@@ -335,6 +337,13 @@ Public Class usrcntlKundeBearbeitenFull
UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
cbxBesonderheitenNEU.Checked = KUNDE_ERW.kde_BesonderheitenNeu
cbxVerzolltBei.Checked = KUNDE_ERW.kde_KundeFremdspedition
cboFremdspedition.Text = If(KUNDE_ERW.kde_verzolltBei, "")
initBesonderheitenNEU()
initKdKontakSpeziell() initKdKontakSpeziell()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
@@ -356,7 +365,17 @@ Public Class usrcntlKundeBearbeitenFull
If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False
If Not cboKundenkreis._value.Contains("-") Then MsgBox("Bitte geben Sie den Kundenkreis an!") : Return False If Not cboKundenkreis._value.Contains("-") Then MsgBox("Bitte geben Sie den Kundenkreis an!") : Return False
Dim s_KdNr = cboKundenkreis._value.Split("-") Dim kundenkreis = cboKundenkreis._value
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED"
If cbxLandKz._value = "A" Then
kundenkreis = "2200250-2209999" 'AT-Kundenkreis
Else
kundenkreis = "2256000 -2259990" 'ausl.Kundenkreis
End If
End Select
Dim s_KdNr = kundenkreis.Split("-")
Dim kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1 Dim kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
If kdnr > 0 Then If kdnr > 0 Then
@@ -434,6 +453,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE.Erste_Abfertigung = isLeerNothing(txtAbf_ErsteAbfertigung.Text) KUNDE.Erste_Abfertigung = isLeerNothing(txtAbf_ErsteAbfertigung.Text)
KUNDE.Vorlageprovision = isLeerNothingDbl(txtAbf_Vorlageprovision._value, 0) KUNDE.Vorlageprovision = isLeerNothingDbl(txtAbf_Vorlageprovision._value, 0)
KUNDE.KundenNrZentrale = If(txtDebKdNr.Text = "", KUNDE.KundenNr, txtDebKdNr.Text)
KUNDE.Kreditaufwendungen = isLeerNothingDbl(txtAbf_Kreditaufwendungen._value, 0) KUNDE.Kreditaufwendungen = isLeerNothingDbl(txtAbf_Kreditaufwendungen._value, 0)
KUNDE.Bankspesen = isLeerNothingDbl(txtAbf_Bankspesen._value, 0) KUNDE.Bankspesen = isLeerNothingDbl(txtAbf_Bankspesen._value, 0)
@@ -514,6 +534,16 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.Depot_Kunde = cbxDepot.Checked KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text) KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
' ----- Fremdsped -----
KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
If KUNDE_ERW.kde_KundeFremdspedition Then
KUNDE_ERW.kde_verzolltBei = cboFremdspedition.Text
Else
KUNDE_ERW.kde_verzolltBei = Nothing
End If
' ----- Abfertigungsverbot ----- ' ----- Abfertigungsverbot -----
@@ -565,6 +595,7 @@ Public Class usrcntlKundeBearbeitenFull
UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW) UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
Return True Return True
@@ -1082,7 +1113,7 @@ Public Class usrcntlKundeBearbeitenFull
Select Case cboKundenkreis._value Select Case cboKundenkreis._value
Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501") Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
Case "2000000-2099990" : cbxFiBu.Checked = False : cboFirma.changeItem("21") : cboFiliale.changeItem("5601") Case "2000000-2099990" : cbxFiBu.Checked = True : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803") Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803") Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803") Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
@@ -1163,5 +1194,24 @@ Public Class usrcntlKundeBearbeitenFull
End If End If
End Sub End Sub
Private Sub cbxBesonderheitenNEU_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBesonderheitenNEU.Click
initBesonderheitenNEU()
End Sub
Sub initBesonderheitenNEU()
If cbxBesonderheitenNEU.Checked Then
UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
UsrCntlKundenBesonderheiten1.init(KUNDE.KundenNr)
UsrCntlKundenBesonderheiten1.Visible = True
Else
UsrCntlKundenBesonderheiten1.Visible = False
End If
rtbAbf_Besonderheiten.Visible = Not UsrCntlKundenBesonderheiten1.Visible
End Sub
Private Sub cbxVerzolltBei_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVerzolltBei.CheckedChanged
cboFremdspedition.Enabled = cbxVerzolltBei.Checked
End Sub
End Class End Class

9
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSDLLeistungHUGO Partial Class usrCntlSDLLeistungHUGO
Inherits System.Windows.Forms.UserControl Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrCntlSDLLeistungHUGO
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'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() Me.components = New System.ComponentModel.Container()
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
@@ -472,6 +472,8 @@ Partial Class usrCntlSDLLeistungHUGO
Me.scanSonstiges._DATENSERVER_UOrdner1 = "" Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = "" Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = "" Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -583,5 +585,4 @@ Partial Class usrCntlSDLLeistungHUGO
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class End Class

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.vb
View File

@@ -118,7 +118,7 @@ Public Class usrCntlSDLLeistungHUGO
txtOBUID.Text = SDL.OBUID txtOBUID.Text = SDL.OBUID
txtKartenNr.Text = SDL.KartenNr txtKartenNr.Text = SDL.KartenNr
txtPin.Text = SDL.PIN txtPin.Text = SDL.PIN
PROG.initPIN(txtPin)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
@@ -207,4 +207,6 @@ Public Class usrCntlSDLLeistungHUGO
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength) If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp Return tmp
End Function End Function
End Class End Class

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb
View File

@@ -117,6 +117,7 @@ Public Class usrCntlSDLLeistungPLOSE
txtOBUID.Text = SDL.OBUID txtOBUID.Text = SDL.OBUID
txtKartenNr.Text = SDL.KartenNr txtKartenNr.Text = SDL.KartenNr
txtPin.Text = SDL.PIN txtPin.Text = SDL.PIN
PROG.initPIN(txtPin)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIDS.vb
View File

@@ -120,6 +120,7 @@ Public Class usrCntlSDLLeistungenIDS
' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, "")) ' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
txtPIN.Text = SDL.PIN txtPIN.Text = SDL.PIN
PROG.initPIN(txtPIN)
txtKartenNr.Text = SDL.KartenNr txtKartenNr.Text = SDL.KartenNr
'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, "")) 'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, ""))
'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, "")) 'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, ""))

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.vb
View File

@@ -105,6 +105,7 @@ Public Class usrCntlSDLLeistungenUTA
txtPIN.Text = SDL.PIN txtPIN.Text = SDL.PIN
PROG.initPIN(txtPIN)
txtKartenNr.Text = SDL.KartenNr txtKartenNr.Text = SDL.KartenNr
txtClientNr.Text = SDL.CLIENT_Nr txtClientNr.Text = SDL.CLIENT_Nr
txtCardNr.Text = SDL.CARD_Nr txtCardNr.Text = SDL.CARD_Nr

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenWOELFL.vb
View File

@@ -103,6 +103,7 @@ Public Class usrCntlSDLLeistungenWOELFL
txtPIN.Text = SDL.PIN txtPIN.Text = SDL.PIN
PROG.initPIN(txtPIN)
txtKartenschluesselNummer.Text = SDL.KartenSchlüsselNr txtKartenschluesselNummer.Text = SDL.KartenSchlüsselNr

31
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb generated
View File

@@ -35,6 +35,7 @@ Partial Class frmMDMDatenverarbetiung
Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker() Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnKunde = New System.Windows.Forms.Button() Me.btnKunde = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -54,7 +55,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button1 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout() Me.FlowLayoutPanel.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@@ -168,6 +169,7 @@ Partial Class frmMDMDatenverarbetiung
' '
'Panel1 'Panel1
' '
Me.Panel1.Controls.Add(Me.Button5)
Me.Panel1.Controls.Add(Me.Button1) Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.btnKunde) Me.Panel1.Controls.Add(Me.btnKunde)
Me.Panel1.Controls.Add(Me.Label4) Me.Panel1.Controls.Add(Me.Label4)
@@ -186,6 +188,16 @@ Partial Class frmMDMDatenverarbetiung
Me.Panel1.Size = New System.Drawing.Size(1163, 114) Me.Panel1.Size = New System.Drawing.Size(1163, 114)
Me.Panel1.TabIndex = 2 Me.Panel1.TabIndex = 2
' '
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(461, 43)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(136, 23)
Me.Button1.TabIndex = 46
Me.Button1.Text = "MautD einfügen"
Me.Button1.UseVisualStyleBackColor = True
'
'btnKunde 'btnKunde
' '
Me.btnKunde.Enabled = False Me.btnKunde.Enabled = False
@@ -422,15 +434,15 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577) Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
Me.MyDatagridview1.TabIndex = 0 Me.MyDatagridview1.TabIndex = 0
' '
'Button1 'Button5
' '
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(461, 43) Me.Button5.Location = New System.Drawing.Point(461, 69)
Me.Button1.Name = "Button1" Me.Button5.Name = "Button5"
Me.Button1.Size = New System.Drawing.Size(136, 23) Me.Button5.Size = New System.Drawing.Size(136, 23)
Me.Button1.TabIndex = 46 Me.Button5.TabIndex = 47
Me.Button1.Text = "MautD einfügen" Me.Button5.Text = "Fakturiert"
Me.Button1.UseVisualStyleBackColor = True Me.Button5.UseVisualStyleBackColor = True
' '
'frmMDMDatenverarbetiung 'frmMDMDatenverarbetiung
' '
@@ -488,4 +500,5 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents txtPruefsummeBrutto As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtPruefsummeBrutto As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnKunde As Button Friend WithEvents btnKunde As Button
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents Button5 As Button
End Class End Class

69
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -282,10 +282,16 @@ Public Class frmMDMDatenverarbetiung
For Each R_PLOSE In dt_Main.Rows For Each R_PLOSE In dt_Main.Rows
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH) Dim verarbOK = True
genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) If Not genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH) Then verarbOK = False
If Not genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) Then verarbOK = False
genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir) genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
If verarbOK Then
'UPDATE Fakturiert
SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "FMZOLL")
End If
If True Then 'cnt Mod 10 = 0 Then If True Then 'cnt Mod 10 = 0 Then
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100 Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100
@@ -464,6 +470,53 @@ Public Class frmMDMDatenverarbetiung
End Function End Function
Function deleteMautD(Datenquelle As String) As Boolean
Try
Dim connectionString = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb"
Else
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
End If
Dim con As New OleDbConnection(connectionString)
Dim cmd As New OleDbCommand
Dim var1 As String
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
Dim reader As OleDbDataReader = Nothing
Try
con.Open()
'Zeitstempel
Dim SQLQuery = "DELETE FROM tblMautbericht WHERE Datenquelle='" & Datenquelle & "' "
Using Command As New OleDbCommand(SQLQuery, con)
Command.ExecuteNonQuery()
Command.Dispose()
End Using
Catch ex2 As System.Exception
MsgBox("err: " & ex2.Message & ex2.StackTrace)
Finally
If reader IsNot Nothing Then reader.Close()
End Try
con.Close()
Return True
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Function genPLOSEAttachmentByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, dir As String) Function genPLOSEAttachmentByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, dir As String)
Try Try
@@ -1000,7 +1053,17 @@ Public Class frmMDMDatenverarbetiung
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Select Case LIEFERANT Select Case LIEFERANT
Case "PLOSE" : genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) Case "PLOSE" : deleteMautD("PLOSE") : genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
End Select
End Sub
Sub setFakturiertPLOSE()
SQL.doSQL("UPDATE tblPLOSE_Details SET plose_Fakturiert=1 WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' ", "FMZOLL")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Select Case LIEFERANT
Case "PLOSE" : setFakturiertPLOSE()
End Select End Select
End Sub End Sub
End Class End Class

66
SDL/zoll/usrCntlZollArtikel.Designer.vb generated
View File

@@ -23,8 +23,8 @@ Partial Class usrCntlZollArtikel
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 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()
Me.pnlFilter = New System.Windows.Forms.Panel() Me.pnlFilter = New System.Windows.Forms.Panel()
Me.dgvZollArtikel = New System.Windows.Forms.DataGridView() Me.dgvZollArtikel = New System.Windows.Forms.DataGridView()
Me.cntxtRightClick = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtRightClick = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -39,6 +39,7 @@ Partial Class usrCntlZollArtikel
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ExcelEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ExcelEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExcelListeÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ExcelListeÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TabelleInExcelÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnEdit = New System.Windows.Forms.Button() Me.btnEdit = New System.Windows.Forms.Button()
Me.btnNew = New System.Windows.Forms.Button() Me.btnNew = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button() Me.btnDel = New System.Windows.Forms.Button()
@@ -54,7 +55,7 @@ Partial Class usrCntlZollArtikel
Me.btnTarifnummerKopieren = New System.Windows.Forms.Button() Me.btnTarifnummerKopieren = New System.Windows.Forms.Button()
Me.cntxtVermerk = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtVermerk = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.TabelleInExcelÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.btnDelAll = New System.Windows.Forms.Button()
CType(Me.dgvZollArtikel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvZollArtikel, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxtRightClick.SuspendLayout() Me.cntxtRightClick.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@@ -79,8 +80,8 @@ Partial Class usrCntlZollArtikel
Me.dgvZollArtikel.AllowUserToAddRows = False Me.dgvZollArtikel.AllowUserToAddRows = False
Me.dgvZollArtikel.AllowUserToDeleteRows = False Me.dgvZollArtikel.AllowUserToDeleteRows = False
Me.dgvZollArtikel.AllowUserToResizeRows = False Me.dgvZollArtikel.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvZollArtikel.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvZollArtikel.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvZollArtikel.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvZollArtikel.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvZollArtikel.ContextMenuStrip = Me.cntxtRightClick Me.dgvZollArtikel.ContextMenuStrip = Me.cntxtRightClick
Me.dgvZollArtikel.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvZollArtikel.Dock = System.Windows.Forms.DockStyle.Fill
@@ -130,6 +131,7 @@ Partial Class usrCntlZollArtikel
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.Controls.Add(Me.btnDelAll)
Me.Panel1.Controls.Add(Me.btnRefresh) Me.Panel1.Controls.Add(Me.btnRefresh)
Me.Panel1.Controls.Add(Me.lblTestsystem) Me.Panel1.Controls.Add(Me.lblTestsystem)
Me.Panel1.Controls.Add(Me.btnExcel) Me.Panel1.Controls.Add(Me.btnExcel)
@@ -146,7 +148,7 @@ Partial Class usrCntlZollArtikel
'btnRefresh 'btnRefresh
' '
Me.btnRefresh.allowBorder = False Me.btnRefresh.allowBorder = False
Me.btnRefresh.BackgroundImage = Global.SDL.My.Resources.refresh Me.btnRefresh.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.btnRefresh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnRefresh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnRefresh.FlatAppearance.BorderSize = 0 Me.btnRefresh.FlatAppearance.BorderSize = 0
Me.btnRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -176,7 +178,7 @@ Partial Class usrCntlZollArtikel
Me.btnExcel.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.btnExcel.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.ForeColor = System.Drawing.Color.Black Me.btnExcel.ForeColor = System.Drawing.Color.Black
Me.btnExcel.Image = Global.SDL.My.Resources.Excel_logo Me.btnExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnExcel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnExcel.Location = New System.Drawing.Point(576, 3) Me.btnExcel.Location = New System.Drawing.Point(576, 3)
Me.btnExcel.Name = "btnExcel" Me.btnExcel.Name = "btnExcel"
@@ -190,7 +192,7 @@ Partial Class usrCntlZollArtikel
' '
Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExcelEinlesenToolStripMenuItem, Me.ExcelListeÖffnenToolStripMenuItem, Me.TabelleInExcelÖffnenToolStripMenuItem}) Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExcelEinlesenToolStripMenuItem, Me.ExcelListeÖffnenToolStripMenuItem, Me.TabelleInExcelÖffnenToolStripMenuItem})
Me.cntxtExcel.Name = "cntxtExcel" Me.cntxtExcel.Name = "cntxtExcel"
Me.cntxtExcel.Size = New System.Drawing.Size(192, 92) Me.cntxtExcel.Size = New System.Drawing.Size(192, 70)
' '
'ExcelEinlesenToolStripMenuItem 'ExcelEinlesenToolStripMenuItem
' '
@@ -204,12 +206,18 @@ Partial Class usrCntlZollArtikel
Me.ExcelListeÖffnenToolStripMenuItem.Size = New System.Drawing.Size(191, 22) Me.ExcelListeÖffnenToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
Me.ExcelListeÖffnenToolStripMenuItem.Text = "Excel Liste öffnen" Me.ExcelListeÖffnenToolStripMenuItem.Text = "Excel Liste öffnen"
' '
'TabelleInExcelÖffnenToolStripMenuItem
'
Me.TabelleInExcelÖffnenToolStripMenuItem.Name = "TabelleInExcelÖffnenToolStripMenuItem"
Me.TabelleInExcelÖffnenToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
Me.TabelleInExcelÖffnenToolStripMenuItem.Text = "Tabelle in Excel öffnen"
'
'btnEdit 'btnEdit
' '
Me.btnEdit.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.btnEdit.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.btnEdit.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnEdit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEdit.ForeColor = System.Drawing.Color.Black Me.btnEdit.ForeColor = System.Drawing.Color.Black
Me.btnEdit.Image = Global.SDL.My.Resources.stift Me.btnEdit.Image = Global.SDL.My.Resources.Resources.stift
Me.btnEdit.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnEdit.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnEdit.Location = New System.Drawing.Point(314, 3) Me.btnEdit.Location = New System.Drawing.Point(314, 3)
Me.btnEdit.Name = "btnEdit" Me.btnEdit.Name = "btnEdit"
@@ -224,7 +232,7 @@ Partial Class usrCntlZollArtikel
Me.btnNew.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.btnNew.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.ForeColor = System.Drawing.Color.Black Me.btnNew.ForeColor = System.Drawing.Color.Black
Me.btnNew.Image = Global.SDL.My.Resources.plus Me.btnNew.Image = Global.SDL.My.Resources.Resources.plus
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNew.Location = New System.Drawing.Point(191, 3) Me.btnNew.Location = New System.Drawing.Point(191, 3)
Me.btnNew.Name = "btnNew" Me.btnNew.Name = "btnNew"
@@ -239,7 +247,7 @@ Partial Class usrCntlZollArtikel
Me.btnDel.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.btnDel.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.ForeColor = System.Drawing.Color.Black Me.btnDel.ForeColor = System.Drawing.Color.Black
Me.btnDel.Image = Global.SDL.My.Resources.del Me.btnDel.Image = Global.SDL.My.Resources.Resources.del
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDel.Location = New System.Drawing.Point(437, 3) Me.btnDel.Location = New System.Drawing.Point(437, 3)
Me.btnDel.Name = "btnDel" Me.btnDel.Name = "btnDel"
@@ -252,7 +260,7 @@ Partial Class usrCntlZollArtikel
'FlatButton1 'FlatButton1
' '
Me.FlatButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.FlatButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.plus Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black Me.FlatButton1.ForeColor = System.Drawing.Color.Black
@@ -278,14 +286,14 @@ Partial Class usrCntlZollArtikel
Me.dgvKdVermerke.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells Me.dgvKdVermerke.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
Me.dgvKdVermerke.BackgroundColor = System.Drawing.Color.White Me.dgvKdVermerke.BackgroundColor = System.Drawing.Color.White
Me.dgvKdVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvKdVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle1.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)) DataGridViewCellStyle1.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 DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKdVermerke.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvKdVermerke.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvKdVermerke.Location = New System.Drawing.Point(156, 3) Me.dgvKdVermerke.Location = New System.Drawing.Point(156, 3)
Me.dgvKdVermerke.Name = "dgvKdVermerke" Me.dgvKdVermerke.Name = "dgvKdVermerke"
Me.dgvKdVermerke.RowHeadersVisible = False Me.dgvKdVermerke.RowHeadersVisible = False
@@ -299,7 +307,7 @@ Partial Class usrCntlZollArtikel
Me.btnAtlas.FlatAppearance.BorderSize = 0 Me.btnAtlas.FlatAppearance.BorderSize = 0
Me.btnAtlas.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAtlas.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAtlas.ForeColor = System.Drawing.Color.Black Me.btnAtlas.ForeColor = System.Drawing.Color.Black
Me.btnAtlas.Image = Global.SDL.My.Resources.transfer Me.btnAtlas.Image = Global.SDL.My.Resources.Resources.transfer
Me.btnAtlas.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAtlas.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAtlas.Location = New System.Drawing.Point(550, 204) Me.btnAtlas.Location = New System.Drawing.Point(550, 204)
Me.btnAtlas.Name = "btnAtlas" Me.btnAtlas.Name = "btnAtlas"
@@ -396,11 +404,20 @@ Partial Class usrCntlZollArtikel
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22)
Me.ToolStripMenuItem1.Text = "Löschen" Me.ToolStripMenuItem1.Text = "Löschen"
' '
'TabelleInExcelÖffnenToolStripMenuItem 'btnDelAll
' '
Me.TabelleInExcelÖffnenToolStripMenuItem.Name = "TabelleInExcelÖffnenToolStripMenuItem" Me.btnDelAll.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.TabelleInExcelÖffnenToolStripMenuItem.Size = New System.Drawing.Size(191, 22) Me.btnDelAll.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.TabelleInExcelÖffnenToolStripMenuItem.Text = "Tabelle in Excel öffnen" Me.btnDelAll.ForeColor = System.Drawing.Color.Black
Me.btnDelAll.Image = Global.SDL.My.Resources.Resources.del
Me.btnDelAll.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDelAll.Location = New System.Drawing.Point(740, 4)
Me.btnDelAll.Name = "btnDelAll"
Me.btnDelAll.Size = New System.Drawing.Size(126, 27)
Me.btnDelAll.TabIndex = 24
Me.btnDelAll.Text = "Alle Löschen"
Me.btnDelAll.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDelAll.UseVisualStyleBackColor = True
' '
'usrCntlZollArtikel 'usrCntlZollArtikel
' '
@@ -459,4 +476,5 @@ Partial Class usrCntlZollArtikel
Friend WithEvents cntxtVermerk As System.Windows.Forms.ContextMenuStrip Friend WithEvents cntxtVermerk As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TabelleInExcelÖffnenToolStripMenuItem As ToolStripMenuItem Friend WithEvents TabelleInExcelÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnDelAll As Button
End Class End Class

2
SDL/zoll/usrCntlZollArtikel.resx
View File

@@ -121,7 +121,7 @@
<value>122, 17</value> <value>122, 17</value>
</metadata> </metadata>
<metadata name="cntxtExcel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cntxtExcel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 23</value>
</metadata> </metadata>
<metadata name="cntxtVermerk.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cntxtVermerk.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 17</value> <value>255, 17</value>

29
SDL/zoll/usrCntlZollArtikel.vb
View File

@@ -30,6 +30,7 @@ Public Class usrCntlZollArtikel
btnNew.Enabled = True btnNew.Enabled = True
btnEdit.Enabled = True btnEdit.Enabled = True
btnDel.Enabled = True btnDel.Enabled = True
btnDelAll.Enabled = True
btnExcel.Enabled = True btnExcel.Enabled = True
' btnAtlas.Visible = True ' btnAtlas.Visible = True
editAllowed = True editAllowed = True
@@ -37,6 +38,7 @@ Public Class usrCntlZollArtikel
btnNew.Visible = False btnNew.Visible = False
btnEdit.Visible = False btnEdit.Visible = False
btnDel.Visible = False btnDel.Visible = False
btnDelAll.Visible = False
btnExcel.Visible = False btnExcel.Visible = False
' btnAtlas.Enabled = False ' btnAtlas.Enabled = False
editAllowed = False editAllowed = False
@@ -380,6 +382,20 @@ Public Class usrCntlZollArtikel
End If End If
End If End If
End If End If
'If dgvZollArtikel.SelectedRows.Count > 0 Then
' If vbYes = MsgBox("Möchten Sie '" & dgvZollArtikel.SelectedRows.Count & "' Einträge wirklich löschen?", vbYesNoCancel) Then
' For Each r In dgvZollArtikel.SelectedRows
' If dgvZollArtikel.CurrentRow.Selected Then
' If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
' dgvZollArtikel.Rows.Remove(dgvZollArtikel.CurrentRow)
' save()
' End If
' End If
' Next
' End If
'End If
End Sub End Sub
Private Sub save() Private Sub save()
@@ -596,7 +612,7 @@ Public Class usrCntlZollArtikel
If Not myArray(i, 3) Is Nothing Then If Not myArray(i, 3) Is Nothing Then
If myArray(i, 3).ToString().Length > 200 Then c = True : fehler(i, 3, myArray(i, 3).ToString()) If myArray(i, 3).ToString().Length > 200 Then c = True : fehler(i, 3, myArray(i, 3).ToString())
End If End If
If myArray(i, 4) Is Nothing Or myArray(i, 4).ToString() = "" Or myArray(i, 4).ToString().Length > 11 Or Not IsNumeric(myArray(i, 4).ToString()) Then c = True : fehler(i, 4, myArray(i, 4).ToString()) If myArray(i, 4) Is Nothing Or myArray(i, 4).ToString() = "" Or myArray(i, 4).ToString().Replace(" ", "").Replace(".", "").Length > 11 Or Not IsNumeric(myArray(i, 4).ToString().Replace(" ", "").Replace(".", "")) Then c = True : fehler(i, 4, myArray(i, 4).ToString())
If myArray(i, 5) Is Nothing Or myArray(i, 5).ToString() = "" Or myArray(i, 5).ToString().Length > 60 Then c = True : fehler(i, 5, myArray(i, 5).ToString()) If myArray(i, 5) Is Nothing Or myArray(i, 5).ToString() = "" Or myArray(i, 5).ToString().Length > 60 Then c = True : fehler(i, 5, myArray(i, 5).ToString())
If myArray(i, 6) Is Nothing Or myArray(i, 6).ToString() = "" Or myArray(i, 6).ToString().Length > 240 Then c = True : fehler(i, 6, myArray(i, 6).ToString()) If myArray(i, 6) Is Nothing Or myArray(i, 6).ToString() = "" Or myArray(i, 6).ToString().Length > 240 Then c = True : fehler(i, 6, myArray(i, 6).ToString())
@@ -619,7 +635,7 @@ Public Class usrCntlZollArtikel
a.Artikelnummer = myArray(i, 1).ToString a.Artikelnummer = myArray(i, 1).ToString
If Not myArray(i, 2) Is Nothing Then a.Dynamische_Ergänzung_1 = myArray(i, 2).ToString If Not myArray(i, 2) Is Nothing Then a.Dynamische_Ergänzung_1 = myArray(i, 2).ToString
If Not myArray(i, 3) Is Nothing Then a.Dynamische_Ergänzung_2 = myArray(i, 3).ToString If Not myArray(i, 3) Is Nothing Then a.Dynamische_Ergänzung_2 = myArray(i, 3).ToString
a.Warencodenummer = myArray(i, 4).ToString a.Warencodenummer = myArray(i, 4).ToStringReplace(" ", "").Replace(".", "")
a.Kurzbezeichnung = myArray(i, 5).ToString a.Kurzbezeichnung = myArray(i, 5).ToString
a.Warenbeschreibung = myArray(i, 6).ToString a.Warenbeschreibung = myArray(i, 6).ToString
a.Verarbeitungskennzeichen = "0" a.Verarbeitungskennzeichen = "0"
@@ -824,4 +840,13 @@ Public Class usrCntlZollArtikel
Private Sub TabelleInExcelÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabelleInExcelÖffnenToolStripMenuItem.Click Private Sub TabelleInExcelÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabelleInExcelÖffnenToolStripMenuItem.Click
FUNC.genExcelFromDGV_NEW(dgvZollArtikel) FUNC.genExcelFromDGV_NEW(dgvZollArtikel)
End Sub End Sub
Private Sub btnDelAll_Click(sender As Object, e As EventArgs) Handles btnDelAll.Click
If vbYes = MsgBox("Möchten Sie wirklich ALLE Einträge löschen (" & dgvZollArtikel.RowCount & ")?", vbYesNoCancel) Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If SQL.doSQL("DELETE [tblZollArtikel] where KundenNr='" & kdnr & "'", "FMZOLL") Then
initSearch()
End If
End If
End Sub
End Class End Class

51
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -930,6 +930,7 @@ Public Class cAviso
Property FreigabeFiliale As Object = Nothing Property FreigabeFiliale As Object = Nothing
Property VoraussichtlichesEintreffen As Object = Nothing Property VoraussichtlichesEintreffen As Object = Nothing
Property VORSYSTEM As Object = Nothing Property VORSYSTEM As Object = Nothing
Property Warenort As Boolean = False
@@ -1071,6 +1072,7 @@ Public Class cAvisoDAL
daten.FreigabeFiliale = If(dr.Item("FreigabeFiliale") Is DBNull.Value, Nothing, dr.Item("FreigabeFiliale")) daten.FreigabeFiliale = If(dr.Item("FreigabeFiliale") Is DBNull.Value, Nothing, dr.Item("FreigabeFiliale"))
daten.VoraussichtlichesEintreffen = If(dr.Item("VoraussichtlichesEintreffen") Is DBNull.Value, Nothing, dr.Item("VoraussichtlichesEintreffen")) daten.VoraussichtlichesEintreffen = If(dr.Item("VoraussichtlichesEintreffen") Is DBNull.Value, Nothing, dr.Item("VoraussichtlichesEintreffen"))
daten.VORSYSTEM = If(dr.Item("VORSYSTEM") Is DBNull.Value, Nothing, dr.Item("VORSYSTEM")) daten.VORSYSTEM = If(dr.Item("VORSYSTEM") Is DBNull.Value, Nothing, dr.Item("VORSYSTEM"))
daten.Warenort = If(dr.Item("Warenort") Is DBNull.Value, Nothing, dr.Item("Warenort"))
@@ -1344,17 +1346,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " & hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " & "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " & "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen) VALUES (" & " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " & "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," & "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen); SELECT CAST(scope_identity() AS int);" "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort); SELECT CAST(scope_identity() AS int);"
Else Else
id = d.AvisoID id = d.AvisoID
'Änderung 'Änderung
hAuswahl = String.Format( hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " & "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " & " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen" & " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort" &
" WHERE AvisoID = @AvisoID") " WHERE AvisoID = @AvisoID")
End If End If
@@ -1423,6 +1425,7 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@KdAuftragsNr_Avisierer", If(d.KdAuftragsNr_Avisierer Is Nothing, DBNull.Value, d.KdAuftragsNr_Avisierer)) cmd.Parameters.AddWithValue("@KdAuftragsNr_Avisierer", If(d.KdAuftragsNr_Avisierer Is Nothing, DBNull.Value, d.KdAuftragsNr_Avisierer))
cmd.Parameters.AddWithValue("@FreigabeFiliale", If(d.FreigabeFiliale Is Nothing, DBNull.Value, d.FreigabeFiliale)) cmd.Parameters.AddWithValue("@FreigabeFiliale", If(d.FreigabeFiliale Is Nothing, DBNull.Value, d.FreigabeFiliale))
cmd.Parameters.AddWithValue("@VoraussichtlichesEintreffen", If(d.VoraussichtlichesEintreffen Is Nothing, DBNull.Value, d.VoraussichtlichesEintreffen)) cmd.Parameters.AddWithValue("@VoraussichtlichesEintreffen", If(d.VoraussichtlichesEintreffen Is Nothing, DBNull.Value, d.VoraussichtlichesEintreffen))
cmd.Parameters.AddWithValue("@Warenort", d.Warenort)
Try Try
@@ -1770,6 +1773,7 @@ Public Class cVermerk
Property MitarbeiterId As Integer Property MitarbeiterId As Integer
Property Hinweis_Vermerk As String Property Hinweis_Vermerk As String
Property VermerkCodeId As Integer Property VermerkCodeId As Integer
Property VorauskasseId As Object = Nothing
Property Beschreibung As String = "" Property Beschreibung As String = ""
@@ -1801,6 +1805,7 @@ Public Class cVermerkeDAL
daten.VermerkCodeId = VarToInt(dr.Item("VermerkeCode")) daten.VermerkCodeId = VarToInt(dr.Item("VermerkeCode"))
daten.SendungID = VarToInt(dr.Item("SendungID")) daten.SendungID = VarToInt(dr.Item("SendungID"))
daten.VermerkArt = VarToStr(dr.Item("VermerkArt")) daten.VermerkArt = VarToStr(dr.Item("VermerkArt"))
daten.VorauskasseId = VarToStr(dr.Item("VorauskasseId"))
End If End If
dr.Close() dr.Close()
End Using End Using
@@ -1950,11 +1955,11 @@ Public Class cVermerkeDAL
If d.VermerkID = 0 Then If d.VermerkID = 0 Then
'Neuanlage 'Neuanlage
hAuswahl = "INSERT INTO Vermerke " & hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung)" "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId)"
Else Else
'Änderung 'Änderung
hAuswahl = String.Format( hAuswahl = String.Format(
"UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung WHERE VermerkID = @VermerkID") "UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID")
End If End If
Dim sql = hAuswahl Dim sql = hAuswahl
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -1968,7 +1973,8 @@ Public Class cVermerkeDAL
cmd.Parameters.AddWithValue("@MitarbeiterId", d.MitarbeiterId) cmd.Parameters.AddWithValue("@MitarbeiterId", d.MitarbeiterId)
cmd.Parameters.AddWithValue("@Beschreibung", d.Beschreibung) cmd.Parameters.AddWithValue("@Beschreibung", d.Beschreibung)
cmd.Parameters.AddWithValue("@VermerkArt", d.VermerkArt) cmd.Parameters.AddWithValue("@VermerkArt", d.VermerkArt)
cmd.Parameters.AddWithValue("@SendungID", IIf(d.SendungID > 0, d.SendungID, DBNull.Value)) cmd.Parameters.AddWithValue("@SendungID", If(d.SendungID > 0, d.SendungID, DBNull.Value))
cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value))
Try Try
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
@@ -2165,18 +2171,32 @@ Public Class cAvisoTV
Property FixeZeile1 As String Property FixeZeile1 As String
Property FixeZeile2 As String Property FixeZeile2 As String
Property FixeZeile3 As String Property FixeZeile3 As String
Property Standort As String
Property Art As String
End Class End Class
Public Class cAvisoTVDAL Public Class cAvisoTVDAL
Public Function LesenAvisoTV(hID As Integer, hSQL As String) As cAvisoTV Public Function LesenAvisoTV(hID As Integer, wherehSQL As String, Standort As String, Special As String) As cAvisoTV
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
Dim sql As String Dim sql As String
sql = "SELECT * FROM AvisoTV WHERE 1=1 "
If hID > 0 Then If hID > 0 Then
sql = String.Format("SELECT * FROM AvisoTV WHERE TVID = {0}", hID) sql &= String.Format(" AND TVID = {0}", hID)
Else Else
sql = hSQL sql &= wherehSQL
End If End If
If Standort <> "" Then
sql &= " AND Standort='" & Standort & "'"
End If
If Standort <> "" Then
sql &= " AND (Special is null or Special='" & Special & "') "
End If
sql &= " ORDER BY Special desc,TVID "
Dim daten As cAvisoTV = Nothing Dim daten As cAvisoTV = Nothing
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
Try Try
@@ -2189,6 +2209,8 @@ Public Class cAvisoTVDAL
daten.FixeZeile1 = VarToStr(dr.Item("FixeZeile1")) daten.FixeZeile1 = VarToStr(dr.Item("FixeZeile1"))
daten.FixeZeile2 = VarToStr(dr.Item("FixeZeile2")) daten.FixeZeile2 = VarToStr(dr.Item("FixeZeile2"))
daten.FixeZeile3 = VarToStr(dr.Item("FixeZeile3")) daten.FixeZeile3 = VarToStr(dr.Item("FixeZeile3"))
daten.Standort = VarToStr(dr.Item("Standort"))
daten.Art = VarToStr(dr.Item("Art"))
End If End If
dr.Close() dr.Close()
End Using End Using
@@ -2206,11 +2228,11 @@ Public Class cAvisoTVDAL
If d.TVID = 0 Then If d.TVID = 0 Then
'Neuanlage 'Neuanlage
hAuswahl = "INSERT INTO AvisoTV " & hAuswahl = "INSERT INTO AvisoTV " &
"(FixeZeile1, FixeZeile2, FixeZeile3) VALUES (@FixeZeile1, @FixeZeile2, @FixeZeile3)" "(FixeZeile1, FixeZeile2, FixeZeile3) VALUES (@FixeZeile1, @FixeZeile2, @FixeZeile3, @Standort, @Art)"
Else Else
'Änderung 'Änderung
hAuswahl = String.Format( hAuswahl = String.Format(
"UPDATE AvisoTV SET FixeZeile1=@FixeZeile1, FixeZeile2=@FixeZeile2, FixeZeile3=@FixeZeile3 WHERE TVID = @TVID") "UPDATE AvisoTV SET FixeZeile1=@FixeZeile1, FixeZeile2=@FixeZeile2, FixeZeile3=@FixeZeile3 , Standort=@Standort , Art=@Art WHERE TVID = @TVID")
End If End If
Dim sql = hAuswahl Dim sql = hAuswahl
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2218,6 +2240,8 @@ Public Class cAvisoTVDAL
cmd.Parameters.AddWithValue("@FixeZeile1", d.FixeZeile1) cmd.Parameters.AddWithValue("@FixeZeile1", d.FixeZeile1)
cmd.Parameters.AddWithValue("@FixeZeile2", d.FixeZeile2) cmd.Parameters.AddWithValue("@FixeZeile2", d.FixeZeile2)
cmd.Parameters.AddWithValue("@FixeZeile3", d.FixeZeile3) cmd.Parameters.AddWithValue("@FixeZeile3", d.FixeZeile3)
cmd.Parameters.AddWithValue("@Standort", d.Standort)
cmd.Parameters.AddWithValue("@Art", d.Art)
cmd.Parameters.AddWithValue("@TVID", d.TVID) cmd.Parameters.AddWithValue("@TVID", d.TVID)
Try Try
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
@@ -2293,12 +2317,13 @@ Public Class cOptionenDAL
' MsgBox(sql) ' MsgBox(sql)
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn) Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@LetzterMitarbeiter", cGlobal.AktiverMitarbeiter.Mitarbeiter & "/" & cAllgemein.USRNAME.ToString) ' cmd.Parameters.AddWithValue("@LetzterMitarbeiter", cGlobal.AktiverMitarbeiter.Mitarbeiter & "/" & cAllgemein.USRNAME.ToString)
cmd.Parameters.AddWithValue("@LetzterMitarbeiter", cGlobal.AktiverMitarbeiter.Mitarbeiter)
cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", cGlobal.AktiverMitarbeiter.MitarbeiterID) cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", cGlobal.AktiverMitarbeiter.MitarbeiterID)
Try Try
zeilen = cmd.ExecuteNonQuery() zeilen = cmd.ExecuteNonQuery()
Catch ex As SqlException Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Firma") MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler bei setAVISOFromPcName")
End Try End Try
End Using End Using
conn.Close() conn.Close()

9
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -310,7 +310,7 @@ Public Class KdSearchBox
AvisoEmail = ", (SELECT CASE WHEN Count(*)>0 Then 'JA' ELSE '' END [Adressen] FROM [tblEmailBenachrichtigung] WHERE [eb_KundenNr]=AdressenNr) as [E-Mail] " AvisoEmail = ", (SELECT CASE WHEN Count(*)>0 Then 'JA' ELSE '' END [Adressen] FROM [tblEmailBenachrichtigung] WHERE [eb_KundenNr]=AdressenNr) as [E-Mail] "
End If End If
Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " & AvisoEmail & " " Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " & AvisoEmail & " "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ", Filialen.Firma as Firma_Intern " If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ", Filialen.Firma as Firma_Intern "
SQLstr &= " FROM [Adressen] " SQLstr &= " FROM [Adressen] "
SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr " SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr "
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
@@ -382,7 +382,7 @@ Public Class KdSearchBox
If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden * If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden *
Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ", Filialen.Firma as Firma_Intern " If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ", Filialen.Firma as Firma_Intern "
SQLstr &= " FROM [Adressen] " SQLstr &= " FROM [Adressen] "
SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr " SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr "
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
@@ -407,7 +407,6 @@ Public Class KdSearchBox
' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " ' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
'End If 'End If
If _AlleFirmenCLUSTER Then If _AlleFirmenCLUSTER Then
SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
ElseIf _UseFIRMA <> "" Then ElseIf _UseFIRMA <> "" Then
@@ -771,6 +770,10 @@ Public Class KdSearchBox
Me.usrcntl = New usrcntlKdSearch Me.usrcntl = New usrcntlKdSearch
control.Controls.Add(usrcntl) control.Controls.Add(usrcntl)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
_AlleFirmenCLUSTER = True
End If
'Me.usrcntl = usrcntl 'Me.usrcntl = usrcntl
hideDgv(Me.usrcntl) hideDgv(Me.usrcntl)
If kdNrBox IsNot Nothing Then Me.kdNrField = kdNrBox If kdNrBox IsNot Nothing Then Me.kdNrField = kdNrBox

44
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb
View File

@@ -102,6 +102,11 @@ Public Class MyTextBox
addNowBtnToDate2() addNowBtnToDate2()
'addPicToGueltigBis() 'addPicToGueltigBis()
End Sub End Sub
Sub initPINSHowPic()
addNowBtnToPIN()
'addPicToGueltigBis()
End Sub
Public Sub addNowBtnToDate() Public Sub addNowBtnToDate()
Dim tb = Me Dim tb = Me
Dim pb As New MyLinkPicBoxVALUE Dim pb As New MyLinkPicBoxVALUE
@@ -161,6 +166,33 @@ Public Class MyTextBox
End If End If
End Sub End Sub
End Sub
Public Sub addNowBtnToPIN()
Dim tb = Me
Dim pb As New MyLinkPicBoxVALUE
tb.Parent.Controls.Add(pb)
pb.Tag = "Feld bearbeiten"
pb.Left = tb.Left + tb.Width + 5 : pb.Top = tb.Top
pb.Height = 15 : pb.Width = 15
pb.Anchor = tb.Anchor
pb.SizeMode = PictureBoxSizeMode.Zoom
pb.Cursor = Cursors.Hand
pb.Image = My.Resources.stift
pb.linkedTextBox = tb
' ToolTip Text zuordnen
Dim tooltip As New ToolTip '
tooltip.SetToolTip(pb, "Heute")
AddHandler pb.Click, AddressOf linkclickedPIN
'AddHandler tb.EnabledChanged, Sub(send, ev)
' tb.ForeColor = Color.Black
' End Sub
End Sub End Sub
@@ -176,6 +208,18 @@ Public Class MyTextBox
End Try End Try
End Sub End Sub
Sub linkclickedPIN(sender As Object, e As EventArgs)
'Dim DateTimePicker1 As New DateTimePicker
' Me.Parent.Controls.Add(DateTimePicker1)
Try
Dim tb As TextBox = sender.linkedTextBox
' tb.Enabled = True
tb.ReadOnly = False
tb.BackColor = Color.White
Catch ex As Exception
End Try
End Sub
Public Sub addPicToGueltigBis() Public Sub addPicToGueltigBis()
Dim tb = Me Dim tb = Me
Dim pb As New MyLinkPicBoxVALUE Dim pb As New MyLinkPicBoxVALUE

149
VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb Normal file
View File

@@ -0,0 +1,149 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cAbrechnung_NCTSBrg_LIST
Public LIST As New List(Of cAbrechnung_NCTSBrg)
Sub New(abrg_Partner)
LOAD_LIST(abrg_Partner)
End Sub
Sub LOAD_LIST(abrg_Partner)
Try
LIST.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select abrg_Id From [tblAbrechnung_NCTSBrg] Where [abrg_Partner] =@abrg_Partner order by abrg_GarantiewertBis", conn)
cmd.Parameters.AddWithValue("@abrg_Partner", abrg_Partner)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim L As New cAbrechnung_NCTSBrg(dr.Item("abrg_Id"))
LIST.Add(L)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
End Class
Public Class cAbrechnung_NCTSBrg
Property abrg_Id As Integer
Property abrg_Partner As String
Property abrg_artAbrechnung As String = "LKW"
Property abrg_GarantiewertBis As Decimal = 0
Property abrg_bertrag As Decimal = 0
Property abrg_prozent As Object = Nothing
Public _ANZAHL As Integer = 0
Public _BETRAG As Integer = 0
Public hasEntry = False
Dim SQL As New SQL
Sub New(abrg_Id)
Me.abrg_Id = abrg_Id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_Id", abrg_Id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_Partner", abrg_Partner))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_artAbrechnung", abrg_artAbrechnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_GarantiewertBis", abrg_GarantiewertBis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_bertrag", abrg_bertrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_prozent", abrg_prozent))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAbrechnung_NCTSBrg WHERE abrg_Id=@abrg_Id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblAbrechnung_NCTSBrg WHERE abrg_Id=@abrg_Id ", conn)
cmd.Parameters.AddWithValue("@abrg_Id", abrg_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblAbrechnung_NCTSBrg] SET " & str & " WHERE abrg_Id=@abrg_Id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblAbrechnung_NCTSBrg (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

8
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
View File

@@ -34,7 +34,7 @@ Public Class cEZB_Waehrungskurse
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungscode", ezb_waehrungscode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungscode", ezb_waehrungscode))
If Me.ezb_waehrungsschluessel Is Nothing Then If Me.ezb_waehrungsschluessel Is Nothing Then
Me.ezb_waehrungsschluessel = SQL.getValueTxtBySql(" Select TOP 1 isnull([Währungsschlüssel] ,'') FROM [Währungstabelle] where [Währungscode]='" & Me.ezb_waehrungscode & "' ", "FMZOLL") Me.ezb_waehrungsschluessel = SQL.getValueTxtBySql(" Select TOP 1 isnull([Währungsschlüssel] ,'') FROM [Währungstabelle] where [Währungscode]='" & Me.ezb_waehrungscode.Replace("TRY", "TRL") & "' ", "FMZOLL")
End If End If
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungsschluessel", ezb_waehrungsschluessel)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungsschluessel", ezb_waehrungsschluessel))
@@ -140,4 +140,10 @@ Public Class cEZB_Waehrungskurse
End Function End Function
Shared Function UPDATE_Waehrungstabelle(datum As Date) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " UPDATE [Währungstabelle] SET [Währungstabelle].Eurokurs=tblEZB_Waehrungskurse.ezb_kurs
FROM [Währungstabelle] inner join tblEZB_Waehrungskurse on [Währungstabelle].Währungsschlüssel=tblEZB_Waehrungskurse.ezb_waehrungsschluessel where tblEZB_Waehrungskurse.ezb_datum='" & datum.ToShortDateString & "' "
Return (New SQL).doSQL(sqlstr, "FMZOLL")
End Function
End Class End Class

2
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
View File

@@ -26,6 +26,7 @@ Public Class cFirmen
Property Firma_Telefax As Object = Nothing ' NVARCHAR (40) NULL, Property Firma_Telefax As Object = Nothing ' NVARCHAR (40) NULL,
Property Firma_E_Mail As Object = Nothing ' NVARCHAR (40) NULL, ----- Property Firma_E_Mail As Object = Nothing ' NVARCHAR (40) NULL, -----
Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL, Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL,
Property Firma_LandKz As Object = Nothing ' NVARCHAR (40) NULL,
@@ -66,6 +67,7 @@ Public Class cFirmen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefax", Firma_Telefax)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefax", Firma_Telefax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E-Mail", Firma_E_Mail, "Firma_E_Mail")) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E-Mail", Firma_E_Mail, "Firma_E_Mail"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz))
Return list Return list

4
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -82,6 +82,10 @@ Public Class cKunde
Property FiBuSchnittstelleNr As Object = Nothing Property FiBuSchnittstelleNr As Object = Nothing
Public hasEntry As Boolean = False Public hasEntry As Boolean = False
Dim SQL As New SQL Dim SQL As New SQL

129
VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb Normal file
View File

@@ -0,0 +1,129 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cKundenBesonderheiten
Property kdb_id As Integer
Property kdb_KundenNr As Integer
Property kdb_kategorie As String
Property kdb_text As String
Property kdb_mitId As Integer
Property kdb_mitName As String
Property kdb_EingetragenAm As Date
Property kdb_AenderungAm As Date
Property kdb_visible As Boolean = True
Property kdb_hervorheben As Boolean = False
Property kdb_history As Boolean = False
Public hasEntry = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(kdb_id)
Me.kdb_id = kdb_id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_id", kdb_id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_KundenNr", kdb_KundenNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_kategorie", kdb_kategorie))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_text", kdb_text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_mitId", kdb_mitId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_mitName", kdb_mitName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_EingetragenAm", kdb_EingetragenAm))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_AenderungAm", kdb_AenderungAm))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_visible", kdb_visible))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_hervorheben", kdb_hervorheben))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_history", kdb_history))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenBesonderheiten WHERE kdb_id=@kdb_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblKundenBesonderheiten WHERE kdb_id=@kdb_id ", conn)
cmd.Parameters.AddWithValue("@kdb_id", kdb_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblKundenBesonderheiten] SET " & str & " WHERE kdb_id=@kdb_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblKundenBesonderheiten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -50,7 +50,11 @@ Public Class cKundenErweitert
Property AutoFakturierung As Boolean = False Property AutoFakturierung As Boolean = False
Property Anmerkungen_Warnhinweis As Object = Nothing Property Anmerkungen_Warnhinweis As Object = Nothing
Property kde_VERAG_INTERFACE_ID As Object = Nothing Property kde_VERAG_INTERFACE_ID As Object = Nothing
Property kde_BesonderheitenNeu As Boolean = False
Property kde_InfoAuftragsNr As Object = Nothing
Property kde_KundeFremdspedition As Boolean = False
Property kde_verzolltBei As Object = Nothing
Dim SQL As New SQL Dim SQL As New SQL
@@ -102,6 +106,10 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AutoFakturierung", AutoFakturierung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AutoFakturierung", AutoFakturierung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmerkungen_Warnhinweis", Anmerkungen_Warnhinweis)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmerkungen_Warnhinweis", Anmerkungen_Warnhinweis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VERAG_INTERFACE_ID", kde_VERAG_INTERFACE_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VERAG_INTERFACE_ID", kde_VERAG_INTERFACE_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BesonderheitenNeu", kde_BesonderheitenNeu))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_InfoAuftragsNr", kde_InfoAuftragsNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KundeFremdspedition", kde_KundeFremdspedition))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBei", kde_verzolltBei))
Return list Return list
End Function End Function

127
VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb Normal file
View File

@@ -0,0 +1,127 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cLeistungenBUKonten
Property LeistungsNr As Integer
Property Firma_ID As Integer
Property Gl_account As Object = Nothing
Property SachkontoInlandSteuerpflichtig As Object = Nothing
Property SachkontoInlandSteuerfrei As Object = Nothing
Property SachkontoEUSteuerpflichtig As Object = Nothing
Property SachkontoEUSteuerfrei As Object = Nothing
Property Sachkonto3Land As Object = Nothing
Public hasEntry = False
Dim SQL As New SQL
Sub New(LeistungsNr, Firma_ID)
Me.LeistungsNr = LeistungsNr
Me.Firma_ID = Firma_ID
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gl_account", Gl_account))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerpflichtig", SachkontoInlandSteuerpflichtig))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerfrei", SachkontoInlandSteuerfrei))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerpflichtig", SachkontoEUSteuerpflichtig))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerfrei", SachkontoEUSteuerfrei))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto3Land", Sachkonto3Land))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM LeistungenBUKonten WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM LeistungenBUKonten WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID ", conn)
cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [LeistungenBUKonten] SET " & str & " WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO LeistungenBUKonten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

28
VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb
View File

@@ -122,6 +122,7 @@ Public Class cMessangerListender
Return "" Return ""
End Select End Select
Return "Task not found" Return "Task not found"
@@ -264,6 +265,7 @@ Public Class cServerClient
Dim clientSocket As Socket Dim clientSocket As Socket
Dim byteData(1023) As Byte Dim byteData(1023) As Byte
Dim doThis As String Dim doThis As String
Dim params() As String
Public status As String = "begin" Public status As String = "begin"
' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' begin() ' begin()
@@ -272,16 +274,17 @@ Public Class cServerClient
Public Event FunctionFinished(ByVal sender As Object, ByVal e As FunctionFinishedArgs) Public Event FunctionFinished(ByVal sender As Object, ByVal e As FunctionFinishedArgs)
Public Sub begin(ip, doThis_tmp) Public Sub begin(ip, doThis_tmp, Optional params() = Nothing)
Try Try
doThis = doThis_tmp doThis = doThis_tmp
Dim timeOut As Integer = 60 params = params
Select Case doThis Dim timeOut As Integer = 60
Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen Select Case doThis
Case "NEW_MESSAGE" : timeOut = 5 ' nach 120 Sekunden wird abgebrochen Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen
'Case "initAufschubkonten" : timeOut = 60 ' nach 60 Sekunden wird abgebrochen Case "NEW_MESSAGE" : timeOut = 5 ' nach 120 Sekunden wird abgebrochen
End Select 'Case "initAufschubkonten" : timeOut = 60 ' nach 60 Sekunden wird abgebrochen
End Select
'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. 'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
'Dim st As New Thread(AddressOf stopThread) 'Dim st As New Thread(AddressOf stopThread)
@@ -293,12 +296,12 @@ Public Class cServerClient
clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim ipAddress As IPAddress = IPAddress.Parse(ip) Dim ipAddress As IPAddress = IPAddress.Parse(ip)
' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90") ' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90")
Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800) Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800)
clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing) clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing)
status = "beginConnect" status = "beginConnect"
' endconnect(clientSocket) ' endconnect(clientSocket)
Catch ex As Exception Catch ex As Exception
@@ -441,6 +444,7 @@ Public Class cServerClient
End Sub End Sub
Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout } Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout }
Thread.Sleep(param_obj(0) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde. Thread.Sleep(param_obj(0) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde.
If status = "TaskError" Or status = "TaskSuccess" Then Exit Sub If status = "TaskError" Or status = "TaskSuccess" Then Exit Sub

6
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -138,17 +138,19 @@ Public Class cMessenger
Public Sub SAVE_MEMBERS() Public Function SAVE_MEMBERS() As Boolean
Try Try
DELETE_MEMBERS() DELETE_MEMBERS()
For Each MB In Me.CHAT_MEMBERS For Each MB In Me.CHAT_MEMBERS
MB.chatMb_chatId = Me.chat_id MB.chatMb_chatId = Me.chat_id
MB.SAVE() MB.SAVE()
Next Next
Return True
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
Return False
End Try End Try
End Sub End Function
Public Function READ_ALL_MESSAGES() As Boolean Public Function READ_ALL_MESSAGES() As Boolean
Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1 FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 " Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1 FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 "

33
VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb Normal file
View File

@@ -0,0 +1,33 @@
Imports System.Threading
Public Class cRKSV_DE
Sub SignRKSV_DE()
Dim SC As New cServerClient_RKSV_DE
Try
Dim sendString = "RKSV_DE"
SC.begin("192.168.0.90", sendString, {"VERAG_DE"}) '192.168.0.90 = Developer
SC.waitTillFinished()
Thread.Sleep(100)
If SC.status = "TaskSuccess" Then
MsgBox("OK") '& vbNewLine & SC.ev.Message)
Else
MsgBox("FEHLER!")
'MsgBox(SC.ev.Message)
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -346,7 +346,8 @@ Public Class cRechnungsausgang
Next Next
End Sub End Sub
Public Function CHECK_Validation(ByRef errMsg) As Boolean Public Function CHECK_Validation(ByRef errMsg As String) As Boolean
If Firma_ID <= 0 Then errMsg = "ERROR: Firma auswählen!" : Return False
If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False
' If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False ' If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False

9
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
View File

@@ -41,6 +41,15 @@ Public Class cRechnungsnummern
VonRechnungsNr = Now.ToString("yy") & "500001" VonRechnungsNr = Now.ToString("yy") & "500001"
BisRechnungsNr = Now.ToString("yy") & "599999" BisRechnungsNr = Now.ToString("yy") & "599999"
Case 21 ' UNISPED AT
VonRechnungsNr = Now.ToString("yy") & "7000000"
BisRechnungsNr = Now.ToString("yy") & "799999"
Case 22 ' UNISPED DE
VonRechnungsNr = Now.ToString("yy") & "9000000"
BisRechnungsNr = Now.ToString("yy") & "999999"
Case 23 ' UNISPED Zollservice
VonRechnungsNr = Now.ToString("yy") & "5000000"
BisRechnungsNr = Now.ToString("yy") & "599999"
End Select End Select
LfdRechnungsNr = VonRechnungsNr LfdRechnungsNr = VonRechnungsNr
'------------------------------------- '-------------------------------------

14
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
View File

@@ -9,6 +9,8 @@ Public Class cTextkonserve
Property txt_sprache As String Property txt_sprache As String
Property txt_text As String Property txt_text As String
Property txt_betreff As String Property txt_betreff As String
Property txt_FIRMA As String
Property txt_firmaSig As Integer = 1
Public hasEntry As Boolean = False Public hasEntry As Boolean = False
@@ -25,12 +27,13 @@ Public Class cTextkonserve
' End If ' End If
End Sub End Sub
Sub New(txt_kategorie, txt_bezeichnung, txt_sprache) Sub New(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
' If txt_Id IsNot Nothing Then ' If txt_Id IsNot Nothing Then
Me.txt_kategorie = txt_kategorie Me.txt_kategorie = txt_kategorie
Me.txt_bezeichnung = txt_bezeichnung Me.txt_bezeichnung = txt_bezeichnung
Me.txt_sprache = txt_sprache Me.txt_sprache = txt_sprache
LOAD(txt_kategorie, txt_bezeichnung, txt_sprache) Me.txt_FIRMA = txt_FIRMA
LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
' End If ' End If
End Sub End Sub
@@ -44,6 +47,8 @@ Public Class cTextkonserve
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sprache", txt_sprache)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sprache", txt_sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_text", txt_text)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_text", txt_text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_betreff", txt_betreff)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_betreff", txt_betreff))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_FIRMA", txt_FIRMA))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_firmaSig", txt_firmaSig))
Return list Return list
End Function End Function
@@ -90,13 +95,14 @@ Public Class cTextkonserve
End Sub End Sub
Public Sub LOAD(txt_kategorie, txt_bezeichnung, txt_sprache) Public Sub LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
Try Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTextkonserve WHERE txt_kategorie=@txt_kategorie AND txt_bezeichnung=@txt_bezeichnung AND txt_sprache=@txt_sprache ", conn) Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTextkonserve WHERE txt_kategorie=@txt_kategorie AND txt_bezeichnung=@txt_bezeichnung AND txt_sprache=@txt_sprache AND txt_FIRMA=@txt_FIRMA ", conn)
cmd.Parameters.AddWithValue("@txt_kategorie", txt_kategorie) cmd.Parameters.AddWithValue("@txt_kategorie", txt_kategorie)
cmd.Parameters.AddWithValue("@txt_bezeichnung", txt_bezeichnung) cmd.Parameters.AddWithValue("@txt_bezeichnung", txt_bezeichnung)
cmd.Parameters.AddWithValue("@txt_sprache", txt_sprache) cmd.Parameters.AddWithValue("@txt_sprache", txt_sprache)
cmd.Parameters.AddWithValue("@txt_FIRMA", txt_FIRMA)
Dim dr = cmd.ExecuteReader() Dim dr = cmd.ExecuteReader()
If dr.Read Then If dr.Read Then
For Each l In getParameterList() For Each l In getParameterList()

32
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -475,6 +475,9 @@ Class TrdInvoice_FUNCTIONS
TRD_PRODUCT.Belegdaten = ROW("RP_Belegdaten") TRD_PRODUCT.Belegdaten = ROW("RP_Belegdaten")
TRD_PRODUCT.Sachkonto = getSachkonto(RK_Firma_ID, ROW("RP_LeistungsNr"), RK_RechnungsLandKz, ROW("RP_Steuerpflichtig"), ROW("AufschubkontoNr")) TRD_PRODUCT.Sachkonto = getSachkonto(RK_Firma_ID, ROW("RP_LeistungsNr"), RK_RechnungsLandKz, ROW("RP_Steuerpflichtig"), ROW("AufschubkontoNr"))
TRD_PRODUCT.Buchungstext = RK_Buchungstext TRD_PRODUCT.Buchungstext = RK_Buchungstext
TRD_PRODUCT.SAVE() TRD_PRODUCT.SAVE()
Next Next
@@ -492,8 +495,10 @@ Class TrdInvoice_FUNCTIONS
Shared Function getSachkonto(Firma_Id, RP_LeistungsNr, [RK_RechnungsLandKz], RP_Steuerpflichtig, RP_AufschubkontoNr) Shared Function getSachkonto(Firma_Id, RP_LeistungsNr, [RK_RechnungsLandKz], RP_Steuerpflichtig, RP_AufschubkontoNr)
' Sachkonto ermitteln. ' Sachkonto ermitteln.
Dim FIRMA = New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_Id)
Select Case Firma_Id Select Case Firma_Id
Case 20 'IMEX --> Andere Sachkonten in TblLeistungen! Case 20 'IMEX --> Andere Sachkonten in Tbl Leistungen!
If [RK_RechnungsLandKz] Is Nothing _ If [RK_RechnungsLandKz] Is Nothing _
OrElse [RK_RechnungsLandKz].trim = "" _ OrElse [RK_RechnungsLandKz].trim = "" _
OrElse [RK_RechnungsLandKz] = "A" _ OrElse [RK_RechnungsLandKz] = "A" _
@@ -516,6 +521,31 @@ Class TrdInvoice_FUNCTIONS
End If End If
End If End If
If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT! If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
Case 21, 22, 23, 24 '--> cLeistungenBUKonten!
Dim BU_KTO As New VERAG_PROG_ALLGEMEIN.cLeistungenBUKonten(RP_LeistungsNr, Firma_Id)
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz].trim = "" OrElse
[RK_RechnungsLandKz] = FIRMA.Firma_LandKz.ToString.Replace("AT", "A").Replace("DE", "D") Then
If CBool([RP_Steuerpflichtig]) Then
getSachkonto = BU_KTO.SachkontoInlandSteuerpflichtig
Else
getSachkonto = BU_KTO.SachkontoInlandSteuerfrei
End If
Else
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then
If [RP_Steuerpflichtig] Then
getSachkonto = BU_KTO.SachkontoEUSteuerpflichtig
Else
getSachkonto = BU_KTO.SachkontoEUSteuerfrei
End If
Else
getSachkonto = BU_KTO.Sachkonto3Land
End If
End If
If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
Case Else Case Else
If [RK_RechnungsLandKz] Is Nothing _ If [RK_RechnungsLandKz] Is Nothing _
OrElse [RK_RechnungsLandKz].trim = "" _ OrElse [RK_RechnungsLandKz].trim = "" _

4
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -118,7 +118,7 @@ Public Class cUIDPruefung
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-2) If datum = Nothing Then datum = CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1)
Dim where = "" Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -133,7 +133,7 @@ Public Class cUIDPruefung
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],UstIdKz,UstIdnr " & dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],UstIdKz,UstIdnr " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr " & " From [Adressen] inner Join kunden On KundenNr=AdressenNr " &
" where UstIdGeprüft < '" & datum.ToShortDateString & "' and UstIdKz is not null and UstIdNr is not null " & " where UstIdGeprüft <= '" & datum.ToShortDateString & "' and UstIdKz is not null and UstIdNr is not null " &
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL") " And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then

37
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -1081,6 +1081,15 @@ Public Class cFormularManager
End Sub End Sub
Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String)
Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
doc.Save(outputFile, Spire.Pdf.FileFormat.PDF)
End Sub
Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "") Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "")
Try Try
If printerName = "" Then If printerName = "" Then
@@ -1095,8 +1104,25 @@ Public Class cFormularManager
doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
doc.PrintDocument.DefaultPageSettings.Landscape = True doc.PrintDocument.DefaultPageSettings.Landscape = True
doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize
doc.PrinterName = printerName doc.PrinterName = printerName
doc.PrintDocument.Print() doc.PrintDocument.Print()
'Dim doc As New Spire.Pdf.PdfDocument
'doc.LoadFromFile(pdfPath)
'doc.Pages(0).TryCompressImage(0)
''signature.SetSignNameWidth(float width);
'doc.SaveToFile("C:\Users\DEVELOPER1\Desktop\TEST.pdf", 0, 0, Spire.Pdf.FileFormat.PDF)
'Dim doc2 As New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\TEST.pdf")
'doc2.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
'doc2.PrintDocument.DefaultPageSettings.Landscape = True
'doc2.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize
'doc2.PrinterName = printerName
'doc2.PrintDocument.Print()
Next Next
@@ -1106,6 +1132,17 @@ Public Class cFormularManager
End Sub End Sub
'Public Shared Sub PrintViaitext7(PDFFile As String(), Optional printerName As String = "")
' Try
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
'End Sub
Public Shared Sub Print_PICTURE(File As String(), Optional printerName As String = "") Public Shared Sub Print_PICTURE(File As String(), Optional printerName As String = "")
Try Try
If printerName = "" Then If printerName = "" Then

78
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb generated
View File

@@ -27,13 +27,15 @@ Partial Class frmMessenger_Members
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_Members)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_Members))
Me.dgvChatMembers = New System.Windows.Forms.DataGridView() Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -64,6 +66,7 @@ Partial Class frmMessenger_Members
Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChatMembers.Location = New System.Drawing.Point(12, 24) Me.dgvChatMembers.Location = New System.Drawing.Point(12, 24)
Me.dgvChatMembers.Name = "dgvChatMembers" Me.dgvChatMembers.Name = "dgvChatMembers"
Me.dgvChatMembers.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -77,23 +80,6 @@ Partial Class frmMessenger_Members
Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323) Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323)
Me.dgvChatMembers.TabIndex = 2 Me.dgvChatMembers.TabIndex = 2
' '
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.Visible = False
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.Name = "clmnName"
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.Name = "clmnFirma"
'
'lbl 'lbl
' '
Me.lbl.AutoSize = True Me.lbl.AutoSize = True
@@ -103,6 +89,32 @@ Partial Class frmMessenger_Members
Me.lbl.TabIndex = 4 Me.lbl.TabIndex = 4
Me.lbl.Text = "Mitglieder:" Me.lbl.Text = "Mitglieder:"
' '
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.MediumSeaGreen
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(268, 353)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(71, 33)
Me.Button2.TabIndex = 5
Me.Button2.Text = "+ NEU"
Me.Button2.UseVisualStyleBackColor = False
Me.Button2.Visible = False
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(179, 353)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(83, 33)
Me.Button1.TabIndex = 6
Me.Button1.Text = "- Entfernen"
Me.Button1.UseVisualStyleBackColor = False
Me.Button1.Visible = False
'
'DataGridViewTextBoxColumn1 'DataGridViewTextBoxColumn1
' '
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1" Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
@@ -120,12 +132,34 @@ Partial Class frmMessenger_Members
Me.DataGridViewTextBoxColumn3.HeaderText = "Firma" Me.DataGridViewTextBoxColumn3.HeaderText = "Firma"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
' '
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.ReadOnly = True
Me.clmnMaId.Visible = False
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.Name = "clmnName"
Me.clmnName.ReadOnly = True
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.Name = "clmnFirma"
Me.clmnFirma.ReadOnly = True
'
'frmMessenger_Members 'frmMessenger_Members
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(347, 353) Me.ClientSize = New System.Drawing.Size(347, 394)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.dgvChatMembers) Me.Controls.Add(Me.dgvChatMembers)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -145,4 +179,6 @@ Partial Class frmMessenger_Members
Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Button2 As Windows.Forms.Button
Friend WithEvents Button1 As Windows.Forms.Button
End Class End Class

30
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb
View File

@@ -30,6 +30,10 @@ Public Class frmMessenger_Members
Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
initDGV() initDGV()
If CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = 4 Then
Button1.Visible = True
Button2.Visible = True
End If
End Sub End Sub
Private Sub dgvChatMembers_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellDoubleClick, dgvChatMembers.CellContentDoubleClick Private Sub dgvChatMembers_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellDoubleClick, dgvChatMembers.CellContentDoubleClick
@@ -40,4 +44,30 @@ Public Class frmMessenger_Members
End If End If
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmMessenger_NeuerChat(CHAT)
f.ShowDialog()
initDGV()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If dgvChatMembers.SelectedRows.Count > 1 Then
Dim ol As New List(Of Object)
For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
For Each MB In CHAT.CHAT_MEMBERS
If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
ol.Add(MB)
End If
Next
End If
Next
For Each o In ol
CHAT.CHAT_MEMBERS.Remove(o)
If CHAT.SAVE_MEMBERS() Then
initDGV()
End If
Next
End If
End Sub
End Class End Class

87
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb
View File

@@ -3,10 +3,29 @@
Public Class frmMessenger_NeuerChat Public Class frmMessenger_NeuerChat
Dim SQL As New SQL Dim SQL As New SQL
Dim CHAT As cMessenger.cMessenger_Chat = Nothing
Dim loaded = False Dim loaded = False
Public chat_id As Integer = -1 Public chat_id As Integer = -1
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT As cMessenger.cMessenger_Chat)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT = CHAT
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub initDGV() Sub initDGV()
If Not loaded Then Exit Sub If Not loaded Then Exit Sub
With dgvMitarbeiter With dgvMitarbeiter
@@ -36,7 +55,12 @@ Public Class frmMessenger_NeuerChat
MyComboBox1.changeItem("") MyComboBox1.changeItem("")
loaded = True loaded = True
initDGV() initDGV()
If CHAT IsNot Nothing Then
Me.Text = "Neue Benutzer hinzufügen"
Me.MyTextBox2.Text = CHAT.chat_name
Me.MyTextBox2.Enabled = False
btn.Text = "Hinzufügen"
End If
End Sub End Sub
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
@@ -91,37 +115,52 @@ Public Class frmMessenger_NeuerChat
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
MsgBox("Chat-Name eingeben!")
Exit Sub
End If
If dgvChatMembers.Rows.Count = 0 Then If dgvChatMembers.Rows.Count = 0 Then
MsgBox("Mitglieder eingeben!") MsgBox("Mitglieder eingeben!")
Exit Sub Exit Sub
End If End If
Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "") If CHAT IsNot Nothing Then
Dim MB_LIST As New List(Of Integer) For Each r As DataGridViewRow In dgvChatMembers.Rows
For Each r As DataGridViewRow In dgvChatMembers.Rows Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, r.Cells("clmnMaId").Value)
MB_LIST.Add(r.Cells("clmnMaId").Value) MB.chatMb_maId = r.Cells("clmnMaId").Value
Next CHAT.CHAT_MEMBERS.Add(MB)
If chatName = "" And MB_LIST.Count = 1 Then Next
If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then If CHAT.SAVE_MEMBERS Then
Me.DialogResult = DialogResult.OK Me.Close()
Me.Close() End If
Exit Sub
Else
If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
MsgBox("Chat-Name eingeben!")
Exit Sub
End If
Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
Dim MB_LIST As New List(Of Integer)
For Each r As DataGridViewRow In dgvChatMembers.Rows
MB_LIST.Add(r.Cells("clmnMaId").Value)
Next
If chatName = "" And MB_LIST.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then
Me.DialogResult = DialogResult.OK
Me.Close()
Exit Sub
End If
End If End If
End If End If
End If MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
Dim CHAT As cMessenger.cMessenger_Chat = Nothing Dim CHAT As cMessenger.cMessenger_Chat = Nothing
If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
If CHAT IsNot Nothing Then chat_id = CHAT.chat_id If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
Me.Close() Me.Close()
End If
End If End If
End Sub End Sub

9
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -3,6 +3,7 @@ Imports System.Drawing
Public Class frmMitarbeitersuche Public Class frmMitarbeitersuche
Dim mit_id As Integer = -1 Dim mit_id As Integer = -1
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New() Sub New()
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
@@ -93,7 +94,13 @@ Public Class frmMitarbeitersuche
Case "BH", "BU" : lblAbteilung.Text = "Buchhaltung" Case "BH", "BU" : lblAbteilung.Text = "Buchhaltung"
Case "MDM" : lblAbteilung.Text = "Maut/Diesel/Mehrwertsteuer" Case "MDM" : lblAbteilung.Text = "Maut/Diesel/Mehrwertsteuer"
Case "FISKAL" : lblAbteilung.Text = "Fiskalabteilung" Case "FISKAL" : lblAbteilung.Text = "Fiskalabteilung"
Case "ZOLL" : lblAbteilung.Text = "Zollabteilung" Case "ZOLL", "QS" : lblAbteilung.Text = "Zollabteilung"
If MA.mit_teamId IsNot Nothing Then
Dim team = SQL.DLookup("team_bezeichnung", "tblTeams", "team_id='" & MA.mit_teamId & "'", "ADMIN", "")
If team <> "" Then
lblAbteilung.Text &= " / " & team
End If
End If
Case Else : lblAbteilung.Text = If(MA.mit_abteilung, "") Case Else : lblAbteilung.Text = If(MA.mit_abteilung, "")
End Select End Select

8
VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml
View File

@@ -1,15 +1,15 @@
<?xml version="1.0" encoding="utf-8" standalone="yes"?> <?xml version="1.0" encoding="utf-8" standalone="yes"?>
<License Key="AAEA4ntefEpzSywzIrB1dHRM7C6h6Nsn2sYvcXJNIA6FsmqQCaeptK1e4d6q+o76ymXZPk8ckHWhlikSMIjsCQ/My5ty75NnBikL4MadZGorQYNOcIRK9Kfccke0TAqCilotrOQB5jScLOFL65oHzJoQbKdg4mx2dBgPiVzLUmzBeUTx5OQguU15g7tirjDkGEdfenCVvGq19aav/xmgma1L+IAsRyKkzLH0+yBsy3Ta7u2pVXF6kiH2BaJj0qi/5kmNWcu9bxWvApxCa20ShIY9QUIN7RqvQZ4orc3/+IF+8q4VtBomcLJ7ZYHlWPVfNovMUKU62qIjD274kFGQlDpeIJ1w8VEXqsov25WugggbDpheZcEBOAGuOGKeOM53TRF4EwTWB2fvGLw1E7o5HqxrID4PcDtSnq+sAv/NRU3+0Sr1YHhD7Cvk4TH9qwcsp27Pbm0zX5+ylm7kUHC6ZVko88MiQbP/SCFe+JL32HtuD0d1XbeLw1vntsPzlo+TWCsFRnPBWHvYmhFl3Sv6jXVW/tMTFYSU3z4nInGswCLBAUgajSLLcXJI5LTDAzya9cpl5Sw5s543RsrrktILANcRYtO3giNP6G5Wn95Kq+gkfQ/W29Zx/P5+WGylUyPQXkCweIAkAkdPZGxZdhkRWsWTuKGo+JcsA/U/NH8u6lK4lEepNaaRNffXzOQXwGC3z9gIzsIklUSKU104FJXZgsmrCwI68JuH7r/TFl2ekzfPSUcPzfR1i+x175q+Mb9tQMNfUYZ+NSPy5DFvVju0+VFdua/1S811zsk47D3lAYHhC7lnoPTGCJv6SekLLRiD7eM7B7QDcdSP6bFmwTl8St40PeHZRb4YJwuqmI/d2l8RRMFQz14nB7PYkFvD5FQ/Ts22/bh3pEd7Zy7/k1EiOpX8DcpO9zn25vPLlkQqRw0QtnUMx9K7LDwYkz+LFokERjLIRImkLGfskZf5ojgR7JQE4GDk9gu4AyjLTJELQzah0fHM/Mchn74Onr95Vh64uqNgOV/2MZLBJZTXRSENXFiyoO3y6IfgPe5vpVUPnl+Yngn6BdQB9BE3wmLWw25kyByliJsEfIuBYFGIvA5t9NSyBdmtW2g1fHGgcxDtn1g5H8Rmk79dMdUFr4tIQ+qvNS6CGvozSdG/C7D3JhRm01C+a+1ZyovuGHmREtj9VrmCmbYohmqZ34mH9L6kAfNmBOes2+eb8LjbMCNnAUAU5fhRqYIDyCa8wDvsuWy7dwwXj7PPeqY6fLitcSsJNHkS2iUUXJk3RqjsnwAqNFIqX1P3TIFuzJbXAkdjEetgsn3setPcUA/Kxaakx1p2K2BZ1Mzf+mnk8ugGPzJihyxIEKmXtacYtwO8yTGR49TQRGVFPwTbePdd5zDSbohXhl02oEmg8FDuhkktFUlHtBoHYtlVazlbXWKcliNXdzdGtXJYtEf4ULtv1pQclzGIDUyr2yRot6cB0wX9lVO6iHHQeRtFr1eLURLO" Version="1.3"> <License Key="Kcc8AQDam71K/TwKN8J+J66RFFuPrMAUqo5xnPNt/M3KRgFPvgBUm1KcM/ICZPXNWQdx4itZZlhQyECJlX+eIEZrG9Xv7+ZYR+Bu4EZzp4D1jBkuFk7IDX2MzPxiv1mhZYptupPef8Aw/ZL/G5vlLN3dQAhANlhRxgEROflMXhyS7Zi0I7Gkf1fYiIgFaXxnTnp0tnYIuTxtW/AQjdnoTF/x0EdCH84ELXVp/NzopJGl97hUfXguDa68anPd2RxV+hr5JnUs0/fS1uI+g6QlRsmXHrIESFZS2xF0LHpabdyDq0ugWbnkp82K0E84Y7PoHnZo/urJvFnXnmBOJec7+UykBfr5tLsAUjirHzqsvgg7hzQHZvbGWe6hw/oXKRIXl+mVlNgojO8hVMMNSh92PVgrZ6fYyGBcpeXRcDdJgzkwjxD34BiiybipxQaQaqg+ABESmvS0LeuawR3PQGbWlaGPQ0phfCOQPEZ32XBhgP+A8rNlGPK3oIpNVj4VbWnQnfhfOTwbR39zg1y3Q7bjX06i+0OgWp7uDG3oXgkZszjrcuMLnCpmBNJn8YxTv8kUcQxAi7KToEOIOoYUjkPbtddDchLepAvAF5VS1USviH44GBqJpl6DP0U/H71xfrSsY9OIOVS8460eKChYLTlxGlinfqLRbsYBbmPCmIs4HktznH/e+hwxgqggOffQgcm8ddezv3beg9p1mlatmzfMjnFreFrf6jbFp628YpakVOwXXAcz/czLeW+JChPii00TEbYTfwAT4Jd6CBGw/GoUEjuCdap0Q3u/EAAWFfEeJWe2/5yy6RSSTeD5GruiQhtYCjNXlHvmiOH9uBu5RL+tYeIHT5LC51FNsUXLRr/3XFoRju+Yy1xYME/ix5jH7zqzTxrvJDSzzOpy/Tgz4zvtW99cJYnsfNqNEKfegc3vUP8dIE/DUIcRAto0d/51FrYcDf2qRxHAHGPveImc7GnPNeut8NS5476m9iL26FWHv9O7gq6w9IUYgNThOi7HBEupPjI2/cOHdNPHo+gfvIiVDFG1jbJKs2H6CY4UQau4RW3ySoGI9FsLWacr/IKRVCi2u2rvIsxH4T5a9sdGUdaZhHMFFQTIcZcqQn6Hrff5HMe2Kv3RbxVd38w9ESqMl2T/mfbommmWB5SonvWbcm2qcThfwN+Fhcx7SzByVMPrCG+tLkj7L9UmZgyZG2FSghQY7nUDCgfH04LB6Dt84jLNhlVh1+3bbFxDawnE5Z6qDGhaRoKFmqRKxxamyCGFDekZwl9a2ORm3Tgt535Ksy/romFLiDE7K31Zf1fHxOKgCMyfH3YprEW1HXUrP1XcXtumx6OFvaEF8KVk+tUxCUigZN0QWKtlfPQv6Gm3/h/9DF0kM8Uu7LVieLjN/qmQ/38eoGjv5kyefWRWUGclIkoRoIi0PU2seG69wOhtaRgoPMhmJydMQPmw9Wvglmco3iK4VWON/ddaZmk69moUdmV3Ywez1C1DVm5M" Version="1.3">
<Type>Runtime</Type> <Type>Runtime</Type>
<Username>VERAG Spedition AG</Username> <Username>VERAG Spedition AG</Username>
<Email>al@verag.ag</Email> <Email>al@verag.ag</Email>
<Organization>VERAG Spedition AG</Organization> <Organization>VERAG Spedition AG</Organization>
<LicensedDate>2019-09-12T00:00:00Z</LicensedDate> <LicensedDate>2020-08-12T00:00:00Z</LicensedDate>
<ExpiredDate>2020-09-12T00:00:00Z</ExpiredDate> <ExpiredDate>2021-08-12T00:00:00Z</ExpiredDate>
<Products> <Products>
<Product> <Product>
<Name>Spire.PDF Platinum</Name> <Name>Spire.PDF Platinum</Name>
<Version>5.8</Version> <Version>6.5</Version>
<Subscription> <Subscription>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper> <NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite> <NumberOfPermittedSite>1</NumberOfPermittedSite>

226
VERAG_PROG_ALLGEMEIN/RKSV_DE/cServerClient_RKSV_DE.vb Normal file
View File

@@ -0,0 +1,226 @@
Imports System.Net, System.Net.Sockets
Imports System.Text
Imports System.Threading
Public Class cServerClient_RKSV_DE
Dim clientSocket As Socket
Dim byteData(1023) As Byte
Dim doThis As String
Dim params() As String
Public status As String = "begin"
' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' begin()
' End Sub
Public Event FunctionFinished(ByVal sender As Object, ByVal e As FunctionFinishedArgs_RKSV_DE)
Public Sub begin(ip, doThis_tmp, params)
doThis = doThis_tmp
Me.params = params
Dim timeOut As Integer = 60
Select Case doThis
Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen
Case "RKSV_DE" : timeOut = 10 ' nach 10 Sekunden wird abgebrochen
End Select
'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
Dim st As New Thread(AddressOf stopThread)
st.IsBackground = True
Dim param_obj(1) As Object
'Übergabeparameter des 2. Threads
param_obj(0) = timeOut
st.Start(param_obj)
clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim ipAddress As IPAddress = IPAddress.Parse(ip)
' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90")
Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800)
clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing)
status = "beginConnect"
' endconnect(clientSocket)
End Sub
Public Sub waitTillFinished()
While Not (status = "TaskError" Or status = "TaskSuccess")
'wait
End While
'Return True
End Sub
Private Sub OnConnect(ByVal ar As IAsyncResult)
Try
clientSocket.EndConnect(ar)
clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None,
New AsyncCallback(AddressOf OnRecieve), clientSocket)
Catch ex As Exception
' MsgBox("Verbindung zum Server konnte nicht aufgebaut werden!")
End Try
End Sub
Private Sub OnSend(ByVal ar As IAsyncResult)
Dim client As Socket = ar.AsyncState
client.EndSend(ar)
End Sub
Private Sub Send(ByVal msg As String, ByVal client As Socket)
Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg)
client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client)
End Sub
Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String
Dim enc As System.Text.Encoding = Encoding.BigEndianUnicode
Return enc.GetString(Barr)
End Function
Private Sub OnRecieve(ByVal ar As IAsyncResult)
Try
Dim client As Socket = ar.AsyncState
client.EndReceive(ar)
Dim bytesRec As Byte() = byteData
Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec)
' MsgBox("FROM SERVER: " & message)
Dim b(1023) As Byte
' MsgBox("SERVER RECIEVE: " & Encoding.BigEndianUnicode.GetString(b))
byteData = b
Read(message)
clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None,
New AsyncCallback(AddressOf OnRecieve), clientSocket)
Catch ex As Exception
' MsgBox("Verbindung zum Server wurde unterbrochen!")
End Try
End Sub
Delegate Sub _Read(ByVal msg As String)
Private Sub Read(ByVal msg As String)
'If frmMain.InvokeRequired Then
' frmMain.Invoke(New _Read(AddressOf Read), msg)
' Exit Sub
'End If
'frmMain.icoVERAGMonitoring.Visible = False
'if richtige nsachricht
' Dim asciis As Byte() = Encoding.BigEndianUnicode.GetBytes(msg)
' Dim a As Char = msg(msg.Length - 1)
' msg = msg.Replace(a, "")
' MsgBox(msg.Length)
' MsgBox(msg(msg.Length - 1))
' MsgBox(msg(msg.Length - 1))
' MsgBox(Asc(msg(msg.Length - 1)))
' MsgBox(Asc(msg(msg.Length - 2)))
msg = msg.Replace(Convert.ToChar(0), "")
Try
MsgBox("-" & msg & "-" & vbNewLine & "ConSuccess" & "-" & doThis)
If msg = "ConSuccess" Then
status = "ConSuccess"
Select Case doThis
Case "test"
Send("test", clientSocket)
status = "sendTask"
Case "RKSV_DE"
MsgBox("RKSV_DE" & paramsToString())
Send("RKSV_DE" & paramsToString(), clientSocket)
status = "sendTask"
End Select
' MsgBox("!!!!!ConSuccess --> initAufschubkonten")
' Send("FSSAtlasStart", clientSocket)
'Send("test", clientSocket)
'Send("initAufschubkonten", clientSocket)
ElseIf msg = "Task successful" Then
status = "TaskSuccess"
clientSocket.Disconnect(False)
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
'endconnect(clientSocket)'geht ned
' MsgBox("Task erfolgreich!", vbSystemModal, doThis)
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.OK, "Task erfolgreich!"))
ElseIf msg = "Task not found" Then
MsgBox("SERVERERROR: Der Dienst wurde nicht gefunden!", vbSystemModal, "FSSAtlas")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Der Dienst wurde nicht gefunden!"))
ElseIf msg = "Task inactive" Then
MsgBox("SERVERERROR: Der Dienste ist nicht aktiv!", vbSystemModal, "FSSAtlas")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Der Dienste ist nicht aktiv!"))
ElseIf msg = "Task timeout" Then
MsgBox("SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!", vbSystemModal, "FSSAtlas")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!"))
ElseIf msg = "Task error" Then
MsgBox("SERVERERROR: Server-Fehler!", vbSystemModal, "FSSAtlas")
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVERERROR: Server-Fehler!"))
Else
MsgBox("SERVER_NACHRICHT NICHT VERSTANDEN: " & msg, vbSystemModal)
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "SERVER_NACHRICHT NICHT VERSTANDEN: " & msg))
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
End If
Catch ex As Exception
MsgBox("Verbindungs-Fehler beim Senden", vbSystemModal)
status = "TaskError"
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "Verbindungs-Fehler beim Senden"))
clientSocket.Close()
End Try
' byteData = Encoding.BigEndianUnicode.GetBytes("")
End Sub
Function paramsToString()
paramsToString = ""
If params IsNot Nothing Then
For Each p In params
paramsToString &= "|||" & p
Next
End If
End Function
Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout }
Thread.Sleep(param_obj(0) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde.
If status = "TaskError" Or status = "TaskSuccess" Then Exit Sub
status = "TaskError"
Try
clientSocket.Disconnect(False)
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs_RKSV_DE(FunctionFinishedArgs_RKSV_DE.EventResult.ERR, "Task wurde aufgrund eines Timeouts vom Client abgebrochen."))
MsgBox("ERROR: Task wurde aufgrund eines Timeouts vom Client abgebrochen.") 'Log-Mittelung
End Sub
End Class
Public Class FunctionFinishedArgs_RKSV_DE
Inherits EventArgs
'das was man später unter e sehen kann
Public Result As EventResult
'hier - als Beispiel - einfach eine Enum
Public Enum EventResult
OK
ERR
End Enum
Public Message As String
'Zum übergeben der Parameter
Public Sub New(ByVal r As EventResult, m As String)
Result = r
Message = m
End Sub
End Class

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb
View File

@@ -117,6 +117,7 @@ Public Class cVERAG_in_TRAvisoFULL
Property trAv_gewicht As Object = Nothing ' FLOAT(53) NULL, Property trAv_gewicht As Object = Nothing ' FLOAT(53) NULL,
Property trAv_VoraussichtlichesEintreffen As Object = Nothing ' Date NULL, Property trAv_VoraussichtlichesEintreffen As Object = Nothing ' Date NULL,
Property trAv_Info As Object = Nothing ' VARCHAR(max) NULL, Property trAv_Info As Object = Nothing ' VARCHAR(max) NULL,
Property trAv_AVISO_einarbeitet As Boolean = False ' VARCHAR(max) NULL,
Property ANHAENGE As New List(Of cVERAG_in_TRAvisoAnhaenge) Property ANHAENGE As New List(Of cVERAG_in_TRAvisoAnhaenge)
@@ -157,6 +158,7 @@ Public Class cVERAG_in_TRAvisoFULL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_gewicht", trAv_gewicht)) ' FLOAT(53) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_gewicht", trAv_gewicht)) ' FLOAT(53) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_VoraussichtlichesEintreffen", trAv_VoraussichtlichesEintreffen)) ' Date NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_VoraussichtlichesEintreffen", trAv_VoraussichtlichesEintreffen)) ' Date NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info)) ' VARCHAR(max) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info)) ' VARCHAR(max) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AVISO_einarbeitet", trAv_AVISO_einarbeitet)) ' VARCHAR(max) NULL,
Return list Return list
End Function End Function

556
VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb Normal file
View File

@@ -0,0 +1,556 @@
Public Class cBMD_Interface
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
'STAMMDATEN
'Public Shared Function genStammdatenBuRef() As Boolean
' Try
' 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name]
' Dim sqlStr = " select adressennr as [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz as [St],PLZ as [Postltz],LTRIM([Ort]) as Ort,isnull(BLZ,'') as [Bankltz],isnull(KTO,'') as [Bankkonto-Nr], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2 "
' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
' sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' "
' sqlStr &= " Order by [Konto-Nr] "
' ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg"
' Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL")
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
' initKDNr(dt)
' Dim ExcelPath = cProgramFunctions.genExcelFromDT_NEW(dt, , False,,, False) '{"C1:C" & (dt.Rows.Count + 1), "C1:C" & (dt.Rows.Count + 1)})
' If ExcelPath <> "" Then
' Process.Start(ExcelPath)
' Return True
' End If
' Else
' Return True ' wenn keine da sind, auch ok...
' End If
' ' UPDATE FiBuSchnittstelle --> 0
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' Return False
'End Function
''BetreibsstammSatz
''10 Personenkonten
''100 Beginn Buchungsblock
''110 Buchungen
''111 Summe/Ende Buchungsblock
'Public Shared Function genBetreibsstammSatz(Geschaeftsjahr As Integer) As String
' Return "1,0910,""" & Geschaeftsjahr & """,""0101" & Geschaeftsjahr & """,4,6,""EUR"""
'End Function
'Public Shared Function genBuchungenBeginn(Geschaeftsjahr As Integer) As String
' Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.AddDays(-1).Month & ",0"
'End Function
'Public Shared Function genBuchungenEnd(SummeBuchungen As Double) As String
' Return "111," & SummeBuchungen.ToString("N2").Replace(",", ".")
'End Function
'Public Shared Function genStammdatenANSI(Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True) As Boolean
' Try
' 'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name]
' Dim bool_DatenVorhanden As Boolean = False
' Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
' ' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg"
' ' Dim Encoding As New System.Text.ASCIIEncoding()
' ' Dim Encoding As New System.Text.UTF8Encoding(False)
' Dim file As System.IO.StreamWriter
' ' Dim path = DATENVERVER_OPTIONS.getTMPPath("dvo", ".txt", , False)
' Dim path = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
' Dim pathArchiv = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
' path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
' pathArchiv = ""
' End If
' If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
' 'Zuerst alle IMP-Daten löschen, damit es zu keinen Missverständnissen kommt
' 'For Each f In IO.Directory.GetFiles(path)
' ' If f.ToString.Contains("DVO_IMP_") Then
' ' Try
' ' IO.File.Delete(f)
' ' Catch ex As Exception
' ' End Try
' ' End If
' 'Next
' Dim Dateiname = "DVO_IMP_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
' file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
' file.WriteLine(genBetreibsstammSatz(Geschaeftsjahr))
' If boolKunden Then
' '----------------- STAMMDATEN -----------------
' Dim dt_Stamm As DataTable = getStammdaten()
' If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
' initKDNr(dt_Stamm)
' For Each r In dt_Stamm.Rows
' file.WriteLine(getPersonenKto(r))
' Next
' bool_DatenVorhanden = True
' End If
' updateFibu() ' UPDATE FiBuSchnittstelle --> 0
' '----------------- STAMMDATEN LG -----------------
' Dim dt_StammLG As DataTable = getStammdatenLG()
' If dt_StammLG IsNot Nothing AndAlso dt_StammLG.Rows.Count > 0 Then
' initKDNrLG(dt_StammLG)
' For Each r In dt_StammLG.Rows
' file.WriteLine(getPersonenKto(r))
' Next
' bool_DatenVorhanden = True
' End If
' updateFibuLG() ' UPDATE FiBuSchnittstelleLG --> 0
' '----------------------------------
' End If
' '----------------- Buchungssätze -----------------
' If boolBuchungen Then
' TrdInvoice_FUNCTIONS.TrdinSchreiben(20) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
' Dim dt_Buchungen As DataTable = getBuchungen(20)
' If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
' Try
' ' initKDNr(dt_Buchungen)
' Dim SummeBuchungen As Double = 0
' file.WriteLine(genBuchungenBeginn(Geschaeftsjahr))
' For Each r In dt_Buchungen.Rows
' file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr))
' Next
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
' bool_DatenVorhanden = True
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' 'Update Filename TrdIn
' SQL.doSQL("update [tblTrdinInvoice] set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL")
' 'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt!
' End If
' End If
' '----------------------------------
' file.Close()
' 'In Archiv sichern
' If pathArchiv <> "" Then
' If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
' IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
' End If
' If bool_DatenVorhanden Then
' If OpenFile Then Process.Start(path & Dateiname)
' Else
' IO.File.Delete(path & Dateiname)
' End If
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' Return False
'End Function
Shared Function getStammdaten() As DataTable
Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] "
sqlStr &= " ,Ordnungsbegriff "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5601' "
sqlStr &= " Order by [Konto-Nr] "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Shared Function updateFibu() As DataTable
Dim sqlStr = " UPDATE Kunden "
sqlStr &= " SET FiBuSchnittstelle = '0' "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5601' "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
'Shared Function updateFibuLG() As DataTable
' Dim sqlStr = " UPDATE tblKundenErweitert "
' sqlStr &= " SET FiBuSchnittstelleLG = '0' "
' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
' sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' "
' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
'End Function
'Shared Function getStammdatenLG() As DataTable
' Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail] "
' sqlStr &= " ,Ordnungsbegriff "
' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
' sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' "
' sqlStr &= " Order by [Konto-Nr] "
' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
'End Function
Public Shared Function getPersonenKto(row As DataRow) As String
getPersonenKto = ""
getPersonenKto &= row("Konto-Nr") & ";"
getPersonenKto &= FormatStringDVO(row("Name")) & ";"
getPersonenKto &= FormatStringDVO(row("Name2")) & ";"
getPersonenKto &= FormatStringDVO(row("Strasse")) & ";"
getPersonenKto &= cProgramFunctions.getISO2Land(FormatStringDVO(row("LandKz"))) & ";"
getPersonenKto &= FormatStringDVO(row("PLZ")) & ";"
getPersonenKto &= FormatStringDVO(row("Ort")) & ";"
getPersonenKto &= row("ZZiel") & ";"
getPersonenKto &= FormatStringDVO(row("UST-Id-Nummer")) & ";"
getPersonenKto &= FormatStringDVO(row("Telefon")) & ";"
getPersonenKto &= FormatStringDVO(row("E-Mail")) & ";"
getPersonenKto &= row("BLZ") & ";"
getPersonenKto &= row("KTO") & ";"
End Function
Public Shared Function genDatensatzCSV_Stammdaten(Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
Dim bool_DatenVorhanden As Boolean = False
Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
'DATEIPFAD für Stammdaten
'-------------------------------------------------------------------------------------------
Dim pathKD = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathArchivKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
pathKD = pathArchivKD 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
'pathArchivKD = ""
End If
If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD)
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
'-------------------------------------------------------------------------------------------
Dim fileKD As System.IO.StreamWriter
Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv"
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
fileKD.WriteLine(genStammdatenBeginn())
If True Then 'boolKunden Then
'----------------- STAMMDATEN -----------------
Dim dt_Stamm As DataTable = getStammdaten()
If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
initKDNr(dt_Stamm)
For Each r In dt_Stamm.Rows
fileKD.WriteLine(getPersonenKto(r))
Next
bool_DatenVorhanden = True
End If
updateFibu() ' UPDATE FiBuSchnittstelle --> 0
End If
fileKD.Close()
'In Archiv sichern
If pathArchivKD <> "" Then
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
End If
If bool_DatenVorhanden Then
If OpenFile Then Process.Start(pathKD & DateinameKD)
Else
IO.File.Delete(pathKD & DateinameKD)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Public Shared Function genDatensatzCSV_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True) As Boolean
genDatensatzCSV_ALL = True
If boolKunden Then
If Not genDatensatzCSV_Stammdaten(OpenFile) Then genDatensatzCSV_ALL = False
End If
If boolBuchungen Then
If Not genDatensatzCSV_Buchungen(21, OpenFile) Then genDatensatzCSV_ALL = False
If Not genDatensatzCSV_Buchungen(22, OpenFile) Then genDatensatzCSV_ALL = False
If Not genDatensatzCSV_Buchungen(23, OpenFile) Then genDatensatzCSV_ALL = False
End If
End Function
Public Shared Function genDatensatzCSV_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
Dim bool_DatenVorhanden As Boolean = False
Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
'DATEIPFAD für Buchungsdaten
'-------------------------------------------------------------------------------------------
Dim path = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathArchiv = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
path = pathArchiv 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
'pathArchiv = ""
End If
If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
'-------------------------------------------------------------------------------------------
Dim NameZusatz = ""
Select Case FIRMA.Firma_ID
Case 21 : NameZusatz = "UNISPED_AT_"
Case 22 : NameZusatz = "UNISPED_DE_"
Case 23 : NameZusatz = "UNISPED_ZS_"
End Select
Dim file As System.IO.StreamWriter
Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv"
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
'----------------- Buchungssätze -----------------
If True Then 'boolBuchungen Then
TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
Try
' initKDNr(dt_Buchungen)
Dim SummeBuchungen As Double = 0
file.WriteLine(genBuchungenBeginn())
For Each r In dt_Buchungen.Rows
file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
Next
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
bool_DatenVorhanden = True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
'Update Filename TrdIn
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt!
End If
End If
'----------------------------------
file.Close()
'In Archiv sichern
If pathArchiv <> "" Then
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
End If
If bool_DatenVorhanden Then
If OpenFile Then Process.Start(path & Dateiname)
Else
IO.File.Delete(path & Dateiname)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Shared Function FormatStringDVO(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String
If s Is Nothing Then Return defaultValue
If s Is DBNull.Value Then Return defaultValue
FormatStringDVO = s.ToString.Replace(";", ",")
'FormatStringDVO = s.ToString.Replace(",", "")
'FormatStringDVO = s.ToString.Replace("""", "\22")
If length > 0 Then
If FormatStringDVO.Length > length Then FormatStringDVO = FormatStringDVO.Substring(0, length)
End If
End Function
Shared Function getBuchungen(Firma_ID As Integer) As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID ,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Public Shared Function genBuchungenBeginn() As String
Return "satzart;konto;gkonto;belegdatum;belegnr;extbelegnr;buchsymbol;buchcode;steuercode;prozent;betrag;steuer;text;zziel;kost"
End Function
Public Shared Function genBuchungenEnd() As String
Return ""
End Function
Public Shared Function genStammdatenBeginn() As String
Return "Kto-Nr;Nachname;Zusatzname;Straße;Staat;Plz;Ort;ZZiel;UID-Nummer;Telefonnummer;Mail;IBAN;BIC"
End Function
Public Shared Function genStammdatenEnd() As String
Return ""
End Function
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
genBuchungsZeile = "0;"
genBuchungsZeile &= (initKDNr2(row("KundenNrZentrale"))) & ";"
genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 4) & ";"
genBuchungsZeile &= "" & CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & ";"
Dim GJ_short = Geschäftsjahr.ToString.Substring(2, 2)
Select Case FIRMA.Firma_ID
Case 21 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
Case 22 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
Case 23 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
End Select
genBuchungsZeile &= SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr=" & row("Rechnungsnummer") & " and Firma_ID=" & FIRMA.Firma_ID & "", "FMZOLL", "") & ";" 'extbelegnr
genBuchungsZeile &= If(row("BelegartenNr") = "70", "AR", "AG") & ";" ' Rg/GS 70=Rechnung 'AG ????????
genBuchungsZeile &= If(row("BelegartenNr") = "70", "1", "2") & ";" ' Rg/GS 70=Rechnung 'AG ????????
' genBuchungsZeile &= "1;" 'buchcode === 1 oder 2??
genBuchungsZeile &= getSteuercode(row, FIRMA) & ";"
If CBool(row("Steuerpflichtig")) Then
genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2??
Else
genBuchungsZeile &= ";" 'buchcode === 1 oder 2??
End If
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd"))) & ";" 'betrag
Dim steuerbetragLokal As Double = 0
If CBool(row("Steuerpflichtig")) Then
steuerbetragLokal = CDbl((getDbl2(row("SteuerpflichtigerBetragLokal")) * getDbl2(row("Steuersatz"))))
steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz"))))
End If
If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1
genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "") & ";" 'steuer
genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";" ' BuchungsText bei UNISPED ist der FIRMENNAME!!
' genBuchungsZeile &= FormatStringDVO(row("Buchungstext")) & ";" ' Text
genBuchungsZeile &= FormatStringDVO(row("Nettozahlungsziel")) & ";" ' Text
'... aus ...
SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")))
End Function
Shared Sub initKDNr(ByRef dt As DataTable)
For Each r In dt.Rows
If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 2000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 2000000)
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
Next
End Sub
'Shared Sub initKDNrLG(ByRef dt As DataTable)
' For Each r In dt.Rows
' If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 1000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 1000000) + 500000
' ' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
' Next
'End Sub
Shared Function initKDNr2(ktoNr As String) As String
If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 2000000 Then ktoNr = (CInt(ktoNr) - 2000000) '+ 200000
Return ktoNr
End Function
' Trdin=false
Shared Function getSteuercode(r As DataRow, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
Select Case r("Sachkonto")
'Case "3550", "3553", "3558"
' Return "999"
Case Else
If Not CBool(r("Steuerpflichtig")) Then
Return ""
Else
If (r("RechnungsLandKz")).ToString.Replace("AT", "A").Replace("DE", "D") = FIRMA.Firma_LandKz Then 'Abhängig von FIRMA --> INLAND!!!!!!
Return "1" 'Steuerpflichtig und AT
Else
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
Return "77" ' EU-LAND
Else
Return "" ' Drittland
End If
End If
End If
End Select
Return ""
End Function
Shared Function getDbl(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o)
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbl2(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o.ToString.Replace(".", ","))
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbltr(o As Object) As String
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o).ToString("N2").Replace(".", "").Replace(",", ".")
Catch ex As Exception
Return 0
End Try
End Function
Shared Function fill0Stellen(i As Object, l As Integer) As String
If i Is DBNull.Value Then i = ""
If i Is Nothing Then i = ""
While i.ToString.Length < l
i &= "0"
End While
Return i
End Function
End Class

28
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -93,13 +93,17 @@
<Reference Include="RichTextBoxEx"> <Reference Include="RichTextBoxEx">
<HintPath>..\..\..\dll\RichTextBoxEx.dll</HintPath> <HintPath>..\..\..\dll\RichTextBoxEx.dll</HintPath>
</Reference> </Reference>
<Reference Include="Spire.License, Version=1.3.7.40, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL"> <Reference Include="Spire.License, Version=1.3.8.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\AVISO\Aviso\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.License.dll</HintPath> <HintPath>..\..\..\dll\PDF Spire\6.8.5\Spire.License.dll</HintPath>
</Reference> </Reference>
<Reference Include="Spire.Pdf, Version=5.10.8.2040, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL"> <Reference Include="Spire.Pdf, Version=6.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\AVISO\Aviso\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.Pdf.dll</HintPath> <HintPath>..\..\..\dll\PDF Spire\6.8.5\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="Spire.PdfViewer.Forms, Version=5.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\PDF Spire\6.8.5\Spire.PdfViewer.Forms.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" /> <Reference Include="System.ComponentModel.DataAnnotations" />
@@ -110,6 +114,7 @@
<Reference Include="System.EnterpriseServices" /> <Reference Include="System.EnterpriseServices" />
<Reference Include="System.Runtime.Serialization" /> <Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" /> <Reference Include="System.ServiceModel" />
<Reference Include="System.Web" />
<Reference Include="System.Web.Services" /> <Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" /> <Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
@@ -285,6 +290,7 @@
<Compile Include="cErrorHandler.vb" /> <Compile Include="cErrorHandler.vb" />
<Compile Include="Classes\cAbfertigungsarten.vb" /> <Compile Include="Classes\cAbfertigungsarten.vb" />
<Compile Include="Classes\cAbgaben.vb" /> <Compile Include="Classes\cAbgaben.vb" />
<Compile Include="Classes\cAbrechnung_NCTSBrg.vb" />
<Compile Include="Classes\cAvisoAnhaenge.vb" /> <Compile Include="Classes\cAvisoAnhaenge.vb" />
<Compile Include="Classes\cAvisoBenachrichtigungen.vb" /> <Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
<Compile Include="Classes\cBonitaetsauskunft.vb" /> <Compile Include="Classes\cBonitaetsauskunft.vb" />
@@ -301,10 +307,12 @@
<Compile Include="Classes\cGestellungsmitteilung.vb" /> <Compile Include="Classes\cGestellungsmitteilung.vb" />
<Compile Include="Classes\cHandlingssaetzeIntern.vb" /> <Compile Include="Classes\cHandlingssaetzeIntern.vb" />
<Compile Include="Classes\cKundenAufschubkonten.vb" /> <Compile Include="Classes\cKundenAufschubkonten.vb" />
<Compile Include="Classes\cKundenBesonderheiten.vb" />
<Compile Include="Classes\cKundenDatenblatt.vb" /> <Compile Include="Classes\cKundenDatenblatt.vb" />
<Compile Include="Classes\cKundenKontakte.vb" /> <Compile Include="Classes\cKundenKontakte.vb" />
<Compile Include="Classes\cKundenSDL.vb" /> <Compile Include="Classes\cKundenSDL.vb" />
<Compile Include="Classes\cLanguageText.vb" /> <Compile Include="Classes\cLanguageText.vb" />
<Compile Include="Classes\cLeistungenBUKonten.vb" />
<Compile Include="Classes\cMessangerListender.vb" /> <Compile Include="Classes\cMessangerListender.vb" />
<Compile Include="Classes\cMessenger.vb" /> <Compile Include="Classes\cMessenger.vb" />
<Compile Include="Classes\cNCTSGestellungsadressen.vb" /> <Compile Include="Classes\cNCTSGestellungsadressen.vb" />
@@ -314,6 +322,7 @@
<Compile Include="Classes\cQSTeam.vb" /> <Compile Include="Classes\cQSTeam.vb" />
<Compile Include="Classes\cRechnungsausgang.vb" /> <Compile Include="Classes\cRechnungsausgang.vb" />
<Compile Include="Classes\cRechnungsnummern.vb" /> <Compile Include="Classes\cRechnungsnummern.vb" />
<Compile Include="Classes\cRKSV_DE.vb" />
<Compile Include="Classes\cSDL.vb" /> <Compile Include="Classes\cSDL.vb" />
<Compile Include="Classes\cSDL_LKW.vb" /> <Compile Include="Classes\cSDL_LKW.vb" />
<Compile Include="Classes\cSendMailAttach.vb" /> <Compile Include="Classes\cSendMailAttach.vb" />
@@ -451,7 +460,9 @@
<Compile Include="Benutzerdefinierte Steuerelemente\usrcntlKdSearch.vb"> <Compile Include="Benutzerdefinierte Steuerelemente\usrcntlKdSearch.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="RKSV_DE\cServerClient_RKSV_DE.vb" />
<Compile Include="Schnittstellen\ATEZ\cATEZ_NCTS.vb" /> <Compile Include="Schnittstellen\ATEZ\cATEZ_NCTS.vb" />
<Compile Include="Schnittstellen\cBMD_Interface.vb" />
<Compile Include="Schnittstellen\cDVO_Interface.vb" /> <Compile Include="Schnittstellen\cDVO_Interface.vb" />
<Compile Include="Schnittstellen\cJsonPost.vb" /> <Compile Include="Schnittstellen\cJsonPost.vb" />
<Compile Include="Schnittstellen\cSyska_Interface.vb" /> <Compile Include="Schnittstellen\cSyska_Interface.vb" />
@@ -760,11 +771,6 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\aviso.ico" /> <None Include="Resources\aviso.ico" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\license.elic.xml">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
</ItemGroup>
<ItemGroup> <ItemGroup>
<COMReference Include="Therefore.API"> <COMReference Include="Therefore.API">
<Guid>{37687F89-8603-4E42-A5F4-4FBAB011D5F3}</Guid> <Guid>{37687F89-8603-4E42-A5F4-4FBAB011D5F3}</Guid>
@@ -841,7 +847,9 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\Verag-Spedition-GMBH-Logo.png" /> <None Include="Resources\Verag-Spedition-GMBH-Logo.png" />
</ItemGroup> </ItemGroup>
<ItemGroup /> <ItemGroup>
<EmbeddedResource Include="My Project\license.elic.xml" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<ProjectExtensions /> <ProjectExtensions />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.

6
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -79,11 +79,16 @@ Public Class cAllgemein
CLUSTER = "FRONTOFFICE" CLUSTER = "FRONTOFFICE"
Case "AMBAR" Case "AMBAR"
STAMMFILIALE = "5701" STAMMFILIALE = "5701"
CLUSTER = "FRONTOFFICE"
Case "ATILLA" Case "ATILLA"
STAMMFILIALE = "4801" STAMMFILIALE = "4801"
Case "FRONTOFFICE" Case "FRONTOFFICE"
STAMMFILIALE = "5801" STAMMFILIALE = "5801"
CLUSTER = "FRONTOFFICE" CLUSTER = "FRONTOFFICE"
Case "VERIMEX"
STAMMFILIALE = "6001"
CLUSTER = "FRONTOFFICE"
End Select End Select
USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname) USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname)
@@ -97,6 +102,7 @@ Public Class cAllgemein
Public Shared Sub LOAD_BER() Public Shared Sub LOAD_BER()
BENUTZER_BERECHTIGUNGS_GRUPPEN = New cBerechtigungenBenutzerGruppenZuordnung_List(USRID) BENUTZER_BERECHTIGUNGS_GRUPPEN = New cBerechtigungenBenutzerGruppenZuordnung_List(USRID)
End Sub End Sub
Public Shared Sub LOAD_PARAM() Public Shared Sub LOAD_PARAM()