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

Compare commits

base: edv:3e841185e4dd639b295719f81ece5b21ce802ae1
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM
..
compare: edv:newMaster2024
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM

22 Commits
3e841185e4 ... newMaster2

Author SHA1 Message Date
d.breimaier
efe0ddcfba version 2026-11-13 10:39:17 +01:00
d.breimaier
6f4d20147a fix ustva 2026-11-13 10:38:43 +01:00
d.breimaier
654ac29424 ustv, kunenblatt 2026-11-13 10:28:32 +01:00
d.breimaier
c9cabf4d0a fix 2026-11-12 15:46:03 +01:00
d.breimaier
1ee31b3e60 Kundenablage fix 2026-11-12 13:27:45 +01:00
d.breimaier
c059a5c3c2 eventHaendler fix 2026-11-11 10:58:46 +01:00
d.breimaier
a5e1bd9672 Kundenuebersicht etc. 2026-11-11 10:22:14 +01:00
d.breimaier
104287f89b fix DAKOSY-Sendung 2026-11-10 09:59:56 +01:00
d.breimaier
b880ac08c8 FIBU fix 2026-11-10 09:40:48 +01:00
d.breimaier
b04b7cb54e Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024 2026-11-10 08:30:09 +01:00
d.breimaier
8fffd23404 FIX Dakosy Versandanzeige 2026-11-10 08:30:06 +01:00
Andreas Luxbauer
fa1981b4db Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024 2026-11-09 15:13:21 +01:00
Andreas Luxbauer
93804039e8 RealyHub API 2026-11-09 15:13:12 +01:00
d.breimaier
89a88e30d5 cbam, etc. 2026-11-09 15:07:58 +01:00
d.breimaier
e772e5b076 CBAM 2026-11-06 11:41:54 +01:00
d.breimaier
b1f152c9f3 Sicherheiten -> CBAM 2026-11-06 11:02:06 +01:00
d.breimaier
1886abe838 div. Änderungen 2026-11-05 16:12:46 +01:00
d.breimaier
17eea67c94 Fix Sammelrechnung 2026-11-05 11:07:55 +01:00
d.breimaier
3799695541 cDatenserver, faktMail, Abrechnungsmaske (fremde Grenzen), etc. 2026-11-04 15:47:44 +01:00
d.breimaier
617d50723f Version 2026-11-03 17:10:05 +01:00
d.breimaier
3ad9fcd370 fix fremde grenzen 2026-11-03 16:42:31 +01:00
d.breimaier
e4db935edc abrechnung, BH, Fakt, Auswertung, etc. 2026-11-03 14:41:10 +01:00
38 changed files with 11877 additions and 3404 deletions
Expand all files Collapse all files

21
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -695,6 +695,7 @@ Public Class cAutomailversand
'ATTACHMENTS.Clear()
Dim zielPfad_PDFZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Belegnr & "_" & Anhangsbez, ".pdf",, False, "Zusammenfassung")
Dim zielPfadForThereFore As String = ""
'====================================================
' EINZELRECHNUNG
@@ -723,18 +724,18 @@ Public Class cAutomailversand
LoadZollAttachments(SPEDBUCH, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False, mergeList, ATTACHMENTS)
' Zusammenfassung erzeugen
AddMergedPdf(mergeList, zielPfad_PDFZusammenfassung, ATTACHMENTS)
AddMergedPdf(mergeList, zielPfad_PDFZusammenfassung, ATTACHMENTS, zielPfadForThereFore)
If checkFremdeGrenze(SPEDBUCH) AndAlso System.IO.File.Exists(zielPfad_PDFZusammenfassung) Then 'Upload ins Therefore
If checkFremdeGrenze(SPEDBUCH) AndAlso System.IO.File.Exists(zielPfadForThereFore) Then 'Upload ins Therefore
Try
If RECHNUNG.Automailversand_sent Is Nothing And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - Rechnungsanhang (FREMDE GRENZEN) in Therefore speichern?", vbYesNoCancel)) Then
If zielPfadForThereFore <> "" AndAlso System.IO.File.Exists(zielPfadForThereFore) AndAlso RECHNUNG.Automailversand_sent Is Nothing And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - Rechnungsanhang (FREMDE GRENZEN) in Therefore speichern?", vbYesNoCancel)) Then
VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(zielPfad_PDFZusammenfassung, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False)
VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(zielPfadForThereFore, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False)
End If
Catch ex As Exception
MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Therefore-Import fehlgeschlagen! " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
@@ -800,7 +801,7 @@ Public Class cAutomailversand
Next
' Zusammenfassung erzeugen
AddMergedPdf(mergeListSR, zielPfad_PDFZusammenfassung, ATTACHMENTS)
AddMergedPdf(mergeListSR, zielPfad_PDFZusammenfassung, ATTACHMENTS, "")
End Sub
@@ -812,7 +813,7 @@ Public Class cAutomailversand
If SPED.Grenzstelle = "???" Then Return True
Dim FREMDEGRENZE = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("grz_fremdeGrenze", "tblGrenzstelle", "grz_BezeichnungCBO='" & SPED.Grenzstelle & "'", "AVISO", False)
Dim FREMDEGRENZE = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("grz_fremdeGrenze", "tblGrenzstelle", "grz_Grenzstelle='" & SPED.Grenzstelle & "'", "AVISO", False)
Return FREMDEGRENZE
@@ -1259,7 +1260,7 @@ Public Class cAutomailversand
End Sub
Private Sub AddMergedPdf(mergeList As List(Of String), zielPfad As String, attachments As List(Of cFakt_MailATTach))
Private Sub AddMergedPdf(mergeList As List(Of String), zielPfad As String, attachments As List(Of cFakt_MailATTach), ByRef zielPfadForThereFor As String)
If Not mergeList.Any Then Return
@@ -1267,7 +1268,7 @@ Public Class cAutomailversand
Dim fi As New FileInfo(mergeList(0))
attachments.Add(New cFakt_MailATTach(mergeList(0), fi.Name))
zielPfadForThereFor = fi.FullName
Return
End If
@@ -1275,7 +1276,7 @@ Public Class cAutomailversand
Dim fi As New FileInfo(zielPfad)
attachments.Add(New cFakt_MailATTach(zielPfad, fi.Name))
zielPfadForThereFor = zielPfad
End If
End Sub

8
SDL/Fakturierung/cFakturierung.vb
View File

@@ -3542,7 +3542,7 @@ Public Class cFakturierung
End Select
Dim isReverseCharge = IIf(getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), "") > 0, True, False)
Dim isReverseCharge = IIf(getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), "") <> 0, True, False)
If Gesamt_RG_BetragSteuerfrei > 0 Then
@@ -5159,7 +5159,7 @@ Public Class cFakturierung
If isMDMRechnungsdruck Then
If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) > 0 Then
If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) <> 0 Then
Select Case Row("RechnungSprache")
Case "EN" : rpt.txtInfo.Text = vbNewLine & vbNewLine & "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
Case Else : rpt.txtInfo.Text = vbNewLine & vbNewLine & "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
@@ -5537,7 +5537,7 @@ Public Class cFakturierung
If isMDMRechnungsdruck Then
If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) > 0 Then
If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) <> 0 Then
Select Case Row("RechnungSprache")
Case "EN" : rpt.txtInfo.Text = vbNewLine & vbNewLine & "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
Case Else : rpt.txtInfo.Text = vbNewLine & vbNewLine & "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
@@ -5985,7 +5985,7 @@ Public Class cFakturierung
' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind,
' summiert und auf der Rechnung ausgewiesen werden.
If getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), VorschauID) > 0 Then
If getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), VorschauID) <> 0 Then
Select Case ROW("RechnungSprache")
Case "EN" : rpt.txtInfo.Text = "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."

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

@@ -114,7 +114,7 @@ Partial Class frmAbrechnungsMaske
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(1442, 646)
Me.pnl.Size = New System.Drawing.Size(1487, 646)
Me.pnl.TabIndex = 0
'
'SplitContainer
@@ -133,8 +133,8 @@ Partial Class frmAbrechnungsMaske
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.Controls.Add(Me.UsrCntlFaktAbrechnung1)
Me.SplitContainer.Size = New System.Drawing.Size(1442, 646)
Me.SplitContainer.SplitterDistance = 575
Me.SplitContainer.Size = New System.Drawing.Size(1487, 646)
Me.SplitContainer.SplitterDistance = 620
Me.SplitContainer.TabIndex = 0
'
'tbcntr
@@ -144,7 +144,7 @@ Partial Class frmAbrechnungsMaske
Me.tbcntr.Location = New System.Drawing.Point(0, 187)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(575, 459)
Me.tbcntr.Size = New System.Drawing.Size(620, 459)
Me.tbcntr.TabIndex = 3
'
'TabPage1
@@ -156,7 +156,7 @@ Partial Class frmAbrechnungsMaske
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(567, 433)
Me.TabPage1.Size = New System.Drawing.Size(612, 433)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Rechnungen"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -200,7 +200,7 @@ Partial Class frmAbrechnungsMaske
Me.dgvRechnungen.RowHeadersVisible = False
Me.dgvRechnungen.RowTemplate.Height = 28
Me.dgvRechnungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvRechnungen.Size = New System.Drawing.Size(561, 334)
Me.dgvRechnungen.Size = New System.Drawing.Size(606, 334)
Me.dgvRechnungen.TabIndex = 1
'
'Panel2
@@ -231,7 +231,7 @@ Partial Class frmAbrechnungsMaske
Me.Panel2.Location = New System.Drawing.Point(3, 337)
Me.Panel2.Margin = New System.Windows.Forms.Padding(2)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(561, 93)
Me.Panel2.Size = New System.Drawing.Size(606, 93)
Me.Panel2.TabIndex = 0
'
'txtMailanzeigen
@@ -371,7 +371,7 @@ Partial Class frmAbrechnungsMaske
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(505, 10)
Me.btn.Location = New System.Drawing.Point(550, 10)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(53, 36)
Me.btn.TabIndex = 4
@@ -381,7 +381,7 @@ Partial Class frmAbrechnungsMaske
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label6.Location = New System.Drawing.Point(502, 46)
Me.Label6.Location = New System.Drawing.Point(547, 46)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(56, 26)
Me.Label6.TabIndex = 13
@@ -509,7 +509,7 @@ Partial Class frmAbrechnungsMaske
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Margin = New System.Windows.Forms.Padding(2)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(575, 187)
Me.Panel1.Size = New System.Drawing.Size(620, 187)
Me.Panel1.TabIndex = 0
'
'txtRechnungsdatumAutomail
@@ -528,7 +528,7 @@ Partial Class frmAbrechnungsMaske
Me.txtRechnungsdatumAutomail._WaehrungZeichen = True
Me.txtRechnungsdatumAutomail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtRechnungsdatumAutomail.ForeColor = System.Drawing.Color.Black
Me.txtRechnungsdatumAutomail.Location = New System.Drawing.Point(442, 42)
Me.txtRechnungsdatumAutomail.Location = New System.Drawing.Point(485, 42)
Me.txtRechnungsdatumAutomail.MaxLength = 10
Me.txtRechnungsdatumAutomail.MaxLineLength = -1
Me.txtRechnungsdatumAutomail.MaxLines_Warning = ""
@@ -542,7 +542,7 @@ Partial Class frmAbrechnungsMaske
'
Me.dtp_RD_automail.CustomFormat = "''"
Me.dtp_RD_automail.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtp_RD_automail.Location = New System.Drawing.Point(442, 42)
Me.dtp_RD_automail.Location = New System.Drawing.Point(485, 42)
Me.dtp_RD_automail.Margin = New System.Windows.Forms.Padding(0)
Me.dtp_RD_automail.Name = "dtp_RD_automail"
Me.dtp_RD_automail.RightToLeft = System.Windows.Forms.RightToLeft.No
@@ -560,6 +560,7 @@ Partial Class frmAbrechnungsMaske
Me.KdSearchBox1._displayFullName = False
Me.KdSearchBox1._displayWoelflKd = False
Me.KdSearchBox1._hideIfListEmpty = True
Me.KdSearchBox1._hideMDMKd = False
Me.KdSearchBox1._loadKdData = False
Me.KdSearchBox1._searchName1 = True
Me.KdSearchBox1._UseFIRMA = ""
@@ -581,7 +582,7 @@ Partial Class frmAbrechnungsMaske
'lblRechnungsdatumAUTOMAIL
'
Me.lblRechnungsdatumAUTOMAIL.AutoSize = True
Me.lblRechnungsdatumAUTOMAIL.Location = New System.Drawing.Point(331, 45)
Me.lblRechnungsdatumAUTOMAIL.Location = New System.Drawing.Point(374, 45)
Me.lblRechnungsdatumAUTOMAIL.Name = "lblRechnungsdatumAUTOMAIL"
Me.lblRechnungsdatumAUTOMAIL.Size = New System.Drawing.Size(74, 13)
Me.lblRechnungsdatumAUTOMAIL.TabIndex = 60
@@ -614,7 +615,7 @@ Partial Class frmAbrechnungsMaske
Me.cboRechnungsdruck._value = ""
Me.cboRechnungsdruck.DropDownWidth = 120
Me.cboRechnungsdruck.FormattingEnabled = True
Me.cboRechnungsdruck.Location = New System.Drawing.Point(442, 23)
Me.cboRechnungsdruck.Location = New System.Drawing.Point(485, 23)
Me.cboRechnungsdruck.Margin = New System.Windows.Forms.Padding(2)
Me.cboRechnungsdruck.Name = "cboRechnungsdruck"
Me.cboRechnungsdruck.Size = New System.Drawing.Size(106, 21)
@@ -623,7 +624,7 @@ Partial Class frmAbrechnungsMaske
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(329, 26)
Me.Label14.Location = New System.Drawing.Point(372, 26)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(108, 13)
Me.Label14.TabIndex = 52
@@ -634,7 +635,7 @@ Partial Class frmAbrechnungsMaske
Me.cbx.AutoSize = True
Me.cbx.Checked = True
Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbx.Location = New System.Drawing.Point(313, 65)
Me.cbx.Location = New System.Drawing.Point(356, 65)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(139, 17)
Me.cbx.TabIndex = 34
@@ -647,7 +648,7 @@ Partial Class frmAbrechnungsMaske
Me.cboER_SR._allowFreiText = False
Me.cboER_SR._value = ""
Me.cboER_SR.FormattingEnabled = True
Me.cboER_SR.Location = New System.Drawing.Point(442, 3)
Me.cboER_SR.Location = New System.Drawing.Point(485, 3)
Me.cboER_SR.Margin = New System.Windows.Forms.Padding(2)
Me.cboER_SR.Name = "cboER_SR"
Me.cboER_SR.Size = New System.Drawing.Size(106, 21)
@@ -656,7 +657,7 @@ Partial Class frmAbrechnungsMaske
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(329, 6)
Me.Label5.Location = New System.Drawing.Point(372, 6)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(103, 13)
Me.Label5.TabIndex = 32
@@ -730,7 +731,7 @@ Partial Class frmAbrechnungsMaske
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.MyPanel1.Location = New System.Drawing.Point(0, 100)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(575, 87)
Me.MyPanel1.Size = New System.Drawing.Size(620, 87)
Me.MyPanel1.TabIndex = 51
Me.MyPanel1.Visible = False
'
@@ -750,7 +751,7 @@ Partial Class frmAbrechnungsMaske
Me.MyTextBox2._WaehrungZeichen = False
Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(374, 34)
Me.MyTextBox2.Location = New System.Drawing.Point(415, 34)
Me.MyTextBox2.MaxLength = 10
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
@@ -776,7 +777,7 @@ Partial Class frmAbrechnungsMaske
Me.MyTextBox3.Enabled = False
Me.MyTextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
Me.MyTextBox3.Location = New System.Drawing.Point(374, 63)
Me.MyTextBox3.Location = New System.Drawing.Point(415, 63)
Me.MyTextBox3.MaxLength = 10
Me.MyTextBox3.MaxLineLength = -1
Me.MyTextBox3.MaxLines_Warning = ""
@@ -788,7 +789,7 @@ Partial Class frmAbrechnungsMaske
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(345, 38)
Me.Label9.Location = New System.Drawing.Point(386, 38)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(28, 13)
Me.Label9.TabIndex = 57
@@ -797,7 +798,7 @@ Partial Class frmAbrechnungsMaske
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(345, 66)
Me.Label11.Location = New System.Drawing.Point(386, 66)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(23, 13)
Me.Label11.TabIndex = 56
@@ -807,7 +808,7 @@ Partial Class frmAbrechnungsMaske
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(345, 13)
Me.Label8.Location = New System.Drawing.Point(386, 13)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(114, 13)
Me.Label8.TabIndex = 52
@@ -1048,7 +1049,7 @@ Partial Class frmAbrechnungsMaske
'cbxGutschriftenAnVerag
'
Me.cbxGutschriftenAnVerag.AutoSize = True
Me.cbxGutschriftenAnVerag.Location = New System.Drawing.Point(454, 65)
Me.cbxGutschriftenAnVerag.Location = New System.Drawing.Point(497, 65)
Me.cbxGutschriftenAnVerag.Name = "cbxGutschriftenAnVerag"
Me.cbxGutschriftenAnVerag.Size = New System.Drawing.Size(118, 17)
Me.cbxGutschriftenAnVerag.TabIndex = 54
@@ -1076,7 +1077,7 @@ Partial Class frmAbrechnungsMaske
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1442, 646)
Me.ClientSize = New System.Drawing.Size(1487, 646)
Me.Controls.Add(Me.pnl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True

42
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -202,7 +202,7 @@ Public Class frmAbrechnungsMaske
Dim sqlstr = ""
If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = "24" Then
sqlstr &= " SELECT Rechnungsausgang.Rechnungsdatum, isnull(R1.RechnungsNr,'-') as ReNr, R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr "
sqlstr &= " SELECT Rechnungsausgang.Rechnungsdatum, isnull(R1.RechnungsNr,'-') as ReNr, R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art,RechnungsKundenNr, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr "
sqlstr &= " WHERE 1=1 AND R1.Firma_ID=24 "
sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction)
sqlstr &= " and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where"
@@ -213,7 +213,7 @@ Public Class frmAbrechnungsMaske
Else
' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID"
sqlstr &= " SELECT cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent,Rechnungsausgang.Rechnungsdatum, isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr as varchar) as PosNr,UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr, ReErfZeitstempel"
sqlstr &= " SELECT cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent,Rechnungsausgang.Rechnungsdatum, isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr as varchar) as PosNr,UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art,RechnungsKundenNr, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz, ReErfZeitstempel"
sqlstr &= ",(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck, isnull(BelegartenKz, '') as BelegartenKz "
sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr"
sqlstr &= " WHERE 1=1 "
@@ -231,7 +231,13 @@ Public Class frmAbrechnungsMaske
.Columns("AbfertigungsNr").Visible = False
.Columns("Firma_ID").Visible = False
.Columns("RechnungsLandKz").Visible = False
.Columns("RechnungsKundenNr").Visible = False
'.Columns("RechnungsKundenNr").Visible = False
.Columns("RechnungsKundenNr").Visible = True
.Columns("RechnungsKundenNr").Width = 75
.Columns("RechnungsKundenNr").HeaderText = "KdNr"
.Columns("Rechnungsdatum").Visible = False
.Columns("ReErfZeitstempel").Visible = False
.Columns("PosNr").HeaderText = "Pos-Nr."
@@ -277,6 +283,11 @@ Public Class frmAbrechnungsMaske
If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then
.Columns("RechnungsLandKz").HeaderText = "Land"
.Columns("RechnungsLandKz").Width = 50
.Columns("RechnungsLandKz").Visible = True
For Each r In .Rows
If r.Cells("Betrag").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("Betrag").Value) Then
@@ -903,6 +914,19 @@ Public Class frmAbrechnungsMaske
ContextMenuStrip1.Items.Add(pdf)
End If
If Not ContextMenuStrip1.Items.ContainsKey("4") Then
Dim mail = New ToolStripMenuItem() With {.Text = "E-Mail mit Anlagen", .Name = "4", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip1.Items.Add(mail)
AddHandler mail.Click, AddressOf mnuItem_Clicked
End If
If Not ContextMenuStrip1.Items.ContainsKey("5") Then
Dim pdf = New ToolStripMenuItem() With {.Text = "PDF mit Anlagen", .Name = "5", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler pdf.Click, AddressOf mnuItem_Clicked
ContextMenuStrip1.Items.Add(pdf)
End If
ContextMenuStrip1.Show(Cursor.Position)
End Sub
@@ -914,13 +938,20 @@ Public Class frmAbrechnungsMaske
If item IsNot Nothing Then id = item.Name
Dim sammelrechnungmitAnhang As Boolean = False
If id > 3 Then
sammelrechnungmitAnhang = True
id = id - 2
End If
Dim SR_RechnungsNr = InputBox("SR-Nummer eingeben: ", "Rechnungsdruck - " & IIf(item.Text IsNot Nothing, item.Text, "PDF"))
If IsNumeric(SR_RechnungsNr) Then
Dim RK_ID = SQL.getValueTxtBySql("SELECT TOP 1 RK_ID FROM Rechnungsausgang WHERE RechnungsNr='" & SR_RechnungsNr & "' AND Firma_ID='" & cboFirma._value & "' ORDER BY DruckDatumZeit DESC", "FMZOLL")
If IsNumeric(RK_ID) Then
Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
Dim sammelrechnungskopieMDM As Boolean = False
Dim sammelrechnungmitAnhang As Boolean = False
If RG_TMP IsNot Nothing Then
Dim tempPDF As String = ""
@@ -929,7 +960,6 @@ Public Class frmAbrechnungsMaske
If RG_TMP.Sammelrechnung = 6 Then
If RG_TMP.Status = 4 Then sammelrechnungskopieMDM = True
sammelrechnungmitAnhang = MsgBox("Soll die MDM Sammelrechnung mit Anhang angezeigt werden?", vbYesNo)
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, True, 8, tempPDF, True,,,,,,,,, sammelrechnungmitAnhang, sammelrechnungskopieMDM, listOfCSV, True)
Select Case id
@@ -962,7 +992,7 @@ Public Class frmAbrechnungsMaske
Else
'sammelrechnungmitAnhang = MsgBox("Soll die Sammelrechnung mit Anhang angezeigt werden?", vbYesNo)
' sammelrechnungmitAnhang = MsgBox("Soll die Sammelrechnung mit Anhang angezeigt werden?", vbYesNo)
Select Case id

15
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -625,7 +625,7 @@ Public Class frmFaktEmail
'WARUM HIER BEREITS??
'addAttachments(Mail, lastAktuelle_RgNr, cbxMergeRg.Checked, "")
addAttachments(Mail, lastAktuelle_RgNr, cbxMergeRg.Checked, "")
'-----------------------------------------------------------------
'Steuerbescheid/VDB anfügen
@@ -797,13 +797,13 @@ Public Class frmFaktEmail
If cbxAnhaengeInTherefore.Checked Then
Try
If Not cbxRgKopieDrucken.Checked And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - Anhang in Therefore speichern?", vbYesNoCancel)) Then
If pathAnhaenge <> "" AndAlso System.IO.File.Exists(pathAnhaenge) AndAlso Not cbxRgKopieDrucken.Checked And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - Anhang in Therefore speichern?", vbYesNoCancel)) Then
VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(pathAnhaenge, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False)
End If
Catch ex As Exception
MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Therefore-Import fehlgeschlagen! " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
@@ -1136,7 +1136,7 @@ Public Class frmFaktEmail
Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, RgNr As Integer, MergePDF As Boolean, zielPfadZusammenfassung As String)
Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, RgNr As Integer, MergePDF As Boolean, ByRef zielPfadZusammenfassung_forTherefore As String)
If ATTACHMENTS.Count = 0 Then Exit Sub
Try
@@ -1178,7 +1178,7 @@ Public Class frmFaktEmail
Belegsbezeichnung = RECHNUNG.BelegartenBez
End If
zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, Belegsbezeichnung & "sanhänge_", Belegsbezeichnung & "_") & RgNr & extension, extension,, False, "Zusammenfassung")
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, Belegsbezeichnung & "sanhänge_", Belegsbezeichnung & "_") & RgNr & extension, extension,, False, "Zusammenfassung")
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID = 19 Then
@@ -1240,6 +1240,7 @@ Public Class frmFaktEmail
End If
Else
Dim myList As New List(Of String)
@@ -1251,6 +1252,7 @@ Public Class frmFaktEmail
End If
zielPfadZusammenfassung_forTherefore = zielPfadZusammenfassung
End If
'Anhang an Mail anfügen
@@ -1264,6 +1266,7 @@ Public Class frmFaktEmail
'NICHT ANFÜGEN!
Else
Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
zielPfadZusammenfassung_forTherefore = a.Pfad
End If
End If
@@ -1379,7 +1382,7 @@ Public Class frmFaktEmail
If SPED.Grenzstelle = "???" Then Return True
Dim FREMDEGRENZE = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("grz_fremdeGrenze", "tblGrenzstelle", "grz_BezeichnungCBO='" & SPED.Grenzstelle & "'", "AVISO", False)
Dim FREMDEGRENZE = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("grz_fremdeGrenze", "tblGrenzstelle", "grz_Grenzstelle='" & SPED.Grenzstelle & "'", "AVISO", False)
Return FREMDEGRENZE

2
SDL/Formulare/CMR/frmCMR.vb
View File

@@ -109,6 +109,7 @@ Public Class frmCMR
uCmr.txtNachfolgendeFF.Text &= If(CMR.CMR_Nachf_Frachtführer_3 IsNot Nothing, Environment.NewLine & CMR.CMR_Nachf_Frachtführer_3, "")
uCmr.txtNachfolgendeFF.Text &= If(CMR.CMR_Nachf_Frachtführer_4 IsNot Nothing, Environment.NewLine & CMR.CMR_Nachf_Frachtführer_4, "")
uCmr.txtAuslieferungsort_OPTIONAL.Text = If(CMR.CMR_Auslieferung_Ort, "")
uCmr.txtAuslieferungsort.Text = If(CMR.CMR_Auslieferung_Ort, "")
uCmr.txtAuslieferungsLand.Text = If(CMR.CMR_Auslieferung_Land, "")
@@ -226,6 +227,7 @@ Public Class frmCMR
If s.Length > 2 Then CMR.CMR_Nachf_Frachtführer_3 = s(2) Else CMR.CMR_Nachf_Frachtführer_3 = ""
If s.Length > 3 Then CMR.CMR_Nachf_Frachtführer_4 = s(3) Else CMR.CMR_Nachf_Frachtführer_4 = ""
CMR.CMR_Auslieferung_Ort = uCmr.txtAuslieferungsort.Text
CMR.CMR_Auslieferung_Land = uCmr.txtAuslieferungsLand.Text

108
SDL/Formulare/CMR/usrcntlCMR.Designer.vb generated
View File

@@ -23,9 +23,11 @@ Partial Class usrcntlCMR
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel3 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.LinkLabel9 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel8 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel7 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel6 = New System.Windows.Forms.LinkLabel()
Me.lbl_errCMR_1 = New System.Windows.Forms.Label()
@@ -87,8 +89,7 @@ Partial Class usrcntlCMR
Me.txtAuslieferungsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFrachtführer = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.LinkLabel8 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel9 = New System.Windows.Forms.LinkLabel()
Me.txtAuslieferungsort_OPTIONAL = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel3.SuspendLayout()
CType(Me.dgvLadungenKurz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvLadungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -103,6 +104,7 @@ Partial Class usrcntlCMR
'
Me.Panel3.AutoScroll = True
Me.Panel3.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Panel3.Controls.Add(Me.txtAuslieferungsort_OPTIONAL)
Me.Panel3.Controls.Add(Me.LinkLabel9)
Me.Panel3.Controls.Add(Me.LinkLabel8)
Me.Panel3.Controls.Add(Me.LinkLabel7)
@@ -161,6 +163,28 @@ Partial Class usrcntlCMR
Me.Panel3.Size = New System.Drawing.Size(857, 786)
Me.Panel3.TabIndex = 0
'
'LinkLabel9
'
Me.LinkLabel9.AutoSize = True
Me.LinkLabel9.BackColor = System.Drawing.Color.White
Me.LinkLabel9.Location = New System.Drawing.Point(492, 1024)
Me.LinkLabel9.Name = "LinkLabel9"
Me.LinkLabel9.Size = New System.Drawing.Size(45, 13)
Me.LinkLabel9.TabIndex = 498
Me.LinkLabel9.TabStop = True
Me.LinkLabel9.Text = "AMBAR"
'
'LinkLabel8
'
Me.LinkLabel8.AutoSize = True
Me.LinkLabel8.BackColor = System.Drawing.Color.White
Me.LinkLabel8.Location = New System.Drawing.Point(200, 1024)
Me.LinkLabel8.Name = "LinkLabel8"
Me.LinkLabel8.Size = New System.Drawing.Size(45, 13)
Me.LinkLabel8.TabIndex = 497
Me.LinkLabel8.TabStop = True
Me.LinkLabel8.Text = "AMBAR"
'
'LinkLabel7
'
Me.LinkLabel7.AutoSize = True
@@ -217,14 +241,14 @@ Partial Class usrcntlCMR
Me.dgvLadungenKurz.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.dgvLadungenKurz.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLadungenKurz.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn6})
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
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.dgvLadungenKurz.DefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungenKurz.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvLadungenKurz.GridColor = System.Drawing.Color.Gray
Me.dgvLadungenKurz.Location = New System.Drawing.Point(32, 519)
Me.dgvLadungenKurz.Name = "dgvLadungenKurz"
@@ -268,14 +292,14 @@ Partial Class usrcntlCMR
Me.dgvLadungen.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.dgvLadungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLadungen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ZeNr, Me.anz, Me.art, Me.bez, Me.statNr, Me.gewicht, Me.umfang})
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
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.ControlText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungen.DefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungen.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvLadungen.GridColor = System.Drawing.Color.Gray
Me.dgvLadungen.Location = New System.Drawing.Point(32, 519)
Me.dgvLadungen.Name = "dgvLadungen"
@@ -1023,27 +1047,30 @@ Partial Class usrcntlCMR
Me.pic.TabIndex = 3
Me.pic.TabStop = False
'
'LinkLabel8
'txtAuslieferungsort_OPTIONAL
'
Me.LinkLabel8.AutoSize = True
Me.LinkLabel8.BackColor = System.Drawing.Color.White
Me.LinkLabel8.Location = New System.Drawing.Point(200, 1024)
Me.LinkLabel8.Name = "LinkLabel8"
Me.LinkLabel8.Size = New System.Drawing.Size(45, 13)
Me.LinkLabel8.TabIndex = 497
Me.LinkLabel8.TabStop = True
Me.LinkLabel8.Text = "AMBAR"
'
'LinkLabel9
'
Me.LinkLabel9.AutoSize = True
Me.LinkLabel9.BackColor = System.Drawing.Color.White
Me.LinkLabel9.Location = New System.Drawing.Point(492, 1024)
Me.LinkLabel9.Name = "LinkLabel9"
Me.LinkLabel9.Size = New System.Drawing.Size(45, 13)
Me.LinkLabel9.TabIndex = 498
Me.LinkLabel9.TabStop = True
Me.LinkLabel9.Text = "AMBAR"
Me.txtAuslieferungsort_OPTIONAL._DateTimeOnly = False
Me.txtAuslieferungsort_OPTIONAL._numbersOnly = False
Me.txtAuslieferungsort_OPTIONAL._numbersOnlyKommastellen = ""
Me.txtAuslieferungsort_OPTIONAL._numbersOnlyTrennzeichen = True
Me.txtAuslieferungsort_OPTIONAL._Prozent = False
Me.txtAuslieferungsort_OPTIONAL._ShortDateNew = False
Me.txtAuslieferungsort_OPTIONAL._ShortDateOnly = False
Me.txtAuslieferungsort_OPTIONAL._TimeOnly = False
Me.txtAuslieferungsort_OPTIONAL._TimeOnly_Seconds = False
Me.txtAuslieferungsort_OPTIONAL._value = Nothing
Me.txtAuslieferungsort_OPTIONAL._Waehrung = False
Me.txtAuslieferungsort_OPTIONAL._WaehrungZeichen = True
Me.txtAuslieferungsort_OPTIONAL.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAuslieferungsort_OPTIONAL.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtAuslieferungsort_OPTIONAL.Location = New System.Drawing.Point(78, 271)
Me.txtAuslieferungsort_OPTIONAL.MaxLength = 35
Me.txtAuslieferungsort_OPTIONAL.MaxLineLength = -1
Me.txtAuslieferungsort_OPTIONAL.MaxLines_Warning = ""
Me.txtAuslieferungsort_OPTIONAL.MaxLines_Warning_Label = Nothing
Me.txtAuslieferungsort_OPTIONAL.Name = "txtAuslieferungsort_OPTIONAL"
Me.txtAuslieferungsort_OPTIONAL.Size = New System.Drawing.Size(319, 21)
Me.txtAuslieferungsort_OPTIONAL.TabIndex = 499
'
'usrcntlCMR
'
@@ -1128,4 +1155,5 @@ Partial Class usrcntlCMR
Friend WithEvents umfang As DataGridViewTextBoxColumn
Friend WithEvents LinkLabel9 As LinkLabel
Friend WithEvents LinkLabel8 As LinkLabel
Public WithEvents txtAuslieferungsort_OPTIONAL As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

4
SDL/My Project/AssemblyInfo.vb
View File

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

9
SDL/SDL.vbproj
View File

@@ -1219,6 +1219,12 @@
<Compile Include="kunden\usrcntlFiskaluebersicht.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrcntlKundeBearbeitenFull_SDL.Designer.vb">
<DependentUpon>usrcntlKundeBearbeitenFull_SDL.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usrcntlKundeBearbeitenFull_SDL.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrCntlKundenBesonderheiten.Designer.vb">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</Compile>
@@ -3892,6 +3898,9 @@
<EmbeddedResource Include="kunden\usrcntlFiskaluebersicht.resx">
<DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrcntlKundeBearbeitenFull_SDL.resx">
<DependentUpon>usrcntlKundeBearbeitenFull_SDL.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</EmbeddedResource>

82
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -223,7 +223,7 @@ Public Class frmMDM_USTVAntrag
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
If Not (r.Cells("UStVPo_SchnittstellenNr").Value = 4 OrElse r.Cells("UStVPo_SchnittstellenNr").Value = 9) AndAlso Not r.Cells("UStVPo_ReNr").Value.ToString.ToLower.StartsWith("bis") Then 'MSE und "SAMMELBERIFF" ausnehmen
If Not (r.Cells("UStVPo_SchnittstellenNr").Value = 4 OrElse r.Cells("UStVPo_SchnittstellenNr").Value = 9) AndAlso Not r.Cells("UStVPo_ReNr").Value.ToString.ToLower.StartsWith("bis") Then 'MSE und "SAMMELBERIFF" ausnehmen
Dim rechnungsNr = CStr(r.Cells("UStVPo_ReNr").Value)
If Not String.IsNullOrWhiteSpace(rechnungsNr) Then
@@ -1242,9 +1242,9 @@ Public Class frmMDM_USTVAntrag
End If
If Not IsDBNull(r.Item("rmc_daId_InvAtt")) AndAlso IsNumeric(r.Item("rmc_daId_InvAtt")) AndAlso r.Item("rmc_daId_InvAtt") > 0 Then
Dim DS_ATT_ID As Integer = r.Item("rmc_daId_InvAtt")
Dim DS_ATT_ID As Integer = r.Item("rmc_daId_InvAtt")
If IsNumeric(USTV_POS.UStVPo_daId) AndAlso USTV_POS.UStVPo_daId > 0 Then
If IsNumeric(USTV_POS.UStVPo_daId) AndAlso USTV_POS.UStVPo_daId > 0 Then
'merge current daId and invatt-daid
@@ -1258,49 +1258,49 @@ Public Class frmMDM_USTVAntrag
If DS_ATT_PATH <> "" AndAlso DS_ORG_PATH <> "" Then
If DS_NEW.uploadDataToDATENSERVER(DS_ORG_PATH) AndAlso DS_NEW.uploadDataToDATENSERVER(DS_ATT_PATH) Then
USTV_POS.UStVPo_daId = DS_NEW.da_id
USTV_POS.UStVPo_daId_loeschbar = True 'nach merge wird nicht mehr orig.ID verwendet und daher ist löschbar!!!
End If
If DS_NEW.uploadDataToDATENSERVER(DS_ORG_PATH) AndAlso DS_NEW.uploadDataToDATENSERVER(DS_ATT_PATH) Then
USTV_POS.UStVPo_daId = DS_NEW.da_id
USTV_POS.UStVPo_daId_loeschbar = True 'nach merge wird nicht mehr orig.ID verwendet und daher ist löschbar!!!
End If
End If
End If
' Berechnungen
'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
'EasyTrip können wir nicht auslesen, deshalb geben wir immer 0,1 als Betrag mit!
Dim umrechKurs As Double = 1
If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then
Dim Brutto_EUR As Double = CDbl(r.Item("rmc_euroBrutto"))
Dim Brutto_org As Double = CDbl(r.Item("rmc_betragBrutto"))
'umrechKurs = frmdw / eur
umrechKurs = Math.Floor((Brutto_org / Brutto_EUR * 100 + 0.5)) / 100
End If
If CDbl(r.Item("rmc_betragMWST")) <> 0 Then
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round((r.Item("rmc_betragMWST") / umrechKurs), 2)
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
If USTV_POS.UStVPo_NettobetragEUR Is Nothing Then
USTV_POS.UStVPo_NettobetragEUR = Math.Round((r.Item("rmc_betragNetto") / umrechKurs), 2)
End If
End If
End If
If USTV_POS.INSERT() Then
cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr.ToString, kdNr, USTV_POS.UStVAn_ID)
' Berechnungen
'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
'EasyTrip können wir nicht auslesen, deshalb geben wir immer 0,1 als Betrag mit!
Dim umrechKurs As Double = 1
If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then
Dim Brutto_EUR As Double = CDbl(r.Item("rmc_euroBrutto"))
Dim Brutto_org As Double = CDbl(r.Item("rmc_betragBrutto"))
'umrechKurs = frmdw / eur
umrechKurs = Math.Floor((Brutto_org / Brutto_EUR * 100 + 0.5)) / 100
End If
If CDbl(r.Item("rmc_betragMWST")) <> 0 Then
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round((r.Item("rmc_betragMWST") / umrechKurs), 2)
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
If USTV_POS.UStVPo_NettobetragEUR Is Nothing Then
USTV_POS.UStVPo_NettobetragEUR = Math.Round((r.Item("rmc_betragNetto") / umrechKurs), 2)
End If
ElseIf USTVA_Nettobetragchanged Then
updateNettobetrag(USTV_POS.UStVPo_ReNr, USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_SchnittstellenNr, USTV_POS)
End If
If USTV_POS.INSERT() Then
cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr.ToString, kdNr, USTV_POS.UStVAn_ID)
End If
ElseIf USTVA_Nettobetragchanged Then
updateNettobetrag(USTV_POS.UStVPo_ReNr, USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_SchnittstellenNr, USTV_POS)
End If
@@ -2655,7 +2655,7 @@ Public Class frmMDM_USTVAntrag
If withPDF Then
Dim list As New List(Of String)
If mergePDFs Then
Mail.Attachments.Add(PDFInvoicesPath("", List), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Mail.Attachments.Add(PDFInvoicesPath("", list), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Else
PDFInvoicesPath("", list)
@@ -2667,7 +2667,7 @@ Public Class frmMDM_USTVAntrag
End If
Dim subject As String = ""
Dim subject As String = ""
subject &= IIf(USTV_ANTRAG.UStVAn_Name <> "", USTV_ANTRAG.UStVAn_Name & "_", "")
subject &= IIf(Antrag_LandKz <> "", Antrag_LandKz & "_", "")
subject &= IIf(USTV_ANTRAG.UStVAn_ReDatVon IsNot Nothing AndAlso USTV_ANTRAG.UStVAn_ReDatBis IsNot Nothing, CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToShortDateString & "-" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToShortDateString, "")

12
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -508,7 +508,7 @@ Public Class ustCntlUSTV_AntragPosition
If e.KeyValue <> Keys.Tab Then Return
If Not CanEdit() Then
lblWarning.Text = "keine Berechtigung/bereits abgerech."
lblWarning.Text = "keine Berechtigung"
Return
End If
@@ -723,11 +723,11 @@ Public Class ustCntlUSTV_AntragPosition
allowed = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm)
If allowed Then
If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then
allowed = False
End If
End If
'If allowed Then
' If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then
' allowed = False
' End If
'End If
Return allowed

3
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb
View File

@@ -1673,7 +1673,8 @@ Public Class cATLAS_EZA_IMPORT
If currency <> "" Then pos.ezaWP_ArtikelpreisWaehrung = currency
Dim n As Decimal
If TetraTryDecimal(netText, n) Then pos.ezaWP_Eigenmasse = n.ToString("0.###", CultureInfo.CurrentCulture)
If TetraTryDecimal(grossText, n) Then pos.ezaWP_Rohmasse = CDbl(n)
' If TetraTryDecimal(grossText, n) Then pos.ezaWP_Rohmasse = CDbl(n)
If TetraTryDecimal(grossText, n) Then pos.ezaWP_Rohmasse = CDbl(Math.Round(n, 1, MidpointRounding.AwayFromZero))
If TetraTryDecimal(valueText, n) Then pos.ezaWP_Artikelpreis = n.ToString("0.00", CultureInfo.CurrentCulture)
If procedure.Length >= 2 Then pos.ezaWP_AnmeldeVErfahren = procedure.Substring(0, 2)
If procedure.Length >= 4 Then pos.ezaWP_VerfahrensCodeVorangegangenesVerfahren = procedure.Substring(2, 2)

4
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
View File

@@ -65,7 +65,9 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
Dim BezugsNr As String = ""
If SENDUNG IsNot Nothing Then
BezugsNr = (SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "_" & "ID" & AVISO.AvisoID & "_" & If(AVISO.Auftraggeber.Length > 8, AVISO.Auftraggeber.ToString.Substring(0, 5), AVISO.Auftraggeber)).Trim
' BezugsNr = (SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "_" & "ID" & AVISO.AvisoID & "_" & If(AVISO.Auftraggeber.Length > 8, AVISO.Auftraggeber.ToString.Substring(0, 5), AVISO.Auftraggeber)).Trim
'Korrektes Schema
BezugsNr = (SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "_" & AVISO.AvisoID).Trim
lblBezugsnummer.Text = BezugsNr
txtMRN.Text = If(SENDUNG.tblSnd_ATB_T1, "")
End If

6
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -105,10 +105,10 @@ Public Class frmBU_Mahnlauf
sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum,
case
when Kunden.Abfertigungsverbot = 1 then 'gesperrt'
when max(KTO.dec_aktuellersaldo) - isnull(CASE WHEN Max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) > max(Kunden.UStV_SummeErstattungsbetragEUR) THEN max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) - max(Kunden.UStV_SummeErstattungsbetragEUR) ELSE 0 END ,0) - isnull(max(Kunden.UStV_Summe3470BetragEUR),0) + isnull(max(Kunden.UStV_SummeVZBetragEUR),0) - isnull(max(Kunden.UStV_SummeVorschaubetragEUR),0) - isnull(CASE WHEN ISNULL(max(Kunden.BankgarantieGültigBis), GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(max(Kunden.BankgarantieBetrag), 0) END,0) < 0 then 'ZZ 30 Tage'
when max(KTO.dec_aktuellersaldo) - isnull(CASE WHEN Max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) > max(Kunden.UStV_SummeErstattungsbetragEUR) THEN max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) - max(Kunden.UStV_SummeErstattungsbetragEUR) ELSE 0 END ,0) - isnull(max(Kunden.UStV_Summe3470BetragEUR),0) + isnull(max(Kunden.UStV_SummeVZBetragEUR),0) - isnull(max(Kunden.UStV_SummeVorschaubetragEUR),0) - isnull(CASE WHEN ISNULL(max(Kunden.BankgarantieGültigBis), GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(max(Kunden.BankgarantieBetrag), 0) END,0) < 0 and max(si_mahnstufe) > 2 then 'ZZ 30 Tage'
when max(si_mahnstufe) = 1 Then 'telefonisch'
when max(si_mahnstufe) = 3 Then 'Donnerstag'
when max(si_mahnstufe) = 2 Then 'Freitag'
when max(si_mahnstufe) = 2 Then 'Freitag'
when max(si_mahnstufe) = 3 Then 'Donnerstag'
when max(si_mahnstufe) >= 4 Then 'Mittwoch'
else '-'
end as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &

834
SDL/buchhaltung/usrCntlBH.vb
View File

File diff suppressed because it is too large Load Diff

6
SDL/kunden/Berichte/rptKundeUebersicht.vb
View File

@@ -1,6 +1,3 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptKundeUebersicht
Dim Firma_ID = "1"
@@ -41,6 +38,9 @@ Public Class rptKundeUebersicht
Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
Case Else
If Firma_ID = 19 Then
Me.picVERAG.Image = My.Resources.VERAG_360 : Me.Label28.Text = "VERAG 360 GmbH"
End If
End Select

4614
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

366
SDL/kunden/frmKundenblatt.vb
View File

@@ -1,14 +1,11 @@
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Web.UI.WebControls.Expressions
Imports com.sun.xml.internal.rngom
Imports GrapeCity.Viewer.Common.Model
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Public Class frmKundenblatt
' Public superuser As Boolean = False
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Public kdNr As Integer
Public FilialeNr As Integer = -1
@@ -16,24 +13,16 @@ Public Class frmKundenblatt
Private bindingLKW As New BindingSource
Private dataAdapterLKW As New SqlDataAdapter
Dim lkwKzChange As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
' Dim KUNDE As cKunde = Nothing
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Dim KUNDE_K_RE As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
Dim KUNDE_K_GF As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
' Private dataAdapterFirma As New SqlDataAdapter
' Private dataFirma As New DataTable
'Private bindingFirma As New BindingSource
Public showEdit As Boolean = False
Private bindingSDL As New BindingSource
Private dataAdapterSDL As New SqlDataAdapter
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
' Dim acd As List(Of cAutoCompleteData) = kundenSQL.getKundenShort()
Private loaded As Boolean = False
Dim gridReady As Boolean = True
@@ -75,8 +64,8 @@ Public Class frmKundenblatt
Sub changeTab(index As Integer, tsi As ToolStripItem, Optional subItemIndexMDM As Integer = -1, Optional subItemIndexZoll As Integer = -1)
If kdNr <= 0 Then
If index <> 1 Then
Exit Sub 'Kein Wechsel --> Kundenerfassung
If index <> 7 Then
'Exit Sub 'Kein Wechsel --> Kundenerfassung
Else
End If
@@ -120,9 +109,6 @@ Public Class frmKundenblatt
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True)
End If
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
btnBonitaetBearbeiten.Visible = True
@@ -137,26 +123,11 @@ Public Class frmKundenblatt
KdSearchBox1.initKdBox(Me)
AddHandler KdSearchBox1.PropertyChanged, Sub()
Try
' If KdSearchBox1.KdNr <= 0 Then
' tabindex = 0
' End If
'Exit Sub
' kdNr = KdSearchBox1.KdNr_value
' initDataBinding()
' Dim tabindex = Me.tbcntrMain.SelectedIndex
Dim tabindex = Me.tbcntrMain.SelectedIndex
Me.KUNDE = Nothing
Me.kdNr = KdSearchBox1.KdNr_value
initKUNDE() ' Me.frmKundenblatt_Load(Me, New EventArgs)
' Me.initAllgemein()
' If Me.tbcntrMain.SelectedIndex = 0 Then
' Else
' Me.tbcntrMain.SelectedIndex = 0
'End If
' Me.tbcntrMain.SelectedIndex = 0
initKUNDE()
initTABSDL_Allgemein()
changeTab(tabindex, AllgemeinToolStripMenuItem)
@@ -167,11 +138,27 @@ Public Class frmKundenblatt
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
KdSearchBox1.KdNr = kdNr ' Ruft initKUNDE auf
KdSearchBox1.KdNr = kdNr
changeTab(0, AllgemeinToolStripMenuItem)
If isAVISO() Then
tbcntrMain.TabPages.Remove(tbFirmendatenSDL)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
End If
Else
tbcntrMain.TabPages.Remove(tbFirmendaten)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull_SDL1.Filiale = FilialeNr
End If
End If
tbcntrMDM.TabPages.Remove(tbVERAGCard) 'Jetzt in SDL LEintstungen
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", "SDL") Then
@@ -192,6 +179,10 @@ Public Class frmKundenblatt
If isVerag360 Then
ToolStripMenuItem5.Visible = False
Else
ToolStripMenuItem7.Visible = False
ToolStripMenuItem4.Visible = False
ToolStripMenuItem8.Visible = False
End If
loaded = True
@@ -263,9 +254,16 @@ Public Class frmKundenblatt
lblBonitaet.Text = If(KUNDE.Bonität, "")
Else
UsrcntlKundeBearbeitenFull1.Enabled = False
tbcntrMain.TabPages(2).Enabled = True
initTABSDL_Firmendaten()
If isAVISO() Then
initTABSDL_Firmendaten()
Else
initTABSDL_FirmendatenSDL()
End If
End If
' lblFirma.Text = KUNDE.Kurzname
@@ -273,13 +271,14 @@ Public Class frmKundenblatt
Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrUSTV.SelectedIndexChanged, tbcntrMDM.SelectedIndexChanged, tbcntrMain.SelectedIndexChanged
' tbcntrMDM.SuspendLayout()
' If kdNr <= 0 Then changeTab(0, AllgemeinToolStripMenuItem) : Exit Sub
If kdNr <= 0 Then changeTab(1, ToolStripMenuItem2) : Exit Sub
If kdNr <= 0 Then changeTab(7, ToolStripMenuItem2) : Exit Sub
If Me.loaded Then ' wenn fertig
' lblKdnr.Text = "KdNr: " & kdNr
Select Case tbcntrMain.SelectedTab.Name
Case "tbAllgemein" : initTABSDL_Allgemein()
Case "tbFirmendaten" : initTABSDL_Firmendaten()
Case "tbFirmendatenSDL" : initTABSDL_FirmendatenSDL()
Case "tbMdm"
Select Case tbcntrMDM.SelectedTab.Name
Case "tbLKW" : initTABLKW()
@@ -360,37 +359,56 @@ Public Class frmKundenblatt
Sub initTABSDL_Firmendaten()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
tbcntrMain.TabPages(1).Enabled = False
' cProgramFunctions.setAllReadOnly(Panel4)
tbcntrMain.TabPages(7).Enabled = True
UsrcntlKundeBearbeitenFull1.Enabled = True
UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
End If
Else
tbcntrMain.TabPages(7).Enabled = False
End If
tbcntrMain.TabPages(1).Enabled = True
UsrcntlKundeBearbeitenFull1.Enabled = True
' If kdNr > 0 Then
End Sub
'Dim usr As New usrcntlKundeBearbeitenFull(kdNr)
Sub initTABSDL_FirmendatenSDL()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
tbcntrMain.TabPages(7).Enabled = True
UsrcntlKundeBearbeitenFull_SDL1.Enabled = True
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
UsrcntlKundeBearbeitenFull_SDL1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull_SDL1.cboFiliale.changeItem(FilialeNr)
End If
Else
tbcntrMain.TabPages(7).Enabled = False
End If
'End If
End Sub
Sub initTABVERAGCard()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_VERAG_Card", Me) = 0 Then
tbcntrMain.TabPages(4).Enabled = False
' cProgramFunctions.setAllReadOnly(Panel4)
Dim usrcntlTMP As New usrCntlVERAGCard
usrcntlTMP.displayFilter = False
usrcntlTMP.onlyKdNr = True
usrcntlTMP.Dock = DockStyle.Fill
usrcntlTMP.kdnr = kdNr
tbVERAGCard.Controls.Clear()
tbVERAGCard.Controls.Add(usrcntlTMP)
End If
Dim usrcntlTMP As New usrCntlVERAGCard
usrcntlTMP.displayFilter = False
usrcntlTMP.onlyKdNr = True
usrcntlTMP.Dock = DockStyle.Fill
usrcntlTMP.kdnr = kdNr
tbVERAGCard.Controls.Clear()
tbVERAGCard.Controls.Add(usrcntlTMP)
End Sub
Sub initTABBesuchsberichte()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Besuchsberichte", Me) = 0 Then
@@ -441,6 +459,7 @@ Public Class frmKundenblatt
usrcntlKarten.kdNr_filter = True
usrcntlKarten.kdNr = kdNr
usrcntlKarten.init()
End Sub
@@ -475,7 +494,6 @@ Public Class frmKundenblatt
If kdNr > 0 Then
rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
txtZinsbelastungNew.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
txtZinsbelastungTolInTagen.Text = checkNullStr(KUNDE_ERW.kde_abwToleranzTage)
@@ -491,32 +509,34 @@ Public Class frmKundenblatt
End If
End Sub
Sub initTABLKW(Optional kz As String = "")
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_LKW_bearbeiten", Me) = 0 Then
tbcntrMain.TabPages(2).Enabled = False
' cProgramFunctions.setAllReadOnly(tabLKW)
Me.dgvLKW.DataSource = Me.bindingLKW
initLKWBinding()
initDgvLKW()
btnUpdateLKW.Enabled = False
If kz <> "" Then
For Each r As DataGridViewRow In dgvLKW.Rows
If r.Cells("KfzKennzeichen").Value = kz Then
dgvLKW.ClearSelection()
r.Selected = True
dgvLKW_SelectionChanged(dgvLKW, New EventArgs)
dgvLKW.FirstDisplayedScrollingRowIndex = r.Index
dgvLKW.PerformLayout()
Exit For
End If
Next
End If
dgvLKW_SelectionChanged(Me, New EventArgs)
End If
Me.dgvLKW.DataSource = Me.bindingLKW
initLKWBinding()
initDgvLKW()
btnUpdateLKW.Enabled = False
If kz <> "" Then
For Each r As DataGridViewRow In dgvLKW.Rows
If r.Cells("KfzKennzeichen").Value = kz Then
dgvLKW.ClearSelection()
r.Selected = True
dgvLKW_SelectionChanged(dgvLKW, New EventArgs)
dgvLKW.FirstDisplayedScrollingRowIndex = r.Index
dgvLKW.PerformLayout()
Exit For
End If
Next
End If
dgvLKW_SelectionChanged(Me, New EventArgs)
End Sub
Sub initTABSDL_Leistungen()
@@ -705,63 +725,6 @@ Public Class frmKundenblatt
End With
'Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
'Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
'lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
''If dt_Diesel.Rows.Count > 0 Then
'' lblStat_SdlLeistungen_Diesel.Text &= " ( "
'' For Each r In dt_Diesel.Rows
'' Dim Lieferant As String = ""
'' Select Case r.Item("SDLNr")
'' Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
'' Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
'' End Select
'' lblStat_SdlLeistungen_Diesel.Text &= Lieferant
'' Next
'' lblStat_SdlLeistungen_Diesel.Text &= ")"
''End If
'Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218"
'Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL")
'lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
''If dt_Maut.Rows.Count > 0 Then
'' lblStat_SdlLeistungen_Maut.Text &= " ( "
'' For Each r As DataRow In dt_Maut.Rows
'' Dim Lieferant As String = ""
'' Select Case r.Item("SDLNr")
'' Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
'' Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
'' Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
'' Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
'' Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
'' Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
'' Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
'' Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
'' Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
'' Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
'' Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
'' Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
'' Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
'' Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
'' Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
'' Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
'' Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
'' End Select
'' lblStat_SdlLeistungen_Maut.Text &= Lieferant
'' Next
'' lblStat_SdlLeistungen_Maut.Text &= ")"
''End If
End Sub
Function checkNullStr(o As Object) As String
If Not IsDBNull(o) Then
@@ -994,16 +957,6 @@ Public Class frmKundenblatt
dgvOfferte.DataSource = SQL.loadDgvBySql("SELECT Offertenstamm.OffertenNr, Offertenstamm.OffertenBez FROM Kunden,Offerten,Offertenstamm WHERE Offerten.KundenNr=" & kdNr & " AND Kunden.KundenNr=Offerten.KundenNr AND Offertenstamm.OffertenNr=Offerten.OffertenNr ")
End Sub
' Sub initDgvSDLLeistungen()
' dgvSDLLeistungen.DataSource = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez FROM KundenSDL,Speditionsdienstleistungen WHERE KundenSDL.KundenNr=" & kdNr & " AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr ")
'showDgvOfferte()
' End Sub
Sub showDgvOfferte()
With dgvOfferte
.RowTemplate.Height = 20
@@ -1181,7 +1134,7 @@ Public Class frmKundenblatt
Sub initDgvSperrliste()
With dgvSperrliste
' .DataSource = SQL.loadDgvBySql("SELECT Speditionsdienstleistungen.SDLNr,Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez,KundenSDL.Sperrdatum FROM Speditionsdienstleistungen,KundenSDL,Sperrnummernverzeichnis WHERE KundenSDL.KundenNr=" & kdNr & " AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr AND Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre /*AND KundenSDL.Sperrdatum IS NOT NULL*/ ORDER BY SperrNr")
.DataSource = SQL.loadDgvBySql(" SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez, [Sperrdatum], Vermerk " &
" FROM KundenSDL INNER JOIN Speditionsdienstleistungen ON Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr INNER JOIN Sperrnummernverzeichnis ON Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre " &
" WHERE KundenSDL.KundenNr='" & kdNr & "' AND KundenSDL.SDLNr in (select distinct(SDL.SDLNr) from SDL where SDL.SDLNr=KundenSDL.SDLNr AND SDL.KundenNr = KundenSDL.KundenNr) and SDLTypNr IN (1,2) ORDER BY Sperre,Speditionsdienstleistungen.SDLBez")
@@ -1537,40 +1490,40 @@ Public Class frmKundenblatt
End If
Select Case tmpSDLNr
Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS
Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : btnBestelldateiErzeugen.Visible = True
Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
Case 214, 215, 216, 217, 218 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE
Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS
Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : btnBestelldateiErzeugen.Visible = True
Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
Case 214, 215, 216, 217, 218 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE
Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE
txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE
txtMautDEMasterPIN.Text = PartnerKdNrFromFMZOLL.MautDE_MasterPIN 'MAUT DE
txtMautDE_BenutzerNr.Text = PartnerKdNrFromFMZOLL.MautDE_BenutzerNr 'MAUT DE
Case 203, 204, 206, 207, 208, 209, 211, 205, 213 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr 'MSE 205??
Case 210, 500 : Panel2.Visible = False
Case Else : Panel2.Visible = False : Exit Sub
End Select
Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE
txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE
txtMautDEMasterPIN.Text = PartnerKdNrFromFMZOLL.MautDE_MasterPIN 'MAUT DE
txtMautDE_BenutzerNr.Text = PartnerKdNrFromFMZOLL.MautDE_BenutzerNr 'MAUT DE
Case 203, 204, 206, 207, 208, 209, 211, 205, 213 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr 'MSE 205??
Case 210, 500 : Panel2.Visible = False
Case Else : Panel2.Visible = False : Exit Sub
End Select
Select Case tmpSDLNr
Case 202
scanJaraVereinbarung.Visible = True
' scanJaraVertretung.Visible = True
scanErstbestellung.Visible = True
Case 203 : scanErstbestellung.Visible = True
Case 209 : scanErstbestellung.Visible = True
Case 215 : scanErstbestellung.Visible = True' PLOSE IT
Case 214, 217, 218 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
Case 211
' scanErstbestellung.Visible = True
scanMWSTAgreement.Visible = True
' Case 100 : scanErstbestellung.Visible = True
' Case 212 : scanErstbestellung.Visible = True
Select Case tmpSDLNr
Case 202
scanJaraVereinbarung.Visible = True
' scanJaraVertretung.Visible = True
scanErstbestellung.Visible = True
Case 203 : scanErstbestellung.Visible = True
Case 209 : scanErstbestellung.Visible = True
Case 215 : scanErstbestellung.Visible = True' PLOSE IT
Case 214, 217, 218 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
Case 211
' scanErstbestellung.Visible = True
scanMWSTAgreement.Visible = True
' Case 100 : scanErstbestellung.Visible = True
' Case 212 : scanErstbestellung.Visible = True
Case Else : Exit Sub
End Select
End If
Case Else : Exit Sub
End Select
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click, Button15.Click
@@ -1778,7 +1731,12 @@ Public Class frmKundenblatt
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
changeTab(1, sender)
'If isAVISO() Then
' changeTab(7, sender)
'Else
changeTab(7, sender)
'End If
End Sub
' Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.DoubleClick
@@ -1787,28 +1745,28 @@ Public Class frmKundenblatt
'End Sub
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
changeTab(3, sender, 1)
changeTab(2, sender, 1)
End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
changeTab(2, sender)
changeTab(1, sender)
End Sub
Private Sub tbitVERAGCard_Click(sender As Object, e As EventArgs)
changeTab(3, ToolStripMenuItem4, 3)
changeTab(2, ToolStripMenuItem4, 3)
End Sub
Private Sub tbitLeistungen_Click(sender As Object, e As EventArgs)
changeTab(3, ToolStripMenuItem4, 0)
changeTab(2, ToolStripMenuItem4, 0)
End Sub
Private Sub tbitKartenverwaltung_Click(sender As Object, e As EventArgs)
changeTab(3, ToolStripMenuItem4, 1)
changeTab(2, ToolStripMenuItem4, 1)
End Sub
Private Sub tbitLKW_Click(sender As Object, e As EventArgs)
changeTab(3, ToolStripMenuItem4, 2)
changeTab(2, ToolStripMenuItem4, 2)
End Sub
Private Sub DropDownOpened(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.DropDownOpened
@@ -1817,7 +1775,7 @@ Public Class frmKundenblatt
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs)
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
Me.WindowState = FormWindowState.Minimized
End Sub
@@ -1979,7 +1937,7 @@ Public Class frmKundenblatt
Return False
End Function
Private Sub frmKundenblatt_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
If showEdit Then changeTab(1, ToolStripMenuItem2)
If showEdit Then changeTab(7, ToolStripMenuItem2)
If My.Computer.Screen.WorkingArea.Width * 0.8 > Me.MinimumSize.Width Then
Me.Width = My.Computer.Screen.WorkingArea.Width * 0.8
@@ -1995,13 +1953,13 @@ Public Class frmKundenblatt
End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
changeTab(6, sender)
changeTab(5, sender)
End Sub
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs)
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
changeTab(5, sender)
changeTab(4, sender)
End Sub
@@ -2017,11 +1975,6 @@ Public Class frmKundenblatt
End If
End Sub
Private Sub UsrcntlKundeBearbeitenFull1_KD_SAVED(kdnrTMP As Object) Handles UsrcntlKundeBearbeitenFull1.KD_SAVED
If Me.kdNr < 0 And kdnrTMP > 0 Then
KdSearchBox1.KdNr = kdnrTMP
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim LIST As New List(Of String)
@@ -2033,7 +1986,7 @@ Public Class frmKundenblatt
End Sub
Private Sub ToolStripMenuItem8_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
changeTab(5, sender, 1)
changeTab(4, sender, 1)
End Sub
Private Sub btnOP_Click(sender As Object, e As EventArgs) Handles btnOP.Click
@@ -2273,9 +2226,6 @@ Public Class frmKundenblatt
End If
End Sub
Private Sub Button7_Click_1(sender As Object, e As EventArgs)
End Sub
Sub initDGVUmsatz()
With dgvUmsaetze
@@ -2442,12 +2392,20 @@ Public Class frmKundenblatt
End Sub
Private Sub UsrcntlKundeBearbeitenFull1_KD_SAVED(kdnrTMP As Object) Handles UsrcntlKundeBearbeitenFull1.KD_SAVED, UsrcntlKundeBearbeitenFull_SDL1.KD_SAVED
If Me.kdNr < 0 And kdnrTMP > 0 Then
KdSearchBox1.KdNr = kdnrTMP
End If
End Sub
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
changeTab(4, sender)
changeTab(3, sender)
End Sub
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
changeTab(7, sender)
changeTab(6, sender)
End Sub
Private Sub dgvRg_SelectionChanged(sender As Object, e As EventArgs) Handles dgvRg.SelectionChanged
@@ -3010,7 +2968,7 @@ Public Class frmKundenblatt
End Sub
Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click
KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
KUNDE_ERW.kde_abwToleranzTage = checkNullStr(txtZinsbelastungTolInTagen.Text)
If Not String.IsNullOrWhiteSpace(txtZinsbelastungNew.Text) Then
@@ -3049,15 +3007,10 @@ Public Class frmKundenblatt
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value)
f.Show(Me)
End If
End Sub
Private Sub btnRgMail_Click(sender As Object, e As EventArgs) Handles btnRgMail.Click
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim rptKundeUebersicht As New SDL.rptKundeUebersicht(kdNr, 19)
@@ -3070,8 +3023,9 @@ Public Class frmKundenblatt
rpt.Show()
End Sub
Private Sub PictureBox5_Click(sender As Object, e As EventArgs)
End Sub
Private Function isAVISO() As Boolean
Return cAllgemein.PROGID = 16
End Function
End Class

17
SDL/kunden/frmOffertenBearbeiten.vb
View File

@@ -33,7 +33,13 @@ Public Class frmOffertenBearbeiten
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)
Dim whereFiliale As String = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19 Then
whereFiliale = " AND Filialen.FilialenNr in (4817,4819,4821,4823,4824,4868)"
End If
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' " & whereFiliale & " ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)
Dim where = ""
@@ -54,6 +60,15 @@ Public Class frmOffertenBearbeiten
cboSprache.Enabled = False
End If
If cboFiliale.Items.Count > 0 Then cboFiliale.changeItem("4803")
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19 Then
' where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr in (4817,4819,4821,4823,4824,4868)) "
'Else
' where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr not in (4817,4819,4821,4823,4824,4868)) "
'End If
Case Else
cboSprache.changeItem("DE")
cboSprache.Enabled = False

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

@@ -22,6 +22,7 @@ Partial Class usrcntlKundeBearbeitenFull
'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()
@@ -60,10 +61,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
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.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -77,7 +76,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbAufschub = New System.Windows.Forms.TabPage()
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Label78 = New System.Windows.Forms.Label()
Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -102,8 +100,9 @@ Partial Class usrcntlKundeBearbeitenFull
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.tbFiskal = New System.Windows.Forms.TabPage()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
Me.Label71 = New System.Windows.Forms.Label()
Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxHR_autoselect = New System.Windows.Forms.CheckBox()
Me.cbxPDFMerge = New System.Windows.Forms.CheckBox()
Me.cbxSammelrechnung_IM_EX = New System.Windows.Forms.CheckBox()
@@ -114,7 +113,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.btnAddKundeUID = New System.Windows.Forms.Button()
Me.cboUSt_UstIdNrLand2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtUSt_UstIdNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label117 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label115 = New System.Windows.Forms.Label()
@@ -290,6 +289,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbSonstiges = New System.Windows.Forms.TabPage()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.cbxIDSMautberichtNachOrt = New System.Windows.Forms.CheckBox()
Me.txtSonst_weitereKdNrWOELFL = New System.Windows.Forms.TextBox()
Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
@@ -334,14 +334,12 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label72 = New System.Windows.Forms.Label()
Me.txtSonst_KdNrIDS = New System.Windows.Forms.TextBox()
Me.Label70 = New System.Windows.Forms.Label()
Me.Label71 = New System.Windows.Forms.Label()
Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumPLOSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumUTA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumMSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumIDS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.tbSchnittstellen = New System.Windows.Forms.TabPage()
Me.txtVERAG_Schnittstellen_ID = New System.Windows.Forms.TextBox()
Me.Label91 = New System.Windows.Forms.Label()
@@ -388,14 +386,14 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAdresseZusatz = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtPostfachOrt = New System.Windows.Forms.TextBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtPostfachPlz = New System.Windows.Forms.TextBox()
Me.txtPlz = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.txtPostfachOrt = New System.Windows.Forms.TextBox()
Me.txtPostfachPlz = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtAnsprechpartnerAnrede = New System.Windows.Forms.TextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.txtMobil = New System.Windows.Forms.TextBox()
@@ -422,7 +420,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbKontakt = New System.Windows.Forms.TabControl()
Me.TabPage10 = New System.Windows.Forms.TabPage()
Me.TabPage11 = New System.Windows.Forms.TabPage()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.Label50 = New System.Windows.Forms.Label()
Me.Label68 = New System.Windows.Forms.Label()
Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -441,14 +438,18 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtERROR = New System.Windows.Forms.TextBox()
Me.btnDatevExport = New System.Windows.Forms.Button()
Me.Label98 = New System.Windows.Forms.Label()
Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip()
Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -477,6 +478,7 @@ Partial Class usrcntlKundeBearbeitenFull
CType(Me.dgvMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbSonstiges.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.Standard.SuspendLayout()
@@ -498,7 +500,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.SuspendLayout()
Me.pnlNeukunde.SuspendLayout()
Me.cnsBankverbindungen.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'tbcntrDetails
@@ -637,23 +638,13 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxBesonderheitenNEU
'
Me.cbxBesonderheitenNEU.AutoSize = True
Me.cbxBesonderheitenNEU.Location = New System.Drawing.Point(333, 8)
Me.cbxBesonderheitenNEU.Location = New System.Drawing.Point(473, 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
'
Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -680,15 +671,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage4.Text = " Aviso / E-Mail Benachrichtigung"
Me.TabPage4.UseVisualStyleBackColor = True
'
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
'
'rtbLKWFreigabeSenden
'
Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -750,6 +732,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbfVerb_RechtsanwaltSeit.Size = New System.Drawing.Size(60, 20)
Me.txtAbfVerb_RechtsanwaltSeit.TabIndex = 6
Me.txtAbfVerb_RechtsanwaltSeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtAbfVerb_RechtsanwaltSeit.Visible = False
'
'cboAbfVerb_Kreditlimit
'
@@ -761,6 +744,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbfVerb_Kreditlimit.TabIndex = 7
Me.cboAbfVerb_Kreditlimit.Text = "Kreditlimit"
Me.cboAbfVerb_Kreditlimit.UseVisualStyleBackColor = True
Me.cboAbfVerb_Kreditlimit.Visible = False
'
'rtbAbfVerb_Grund
'
@@ -790,6 +774,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbfVerb_Rechtsanwalt.TabIndex = 4
Me.cboAbfVerb_Rechtsanwalt.Text = "Rechtsanwalt"
Me.cboAbfVerb_Rechtsanwalt.UseVisualStyleBackColor = True
Me.cboAbfVerb_Rechtsanwalt.Visible = False
'
'Label63
'
@@ -808,6 +793,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label64.Size = New System.Drawing.Size(26, 13)
Me.Label64.TabIndex = 5
Me.Label64.Text = "seit:"
Me.Label64.Visible = False
'
'cboAbfVerb_Abfertigungsverbot
'
@@ -857,14 +843,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbAufschub.Text = "Aufschubkonten"
Me.tbAufschub.UseVisualStyleBackColor = True
'
'usrCntlAufschubkonten
'
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
Me.usrCntlAufschubkonten.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Label78)
@@ -1019,6 +997,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox7.TabIndex = 5
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Aviso"
Me.GroupBox7.Visible = False
'
'RadioButton7
'
@@ -1117,12 +1096,13 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxAbf_EinmaligeAbfertigung
'
Me.cbxAbf_EinmaligeAbfertigung.AutoSize = True
Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(467, 5)
Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(572, 8)
Me.cbxAbf_EinmaligeAbfertigung.Name = "cbxAbf_EinmaligeAbfertigung"
Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(128, 17)
Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(93, 17)
Me.cbxAbf_EinmaligeAbfertigung.TabIndex = 1
Me.cbxAbf_EinmaligeAbfertigung.Text = "Einmalige Abfertigung"
Me.cbxAbf_EinmaligeAbfertigung.Text = "Einmalige Abf."
Me.cbxAbf_EinmaligeAbfertigung.UseVisualStyleBackColor = True
Me.cbxAbf_EinmaligeAbfertigung.Visible = False
'
'Label41
'
@@ -1170,17 +1150,10 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbFiskal.Text = "Fiskal"
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, 495)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'tbVerrechnung
'
Me.tbVerrechnung.Controls.Add(Me.Label71)
Me.tbVerrechnung.Controls.Add(Me.cboSonst_Rechnungsdruck)
Me.tbVerrechnung.Controls.Add(Me.cbxHR_autoselect)
Me.tbVerrechnung.Controls.Add(Me.cbxPDFMerge)
Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnung_IM_EX)
@@ -1246,6 +1219,27 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbVerrechnung.Text = "Verrechnung"
Me.tbVerrechnung.UseVisualStyleBackColor = True
'
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label71.Location = New System.Drawing.Point(12, 12)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(92, 13)
Me.Label71.TabIndex = 57
Me.Label71.Text = "Rechnungsdruck:"
'
'cboSonst_Rechnungsdruck
'
Me.cboSonst_Rechnungsdruck._allowedValuesFreiText = Nothing
Me.cboSonst_Rechnungsdruck._allowFreiText = False
Me.cboSonst_Rechnungsdruck._value = ""
Me.cboSonst_Rechnungsdruck.FormattingEnabled = True
Me.cboSonst_Rechnungsdruck.Location = New System.Drawing.Point(125, 5)
Me.cboSonst_Rechnungsdruck.Name = "cboSonst_Rechnungsdruck"
Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(85, 21)
Me.cboSonst_Rechnungsdruck.TabIndex = 58
'
'cbxHR_autoselect
'
Me.cbxHR_autoselect.AutoSize = True
@@ -1399,7 +1393,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label117
'
Me.Label117.AutoSize = True
Me.Label117.Location = New System.Drawing.Point(191, 91)
Me.Label117.Location = New System.Drawing.Point(191, 111)
Me.Label117.Name = "Label117"
Me.Label117.Size = New System.Drawing.Size(30, 13)
Me.Label117.TabIndex = 52
@@ -1473,6 +1467,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.kdProvDLProzentGSAn._displayFullName = False
Me.kdProvDLProzentGSAn._displayWoelflKd = False
Me.kdProvDLProzentGSAn._hideIfListEmpty = True
Me.kdProvDLProzentGSAn._hideMDMKd = False
Me.kdProvDLProzentGSAn._loadKdData = False
Me.kdProvDLProzentGSAn._searchName1 = True
Me.kdProvDLProzentGSAn._UseFIRMA = ""
@@ -1709,7 +1704,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label101
'
Me.Label101.AutoSize = True
Me.Label101.Location = New System.Drawing.Point(191, 42)
Me.Label101.Location = New System.Drawing.Point(191, 62)
Me.Label101.Name = "Label101"
Me.Label101.Size = New System.Drawing.Size(95, 13)
Me.Label101.TabIndex = 42
@@ -1781,7 +1776,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label93
'
Me.Label93.AutoSize = True
Me.Label93.Location = New System.Drawing.Point(12, 15)
Me.Label93.Location = New System.Drawing.Point(12, 35)
Me.Label93.Name = "Label93"
Me.Label93.Size = New System.Drawing.Size(110, 13)
Me.Label93.TabIndex = 32
@@ -1819,6 +1814,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxDepot.TabIndex = 20
Me.cbxDepot.Text = "Depot-Kunde*"
Me.cbxDepot.UseVisualStyleBackColor = True
Me.cbxDepot.Visible = False
'
'Label34
'
@@ -1863,7 +1859,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label47
'
Me.Label47.AutoSize = True
Me.Label47.Location = New System.Drawing.Point(191, 69)
Me.Label47.Location = New System.Drawing.Point(191, 89)
Me.Label47.Name = "Label47"
Me.Label47.Size = New System.Drawing.Size(30, 13)
Me.Label47.TabIndex = 15
@@ -1872,7 +1868,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label46
'
Me.Label46.AutoSize = True
Me.Label46.Location = New System.Drawing.Point(12, 69)
Me.Label46.Location = New System.Drawing.Point(12, 89)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(69, 13)
Me.Label46.TabIndex = 10
@@ -1881,7 +1877,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label45
'
Me.Label45.AutoSize = True
Me.Label45.Location = New System.Drawing.Point(12, 43)
Me.Label45.Location = New System.Drawing.Point(12, 63)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(108, 13)
Me.Label45.TabIndex = 5
@@ -1910,7 +1906,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Location = New System.Drawing.Point(12, 89)
Me.Label44.Location = New System.Drawing.Point(12, 109)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(88, 13)
Me.Label44.TabIndex = 0
@@ -1929,7 +1925,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
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.Location = New System.Drawing.Point(289, 110)
Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 130)
Me.cbxAbf_SvsRvs.Name = "cbxAbf_SvsRvs"
Me.cbxAbf_SvsRvs.Size = New System.Drawing.Size(74, 17)
Me.cbxAbf_SvsRvs.TabIndex = 12
@@ -1940,7 +1936,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
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.Location = New System.Drawing.Point(289, 88)
Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 108)
Me.cbxAbf_Rabattstaffel.Name = "cbxAbf_Rabattstaffel"
Me.cbxAbf_Rabattstaffel.Size = New System.Drawing.Size(86, 17)
Me.cbxAbf_Rabattstaffel.TabIndex = 7
@@ -1951,7 +1947,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
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.Location = New System.Drawing.Point(289, 66)
Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 86)
Me.cbxAbf_Vorkasse.Name = "cbxAbf_Vorkasse"
Me.cbxAbf_Vorkasse.Size = New System.Drawing.Size(70, 17)
Me.cbxAbf_Vorkasse.TabIndex = 2
@@ -2003,7 +1999,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision_Mindestbetrag._Waehrung = True
Me.txtAbf_Vorlageprovision_Mindestbetrag._WaehrungZeichen = True
Me.txtAbf_Vorlageprovision_Mindestbetrag.ForeColor = System.Drawing.Color.Red
Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 87)
Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 107)
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLength = 50
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLineLength = -1
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning = ""
@@ -2069,7 +2065,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbwZZVL._Waehrung = False
Me.txtAbwZZVL._WaehrungZeichen = True
Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 39)
Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 59)
Me.txtAbwZZVL.MaxLength = 10
Me.txtAbwZZVL.MaxLineLength = -1
Me.txtAbwZZVL.MaxLines_Warning = ""
@@ -2110,7 +2106,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtDebKdNr._Waehrung = False
Me.txtDebKdNr._WaehrungZeichen = False
Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red
Me.txtDebKdNr.Location = New System.Drawing.Point(125, 12)
Me.txtDebKdNr.Location = New System.Drawing.Point(125, 32)
Me.txtDebKdNr.MaxLength = 10
Me.txtDebKdNr.MaxLineLength = -1
Me.txtDebKdNr.MaxLines_Warning = ""
@@ -2340,7 +2336,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 62)
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 82)
Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50
Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1
Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = ""
@@ -2365,7 +2361,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Bankspesen._Waehrung = False
Me.txtAbf_Bankspesen._WaehrungZeichen = True
Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 66)
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 86)
Me.txtAbf_Bankspesen.MaxLength = 10
Me.txtAbf_Bankspesen.MaxLineLength = -1
Me.txtAbf_Bankspesen.MaxLines_Warning = ""
@@ -2391,7 +2387,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Kreditaufwendungen._Waehrung = False
Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 40)
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 60)
Me.txtAbf_Kreditaufwendungen.MaxLength = 10
Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1
Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = ""
@@ -2417,7 +2413,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision._Waehrung = False
Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 88)
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 108)
Me.txtAbf_Vorlageprovision.MaxLength = 10
Me.txtAbf_Vorlageprovision.MaxLineLength = -1
Me.txtAbf_Vorlageprovision.MaxLines_Warning = ""
@@ -4200,14 +4196,12 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSonstiges.Controls.Add(Me.Label72)
Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrIDS)
Me.tbSonstiges.Controls.Add(Me.Label70)
Me.tbSonstiges.Controls.Add(Me.Label71)
Me.tbSonstiges.Controls.Add(Me.txtSumVerag)
Me.tbSonstiges.Controls.Add(Me.txtSumPLOSE)
Me.tbSonstiges.Controls.Add(Me.txtSumUTA)
Me.tbSonstiges.Controls.Add(Me.txtSumMSE)
Me.tbSonstiges.Controls.Add(Me.txtSumIDS)
Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern)
Me.tbSonstiges.Controls.Add(Me.cboSonst_Rechnungsdruck)
Me.tbSonstiges.Location = New System.Drawing.Point(4, 22)
Me.tbSonstiges.Name = "tbSonstiges"
Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3)
@@ -4216,6 +4210,18 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSonstiges.Text = "Sonstiges"
Me.tbSonstiges.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 150
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'cbxIDSMautberichtNachOrt
'
Me.cbxIDSMautberichtNachOrt.AutoSize = True
@@ -4225,6 +4231,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxIDSMautberichtNachOrt.TabIndex = 149
Me.cbxIDSMautberichtNachOrt.Text = "IDS-Mautbericht AT nach Ort"
Me.cbxIDSMautberichtNachOrt.UseVisualStyleBackColor = True
Me.cbxIDSMautberichtNachOrt.Visible = False
'
'txtSonst_weitereKdNrWOELFL
'
@@ -4232,6 +4239,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_weitereKdNrWOELFL.Name = "txtSonst_weitereKdNrWOELFL"
Me.txtSonst_weitereKdNrWOELFL.Size = New System.Drawing.Size(50, 20)
Me.txtSonst_weitereKdNrWOELFL.TabIndex = 148
Me.txtSonst_weitereKdNrWOELFL.Visible = False
'
'lblIDS_Rabatte
'
@@ -4255,6 +4263,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox7.TabIndex = 146
Me.PictureBox7.TabStop = False
Me.PictureBox7.Visible = False
'
'cbx_IDS_inaktiveeinblenden
'
@@ -4264,6 +4273,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14)
Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41
Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True
Me.cbx_IDS_inaktiveeinblenden.Visible = False
'
'TabControl1
'
@@ -4275,6 +4285,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(659, 190)
Me.TabControl1.TabIndex = 40
Me.TabControl1.Visible = False
'
'Standard
'
@@ -4411,7 +4422,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxCSInsolvent
'
Me.cbxCSInsolvent.AutoSize = True
Me.cbxCSInsolvent.Location = New System.Drawing.Point(406, 26)
Me.cbxCSInsolvent.Location = New System.Drawing.Point(8, 26)
Me.cbxCSInsolvent.Name = "cbxCSInsolvent"
Me.cbxCSInsolvent.Size = New System.Drawing.Size(102, 17)
Me.cbxCSInsolvent.TabIndex = 39
@@ -4421,7 +4432,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxCS_Added
'
Me.cbxCS_Added.AutoSize = True
Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
Me.cbxCS_Added.Location = New System.Drawing.Point(8, 9)
Me.cbxCS_Added.Name = "cbxCS_Added"
Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
Me.cbxCS_Added.TabIndex = 37
@@ -4448,6 +4459,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label112.Size = New System.Drawing.Size(119, 13)
Me.Label112.TabIndex = 35
Me.Label112.Text = "CSV-Daten bereitstellen"
Me.Label112.Visible = False
'
'txtSonst_KdNrVerag
'
@@ -4456,6 +4468,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrVerag.Name = "txtSonst_KdNrVerag"
Me.txtSonst_KdNrVerag.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrVerag.TabIndex = 31
Me.txtSonst_KdNrVerag.Visible = False
'
'Label110
'
@@ -4467,6 +4480,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label110.Size = New System.Drawing.Size(82, 13)
Me.Label110.TabIndex = 30
Me.Label110.Text = "KdNr bei Verag:"
Me.Label110.Visible = False
'
'Label109
'
@@ -4477,12 +4491,13 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label109.Size = New System.Drawing.Size(94, 13)
Me.Label109.TabIndex = 25
Me.Label109.Text = "Vorschausummen:"
Me.Label109.Visible = False
'
'Label99
'
Me.Label99.AutoSize = True
Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label99.Location = New System.Drawing.Point(427, 9)
Me.Label99.Location = New System.Drawing.Point(29, 9)
Me.Label99.Name = "Label99"
Me.Label99.Size = New System.Drawing.Size(71, 13)
Me.Label99.TabIndex = 24
@@ -4490,7 +4505,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
'txtCreditsafe
'
Me.txtCreditsafe.Location = New System.Drawing.Point(540, 6)
Me.txtCreditsafe.Location = New System.Drawing.Point(142, 6)
Me.txtCreditsafe.Name = "txtCreditsafe"
Me.txtCreditsafe.Size = New System.Drawing.Size(122, 20)
Me.txtCreditsafe.TabIndex = 23
@@ -4523,6 +4538,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE"
Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrPLOSE.TabIndex = 20
Me.txtSonst_KdNrPLOSE.Visible = False
'
'Label83
'
@@ -4534,6 +4550,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label83.Size = New System.Drawing.Size(89, 13)
Me.Label83.TabIndex = 19
Me.Label83.Text = "KdNr bei PLOSE:"
Me.Label83.Visible = False
'
'Label76
'
@@ -4544,6 +4561,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label76.Size = New System.Drawing.Size(65, 13)
Me.Label76.TabIndex = 17
Me.Label76.Text = "IDS-Kunden"
Me.Label76.Visible = False
'
'dgvSonst_IDSKunden
'
@@ -4575,6 +4593,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 68)
Me.dgvSonst_IDSKunden.TabIndex = 18
Me.dgvSonst_IDSKunden.Visible = False
'
'cbxSonst_CsvAsfinag
'
@@ -4585,6 +4604,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvAsfinag.TabIndex = 15
Me.cbxSonst_CsvAsfinag.Text = "AT-Abr."
Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True
Me.cbxSonst_CsvAsfinag.Visible = False
'
'cbxSonst_CsvUTA
'
@@ -4595,6 +4615,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvUTA.TabIndex = 14
Me.cbxSonst_CsvUTA.Text = "UTA-Abr. "
Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True
Me.cbxSonst_CsvUTA.Visible = False
'
'cbxSonst_CsvMSE
'
@@ -4605,6 +4626,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvMSE.TabIndex = 9
Me.cbxSonst_CsvMSE.Text = "MSE-Abr."
Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True
Me.cbxSonst_CsvMSE.Visible = False
'
'cbxSonst_CsvMautbericht
'
@@ -4615,6 +4637,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvMautbericht.TabIndex = 2
Me.cbxSonst_CsvMautbericht.Text = "CSV-Mautbericht"
Me.cbxSonst_CsvMautbericht.UseVisualStyleBackColor = True
Me.cbxSonst_CsvMautbericht.Visible = False
'
'txtSonst_KdNrUTA
'
@@ -4622,6 +4645,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA"
Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrUTA.TabIndex = 13
Me.txtSonst_KdNrUTA.Visible = False
'
'Label75
'
@@ -4632,6 +4656,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label75.Size = New System.Drawing.Size(76, 13)
Me.Label75.TabIndex = 12
Me.Label75.Text = "KdNr bei UTA:"
Me.Label75.Visible = False
'
'txtSonst_KdNrTelepass
'
@@ -4639,6 +4664,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass"
Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20)
Me.txtSonst_KdNrTelepass.TabIndex = 11
Me.txtSonst_KdNrTelepass.Visible = False
'
'Label74
'
@@ -4649,6 +4675,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label74.Size = New System.Drawing.Size(109, 13)
Me.Label74.TabIndex = 10
Me.Label74.Text = "KdNr bei TELEPASS:"
Me.Label74.Visible = False
'
'txtSonst_KdNrMSE
'
@@ -4656,6 +4683,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE"
Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrMSE.TabIndex = 8
Me.txtSonst_KdNrMSE.Visible = False
'
'Label73
'
@@ -4666,6 +4694,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label73.Size = New System.Drawing.Size(77, 13)
Me.Label73.TabIndex = 7
Me.Label73.Text = "KdNr bei MSE:"
Me.Label73.Visible = False
'
'txtSonst_KdNrWOELFL
'
@@ -4673,6 +4702,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL"
Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(50, 20)
Me.txtSonst_KdNrWOELFL.TabIndex = 6
Me.txtSonst_KdNrWOELFL.Visible = False
'
'Label72
'
@@ -4683,6 +4713,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label72.Size = New System.Drawing.Size(78, 13)
Me.Label72.TabIndex = 5
Me.Label72.Text = "KdNr bei Wölfl:"
Me.Label72.Visible = False
'
'txtSonst_KdNrIDS
'
@@ -4705,16 +4736,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label70.Text = "KdNr bei IDS:"
Me.Label70.Visible = False
'
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label71.Location = New System.Drawing.Point(6, 9)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(92, 13)
Me.Label71.TabIndex = 0
Me.Label71.Text = "Rechnungsdruck:"
'
'txtSumVerag
'
Me.txtSumVerag._DateTimeOnly = False
@@ -4737,6 +4758,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumVerag.Name = "txtSumVerag"
Me.txtSumVerag.Size = New System.Drawing.Size(100, 20)
Me.txtSumVerag.TabIndex = 32
Me.txtSumVerag.Visible = False
'
'txtSumPLOSE
'
@@ -4760,6 +4782,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumPLOSE.Name = "txtSumPLOSE"
Me.txtSumPLOSE.Size = New System.Drawing.Size(100, 20)
Me.txtSumPLOSE.TabIndex = 29
Me.txtSumPLOSE.Visible = False
'
'txtSumUTA
'
@@ -4783,6 +4806,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumUTA.Name = "txtSumUTA"
Me.txtSumUTA.Size = New System.Drawing.Size(100, 20)
Me.txtSumUTA.TabIndex = 28
Me.txtSumUTA.Visible = False
'
'txtSumMSE
'
@@ -4806,6 +4830,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumMSE.Name = "txtSumMSE"
Me.txtSumMSE.Size = New System.Drawing.Size(100, 20)
Me.txtSumMSE.TabIndex = 27
Me.txtSumMSE.Visible = False
'
'txtSumIDS
'
@@ -4829,6 +4854,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumIDS.Name = "txtSumIDS"
Me.txtSumIDS.Size = New System.Drawing.Size(100, 20)
Me.txtSumIDS.TabIndex = 26
Me.txtSumIDS.Visible = False
'
'btnSonstAendSpeichern
'
@@ -4845,17 +4871,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.btnSonstAendSpeichern.Text = "Änderungen speichern"
Me.btnSonstAendSpeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSonstAendSpeichern.UseVisualStyleBackColor = True
'
'cboSonst_Rechnungsdruck
'
Me.cboSonst_Rechnungsdruck._allowedValuesFreiText = Nothing
Me.cboSonst_Rechnungsdruck._allowFreiText = False
Me.cboSonst_Rechnungsdruck._value = ""
Me.cboSonst_Rechnungsdruck.FormattingEnabled = True
Me.cboSonst_Rechnungsdruck.Location = New System.Drawing.Point(119, 6)
Me.cboSonst_Rechnungsdruck.Name = "cboSonst_Rechnungsdruck"
Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(110, 21)
Me.cboSonst_Rechnungsdruck.TabIndex = 1
Me.btnSonstAendSpeichern.Visible = False
'
'tbSchnittstellen
'
@@ -5103,7 +5119,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(453, 207)
Me.GroupBox3.Size = New System.Drawing.Size(453, 227)
Me.GroupBox3.TabIndex = 0
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Firma"
@@ -5499,20 +5515,20 @@ Partial Class usrcntlKundeBearbeitenFull
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cbxLandKz)
Me.GroupBox1.Controls.Add(Me.Label14)
Me.GroupBox1.Controls.Add(Me.txtPostfachOrt)
Me.GroupBox1.Controls.Add(Me.txtOrt)
Me.GroupBox1.Controls.Add(Me.Label100)
Me.GroupBox1.Controls.Add(Me.Label12)
Me.GroupBox1.Controls.Add(Me.txtPostfachPlz)
Me.GroupBox1.Controls.Add(Me.txtAdresseZusatz)
Me.GroupBox1.Controls.Add(Me.txtPlz)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtStrasse)
Me.GroupBox1.Controls.Add(Me.txtPostfachOrt)
Me.GroupBox1.Controls.Add(Me.txtPostfachPlz)
Me.GroupBox1.Controls.Add(Me.Label14)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(3, 217)
Me.GroupBox1.Location = New System.Drawing.Point(3, 236)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(453, 139)
Me.GroupBox1.Size = New System.Drawing.Size(453, 120)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Adresse"
@@ -5533,25 +5549,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxLandKz.Size = New System.Drawing.Size(50, 21)
Me.cbxLandKz.TabIndex = 3
'
'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(6, 99)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(100, 13)
Me.Label14.TabIndex = 6
Me.Label14.Text = "Postfach PLZ / Ort:"
'
'txtPostfachOrt
'
Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 96)
Me.txtPostfachOrt.MaxLength = 40
Me.txtPostfachOrt.Name = "txtPostfachOrt"
Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
Me.txtPostfachOrt.TabIndex = 8
'
'txtOrt
'
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5571,15 +5568,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label12.TabIndex = 2
Me.Label12.Text = "Land / PLZ / Ort:"
'
'txtPostfachPlz
'
Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 96)
Me.txtPostfachPlz.MaxLength = 7
Me.txtPostfachPlz.Name = "txtPostfachPlz"
Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
Me.txtPostfachPlz.TabIndex = 7
'
'txtPlz
'
Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5593,7 +5581,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(6, 25)
Me.Label4.Location = New System.Drawing.Point(6, 24)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(41, 13)
Me.Label4.TabIndex = 0
@@ -5602,12 +5590,43 @@ Partial Class usrcntlKundeBearbeitenFull
'txtStrasse
'
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtStrasse.Location = New System.Drawing.Point(110, 22)
Me.txtStrasse.Location = New System.Drawing.Point(110, 21)
Me.txtStrasse.MaxLength = 40
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(334, 20)
Me.txtStrasse.TabIndex = 1
'
'txtPostfachOrt
'
Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 72)
Me.txtPostfachOrt.MaxLength = 40
Me.txtPostfachOrt.Name = "txtPostfachOrt"
Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
Me.txtPostfachOrt.TabIndex = 8
Me.txtPostfachOrt.Visible = False
'
'txtPostfachPlz
'
Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 72)
Me.txtPostfachPlz.MaxLength = 7
Me.txtPostfachPlz.Name = "txtPostfachPlz"
Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
Me.txtPostfachPlz.TabIndex = 7
Me.txtPostfachPlz.Visible = False
'
'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(6, 75)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(100, 13)
Me.Label14.TabIndex = 6
Me.Label14.Text = "Postfach PLZ / Ort:"
Me.Label14.Visible = False
'
'txtAnsprechpartnerAnrede
'
Me.txtAnsprechpartnerAnrede.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5621,7 +5640,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(3, 66)
Me.Label20.Location = New System.Drawing.Point(2, 43)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(67, 13)
Me.Label20.TabIndex = 4
@@ -5630,7 +5649,7 @@ Partial Class usrcntlKundeBearbeitenFull
'txtMobil
'
Me.txtMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMobil.Location = New System.Drawing.Point(107, 63)
Me.txtMobil.Location = New System.Drawing.Point(107, 40)
Me.txtMobil.MaxLength = 50
Me.txtMobil.Name = "txtMobil"
Me.txtMobil.Size = New System.Drawing.Size(333, 20)
@@ -5697,16 +5716,16 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(3, 40)
Me.Label7.Location = New System.Drawing.Point(3, 71)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(27, 13)
Me.Label7.Size = New System.Drawing.Size(76, 13)
Me.Label7.TabIndex = 2
Me.Label7.Text = "Fax:"
Me.Label7.Text = "Mobiltelefon 2:"
'
'txtFax
'
Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFax.Location = New System.Drawing.Point(107, 37)
Me.txtFax.Location = New System.Drawing.Point(107, 68)
Me.txtFax.MaxLength = 20
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(333, 20)
@@ -5877,14 +5896,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.Text = "Spezifisch"
Me.TabPage11.UseVisualStyleBackColor = True
'
'ucKundenKontakte
'
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
Me.ucKundenKontakte.TabIndex = 0
'
'Label50
'
Me.Label50.AutoSize = True
@@ -6165,16 +6176,49 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'PictureBox1
'ucKundenKontakte
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 150
Me.PictureBox1.TabStop = False
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
Me.ucKundenKontakte.TabIndex = 0
'
'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
'
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
'
'usrCntlAufschubkonten
'
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
Me.usrCntlAufschubkonten.TabIndex = 0
'
'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, 495)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'usrcntlKundeBearbeitenFull
'
@@ -6256,6 +6300,7 @@ Partial Class usrcntlKundeBearbeitenFull
CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).EndInit()
Me.tbSonstiges.ResumeLayout(False)
Me.tbSonstiges.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.Standard.ResumeLayout(False)
@@ -6285,7 +6330,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.pnlNeukunde.ResumeLayout(False)
Me.pnlNeukunde.PerformLayout()
Me.cnsBankverbindungen.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -6400,8 +6444,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label72 As System.Windows.Forms.Label
Friend WithEvents txtSonst_KdNrIDS As System.Windows.Forms.TextBox
Friend WithEvents Label70 As System.Windows.Forms.Label
Friend WithEvents Label71 As System.Windows.Forms.Label
Friend WithEvents cboSonst_Rechnungsdruck As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents txtUStIDGeprueftAm As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
@@ -6689,4 +6731,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents cbxHR_autoselect As CheckBox
Friend WithEvents cbxIDSMautberichtNachOrt As CheckBox
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label71 As Label
Friend WithEvents cboSonst_Rechnungsdruck As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

20
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1,7 +1,4 @@
Imports com.sun.xml.internal.rngom
Imports DAKOSY_Worker
Imports MDM_Worker
Imports Tamir.SharpSsh.jsch
Imports MDM_Worker
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlKundeBearbeitenFull
@@ -126,6 +123,7 @@ Public Class usrcntlKundeBearbeitenFull
cbxBetreuer.Visible = isVerag360
cbxVorauszahlung.Visible = isVerag360
cbxAbf_Vorkasse.Visible = Not isVerag360
Label116.Visible = isVerag360
usrCntlAufschubkonten.initMe(kdnr)
@@ -931,6 +929,10 @@ Public Class usrcntlKundeBearbeitenFull
txtERROR.Text = "Grund für Abfertigungsverbot angeben!" : Exit Sub
End If
If isVerag360 AndAlso (KUNDE_ERW.kde_BezFIBU Is Nothing OrElse KUNDE_ERW.kde_BezFIBU = "") Then
txtERROR.Text = "FIBU-Kürzel angeben!" : Exit Sub
End If
If ADRESSE.SAVE() Then
If KUNDE.SAVE() Then
@@ -1031,7 +1033,7 @@ Public Class usrcntlKundeBearbeitenFull
cboSonst_Rechnungsdruck.Items.Clear()
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Formular", "0"))
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", "1"))
'cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", "1")) 'Gibts nicht mehr!
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-Mail", "2"))
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail+Kopie", "5"))
@@ -1125,9 +1127,13 @@ Public Class usrcntlKundeBearbeitenFull
Private Sub usrcntlKundeBearbeitenFull_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.tbcntrDetails.Controls.Remove(tbUmsatz)
Me.tbcntrDetails.Controls.Remove(tbOP)
Me.tbcntrDetails.Controls.Remove(tbSchnittstellen)
Me.tbcntrDetails.Controls.Remove(tbBank)
Me.tbcntrDetails.Controls.Remove(tbZahlungsinfo)
Me.tbcntrDetails.Controls.Remove(tbUmsatzsteuer)
If isVerag360 Then
Me.tbcntrDetails.Controls.Remove(tbFiskal)
Me.tbcntrDetails.Controls.Remove(tbSchnittstellen)
Else
Me.tbcntrDetails.Controls.Remove(tbBankverbindungen)
End If
@@ -3075,4 +3081,6 @@ Public Class usrcntlKundeBearbeitenFull
End Sub
End Class

5329
SDL/kunden/usrcntlKundeBearbeitenFull_SDL.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

123
SDL/kunden/usrcntlKundeBearbeitenFull_SDL.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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="cnsBankverbindungen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

2585
SDL/kunden/usrcntlKundeBearbeitenFull_SDL.vb Normal file
View File

File diff suppressed because it is too large Load Diff

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

@@ -46,6 +46,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Button8 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.btnDatenLaden = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
@@ -86,7 +87,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Button2 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button11 = New System.Windows.Forms.Button()
Me.cbxBankspesen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl.SuspendLayout()
CType(Me.pb_importOK, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel5.SuspendLayout()
@@ -105,6 +106,7 @@ Partial Class frmMDMDatenverarbetiung
'
'pnl
'
Me.pnl.Controls.Add(Me.cbxBankspesen)
Me.pnl.Controls.Add(Me.btnImportdet)
Me.pnl.Controls.Add(Me.pb_importOK)
Me.pnl.Controls.Add(Me.cbxIDSmitVerag)
@@ -226,7 +228,7 @@ Partial Class frmMDMDatenverarbetiung
'cbxTestdaten
'
Me.cbxTestdaten.AutoSize = True
Me.cbxTestdaten.Location = New System.Drawing.Point(905, 75)
Me.cbxTestdaten.Location = New System.Drawing.Point(896, 11)
Me.cbxTestdaten.Name = "cbxTestdaten"
Me.cbxTestdaten.Size = New System.Drawing.Size(74, 17)
Me.cbxTestdaten.TabIndex = 51
@@ -242,7 +244,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Panel4.Controls.Add(Me.dat_Sum_Von)
Me.Panel4.Location = New System.Drawing.Point(0, 67)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(417, 33)
Me.Panel4.Size = New System.Drawing.Size(395, 33)
Me.Panel4.TabIndex = 28
'
'Label46
@@ -351,6 +353,17 @@ Partial Class frmMDMDatenverarbetiung
Me.Button9.Text = "MSE"
Me.Button9.UseVisualStyleBackColor = False
'
'Button11
'
Me.Button11.BackColor = System.Drawing.Color.FloralWhite
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.Location = New System.Drawing.Point(633, 3)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(120, 23)
Me.Button11.TabIndex = 5
Me.Button11.Text = "Bankspesen"
Me.Button11.UseVisualStyleBackColor = False
'
'btnDatenLaden
'
Me.btnDatenLaden.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -839,16 +852,17 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 547)
Me.MyDatagridview1.TabIndex = 0
'
'Button11
'cbxBankspesen
'
Me.Button11.BackColor = System.Drawing.Color.FloralWhite
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.Location = New System.Drawing.Point(633, 3)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(120, 23)
Me.Button11.TabIndex = 5
Me.Button11.Text = "Bankspesen"
Me.Button11.UseVisualStyleBackColor = False
Me.cbxBankspesen._allowedValuesFreiText = Nothing
Me.cbxBankspesen._allowFreiText = False
Me.cbxBankspesen._value = ""
Me.cbxBankspesen.FormattingEnabled = True
Me.cbxBankspesen.Location = New System.Drawing.Point(882, 73)
Me.cbxBankspesen.Name = "cbxBankspesen"
Me.cbxBankspesen.Size = New System.Drawing.Size(97, 21)
Me.cbxBankspesen.TabIndex = 133
Me.cbxBankspesen.Visible = False
'
'frmMDMDatenverarbetiung
'
@@ -949,4 +963,5 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents pb_importOK As PictureBox
Friend WithEvents btnImportdet As Button
Friend WithEvents Button11 As Button
Friend WithEvents cbxBankspesen As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

172
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -30,6 +30,10 @@ Public Class frmMDMDatenverarbetiung
test = cbxTestdaten.Checked
cbxBankspesen.Items.Add(New MyListItem("", ""))
cbxBankspesen.Items.Add(New MyListItem("MONAT", "M"))
cbxBankspesen.Items.Add(New MyListItem("QUARTAL", "Q"))
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -61,7 +65,13 @@ Public Class frmMDMDatenverarbetiung
Case "UTA" : pruef = pruefData_UTA()
Case "IDS" : pruef = pruefData_IDS()
Case "MSE" : pruef = pruefData_MSE()
Case "BANK" : pruef = pruefData_Bank()
Case "BANK"
If cbxBankspesen._value = "" Then
MsgBox("TYP auswählen") : Exit Sub
End If
pruef = pruefData_Bank(cbxBankspesen._value)
Case Else : MsgBox("Nicht verfügbar!") : Exit Sub
End Select
@@ -103,7 +113,7 @@ Public Class frmMDMDatenverarbetiung
Case "MSE" : checkImport(LIEFERANT) : initDgv_MSE()
btnDatenLaden.Text = "Daten laden"
Case "BANK" : checkImport(LIEFERANT) : initDgv_Bank()
Case "BANK" : checkImport(LIEFERANT) : initDgv_Bank(cbxBankspesen._value)
btnDatenLaden.Text = "Daten laden"
Button1.Enabled = False
End Select
@@ -119,11 +129,17 @@ Public Class frmMDMDatenverarbetiung
Dim sqlstr As String = ""
Select Case LIEFERANT
Case "PLOSE", "BANK"
Case "PLOSE"
sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
Case "ASFINAG"
sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and YEAR(invoicedate) = " & Today().Year
Case "BANK"
sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "_" & cbxBankspesen._value & "' and invoicedate between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
Case Else
sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate ='" & DateTimePicker2.Text & "'"
End Select
@@ -211,7 +227,7 @@ Public Class frmMDMDatenverarbetiung
Dim dTLANDEU = (New SQL).loadDgvBySql("select LandKz, MitgliedslandEU from Währungstabelle where LandKz is not null", "FMZOLL")
If genRG_Bank(dTLANDEU, cbxIDSmitVerag.Checked) Then
If genRG_Bank(dTLANDEU, cbxIDSmitVerag.Checked, cbxBankspesen._value) Then
setFakturiert(LIEFERANT)
End If
@@ -254,7 +270,7 @@ Public Class frmMDMDatenverarbetiung
sqlstr &= " order by plose_ProduktCode"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", 40000)
'DataGridView.DataSource = dt
@@ -342,7 +358,7 @@ Public Class frmMDMDatenverarbetiung
[plInv_SupplierCountry]"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", 20000)
'DataGridView.DataSource = dt
@@ -430,7 +446,7 @@ Public Class frmMDMDatenverarbetiung
order by plp_LeistungsNr"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", 20000)
'DataGridView.DataSource = dt
@@ -471,7 +487,7 @@ Public Class frmMDMDatenverarbetiung
' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_LeistungsNr").Value, "")
rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Währung").Value, "")
rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_Menge").Value, "")
' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 2, "")
rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
@@ -1055,6 +1071,8 @@ Public Class frmMDMDatenverarbetiung
txtPruefsummeBrutto.Text = CDbl(sumBto).ToString("C2")
.ClearSelection()
setLabelTTR("PLOSE")
End With
End Sub
@@ -1108,6 +1126,8 @@ Public Class frmMDMDatenverarbetiung
txtPruefsummeBrutto.Text = CDbl(sumBto).ToString("C2")
.ClearSelection()
setLabelTTR("UTA")
End With
End Sub
@@ -1151,11 +1171,7 @@ Public Class frmMDMDatenverarbetiung
txtPruefsummeBrutto.Text = CDbl(sumGes).ToString("C2")
txtTTRSum.Text = CDbl(sumFee).ToString("C2")
lblTTRSum.Visible = True
txtTTRSum.Visible = True
txtTTRSum._WaehrungZeichen = True
lblTTRSum.Text = "Tr-Kosten"
setLabelTTR("MSE")
.ClearSelection()
@@ -1164,13 +1180,13 @@ Public Class frmMDMDatenverarbetiung
End Sub
Sub initDgv_Bank()
Sub initDgv_Bank(typ As String)
With MyDatagridview1
.Columns.Clear()
.SET_SQL(" SELECT spesen.kundenNr as KdNr, Adressen.[Name 1] as Name, datum as Datum , (spesen.betrag * -1) as Betrag, spesen.gebuehr as Gebühr , spesen.buchungstext as Buchnungstext,spesen.kontoauszug as Kontoauszug, spesen.iban as IBAN, spesen.bic as BIC FROM [tblMDM_Bankspesen] as spesen
.SET_SQL(" SELECT spesen.kundenNr as KdNr, Adressen.[Name 1] as Name, datum as Datum , spesen.betrag as Betrag, spesen.gebuehr as Gebühr , spesen.buchungstext as Buchnungstext,spesen.kontoauszug as Kontoauszug, spesen.iban as IBAN, spesen.bic as BIC FROM [tblMDM_Bankspesen] as spesen
inner join adressen ON spesen.kundenNr = Adressen.AdressenNr
where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = 'Q' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null " & IIf(cbxIDSmitVerag.Checked, " ", " AND Left(spesen.KundenNr,2) <> 14 AND Left(spesen.KundenNr,2) <> 15 AND Left(spesen.KundenNr,2) <> 18 "), "FMZOLL")
where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = '" & typ & "' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null " & IIf(cbxIDSmitVerag.Checked, " ", " AND Left(spesen.KundenNr,2) <> 14 AND Left(spesen.KundenNr,2) <> 15 AND Left(spesen.KundenNr,2) <> 18 "), "FMZOLL")
.LOAD()
@@ -1193,9 +1209,7 @@ Public Class frmMDMDatenverarbetiung
txtPruefsummeNetto.Text = CDbl(sumTr).ToString("C2")
txtPruefsummeBrutto.Text = CDbl(sumGes).ToString("C2")
lblTTRSum.Visible = False
txtTTRSum.Visible = True
txtTTRSum._WaehrungZeichen = True
setLabelTTR("BANK")
.ClearSelection()
@@ -1303,12 +1317,8 @@ Public Class frmMDMDatenverarbetiung
txtPruefsummeBrutto.Text = CDbl(sumGes).ToString("C2")
txtTTRSum.Text = CDbl(sumTr).ToString("C2")
lblTTRSum.Visible = True
txtTTRSum.Visible = True
txtTTRSum._WaehrungZeichen = False
lblTTRSum.Text = "Liter"
setLabelTTR("IDS")
.ClearSelection()
@@ -1361,6 +1371,8 @@ Public Class frmMDMDatenverarbetiung
txtPruefsummeNetto.Text = CDbl(sumNto).ToString("C2")
txtPruefsummeBrutto.Text = CDbl(sumBto).ToString("C2")
setLabelTTR("ASFINAG")
.ClearSelection()
@@ -1395,6 +1407,7 @@ Public Class frmMDMDatenverarbetiung
Panel5.Visible = False
cbxKopie.Visible = False
cbxIDSmitVerag.Visible = False
cbxBankspesen.Visible = False
Select Case Me.LIEFERANT
@@ -1434,6 +1447,7 @@ Public Class frmMDMDatenverarbetiung
Panel4.Visible = True
cbxIDSmitVerag.Text = "Daten mit RMC/Durmaz"
cbxIDSmitVerag.Visible = True
cbxBankspesen.Visible = True
End Select
init()
@@ -1813,14 +1827,14 @@ Public Class frmMDMDatenverarbetiung
End Function
Function genRG_Bank(dtLand As DataTable, mitRM_CDurmaz_Daten As Boolean) As Boolean
Function genRG_Bank(dtLand As DataTable, mitRM_CDurmaz_Daten As Boolean, typ As String) As Boolean
Dim top = ""
'top = " TOP 20 "
Dim sqlWhere = ""
Dim SQLStr = "SELECT spesen.kundenNr, Adressen.[Name 1], sum(spesen.gebuehr) as gebuehr FROM [tblMDM_Bankspesen] as spesen
inner join adressen ON spesen.kundenNr = Adressen.AdressenNr
where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = 'Q' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null " & IIf(mitRM_CDurmaz_Daten, "", " AND Left(spesen.KundenNr,2) <> 14 AND Left(spesen.KundenNr,2) <> 15") & "group by spesen.kundenNr, Adressen.[Name 1]"
where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = '" & typ & "' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null " & IIf(mitRM_CDurmaz_Daten, "", " AND Left(spesen.KundenNr,2) <> 14 AND Left(spesen.KundenNr,2) <> 15") & "group by spesen.kundenNr, Adressen.[Name 1]"
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200)
@@ -1852,11 +1866,12 @@ Public Class frmMDMDatenverarbetiung
End If
End If
Dim LeistungsNrBank As Integer = IIf(cbxBankspesen._value = "Q", 424, 425)
Dim sqlStringFehlendeOffertenNr = "select KundenNr from Offertenpositionen where KundenNr in (" & kundenNr & ")
GROUP by KundenNr
EXCEPT
select KundenNr from Offertenpositionen where LeistungsNr = 424 and KundenNr in (" & kundenNr & ")
select KundenNr from Offertenpositionen where LeistungsNr = " & LeistungsNrBank & " and KundenNr in (" & kundenNr & ")
GROUP by KundenNr"
Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
@@ -1864,7 +1879,7 @@ Public Class frmMDMDatenverarbetiung
If dtfehlendeOfferten.Rows.Count > 0 Then
Dim result As MsgBoxResult = MsgBox("Bei " & dt_Main.Rows.Count & " Kunden fehlt das Offert im Kundenstamm " & vbNewLine & "Möchten Sie das Offert automatisch anlegen, andernfalls werden die Bankspesen bei diesen Kunden nicht verrechnet?", vbYesNoCancel)
Dim result As MsgBoxResult = MsgBox("Bei " & dt_Main.Rows.Count & " Kunden fehlt das Offert mit der LeistungsNr " & LeistungsNrBank & " im Kundenstamm " & vbNewLine & "Möchten Sie das Offert automatisch anlegen, andernfalls werden die Bankspesen bei diesen Kunden nicht verrechnet?", vbYesNoCancel)
Select Case result
Case MsgBoxResult.Cancel : Return False
@@ -1934,9 +1949,9 @@ Public Class frmMDMDatenverarbetiung
If verarbOK Then
'Update Fakturiert
SQL.doSQL("UPDATE tblMDM_Bankspesen set RK_ID = " & RECHNUNG.RK_ID & ", SR_datum = '" & datPloseAnhang.Value.ToShortDateString & "' where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and typ = 'Q' and isnull(RK_ID,0) = 0 and SR_datum is null and kundenNr = " & BANK("kundenNr"), "FMZOLL")
SQL.doSQL("UPDATE tblMDM_Bankspesen set RK_ID = " & RECHNUNG.RK_ID & ", SR_datum = '" & datPloseAnhang.Value.ToShortDateString & "' where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and typ = '" & typ & "' and isnull(RK_ID,0) = 0 and SR_datum is null and kundenNr = " & BANK("kundenNr"), "FMZOLL")
End If
End If
If True Then 'cnt Mod 10 = 0 Then
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
@@ -4161,8 +4176,10 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
Case "BANK"
sqlstr = "SELECT spesen.kundenNr, sum(spesen.gebuehr) as gebuehr, 424 as LeistungsNr, min(cast(datum as Date)) as MinDatum, max(cast(datum as Date)) as MaxDatum FROM [tblMDM_Bankspesen] as spesen
where spesen.datum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and spesen.typ = 'Q' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null and spesen.KundenNr = " & KdNr & "
Dim LeistungsNrBank As Integer = IIf(cbxBankspesen._value = "Q", 424, 425)
sqlstr = "SELECT spesen.kundenNr, sum(spesen.gebuehr) as gebuehr, " & LeistungsNrBank & " as LeistungsNr, min(cast(datum as Date)) as MinDatum, max(cast(datum as Date)) as MaxDatum FROM [tblMDM_Bankspesen] as spesen
where spesen.datum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and spesen.typ = '" & cbxBankspesen._value & "' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null and spesen.KundenNr = " & KdNr & "
group by spesen.kundenNr"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
@@ -4179,23 +4196,32 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
Dim minQuartal As Integer = -1
Dim maxQuartal As Integer = -1
If DateTime.TryParse(Convert.ToString(r("MinDatum")), minDatum) Then
minQuartal = ((minDatum.Month - 1) \ 3) + 1
End If
minQuartal = ((minDatum.Month - 1) \ 3) + 1
End If
If DateTime.TryParse(Convert.ToString(r("MaxDatum")), maxDatum) Then
maxQuartal = ((maxDatum.Month - 1) \ 3) + 1
End If
If minQuartal > 0 AndAlso maxQuartal > 0 Then
If minDatum.Year = maxDatum.Year AndAlso minQuartal = maxQuartal Then
LeistungsBezAdd = " Q " & minQuartal & "/" & minDatum.Year
Else
LeistungsBezAdd = " Q " & minQuartal & "-" & maxQuartal & "/" & minDatum.Year
If cbxBankspesen._value = "Q" Then
If minQuartal > 0 AndAlso maxQuartal > 0 Then
If minDatum.Year = maxDatum.Year AndAlso minQuartal = maxQuartal Then
LeistungsBezAdd = " Q " & minQuartal & "/" & minDatum.Year
Else
LeistungsBezAdd = " Q " & minQuartal & "-" & maxQuartal & "/" & minDatum.Year
End If
End If
Else
LeistungsBezAdd = " M " & minQuartal & "/" & minDatum.Year
End If
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag,,, LeistungsBezAdd)
Next
@@ -5025,12 +5051,12 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
End Try
End Function
Function pruefData_Bank() As Boolean
Function pruefData_Bank(typ As String) As Boolean
pruefData_Bank = True
Try
Dim fehlendeKundenr As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from tblMDM_Bankspesen as spesen
WHERE datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = 'Q' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null and spesen.kundenNr <= 0 ", "FMZOLL"))
WHERE datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and spesen.typ = '" & typ & "' and isnull(spesen.RK_ID,0) = 0 and spesen.SR_datum is null and spesen.kundenNr <= 0 ", "FMZOLL"))
If fehlendeKundenr > 0 Then
pruefData_Bank = False
@@ -5331,7 +5357,7 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
Case "BANK"
If SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Bankspesen] Set verrechnet = getDate()
where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and typ = 'Q' and isnull(RK_ID,0) <> 0 and SR_datum is not null ", "FMZOLL") Then
where datum between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' and typ = '" & cbxBankspesen._value & "' and isnull(RK_ID,0) <> 0 and SR_datum is not null ", "FMZOLL") Then
setBillingDateCompleted(Lieferant, datPloseAnhang.Value)
@@ -5487,11 +5513,6 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
Dim pruefSumTTR = SQL.getValueTxtBySql("select sum(checksumAmounntInclVAT) from [ASFINAG].[dbo].[TTRTrailer] where PKHistory = 0 and [TTRTrailer].PKFileName in (select distinct([TTRBody].PKFileName) as Test from [ASFINAG].[dbo].[TTRBody] where (TTRBody.PKHistory = 0) And (TTRBody.PKFileName Like N'" & checkifTestfiles() & ".%') AND TTRBody.abrechnungsdatum = '" & f.Datum.ToShortDateString & "')", "ASFINAG")
If pruefSumTTR IsNot Nothing AndAlso IsNumeric(pruefSumTTR) Then
txtTTRSum.Text = CDbl(pruefSumTTR).ToString("C2")
lblTTRSum.Visible = True
lblTTRSum.Text = "Prüfsumme TTR:"
txtTTRSum._WaehrungZeichen = True
Else
lblTTRSum.Visible = False
End If
@@ -5897,6 +5918,53 @@ RabattBerechnen:
End If
Return checkDate
End Function
Private Function setLabelTTR(Lieferant As String)
txtTTRSum.Visible = False
lblTTRSum.Visible = False
txtTTRSum._WaehrungZeichen = False
Label3.Text = "Prüfsumme netto:"
Label4.Text = "Prüfsumme brutto:"
Select Case Lieferant
Case "IDS"
lblTTRSum.Visible = True
txtTTRSum.Visible = True
lblTTRSum.Text = "Liter"
Case "ASFINAG"
txtTTRSum.Visible = True
txtTTRSum._WaehrungZeichen = True
lblTTRSum.Text = "Prüfsumme TTR:"
lblTTRSum.Visible = True
Case "MSE"
lblTTRSum.Visible = True
txtTTRSum.Visible = True
txtTTRSum._WaehrungZeichen = True
lblTTRSum.Text = "Tr-Kosten"
Case "BANK"
Label3.Text = "Prüfsumme Gebühr:"
Label4.Text = "Prüfsumme Betrag:"
End Select
End Function
Private Function checkFixeTaxeImOffert(Lieferant As String, dt As DataTable) As Boolean
@@ -5971,7 +6039,7 @@ RabattBerechnen:
Select Case LIEFERANT
Case "IDS" : initDgv_IDS()
Case "BANK" : initDgv_Bank()
Case "BANK" : initDgv_Bank(cbxBankspesen._value)
End Select
@@ -6028,4 +6096,12 @@ RabattBerechnen:
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
initLieferant("BANK", sender)
End Sub
Private Sub cbxBankspesen_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxBankspesen.SelectedValueChanged
If LIEFERANT = "BANK" Then
initDgv_Bank(cbxBankspesen._value)
End If
End Sub
End Class

60
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,7 +1,6 @@
Imports System.Globalization
Imports System.IO
Imports System.Web.UI.WebControls.Expressions
Imports java.util
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung
@@ -623,38 +622,59 @@ Public Class usrcntlFakturierung
Dim intZlr As Integer = 0
Dim betrag As Decimal = 0
If Not IsDBNull(r("BetragExclusivFT")) Then
betrag = Math.Abs(CDec(r("BetragExclusivFT")))
End If
Dim anzahlFT As Integer = CInt(r("AnzahlFT"))
If cbxFixeTaxe.Checked AndAlso betrag < 500 Then
' Eine fixe Taxe soll verbleiben
intZlr = Math.Max(0, anzahlFT - 1)
Else
' Alle fixen Taxen löschen
intZlr = anzahlFT
End If
'-----------------------------------------OLD!
'-----------------------------------------OLD!
'-----------------------------------------OLD!
' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ oder cbxFixeTaxe nicht gesetzt wird kein fixe Taxe verrechnet.
' Zähler auf die Anzahl der fixe Taxe Löschungen einstellen.
If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
'If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
If r("BetragExclusivFT") < 500 AndAlso cbxFixeTaxe.Checked Then
intZlr = r("AnzahlFT") - 1
Else
intZlr = r("AnzahlFT")
End If
' If r("BetragExclusivFT") < 500 AndAlso cbxFixeTaxe.Checked Then
' intZlr = r("AnzahlFT") - 1
' Else
' intZlr = r("AnzahlFT")
' End If
Else
'Else
If cbxFixeTaxe.Checked Then
' If cbxFixeTaxe.Checked Then
If (0 - r("BetragExclusivFT")) < 500 Then
intZlr = r("AnzahlFT") - 1
Else
intZlr = r("AnzahlFT") - 1
End If
' If (0 - r("BetragExclusivFT")) < 500 Then
' intZlr = r("AnzahlFT") - 1
' Else
' intZlr = r("AnzahlFT") - 1
' End If
Else
' Else
intZlr = r("AnzahlFT")
' intZlr = r("AnzahlFT")
End If
' End If
End If
'End If
If intZlr > 0 Then
If intZlr > 0 Then
Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
@@ -693,8 +713,6 @@ Public Class usrcntlFakturierung
For Each re In dtRechnungen.Rows
Dim dtREPOSANZ As DataTable = (New SQL).loadDgvBySql("Select [RK_ID], [LeistungsNr], cast([Steuerpflichtig] as bit) as Steuerpflichtig, [LeistungsBez],[IndexZkteing], Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag,upsize_ts From RechnungsausgangPositionen Where RechnungsausgangPositionen.RK_ID = " & re("RK_ID") & " And RechnungsausgangPositionen.LeistungsNr = 441", "FMZOLL")
If dtREPOSANZ.Rows.Count > 0 Then

61
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -238,6 +238,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.TabPage5 = New System.Windows.Forms.TabPage()
@@ -287,7 +288,8 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label104 = New System.Windows.Forms.Label()
Me.Label97 = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel()
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.cbxAndereTarifnummern = New System.Windows.Forms.CheckBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout()
Me.grpDurmaz.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -327,6 +329,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage5.SuspendLayout()
Me.GroupBox9.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -334,7 +337,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox6.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label3
@@ -1334,7 +1336,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(1007, 1829)
Me.tbcntr.Size = New System.Drawing.Size(990, 1829)
Me.tbcntr.TabIndex = 22
'
'TabPage1
@@ -1377,7 +1379,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(999, 1803)
Me.TabPage1.Size = New System.Drawing.Size(982, 1803)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -2574,7 +2576,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1016, 1803)
Me.TabPage2.Size = New System.Drawing.Size(999, 1803)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -2604,7 +2606,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(1016, 1803)
Me.TabPage3.Size = New System.Drawing.Size(999, 1803)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -2645,6 +2647,16 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
'
'PictureBox14
'
Me.PictureBox14.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox14.Location = New System.Drawing.Point(693, 3)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(18, 19)
Me.PictureBox14.TabIndex = 131
Me.PictureBox14.TabStop = False
'
'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
'
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
@@ -2669,7 +2681,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(1016, 1803)
Me.TabPage5.Size = New System.Drawing.Size(999, 1803)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -2879,13 +2891,15 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage6.Controls.Add(Me.Label97)
Me.TabPage6.Location = New System.Drawing.Point(4, 22)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Size = New System.Drawing.Size(999, 1803)
Me.TabPage6.Size = New System.Drawing.Size(982, 1803)
Me.TabPage6.TabIndex = 5
Me.TabPage6.Text = "CBAM/Stahlverordnung"
Me.TabPage6.UseVisualStyleBackColor = True
'
'GroupBox6
'
Me.GroupBox6.Controls.Add(Me.TextBox1)
Me.GroupBox6.Controls.Add(Me.cbxAndereTarifnummern)
Me.GroupBox6.Controls.Add(Me.cbxStahlverordnung_SNDdet)
Me.GroupBox6.Controls.Add(Me.Label105)
Me.GroupBox6.Controls.Add(Me.Button26)
@@ -3168,18 +3182,25 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1007, 57)
Me.pnl.Size = New System.Drawing.Size(990, 57)
Me.pnl.TabIndex = 23
'
'PictureBox14
'cbxAndereTarifnummern
'
Me.PictureBox14.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox14.Location = New System.Drawing.Point(693, 3)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(18, 19)
Me.PictureBox14.TabIndex = 131
Me.PictureBox14.TabStop = False
Me.cbxAndereTarifnummern.AutoSize = True
Me.cbxAndereTarifnummern.Location = New System.Drawing.Point(165, 81)
Me.cbxAndereTarifnummern.Name = "cbxAndereTarifnummern"
Me.cbxAndereTarifnummern.Size = New System.Drawing.Size(209, 17)
Me.cbxAndereTarifnummern.TabIndex = 43
Me.cbxAndereTarifnummern.Text = "andere Tarifnummern* komma-getrennt"
Me.cbxAndereTarifnummern.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(165, 103)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(431, 20)
Me.TextBox1.TabIndex = 44
'
'usrCntlZOLLAuswertungen
'
@@ -3190,7 +3211,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(1007, 1174)
Me.Size = New System.Drawing.Size(990, 1174)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.grpDurmaz.ResumeLayout(False)
@@ -3244,6 +3265,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.TabPage4.ResumeLayout(False)
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
Me.GroupBox9.ResumeLayout(False)
@@ -3257,7 +3279,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox2.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -3527,4 +3548,6 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents cbxStahlverordnung_SNDdet As CheckBox
Friend WithEvents PictureBox14 As PictureBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents cbxAndereTarifnummern As CheckBox
End Class

84
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -1067,10 +1067,11 @@ Public Class usrCntlZOLLAuswertungen
End Sub
Private Function getDAkosySQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String)
Private Function getDAkosySQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String, Optional andereTarifnummernList As List(Of String) = Nothing)
Dim sqlWhere = ""
Select Case type
Case "CBAM"
sqlWhere = " /* Eisen & Stahl */
@@ -1101,7 +1102,21 @@ Public Class usrCntlZOLLAuswertungen
Or ezaWP_WarennummerEZT Like '280410%'"
Case Else
sqlWhere = "ezaWP_WarennummerEZT LIKE '72081000%' OR ezaWP_WarennummerEZT LIKE '72082500%' OR
If andereTarifnummernList IsNot Nothing AndAlso andereTarifnummernList.Count > 0 Then
For Each row In andereTarifnummernList
sqlWhere &= "ezaWP_WarennummerEZT LIKE '" & row & "%' OR "
Next
sqlWhere = sqlWhere.ToString.Substring(0, sqlWhere.Length - 3)
Else
sqlWhere = "ezaWP_WarennummerEZT LIKE '72081000%' OR ezaWP_WarennummerEZT LIKE '72082500%' OR
ezaWP_WarennummerEZT LIKE '72082600%' OR ezaWP_WarennummerEZT LIKE '72082700%' OR
ezaWP_WarennummerEZT LIKE '72083600%' OR ezaWP_WarennummerEZT LIKE '72083700%' OR
ezaWP_WarennummerEZT LIKE '72083800%' OR ezaWP_WarennummerEZT LIKE '72083900%' OR
@@ -1141,6 +1156,8 @@ Public Class usrCntlZOLLAuswertungen
OR ezaWP_WarennummerEZT LIKE '73042400%' OR ezaWP_WarennummerEZT LIKE '73042910%' OR ezaWP_WarennummerEZT LIKE '73042930%' OR ezaWP_WarennummerEZT LIKE '73042990%' OR ezaWP_WarennummerEZT LIKE '73043120%' OR ezaWP_WarennummerEZT LIKE '73043180%' OR ezaWP_WarennummerEZT LIKE '73043950%' OR ezaWP_WarennummerEZT LIKE '73043982%' OR ezaWP_WarennummerEZT LIKE '73043983%' OR ezaWP_WarennummerEZT LIKE '73043988%' OR ezaWP_WarennummerEZT LIKE '73044100%' OR ezaWP_WarennummerEZT LIKE '73044983%' OR ezaWP_WarennummerEZT LIKE '73044985%' OR ezaWP_WarennummerEZT LIKE '73045181%' OR ezaWP_WarennummerEZT LIKE '73045189%' OR ezaWP_WarennummerEZT LIKE '73045930%' OR ezaWP_WarennummerEZT LIKE '73045982%' OR ezaWP_WarennummerEZT LIKE '73045983%' OR ezaWP_WarennummerEZT LIKE '73045989%' OR ezaWP_WarennummerEZT LIKE '73049000%' OR ezaWP_WarennummerEZT LIKE '73051100%' OR ezaWP_WarennummerEZT LIKE '73051200%' OR ezaWP_WarennummerEZT LIKE '73051900%' OR ezaWP_WarennummerEZT LIKE '73052000%' OR ezaWP_WarennummerEZT LIKE '73053100%' OR ezaWP_WarennummerEZT LIKE '73053900%' OR ezaWP_WarennummerEZT LIKE '73059000%'
OR ezaWP_WarennummerEZT LIKE '73061100%' OR ezaWP_WarennummerEZT LIKE '73061900%' OR ezaWP_WarennummerEZT LIKE '73062100%' OR ezaWP_WarennummerEZT LIKE '73062900%' OR ezaWP_WarennummerEZT LIKE '73063012%' OR ezaWP_WarennummerEZT LIKE '73063018%' OR ezaWP_WarennummerEZT LIKE '73063041%' OR ezaWP_WarennummerEZT LIKE '73063049%' OR ezaWP_WarennummerEZT LIKE '73063072%' OR ezaWP_WarennummerEZT LIKE '73063077%' OR ezaWP_WarennummerEZT LIKE '73063080%' OR ezaWP_WarennummerEZT LIKE '73064020%' OR ezaWP_WarennummerEZT LIKE '73064080%' OR ezaWP_WarennummerEZT LIKE '73065021%' OR ezaWP_WarennummerEZT LIKE '73065029%' OR ezaWP_WarennummerEZT LIKE '73065080%' OR ezaWP_WarennummerEZT LIKE '73066110%' OR ezaWP_WarennummerEZT LIKE '73066192%' OR ezaWP_WarennummerEZT LIKE '73066199%' OR ezaWP_WarennummerEZT LIKE '73066910%' OR ezaWP_WarennummerEZT LIKE '73066990%' OR ezaWP_WarennummerEZT LIKE '73069000%' "
End If
End Select
@@ -1177,7 +1194,7 @@ Public Class usrCntlZOLLAuswertungen
End Function
Private Function getDHFSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String)
Private Function getDHFSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String, Optional andereTarifnummernList As List(Of String) = Nothing)
@@ -1200,7 +1217,18 @@ Public Class usrCntlZOLLAuswertungen
OR ComCd like '280410%'"
Case Else
sqlWhere = "ComCd LIKE '72081000%' OR ComCd LIKE '72082500%' OR
If andereTarifnummernList IsNot Nothing AndAlso andereTarifnummernList.Count > 0 Then
For Each row In andereTarifnummernList
sqlWhere &= "ComCd LIKE '" & row & "%' OR "
Next
sqlWhere = sqlWhere.ToString.Substring(0, sqlWhere.Length - 3)
Else
sqlWhere = "ComCd LIKE '72081000%' OR ComCd LIKE '72082500%' OR
ComCd LIKE '72082600%' OR ComCd LIKE '72082700%' OR
ComCd LIKE '72083600%' OR ComCd LIKE '72083700%' OR
ComCd LIKE '72083800%' OR ComCd LIKE '72083900%' OR
@@ -1234,6 +1262,8 @@ Public Class usrCntlZOLLAuswertungen
OR ComCd LIKE '72209080%' OR ComCd LIKE '72210010%' OR ComCd LIKE '72210090%' OR ComCd LIKE '72221111%' OR ComCd LIKE '72221119%' OR ComCd LIKE '72221181%' OR ComCd LIKE '72221189%' OR ComCd LIKE '72221910%' OR ComCd LIKE '72221990%' OR ComCd LIKE '72222011%' OR ComCd LIKE '72222019%' OR ComCd LIKE '72222021%' OR ComCd LIKE '72222029%' OR ComCd LIKE '72222031%' OR ComCd LIKE '72222039%' OR ComCd LIKE '72222081%' OR ComCd LIKE '72222089%' OR ComCd LIKE '72223051%' OR ComCd LIKE '72223091%' OR ComCd LIKE '72223097%' OR ComCd LIKE '72224010%' OR ComCd LIKE '72224050%' OR ComCd LIKE '72224090%' OR ComCd LIKE '72251910%' OR ComCd LIKE '72251990%' OR ComCd LIKE '72253010%' OR ComCd LIKE '72253030%' OR ComCd LIKE '72253090%' OR ComCd LIKE '72254012%' OR ComCd LIKE '72254015%' OR ComCd LIKE '72254040%' OR ComCd LIKE '72254060%' OR ComCd LIKE '72254090%' OR ComCd LIKE '72255020%' OR ComCd LIKE '72255080%' OR ComCd LIKE '72259100%' OR ComCd LIKE '72261910%' OR ComCd LIKE '72261980%' OR ComCd LIKE '72262000%' OR ComCd LIKE '72269120%' OR ComCd LIKE '72269191%' OR ComCd LIKE '72269199%' OR ComCd LIKE '72269200%' OR ComCd LIKE '72269910%' OR ComCd LIKE '72271000%' OR ComCd LIKE '72272000%' OR ComCd LIKE '72279010%' OR ComCd LIKE '72279050%' OR ComCd LIKE '72279095%'
OR ComCd LIKE '72281020%' OR ComCd LIKE '72281090%' OR ComCd LIKE '72282010%' OR ComCd LIKE '72282091%' OR ComCd LIKE '72282099%' OR ComCd LIKE '72283020%' OR ComCd LIKE '72283041%' OR ComCd LIKE '72283049%' OR ComCd LIKE '72283061%' OR ComCd LIKE '72283070%' OR ComCd LIKE '72283089%' OR ComCd LIKE '72285020%' OR ComCd LIKE '72285040%' OR ComCd LIKE '72285061%' OR ComCd LIKE '72285069%' OR ComCd LIKE '72285080%' OR ComCd LIKE '72286020%' OR ComCd LIKE '72286080%' OR ComCd LIKE '72287010%' OR ComCd LIKE '72287090%' OR ComCd LIKE '72288000%' OR ComCd LIKE '73011000%' OR ComCd LIKE '73021022%' OR ComCd LIKE '73021028%' OR ComCd LIKE '73021040%' OR ComCd LIKE '73021050%' OR ComCd LIKE '73024000%' OR ComCd LIKE '73041100%' OR ComCd LIKE '73041910%' OR ComCd LIKE '73041930%' OR ComCd LIKE '73041990%' OR ComCd LIKE '73042200%' OR ComCd LIKE '73042300%' OR ComCd LIKE '73042400%' OR ComCd LIKE '73042910%' OR ComCd LIKE '73042930%' OR ComCd LIKE '73042990%' OR ComCd LIKE '73043120%' OR ComCd LIKE '73043180%' OR ComCd LIKE '73043950%' OR ComCd LIKE '73043982%' OR ComCd LIKE '73043983%' OR ComCd LIKE '73043988%' OR ComCd LIKE '73044100%' OR ComCd LIKE '73044983%' OR ComCd LIKE '73044985%' OR ComCd LIKE '73045181%' OR ComCd LIKE '73045189%' OR ComCd LIKE '73045930%' OR ComCd LIKE '73045982%' OR ComCd LIKE '73045983%' OR ComCd LIKE '73045989%' OR ComCd LIKE '73049000%' OR ComCd LIKE '73051100%' OR ComCd LIKE '73051200%' OR ComCd LIKE '73051900%' OR ComCd LIKE '73052000%' OR ComCd LIKE '73053100%' OR ComCd LIKE '73053900%' OR ComCd LIKE '73059000%' OR ComCd LIKE '73061100%' OR ComCd LIKE '73061900%' OR ComCd LIKE '73062100%' OR ComCd LIKE '73062900%' OR ComCd LIKE '73063012%' OR ComCd LIKE '73063018%' OR ComCd LIKE '73063041%' OR ComCd LIKE '73063049%' OR ComCd LIKE '73063072%' OR ComCd LIKE '73063077%' OR ComCd LIKE '73063080%' OR ComCd LIKE '73064020%' OR ComCd LIKE '73064080%' OR ComCd LIKE '73065021%' OR ComCd LIKE '73065029%' OR ComCd LIKE '73065080%' OR ComCd LIKE '73066110%' OR ComCd LIKE '73066192%' OR ComCd LIKE '73066199%' OR ComCd LIKE '73066910%' OR ComCd LIKE '73066990%' OR ComCd LIKE '73069000%' "
End If
End Select
@@ -1266,7 +1296,7 @@ Public Class usrCntlZOLLAuswertungen
End Function
Private Function getTELOTECSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String)
Private Function getTELOTECSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String, Optional andereTarifnummernList As List(Of String) = Nothing)
Dim sqlWhere = ""
@@ -1288,7 +1318,18 @@ Public Class usrCntlZOLLAuswertungen
OR Item_ComCd like '280410%' "
Case Else
sqlWhere = "Item_ComCd LIKE '72081000%' OR Item_ComCd LIKE '72082500%' OR
If andereTarifnummernList IsNot Nothing AndAlso andereTarifnummernList.Count > 0 Then
For Each row In andereTarifnummernList
sqlWhere &= "Item_ComCd LIKE '" & row & "%' OR "
Next
sqlWhere = sqlWhere.ToString.Substring(0, sqlWhere.Length - 3)
Else
sqlWhere = "Item_ComCd LIKE '72081000%' OR Item_ComCd LIKE '72082500%' OR
Item_ComCd LIKE '72082600%' OR Item_ComCd LIKE '72082700%' OR
Item_ComCd LIKE '72083600%' OR Item_ComCd LIKE '72083700%' OR
Item_ComCd LIKE '72083800%' OR Item_ComCd LIKE '72083900%' OR
@@ -1321,6 +1362,7 @@ Public Class usrCntlZOLLAuswertungen
Item_ComCd LIKE '72191100%' OR Item_ComCd LIKE '72191210%' OR Item_ComCd LIKE '72191290%' OR Item_ComCd LIKE '72191310%' OR Item_ComCd LIKE '72191390%' OR Item_ComCd LIKE '72191410%' OR Item_ComCd LIKE '72191490%' OR Item_ComCd LIKE '72192110%' OR Item_ComCd LIKE '72192190%' OR Item_ComCd LIKE '72192210%' OR Item_ComCd LIKE '72192290%' OR Item_ComCd LIKE '72192300%' OR Item_ComCd LIKE '72192400%' OR Item_ComCd LIKE '72193100%' OR Item_ComCd LIKE '72193210%' OR Item_ComCd LIKE '72193290%' OR Item_ComCd LIKE '72193310%' OR Item_ComCd LIKE '72193390%' OR Item_ComCd LIKE '72193410%' OR Item_ComCd LIKE '72193490%' OR Item_ComCd LIKE '72193510%' OR Item_ComCd LIKE '72193590%' OR Item_ComCd LIKE '72199020%' OR Item_ComCd LIKE '72199080%' OR Item_ComCd LIKE '72201100%' OR Item_ComCd LIKE '72201200%' OR Item_ComCd LIKE '72202021%' OR Item_ComCd LIKE '72202029%' OR Item_ComCd LIKE '72202041%' OR Item_ComCd LIKE '72202049%' OR Item_ComCd LIKE '72202081%' OR Item_ComCd LIKE '72202089%' OR Item_ComCd LIKE '72209020%'
OR Item_ComCd LIKE '72209080%' OR Item_ComCd LIKE '72210010%' OR Item_ComCd LIKE '72210090%' OR Item_ComCd LIKE '72221111%' OR Item_ComCd LIKE '72221119%' OR Item_ComCd LIKE '72221181%' OR Item_ComCd LIKE '72221189%' OR Item_ComCd LIKE '72221910%' OR Item_ComCd LIKE '72221990%' OR Item_ComCd LIKE '72222011%' OR Item_ComCd LIKE '72222019%' OR Item_ComCd LIKE '72222021%' OR Item_ComCd LIKE '72222029%' OR Item_ComCd LIKE '72222031%' OR Item_ComCd LIKE '72222039%' OR Item_ComCd LIKE '72222081%' OR Item_ComCd LIKE '72222089%' OR Item_ComCd LIKE '72223051%' OR Item_ComCd LIKE '72223091%' OR Item_ComCd LIKE '72223097%' OR Item_ComCd LIKE '72224010%' OR Item_ComCd LIKE '72224050%' OR Item_ComCd LIKE '72224090%' OR Item_ComCd LIKE '72251910%' OR Item_ComCd LIKE '72251990%' OR Item_ComCd LIKE '72253010%' OR Item_ComCd LIKE '72253030%' OR Item_ComCd LIKE '72253090%' OR Item_ComCd LIKE '72254012%' OR Item_ComCd LIKE '72254015%' OR Item_ComCd LIKE '72254040%' OR Item_ComCd LIKE '72254060%' OR Item_ComCd LIKE '72254090%' OR Item_ComCd LIKE '72255020%' OR Item_ComCd LIKE '72255080%' OR Item_ComCd LIKE '72259100%' OR Item_ComCd LIKE '72261910%' OR Item_ComCd LIKE '72261980%' OR Item_ComCd LIKE '72262000%' OR Item_ComCd LIKE '72269120%' OR Item_ComCd LIKE '72269191%' OR Item_ComCd LIKE '72269199%' OR Item_ComCd LIKE '72269200%' OR Item_ComCd LIKE '72269910%' OR Item_ComCd LIKE '72271000%' OR Item_ComCd LIKE '72272000%' OR Item_ComCd LIKE '72279010%' OR Item_ComCd LIKE '72279050%' OR Item_ComCd LIKE '72279095%'
OR Item_ComCd LIKE '72281020%' OR Item_ComCd LIKE '72281090%' OR Item_ComCd LIKE '72282010%' OR Item_ComCd LIKE '72282091%' OR Item_ComCd LIKE '72282099%' OR Item_ComCd LIKE '72283020%' OR Item_ComCd LIKE '72283041%' OR Item_ComCd LIKE '72283049%' OR Item_ComCd LIKE '72283061%' OR Item_ComCd LIKE '72283070%' OR Item_ComCd LIKE '72283089%' OR Item_ComCd LIKE '72285020%' OR Item_ComCd LIKE '72285040%' OR Item_ComCd LIKE '72285061%' OR Item_ComCd LIKE '72285069%' OR Item_ComCd LIKE '72285080%' OR Item_ComCd LIKE '72286020%' OR Item_ComCd LIKE '72286080%' OR Item_ComCd LIKE '72287010%' OR Item_ComCd LIKE '72287090%' OR Item_ComCd LIKE '72288000%' OR Item_ComCd LIKE '73011000%' OR Item_ComCd LIKE '73021022%' OR Item_ComCd LIKE '73021028%' OR Item_ComCd LIKE '73021040%' OR Item_ComCd LIKE '73021050%' OR Item_ComCd LIKE '73024000%' OR Item_ComCd LIKE '73041100%' OR Item_ComCd LIKE '73041910%' OR Item_ComCd LIKE '73041930%' OR Item_ComCd LIKE '73041990%' OR Item_ComCd LIKE '73042200%' OR Item_ComCd LIKE '73042300%' OR Item_ComCd LIKE '73042400%' OR Item_ComCd LIKE '73042910%' OR Item_ComCd LIKE '73042930%' OR Item_ComCd LIKE '73042990%' OR Item_ComCd LIKE '73043120%' OR Item_ComCd LIKE '73043180%' OR Item_ComCd LIKE '73043950%' OR Item_ComCd LIKE '73043982%' OR Item_ComCd LIKE '73043983%' OR Item_ComCd LIKE '73043988%' OR Item_ComCd LIKE '73044100%' OR Item_ComCd LIKE '73044983%' OR Item_ComCd LIKE '73044985%' OR Item_ComCd LIKE '73045181%' OR Item_ComCd LIKE '73045189%' OR Item_ComCd LIKE '73045930%' OR Item_ComCd LIKE '73045982%' OR Item_ComCd LIKE '73045983%' OR Item_ComCd LIKE '73045989%' OR Item_ComCd LIKE '73049000%' OR Item_ComCd LIKE '73051100%' OR Item_ComCd LIKE '73051200%' OR Item_ComCd LIKE '73051900%' OR Item_ComCd LIKE '73052000%' OR Item_ComCd LIKE '73053100%' OR Item_ComCd LIKE '73053900%' OR Item_ComCd LIKE '73059000%' OR Item_ComCd LIKE '73061100%' OR Item_ComCd LIKE '73061900%' OR Item_ComCd LIKE '73062100%' OR Item_ComCd LIKE '73062900%' OR Item_ComCd LIKE '73063012%' OR Item_ComCd LIKE '73063018%' OR Item_ComCd LIKE '73063041%' OR Item_ComCd LIKE '73063049%' OR Item_ComCd LIKE '73063072%' OR Item_ComCd LIKE '73063077%' OR Item_ComCd LIKE '73063080%' OR Item_ComCd LIKE '73064020%' OR Item_ComCd LIKE '73064080%' OR Item_ComCd LIKE '73065021%' OR Item_ComCd LIKE '73065029%' OR Item_ComCd LIKE '73065080%' OR Item_ComCd LIKE '73066110%' OR Item_ComCd LIKE '73066192%' OR Item_ComCd LIKE '73066199%' OR Item_ComCd LIKE '73066910%' OR Item_ComCd LIKE '73066990%' OR Item_ComCd LIKE '73069000%' "
End If
End Select
@@ -1376,19 +1418,27 @@ Public Class usrCntlZOLLAuswertungen
Dim SQLString As String = ""
Dim Quelle As String = "FMZOLL"
Dim ListOfAndereTarifnummern As New List(Of String)
Dim HEADER As String = "Stahlverordnungsbericht aus "
If TextBox1.Text <> "" AndAlso TextBox1.Text.Contains(",") Then
ListOfAndereTarifnummern.AddRange(TextBox1.Text.Split(","c).Select(Function(x) x.Trim()).Where(Function(x) x <> ""))
HEADER = "andere Tarifnummern (" & TextBox1.Text & ") aus "
End If
Select Case cbxQuelle._value
Case "DAKOSY" : SQLString = getDAkosySQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "FMZOLL"
Case "DHF" : SQLString = getDHFSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "EZOLL"
Case "DHF-UNI" : SQLString = getDHFSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "EZOLL_UNISPED"
Case "TELOTEC" : SQLString = getTELOTECSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "FMZOLL"
Case "DAKOSY" : SQLString = getDAkosySQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO", ListOfAndereTarifnummern) : Quelle = "FMZOLL"
Case "DHF" : SQLString = getDHFSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO", ListOfAndereTarifnummern) : Quelle = "EZOLL"
Case "DHF-UNI" : SQLString = getDHFSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO", ListOfAndereTarifnummern) : Quelle = "EZOLL_UNISPED"
Case "TELOTEC" : SQLString = getTELOTECSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO", ListOfAndereTarifnummern) : Quelle = "FMZOLL"
End Select
Dim dt As DataTable = SQL.loadDgvBySql(SQLString, Quelle, 700)
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(dt,,, "Stahlverordnungsbericht aus " & cbxQuelle._value & " " & von_stahlverordnung.Value.ToShortDateString & " - " & bis_stahlverordnung.Value.ToShortDateString)
cProgramFunctions.genExcelFromDT_NEW(dt,,, HEADER & cbxQuelle._value & " " & von_stahlverordnung.Value.ToShortDateString & " - " & bis_stahlverordnung.Value.ToShortDateString)
End If
End Sub
@@ -1401,6 +1451,18 @@ Public Class usrCntlZOLLAuswertungen
Process.Start(webAddress)
End Sub
Private Sub cbxAndereTarifnummern_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAndereTarifnummern.CheckedChanged
If cbxAndereTarifnummern.Checked Then
TextBox1.Enabled = True
Else
TextBox1.Enabled = False
TextBox1.Text = ""
End If
End Sub

46
VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb generated
View File

@@ -22,11 +22,11 @@ Partial Class frmFirmenuebersicht
'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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirmenuebersicht))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblMail2 = New System.Windows.Forms.Label()
@@ -49,9 +49,8 @@ Partial Class frmFirmenuebersicht
Me.Label5 = New System.Windows.Forms.Label()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label7 = New System.Windows.Forms.Label()
Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel1.SuspendLayout()
Me.pnloptions.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -72,7 +71,7 @@ Partial Class frmFirmenuebersicht
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1503, 789)
Me.Panel1.Size = New System.Drawing.Size(1533, 789)
Me.Panel1.TabIndex = 4
'
'pnloptions
@@ -84,9 +83,19 @@ Partial Class frmFirmenuebersicht
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnloptions.Location = New System.Drawing.Point(0, 632)
Me.pnloptions.Name = "pnloptions"
Me.pnloptions.Size = New System.Drawing.Size(1503, 157)
Me.pnloptions.Size = New System.Drawing.Size(1533, 157)
Me.pnloptions.TabIndex = 12
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(1068, 11)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(174, 13)
Me.Label7.TabIndex = 41
Me.Label7.Text = "Mail-Exchange-Einstellungen:"
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -128,7 +137,7 @@ Partial Class frmFirmenuebersicht
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1503, 118)
Me.Panel2.Size = New System.Drawing.Size(1533, 118)
Me.Panel2.TabIndex = 11
'
'lblMail2
@@ -314,7 +323,7 @@ Partial Class frmFirmenuebersicht
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(1503, 41)
Me.pnlTop.Size = New System.Drawing.Size(1533, 41)
Me.pnlTop.TabIndex = 6
'
'Label4
@@ -335,6 +344,8 @@ Partial Class frmFirmenuebersicht
Me.dgvFirmen.AllowUserToDeleteRows = False
Me.dgvFirmen.AllowUserToOrderColumns = True
Me.dgvFirmen.AllowUserToResizeRows = False
Me.dgvFirmen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvFirmen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
@@ -344,11 +355,10 @@ Partial Class frmFirmenuebersicht
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvFirmen.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvFirmen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvFirmen.Location = New System.Drawing.Point(0, 118)
Me.dgvFirmen.Name = "dgvFirmen"
Me.dgvFirmen.RowHeadersVisible = False
Me.dgvFirmen.Size = New System.Drawing.Size(1503, 514)
Me.dgvFirmen.Size = New System.Drawing.Size(1530, 514)
Me.dgvFirmen.TabIndex = 10
'
'dgvEmailSettings
@@ -356,31 +366,23 @@ Partial Class frmFirmenuebersicht
Me.dgvEmailSettings.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvEmailSettings.AllowUserToAddRows = False
Me.dgvEmailSettings.AllowUserToDeleteRows = False
Me.dgvEmailSettings.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvEmailSettings.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvEmailSettings.Location = New System.Drawing.Point(1071, 27)
Me.dgvEmailSettings.Name = "dgvEmailSettings"
Me.dgvEmailSettings.ReadOnly = True
Me.dgvEmailSettings.RowHeadersVisible = False
Me.dgvEmailSettings.ShowEditingIcon = False
Me.dgvEmailSettings.Size = New System.Drawing.Size(429, 127)
Me.dgvEmailSettings.Size = New System.Drawing.Size(459, 127)
Me.dgvEmailSettings.TabIndex = 2
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(1068, 11)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(174, 13)
Me.Label7.TabIndex = 41
Me.Label7.Text = "Mail-Exchange-Einstellungen:"
'
'frmFirmenuebersicht
'
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(1503, 789)
Me.ClientSize = New System.Drawing.Size(1533, 789)
Me.Controls.Add(Me.pnlTop)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

16
VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
View File

@@ -28,9 +28,9 @@ Public Class frmFirmenuebersicht
sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,replace([Firma_Telefon],'Tel. ','') as Firma_Telefon ,replace([Firma_Telefax],'Fax ','') as Firma_Telefax ,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,
[Firma_Bankverbindung1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_IBAN2],[Firma_BIC2],[Firma_E-Mail],
[Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert] from tblFirma "
[Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert], [Firma_enableUIDPruefung] as [UID-Prüfung] from tblFirma "
Dim sqlstr_Mailsettings As String = " select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail, mail_firmaID from tblMailSettings"
Dim sqlstr_Mailsettings As String = " select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail as kindOfMail, mail_firmaID from tblMailSettings"
dt = SQL.loadDgvBySql(sqlstr_Mailsettings, "ADMIN")
@@ -70,20 +70,25 @@ Public Class frmFirmenuebersicht
.Columns("Firma_E_Mail_Mahnungen").Visible = False
.Columns("Firma_E_Mail_Fakturierung").Visible = False
.Columns("Firma_ID").Width = 30
.Columns("Firma_Warenort").Width = 60
.Columns("Firma_ID").Width = 20
.Columns("Firma_Warenort").Width = 50
.Columns("Firma_PLZ").Width = 60
.Columns("Land").Width = 40
.Columns("Firma_Bez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UID-Prüfung").Width = 75
If Not dgvFirmen.Columns.Contains("EmailEinstellungen") Then
Dim col As New DataGridViewCheckBoxColumn()
col.Name = "EmailEinstellungen"
col.HeaderText = "E-Mail-Settings"
col.HeaderText = "EMail-Settings"
col.ReadOnly = True
dgvFirmen.Columns.Add(col)
.Columns("EmailEinstellungen").Width = 75
End If
For Each col As DataGridViewColumn In dgvFirmen.Columns
@@ -153,6 +158,7 @@ Public Class frmFirmenuebersicht
If rows.Length > 0 Then
dgvEmailSettings.DataSource = rows.CopyToDataTable()
dgvEmailSettings.Columns("mail_firmaID").Visible = False
dgvEmailSettings.Columns("user").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Else
dgvEmailSettings.DataSource = Nothing
End If

1
VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb
View File

@@ -26,6 +26,7 @@ Public Class cKundenSicherheiten
Public Property sc_cbam_jahr As Integer? = Nothing
Public Property sc_cbam_quartal As Integer? = Nothing
Public Property sc_updated As DateTime? = Nothing
Public hasEntry As Boolean = False

22
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -144,10 +144,10 @@ Public Class cUIDPruefung
End Function
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, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000) 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, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000, Optional olderThanCurrentMonth As Boolean = False) As DataTable
Dim dt As DataTable = Nothing
dt = get_zupruefendeKunden(MaxEintraege, datum,, True)
dt = get_zupruefendeKunden(MaxEintraege, datum,, True, olderThanCurrentMonth)
If dt IsNot Nothing Then
If dt.Rows.Count = 0 Then Return Nothing
@@ -302,19 +302,29 @@ Public Class cUIDPruefung
Return dt
End Function
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False) As DataTable
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False, Optional olderThanCurrentMonth As Boolean = False) As DataTable
Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
Dim where = ""
Dim WhereDateOrMonthCondition As String = "UstIdGeprüft <= '" & datum.ToShortDateString & "'"
Dim WhereDateOrMonthConditionVeranlagung As String = "VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "'"
If olderThanCurrentMonth Then
WhereDateOrMonthCondition = "Month(UstIdGeprüft) <" & Now().Month & " and Year(UstIdGeprüft) <=" & Now().Year
WhereDateOrMonthConditionVeranlagung = "Month(VAUID.UstIdGeprüft) <" & Now().Month & " and Year(VAUID.UstIdGeprüft) <=" & Now().Year
End If
If Firma = "" Then
Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
End If
Select Case Firma
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701) "
Case " AMBAR" : where = " And Filialen.FilialenNr IN (5701) "
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501) "
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801) "
Case "VERAG 360 GmbH" : where = " And Filialen.FilialenNr IN (8001) "
@@ -343,7 +353,7 @@ Public Class cUIDPruefung
ELSE 'Nein'
END AS istEUVAT, 'UID' as typ " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
" where ( " & WhereDateOrMonthCondition & " OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
" And Auswahl='A' " & where
Dim SQLUID_Veranlagungskunden As String = "SELECT VAUID.KdNr,[Ordnungsbegriff] as Firma, VAUID.UstIdGeprüft, VAUID.UstIdKz,VAUID.UstIdNr, CASE WHEN UPPER(VAUID.UstIdKz) IN (
@@ -354,7 +364,7 @@ Public Class cUIDPruefung
inner Join [Adressen] On AdressenNr=VAUID.KdNr
inner Join kunden On KundenNr=VAUID.KdNr
inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr
where (VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "' OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '') AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")
where (" & WhereDateOrMonthConditionVeranlagung & " OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '') AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")
dt = SQL.loadDgvBySql(SQLUID & " UNION ALL " & SQLUID_Veranlagungskunden & " ORDER BY Ordnungsbegriff", "FMZOLL")

1
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -2020,6 +2020,7 @@ Public Class cDatenarchiv_Collection
Catch : End Try
Return SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_id]=" & coll_id & " ", "FMZOLL")
Else
Return SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_id]=" & coll_id & " ", "FMZOLL") 'wegn fehlendem Speicherplatz kann uU zwar der DS angelegt wurden sein, allerdings keine Datei dahinter, diese sollten hier bereinigt werden.
Return True
End If
End If

1
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb
View File

@@ -356,6 +356,7 @@ Public Class cRelayHub
Case "Freihandelszone", "FTZ" : fileType = "ftz"
Case "EUR1", "EUR", "EUR.1" : fileType = "eur"
Case "GGED_D", "GGED-D" : fileType = "gged_p"
Case "Bill of Lading", "BoL" : fileType = "bill_of_lading"
Case Else : fileType = "unknown" '"other"
End Select

38
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
View File

@@ -519,7 +519,7 @@ Public Class cVERAG_CustomsDeclarations
Return ZA
End Function
Public Sub checkfreshCBAMWarning()
Public Sub checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG As Boolean)
Try
Dim CBAM_ITEMS As New List(Of cVERAG_CustomsDeclarations_Item)
@@ -543,7 +543,7 @@ Public Class cVERAG_CustomsDeclarations
If AD IsNot Nothing Then
ImporterString = AD.Name_1 & " " & If(AD.Name_2, "") & "<br/>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "")
ImporterString = AD.AdressenNr & "<br/>" & AD.Name_1 & " " & If(AD.Name_2, "") & "<br/>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "")
End If
Dim KD_EX As cKunde = Nothing
@@ -555,7 +555,7 @@ Public Class cVERAG_CustomsDeclarations
End If
If AD_EX IsNot Nothing Then
ExporterString = AD_EX.Name_1 & " " & If(AD_EX.Name_2, "") & "<br/>" & If(AD_EX.LandKz, "") & " " & If(AD_EX.PLZ, "") & " " & If(AD_EX.Ort, "")
ExporterString = AD_EX.AdressenNr & "<br/>" & AD_EX.Name_1 & " " & If(AD_EX.Name_2, "") & "<br/>" & If(AD_EX.LandKz, "") & " " & If(AD_EX.PLZ, "") & " " & If(AD_EX.Ort, "")
End If
@@ -582,7 +582,7 @@ Public Class cVERAG_CustomsDeclarations
End If
If AD_IND IsNot Nothing Then
vertretenerString = AD_IND.Name_1 & " " & If(AD_IND.Name_2, "") & "<br/>" & If(AD_IND.LandKz, "") & " " & If(AD_IND.PLZ, "") & " " & If(AD_IND.Ort, "")
vertretenerString = AD_IND.AdressenNr & "<br/>" & AD_IND.Name_1 & " " & If(AD_IND.Name_2, "") & "<br/>" & If(AD_IND.LandKz, "") & " " & If(AD_IND.PLZ, "") & " " & If(AD_IND.Ort, "")
ERW_IND = New cKundenErweitert(AD.AdressenNr)
VERTR_IND = cKundenVertraege.LOAD_LISTOF(AD.AdressenNr)
End If
@@ -601,8 +601,8 @@ Public Class cVERAG_CustomsDeclarations
Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(vertretenerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year), za_MRN) / 1000
Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0)
Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "")
createOrUpdateKundenSicherheitseintrag(KD_IND, CountryOfOrigin, vertretenerEORI, quarter, dateCBAM.Year)
Dim ImportCountry As String = If(za_CountryImport, "")
If hasValidCBAMDocNr_VERAG Then createOrUpdateKundenSicherheitseintrag(KD, ImportCountry, vertretenerEORI, quarter, dateCBAM.Year)
'Prüft, ob Vertrag vorliegt:
@@ -660,8 +660,8 @@ Public Class cVERAG_CustomsDeclarations
"</body></html>"
Dim empfanegerMail As String = ""
empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("CBAM-WARNUNG")
Dim empfanegerMail As String = "cbam@verag.ag;"
empfanegerMail &= cMitarbeiter.GetEMailRecipientForEmailNotification("CBAM-WARNUNG")
If empfanegerMail <> "" Then
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, "CBAM WARNUNG - " & Me.za_MRN, bodyHtml, "cbam@verag.ag")
End If
@@ -686,9 +686,9 @@ Public Class cVERAG_CustomsDeclarations
Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now)
Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "")
Dim ImportCountry As String = If(za_CountryImport, "")
Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0)
createOrUpdateKundenSicherheitseintrag(KD, CountryOfOrigin, importerEORI, quarter, dateCBAM.Year)
If hasValidCBAMDocNr_VERAG Then createOrUpdateKundenSicherheitseintrag(KD, ImportCountry, importerEORI, quarter, dateCBAM.Year)
Dim eigenmasseSumme_Shipment As Decimal = CBAM_ITEMS.Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000
Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(importerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year)) / 1000
@@ -818,7 +818,7 @@ Public Class cVERAG_CustomsDeclarations
Return String.Join(", ", result)
End Function
Private Function createOrUpdateKundenSicherheitseintrag(KUNDE As cKunde, CountryOfOrigin As String, EORI As String, cbamQquarter As Integer, cbamYear As Integer)
Private Function createOrUpdateKundenSicherheitseintrag(KUNDE As cKunde, ImportCountry As String, EORI As String, cbamQquarter As Integer, cbamYear As Integer)
Dim von As Date
Dim bis As Date
@@ -844,12 +844,12 @@ Public Class cVERAG_CustomsDeclarations
Case "4"
von = New Date(cbamYear, 10, 1)
bis = New Date(cbamYear, 12, 31)
CBAMZertifikatKosten = 0
CBAMZertifikatKosten = 100
End Select
Dim EORI_ = {EORI}
Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI_, CountryOfOrigin, von, bis,, True)
Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI_, ImportCountry, von, bis,, True)
Dim grouped = From za In LIST
@@ -870,9 +870,6 @@ Public Class cVERAG_CustomsDeclarations
}
If grouped.Count < 1 Then
Return False
End If
@@ -884,15 +881,21 @@ Public Class cVERAG_CustomsDeclarations
For Each r In grouped
cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Tarif, r.Rohmasse, r.Country, CBAMZertifikatKosten, cbamYear, cost, emission, benchmark)
Dim eigMasse = If(IsNumeric(r.Eigenmasse), r.Eigenmasse / 1000, 0)
cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Tarif, eigMasse, r.Country, CBAMZertifikatKosten, cbamYear, cost, emission, benchmark)
gesamtBetrag += cost
Next
If gesamtBetrag > 0 Then
gesamtBetrag *= -1
End If
If gesamtBetrag <> 0 Then
Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
If Kunde_Sicherheit.hasEntry Then
Kunde_Sicherheit.sc_updated = Now()
Kunde_Sicherheit.sc_Betrag = gesamtBetrag
Kunde_Sicherheit.SAVE()
Else
@@ -904,6 +907,7 @@ Public Class cVERAG_CustomsDeclarations
Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31)
Kunde_Sicherheit.sc_datum = Today()
Kunde_Sicherheit.sc_Mitarbeiter = "AUTO"
Kunde_Sicherheit.sc_MitarbeiterId = -1
Kunde_Sicherheit.sc_dsId = -1
Kunde_Sicherheit.SAVE()
End If

97
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient
Imports System.IO
Imports System.Windows.Forms
Public Class cAllgemein
Public Shared FIRMA As String
Public Shared NIEDERLASSUNG As String 'SUB, WAI, ...
@@ -152,7 +153,7 @@ Public Class cAllgemein
Try 'DRUCKER LADEN
Dim sPrinters As New ArrayList
For Each sPrinter As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
sPrinters.add(sPrinter)
sPrinters.Add(sPrinter)
Next
VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST = sPrinters
Catch ex As Exception
@@ -2031,3 +2032,97 @@ Public Class cSpeditionsbuchReport
End Class
Public Class cInvoiceReport
Public Function RunReport_VERAG_INVOICE(KDNR As Integer, ReDatVon As Date, ReDatBis As Date) As String
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql("SELECT
CAST(RechnungsDatum AS DATE) AS InvoiceDate,
RechnungsNr AS InvoiceNumber,
FilialenNr AS BranchNo,
AbfertigungsNr AS CustomsDeclarationNo,
Abfertigungsdatum AS CustomsDeclarationDate,
AvisoID AS TruckID,
CASE
WHEN RechnungsKundenNr = 770931
AND CHARINDEX('/', KdAuftragsNr) > 0
THEN LTRIM(RTRIM(
LEFT(
KdAuftragsNr,
CHARINDEX('/', KdAuftragsNr) - 1
)))
ELSE KdAuftragsNr
END AS CustomerOrderNo,
RechnungsKundenNr AS CustomerNo,
[RechnungsName 1] AS CustomerName,
RechnungsLandKz AS CountryCode,
RechnungsUstIdNr AS CustomerVATNo,
LeistungsNr AS ServiceCode,
LeistungsBez AS ServiceDescription,
RechnungsausgangPositionen.Anzahl AS Quantity,
RechnungsausgangPositionen.Preis AS UnitPrice,
RechnungsausgangPositionen.SteuerfreierBetrag AS NetAmountTaxFree,
RechnungsausgangPositionen.SteuerpflichtigerBetrag AS NetAmountTaxable,
-- Umsatzsteuerbetrag
RechnungsausgangPositionen.SteuerpflichtigerBetrag *
([Steuersatz %] - 1) AS VATAmount,
-- Bruttobetrag steuerpflichtiger Teil
RechnungsausgangPositionen.SteuerpflichtigerBetrag *
[Steuersatz %] AS GrossAmountTaxable,
-- Gesamtbetrag
RechnungsausgangPositionen.SteuerfreierBetrag +
(RechnungsausgangPositionen.SteuerpflichtigerBetrag *
[Steuersatz %]) AS GrossAmountTotal,
[Steuersatz %] AS VATRate,
Währungscode AS CurrencyCode,
CASE
WHEN ROW_NUMBER() OVER (
PARTITION BY Rechnungsausgang.RK_ID
ORDER BY RechnungsausgangPositionen.LeistungsNr
) = 1
THEN Wert
END AS GoodsValue,
RechnungsausgangPositionen.AufschubkontoNr AS DefermentAccountNo,
RechnungsausgangPositionen.Weitere_Reg_Nr AS AdditionalReferenceNo,
[LKW Kennzeichen] AS VehicleRegistrationNo,
Grenze AS BorderCrossing
FROM [VERAG].[dbo].[Rechnungsausgang]
inner join Adressen on RechnungsKundenNr=AdressenNr
inner join RechnungsausgangPositionen on Rechnungsausgang.RK_ID= RechnungsausgangPositionen.rk_id
where 1=1 AND Rechnungsausgang.[RechnungsDatum] BETWEEN '" & ReDatVon.ToShortDateString & "' AND '" & ReDatBis.ToShortDateString & "' and RechnungsKundenNr = " & KDNR & " order by rechnungsdatum,RechnungsNr,CustomerNo, LeistungsNr ", "FMZOLL")
If dt IsNot Nothing And dt.Rows.Count > 0 Then
Dim lastRow As Integer = dt.Rows.Count + 1
Dim fileName As String = cProgramFunctions.genExcelFromDT_NEW(dt,
rangeAsWaehrung:={
"N2:N" & lastRow, ' UnitPrice
"O2:O" & lastRow, ' NetAmountTaxFree
"P2:P" & lastRow, ' NetAmountTaxable
"Q2:Q" & lastRow, ' VATAmount
"R2:R" & lastRow, ' GrossAmountTaxable
"S2:S" & lastRow, ' GrossAmountTotal
"V2:V" & lastRow ' GoodsValue
}, ShowAutoFilter:=True, HeaderTxt:="",, False, "REPORT_INVOICE_" & KDNR & "_" & ReDatVon.Month & "-" & ReDatBis.Month & "/" & ReDatBis.Year)
If fileName <> "" Then
Return fileName
End If
Else
Return ""
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
End Function
End Class

16
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -12,6 +12,7 @@ Imports com.sun.xml.internal.rngom
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.SectionReportModel
Imports GrapeCity.Documents.Imaging
Imports iText.IO.Util
Imports Microsoft.Office.Interop
Imports ThoughtWorks.QRCode.Codec
@@ -885,6 +886,21 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
End Try
End Function
Public Shared Sub createMail(eMailTo As String, betreff As String, text As String, Optional email_CC As String = "", Optional email_BCC As String = "")
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.To = eMailTo
Mail.CC = email_CC
Mail.BCC = email_BCC
Mail.HTMLBody = text
Mail.Subject = betreff
Mail.Display()
End Sub
Public Shared Function sendMail(eMailTo, betreff, text, Optional eMailfrom = "support@verag.ag", Optional prio = False, Optional uhrzeitAngeben = True, Optional cc = "", Optional bcc = "", Optional anhaenge = Nothing, Optional art = 0, Optional furtherMailAdress = "")
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential