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-10-02 10:37:26 +02:00
parent ce31c2c398
commit 75b12f314d
42 changed files with 1131 additions and 510 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.Designer.vb generated
View File

@@ -369,7 +369,7 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 2.909843!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-weight: bold"
Me.Label10.Style = "font-weight: bold; text-justify: auto"
Me.Label10.Text = "ZOLL AT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten aus ZOLARIS / E-ZOLL"
Me.Label10.Top = 0.0472441!
Me.Label10.Width = 1.965748!

69
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb
View File

@@ -47,17 +47,25 @@ Public Class rptKontrolleLKW_NCTSTR
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
'Dim brg_DE_IMEX As String =
' Dim brg_DE_ATILLA As String = "20AT520000G000092"
Dim firmaStr = ""
If FIRMA = "MAVI" Then
If FIRMA = "VERIMEX_MAVI" Then
firmaStr = " AND [ncts_Partnersystem] IN('MAVI') "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("VERIMEX_MAVI")
Label10.Text = " Auswertung MAVI"
ElseIf FIRMA = "VERIMEX_OREGON" Then
firmaStr = " AND [ncts_Partnersystem] IN('OREGON') "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("VERIMEX_OREGON")
Label10.Text = " Auswertung OREGON"
ElseIf FIRMA = "ATEZ" Then
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
Label10.Text = " Auswertung ATEZ"
End If
If True Then '"OREGON"
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("OREGON")
End If
' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
@@ -71,7 +79,6 @@ Public Class rptKontrolleLKW_NCTSTR
sqlStr &= " group by cast(ncts_Eroeffnung as date),ncts_Befoerderungsmittel_KennzeichenAbgang"
sqlStr &= " order by cast(ncts_Eroeffnung as date)"
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
@@ -138,21 +145,63 @@ Public Class rptKontrolleLKW_NCTSTR
End If
If LIST_NCTSABR IsNot Nothing Then
For Each l In LIST_NCTSABR.LIST
If CDbl(Fields.Item("GarantieWert").Value) < l.abrg_GarantiewertBis Then
Select Case l.abrg_artAbrechnung
Case "LKW" : l._ANZAHL += 1 : Exit For
Case "%"
'per LKW
For Each l In LIST_NCTSABR.LIST
Dim GarantieWertLKW As Double = CDbl(Fields.Item("GarantieWert").Value)
Select Case l.abrg_artAbrechnung
Case "LKW"
If GarantieWertLKW < l.abrg_GarantiewertBis Then
l._ANZAHL += 1 : Exit For
End If
'Case "Versandschein"
' If SUB_DATA IsNot Nothing Then
' For Each r In SUB_DATA.Rows
' Dim GarantieWertSND As Double = CDbl(r("GarantieWert"))
' If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And r("Kennzeichen") = Fields.Item("Kennzeichen").Value Then
' If GarantieWertSND < l.abrg_GarantiewertBis Then
' l._ANZAHL += 1
' End If
' End If
' Next
' End If
Case "%" 'LKW
If GarantieWertLKW < l.abrg_GarantiewertBis Then
l._ANZAHL += 1
Dim prozent As Double = 0.001
If l.abrg_prozent IsNot Nothing Then prozent = CDbl(l.abrg_prozent)
l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent : Exit For
End Select
l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent
Exit For
End If
End Select
Next
'per VERSANDSCHEIN
For Each r In SUB_DATA.Rows
'Dim next_SND = False
If SUB_DATA IsNot Nothing Then
For Each l In LIST_NCTSABR.LIST
'If Not next_SND Then
Select Case l.abrg_artAbrechnung
Case "Versandschein"
Dim GarantieWertSND As Double = CDbl(r("GarantieWert"))
If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And r("Kennzeichen") = Fields.Item("Kennzeichen").Value Then
If GarantieWertSND < l.abrg_GarantiewertBis Then
l._ANZAHL += 1
'next_SND = True
Exit For
End If
End If
End Select
' End If
Next
End If
Next
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Drawing.Color.White

72
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.Designer.vb generated
View File

@@ -37,6 +37,8 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbrechnugnsart = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -48,6 +50,8 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesamtsumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbrechnugnsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -59,7 +63,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.Label1.Height = 0.2208662!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Left = 1.487008!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label1.Text = "Garantiewert"
@@ -70,7 +74,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.Label2.Height = 0.2208662!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.48937!
Me.Label2.Left = 2.976378!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label2.Text = "Anzahl"
@@ -81,7 +85,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.Label3.Height = 0.2208662!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 2.530709!
Me.Label3.Left = 4.017717!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label3.Text = "Einzelpreis"
@@ -92,7 +96,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.Label4.Height = 0.2208662!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 3.572048!
Me.Label4.Left = 5.059056!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label4.Text = "Gesamtpreis"
@@ -101,7 +105,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblGarantieBis, Me.lblAnzahl, Me.lblEinzelpreis, Me.lblGesamtpreis})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblGarantieBis, Me.lblAnzahl, Me.lblEinzelpreis, Me.lblGesamtpreis, Me.lblAbrechnugnsart})
Me.Detail.Height = 0.168504!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
@@ -110,7 +114,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.lblGarantieBis.Height = 0.168504!
Me.lblGarantieBis.HyperLink = Nothing
Me.lblGarantieBis.Left = 0!
Me.lblGarantieBis.Left = 1.487008!
Me.lblGarantieBis.Name = "lblGarantieBis"
Me.lblGarantieBis.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblGarantieBis.Text = "Garantiewert bis"
@@ -121,7 +125,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.lblAnzahl.Height = 0.168504!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 1.48937!
Me.lblAnzahl.Left = 2.976378!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblAnzahl.Text = "Anzahl"
@@ -132,7 +136,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.lblEinzelpreis.Height = 0.168504!
Me.lblEinzelpreis.HyperLink = Nothing
Me.lblEinzelpreis.Left = 2.530709!
Me.lblEinzelpreis.Left = 4.017717!
Me.lblEinzelpreis.Name = "lblEinzelpreis"
Me.lblEinzelpreis.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblEinzelpreis.Text = "Einzelpreis"
@@ -143,7 +147,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.lblGesamtpreis.Height = 0.168504!
Me.lblGesamtpreis.HyperLink = Nothing
Me.lblGesamtpreis.Left = 3.572048!
Me.lblGesamtpreis.Left = 5.059056!
Me.lblGesamtpreis.Name = "lblGesamtpreis"
Me.lblGesamtpreis.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblGesamtpreis.Text = "Gesamtpreis"
@@ -157,7 +161,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Line})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label6, Me.Label5, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Line})
Me.ReportHeader1.Height = 0.7811025!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -174,16 +178,16 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
'Line
'
Me.Line.Height = 0!
Me.Line.Height = 0.00000005960464!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.7653544!
Me.Line.Width = 4.613386!
Me.Line.Top = 0.7811024!
Me.Line.Width = 6.100394!
Me.Line.X1 = 0!
Me.Line.X2 = 4.613386!
Me.Line.Y1 = 0.7653544!
Me.Line.Y2 = 0.7653544!
Me.Line.X2 = 6.100394!
Me.Line.Y1 = 0.7811024!
Me.Line.Y2 = 0.7811024!
'
'ReportFooter1
'
@@ -195,7 +199,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.lblGesamtsumme.Height = 0.168504!
Me.lblGesamtsumme.HyperLink = Nothing
Me.lblGesamtsumme.Left = 3.572047!
Me.lblGesamtsumme.Left = 5.059055!
Me.lblGesamtsumme.Name = "lblGesamtsumme"
Me.lblGesamtsumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesamtsumme.Text = "Gesamtpreis"
@@ -206,7 +210,7 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.Label11.Height = 0.168504!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 2.529528!
Me.Label11.Left = 4.016536!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.Label11.Text = "Gesamtsumme:"
@@ -229,16 +233,38 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 3.572047!
Me.Line2.Left = 5.059055!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.2204725!
Me.Line2.Width = 1.041339!
Me.Line2.X1 = 3.572047!
Me.Line2.X2 = 4.613386!
Me.Line2.X1 = 5.059055!
Me.Line2.X2 = 6.100394!
Me.Line2.Y1 = 0.2204725!
Me.Line2.Y2 = 0.2204725!
'
'Label6
'
Me.Label6.Height = 0.2208662!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label6.Text = "Abrechnugsart"
Me.Label6.Top = 0.5602363!
Me.Label6.Width = 1.48937!
'
'lblAbrechnugnsart
'
Me.lblAbrechnugnsart.Height = 0.168504!
Me.lblAbrechnugnsart.HyperLink = Nothing
Me.lblAbrechnugnsart.Left = 0!
Me.lblAbrechnugnsart.Name = "lblAbrechnugnsart"
Me.lblAbrechnugnsart.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblAbrechnugnsart.Text = "per Versandschein"
Me.lblAbrechnugnsart.Top = 0!
Me.lblAbrechnugnsart.Width = 1.48937!
'
'subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.MasterReport = False
@@ -267,6 +293,8 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesamtsumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbrechnugnsart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -287,4 +315,6 @@ Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
Public WithEvents lblGesamtsumme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblAbrechnugnsart As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

6
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb
View File

@@ -37,9 +37,15 @@ Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
Case "LKW"
lblEinzelpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("EINZALBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAbrechnugnsart.Text = "per LKW"
Case "Versandschein"
lblEinzelpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("EINZALBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAbrechnugnsart.Text = "per Versandschein"
Case "%"
lblEinzelpreis.Text = ""
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAbrechnugnsart.Text = "% vom Sicherheit"
End Select