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

Preisliste, Kundenblatt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-12 13:54:30 +01:00
parent c872532ced
commit 30aa0034e0
10 changed files with 334 additions and 232 deletions
Download Patch File Download Diff File 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)

14
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

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