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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-05-31 22:25:35 +02:00
parent 4a358d43fd
commit 083e666fbc
214 changed files with 14292 additions and 4117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1822
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

27
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -301,6 +301,8 @@ Public Class frmNacherfassungNEU
cboFilialeHandling.changeItem(If(SPEDITIONSBUCH.FilialenNrHandling, ""))
txtHandlingZuKassieren._value = SPEDITIONSBUCH.HandlingZuKassieren
cboGrenze.changeItem(If(SPEDITIONSBUCH.Grenzstelle, ""))
lblLastMa.Text = SPEDITIONSBUCH.Sachbearbeiter
If SPEDITIONSBUCH.AvisoID IsNot Nothing Then avisoLinkId = SPEDITIONSBUCH.AvisoID
@@ -322,7 +324,7 @@ Public Class frmNacherfassungNEU
If .RowCount > 0 Then .Rows.Clear()
If (txtAbfertigungsnummer.Text.Trim <> "" AndAlso IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text > 0) And (cboFiliale._value.Trim <> "" AndAlso IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0) Then
.DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "') OR LKW_id='" & If(SPEDITIONSBUCH.AvisoID, -123456) & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
.DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "' and FilialenNr>0 and AbfertigungsNr>0) OR LKW_id='" & If(SPEDITIONSBUCH.AvisoID, -123456) & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
'AND UnterNr='" & SPEDITIONSBUCH.UnterNr & "' --> Unternr gibts ned
'MsgBox("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId")
.Columns("rksv_BelegId").HeaderText = "Beleg-Id"
@@ -616,6 +618,17 @@ Public Class frmNacherfassungNEU
cboFiskalSchreiben.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Endempfänger", "ENDEMPF"))
cboFiskalSchreiben.SelectedIndex = 0
cboGrenze.Items.Clear()
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
If avisoLinkId > 0 Then
Dim SQLAVISO As New VERAG_PROG_ALLGEMEIN.cavisoDAL
Me.AVISO = SQLAVISO.LesenAviso(avisoLinkId, "")
@@ -944,6 +957,9 @@ Public Class frmNacherfassungNEU
SPEDITIONSBUCH.FilialenNrHandling = cProgramFunctions.isLeerNothing(cboFilialeHandling._value)
SPEDITIONSBUCH.HandlingZuKassieren = If(IsNumeric(txtHandlingZuKassieren._value), CDbl(txtHandlingZuKassieren._value), 0)
SPEDITIONSBUCH.Grenzstelle = cProgramFunctions.isLeerNothing(cboGrenze._value)
SPEDITIONSBUCH.SB_CMRDatum = Nothing
If pnlFiskal.Visible Then
@@ -1161,6 +1177,15 @@ Public Class frmNacherfassungNEU
btnWeiter.Focus()
End If
End If
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value, True, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
txtAvisierer._UseFIRMA = FirmaTmp
txtAbsender._UseFIRMA = FirmaTmp
txtEmpfaenger._UseFIRMA = FirmaTmp
txtAuftraggeber._UseFIRMA = FirmaTmp
txtFraechter._UseFIRMA = FirmaTmp
txtEndEmpf._UseFIRMA = FirmaTmp
End Sub

518
SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_HandlingAussenstellen.Designer.vb generated
View File

@@ -18,15 +18,6 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSpeditionsbericht_HandlingAussenstellen))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblPosNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -56,13 +47,28 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSumHandlingsgebuehr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumzuKassierenHandling = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumBarzahlungsbetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtUebersicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbfArtUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGesSumAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblGesHandlingsgebuehr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGeszuKassierenHandling = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGesBarzahlungsbetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfDatum, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -84,124 +90,28 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
CType(Me.lblSumHandlingsgebuehr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumzuKassierenHandling, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfArtUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesSumAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesHandlingsgebuehr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGeszuKassierenHandling, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Line4, Me.Label6, Me.Label8, Me.Label4, Me.Label5, Me.Line12, Me.Label1, Me.Label2})
Me.PageHeader.Height = 0.2536527!
Me.PageHeader.Height = 0.08698601!
Me.PageHeader.Name = "PageHeader"
'
'Label7
'
Me.Label7.Height = 0.1744094!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 1.556693!
Me.Label7.Name = "Label7"
Me.Label7.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; vertical-align: middle; ddo-char-set: 1"
Me.Label7.Text = "Anz."
Me.Label7.Top = 0.03622048!
Me.Label7.Width = 0.3149606!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.2106299!
Me.Line4.Width = 7.475195!
Me.Line4.X1 = 0!
Me.Line4.X2 = 7.475195!
Me.Line4.Y1 = 0.2106299!
Me.Line4.Y2 = 0.2106299!
'
'Label6
'
Me.Label6.Height = 0.1744094!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 5.608268!
Me.Label6.Name = "Label6"
Me.Label6.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label6.Text = "Handling"
Me.Label6.Top = 0.03622048!
Me.Label6.Width = 0.6208658!
'
'Label8
'
Me.Label8.Height = 0.1744094!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.158662!
Me.Label8.Name = "Label8"
Me.Label8.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.Label8.Text = "Empf<EFBFBD>nger"
Me.Label8.Top = 0.03622048!
Me.Label8.Width = 2.433859!
'
'Label4
'
Me.Label4.Height = 0.1744093!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 1.829921!
Me.Label4.Name = "Label4"
Me.Label4.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.Label4.Text = "Abfertigungsart"
Me.Label4.Top = 0.03622048!
Me.Label4.Width = 1.328741!
'
'Label5
'
Me.Label5.Height = 0.1744094!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.01023625!
Me.Label5.Name = "Label5"
Me.Label5.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; vertical-align: middle; ddo-char-set: 1"
Me.Label5.Text = "Abfertigung"
Me.Label5.Top = 0.03622048!
Me.Label5.Width = 1.546457!
'
'Line12
'
Me.Line12.Height = 0.2035433!
Me.Line12.Left = 5.592486!
Me.Line12.LineWeight = 2.0!
Me.Line12.Name = "Line12"
Me.Line12.Top = 0.03622048!
Me.Line12.Width = 0.00003433228!
Me.Line12.X1 = 5.59252!
Me.Line12.X2 = 5.592486!
Me.Line12.Y1 = 0.03622048!
Me.Line12.Y2 = 0.2397638!
'
'Label1
'
Me.Label1.Height = 0.1744094!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 6.229134!
Me.Label1.Name = "Label1"
Me.Label1.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label1.Text = "zu kassieren"
Me.Label1.Top = 0.03622048!
Me.Label1.Width = 0.6208658!
'
'Label2
'
Me.Label2.Height = 0.1744094!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.854331!
Me.Label2.Name = "Label2"
Me.Label2.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label2.Text = "(kassiert)"
Me.Label2.Top = 0.03622048!
Me.Label2.Width = 0.6208658!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblPosNr, Me.lblAbfertigungsart, Me.lblAbfDatum, Me.lblAnzahl, Me.lblEndEmpf, Me.lblEndEmpfKdNr, Me.Line11, Me.lblHandlingsgebuehr, Me.lblzuKassierenHandling, Me.lblBarzahlungsbetrag})
@@ -257,7 +167,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
'
Me.lblEndEmpf.Height = 0.1574804!
Me.lblEndEmpf.HyperLink = Nothing
Me.lblEndEmpf.Left = 3.572049!
Me.lblEndEmpf.Left = 3.634646!
Me.lblEndEmpf.MultiLine = False
Me.lblEndEmpf.Name = "lblEndEmpf"
Me.lblEndEmpf.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
@@ -265,7 +175,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
"ar-set: 1"
Me.lblEndEmpf.Text = "VERAG"
Me.lblEndEmpf.Top = 0.03149619!
Me.lblEndEmpf.Width = 2.020472!
Me.lblEndEmpf.Width = 1.957875!
'
'lblEndEmpfKdNr
'
@@ -276,9 +186,9 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblEndEmpfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.lblEndEmpfKdNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.lblEndEmpfKdNr.Text = "100000 VERAG"
Me.lblEndEmpfKdNr.Text = "1000001 VERAG"
Me.lblEndEmpfKdNr.Top = 0.03149607!
Me.lblEndEmpfKdNr.Width = 0.4133847!
Me.lblEndEmpfKdNr.Width = 0.4759839!
'
'Line11
'
@@ -436,8 +346,8 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label10, Me.lblGesGesSumAnzahl, Me.Line8, Me.Line9, Me.lblSumHandlingsgebuehr, Me.lblSumzuKassierenHandling, Me.lblSumBarzahlungsbetrag})
Me.ReportFooter1.Height = 0.2433071!
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label10, Me.lblGesGesSumAnzahl, Me.Line8, Me.Line9, Me.lblSumHandlingsgebuehr, Me.lblSumzuKassierenHandling, Me.lblSumBarzahlungsbetrag, Me.Line5, Me.Label12, Me.txtUebersicht})
Me.ReportFooter1.Height = 0.838189!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
@@ -449,45 +359,45 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 7pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = " Abfertigungen"
Me.Label10.Top = 0.08582678!
Me.Label10.Top = 0.2110237!
Me.Label10.Width = 0.8287402!
'
'lblGesGesSumAnzahl
'
Me.lblGesGesSumAnzahl.Height = 0.1574803!
Me.lblGesGesSumAnzahl.HyperLink = Nothing
Me.lblGesGesSumAnzahl.Left = 0.003937038!
Me.lblGesGesSumAnzahl.Left = 0.003937068!
Me.lblGesGesSumAnzahl.Name = "lblGesGesSumAnzahl"
Me.lblGesGesSumAnzahl.Style = "font-size: 7pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesGesSumAnzahl.Text = "0000"
Me.lblGesGesSumAnzahl.Top = 0.08582678!
Me.lblGesGesSumAnzahl.Top = 0.2110237!
Me.lblGesGesSumAnzahl.Width = 0.3606307!
'
'Line8
'
Me.Line8.Height = 0!
Me.Line8.Left = 0.0039363!
Me.Line8.Left = 0.00393633!
Me.Line8.LineWeight = 2.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.03628609!
Me.Line8.Top = 0.161483!
Me.Line8.Width = 7.475195!
Me.Line8.X1 = 0.0039363!
Me.Line8.X1 = 0.00393633!
Me.Line8.X2 = 7.479131!
Me.Line8.Y1 = 0.03628609!
Me.Line8.Y2 = 0.03628609!
Me.Line8.Y1 = 0.161483!
Me.Line8.Y2 = 0.161483!
'
'Line9
'
Me.Line9.Height = 0!
Me.Line9.Left = 0.002755197!
Me.Line9.Left = 0.002755227!
Me.Line9.LineWeight = 2.0!
Me.Line9.Name = "Line9"
Me.Line9.Top = 0.00006568432!
Me.Line9.Top = 0.1252626!
Me.Line9.Width = 7.475194!
Me.Line9.X1 = 0.002755197!
Me.Line9.X1 = 0.002755227!
Me.Line9.X2 = 7.477949!
Me.Line9.Y1 = 0.00006568432!
Me.Line9.Y2 = 0.00006568432!
Me.Line9.Y1 = 0.1252626!
Me.Line9.Y2 = 0.1252626!
'
'lblSumHandlingsgebuehr
'
@@ -499,7 +409,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSumHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblSumHandlingsgebuehr.Text = "1.000,00"
Me.lblSumHandlingsgebuehr.Top = 0.08582678!
Me.lblSumHandlingsgebuehr.Top = 0.2110237!
Me.lblSumHandlingsgebuehr.Width = 0.6208655!
'
'lblSumzuKassierenHandling
@@ -512,7 +422,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSumzuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblSumzuKassierenHandling.Text = "1.000,00"
Me.lblSumzuKassierenHandling.Top = 0.08582678!
Me.lblSumzuKassierenHandling.Top = 0.2110237!
Me.lblSumzuKassierenHandling.Width = 0.6208655!
'
'lblSumBarzahlungsbetrag
@@ -525,9 +435,264 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSumBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblSumBarzahlungsbetrag.Text = "1.000,00"
Me.lblSumBarzahlungsbetrag.Top = 0.08582678!
Me.lblSumBarzahlungsbetrag.Top = 0.2110237!
Me.lblSumBarzahlungsbetrag.Width = 0.6208655!
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0.001968504!
Me.Line5.LineWeight = 2.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.1251969!
Me.Line5.Width = 7.475195!
Me.Line5.X1 = 0.001968504!
Me.Line5.X2 = 7.477164!
Me.Line5.Y1 = 0.1251969!
Me.Line5.Y2 = 0.1251969!
'
'Label12
'
Me.Label12.Height = 0.1574803!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 0!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 7pt; font-weight: bold; text-align: left; text-decoration: underline; " &
"ddo-char-set: 1"
Me.Label12.Text = "<EFBFBD>bersicht:"
Me.Label12.Top = 0.4807087!
Me.Label12.Width = 0.8287402!
'
'txtUebersicht
'
Me.txtUebersicht.Height = 0.2!
Me.txtUebersicht.Left = 0!
Me.txtUebersicht.Name = "txtUebersicht"
Me.txtUebersicht.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; ddo-char-set: 1"
Me.txtUebersicht.Text = Nothing
Me.txtUebersicht.Top = 0.638189!
Me.txtUebersicht.Width = 3.75!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Line4, Me.Label6, Me.Label8, Me.Label4, Me.Label5, Me.Line12, Me.Label1, Me.Label2, Me.lblAbfArtUeberschrift})
Me.GroupHeader1.Height = 0.5973535!
Me.GroupHeader1.Name = "GroupHeader1"
'
'Label7
'
Me.Label7.Height = 0.1744094!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 1.559449!
Me.Label7.Name = "Label7"
Me.Label7.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; vertical-align: middle; ddo-char-set: 1"
Me.Label7.Text = "Anz."
Me.Label7.Top = 0.3799213!
Me.Label7.Width = 0.3149606!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.002755877!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.5543307!
Me.Line4.Width = 7.475194!
Me.Line4.X1 = 0.002755877!
Me.Line4.X2 = 7.47795!
Me.Line4.Y1 = 0.5543307!
Me.Line4.Y2 = 0.5543307!
'
'Label6
'
Me.Label6.Height = 0.1744094!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 5.611023!
Me.Label6.Name = "Label6"
Me.Label6.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label6.Text = "Handling"
Me.Label6.Top = 0.3799213!
Me.Label6.Width = 0.6208658!
'
'Label8
'
Me.Label8.Height = 0.1744094!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.161418!
Me.Label8.Name = "Label8"
Me.Label8.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.Label8.Text = "Empf<EFBFBD>nger"
Me.Label8.Top = 0.3799213!
Me.Label8.Width = 2.433859!
'
'Label4
'
Me.Label4.Height = 0.1744093!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 1.832677!
Me.Label4.Name = "Label4"
Me.Label4.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.Label4.Text = "Abfertigungsart"
Me.Label4.Top = 0.3799213!
Me.Label4.Width = 1.328741!
'
'Label5
'
Me.Label5.Height = 0.1744094!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.01299213!
Me.Label5.Name = "Label5"
Me.Label5.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; vertical-align: middle; ddo-char-set: 1"
Me.Label5.Text = "Abfertigung"
Me.Label5.Top = 0.3799213!
Me.Label5.Width = 1.546457!
'
'Line12
'
Me.Line12.Height = 0.2035433!
Me.Line12.Left = 5.595242!
Me.Line12.LineWeight = 2.0!
Me.Line12.Name = "Line12"
Me.Line12.Top = 0.3799213!
Me.Line12.Width = 0.00003385544!
Me.Line12.X1 = 5.595276!
Me.Line12.X2 = 5.595242!
Me.Line12.Y1 = 0.3799213!
Me.Line12.Y2 = 0.5834646!
'
'Label1
'
Me.Label1.Height = 0.1744094!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 6.23189!
Me.Label1.Name = "Label1"
Me.Label1.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label1.Text = "zu kassieren"
Me.Label1.Top = 0.3799213!
Me.Label1.Width = 0.6208658!
'
'Label2
'
Me.Label2.Height = 0.1744094!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.857087!
Me.Label2.Name = "Label2"
Me.Label2.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label2.Text = "(kassiert)"
Me.Label2.Top = 0.3799213!
Me.Label2.Width = 0.6208658!
'
'lblAbfArtUeberschrift
'
Me.lblAbfArtUeberschrift.Height = 0.2161417!
Me.lblAbfArtUeberschrift.HyperLink = Nothing
Me.lblAbfArtUeberschrift.Left = 0!
Me.lblAbfArtUeberschrift.Name = "lblAbfArtUeberschrift"
Me.lblAbfArtUeberschrift.Style = "background-color: DimGray; color: White; font-size: 10pt; font-weight: bold; text" &
"-align: left; vertical-align: middle; ddo-char-set: 1"
Me.lblAbfArtUeberschrift.Text = "1 - ZA"
Me.lblAbfArtUeberschrift.Top = 0.1519685!
Me.lblAbfArtUeberschrift.Width = 7.480316!
'
'GroupFooter1
'
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label9, Me.lblGesSumAnzahl, Me.Line1, Me.Line3, Me.lblGesHandlingsgebuehr, Me.lblGeszuKassierenHandling, Me.lblGesBarzahlungsbetrag})
Me.GroupFooter1.Name = "GroupFooter1"
'
'Label9
'
Me.Label9.Height = 0.1574803!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.3610249!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 7pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = " Abfertigungen"
Me.Label9.Top = 0.08914042!
Me.Label9.Width = 0.8287402!
'
'lblGesSumAnzahl
'
Me.lblGesSumAnzahl.Height = 0.1574803!
Me.lblGesSumAnzahl.HyperLink = Nothing
Me.lblGesSumAnzahl.Left = 0.00315094!
Me.lblGesSumAnzahl.Name = "lblGesSumAnzahl"
Me.lblGesSumAnzahl.Style = "font-size: 7pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesSumAnzahl.Text = "0000"
Me.lblGesSumAnzahl.Top = 0.08914042!
Me.lblGesSumAnzahl.Width = 0.3606307!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.003150202!
Me.Line1.LineWeight = 2.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.03959971!
Me.Line1.Width = 7.475196!
Me.Line1.X1 = 0.003150202!
Me.Line1.X2 = 7.478346!
Me.Line1.Y1 = 0.03959971!
Me.Line1.Y2 = 0.03959971!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0.001969099!
Me.Line3.LineWeight = 2.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.0033793!
Me.Line3.Width = 7.475196!
Me.Line3.X1 = 0.001969099!
Me.Line3.X2 = 7.477165!
Me.Line3.Y1 = 0.0033793!
Me.Line3.Y2 = 0.0033793!
'
'lblGesHandlingsgebuehr
'
Me.lblGesHandlingsgebuehr.Height = 0.1574803!
Me.lblGesHandlingsgebuehr.HyperLink = Nothing
Me.lblGesHandlingsgebuehr.Left = 5.607481!
Me.lblGesHandlingsgebuehr.Name = "lblGesHandlingsgebuehr"
Me.lblGesHandlingsgebuehr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.lblGesHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblGesHandlingsgebuehr.Text = "1.000,00"
Me.lblGesHandlingsgebuehr.Top = 0.08914042!
Me.lblGesHandlingsgebuehr.Width = 0.6208655!
'
'lblGeszuKassierenHandling
'
Me.lblGeszuKassierenHandling.Height = 0.1574803!
Me.lblGeszuKassierenHandling.HyperLink = Nothing
Me.lblGeszuKassierenHandling.Left = 6.228348!
Me.lblGeszuKassierenHandling.Name = "lblGeszuKassierenHandling"
Me.lblGeszuKassierenHandling.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.lblGeszuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblGeszuKassierenHandling.Text = "1.000,00"
Me.lblGeszuKassierenHandling.Top = 0.08914042!
Me.lblGeszuKassierenHandling.Width = 0.6208655!
'
'lblGesBarzahlungsbetrag
'
Me.lblGesBarzahlungsbetrag.Height = 0.1574803!
Me.lblGesBarzahlungsbetrag.HyperLink = Nothing
Me.lblGesBarzahlungsbetrag.Left = 6.853545!
Me.lblGesBarzahlungsbetrag.Name = "lblGesBarzahlungsbetrag"
Me.lblGesBarzahlungsbetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.lblGesBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblGesBarzahlungsbetrag.Text = "1.000,00"
Me.lblGesBarzahlungsbetrag.Top = 0.08914042!
Me.lblGesBarzahlungsbetrag.Width = 0.6208655!
'
'rptSpeditionsbericht_HandlingAussenstellen
'
Me.MasterReport = False
@@ -540,7 +705,9 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.PrintWidth = 7.480315!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
@@ -549,13 +716,6 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPosNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfDatum, System.ComponentModel.ISupportInitialize).EndInit()
@@ -577,6 +737,21 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
CType(Me.lblSumHandlingsgebuehr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumzuKassierenHandling, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUebersicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfArtUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesSumAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesHandlingsgebuehr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGeszuKassierenHandling, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -598,19 +773,11 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents lblGesGesSumAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblEndEmpf As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEndEmpfKdNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBarzahlungsbetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumHandlingsgebuehr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumzuKassierenHandling As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -618,4 +785,25 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Public WithEvents lblzuKassierenHandling As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumBarzahlungsbetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAbfArtUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesSumAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesHandlingsgebuehr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGeszuKassierenHandling As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesBarzahlungsbetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtUebersicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

54
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -345,13 +345,20 @@ Public Class usrCntlSpeditionsBuchSuche
kdtxtAuftraggeber.initKdBox(Me.FindForm, txtAuftraggeberKdnr) 'initKdAuftraggeber()
kdtxtFrachtfuehrer.initKdBox(Me.FindForm, txtFrachtfuehrerKdnr) 'initKdFrachtfuehrer()
kdtxtEndempfaenger.initKdBox(Me.FindForm, txtEndempfaengerKdnr) 'initKdEndempfaenger()
kdtxtAvisierer.initKdBox(Me.FindForm, txtAvisiererKdNr) 'initKdEndempfaenger()
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
FirmaTmp = "VERAGIMEX"
End If
Dim sbWhere = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FirmaTmp
Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
Case "IMEX" : sbWhere = " AND Mandant = 'IMEX' "
Case "VERAGIMEX" : sbWhere = " "
Case Else
sbWhere = " AND Mandant <> 'IMEX' "
@@ -364,7 +371,7 @@ Public Class usrCntlSpeditionsBuchSuche
cboHandlingssatz.fillWithSQL("SELECT [hs_Bezeichnung] FROM [tblHandlingssaetzeIntern] group by [hs_Bezeichnung] ", False, "FMZOLL", True)
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER And FirmaTmp <> "VERAGIMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE" Then
Dim whereCluster = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE" Then whereCluster = ",'5801'"
@@ -420,6 +427,7 @@ Public Class usrCntlSpeditionsBuchSuche
lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
@@ -1403,7 +1411,7 @@ Public Class usrCntlSpeditionsBuchSuche
sqlstr &= " WHERE 1=1 "
sqlstr &= getSpedBuchWhere()
' sqlstr &= " order by FilialenNr, AvisoId,Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
sqlstr &= " order by Speditionsbuch.Abfertigungsart,FilialenNr,Abfertigungsdatum"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
@@ -1421,6 +1429,9 @@ Public Class usrCntlSpeditionsBuchSuche
rpt.DataSource = dt
If CheckBox1.Checked Then
rpt.GroupHeader1.DataField = "Abfertigungsart" 'Gruppierung
End If
If rpt.DataSource.rows.count = 0 Then
rpt.Dispose() : print.Dispose()
@@ -1454,16 +1465,24 @@ Public Class usrCntlSpeditionsBuchSuche
'Dim gesSumAnzLKW As Double = 0
'Dim gesgesSumAnzLKW As Double = 0
Dim gesAnz As Double = 0
Dim gesBar As Double = 0
Dim geshandling As Double = 0
Dim geszukassBAR As Double = 0
Dim sumAnz As Double = 0
Dim sumBar As Double = 0
Dim sumhandling As Double = 0
Dim sumzukassBAR As Double = 0
Dim sumAbfBez = ""
Dim gesFilBez = ""
' Dim gesgesAbfBez = ""
Dim SumText = ""
AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
@@ -1506,15 +1525,42 @@ Public Class usrCntlSpeditionsBuchSuche
sumhandling += handling
sumzukassBAR += zukassBAR
gesAnz += anz
gesBar += bar
geshandling += handling
geszukassBAR += zukassBAR
End Sub
Dim bezeichnung = ""
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.lblGesGesSumAnzahl.Text = sumAnz.ToString("N0")
rpt.lblSumBarzahlungsbetrag.Text = sumBar.ToString("N2")
rpt.lblSumzuKassierenHandling.Text = sumzukassBAR.ToString("N2")
rpt.lblSumHandlingsgebuehr.Text = sumhandling.ToString("N2")
rpt.txtUebersicht.Text = SumText
End Sub
AddHandler rpt.GroupHeader1.Format, Sub()
rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
bezeichnung = rpt.lblAbfArtUeberschrift.Text
gesAnz = 0
gesBar = 0
geshandling = 0
geszukassBAR = 0
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblGesSumAnzahl.Text = gesAnz.ToString("N0")
rpt.lblGesBarzahlungsbetrag.Text = gesBar.ToString("N2")
rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2")
rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2")
SumText &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine
End Sub
If showDok Then
print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous