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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-28 10:51:33 +02:00
parent 25e8b63d93 71b8a93063
commit 3ed5283280
25 changed files with 931 additions and 569 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/Formulare/CMR/frmCMR.Designer.vb generated
View File

@@ -172,6 +172,7 @@ Partial Class frmCMR
Me.txtSuchbegriff._WaehrungZeichen = True Me.txtSuchbegriff._WaehrungZeichen = True
Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black
Me.txtSuchbegriff.Location = New System.Drawing.Point(3, 33) Me.txtSuchbegriff.Location = New System.Drawing.Point(3, 33)
Me.txtSuchbegriff.MaxLength = 80
Me.txtSuchbegriff.MaxLineLength = -1 Me.txtSuchbegriff.MaxLineLength = -1
Me.txtSuchbegriff.MaxLines_Warning = "" Me.txtSuchbegriff.MaxLines_Warning = ""
Me.txtSuchbegriff.MaxLines_Warning_Label = Nothing Me.txtSuchbegriff.MaxLines_Warning_Label = Nothing

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

@@ -1714,6 +1714,8 @@ Public Class FormularManagerNEU
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHerrFrau.Text Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHerrFrau.Text
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text
Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez

15
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb generated
View File

@@ -54,6 +54,7 @@ Partial Class frmBU_Mahnlauf
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.pnlTop.SuspendLayout() Me.pnlTop.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
@@ -266,6 +267,7 @@ Partial Class frmBU_Mahnlauf
' '
'Panel3 'Panel3
' '
Me.Panel3.Controls.Add(Me.Button7)
Me.Panel3.Controls.Add(Me.cbxMahnstufeErh) Me.Panel3.Controls.Add(Me.cbxMahnstufeErh)
Me.Panel3.Controls.Add(Me.Label8) Me.Panel3.Controls.Add(Me.Label8)
Me.Panel3.Controls.Add(Me.Button6) Me.Panel3.Controls.Add(Me.Button6)
@@ -471,6 +473,18 @@ Partial Class frmBU_Mahnlauf
Me.MyTextBox2.TabIndex = 39 Me.MyTextBox2.TabIndex = 39
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(38, 89)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(123, 23)
Me.Button7.TabIndex = 45
Me.Button7.Text = "Übersetzungen"
Me.Button7.UseVisualStyleBackColor = True
'
'frmBU_Mahnlauf 'frmBU_Mahnlauf
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -526,4 +540,5 @@ Partial Class frmBU_Mahnlauf
Friend WithEvents Label8 As Label Friend WithEvents Label8 As Label
Friend WithEvents Button6 As Button Friend WithEvents Button6 As Button
Friend WithEvents cbxMahnstufeErh As CheckBox Friend WithEvents cbxMahnstufeErh As CheckBox
Friend WithEvents Button7 As Button
End Class End Class

376
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -265,21 +265,34 @@ Public Class frmBU_Mahnlauf
Sprache = If(KD_ERW.kde_Fakturierung_Sprache, "DE") Sprache = If(KD_ERW.kde_Fakturierung_Sprache, "DE")
End If End If
Dim rpt As New rptMahnung(Sprache)
rpt.Document.Printer.PrinterName = ""
Dim RG_Bezeichnung = "Mahnung.pdf"
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(AD.AdressenNr)
If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False
If dtDataSource Is Nothing Then MsgBox("Keine Daten vorhanden!") : Return False If dtDataSource Is Nothing Then MsgBox("Keine Daten vorhanden!") : Return False
If dtDataSource.Rows.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False If dtDataSource.Rows.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False
rpt.DataSource = dtDataSource Dim MAHNSTUFE As Integer = -1
If forceMahnstufe <> "" Then
MAHNSTUFE = CInt(forceMahnstufe)
Else
'MAX Mahnstufe
For Each r In dtDataSource.Rows
If r("Mahnstufe") > MAHNSTUFE Then MAHNSTUFE = r("Mahnstufe")
Next
End If
Dim rpt As New rptMahnung(Sprache, MAHNSTUFE, Firma_ID)
rpt.Document.Printer.PrinterName = ""
Dim RG_Bezeichnung = "Mahnung.pdf"
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(AD.AdressenNr)
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False
rpt.DataSource = dtDataSource
Dim sum = 0 Dim sum = 0
@@ -289,14 +302,14 @@ Public Class frmBU_Mahnlauf
rpt.lblSummeUeberschrift.Text = "Total:" rpt.lblSummeUeberschrift.Text = "Total:"
rpt.lblSteuersatz.Text = "Late payment interest of 9.5% p.a. from due date" rpt.lblSteuersatz.Text = "Late payment interest of 9.5% p.a. from due date"
rpt.lblZwText.Text = "Dunning fee" rpt.lblZwText.Text = "Dunning fee"
rpt.Label2.Text = "Subtotal" rpt.lblZwischensumme.Text = "Subtotal"
End Select End Select
initRgFirma(rpt, FIRMA, AD.LandKz) initRgFirma(rpt, FIRMA, AD.LandKz)
rpt.lblFirmaFax.Visible = True rpt.lblFirmaFax.Visible = True
rpt.Label1.Visible = True rpt.lblEmail.Visible = True
rpt.lblFaxNr.Visible = True rpt.lblFaxNr.Visible = True
@@ -311,7 +324,7 @@ Public Class frmBU_Mahnlauf
Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing : rpt.lblFirmaFax.Visible = False : rpt.Label1.Visible = False : rpt.lblFaxNr.Visible = False Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing : rpt.lblFirmaFax.Visible = False : rpt.lblEmail.Visible = False : rpt.lblFaxNr.Visible = False
End Select End Select
Dim ZZTage = 10 Dim ZZTage = 10
@@ -361,12 +374,9 @@ Public Class frmBU_Mahnlauf
End If End If
If AD.Ansprechpartner <> "" Then If AD.Ansprechpartner <> "" Then
rpt.Label25.Text = (If(AD.Anrede, "") & " " & AD.Ansprechpartner).trim rpt.lblAnrede.Text = (If(AD.Anrede, "") & " " & AD.Ansprechpartner).trim
Else Else
Select Case Sprache rpt.lblAnrede.Text = "Abt.: BUCHHALTUNG/GESCHÄFTSFÜHRUNG"
Case "EN" : rpt.Label25.Text = "Abt.: BUCHHALTUNG/GESCHÄFTSFÜHRUNG"
Case Else : rpt.Label25.Text = "Dept.: ACCOUNTING/MANAGEMENT"
End Select
End If End If
rpt.lblRechnung_Strasse.Text = If(AD.Straße, "") rpt.lblRechnung_Strasse.Text = If(AD.Straße, "")
@@ -376,18 +386,6 @@ Public Class frmBU_Mahnlauf
rpt.txtVermerk.Text = "" rpt.txtVermerk.Text = ""
Dim MAHNSTUFE As Integer = -1
If forceMahnstufe <> "" Then
MAHNSTUFE = CInt(forceMahnstufe)
Else
'MAX Mahnstufe
For Each r In dtDataSource.Rows
If r("Mahnstufe") > MAHNSTUFE Then MAHNSTUFE = r("Mahnstufe")
Next
End If
'Dim cnt As Integer = 0 'Dim cnt As Integer = 0
Dim ZWSBetrag As Double = 0 Dim ZWSBetrag As Double = 0
@@ -415,7 +413,7 @@ Public Class frmBU_Mahnlauf
rpt.lblUeberschriftRG_GS.Text = MAHNTEXT rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
rpt.TextBox2.Text = MahnTEXT_VOR rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
rpt.txtVermerk.Text = MahnTEXT_NACH rpt.txtVermerk.Text = MahnTEXT_NACH
AddHandler rpt.Detail.Format, Sub() AddHandler rpt.Detail.Format, Sub()
@@ -719,39 +717,39 @@ Public Class frmBU_Mahnlauf
End Sub End Sub
Private Shared Sub getMahnstufetext(Sprache, MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT) Private Shared Sub getMahnstufetext(Sprache, MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT)
Select Case Sprache 'Select Case Sprache
Case "TR" ' Case "TR"
Select Case MAHNSTUFE ' Select Case MAHNSTUFE
Case -2 ' Case -2
MahnTEXT_VOR = "Aşağıdaki faturalar henüz ödenmemiştir:" ' MahnTEXT_VOR = "Aşağıdaki faturalar henüz ödenmemiştir:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "List - öğeleri aç" ' MAHNTEXT = "List - öğeleri aç"
Case -1 ' Case -1
MahnTEXT_VOR = "Aşağıdaki faturalar henüz tahsil edilmemiştir:" ' MahnTEXT_VOR = "Aşağıdaki faturalar henüz tahsil edilmemiştir:"
MahnTEXT_NACH = "Yukarıdaki tutarlar, SEPA otomatik ödeme talimatı yoluyla belirttiğiniz Benk bağlantınızdan tahsil edilecektir." ' MahnTEXT_NACH = "Yukarıdaki tutarlar, SEPA otomatik ödeme talimatı yoluyla belirttiğiniz Benk bağlantınızdan tahsil edilecektir."
MAHNTEXT = "List - öğeleri aç" ' MAHNTEXT = "List - öğeleri aç"
Case 0 ' Case 0
MahnTEXT_VOR = "WeLütfen asagida belirilen faturalarin ödemesini yapiniz:" ' MahnTEXT_VOR = "WeLütfen asagida belirilen faturalarin ödemesini yapiniz:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "Ödeme hatırlatıcısı" ' MAHNTEXT = "Ödeme hatırlatıcısı"
Case 1 ' Case 1
MahnTEXT_VOR = "Lütfen asagida belirilen faturalarin ödemesini yapiniz:" ' MahnTEXT_VOR = "Lütfen asagida belirilen faturalarin ödemesini yapiniz:"
MahnTEXT_NACH = "Bu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz. Ödemeniz tarafimiza yapildiysa ilgili ihtari gecersiz sayabilirsiniz." ' MahnTEXT_NACH = "Bu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz. Ödemeniz tarafimiza yapildiysa ilgili ihtari gecersiz sayabilirsiniz."
MAHNTEXT = "1. UYARI" ' MAHNTEXT = "1. UYARI"
Case 2 ' Case 2
MahnTEXT_VOR = "Bir önceki ihtarimiza ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir:" ' MahnTEXT_VOR = "Bir önceki ihtarimiza ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir:"
MahnTEXT_NACH = "WirBu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz, fakat bütün sorumluluklarinizi hatirlatarak, daha fazla masrafin ve olumsuzluklarin olusmamasi adina yukarida belirtilen acik tutarin acil olarak ödenmesi gerektigini bildirmek durumundayiz." ' MahnTEXT_NACH = "WirBu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz, fakat bütün sorumluluklarinizi hatirlatarak, daha fazla masrafin ve olumsuzluklarin olusmamasi adina yukarida belirtilen acik tutarin acil olarak ödenmesi gerektigini bildirmek durumundayiz."
MAHNTEXT = MAHNSTUFE & ". UYARI" ' MAHNTEXT = MAHNSTUFE & ". UYARI"
Case 3 ' Case 3
MahnTEXT_VOR = "Iki kez iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz." ' MahnTEXT_VOR = "Iki kez iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz."
MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz." ' MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz."
MAHNTEXT = MAHNSTUFE & ". UYARI" ' MAHNTEXT = MAHNSTUFE & ". UYARI"
Case >= 4 ' Case >= 4
MahnTEXT_VOR = "Defalarca iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz." ' MahnTEXT_VOR = "Defalarca iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz."
MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz." ' MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz."
MAHNTEXT = MAHNSTUFE & ". UYARI" ' MAHNTEXT = MAHNSTUFE & ". UYARI"
End Select ' End Select
Case "DE", "D" ' Case "DE", "D"
Select Case MAHNSTUFE Select Case MAHNSTUFE
Case -2 Case -2
MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht beglichen:" MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht beglichen:"
@@ -784,138 +782,138 @@ Public Class frmBU_Mahnlauf
End Select End Select
Case "RO" ' Case "RO"
Select Case MAHNSTUFE ' Select Case MAHNSTUFE
Case -2 ' Case -2
MahnTEXT_VOR = "Facturile ulterioare nu au fost încă plătite:" ' MahnTEXT_VOR = "Facturile ulterioare nu au fost încă plătite:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "Listă - Articole deschise" ' MAHNTEXT = "Listă - Articole deschise"
Case -1 ' Case -1
MahnTEXT_VOR = "Facturile ulterioare nu au fost încă încasate:" ' MahnTEXT_VOR = "Facturile ulterioare nu au fost încă încasate:"
MahnTEXT_NACH = "Sumele menționate mai sus vor fi încasate din contul dumneavoastră bancar specificat prin mandat de debitare directă SEPA." ' MahnTEXT_NACH = "Sumele menționate mai sus vor fi încasate din contul dumneavoastră bancar specificat prin mandat de debitare directă SEPA."
MAHNTEXT = "Listă - Articole deschise" ' MAHNTEXT = "Listă - Articole deschise"
Case 0 ' Case 0
MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:" ' MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "Reamintire de plată" ' MAHNTEXT = "Reamintire de plată"
Case 1 ' Case 1
MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:" ' MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
MahnTEXT_NACH = "Considerand ca neefectuarea platii se bazeaza pe o mica problema organizatorica, va rugam sa efectuati platile restante in cel mai scurt timp. In cazul in care platile au fost efectuate, va rugam sa considerati acest inscris nefondat." ' MahnTEXT_NACH = "Considerand ca neefectuarea platii se bazeaza pe o mica problema organizatorica, va rugam sa efectuati platile restante in cel mai scurt timp. In cazul in care platile au fost efectuate, va rugam sa considerati acest inscris nefondat."
MAHNTEXT = "1. Memento" ' MAHNTEXT = "1. Memento"
Case 2 ' Case 2
MahnTEXT_VOR = "În ciuda atenționărilor noastre anterioare, facturile enumerate nu au fost încă achitate:" ' MahnTEXT_VOR = "În ciuda atenționărilor noastre anterioare, facturile enumerate nu au fost încă achitate:"
MahnTEXT_NACH = "Presupunem că acest lucru se datorează unei inadvertențe organizaționale. " & vbNewLine & ”Dacă plata a fost deja trimisă către noi, vă rugăm să considerați că acest memento este irelevant." ' MahnTEXT_NACH = "Presupunem că acest lucru se datorează unei inadvertențe organizaționale. " & vbNewLine & ”Dacă plata a fost deja trimisă către noi, vă rugăm să considerați că acest memento este irelevant."
MAHNTEXT = MAHNSTUFE & ". MENȚIUNE" ' MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
Case 3 ' Case 3
MahnTEXT_VOR = "În ciuda a două atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de plată." ' MahnTEXT_VOR = "În ciuda a două atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de plată."
MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să însărcinăm o agenție de colectare a creanțelor să recupereze datoria, fie să acționăm în justiție fără altă notificare." ' MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să însărcinăm o agenție de colectare a creanțelor să recupereze datoria, fie să acționăm în justiție fără altă notificare."
MAHNTEXT = MAHNSTUFE & ". MENȚIUNE" ' MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
Case >= 4 ' Case >= 4
MahnTEXT_VOR = "În ciuda mai multor atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de remitere." ' MahnTEXT_VOR = "În ciuda mai multor atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de remitere."
MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să instruim o agenție de colectare a creanțelor pentru a colecta datoria, fie să acționăm în justiție fără altă notificare.." ' MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să instruim o agenție de colectare a creanțelor pentru a colecta datoria, fie să acționăm în justiție fără altă notificare.."
MAHNTEXT = MAHNSTUFE & ". MENȚIUNE" ' MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
End Select ' End Select
Case "BG" ' Case "BG"
Select Case MAHNSTUFE ' Select Case MAHNSTUFE
Case -2 ' Case -2
MahnTEXT_VOR = "Следните фактури все още не са платени:" ' MahnTEXT_VOR = "Следните фактури все още не са платени:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "Списък - Отворени елементи" ' MAHNTEXT = "Списък - Отворени елементи"
Case -1 ' Case -1
MahnTEXT_VOR = "Следните фактури все още не са събрани:" ' MahnTEXT_VOR = "Следните фактури все още не са събрани:"
MahnTEXT_NACH = "Горепосочените суми ще бъдат събрани от посочената от вас банкова сметка чрез SEPA мандат за директен дебит." ' MahnTEXT_NACH = "Горепосочените суми ще бъдат събрани от посочената от вас банкова сметка чрез SEPA мандат за директен дебит."
MAHNTEXT = "Списък - Отворени елементи" ' MAHNTEXT = "Списък - Отворени елементи"
Case 0 ' Case 0
MahnTEXT_VOR = "Искаме уреждане на следните фактури:" ' MahnTEXT_VOR = "Искаме уреждане на следните фактури:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "Напомняне за плащане" ' MAHNTEXT = "Напомняне за плащане"
Case 1 ' Case 1
MahnTEXT_VOR = "Искаме уреждане на следните фактури." ' MahnTEXT_VOR = "Искаме уреждане на следните фактури."
MahnTEXT_NACH = "Предполагаме, че това се дължи на организационен пропуск. " & vbNewLine & “Ако плащането ви вече е изпратено до нас, моля, считайте напомнянето за неуместно." ' MahnTEXT_NACH = "Предполагаме, че това се дължи на организационен пропуск. " & vbNewLine & “Ако плащането ви вече е изпратено до нас, моля, считайте напомнянето за неуместно."
MAHNTEXT = "Първо напомняне" ' MAHNTEXT = "Първо напомняне"
Case 2 ' Case 2
MahnTEXT_VOR = "Въпреки предишното ни напомняне, изброените фактури все още не са уредени.:" ' MahnTEXT_VOR = "Въпреки предишното ни напомняне, изброените фактури все още не са уредени.:"
MahnTEXT_NACH = "In cazul de fata trebuie sa insistam la efectuarea platilor facturilor sus mentionate, pentru a evita alte costuri si neplaceri. Va rugam sa efectuali platile restante pana le data de" & ' MahnTEXT_NACH = "In cazul de fata trebuie sa insistam la efectuarea platilor facturilor sus mentionate, pentru a evita alte costuri si neplaceri. Va rugam sa efectuali platile restante pana le data de" &
MAHNTEXT = MAHNSTUFE & ". напомняне" ' MAHNTEXT = MAHNSTUFE & ". напомняне"
Case 3 ' Case 3
MahnTEXT_VOR = "Въпреки двете напомняния изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане." ' MahnTEXT_VOR = "Въпреки двете напомняния изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление." ' MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
MAHNTEXT = MAHNSTUFE & ". напомняне" ' MAHNTEXT = MAHNSTUFE & ". напомняне"
Case >= 4 ' Case >= 4
MahnTEXT_VOR = "Въпреки няколкото напомняния, изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане." ' MahnTEXT_VOR = "Въпреки няколкото напомняния, изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление." ' MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
MAHNTEXT = MAHNSTUFE & ". напомняне" ' MAHNTEXT = MAHNSTUFE & ". напомняне"
End Select ' End Select
Case "HR", "SRB", "BIH", "MKD" ' Case "HR", "SRB", "BIH", "MKD"
Select Case MAHNSTUFE ' Select Case MAHNSTUFE
Case -2 ' Case -2
MahnTEXT_VOR = "Naknadni računi još nisu plaćeni:" ' MahnTEXT_VOR = "Naknadni računi još nisu plaćeni:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "Popis - Otvorene stavken" ' MAHNTEXT = "Popis - Otvorene stavken"
Case -1 ' Case -1
MahnTEXT_VOR = "Naknadni računi još nisu naplaćeni:" ' MahnTEXT_VOR = "Naknadni računi još nisu naplaćeni:"
MahnTEXT_NACH = "Gore navedeni iznosi bit će prikupljeni putem SEPA naloga za izravno terećenje s vašeg navedenog bankovnog računa." ' MahnTEXT_NACH = "Gore navedeni iznosi bit će prikupljeni putem SEPA naloga za izravno terećenje s vašeg navedenog bankovnog računa."
MAHNTEXT = "Popis - Otvorene stavken" ' MAHNTEXT = "Popis - Otvorene stavken"
Case 0 ' Case 0
MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:" ' MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "Podsjetnik za plaćanje" ' MAHNTEXT = "Podsjetnik za plaćanje"
Case 1 ' Case 1
MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:" ' MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
MahnTEXT_NACH = "Vjerujemo da je to zbog organizacijskog propusta. " & vbNewLine & "Ako nam je vaša uplata već poslana, molimo vas da podsjetnik smatrate nevažnim." ' MahnTEXT_NACH = "Vjerujemo da je to zbog organizacijskog propusta. " & vbNewLine & "Ako nam je vaša uplata već poslana, molimo vas da podsjetnik smatrate nevažnim."
MAHNTEXT = "1. upozorenje" ' MAHNTEXT = "1. upozorenje"
Case 2 ' Case 2
MahnTEXT_VOR = "Unatoč našem prethodnom podsjećanju, navedeni računi još uvijek nisu plaćeni:" ' MahnTEXT_VOR = "Unatoč našem prethodnom podsjećanju, navedeni računi još uvijek nisu plaćeni:"
MahnTEXT_NACH = "Pretpostavljamo da je to zbog organizacijskog propusta, ali sada vas moramo odlučno zamoliti da nam odmah prenesete iznos koji dugujete prema gornjem popisu kako bismo izbjegli daljnje troškove i neugodnosti." ' MahnTEXT_NACH = "Pretpostavljamo da je to zbog organizacijskog propusta, ali sada vas moramo odlučno zamoliti da nam odmah prenesete iznos koji dugujete prema gornjem popisu kako bismo izbjegli daljnje troškove i neugodnosti."
MAHNTEXT = MAHNSTUFE & ". UPOZORENJE" ' MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
Case 3 ' Case 3
MahnTEXT_VOR = "Unatoč dvama opomenama, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu." ' MahnTEXT_VOR = "Unatoč dvama opomenama, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti." ' MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
MAHNTEXT = MAHNSTUFE & ". UPOZORENJE" ' MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
Case >= 4 ' Case >= 4
MahnTEXT_VOR = "Unatoč opetovanim podsjetnicima, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu." ' MahnTEXT_VOR = "Unatoč opetovanim podsjetnicima, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti." ' MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
MAHNTEXT = MAHNSTUFE & ". UPOZORENJE" ' MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
End Select ' End Select
Case Else ' Case Else
Select Case MAHNSTUFE ' Select Case MAHNSTUFE
Case -2 ' Case -2
MahnTEXT_VOR = "Subsequent invoices have not yet been paid:" ' MahnTEXT_VOR = "Subsequent invoices have not yet been paid:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "List - Open accounts" ' MAHNTEXT = "List - Open accounts"
Case -1 ' Case -1
MahnTEXT_VOR = "The following invoices have not yet been collected:" ' MahnTEXT_VOR = "The following invoices have not yet been collected:"
MahnTEXT_NACH = "The above amounts will be collected by SEPA direct debit mandate from your specified bank account." ' MahnTEXT_NACH = "The above amounts will be collected by SEPA direct debit mandate from your specified bank account."
MAHNTEXT = "List - Open accounts" ' MAHNTEXT = "List - Open accounts"
Case 0 ' Case 0
MahnTEXT_VOR = "We request that the following invoices be settled:" ' MahnTEXT_VOR = "We request that the following invoices be settled:"
MahnTEXT_NACH = "" ' MahnTEXT_NACH = ""
MAHNTEXT = "REMINDER" ' MAHNTEXT = "REMINDER"
Case 1 ' Case 1
MahnTEXT_VOR = "We request that the following invoices be settled:" ' MahnTEXT_VOR = "We request that the following invoices be settled:"
MahnTEXT_NACH = "We assume that this is due to an organisational oversight. " & vbNewLine & "If your payment has already been sent to us, please consider the reminder as irrelevant." ' MahnTEXT_NACH = "We assume that this is due to an organisational oversight. " & vbNewLine & "If your payment has already been sent to us, please consider the reminder as irrelevant."
MAHNTEXT = "1. REMINDER" ' MAHNTEXT = "1. REMINDER"
Case 2 ' Case 2
MahnTEXT_VOR = "Despite our previous reminder, the listed invoices have still not been settled:" ' MahnTEXT_VOR = "Despite our previous reminder, the listed invoices have still not been settled:"
MahnTEXT_NACH = "We assume that this is due to an organisational oversight, but we must now request you in all certainty to transfer the amount due according to the above list to us immediately in order to avoid further costs and inconvenience." ' MahnTEXT_NACH = "We assume that this is due to an organisational oversight, but we must now request you in all certainty to transfer the amount due according to the above list to us immediately in order to avoid further costs and inconvenience."
MAHNTEXT = MAHNSTUFE & ". REMINDER" ' MAHNTEXT = MAHNSTUFE & ". REMINDER"
Case 3 ' Case 3
MahnTEXT_VOR = "Despite two reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the remittance slip." ' MahnTEXT_VOR = "Despite two reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the remittance slip."
MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice." ' MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
MAHNTEXT = MAHNSTUFE & ". REMINDER" ' MAHNTEXT = MAHNSTUFE & ". REMINDER"
Case >= 4 ' Case >= 4
MahnTEXT_VOR = "Despite several reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the transfer receipt." ' MahnTEXT_VOR = "Despite several reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the transfer receipt."
MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice." ' MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
MAHNTEXT = MAHNSTUFE & ". REMINDER" ' MAHNTEXT = MAHNSTUFE & ". REMINDER"
End Select ' End Select
End Select 'End Select
End Sub End Sub

364
SDL/buchhaltung/rptMahnung.Designer.vb generated
View File

@@ -28,8 +28,8 @@ Partial Public Class rptMahnung
Me.Label19 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label19 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label20 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label20 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label22 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label22 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
@@ -64,13 +64,13 @@ Partial Public Class rptMahnung
Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Land = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Land = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSachbearbeiterTelefon = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblTelefon = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblTelefon = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSachbearbeiterEMail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEmail = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFaxNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFaxNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label25 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAnrede = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -88,7 +88,7 @@ Partial Public Class rptMahnung
Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZwischensumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label23 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label23 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label24 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label24 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -99,14 +99,14 @@ Partial Public Class rptMahnung
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtMahnungstextVOR = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblRgDat = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRgDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFaelligkeit = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFaelligkeit = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblReBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAbfertigungsNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZahlung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAusstand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblMS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -115,8 +115,8 @@ Partial Public Class rptMahnung
CType(Me.Label19, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label19, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label20, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -146,13 +146,13 @@ Partial Public Class rptMahnung
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSachbearbeiterTelefon, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTelefon, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblTelefon, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSachbearbeiterEMail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label25, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnrede, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -161,20 +161,20 @@ Partial Public Class rptMahnung
CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZwischensumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtMahnungstextVOR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRgDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZahlung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAusstand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblMS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -301,6 +301,17 @@ Partial Public Class rptMahnung
Me.Label21.Top = 0! Me.Label21.Top = 0!
Me.Label21.Width = 0.3669996! Me.Label21.Width = 0.3669996!
' '
'TextBox1
'
Me.TextBox1.Height = 0.1570866!
Me.TextBox1.Left = 2.585827!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: normal; text-align: left; text-justify: auto; ddo-c" &
"har-set: 1"
Me.TextBox1.Text = "Abfertigungs Nr."
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 2.431409!
'
'Label22 'Label22
' '
Me.Label22.Height = 0.1568192! Me.Label22.Height = 0.1568192!
@@ -314,17 +325,6 @@ Partial Public Class rptMahnung
Me.Label22.Visible = False Me.Label22.Visible = False
Me.Label22.Width = 0.5239997! Me.Label22.Width = 0.5239997!
' '
'TextBox1
'
Me.TextBox1.Height = 0.1570866!
Me.TextBox1.Left = 2.585827!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: normal; text-align: left; text-justify: auto; ddo-c" &
"har-set: 1"
Me.TextBox1.Text = "Abfertigungs Nr."
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 2.431409!
'
'PageFooter 'PageFooter
' '
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer}) Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer})
@@ -403,7 +403,7 @@ Partial Public Class rptMahnung
' '
'ReportHeader1 'ReportHeader1
' '
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.Line15, Me.lblFirma, Me.lblRechnung_Land, Me.Label3, Me.lblTelefon, Me.Label5, Me.lblEmail, Me.Label1, Me.lblFaxNr, Me.Label25}) Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.Line15, Me.lblFirma, Me.lblRechnung_Land, Me.lblSachbearbeiterTelefon, Me.lblTelefon, Me.lblSachbearbeiterEMail, Me.lblEmail, Me.lblFax, Me.lblFaxNr, Me.lblAnrede})
Me.ReportHeader1.Height = 3.470997! Me.ReportHeader1.Height = 3.470997!
Me.ReportHeader1.Name = "ReportHeader1" Me.ReportHeader1.Name = "ReportHeader1"
' '
@@ -720,17 +720,18 @@ Partial Public Class rptMahnung
Me.lblRechnung_Land.Top = 2.664197! Me.lblRechnung_Land.Top = 2.664197!
Me.lblRechnung_Land.Width = 4.589763! Me.lblRechnung_Land.Width = 4.589763!
' '
'Label3 'lblSachbearbeiterTelefon
' '
Me.Label3.Height = 0.1574803! Me.lblSachbearbeiterTelefon.DataField = ""
Me.Label3.HyperLink = Nothing Me.lblSachbearbeiterTelefon.Height = 0.1574803!
Me.Label3.Left = 5.022282! Me.lblSachbearbeiterTelefon.HyperLink = Nothing
Me.Label3.Name = "Label3" Me.lblSachbearbeiterTelefon.Left = 5.022282!
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblSachbearbeiterTelefon.Name = "lblSachbearbeiterTelefon"
"o-char-set: 1" Me.lblSachbearbeiterTelefon.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; vertical-ali" &
Me.Label3.Text = "Telefon:" "gn: middle; ddo-char-set: 1"
Me.Label3.Top = 2.193134! Me.lblSachbearbeiterTelefon.Text = "Telefon:"
Me.Label3.Width = 0.9884803! Me.lblSachbearbeiterTelefon.Top = 2.193134!
Me.lblSachbearbeiterTelefon.Width = 0.9884803!
' '
'lblTelefon 'lblTelefon
' '
@@ -745,17 +746,18 @@ Partial Public Class rptMahnung
Me.lblTelefon.Top = 2.193701! Me.lblTelefon.Top = 2.193701!
Me.lblTelefon.Width = 1.895268! Me.lblTelefon.Width = 1.895268!
' '
'Label5 'lblSachbearbeiterEMail
' '
Me.Label5.Height = 0.1574803! Me.lblSachbearbeiterEMail.DataField = ""
Me.Label5.HyperLink = Nothing Me.lblSachbearbeiterEMail.Height = 0.1574803!
Me.Label5.Left = 5.022762! Me.lblSachbearbeiterEMail.HyperLink = Nothing
Me.Label5.Name = "Label5" Me.lblSachbearbeiterEMail.Left = 5.022762!
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblSachbearbeiterEMail.Name = "lblSachbearbeiterEMail"
"o-char-set: 1" Me.lblSachbearbeiterEMail.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; vertical-ali" &
Me.Label5.Text = "E-Mail:" "gn: middle; ddo-char-set: 1"
Me.Label5.Top = 2.350134! Me.lblSachbearbeiterEMail.Text = "E-Mail:"
Me.Label5.Width = 0.9884803! Me.lblSachbearbeiterEMail.Top = 2.350134!
Me.lblSachbearbeiterEMail.Width = 0.9884803!
' '
'lblEmail 'lblEmail
' '
@@ -771,17 +773,18 @@ Partial Public Class rptMahnung
Me.lblEmail.Top = 2.350701! Me.lblEmail.Top = 2.350701!
Me.lblEmail.Width = 1.895268! Me.lblEmail.Width = 1.895268!
' '
'Label1 'lblFax
' '
Me.Label1.Height = 0.1574803! Me.lblFax.DataField = ""
Me.Label1.HyperLink = Nothing Me.lblFax.Height = 0.1574803!
Me.Label1.Left = 5.022762! Me.lblFax.HyperLink = Nothing
Me.Label1.Name = "Label1" Me.lblFax.Left = 5.022762!
Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblFax.Name = "lblFax"
"o-char-set: 1" Me.lblFax.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; vertical-ali" &
Me.Label1.Text = "Fax:" "gn: middle; ddo-char-set: 1"
Me.Label1.Top = 2.507134! Me.lblFax.Text = "Fax:"
Me.Label1.Width = 0.9884806! Me.lblFax.Top = 2.507134!
Me.lblFax.Width = 0.9884806!
' '
'lblFaxNr 'lblFaxNr
' '
@@ -796,17 +799,18 @@ Partial Public Class rptMahnung
Me.lblFaxNr.Top = 2.507701! Me.lblFaxNr.Top = 2.507701!
Me.lblFaxNr.Width = 1.895268! Me.lblFaxNr.Width = 1.895268!
' '
'Label25 'lblAnrede
' '
Me.Label25.Height = 0.1771653! Me.lblAnrede.DataField = ""
Me.Label25.HyperLink = Nothing Me.lblAnrede.Height = 0.1771653!
Me.Label25.Left = 0.404433! Me.lblAnrede.HyperLink = Nothing
Me.Label25.Name = "Label25" Me.lblAnrede.Left = 0.404433!
Me.Label25.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: middle; d" & Me.lblAnrede.Name = "lblAnrede"
"do-char-set: 1" Me.lblAnrede.Style = "color: Black; font-size: 10pt; font-weight: normal; text-align: left; vertical-al" &
Me.Label25.Text = "Herr/Frau" "ign: middle; ddo-char-set: 1"
Me.Label25.Top = 2.132866! Me.lblAnrede.Text = "Herr/Frau"
Me.Label25.Width = 4.589763! Me.lblAnrede.Top = 2.132866!
Me.lblAnrede.Width = 4.589763!
' '
'lblUeberschriftRG_GS 'lblUeberschriftRG_GS
' '
@@ -821,7 +825,7 @@ Partial Public Class rptMahnung
' '
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuersatz, Me.txtVermerk, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.Label2, Me.Label23, Me.Label24, Me.Label4, Me.Label6}) Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuersatz, Me.txtVermerk, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.lblZwischensumme, Me.Label23, Me.Label24, Me.Label4, Me.Label6})
Me.ReportFooter1.Height = 1.241811! Me.ReportFooter1.Height = 1.241811!
Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
@@ -854,11 +858,13 @@ Partial Public Class rptMahnung
' '
'lblSummeUeberschrift 'lblSummeUeberschrift
' '
Me.lblSummeUeberschrift.DataField = ""
Me.lblSummeUeberschrift.Height = 0.1771653! Me.lblSummeUeberschrift.Height = 0.1771653!
Me.lblSummeUeberschrift.HyperLink = Nothing Me.lblSummeUeberschrift.HyperLink = Nothing
Me.lblSummeUeberschrift.Left = 3.994324! Me.lblSummeUeberschrift.Left = 3.994324!
Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift" Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift"
Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSummeUeberschrift.Style = "color: Black; font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblSummeUeberschrift.Text = "Gesamtsumme" Me.lblSummeUeberschrift.Text = "Gesamtsumme"
Me.lblSummeUeberschrift.Top = 0.7582361! Me.lblSummeUeberschrift.Top = 0.7582361!
Me.lblSummeUeberschrift.Width = 1.549213! Me.lblSummeUeberschrift.Width = 1.549213!
@@ -889,7 +895,7 @@ Partial Public Class rptMahnung
' '
'Line1 'Line1
' '
Me.Line1.Height = 0.0003936887! Me.Line1.Height = 0.0003937483!
Me.Line1.Left = 6.101314! Me.Line1.Left = 6.101314!
Me.Line1.LineWeight = 2.0! Me.Line1.LineWeight = 2.0!
Me.Line1.Name = "Line1" Me.Line1.Name = "Line1"
@@ -1010,16 +1016,18 @@ Partial Public Class rptMahnung
Me.Line17.Y1 = 0! Me.Line17.Y1 = 0!
Me.Line17.Y2 = 0.1035433! Me.Line17.Y2 = 0.1035433!
' '
'Label2 'lblZwischensumme
' '
Me.Label2.Height = 0.1574803! Me.lblZwischensumme.DataField = ""
Me.Label2.HyperLink = Nothing Me.lblZwischensumme.Height = 0.1574803!
Me.Label2.Left = 3.076284! Me.lblZwischensumme.HyperLink = Nothing
Me.Label2.Name = "Label2" Me.lblZwischensumme.Left = 3.076284!
Me.Label2.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblZwischensumme.Name = "lblZwischensumme"
Me.Label2.Text = "Zwischensumme" Me.lblZwischensumme.Style = "color: Black; font-size: 9pt; font-weight: normal; text-align: right; ddo-char-se" &
Me.Label2.Top = 0.1791339! "t: 1"
Me.Label2.Width = 1.549212! Me.lblZwischensumme.Text = "Zwischensumme"
Me.lblZwischensumme.Top = 0.1791339!
Me.lblZwischensumme.Width = 1.549212!
' '
'Label23 'Label23
' '
@@ -1072,7 +1080,7 @@ Partial Public Class rptMahnung
' '
'GroupHeader4 'GroupHeader4
' '
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.Line4, Me.Line12, Me.Line13, Me.Line16, Me.lblUeberschriftRG_GS, Me.TextBox2, Me.lblRgDat, Me.lblFaelligkeit, Me.Label10, Me.Label11, Me.Label12, Me.Label13, Me.Label14, Me.Label22}) Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.Line4, Me.Line12, Me.Line13, Me.Line16, Me.lblUeberschriftRG_GS, Me.txtMahnungstextVOR, Me.lblRgDat, Me.lblFaelligkeit, Me.lblReBetrag, Me.lblAbfertigungsNr, Me.lblZahlung, Me.lblAusstand, Me.lblMS, Me.Label22})
Me.GroupHeader4.Height = 1.032275! Me.GroupHeader4.Height = 1.032275!
Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4" Me.GroupHeader4.Name = "GroupHeader4"
@@ -1122,7 +1130,7 @@ Partial Public Class rptMahnung
Me.Line13.LineWeight = 1.0! Me.Line13.LineWeight = 1.0!
Me.Line13.Name = "Line13" Me.Line13.Name = "Line13"
Me.Line13.Top = 0.761! Me.Line13.Top = 0.761!
Me.Line13.Width = 0.00157547! Me.Line13.Width = 0.001574993!
Me.Line13.X1 = 7.486614! Me.Line13.X1 = 7.486614!
Me.Line13.X2 = 7.488189! Me.Line13.X2 = 7.488189!
Me.Line13.Y1 = 0.761! Me.Line13.Y1 = 0.761!
@@ -1141,16 +1149,19 @@ Partial Public Class rptMahnung
Me.Line16.Y1 = 0.761! Me.Line16.Y1 = 0.761!
Me.Line16.Y2 = 0.761! Me.Line16.Y2 = 0.761!
' '
'TextBox2 'txtMahnungstextVOR
' '
Me.TextBox2.Height = 0.262! Me.txtMahnungstextVOR.DataField = ""
Me.TextBox2.Left = 0.4040001! Me.txtMahnungstextVOR.DistinctField = ""
Me.TextBox2.Name = "TextBox2" Me.txtMahnungstextVOR.Height = 0.262!
Me.TextBox2.Style = "font-size: 10pt; font-weight: normal; text-align: left; text-justify: auto; ddo-c" & Me.txtMahnungstextVOR.Left = 0.4040001!
"har-set: 1" Me.txtMahnungstextVOR.Name = "txtMahnungstextVOR"
Me.TextBox2.Text = "Wir ersuchen um Ausgleich der nachfolgenden Rechnungen:" Me.txtMahnungstextVOR.Style = "color: Black; font-size: 10pt; font-weight: normal; text-align: left; text-justif" &
Me.TextBox2.Top = 0.399! "y: auto; ddo-char-set: 1"
Me.TextBox2.Width = 7.097969! Me.txtMahnungstextVOR.SummaryGroup = ""
Me.txtMahnungstextVOR.Text = "Wir ersuchen um Ausgleich der nachfolgenden Rechnungen:"
Me.txtMahnungstextVOR.Top = 0.399!
Me.txtMahnungstextVOR.Width = 7.097969!
' '
'lblRgDat 'lblRgDat
' '
@@ -1176,67 +1187,72 @@ Partial Public Class rptMahnung
Me.lblFaelligkeit.Top = 0.791! Me.lblFaelligkeit.Top = 0.791!
Me.lblFaelligkeit.Width = 0.6614173! Me.lblFaelligkeit.Width = 0.6614173!
' '
'Label10 'lblReBetrag
' '
Me.Label10.Height = 0.1807087! Me.lblReBetrag.DataField = ""
Me.Label10.HyperLink = Nothing Me.lblReBetrag.Height = 0.1807087!
Me.Label10.Left = 4.999308! Me.lblReBetrag.HyperLink = Nothing
Me.Label10.Name = "Label10" Me.lblReBetrag.Left = 4.999308!
Me.Label10.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) Me.lblReBetrag.Name = "lblReBetrag"
Me.Label10.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
"r-set: 1" Me.lblReBetrag.Style = "color: Black; font-size: 9pt; font-weight: bold; text-align: right; text-justify:" &
Me.Label10.Text = "Rg.Betrag" " auto; ddo-char-set: 1"
Me.Label10.Top = 0.7909449! Me.lblReBetrag.Text = "Belegnr."
Me.Label10.Width = 0.6889764! Me.lblReBetrag.Top = 0.7909449!
Me.lblReBetrag.Width = 0.6889764!
' '
'Label11 'lblAbfertigungsNr
' '
Me.Label11.Height = 0.1810001! Me.lblAbfertigungsNr.DataField = ""
Me.Label11.HyperLink = Nothing Me.lblAbfertigungsNr.Height = 0.1810001!
Me.Label11.Left = 2.544576! Me.lblAbfertigungsNr.HyperLink = Nothing
Me.Label11.Name = "Label11" Me.lblAbfertigungsNr.Left = 2.544576!
Me.Label11.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lblAbfertigungsNr.Name = "lblAbfertigungsNr"
Me.Label11.Style = "font-size: 9pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.lblAbfertigungsNr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
"-set: 1" Me.lblAbfertigungsNr.Style = "color: Black; font-size: 9pt; font-weight: bold; text-align: left; text-justify: " &
Me.Label11.Text = "Abfertigungs-Nr." "auto; ddo-char-set: 1"
Me.Label11.Top = 0.791! Me.lblAbfertigungsNr.Text = "Abfertigungs-Nr."
Me.Label11.Width = 2.472747! Me.lblAbfertigungsNr.Top = 0.791!
Me.lblAbfertigungsNr.Width = 2.472747!
' '
'Label12 'lblZahlung
' '
Me.Label12.Height = 0.1807087! Me.lblZahlung.DataField = ""
Me.Label12.HyperLink = Nothing Me.lblZahlung.Height = 0.1807087!
Me.Label12.Left = 5.685528! Me.lblZahlung.HyperLink = Nothing
Me.Label12.Name = "Label12" Me.lblZahlung.Left = 5.685528!
Me.Label12.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblZahlung.Name = "lblZahlung"
"r-set: 1" Me.lblZahlung.Style = "color: Black; font-size: 9pt; font-weight: bold; text-align: right; text-justify:" &
Me.Label12.Text = "Zahlungen" " auto; ddo-char-set: 1"
Me.Label12.Top = 0.7909449! Me.lblZahlung.Text = "Zahlungen"
Me.Label12.Width = 0.6889764! Me.lblZahlung.Top = 0.7909449!
Me.lblZahlung.Width = 0.6889764!
' '
'Label13 'lblAusstand
' '
Me.Label13.Height = 0.1808192! Me.lblAusstand.DataField = ""
Me.Label13.HyperLink = Nothing Me.lblAusstand.Height = 0.1808192!
Me.Label13.Left = 6.390852! Me.lblAusstand.HyperLink = Nothing
Me.Label13.Name = "Label13" Me.lblAusstand.Left = 6.390852!
Me.Label13.Style = "font-size: 9pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & Me.lblAusstand.Name = "lblAusstand"
"ar-set: 1" Me.lblAusstand.Style = "color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-justify" &
Me.Label13.Text = "Ausstand" ": auto; ddo-char-set: 1"
Me.Label13.Top = 0.791! Me.lblAusstand.Text = "Ausstand"
Me.Label13.Width = 0.7354794! Me.lblAusstand.Top = 0.791!
Me.lblAusstand.Width = 0.7354794!
' '
'Label14 'lblMS
' '
Me.Label14.Height = 0.1808192! Me.lblMS.DataField = ""
Me.Label14.HyperLink = Nothing Me.lblMS.Height = 0.1808192!
Me.Label14.Left = 6.803056! Me.lblMS.HyperLink = Nothing
Me.Label14.Name = "Label14" Me.lblMS.Left = 6.803056!
Me.Label14.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblMS.Name = "lblMS"
"r-set: 1" Me.lblMS.Style = "color: Black; font-size: 9pt; font-weight: bold; text-align: right; text-justify:" &
Me.Label14.Text = "MS" " auto; ddo-char-set: 1"
Me.Label14.Top = 0.7909449! Me.lblMS.Text = "MS"
Me.Label14.Width = 0.6699996! Me.lblMS.Top = 0.7909449!
Me.lblMS.Width = 0.6699996!
' '
'GroupFooter4 'GroupFooter4
' '
@@ -1272,8 +1288,8 @@ Partial Public Class rptMahnung
CType(Me.Label19, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label19, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label20, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1303,13 +1319,13 @@ Partial Public Class rptMahnung
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSachbearbeiterTelefon, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTelefon, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblTelefon, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSachbearbeiterEMail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label25, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnrede, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1318,20 +1334,20 @@ Partial Public Class rptMahnung
CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZwischensumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label23, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label24, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtMahnungstextVOR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRgDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZahlung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAusstand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblMS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub
@@ -1396,21 +1412,21 @@ Partial Public Class rptMahnung
Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSachbearbeiterTelefon As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblTelefon As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblTelefon As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSachbearbeiterEMail As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEmail As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblEmail As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblFax As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFaxNr As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblFaxNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtMahnungstextVOR As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblZwischensumme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblRgDat As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblRgDat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFaelligkeit As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblFaelligkeit As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblReBetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblAbfertigungsNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblZahlung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblAusstand As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblMS As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label23 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label23 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label24 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label24 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1420,7 +1436,7 @@ Partial Public Class rptMahnung
Public WithEvents Label20 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label20 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label22 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label22 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label25 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblAnrede As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label

15
SDL/buchhaltung/rptMahnung.vb
View File

@@ -3,25 +3,30 @@ Imports GrapeCity.ActiveReports.Document
Public Class rptMahnung Public Class rptMahnung
Dim _LAN = "" Dim _LAN = ""
Dim _OPTION = ""
Dim _FIRMAID As Integer = -1
Sub New() Sub New()
InitializeComponent() InitializeComponent()
Me.Document.Printer.PrinterName = "" Me.Document.Printer.PrinterName = ""
End Sub End Sub
Sub New(_LAN) Sub New(_LAN, _OPTION, _FIRMAID)
' Dieser Aufruf ist f<>r den Designer erforderlich. ' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent() InitializeComponent()
Me.Document.Printer.PrinterName = "" Me.Document.Printer.PrinterName = ""
Me._LAN = _LAN Me._LAN = _LAN
Me._OPTION = _OPTION
Me._FIRMAID = _FIRMAID
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Me.Document.Printer.PrinterName = "" Me.Document.Printer.PrinterName = ""
If _LAN.replace("DE", "") <> "" Then If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptMahnung") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptMahnung") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptMahnung") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptMahnung") SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
End If End If
End Sub End Sub

31
SDL/cProgramFunctions.vb
View File

@@ -1364,7 +1364,7 @@ Public Class cProgramFunctions
End Sub End Sub
Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String, reportName As String) Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String, reportName As String, Optional _option As String = "", Optional _firmenid As Integer = -1)
If lan = "" Then Exit Sub If lan = "" Then Exit Sub
If lan = "DE" Then Exit Sub If lan = "DE" Then Exit Sub
'o... Form 'o... Form
@@ -1378,8 +1378,37 @@ Public Class cProgramFunctions
Dim found As GrapeCity.ActiveReports.SectionReportModel.ARControl = Nothing Dim found As GrapeCity.ActiveReports.SectionReportModel.ARControl = Nothing
For Each search As GrapeCity.ActiveReports.SectionReportModel.ARControl In o For Each search As GrapeCity.ActiveReports.SectionReportModel.ARControl In o
If search.Name = TXT.trs_control Then If search.Name = TXT.trs_control Then
If Not IsDBNull(TXT.trs_FirmaID) AndAlso TXT.trs_FirmaID > 0 Then
If TXT.trs_FirmaID = _firmenid Then
If IsDBNull(TXT.trs_Option) AndAlso TXT.trs_Option = "" Then
found = search
Else
If _option = TXT.trs_Option Then
found = search found = search
End If End If
End If
End If
Else
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
found = search
Else
If _option = TXT.trs_Option Then
found = search
End If
End If
End If
End If
Next Next
' MsgBox(TXT.trs_control) ' MsgBox(TXT.trs_control)

2
SDL/frmMain.vb
View File

@@ -335,7 +335,7 @@ Public Class frmMain
Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick
UpdateUpdater.Enabled = False UpdateUpdater.Enabled = False
Try Try
Dim aktVersion = "4.0" ' Aktuelle Updater Version Dim aktVersion = "5.0" ' Aktuelle Updater Version
Dim F = "\\share01\Programme\SDL_install\" Dim F = "\\share01\Programme\SDL_install\"
Dim doUpdaterUpdate = False Dim doUpdaterUpdate = False
If File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt... If File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...

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

@@ -40,7 +40,6 @@ Partial Class frmKundenblatt
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt))
Me.pnlInfo = New System.Windows.Forms.Panel() Me.pnlInfo = New System.Windows.Forms.Panel()
Me.txtInfotext = New System.Windows.Forms.Label() Me.txtInfotext = New System.Windows.Forms.Label()
@@ -275,7 +274,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 1084) Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 897)
Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten" Me.tbFirmendaten.Text = "Firmendaten"
' '
@@ -285,7 +284,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1624, 1078) Me.Panel4.Size = New System.Drawing.Size(1624, 891)
Me.Panel4.TabIndex = 0 Me.Panel4.TabIndex = 0
' '
'UsrcntlKundeBearbeitenFull1 'UsrcntlKundeBearbeitenFull1
@@ -295,6 +294,16 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 891)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
'
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 1078) Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 1078)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
' '
@@ -303,7 +312,7 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
Me.tbcntrMain.Controls.Add(Me.tbAllgemein) Me.tbcntrMain.Controls.Add(Me.tbAllgemein)
Me.tbcntrMain.Controls.Add(Me.tbFirmendaten) Me.tbcntrMain.Controls.Add(Me.tbFirmendaten)
Me.tbcntrMain.Controls.Add(Me.tbZoll) Me.tbcntrMain.Size = New System.Drawing.Size(1638, 943)
Me.tbcntrMain.Controls.Add(Me.tbMdm) Me.tbcntrMain.Controls.Add(Me.tbMdm)
Me.tbcntrMain.Controls.Add(Me.tbOfferte) Me.tbcntrMain.Controls.Add(Me.tbOfferte)
Me.tbcntrMain.Controls.Add(Me.tbUSTV) Me.tbcntrMain.Controls.Add(Me.tbUSTV)
@@ -343,7 +352,7 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Controls.Add(Me.lblFirmenname1) Me.tbAllgemein.Controls.Add(Me.lblFirmenname1)
Me.tbAllgemein.Controls.Add(Me.PictureBox4) Me.tbAllgemein.Controls.Add(Me.PictureBox4)
Me.tbAllgemein.Controls.Add(Me.GroupBox5) Me.tbAllgemein.Controls.Add(Me.GroupBox5)
Me.tbAllgemein.Controls.Add(Me.PictureBox3) Me.tbAllgemein.Size = New System.Drawing.Size(1630, 914)
Me.tbAllgemein.Controls.Add(Me.dgvSperrliste) Me.tbAllgemein.Controls.Add(Me.dgvSperrliste)
Me.tbAllgemein.Controls.Add(Me.PictureBox2) Me.tbAllgemein.Controls.Add(Me.PictureBox2)
Me.tbAllgemein.Controls.Add(Me.PictureBox1) Me.tbAllgemein.Controls.Add(Me.PictureBox1)
@@ -442,7 +451,7 @@ Partial Class frmKundenblatt
Me.dgvOffenePosten.MultiSelect = False Me.dgvOffenePosten.MultiSelect = False
Me.dgvOffenePosten.Name = "dgvOffenePosten" Me.dgvOffenePosten.Name = "dgvOffenePosten"
Me.dgvOffenePosten.ReadOnly = True Me.dgvOffenePosten.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 315)
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
@@ -781,15 +790,8 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvSperrliste.Size = New System.Drawing.Size(432, 870)
DataGridViewCellStyle9.ForeColor = System.Drawing.Color.Black
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle9
Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36)
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.ReadOnly = True
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
@@ -853,7 +855,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll" Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1630, 1084) Me.tbZoll.Size = New System.Drawing.Size(1630, 897)
Me.tbZoll.TabIndex = 9 Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL" Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True Me.tbZoll.UseVisualStyleBackColor = True
@@ -865,7 +867,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0 Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 1078) Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 891)
Me.tbcntrZOLL.TabIndex = 0 Me.tbcntrZOLL.TabIndex = 0
' '
'tabZoll_Artikel 'tabZoll_Artikel
@@ -873,7 +875,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 1052) Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 865)
Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -884,7 +886,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm" Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
Me.tbMdm.Size = New System.Drawing.Size(1630, 1084) Me.tbMdm.Size = New System.Drawing.Size(1630, 897)
Me.tbMdm.TabIndex = 10 Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM" Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True Me.tbMdm.UseVisualStyleBackColor = True
@@ -902,7 +904,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0 Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 1078) Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 891)
Me.tbcntrMDM.TabIndex = 0 Me.tbcntrMDM.TabIndex = 0
' '
'tbSDL 'tbSDL
@@ -914,7 +916,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL" Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1616, 1052) Me.tbSDL.Size = New System.Drawing.Size(1616, 865)
Me.tbSDL.TabIndex = 5 Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True Me.tbSDL.UseVisualStyleBackColor = True
@@ -923,40 +925,40 @@ Partial Class frmKundenblatt
' '
Me.dgvSDLLeistungenFull.AllowUserToAddRows = False Me.dgvSDLLeistungenFull.AllowUserToAddRows = False
Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle12
Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle13
Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50) Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50)
Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull" Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull"
Me.dgvSDLLeistungenFull.ReadOnly = True Me.dgvSDLLeistungenFull.ReadOnly = True
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 856) Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 669)
Me.dgvSDLLeistungenFull.TabIndex = 5 Me.dgvSDLLeistungenFull.TabIndex = 5
' '
'Panel6 'Panel6
@@ -1060,7 +1062,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 906) Me.Panel5.Location = New System.Drawing.Point(3, 719)
Me.Panel5.Name = "Panel5" Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.Size = New System.Drawing.Size(1610, 143)
Me.Panel5.TabIndex = 177 Me.Panel5.TabIndex = 177
@@ -1498,38 +1500,38 @@ Partial Class frmKundenblatt
' '
Me.dgvLKW.AllowUserToAddRows = False Me.dgvLKW.AllowUserToAddRows = False
Me.dgvLKW.AllowUserToDeleteRows = False Me.dgvLKW.AllowUserToDeleteRows = False
DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15 Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.dgvLKW.BackgroundColor = System.Drawing.Color.White Me.dgvLKW.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16 Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle16
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle17
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvLKW.Location = New System.Drawing.Point(0, 62) Me.dgvLKW.Location = New System.Drawing.Point(0, 62)
Me.dgvLKW.Name = "dgvLKW" Me.dgvLKW.Name = "dgvLKW"
Me.dgvLKW.ReadOnly = True Me.dgvLKW.ReadOnly = True
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle18 Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.RowHeadersVisible = False
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
@@ -1919,12 +1921,22 @@ Partial Class frmKundenblatt
Me.tbBesuchsberichte.UseVisualStyleBackColor = True Me.tbBesuchsberichte.UseVisualStyleBackColor = True
' '
'tbOfferte 'tbOfferte
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 897)
Me.UsrCntlOfferte1.TabIndex = 0
'
' '
Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1) Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1)
Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte" Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1630, 1084) Me.tbOfferte.Size = New System.Drawing.Size(1630, 897)
Me.tbOfferte.TabIndex = 11 Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte" Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True Me.tbOfferte.UseVisualStyleBackColor = True
@@ -1944,7 +1956,7 @@ Partial Class frmKundenblatt
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV" Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1630, 1084) Me.tbUSTV.Size = New System.Drawing.Size(1630, 897)
Me.tbUSTV.TabIndex = 12 Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV" Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1958,7 +1970,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0 Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 1084) Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 897)
Me.tbcntrUSTV.TabIndex = 1 Me.tbcntrUSTV.TabIndex = 1
' '
'tbUSTVDokumente 'tbUSTVDokumente
@@ -1971,7 +1983,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente" Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 1058) Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 871)
Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2344,7 +2356,7 @@ Partial Class frmKundenblatt
' '
Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung"
Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22)
Me.tbiKartenverwaltung.Text = "Kartenverwaltung" Me.ClientSize = New System.Drawing.Size(1180, 1072)
' '
'tbiLKW 'tbiLKW
' '

1
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -779,6 +779,7 @@ Public Class usrcntlKundeBearbeitenFull
cboRechnungSprache.Items.Clear() cboRechnungSprache.Items.Clear()
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO"))
cboRechnungSprache.changeItem(0) cboRechnungSprache.changeItem(0)
cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True) cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)

57
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -362,11 +362,36 @@ Public Class frmMDMDatenverarbetiung
Dim displayFilter = False Dim displayFilter = False
Dim sqlstr As String = "" Dim sqlstr As String = ""
sqlstr &= "SELECT Kundennummer, KundenNr, [Name 1], LandKz, Ort, Lieferland, Kartennummer, Sum(Gesamtbetrag_Netto_in_Darstellwährung) AS SummevonGesamtbetrag_Netto_in_Darstellwährung, Sum(Gesamtbetrag_Brutto_in_Darstellwährung) AS SummevonGesamtbetrag_Brutto_in_Darstellwährung from ( sqlstr &= "SELECT Kundennummer,
SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Adressen.UTAExportCSV, Adressen.Rechnungsdruck, Offertenpositionen.KundenNr, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.* KundenNr,
[Name 1],
LandKz,
Ort,
Lieferland,
Kartennummer,
Sum(Gesamtbetrag_Netto_in_Darstellwährung) AS SummevonGesamtbetrag_Netto_in_Darstellwährung,
Sum(Gesamtbetrag_Brutto_in_Darstellwährung) AS SummevonGesamtbetrag_Brutto_in_Darstellwährung from (
SELECT Adressen.AdressenNr,
Adressen.[Name 1],
Adressen.LandKz,
Adressen.Ort,
Adressen.UTAExportCSV,
Adressen.Rechnungsdruck,
Offertenpositionen.KundenNr,
Offertenpositionen.OffertenNr,
Offertenpositionen.LeistungsNr,
Offertenpositionen.LeistungsBez,
tblUTAFakturierwarenarten.Warenart,
tblUTAImport.*
FROM tblUTAFakturierwarenarten FROM tblUTAFakturierwarenarten
INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer) INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr) INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer)
AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart) as temp INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr)
AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr)
AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland)
AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)
as temp
where temp.abgerechnet <> 1
GROUP BY Kundennummer, KundenNr, [Name 1], LandKz, Ort, Lieferland, Kartennummer" GROUP BY Kundennummer, KundenNr, [Name 1], LandKz, Ort, Lieferland, Kartennummer"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
@@ -624,22 +649,34 @@ Public Class frmMDMDatenverarbetiung
'Exit Sub 'Exit Sub
'MsgBox(.sql) 'MsgBox(.sql)
.SET_SQL(" SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort,Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.Fakturierwarenart,sum(tblUTAImport.Gesamtbetrag_Netto_in_Lieferlandwährung) as Netto ,sum(tblUTAImport.Gesamtbetrag_Brutto_in_Lieferlandwährung) as Brutto .SET_SQL("SELECT Kundennummer, KundenNr, [Name 1], LandKz, Ort, /*Lieferland, Kartennummer,*/ Sum(Gesamtbetrag_Netto_in_Darstellwährung) AS Netto, Sum(Gesamtbetrag_Brutto_in_Darstellwährung) AS Brutto
from (
SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Adressen.UTAExportCSV, Adressen.Rechnungsdruck, Offertenpositionen.KundenNr, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.*
FROM tblUTAFakturierwarenarten FROM tblUTAFakturierwarenarten
INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer) INNER JOIN (((Adressen
INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer)
INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr) INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr)
where abgerechnet <> 1 AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr)
group by Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart,tblUTAImport.Fakturierwarenart ", "FMZOLL") AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland)
AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart))
ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart) as temp
where temp.abgerechnet <> 1
GROUP BY Kundennummer, KundenNr, [Name 1], LandKz, Ort", "FMZOLL")
.LOAD() .LOAD()
'MsgBox(.GET_SQL()) 'MsgBox(.GET_SQL())
If .Columns.Count > 0 Then If .Columns.Count > 0 Then
.Columns("AdressenNr").HeaderText = "KdNr" .Columns("KundenNr").HeaderText = "KdNr"
.Columns("Name 1").HeaderText = "Kunde" .Columns("Name 1").HeaderText = "Kunde"
.Columns("LandKz").Width = 75
.Columns("LandKz").HeaderText = "Land" .Columns("LandKz").HeaderText = "Land"
.Columns("Ort").HeaderText = "Ort"
.Columns("Ort").Width = 100
'.Columns("Lieferland").HeaderText = "Land"
.Columns("Name 1").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Name 1").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("VERAGLeistungsNr").ReadOnly = False '.Columns("VERAGLeistungsNr").ReadOnly = False
'.Columns("VERAGKdNr").ReadOnly = False '.Columns("VERAGKdNr").ReadOnly = False

76
SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_divers.vb
View File

@@ -39,9 +39,9 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
Case "UTA" Case "UTA"
Button6.Text = "Kundennummern" Button6.Text = "fehlende KdNr"
Button2.Text = "Fakturierwarenart" Button2.Text = "fehlende Fakt.warenart"
Button1.Text = "Offertenpositionen" Button1.Text = "fehlende Offertenpos."
Case "MSE" Case "MSE"
@@ -302,14 +302,14 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
Case "KDNR" Case "KDNR"
sqlstr = "SELECT tblUTAImport.Kundennummer sqlstr = "SELECT tblUTAImport.Kundennummer as 'fehlende UTA-Kundennummer'
FROM tblUTAImport LEFT JOIN Adressen ON tblUTAImport.Kundennummer = Adressen.UTAKundenNr FROM tblUTAImport LEFT JOIN Adressen ON tblUTAImport.Kundennummer = Adressen.UTAKundenNr
GROUP BY tblUTAImport.Kundennummer, Adressen.UTAKundenNr GROUP BY tblUTAImport.Kundennummer, Adressen.UTAKundenNr
HAVING (((Adressen.UTAKundenNr) Is Null))" HAVING (((Adressen.UTAKundenNr) Is Null))"
Case "FKWA" Case "FKWA"
sqlstr = "SELECT tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland sqlstr = "SELECT tblUTAImport.Fakturierwarenart as Fakturierwarenart, tblUTAImport.Lieferland as Lieferland
FROM tblUTAImport LEFT JOIN tblUTALeistungen ON (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) FROM tblUTAImport LEFT JOIN tblUTALeistungen ON (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland)
GROUP BY tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTALeistungen.Fakturierwarenart, tblUTALeistungen.Lieferland GROUP BY tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTALeistungen.Fakturierwarenart, tblUTALeistungen.Lieferland
HAVING (((tblUTALeistungen.Fakturierwarenart) Is Null) AND ((tblUTALeistungen.Lieferland) Is Null))" HAVING (((tblUTALeistungen.Fakturierwarenart) Is Null) AND ((tblUTALeistungen.Lieferland) Is Null))"
@@ -334,52 +334,54 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
End If End If
Dim rpt As New rptPLOSE_LaenderGesamt cProgramFunctions.genExcelCSVFromDT(dt, True)
rpt.DataSource = dt
Dim sum = 0 'Dim rpt As New rptPLOSE_LaenderGesamt
' rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text 'rpt.DataSource = dt
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
'Dim cnt As Integer = 0 'Dim sum = 0
rpt.lblDat.Text = Now.ToLongDateString '' rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
'rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
''rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
''Dim cnt As Integer = 0
'rpt.lblDat.Text = Now.ToLongDateString
'Dim sumPreis As Double = 0 ''Dim sumPreis As Double = 0
'Dim sumNetto As Double = 0 ''Dim sumNetto As Double = 0
'Dim sumMWST As Double = 0 ''Dim sumMWST As Double = 0
'Dim sumBrutto As Double = 0 ''Dim sumBrutto As Double = 0
'Dim sumBruttoAlleLeistungen As Double = 0 ''Dim sumBruttoAlleLeistungen As Double = 0
'Dim sumMenge As Double = 0 ''Dim sumMenge As Double = 0
'AddHandler rpt.Detail.Format, Sub() ''AddHandler rpt.Detail.Format, Sub()
' rpt.lblLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "") '' rpt.lblLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "")
' rpt.lblEU.Text = SQL.isDbnullEmpty(rpt.Fields.Item("EU").Value, "") '' rpt.lblEU.Text = SQL.isDbnullEmpty(rpt.Fields.Item("EU").Value, "")
' rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 2, "") '' rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 2, "")
' rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 2, "") '' rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 2, "")
' rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "") '' rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "")
' sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 4, 0) '' sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 4, 0)
' sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 4, 0) '' sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 4, 0)
' sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0) '' sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0)
' End Sub '' End Sub
'AddHandler rpt.ReportFooter1.Format, Sub() ''AddHandler rpt.ReportFooter1.Format, Sub()
' rpt.lblSumNetto.Text = sumNetto.ToString("N2") '' rpt.lblSumNetto.Text = sumNetto.ToString("N2")
' rpt.lblSumMwst.Text = sumMWST.ToString("N2") '' rpt.lblSumMwst.Text = sumMWST.ToString("N2")
' rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") '' rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
' End Sub '' End Sub
print.Viewer.LoadDocument(rpt) 'print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous 'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show() 'print.Show()
End Sub End Sub

2
SDLUPDATER/App.config
View File

@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup> </startup>
<connectionStrings> <connectionStrings>
<add name="DefaultConnection" connectionString="Data Source = |SQL/CE|"/> <add name="DefaultConnection" connectionString="Data Source = |SQL/CE|"/>

4
SDLUPDATER/My Project/Application.Designer.vb generated
View File

@@ -14,8 +14,8 @@ Option Explicit On
Namespace My Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
' '

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

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

6
SDLUPDATER/My Project/Settings.Designer.vb generated
View File

@@ -15,21 +15,21 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings" #Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If

10
SDLUPDATER/SDLUPDATER.vbproj
View File

@@ -11,8 +11,9 @@
<AssemblyName>SDLUPDATER</AssemblyName> <AssemblyName>SDLUPDATER</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion> <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkProfile /> <TargetFrameworkProfile />
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl> <PublishUrl>publish\</PublishUrl>
<Install>true</Install> <Install>true</Install>
<InstallFrom>Disk</InstallFrom> <InstallFrom>Disk</InstallFrom>
@@ -25,7 +26,6 @@
<MapFileExtensions>true</MapFileExtensions> <MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision> <ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion> <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust> <UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled> <BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup> </PropertyGroup>
@@ -95,6 +95,7 @@
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon> <DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile> </Compile>
<Compile Include="My Project\Resources.Designer.vb"> <Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
@@ -106,6 +107,7 @@
<DependentUpon>Settings.settings</DependentUpon> <DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput> <DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile> </Compile>
<Compile Include="cProgrammeUpdate.vb" />
<Compile Include="UPDATERfrm.Designer.vb"> <Compile Include="UPDATERfrm.Designer.vb">
<DependentUpon>UPDATERfrm.vb</DependentUpon> <DependentUpon>UPDATERfrm.vb</DependentUpon>
</Compile> </Compile>
@@ -167,10 +169,6 @@
<Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project> <Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project>
<Name>Parkzeit</Name> <Name>Parkzeit</Name>
</ProjectReference> </ProjectReference>
<ProjectReference Include="..\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.

34
SDLUPDATER/UPDATERfrm.vb
View File

@@ -1,5 +1,6 @@
Public Class UPDATERfrm Public Class UPDATERfrm
Dim CopyIncremental = True
Private Sub UPDATERfrm_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub UPDATERfrm_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub End Sub
@@ -17,15 +18,26 @@
' Dim F As String = "\\192.168.0.90\f\Programme\SDL\" 'DEVELOPER ' Dim F As String = "\\192.168.0.90\f\Programme\SDL\" 'DEVELOPER
' Dim F As String = "\\172.16.0.99\Daten\Programme\SDL\" ' ATILLA ' Dim F As String = "\\172.16.0.99\Daten\Programme\SDL\" ' ATILLA
Public Sub Main() Public Sub Main()
Dim PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
PARAM = parameter(1)
End If
If PARAM = "full" Then
CopyIncremental = False
End If
'Falls Settings existiert, wird der Pfad daraus verwendet. 'Falls Settings existiert, wird der Pfad daraus verwendet.
F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "SDLUPDATER_Settings.txt") F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "SDLUPDATER_Settings.txt")
If Not System.IO.Directory.Exists(F) Then If Not System.IO.Directory.Exists(F) Then
MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR") MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
Environment.Exit(0) Environment.Exit(0)
End If End If
writeLine(richtextbox, "3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...") writeLine(RichTextBox, "3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...")
Threading.Thread.Sleep(3000) 'Falls Programm gerade am Beenden Threading.Thread.Sleep(3000) 'Falls Programm gerade am Beenden
writeLine(richtextbox, "Starte Update...") writeLine(RichTextBox, "Starte Update...")
' If Not My.Computer.FileSystem.DirectoryExists(F) Then ' If Not My.Computer.FileSystem.DirectoryExists(F) Then
'MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR") 'MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR")
' Else ' Else
@@ -37,16 +49,22 @@
MsgBox("ERROR_UPDATE_06: SDL.exe konnte nicht gelöscht werden. Das Programm wird evtl. noch ausgeführt.", MsgBoxStyle.Critical, "ERROR") MsgBox("ERROR_UPDATE_06: SDL.exe konnte nicht gelöscht werden. Das Programm wird evtl. noch ausgeführt.", MsgBoxStyle.Critical, "ERROR")
Environment.Exit(0) Environment.Exit(0)
End If End If
If CopyIncremental Then 'CopyIncremental
cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"SDLUPDATER", "NOT_DEL_"})
Else
delFiles() delFiles()
FileCopier() FileCopier()
End If
If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "SDL.exe") Then If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "SDL.exe") Then
MsgBox("ERROR_UPDATE_03: SDL.exe konnte nicht gestartet werden.", MsgBoxStyle.Critical, "ERROR") MsgBox("ERROR_UPDATE_03: SDL.exe konnte nicht gestartet werden.", MsgBoxStyle.Critical, "ERROR")
End If End If
If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp") Then If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp") Then '
System.IO.File.Create(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp") System.IO.File.Create(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp")
End If End If
writeLine(richtextbox, "Erfolgreich abgeschlossen...") writeLine(RichTextBox, "Erfolgreich abgeschlossen...")
Process.Start("SDL.exe") Process.Start("SDL.exe")
Environment.Exit(0) Environment.Exit(0)
End If End If
@@ -196,13 +214,13 @@
' Quelldatei ' Quelldatei
' Using nutzen ' Using nutzen
fsmsource = New IO.FileStream(SourceFile.FullName, _ fsmsource = New IO.FileStream(SourceFile.FullName,
IO.FileMode.Open, _ IO.FileMode.Open,
IO.FileAccess.Read, IO.FileShare.Read) IO.FileAccess.Read, IO.FileShare.Read)
' Zieldatei ' Zieldatei
fsmtarget = New IO.FileStream(IO.Path.Combine(TargetDir, _ fsmtarget = New IO.FileStream(IO.Path.Combine(TargetDir,
SourceFile.Name), _ SourceFile.Name),
IO.FileMode.OpenOrCreate, IO.FileAccess.Write) IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
' Daten nach und nach einlesen und im Zielstream wieder ' Daten nach und nach einlesen und im Zielstream wieder

215
SDLUPDATER/cProgrammeUpdate.vb Normal file
View File

@@ -0,0 +1,215 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cProgrammeUpdate
Property pud_progId As Object = Nothing
Property pud_codename As String
Property pud_version As String
Property pud_fileName As String
Property pud_filePathFolder As Object = Nothing
Property pud_datum As Date = Now
Property pud_file_Verion As String
Property pud_file_Date As Date
Property pud_file_Size As Integer
Shared Function getParameterList(UD As cProgrammeUpdate) As List(Of SQLVariable)
Dim list As New List(Of SQLVariable)
list.Add(New SQLVariable("pud_progId", UD.pud_progId))
list.Add(New SQLVariable("pud_codename", UD.pud_codename))
list.Add(New SQLVariable("pud_version", UD.pud_version))
list.Add(New SQLVariable("pud_fileName", UD.pud_fileName))
list.Add(New SQLVariable("pud_filePathFolder", UD.pud_filePathFolder))
list.Add(New SQLVariable("pud_datum", UD.pud_datum))
list.Add(New SQLVariable("pud_file_Verion", UD.pud_file_Verion))
list.Add(New SQLVariable("pud_file_Date", UD.pud_file_Date))
list.Add(New SQLVariable("pud_file_Size", UD.pud_file_Size))
Return list
End Function
Public Shared Function isNewFile(ByRef file As cProgrammeUpdate, LIST_DEST As List(Of cProgrammeUpdate)) As Boolean
For Each l In LIST_DEST
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next
Return True
End Function
Public Shared Function isOldFile(ByRef file As cProgrammeUpdate, LIST_SOURCE As List(Of cProgrammeUpdate)) As Boolean
For Each l In LIST_SOURCE
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next
Return True
End Function
Public Shared Function copyProgramLIST(ByRef sourcePfad As String, ByVal destPfad As String, ignoreFilesBeginWith As String()) As Boolean
Try
If destPfad.Trim = "" Then Return False
If sourcePfad.Trim = "" Then Return False
If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then
MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
End If
If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then
MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
End If
Dim LIST_SOURCE As New List(Of cProgrammeUpdate)
Dim dirNameReplace_SOURCE = ""
Dim DI_SOURCE As New IO.DirectoryInfo(sourcePfad)
RekursivGetFiles(DI_SOURCE, dirNameReplace_SOURCE, LIST_SOURCE, {})
Dim LIST_DEST As New List(Of cProgrammeUpdate)
Dim dirNameReplace_DEST = ""
Dim DI_DEST As New IO.DirectoryInfo(destPfad)
RekursivGetFiles(DI_DEST, dirNameReplace_DEST, LIST_DEST, ignoreFilesBeginWith)
If LIST_SOURCE.Count = 0 Then
MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
End If
If LIST_DEST.Count = 0 Then
MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
End If
'ORDNER erstellen:
For Each f In LIST_SOURCE
If If(f.pud_filePathFolder, "") <> "" Then
If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\")) Then
IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\"))
End If
End If
Next
'Löschen der unbenötigten Files:
For Each f In LIST_DEST
If isOldFile(f, LIST_SOURCE) Then
IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\"))
End If
Next
'Kopieren/Überschreiben der neuen Files:
For Each f In LIST_SOURCE
If isNewFile(f, LIST_DEST) Then
Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
IO.File.Copy(s_path, d_path)
End If
Next
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
' If isNewFile(destPfad) Then Return FileCopier(sourcePfad, destPfad)
Return True
End Function
Public Shared Function fileStartsWith(fileName As String, ignoreFilesBeginWith As String())
For Each s In ignoreFilesBeginWith
If fileName.StartsWith(s) Then Return True
Next
Return False
End Function
Public Shared Sub RekursivGetFiles(ByVal oDir As IO.DirectoryInfo, ByRef dirNameReplace As String, ByRef LIST As List(Of cProgrammeUpdate), ignoreFilesBeginWith As String())
Dim oSubDir As IO.DirectoryInfo
Dim FI As IO.FileInfo
' zunächst alle Dateien des Ordners aufspüren
For Each FI In oDir.GetFiles()
If Not fileStartsWith(FI.Name, ignoreFilesBeginWith) Then 'DATEIEN beginnen mit betimmten Namen, z.B. UPDATER
' Dim FI As New IO.FileInfo(oFile)
If dirNameReplace = "" Then
dirNameReplace = FI.DirectoryName
End If
Dim UD As New cProgrammeUpdate
UD.pud_fileName = FI.Name
UD.pud_filePathFolder = FI.DirectoryName.Replace(dirNameReplace, "")
If UD.pud_filePathFolder = "" Then UD.pud_filePathFolder = Nothing
UD.pud_file_Size = FI.Length
UD.pud_file_Date = FI.LastWriteTime
UD.pud_file_Verion = "" 'FI.
LIST.Add(UD)
End If
'With oFile
' ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab &
' .Length & vbTab & .LastWriteTime)
'End With
Next
' Jetzt alle Unterverzeichnis durchlaufen
' und die Prozedur rekursiv selbst aufrufen
For Each oSubDir In oDir.GetDirectories()
RekursivGetFiles(oSubDir, dirNameReplace, LIST, {})
Next
End Sub
End Class
Public Class SQLVariable
Private TextSQLName As String
Private ValueSQLVALUE As Object
Private Scalarvariablename As String
Private primaryParam As Boolean
Private onlyForLoad As Boolean
Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False)
Me.TextSQLName = Text
Me.ValueSQLVALUE = Value
Me.primaryParam = primaryParam
Me.onlyForLoad = onlyForLoad
If Scalarvariablename <> "" Then Me.Scalarvariablename = Scalarvariablename Else Me.Scalarvariablename = Text
End Sub
Public ReadOnly Property Text() As String
Get
Return TextSQLName
End Get
End Property
Public ReadOnly Property Value() As Object
Get
Return ValueSQLVALUE
End Get
End Property
Public ReadOnly Property Scalarvariable() As Object
Get
Return Scalarvariablename
End Get
End Property
Public ReadOnly Property isPrimaryParam() As Boolean
Get
Return primaryParam
End Get
End Property
Public ReadOnly Property isonlyForLoad() As Boolean
Get
Return onlyForLoad
End Get
End Property
' Public Overrides Function ToString() As Object
' Return mText
' End Function
End Class

2
VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb
View File

@@ -88,7 +88,9 @@ Public Class cEasyBinding
MsgBox("Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Die Werte werden zurückgesetzt!", MsgBoxStyle.OkCancel, "Datenbank-Fehler") MsgBox("Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Die Werte werden zurückgesetzt!", MsgBoxStyle.OkCancel, "Datenbank-Fehler")
Me.bindingSource.ResumeBinding() Me.bindingSource.ResumeBinding()
End Try End Try
Return False Return False
End Function End Function

7
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
View File

@@ -26,6 +26,8 @@ Public Class cTranslate_LIST
T.trs_subControl = dr("trs_subControl") T.trs_subControl = dr("trs_subControl")
T.trs_sprache = dr("trs_sprache") T.trs_sprache = dr("trs_sprache")
T.trs_text = dr("trs_text") T.trs_text = dr("trs_text")
T.trs_FirmaID = dr("trs_FirmaID")
T.trs_Option = dr("trs_Option")
list.Add(T) list.Add(T)
End While End While
dr.Close() dr.Close()
@@ -47,7 +49,8 @@ Public Class cTranslate
Property trs_subControl As Object = Nothing Property trs_subControl As Object = Nothing
Property trs_sprache As String Property trs_sprache As String
Property trs_text As String Property trs_text As String
Property trs_Option As Object = Nothing
Property trs_FirmaID As Object = Nothing
Public hasEntry = False Public hasEntry = False
@@ -69,6 +72,8 @@ Public Class cTranslate
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_subControl", trs_subControl)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_subControl", trs_subControl))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_Option", trs_Option))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_FirmaID", trs_FirmaID))
Return list Return list
End Function End Function

1
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -288,6 +288,7 @@ Public Class cDATENSERVER
Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s) Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s)
s = System.Text.Encoding.UTF8.GetString(tempBytes) s = System.Text.Encoding.UTF8.GetString(tempBytes)
s = s.Replace("<EFBFBD>", "") s = s.Replace("<EFBFBD>", "")
s = s.Replace("?", "")
Return s Return s
End Function End Function

13
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,7 +24,6 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -39,12 +38,12 @@ Partial Class frmMessenger
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel6 = New System.Windows.Forms.Panel() Me.Panel6 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -65,7 +64,7 @@ Partial Class frmMessenger
Me.btnNeu = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button() Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -93,9 +92,9 @@ Partial Class frmMessenger
Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSendAtt = New System.Windows.Forms.Button()
Me.btnSenden = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) Me.Timer_REFRESH = New System.Windows.Forms.Timer()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()

4
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

@@ -502,7 +502,7 @@ Public Class frmUeberstundenauszahlen
Try Try
Dim dtbereitsausgezahlteUE As DataTable Dim dtbereitsausgezahlteUE As DataTable
Dim bereitsgezahlteueberstunden = "select uest_deleted as geloescht, uest_date as Datum ,isnull(uest_100,0) as ÜS100 , isnull(uest_50,0) as ÜS50, isnull(uest_25,0) as ÜS25, isnull(uest_0,0) as ÜS50_Saldo, isnull(uest_paidout_sum,0) as ausbezahlt, uest_systemuser as eingetragen_von ,uest_created as eingetragen_am Dim bereitsgezahlteueberstunden = "select uest_deleted as geloescht, uest_date as Datum ,isnull(uest_100,0) as ÜS100 , isnull(uest_50,0) as ÜS50, isnull(uest_25,0) as ÜS25, isnull(uest_0,0) as ÜS50_Saldo, isnull(uest_paidout_sum,0) as ausbezahlt, uest_systemuser as eingetragen_von ,uest_created as eingetragen_am, cast (case when isnull([uest_ignorePayoutDate],0) = 0 then 0 else 1 end) as bit as ignoreAuszahlungsdatum
FROM [ADMIN].[dbo].[tblUeberstunden] FROM [ADMIN].[dbo].[tblUeberstunden]
where uest_timasId = " & MA.mit_timasId & IIf(Not cbxalle.Checked, " and uest_deleted = 0", "") & " where uest_timasId = " & MA.mit_timasId & IIf(Not cbxalle.Checked, " and uest_deleted = 0", "") & "
Order by uest_date" Order by uest_date"
@@ -513,6 +513,8 @@ Public Class frmUeberstundenauszahlen
.DataSource = dtbereitsausgezahlteUE .DataSource = dtbereitsausgezahlteUE
.Columns("geloescht").Visible = False .Columns("geloescht").Visible = False
.Columns("ignoreAuszahlungsdatum").HeaderText = "Auszdat. irgnoriert"
.Columns("ignoreAuszahlungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
For Each row As DataGridViewRow In .Rows For Each row As DataGridViewRow In .Rows

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -2,6 +2,7 @@
Imports System.EnterpriseServices Imports System.EnterpriseServices
Imports System.Net Imports System.Net
Imports System.Reflection Imports System.Reflection
Imports DocumentFormat.OpenXml.InkML
Public Class cMSEAPI Public Class cMSEAPI
@@ -207,7 +208,7 @@ Public Class cMSEAPI
Debug.WriteLine(responseJson) Debug.WriteLine(responseJson)
'Newest Settlements werden nicht benötigt, erst beim Abrufen der RECHNUNG sollen die dazugehörigen Settlements abgerufen werden, allerdings müssen diese initial 1x per API abgerufen werden (mittels getNewSettlements , ansonsten können Sie nicht gefunden werden)! 'Newest Settlements werden nicht benötigt, erst beim Abrufen der RECHNUNG sollen die dazugehörigen Settlements abgerufen werden, allerdings müssen diese initial 1x per API abgerufen werden (mittels getNewSettlements) ansonsten können Sie nicht gefunden werden!
'sollten sie dennoch gespeichert werden, dann fogenden Return-Statement auskommentieren (damit nachfolgender Code ausgeführt werden kann): 'sollten sie dennoch gespeichert werden, dann fogenden Return-Statement auskommentieren (damit nachfolgender Code ausgeführt werden kann):
@@ -1329,7 +1330,8 @@ Public Class cMSEAPI
cust.alternative_vat_number = checkNullStr(R("alternative_vat_number")) cust.alternative_vat_number = checkNullStr(R("alternative_vat_number"))
cust.coc_number = checkNullStr(R("coc_number")) cust.coc_number = checkNullStr(R("coc_number"))
cust.partner_fleet_card_number = checkNullStr(R("partner_fleet_card_number")) cust.partner_fleet_card_number = checkNullStr(R("partner_fleet_card_number"))
cust.SAVE() cust.tstmp = Now()
If cust.customer_id <> "12065 " Then cust.SAVE() 'diesed Kunde soll nicht gespeichert werden!!
j = j + 1 j = j + 1
End While End While
@@ -1787,6 +1789,7 @@ Public Class cMSECustomers
Property alternative_vat_number As Object = Nothing Property alternative_vat_number As Object = Nothing
Property coc_number As Object = Nothing Property coc_number As Object = Nothing
Property partner_fleet_card_number As Object = Nothing Property partner_fleet_card_number As Object = Nothing
Property tstmp As Object = Nothing
Public hasEntry = False Public hasEntry = False
@@ -1809,6 +1812,7 @@ Public Class cMSECustomers
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("alternative_vat_number", alternative_vat_number)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("alternative_vat_number", alternative_vat_number))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("coc_number", coc_number)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("coc_number", coc_number))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("partner_fleet_card_number", partner_fleet_card_number)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("partner_fleet_card_number", partner_fleet_card_number))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tstmp", tstmp))
Return list Return list
End Function End Function