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

Compare commits

base: edv:e0f3a9c13bd006341f382107b97fb78f3dcbcdca
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM
...
compare: edv:e4c594ec29962698de3c86024f613ba04c6072fb
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM

4 Commits
e0f3a9c13b ... e4c594ec29

Author SHA1 Message Date
d.breimaier
e4c594ec29 Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024 2026-02-12 16:51:18 +01:00
d.breimaier
f5edb42d14 Kundenblatt 2026-02-12 16:46:06 +01:00
d.breimaier
13ac899609 FaktAbrechnung, Goboxmauten, Kundenblatt, etc. 2026-02-12 16:37:10 +01:00
d.breimaier
30aa0034e0 Preisliste, Kundenblatt, etc. 2026-02-12 13:54:30 +01:00
13 changed files with 611 additions and 321 deletions
Expand all files Collapse all files

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1901,7 +1901,7 @@ Public Class usrCntlFaktAbrechnung
If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
Dim func As New cMDMFunctionsAllgemein()
Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by UStVPo_ID", "FMZOLL")
Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' /* AND UStVPo_SchnittstellenNr <> 1 */ " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by UStVPo_ID", "FMZOLL")
Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
Dim Antrag_LandKz = ""
If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL")

274
SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb generated
View File

@@ -30,63 +30,63 @@ Partial Public Class rptPreislisten
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAGB = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtFirmaInfo_IMEX = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_ATILLA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_VERAG = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeader1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeader2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPosUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreisUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtOrtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtVorlageKredit = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZahlungsziel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZahlungsziel2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtClearing = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEnding = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmenkennung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.SubReport2 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAGB, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeader1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeader2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPosUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreisUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOrtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZahlungsziel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZahlungsziel2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtClearing, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEnding, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmenkennung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -227,20 +227,20 @@ Partial Public Class rptPreislisten
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label8, Me.lblDetails, Me.Line2, Me.Label1})
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAGB, Me.lblDetails, Me.Line2, Me.Label1})
Me.PageFooter.Height = 0.3271654!
Me.PageFooter.Name = "PageFooter"
'
'Label8
'lblAGB
'
Me.Label8.Height = 0.3141733!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 7.5pt; text-align: center; ddo-char-set: 0"
Me.Label8.Text = resources.GetString("Label8.Text")
Me.Label8.Top = 0.01299213!
Me.Label8.Width = 6.775615!
Me.lblAGB.Height = 0.3141733!
Me.lblAGB.HyperLink = Nothing
Me.lblAGB.Left = 0!
Me.lblAGB.Name = "lblAGB"
Me.lblAGB.Style = "font-size: 7.5pt; text-align: center; ddo-char-set: 0; ddo-shrink-to-fit: true"
Me.lblAGB.Text = resources.GetString("lblAGB.Text")
Me.lblAGB.Top = 0.01299213!
Me.lblAGB.Width = 6.775615!
'
'lblDetails
'
@@ -266,21 +266,10 @@ Partial Public Class rptPreislisten
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527889!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.005488008!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt"
Me.Label1.Text = ""
Me.Label1.Top = 0.01250004!
Me.Label1.Width = 3.120079!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6, Me.TextBox7})
Me.ReportHeader1.Height = 2.176378!
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.txtHeader1, Me.txtHeader2, Me.txtLeistungUeberschrift, Me.txtPosUeberschrift, Me.txtPreisUeberschrift, Me.Line9, Me.TextBox6, Me.TextBox7})
Me.ReportHeader1.Height = 2.009711!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtFirmaInfo_IMEX
@@ -338,64 +327,64 @@ Partial Public Class rptPreislisten
Me.Shape8.LineWeight = 0!
Me.Shape8.Name = "Shape8"
Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape8.Top = 1.884646!
Me.Shape8.Top = 1.718111!
Me.Shape8.Width = 6.299212!
'
'TextBox8
'txtHeader1
'
Me.TextBox8.Height = 0.2196842!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
Me.txtHeader1.Height = 0.2196842!
Me.txtHeader1.Left = 0.01102362!
Me.txtHeader1.Name = "txtHeader1"
Me.txtHeader1.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.TextBox8.Text = "Unsere"
Me.TextBox8.Top = 0.9452757!
Me.TextBox8.Width = 1.492914!
Me.txtHeader1.Text = "Unsere"
Me.txtHeader1.Top = 0.7996064!
Me.txtHeader1.Width = 1.492914!
'
'TextBox1
'txtHeader2
'
Me.TextBox1.Height = 0.4177166!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 28pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
Me.txtHeader2.Height = 0.4177166!
Me.txtHeader2.Left = 0.01102362!
Me.txtHeader2.Name = "txtHeader2"
Me.txtHeader2.Style = "font-size: 28pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.TextBox1.Text = "Verzollungspreise"
Me.TextBox1.Top = 1.164961!
Me.TextBox1.Width = 4.649213!
Me.txtHeader2.Text = "Verzollungspreise"
Me.txtHeader2.Top = 1.019292!
Me.txtHeader2.Width = 5.649213!
'
'TextBox2
'txtLeistungUeberschrift
'
Me.TextBox2.Height = 0.2881891!
Me.TextBox2.Left = 0.7874015!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.TextBox2.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: left; vertical-alig" &
Me.txtLeistungUeberschrift.Height = 0.2881891!
Me.txtLeistungUeberschrift.Left = 0.7874015!
Me.txtLeistungUeberschrift.Name = "txtLeistungUeberschrift"
Me.txtLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.txtLeistungUeberschrift.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: left; vertical-alig" &
"n: middle; ddo-char-set: 1"
Me.TextBox2.Text = "Leistung"
Me.TextBox2.Top = 1.888189!
Me.TextBox2.Width = 3.509843!
Me.txtLeistungUeberschrift.Text = "Leistung"
Me.txtLeistungUeberschrift.Top = 1.721654!
Me.txtLeistungUeberschrift.Width = 3.509843!
'
'TextBox4
'txtPosUeberschrift
'
Me.TextBox4.Height = 0.2881891!
Me.TextBox4.Left = 0!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
Me.txtPosUeberschrift.Height = 0.2881891!
Me.txtPosUeberschrift.Left = 0!
Me.txtPosUeberschrift.Name = "txtPosUeberschrift"
Me.txtPosUeberschrift.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.TextBox4.Text = "Pos"
Me.TextBox4.Top = 1.884646!
Me.TextBox4.Width = 0.7874016!
Me.txtPosUeberschrift.Text = "Pos"
Me.txtPosUeberschrift.Top = 1.718111!
Me.txtPosUeberschrift.Width = 0.7874016!
'
'TextBox5
'txtPreisUeberschrift
'
Me.TextBox5.Height = 0.2881891!
Me.TextBox5.Left = 4.757874!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
Me.txtPreisUeberschrift.Height = 0.2881891!
Me.txtPreisUeberschrift.Left = 4.757874!
Me.txtPreisUeberschrift.Name = "txtPreisUeberschrift"
Me.txtPreisUeberschrift.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.TextBox5.Text = "Preis"
Me.TextBox5.Top = 1.888189!
Me.TextBox5.Width = 1.552362!
Me.txtPreisUeberschrift.Text = "Preis"
Me.txtPreisUeberschrift.Top = 1.721654!
Me.txtPreisUeberschrift.Width = 1.552362!
'
'Line9
'
@@ -437,20 +426,20 @@ Partial Public Class rptPreislisten
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.txtVorlageKredit, Me.txtZahlungsziel, Me.txtZahlungsziel2, Me.txtClearing, Me.TextBox12, Me.txtFirmenkennung, Me.SubReport, Me.SubReport2})
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOrtDatum, Me.Line, Me.txtUnterschrift, Me.Line1, Me.txtVorlageKredit, Me.txtZahlungsziel, Me.txtZahlungsziel2, Me.txtClearing, Me.txtEnding, Me.txtFirmenkennung, Me.SubReport, Me.SubReport2})
Me.ReportFooter1.Height = 4.128265!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox16
'txtOrtDatum
'
Me.TextBox16.Height = 0.1677164!
Me.TextBox16.Left = 0.02362205!
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.TextBox16.Text = "Ort & Datum"
Me.TextBox16.Top = 3.96063!
Me.TextBox16.Width = 2.559055!
Me.txtOrtDatum.Height = 0.1677164!
Me.txtOrtDatum.Left = 0.02362205!
Me.txtOrtDatum.Name = "txtOrtDatum"
Me.txtOrtDatum.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtOrtDatum.Text = "Ort & Datum"
Me.txtOrtDatum.Top = 3.96063!
Me.txtOrtDatum.Width = 2.559055!
'
'Line
'
@@ -465,15 +454,15 @@ Partial Public Class rptPreislisten
Me.Line.Y1 = 3.96063!
Me.Line.Y2 = 3.960811!
'
'TextBox17
'txtUnterschrift
'
Me.TextBox17.Height = 0.1677164!
Me.TextBox17.Left = 3.411811!
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.TextBox17.Text = "Zur Kenntnis genommen (Stempel, Unterschrift)"
Me.TextBox17.Top = 3.960631!
Me.TextBox17.Width = 3.310236!
Me.txtUnterschrift.Height = 0.1677164!
Me.txtUnterschrift.Left = 3.411811!
Me.txtUnterschrift.Name = "txtUnterschrift"
Me.txtUnterschrift.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtUnterschrift.Text = "Zur Kenntnis genommen (Stempel, Unterschrift)"
Me.txtUnterschrift.Top = 3.960631!
Me.txtUnterschrift.Width = 3.310236!
'
'Line1
'
@@ -495,8 +484,8 @@ Partial Public Class rptPreislisten
Me.txtVorlageKredit.Name = "txtVorlageKredit"
Me.txtVorlageKredit.Style = "font-size: 9pt; font-style: italic; font-weight: normal; text-align: right; ddo-c" &
"har-set: 1"
Me.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fallen [PosVorlage] und [PosKred" &
"it] weg.)"
Me.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fallen %POSVORLAGE% und %POSKRED" &
"IT% weg.)"
Me.txtVorlageKredit.Top = 0!
Me.txtVorlageKredit.Width = 6.310238!
'
@@ -506,7 +495,7 @@ Partial Public Class rptPreislisten
Me.txtZahlungsziel.Left = 0.01102362!
Me.txtZahlungsziel.Name = "txtZahlungsziel"
Me.txtZahlungsziel.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtZahlungsziel.Text = "Wir haben [Zahlungsziel] Tage Zahlungsziel"
Me.txtZahlungsziel.Text = "Wir haben %ZAHLUNGSZIEL% Tage Zahlungsziel"
Me.txtZahlungsziel.Top = 0.6728347!
Me.txtZahlungsziel.Width = 4.88189!
'
@@ -516,7 +505,7 @@ Partial Public Class rptPreislisten
Me.txtZahlungsziel2.Left = 0.01102362!
Me.txtZahlungsziel2.Name = "txtZahlungsziel2"
Me.txtZahlungsziel2.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtZahlungsziel2.Text = "Bei Zahlung innerhalb [Zahlungsziel] Tagen kann die Kreditaufwendung ([PosKredit]" &
Me.txtZahlungsziel2.Text = "Bei Zahlung innerhalb %ZAHLUNGSZIEL% Tagen kann die Kreditaufwendung (%POSKREDIT%" &
") in Abzug gebracht werden (ausgenommen bei Vorkassenberechnungen)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Wir behal" &
"ten uns Preisanpassungen vor."
Me.txtZahlungsziel2.Top = 1.011024!
@@ -534,16 +523,16 @@ Partial Public Class rptPreislisten
Me.txtClearing.Visible = False
Me.txtClearing.Width = 3.937008!
'
'TextBox12
'txtEnding
'
Me.TextBox12.Height = 0.9830709!
Me.TextBox12.Left = 0!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.TextBox12.Text = "Wir bedanken uns für Ihren Auftrag und freuen uns auf eine gute Zusammenarbeit." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) &
Me.txtEnding.Height = 0.9830709!
Me.txtEnding.Left = 0!
Me.txtEnding.Name = "txtEnding"
Me.txtEnding.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtEnding.Text = "Wir bedanken uns für Ihren Auftrag und freuen uns auf eine gute Zusammenarbeit." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) &
"" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mit freundlichen Grüßen"
Me.TextBox12.Top = 1.835433!
Me.TextBox12.Width = 6.692914!
Me.txtEnding.Top = 1.835433!
Me.txtEnding.Width = 6.692914!
'
'txtFirmenkennung
'
@@ -577,15 +566,28 @@ Partial Public Class rptPreislisten
Me.SubReport2.Top = 0.5192913!
Me.SubReport2.Width = 6.722048!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.005488008!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt"
Me.Label1.Text = ""
Me.Label1.Top = 0.01250004!
Me.Label1.Width = 3.120079!
'
'rptPreislisten
'
Me.MasterReport = False
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Margins.Bottom = 0.3937007!
Me.PageSettings.Margins.Left = 0.7874016!
Me.PageSettings.Margins.Right = 0.3937007!
Me.PageSettings.Margins.Top = 0.3937007!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 6.733071!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
@@ -602,28 +604,28 @@ Partial Public Class rptPreislisten
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAGB, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeader1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeader2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPosUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreisUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOrtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZahlungsziel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZahlungsziel2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtClearing, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEnding, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmenkennung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -631,7 +633,7 @@ Partial Public Class rptPreislisten
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtUnterschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
@@ -641,18 +643,17 @@ Partial Public Class rptPreislisten
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Shape8 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtHeader1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblAGB As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtHeader2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPosUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPreisUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtOrtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEnding As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtVorlageKredit As GrapeCity.ActiveReports.SectionReportModel.TextBox
@@ -669,4 +670,5 @@ Partial Public Class rptPreislisten
Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

5
SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.resx
View File

File diff suppressed because one or more lines are too long

23
SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.vb
View File

@@ -1,9 +1,32 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports org.apache.pdfbox.pdmodel
Public Class rptPreislisten
Dim _LAN = ""
Dim _OPTION = ""
Dim _FIRMAID As Integer = -1
Dim _DICT As Dictionary(Of String, String) = Nothing
Sub New(_LAN, _OPTION, _FIRMAID, _DICT)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.Document.Printer.PrinterName = ""
Me._LAN = _LAN
Me._OPTION = _OPTION
Me._FIRMAID = _FIRMAID
Me._DICT = _DICT
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptPreislisten_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptPreislisten", _OPTION, _FIRMAID, _DICT)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptPreislisten", _OPTION, _FIRMAID, _DICT)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptPreislisten", _OPTION, _FIRMAID, _DICT)
End If
End Sub
End Class

52
SDL/Formulare/KDFormulare/FormulareBaukasten/subrptPreislisten.Designer.vb generated
View File

@@ -30,14 +30,14 @@ Partial Public Class subrptPreislisten
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtzusLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreisUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtzusLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreisUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -159,7 +159,7 @@ Partial Public Class subrptPreislisten
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape8, Me.TextBox2, Me.TextBox5})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape8, Me.txtzusLeistungUeberschrift, Me.txtPreisUeberschrift})
Me.ReportHeader1.Height = 0.291732!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -174,28 +174,28 @@ Partial Public Class subrptPreislisten
Me.Shape8.Top = 0!
Me.Shape8.Width = 6.299212!
'
'TextBox2
'txtzusLeistungUeberschrift
'
Me.TextBox2.Height = 0.2881891!
Me.TextBox2.Left = 0.7874015!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.TextBox2.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: left; vertical-alig" &
Me.txtzusLeistungUeberschrift.Height = 0.2881891!
Me.txtzusLeistungUeberschrift.Left = 0.7874015!
Me.txtzusLeistungUeberschrift.Name = "txtzusLeistungUeberschrift"
Me.txtzusLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.txtzusLeistungUeberschrift.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: left; vertical-alig" &
"n: middle; ddo-char-set: 1"
Me.TextBox2.Text = "Zusätzliche Leistungen"
Me.TextBox2.Top = 0.0035429!
Me.TextBox2.Width = 3.509843!
Me.txtzusLeistungUeberschrift.Text = "Zusätzliche Leistungen"
Me.txtzusLeistungUeberschrift.Top = 0.0035429!
Me.txtzusLeistungUeberschrift.Width = 3.509843!
'
'TextBox5
'txtPreisUeberschrift
'
Me.TextBox5.Height = 0.2881891!
Me.TextBox5.Left = 4.757874!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
Me.txtPreisUeberschrift.Height = 0.2881891!
Me.txtPreisUeberschrift.Left = 4.757874!
Me.txtPreisUeberschrift.Name = "txtPreisUeberschrift"
Me.txtPreisUeberschrift.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.TextBox5.Text = "Preis"
Me.TextBox5.Top = 0.0035429!
Me.TextBox5.Width = 1.552362!
Me.txtPreisUeberschrift.Text = "Preis"
Me.txtPreisUeberschrift.Top = 0.0035429!
Me.txtPreisUeberschrift.Width = 1.552362!
'
'ReportFooter1
'
@@ -228,8 +228,8 @@ Partial Public Class subrptPreislisten
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtzusLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreisUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -244,7 +244,7 @@ Partial Public Class subrptPreislisten
Public WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Shape8 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtzusLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPreisUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
End Class

22
SDL/Formulare/KDFormulare/FormulareBaukasten/subrptPreislisten.vb
View File

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

25
SDL/Formulare/KDFormulare/FormulareBaukasten/subrptPreislisten_Zoll.vb
View File

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

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

@@ -8,6 +8,7 @@ Imports System.Reflection
Imports System.Text.RegularExpressions
Imports System.Windows.Documents
Imports VERAG_PROG_ALLGEMEIN
Imports System.Security.Authentication.ExtendedProtection
Public Class frmFormulare
Dim isSingleForm = False
@@ -1724,13 +1725,13 @@ Public Class FormularManagerNEU
Dim Top = -10
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
@@ -1758,27 +1759,27 @@ Public Class FormularManagerNEU
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Select Case usrCntl.cboPaketOption._value
Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
End Select
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_3._value,True), 175, Top + 96, 18, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
@@ -1801,16 +1802,16 @@ Public Class FormularManagerNEU
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
@@ -1865,21 +1866,21 @@ Public Class FormularManagerNEU
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
Select Case usrCntl.cboSprache._value
Case "TR"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 59, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 59, Top + 47.4, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Case Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End Select
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 12, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT, 2))
@@ -1954,7 +1955,7 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVmDat.Text, 25, 260, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
@@ -5138,11 +5139,6 @@ Public Class FormularManagerNEU
Verzollungspreise = ""
Try
Dim rpt As New rptPreislisten
Dim subRpt As New subrptPreislisten
Dim subRpt_Zoll As New subrptPreislisten_Zoll
rpt.SubReport.Report = subRpt
Dim dt As DataTable = cProgramFunctions.dgridViewTods(usrCntl.DataGridView)
Dim dt2 As DataTable = cProgramFunctions.dgridViewTods(usrCntl.dgvZusatzleistung)
If dt.Rows.Count > 0 Then
@@ -5152,6 +5148,20 @@ Public Class FormularManagerNEU
dt2.Rows.RemoveAt(dt2.Rows.Count - 1) 'leere Zeile
End If
Dim PosVorlage = getPosNrByLNr(dt, dt2, 700)
Dim PosKredit = getPosNrByLNr(dt, dt2, 750)
Dim PosClearing = getPosNrByLNr(dt, dt2, 347)
Dim dict As New Dictionary(Of String, String)
dict("POSVORLAGE") = PosVorlage
dict("ZAHLUNGSZIEL") = usrCntl.txtZahlunsziel.Text
dict("POSKREDIT") = PosKredit
Dim rpt As New rptPreislisten(usrCntl.MyComboBoxSprache._value, Nothing, -1, dict)
Dim subRpt As New subrptPreislisten(usrCntl.MyComboBoxSprache._value, Nothing, -1)
Dim subRpt_Zoll As New subrptPreislisten_Zoll(usrCntl.MyComboBoxSprache._value, Nothing, -1)
rpt.SubReport.Report = subRpt
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
@@ -5192,22 +5202,29 @@ Public Class FormularManagerNEU
Else
rpt.SubReport.Visible = False
End If
' rpt.txtDatumOrt.Text = ort & ", den " & Now.ToShortDateString
Dim PosVorlage = getPosNrByLNr(dt, dt2, 700)
Dim PosKredit = getPosNrByLNr(dt, dt2, 750)
Dim PosClearing = getPosNrByLNr(dt, dt2, 347)
'rpt.txtDatumOrt.Text = ort & ", den " & Now.ToShortDateString
'If PosVorlage = "" And PosKredit = "" Then
' rpt.txtVorlageKredit.Visible = False
'ElseIf PosVorlage = "" And PosKredit <> "" Then
' rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosKredit & " weg.)"
'ElseIf PosKredit = "" And PosVorlage <> "" Then
' rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosVorlage & " weg.)"
'Else
' 'rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosVorlage]", "Pos. " & PosVorlage)
' 'rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
'End If
If PosVorlage = "" And PosKredit = "" Then
rpt.txtVorlageKredit.Visible = False
ElseIf PosVorlage = "" And PosKredit <> "" Then
rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosKredit & " weg.)"
rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. %POSKREDIT% weg.)"
ElseIf PosKredit = "" And PosVorlage <> "" Then
rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosVorlage & " weg.)"
rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. %POSVORLAGE% weg.)"
Else
rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosVorlage]", "Pos. " & PosVorlage)
rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
'rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosVorlage]", "Pos. " & PosVorlage)
'rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
@@ -5219,17 +5236,18 @@ Public Class FormularManagerNEU
rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.Replace("[Zahlungsziel]", If(usrCntl.txtZahlunsziel.Text = "", "10", usrCntl.txtZahlunsziel.Text))
rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.Replace("%Zahlungsziel%", If(usrCntl.txtZahlunsziel.Text = "", "10", usrCntl.txtZahlunsziel.Text))
If PosKredit = "" Then 'Wenn keine Kredítaufwendung
rpt.txtZahlungsziel2.Visible = False
rpt.txtZahlungsziel2.Text = ""
Else
If usrCntl.txtZahlunsziel.Text = "" Then
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", "10")
Else
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", usrCntl.txtZahlunsziel.Text)
End If
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
'If usrCntl.txtZahlunsziel.Text = "" Then
' rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", "10")
'Else
' rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", usrCntl.txtZahlunsziel.Text)
'End If
'rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
End If
@@ -5255,6 +5273,17 @@ Public Class FormularManagerNEU
End If
If usrCntl.MyComboBoxSprache._value = "DE" Then 'weil DE nicht übersetzt wird!!!
For Each pair In dict
rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
rpt.txtClearing.Text = rpt.txtClearing.Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
Next
End If
AddHandler rpt.Detail.Format, Sub()
Try
' MsgBox(rpt.Fields.Item(1).Value)

4
SDL/My Project/AssemblyInfo.vb
View File

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

9
SDL/kunden/frmGoMautBoxen_Bestellung.vb
View File

@@ -881,4 +881,13 @@ Public Class frmGoMautBoxen_Bestellung
End Class

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

@@ -56,8 +56,10 @@ Partial Class frmKundenblatt
Me.txtInfotext = New System.Windows.Forms.Label()
Me.tbFirmendaten = New System.Windows.Forms.TabPage()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.tbcntrMain = New System.Windows.Forms.TabControl()
Me.tbAllgemein = New System.Windows.Forms.TabPage()
Me.Button8 = New System.Windows.Forms.Button()
Me.txtKundeninfo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
@@ -159,8 +161,10 @@ Partial Class frmKundenblatt
Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
Me.tbSDLKarten = New System.Windows.Forms.TabPage()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.tbLKW = New System.Windows.Forms.TabPage()
Me.pnlLKWRight = New System.Windows.Forms.Panel()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.pnlLKW = New System.Windows.Forms.Panel()
Me.dgvLKW = New System.Windows.Forms.DataGridView()
Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -190,9 +194,11 @@ Partial Class frmKundenblatt
Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
Me.tbOfferte = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbUSTV = New System.Windows.Forms.TabPage()
Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
@@ -203,6 +209,7 @@ Partial Class frmKundenblatt
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.tbFIBU = New System.Windows.Forms.TabPage()
Me.txtZinsbelastungNew = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btn_FIBU_speichern = New System.Windows.Forms.Button()
@@ -253,13 +260,6 @@ Partial Class frmKundenblatt
Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
Me.Button8 = New System.Windows.Forms.Button()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.pnlInfo.SuspendLayout()
Me.tbFirmendaten.SuspendLayout()
Me.Panel4.SuspendLayout()
@@ -362,6 +362,16 @@ Partial Class frmKundenblatt
Me.Panel4.Size = New System.Drawing.Size(1675, 990)
Me.Panel4.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(1675, 990)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
'
Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -435,6 +445,18 @@ Partial Class frmKundenblatt
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
'Button8
'
Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik2
Me.Button8.Location = New System.Drawing.Point(660, 6)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(66, 58)
Me.Button8.TabIndex = 203
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.UseVisualStyleBackColor = True
'
'txtKundeninfo
'
Me.txtKundeninfo._DateTimeOnly = False
@@ -1959,11 +1981,21 @@ Partial Class frmKundenblatt
Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
Me.tbSDLKarten.Name = "tbSDLKarten"
Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDLKarten.Size = New System.Drawing.Size(1667, 964)
Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
Me.tbSDLKarten.TabIndex = 7
Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
Me.tbSDLKarten.UseVisualStyleBackColor = True
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
Me.usrcntlKarten.TabIndex = 0
'
'tbLKW
'
Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1986,6 +2018,19 @@ Partial Class frmKundenblatt
Me.pnlLKWRight.Size = New System.Drawing.Size(1355, 958)
Me.pnlLKWRight.TabIndex = 2
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 958)
Me.UsrCntlLKW1.TabIndex = 0
'
'pnlLKW
'
Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -2188,7 +2233,7 @@ Partial Class frmKundenblatt
Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
Me.tbVERAGCard.Name = "tbVERAGCard"
Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
Me.tbVERAGCard.Size = New System.Drawing.Size(1667, 964)
Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
Me.tbVERAGCard.TabIndex = 6
Me.tbVERAGCard.Text = "VERAG Card"
Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -2200,7 +2245,7 @@ Partial Class frmKundenblatt
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(3, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1661, 958)
Me.Panel3.Size = New System.Drawing.Size(172, 33)
Me.Panel3.TabIndex = 0
'
'tbDokumente
@@ -2220,7 +2265,7 @@ Partial Class frmKundenblatt
Me.tbDokumente.Controls.Add(Me.UsrCntlKundenlogin1)
Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbDokumente.Name = "tbDokumente"
Me.tbDokumente.Size = New System.Drawing.Size(1667, 964)
Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
Me.tbDokumente.TabIndex = 8
Me.tbDokumente.Text = "Dokumente"
Me.tbDokumente.UseVisualStyleBackColor = True
@@ -2425,12 +2470,19 @@ Partial Class frmKundenblatt
Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24)
Me.scanVertragVeragKd.TabIndex = 0
'
'UsrCntlKundenlogin1
'
Me.UsrCntlKundenlogin1.Location = New System.Drawing.Point(799, 40)
Me.UsrCntlKundenlogin1.Name = "UsrCntlKundenlogin1"
Me.UsrCntlKundenlogin1.Size = New System.Drawing.Size(452, 236)
Me.UsrCntlKundenlogin1.TabIndex = 7
'
'tbBesuchsberichte
'
Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(1667, 964)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
Me.tbBesuchsberichte.TabIndex = 9
Me.tbBesuchsberichte.Text = "Besuchsberichte"
Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -2439,7 +2491,7 @@ Partial Class frmKundenblatt
'
Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
Me.tbFremdrechnungen.Size = New System.Drawing.Size(1667, 964)
Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
Me.tbFremdrechnungen.TabIndex = 10
Me.tbFremdrechnungen.Text = "Fremdrechnungen"
Me.tbFremdrechnungen.UseVisualStyleBackColor = True
@@ -2455,6 +2507,16 @@ Partial Class frmKundenblatt
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
'
'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(1681, 996)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbUSTV
'
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
@@ -2588,11 +2650,19 @@ Partial Class frmKundenblatt
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1673, 970)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
Me.UsrCntlUSTV.TabIndex = 0
'
'tbFIBU
'
Me.tbFIBU.Controls.Add(Me.txtZinsbelastungNew)
@@ -3029,7 +3099,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'
@@ -3191,76 +3261,6 @@ Partial Class frmKundenblatt
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
Me.tbiVERAGCard.Text = "VERAG Card"
'
'Button8
'
Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik2
Me.Button8.Location = New System.Drawing.Point(660, 6)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(66, 58)
Me.Button8.TabIndex = 203
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.UseVisualStyleBackColor = True
'
'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(1675, 990)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(1661, 958)
Me.usrcntlKarten.TabIndex = 0
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 958)
Me.UsrCntlLKW1.TabIndex = 0
'
'UsrCntlKundenlogin1
'
Me.UsrCntlKundenlogin1.Location = New System.Drawing.Point(799, 40)
Me.UsrCntlKundenlogin1.Name = "UsrCntlKundenlogin1"
Me.UsrCntlKundenlogin1.Size = New System.Drawing.Size(452, 236)
Me.UsrCntlKundenlogin1.TabIndex = 7
'
'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(1681, 996)
Me.UsrCntlOfferte1.TabIndex = 0
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1667, 964)
Me.UsrCntlUSTV.TabIndex = 0
'
'frmKundenblatt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

197
SDL/kunden/frmKundenblatt.vb
View File

@@ -2764,11 +2764,21 @@ Public Class frmKundenblatt
Dim bestellNr As String = SQL.getValueTxtBySql("SELECT Top(1) gb_bestellNr FROM [tblGOBOXBestellnummern] ORDER BY gb_bestelldatum DESC", "FMZOLL")
If bestellNr <> "" AndAlso IsNumeric(bestellNr) Then
intBestellnummer = CInt(bestellNr)
If intBestellnummer = 9999 Then
intBestellnummer = 1
Else
intBestellnummer = intBestellnummer + 1
End If
Else
intBestellnummer = 1
End If
' 6️ Datensätze aktualisieren
Dim ID_bestellungen As String = ""
' 6️ Datensätze aktualisieren
Dim ID_bestellungen As String = ""
If dtBestellungen.Columns.Contains("gb_ID") Then
Dim dtNew As DataTable = dtBestellungen.Rows.Cast(Of DataRow)().Where(Function(row) Not row.ItemArray.All(Function(field) field Is DBNull.Value Or field.Equals(""))).CopyToDataTable()
If dtNew.Rows.Count > 0 Then
@@ -2793,9 +2803,73 @@ Public Class frmKundenblatt
End If
For Each row In dtBestellungen.Rows
If row("gb_adressNr") Is Nothing OrElse Not IsNumeric(row("gb_adressNr")) Then Continue For
If row("gb_licensePlate") Is Nothing OrElse row("gb_licensePlate") = "" Then Continue For
' KundenSDL Verwaltung.
Dim KundenNr As String = SQL.getValueTxtBySql("SELECT KundenNr FROM KundenSDL WHERE KundenNr = " & row("gb_adressNr"), "SDL")
If KundenNr = "" Then
Dim Kunde As New cKundenSDL(row("gb_adressNr"), 200)
Kunde.Erfassungsdatum = Now
Kunde.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Kunde.SAVE
End If
' LKW Verwaltung.
Dim LKWNr As String = SQL.getValueTxtBySql("Select KfzKennzeichen FROM dbo.SDL WHERE KundenNr = " & row("gb_adressNr") & " AND KfzKennzeichen = '" & row("gb_licensePlate") & "'", "SDL")
If LKWNr = "" Then
Dim LKW As New cSDL_LKW(row("gb_adressNr"), row("gb_licensePlate"))
LKW.Erfassungsdatum = Now
LKW.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
LKW.Nationalität = row("gb_licensePlateNat")
LKW.SAVE()
End If
' SDL Verwaltung.
Dim SDLVerw As String = SQL.getValueTxtBySql("Select KundenNr FROM dbo.SDL WHERE KundenNr = " & row("gb_adressNr") & " AND KfzKennzeichen = '" & row("gb_licensePlate") & "' AND SDLNr = 200", "SDL")
If SDLVerw = "" Then
Dim lfdNr As Integer = CInt(SQL.getValueTxtBySql("SELECT Max(History) As Historywert, COUNT(*) AS Anzahl FROM SDL WHERE (KundenNr = " & row("gb_adressNr") & ") AND (SDLNr = 200)", "SDL"))
Dim SDL_DS As New cSDL(row("gb_adressNr"), row("gb_licensePlate"), 200)
SDL_DS.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
SDL_DS.BestellNr = row("gb_bestellNr")
SDL_DS.Bestelldatum = row("gb_bestelldatum")
SDL_DS.Kategorie = row("gb_Axles")
SDL_DS.KartenNr = row("gb_CardNum")
SDL_DS.Erfassungsdatum = Now()
SDL_DS.History = lfdNr
If SDL_DS.SAVE() Then
SQL.doSQL("INSERT INTO SDLLog (KundenNr, KfzKennzeichen, SDLNr,History, BestellNr, Bestelldatum, KartenNr, Kategorie, Erfassungsdatum, Sachbearbeiter, RIUD, Name, Zeitstempel ) VALUES
(" & row("gb_adressNr") & ",'" & row("gb_licensePlate") & "',200, " & lfdNr & "," & intBestellnummer & ", '" & dateBestelldatum.ToShortDateString & "'," & row("gb_CardNum") & "," & row("gb_Axles") & ", '" & Now() & "','" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "','I','" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "','" & Now() & "')", "SDL")
End If
End If
Next
'CSV erzeugen:
Dim SQL_String As String = "Select Top(1) 'S' As [Transaction Type], ''As Company1, ' ' As Company2, ' ' As CompanyStreet, ' ' As CompanyNumber, ' ' As CompanyCode, ' ' As CompanyCity, ' ' As CompanyCountry, ' ' As CompanyCountryAbbr, ' ' As CompanyTelephone, ' ' As CompanyTelefax, ' ' As Salutation, ' ' As Title, ' ' As FirstName, ' ' As LastName, ' ' As Email, ' ' As PersonLanguage, ' ' As [License plate], ' ' As [License plate Nationality], ' ' As VehicleType, ' ' As Axles, ' ' As [Stammnummer For Tripon Orders only], ' ' As CardNum, ' ' As CardValidMonth, ' ' As CardValidYear FROM [tblGOBOXBestellungen]
UNION ALL
UNION ALL
Select gb_transactionTyp, gb_company1, gb_company2, gb_companyStreet, gb_companyStreetNr, gb_companyPostalcode, gb_companyCity, gb_companyCountry, gb_companyCountryISO, gb_companyTel, gb_companyFax, gb_salutation, gb_title, gb_firstname, gb_lastname, gb_email, gb_personLanguage, gb_licensePlate, gb_licensePlateNat, gb_vehicleTyp, gb_Axles, '', gb_CardNum,RIGHT('00' + CAST(gb_CardValidMonth AS VARCHAR(2)), 2) , RIGHT('00' + CAST(gb_CardValidYear AS VARCHAR(2)), 2)
From [tblGOBOXBestellungen] where gb_bestellNr = " & intBestellnummer & " and gb_transactionTyp = 'N'
UNION SELECT TOP (1) 'E', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ' FROM [tblGOBOXBestellungen]"
@@ -2833,6 +2907,121 @@ Public Class frmKundenblatt
Me.Cursor = Cursors.Default
'-----------------------------------------------------------------------------
' Public Function fktSDL_GO_BOX_Bestellvorgang(ByRef rst1 As DAO.Recordset)
'2240 On Error GoTo Fehler
' Dim cnnSDL As ADODB.Connection
' Dim rstKunden As ADODB.Recordset
' Dim rstKundenSDL As ADODB.Recordset
' Dim rstLKW As ADODB.Recordset
' Dim rstSDL As ADODB.Recordset
' Dim rstSDLLog As ADODB.Recordset
' Dim strSQL As String
' Dim strKfzKennzeichen As String
' ' Eingabeprüfung.
'2250 If IsNull(rst1!AdressenNr) Then Exit Function
'2260 If IsNull(rst1![License plate]) Then Exit Function Else strKfzKennzeichen = fktSDL_Convert(rst1![License plate])
' ' Verbindung zur SDL Datenbank auf dem SQL Server herstellen.
'2270 Set cnnSDL = New ADODB.Connection
'2280 If fktSDL_cnnSDL_Open(cnnSDL) = False Then GoTo Ende
' ' Kunden lesen.
'2290 strSQL = "SELECT KundenNr FROM vwKunden WHERE (KundenNr = " & rst1!AdressenNr & ")"
'2300 Set rstKunden = New ADODB.Recordset
'2310 rstKunden.Open strSQL, cnnSDL, adOpenForwardOnly, adLockReadOnly, adCmdText
'2320 If Not rstKunden.EOF Then
' ' KundenSDL Verwaltung.
'2330 strSQL = "SELECT * FROM vwKundenSDL WHERE (KundenNr = " & rst1!AdressenNr & ") AND (SDLNr = 200)"
'2340 Set rstKundenSDL = New ADODB.Recordset
'2350 With rstKundenSDL
'2360 .Open strSQL, cnnSDL, adOpenStatic, adLockOptimistic, adCmdText
'2370 If .EOF Then
'2380 .AddNew
'2390 !KundenNr = rst1!AdressenNr
'2400 !SDLNr = 200
'2410 !Erfassungsdatum = Now
'2420 !Sachbearbeiter = CurrentUser()
'2430 .Update
'2440 End If
'2450 .Close
'2460 End With
' ' LKW Verwaltung.
'2470 strSQL = "SELECT * FROM vwLKW WHERE (KundenNr = " & rst1!AdressenNr & ") AND (KfzKennzeichen = '" & strKfzKennzeichen & "')"
'2480 Set rstLKW = New ADODB.Recordset
'2490 With rstLKW
'2500 .Open strSQL, cnnSDL, adOpenStatic, adLockOptimistic, adCmdText
'2510 If .EOF Then
'2520 .AddNew
'2530 !KundenNr = rst1!AdressenNr
'2540 !KfzKennzeichen = strKfzKennzeichen
'2550 !Nationalität = rst1![License plate Nationality]
'2560 !Erfassungsdatum = Now
'2570 !Sachbearbeiter = CurrentUser()
'2580 .Update
'2590 End If
'2600 .Close
'2610 End With
' ' SDL Verwaltung.
'2620 strSQL = "SELECT *" & _
' " FROM vwSDL" & _
' " WHERE (KundenNr = " & rst1!AdressenNr & ") AND (KfzKennzeichen = '" & strKfzKennzeichen & "') And (SDLNr = 200)"
'2630 Set rstSDL = New ADODB.Recordset
'2640 With rstSDL
'2650 .Open strSQL, cnnSDL, adOpenStatic, adLockOptimistic, adCmdText
'2660 If .EOF Then
'2670 .AddNew
'2680 !KundenNr = rst1!AdressenNr
'2690 !KfzKennzeichen = strKfzKennzeichen
'2700 !SDLNr = 200
'2710 !LfdNr = fktSDL_LiefereHistorywert(!KundenNr, !SDLNr)
'2720 !BestellNr = rst1!Bestellnummer
'2730 !Bestelldatum = rst1!Bestelldatum
'2740 !KartenNr = rst1!CardNum
'2750 !Kategorie = rst1!Axles
'2760 !Erfassungsdatum = Now
'2770 !Sachbearbeiter = CurrentUser()
'2780 .Update
' ' SDLLog Verwaltung.
'2790 Set rstSDLLog = New ADODB.Recordset
'2800 rstSDLLog.Open "SDLLog", cnnSDL, adOpenStatic, adLockOptimistic, adCmdTable
'2810 rstSDLLog.AddNew
'2820 rstSDLLog!KundenNr = !KundenNr
'2830 rstSDLLog!KfzKennzeichen = !KfzKennzeichen
'2840 rstSDLLog!SDLNr = !SDLNr
'2850 rstSDLLog!History = !LfdNr
'2860 rstSDLLog!BestellNr = !BestellNr
'2870 rstSDLLog!Bestelldatum = !Bestelldatum
'2880 rstSDLLog!KartenNr = !KartenNr
'2890 rstSDLLog!Kategorie = !Kategorie
'2900 rstSDLLog!Erfassungsdatum = !Erfassungsdatum
'2910 rstSDLLog!Sachbearbeiter = !Sachbearbeiter
'2920 rstSDLLog!RIUD = "I"
'2930 rstSDLLog!Name = CurrentUser()
'2940 rstSDLLog!Zeitstempel = Now
'2950 rstSDLLog.Update
'2960 rstSDLLog.Close
'2970 End If
'2980 .Close
'2990 End With
'3000 End If
'3010 rstKunden.Close
'10 strSQL = "SELECT Max(LfdNr) As Historywert, COUNT(*) AS Anzahl" & _
' " FROM vwSDL" & _
' " WHERE (KundenNr = " & lngKundenNr & ")" & _
' " AND (SDLNr = " & lngSDLNr & ")"
Catch ex As Exception
@@ -2865,7 +3054,7 @@ Public Class frmKundenblatt
KUNDE.SAVE()
End If
Else
MsgBox("Feld Gesprächstbericht darf nicht leer sein")
MsgBox("Feld Gesprächsbericht darf nicht leer sein")
End If
End Sub

2
SDL/kunden/usrCntlIDSPreise.vb
View File

@@ -524,7 +524,7 @@ Public Class usrCntlIDSPreise
If dgvIDS.SelectedCells.Count > 0 Then
If dgvIDS.SelectedCells(0).RowIndex > -1 AndAlso dgvIDS.Rows(dgvIDS.SelectedCells(0).RowIndex).Cells("OutletCountryCode").Value > 0 Then
initDGVDieselpreiseDetails(dgvIDS.Rows(dgvIDS.SelectedCells(0).RowIndex).Cells("OutletCountryCode").Value)
'initDGVDieselpreiseDetails(dgvIDS.Rows(dgvIDS.SelectedCells(0).RowIndex).Cells("OutletCountryCode").Value) 'hier nicht neu laden!!!!
End If
Else