Active Reports to Vers 18 (from18ish..)

This commit is contained in:
2025-06-22 21:52:30 +02:00
parent 2182b5e887
commit dea90d7fb5
400 changed files with 78615 additions and 33556 deletions

View File

@@ -180,7 +180,7 @@ Partial Public Class rptSDLBrief
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBrief
Public sdlNr As Integer = -1

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_AT
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_cz
Public sqlStr = ""
@@ -40,6 +40,6 @@ Public Class subrptBriefSDL_cz
End If
End Sub
End Class

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_MSE
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_FR
Public sqlStr = ""
@@ -40,5 +40,5 @@ Public Class subrptBriefSDL_FR
End If
End Sub
End Class

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_FREJUS
Public sqlStr = ""
@@ -41,6 +41,6 @@ Public Class subrptBriefSDL_FREJUS
End If
End Sub
End Class

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_HUGO
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_IDS
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_IT
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_DE
Public sqlStr = ""
@@ -40,6 +40,6 @@ Public Class subrptBriefSDL_DE
End If
End Sub
End Class

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_MULTIBOX
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_PL
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_SI
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_UTA
Public sqlStr = ""

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_WOELFL
Public sqlStr = ""
@@ -29,7 +29,7 @@ Public Class subrptBriefSDL_WOELFL
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblAusstellDat.Text = cSqlDb.checkNullDate(Fields.Item("Ausstellungsdatum").Value).ToShortDateString
lblKartenSchluesselNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenSchl<EFBFBD>sselNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White

View File

@@ -104,7 +104,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.948032!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -196,7 +196,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.944095!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertungUeberfaelligeBestellungen
Partial Public Class rptAuswertungUeberfaelligeBestellungen
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
@@ -8,7 +8,7 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
@@ -186,7 +186,7 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932284!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,7 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptAuswertungUeberfaelligeBestellungen
Public Class rptAuswertungUeberfaelligeBestellungen
Public SDLNr = ""
Public von As New Date
Public bis As New Date
@@ -62,7 +62,7 @@ Public Class rptAuswertungUeberfaelligeBestellungen
' Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
lblLeistung.Text = CStr(Fields.Item("SDLNr").Value) & " " & CStr(Fields.Item("SDLBez").Value)
' MsgBox("A")
Dim kd = If(IsNumeric(kdnr) AndAlso kdnr > 0, " AND KundenNr = " & kdnr, "")
Dim sdlStr = If(IsNumeric(SDLNr) AndAlso SDLNr > 0, " AND SDLNr = '" & CStr(Fields.Item("SDLNr").Value) & "'", "")
@@ -74,7 +74,7 @@ Public Class rptAuswertungUeberfaelligeBestellungen
kd &
" ORDER BY SDLNr ASC, Bestelldatum ASC, Ordnungsbegriff ASC "
subrpt.Report = New subrptAuswertungUeberfaelligeBestellungen(sqlStr)
End Sub
End Class

View File

@@ -294,7 +294,7 @@ Partial Public Class rptLeereOBU
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptLeereOBU
Public sdlNr As Integer = -1
@@ -14,7 +14,7 @@ Public Class rptLeereOBU
If sdlNr > 0 Then where = " AND SDLNr=" & sdlNr
'MsgBox("SELECT * FROM [SDL].[dbo].[SDL] WHERE (OBUID is null or OBUID = '') AND SDLNr IN (200,203,201,209,210,213) " & where & " AND Bestelldatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' ORDER BY SDLNr, KundenNr, KfzKennzeichen, Bestelldatum,Lieferdatum")
Me.DataSource = kundenSQL.loadDgvBySql("SELECT * FROM [SDL].[dbo].[SDL] WHERE (OBUID is null or OBUID = '') AND SDLNr IN (200,203,201,209,210,213) " & where & " AND <20>nderungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' ORDER BY SDLNr, KundenNr, KfzKennzeichen, Bestelldatum,Lieferdatum", "SDL")
If sdlText <> "" Then lblSDLLeistung.Text = sdlText
End Sub

View File

@@ -52,31 +52,31 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label15,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblBetreff,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKennzeichen,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKarteBox,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label21,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo2,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.picVERAG,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lbl,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblFirma,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label2,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label5,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label6,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label9,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label10,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label12,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo3,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label8,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblFAX,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKdNr,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label13,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label7,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit
'
'PageHeader
'
@@ -218,7 +218,7 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l"& _
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
@@ -228,7 +228,7 @@ Partial Public Class rptSDLAbrechnungsblatt
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"),System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -264,7 +264,7 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA"&Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.472441!
Me.lblFirma.Width = 3.043307!
'
@@ -355,7 +355,7 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a"& _
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
@@ -367,7 +367,7 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l"& _
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
@@ -449,39 +449,39 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.Sections.Add(Me.Detail)
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"& _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita"& _
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.Label14,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label15,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblBetreff,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKennzeichen,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKarteBox,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label21,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo2,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.picVERAG,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lbl,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblFirma,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label2,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label5,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label6,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label9,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label10,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label12,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo3,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label8,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblFAX,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKdNr,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label13,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label7,System.ComponentModel.ISupportInitialize).EndInit
CType(Me,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit
CType(Me, System.ComponentModel.ISupportInitialize).EndInit
End Sub
End Sub
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLAbrechnungsblatt
Public sdlNr As Integer = -1

View File

@@ -230,7 +230,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungCZ
Public sdlNr As Integer = -1

View File

@@ -261,7 +261,7 @@ Partial Public Class rptSDLBenachrichtigungDE
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungDE
Public sdlNr As Integer = -1
@@ -44,11 +44,11 @@ Public Class rptSDLBenachrichtigungDE
If KUNDE.Telefax <> "" Then : lblFAX.Text = "FAX-Nr.: " & KUNDE.Telefax
ElseIf KUNDE.E_Mail <> "" Then : lblFAX.Text = "E-Mail: " & KUNDE.E_Mail
End If
End If
End If
Select Case Sprache
Case "DE"
If fahrer Then
If fahrer Then
lblBetreff.Text = "<EFBFBD>BERNAHMEBEST<EFBFBD>TIGUNG"
'lblUnterschrFahrer.Text = "<22>BERNAHMEBEST<53>TIGUNG"
End If
@@ -104,7 +104,7 @@ Public Class rptSDLBenachrichtigungDE
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
lblKarteBox.Text = cSqlDb.checkNullStr(Fields.Item("KARTEBOX").Value)
If fahrer Then

View File

@@ -232,7 +232,7 @@ Partial Public Class rptSDLBenachrichtigungids
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungids
Public sdlNr As Integer = -1

View File

@@ -193,7 +193,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungMSE
Public sdlNr As Integer = -1

View File

@@ -230,7 +230,7 @@ Partial Public Class rptSDLBenachrichtigungPL
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungPL
Public sdlNr As Integer = -1

View File

@@ -199,7 +199,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungUTA
Public sdlNr As Integer = -1

View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptAuswertungUeberfaelligeBestellungen
Partial Public Class subrptAuswertungUeberfaelligeBestellungen
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
@@ -8,7 +8,7 @@ Partial Public Class subrptAuswertungUeberfaelligeBestellungen
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.

View File

@@ -1,9 +1,9 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class subrptAuswertungUeberfaelligeBestellungen
Public Class subrptAuswertungUeberfaelligeBestellungen
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.

View File

@@ -361,7 +361,7 @@ Partial Public Class rptAufschubabgleich
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 8.410236!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptGestellungskontrolleEZOLL
Partial Public Class rptGestellungskontrolleEZOLL
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
@@ -8,7 +8,7 @@ Partial Public Class rptGestellungskontrolleEZOLL
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
@@ -409,7 +409,7 @@ Partial Public Class rptGestellungskontrolleEZOLL
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932282!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -53,7 +53,7 @@ Public Class rptGestellungskontrolleEZOLL
'" GROUP BY veoant_beznr " &
'" ORDER BY Antragsdatum "
' MsgBox(sqlStr)
Dim kundenSQL As New kundenSQL
@@ -86,7 +86,7 @@ Public Class rptGestellungskontrolleEZOLL
lblBuergschaft.Text = NullValueStr(Fields.Item("GRN").Value, True)
lblSiBetragValue.Text = "<EFBFBD> " & NullValueDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
' anzT += CInt(lblAnzTValue.Text)
summeSiBetr += CDbl(Fields.Item("GarantieWert").Value)

View File

@@ -316,7 +316,7 @@ Partial Public Class rptKontrolleLKW
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -150,7 +150,7 @@ Public Class rptKontrolleLKW
Next
subrpt.DataSource = dt
Me.SubReport.Report = subrpt
@@ -165,7 +165,7 @@ Public Class rptKontrolleLKW
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub

View File

@@ -316,7 +316,7 @@ Partial Public Class rptKontrolleLKW_Dakosy
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -141,7 +141,7 @@ Public Class rptKontrolleLKW_NCTSTR
lblNr.Text = anzLkw & "."
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
' MsgBox(Fields.Item("ncts_id").Value)
' MsgBox(Fields.Item("ncts_id").Value)
If SUB_DATA IsNot Nothing Then
@@ -270,12 +270,12 @@ Public Class rptKontrolleLKW_NCTSTR
'per VERSANDSCHEIN
If SUB_DATA IsNot Nothing Then
For Each r In SUB_DATA.Rows
'Dim next_SND = False
For Each l In LIST_NCTSABR.LIST
'If Not next_SND Then
Select Case l.abrg_artAbrechnung
Case "Versandschein"
For Each r In SUB_DATA.Rows
'Dim next_SND = False
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"))
Dim pruefNctsId = False
If Not groupKz Then
@@ -294,17 +294,17 @@ Public Class rptKontrolleLKW_NCTSTR
End If
End If
End Select
' End If
Next
' End If
Next
End If
Next
End If
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.WhiteSmoke

View File

@@ -316,7 +316,7 @@ Partial Public Class rptKontrolleLKW_TELOTEC
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -316,7 +316,7 @@ Partial Public Class rptKontrolleLKW_Zolaris
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -118,7 +118,7 @@ Public Class rptKontrolleLKW_Zolaris
Dim subrpt As New subrptKontrolleLKW_Zolaris
subrpt.Kennzeichen = Fields.Item("DepIdnt").Value
subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
Dim dt As DataTable = SUB_DATA.Clone
dt.Rows.Clear()

View File

@@ -399,7 +399,7 @@ Partial Public Class rptTGestellungskontrolle
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932283!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -52,7 +52,7 @@ Public Class rptTGestellungskontrolle
'" GROUP BY veoant_beznr " &
'" ORDER BY Antragsdatum "
' MsgBox(sqlStr)
Dim kundenSQL As New kundenSQL

View File

@@ -401,7 +401,7 @@ Partial Public Class rptTGestellungskontrolleDY
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932283!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -54,7 +54,7 @@ Public Class rptTGestellungskontrolleDY
'" GROUP BY veoant_beznr " &
'" ORDER BY Antragsdatum "
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 600)

View File

@@ -26,7 +26,7 @@ Public Class subrptKontrolleLKW_Zolaris
Me.PageSettings.Margins.Right = 0.3
Me.PageSettings.Margins.Top = 0.5
Me.PageSettings.Margins.Bottom = 0.4
End Sub
Dim dummycount As Integer = 0