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

RPT

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-08-14 12:47:08 +02:00
parent 801924c221
commit 2f996886a7
247 changed files with 78292 additions and 183 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1506
SDL/ARConverterBackup3/kunden/Berichte/rptFiskalkunde.Designer.vb generated Normal file
View File

File diff suppressed because one or more lines are too long

159
SDL/ARConverterBackup3/kunden/Berichte/rptFiskalkunde.vb Normal file
View File

@@ -0,0 +1,159 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports sun.misc
Imports VERAG_PROG_ALLGEMEIN
Public Class rptFiskalkunde
Dim FiskalId As Integer
Dim Firma = "1"
Dim KdNr As Integer
Dim VM As cKundenVollmachten
Dim BR As cBonitaetsauskunft
Dim EORI As cEORIPruefung
Dim UID As cUIDPruefung
Dim UVM As cKundenVollmachten
Dim VMOriginal As Boolean = False
Dim unterlagenliste As List(Of String)
Sub New(KdNr As Integer, FiskalId As Integer, VM As cKundenVollmachten, BR As cBonitaetsauskunft, EORI As cEORIPruefung, UID As cUIDPruefung, UVM As cKundenVollmachten, VMOriginal As Boolean, unterlagenliste As List(Of String), Optional Firma As String = "VERAG")
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.KdNr = KdNr
Me.FiskalId = FiskalId
Me.Firma = Firma
Me.VM = VM
Me.BR = BR
Me.EORI = EORI
Me.UID = UID
Me.UVM = UVM
Me.unterlagenliste = unterlagenliste
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptKundeUebersicht_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr)
Dim FK As New VERAG_PROG_ALLGEMEIN.cFiskalkunden(FiskalId)
lblUeberschrift.Text = "Checkliste f<>r " & FK.FK_Art & "-Fiskal Kunden"
If FK.FK_Art = "DE" Then
picVeragAG.Visible = True
Else
picVeragCS.Visible = True
End If
txtKdNr.Text = AD.AdressenNr
txtFirma.Text = AD.Name_1 & " " & AD.Name_2
txtEMail.Text = AD.E_Mail
If VM IsNot Nothing Then
If VM.kdvm_emailId > 0 Then
txtVM.Text = " Vollmacht per Mail erhalten "
txtVMJa.Text = "X"
ElseIf VM.kdvm_datenarchivId > 0 Then
txtVM.Text = " Vollmacht liegt vor "
txtVMJa.Text = "X"
Else
txtVM.Text = " Vollmacht liegt NICHT vor "
txtVMNein.Text = "X"
End If
If IsDate(VM.kdvm_erhalten_Datum) Then txtVM.Text &= CDate(VM.kdvm_erhalten_Datum).ToShortDateString
If VMOriginal Then txtVM.Text &= " (Original vorhanden)"
Else
txtVMNein.Text = "X"
End If
If UVM IsNot Nothing Then
If UVM.kdvm_emailId > 0 Then
txtUVM.Text = " Untervollmacht per Mail erhalten "
txtUVMJa.Text = "X"
ElseIf VM.kdvm_datenarchivId > 0 Then
txtUVM.Text = " Untervollmacht liegt vor "
txtUVMJa.Text = "X"
Else
txtUVM.Text = " Untervollmacht liegt NICHT vor "
txtUVMNein.Text = "X"
End If
If IsDate(UVM.kdvm_erhalten_Datum) Then txtUVM.Text &= CDate(UVM.kdvm_erhalten_Datum).ToShortDateString
Else
txtUVMNein.Text = "X"
End If
If BR IsNot Nothing Then
txtBon.Text = "Bonit<EFBFBD>tsscore: "
txtBon.Text &= If(BR.ba_CreditSaveBonitaetsScore, "") & IIf(BR.ba_CreditSaveBonitaetsScore IsNot Nothing AndAlso BR.ba_CreditSaveRisikoklasse IsNot Nothing, "/", "") & If(BR.ba_CreditSaveRisikoklasse, "")
txtBONja.Text = "X"
If IsDate(BR.ba_Datum) Then txtBon.Text &= " - " & CDate(BR.ba_Datum).ToShortDateString
Else
txtBONnein.Text = "X"
End If
txtUmsatz.Text = ""
If IsNumeric(FK.FK_KreditMax) Then txtKredit.Text = CDbl(FK.FK_KreditMax)
If IsNumeric(FK.FK_Umsatz) Then txtUmsatz.Text = CDbl(FK.FK_Umsatz)
If IsNumeric(FK.FK_AnzahlMitarbeiter) Then txtAnzMA.Text = CDbl(FK.FK_AnzahlMitarbeiter)
If IsDate(FK.FK_Gruendungsdatum) Then txtGJ.Text = CDate(FK.FK_Gruendungsdatum).ToShortDateString
txtImport.Text = IIf(FK.FK_Waren <> "", FK.FK_Waren, "")
txtSteuerberater.Text = IIf(FK.FK_Steuerberater <> "", FK.FK_Steuerberater, "")
If FK.FK_Website_URL <> "" Then
txtWebsite.Text = FK.FK_Website_URL
txtWSja.Text = "X"
Else
txtWebsite.Text = ""
txtWSnein.Text = "X"
End If
If unterlagenliste.Contains("HR") Or unterlagenliste.Contains("GW-Anmeldung") Then
txtHRja.Text = "X"
Else
txtHRnein.Text = "X"
End If
For Each c In unterlagenliste
txtSonstiges.Text &= c.ToString & ", "
Next
txtGZ.Text = IIf(FK.FK_Geschaeftszweck <> "", FK.FK_Geschaeftszweck, "")
txtGF.Text = IIf(FK.FK_Geschaeftsfuehrer <> "", FK.FK_Geschaeftsfuehrer, "")
If IsDate(KD.Eingegeben_am) Then txtKundeSeit.Text = CDate(KD.Eingegeben_am).ToShortDateString
If FK.FK_locked Then
Dim mit = New VERAG_PROG_ALLGEMEIN.cMitarbeiter(FK.FK_MaId)
lblKontrolle.Text = "kontrolliert: " & mit.Fullname & ", " & FK.FK_Abschlussdatum
End If
lblDat.Text = Now.ToString("dddd, dd.MM.yyyy")
Select Case Firma
Case "IMEX" : Me.picVeragAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
Case "ATILLA" : Me.picVeragAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
Case "UNISPED" : Me.picVeragAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
Case Else
End Select
txtAnsprechpartner.Text = AD.Ansprechpartner
End Sub
End Class

1088
SDL/ARConverterBackup3/kunden/Berichte/rptFrachtkostenberechnung.Designer.vb generated Normal file
View File

File diff suppressed because one or more lines are too long

83
SDL/ARConverterBackup3/kunden/Berichte/rptFrachtkostenberechnung.vb Normal file
View File

@@ -0,0 +1,83 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports sun.misc
Imports VERAG_PROG_ALLGEMEIN
Public Class rptFrachtkostenberechnung
Dim anteil, gesamtgewicht, warenbez, preis, warengewicht_netto, gesamtpreis, warenanteilsumme, frachtkostenanteil, verzollungskoten, anteilZoll, warengewicht_brutto, BGLZoll, DistanzGes, EU, nichtEU, zollInProzent, BGLEUST, gesamtfracht, gesamtfrachtanteil As String
Dim firma As String
Sub New(Warenbez As String, preis As String, warengewicht_netto As String, gesamtpreis As String, frachtkostenanteil As String, verzollungskosten As String, anteilZoll As String, zollInProzent As String, BGLZoll As String, BGLEUST As String, EU As String, nichtEU As String, DistanzGes As String, Gesamtgewicht As String, warengewicht_brutto As String, anteil As String, warenanteilsumme As String, gesamtfracht As String, gesamtfrachtanteil As String, Optional firna As String = "VERAG")
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.warenbez = Warenbez
Me.preis = preis
Me.warengewicht_netto = warengewicht_netto
Me.gesamtpreis = gesamtpreis
Me.frachtkostenanteil = frachtkostenanteil
Me.verzollungskoten = verzollungskosten
Me.anteilZoll = anteilZoll
Me.zollInProzent = zollInProzent
Me.BGLZoll = BGLZoll
Me.BGLEUST = BGLEUST
Me.EU = EU
Me.nichtEU = nichtEU
Me.DistanzGes = DistanzGes
Me.gesamtgewicht = Gesamtgewicht
Me.warengewicht_brutto = warengewicht_brutto
Me.anteil = anteil
Me.warenanteilsumme = warenanteilsumme
Me.gesamtfracht = gesamtfracht
Me.gesamtfrachtanteil = gesamtfrachtanteil
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptKundeUebersicht_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
'lblUeberschrift.Text = "Checkliste f<>r " & FK.FK_Art & "-Fiskal Kunden"
txtWarenbezeichnung.Text = warenbez
txtWarenbezeichnung2.Text = warenbez
If IsNumeric(preis) Then txtPreis.Text = CDbl(preis)
If IsNumeric(warengewicht_netto) Then txtGewicht.Text = CDbl(warengewicht_netto)
If IsNumeric(gesamtpreis) Then txtWarenanteil.Text = CDbl(gesamtpreis)
If IsNumeric(frachtkostenanteil) Then txtFrachtanteil.Text = CDbl(frachtkostenanteil)
If IsNumeric(verzollungskoten) Then txtVerzollungskosten.Text = CDbl(verzollungskoten)
If IsNumeric(anteilZoll) Then txtZollBetrag.Text = CDbl(anteilZoll)
If IsNumeric(zollInProzent) Then txtZollInProzent.Text = CDbl(zollInProzent) * 100 & " %"
If IsNumeric(BGLZoll) Then txtBGLZoll.Text = CDbl(BGLZoll)
If IsNumeric(BGLEUST) Then txtBGLEUST.Text = CDbl(BGLEUST)
If IsNumeric(EU) Then txtEU.Text = CDbl(EU)
If IsNumeric(nichtEU) Then txtNichtEU.Text = CDbl(nichtEU)
If IsNumeric(DistanzGes) Then txtGesamtdistanz.Text = CDbl(DistanzGes)
If IsNumeric(gesamtgewicht) Then txtGesamtgewicht.Text = CDbl(gesamtgewicht)
If IsNumeric(warengewicht_brutto) Then txtWarengewichtBrutto.Text = CDbl(warengewicht_brutto)
If IsNumeric(warenanteilsumme) Then txtWarenanteilSumme.Text = CDbl(warenanteilsumme)
If IsNumeric(gesamtfracht) Then txtGesamtfracht.Text = CDbl(gesamtfracht)
If IsNumeric(gesamtfrachtanteil) Then txtGesamtfrachtanteil.Text = CDbl(gesamtfrachtanteil)
txtAnteil.Text = anteil
lblDat.Text = Now.ToString("dddd, dd.MM.yyyy")
Select Case Firma
Case "IMEX" : Me.picVERAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
Case Else
End Select
End Sub
End Class

779
SDL/ARConverterBackup3/kunden/Berichte/rptKundeUebersicht.Designer.vb generated Normal file
View File

@@ -0,0 +1,779 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptKundeUebersicht
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
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.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptKundeUebersicht))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picTel = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtFax = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtEMail = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Picture2 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtAnsprechpartner = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Picture3 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.subBonitaetsverlauf = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBesonderheiten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.subOffert = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtZahlungsziel = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKundeSeit = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtSachbearbeiterZOLL = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSachbearbeiterQS = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSVS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKreditaufwendungen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblVorlageprovision = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label17 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.subRptLeistungen = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbrechnungsart = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport1 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.SubReport2 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport3 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picTel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnsprechpartner, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBesonderheiten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZahlungsziel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKundeSeit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSachbearbeiterZOLL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSachbearbeiterQS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSVS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKreditaufwendungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVorlageprovision, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbrechnungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblUeberschrift})
Me.PageHeader.Height = 0.4791666!
Me.PageHeader.Name = "PageHeader"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.28189!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.198425!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "Kundenblatt"
Me.lblUeberschrift.Top = 0.1858268!
Me.lblUeberschrift.Width = 4.357088!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.txtKunde, Me.txtTel, Me.picTel, Me.txtFax, Me.Picture1, Me.txtEMail, Me.Picture2, Me.txtAnsprechpartner, Me.Picture3, Me.txtKdNr, Me.Label1, Me.Label2, Me.subBonitaetsverlauf, Me.Label3, Me.Label4, Me.Label6, Me.Label9, Me.txtBesonderheiten, Me.subOffert, Me.Label10, Me.txtZahlungsziel, Me.txtKundeSeit, Me.Label13, Me.txtSachbearbeiterZOLL, Me.txtSachbearbeiterQS, Me.Line, Me.Line1, Me.Line2, Me.Label7, Me.lblSVS, Me.Label12, Me.lblKreditaufwendungen, Me.Label15, Me.lblVorlageprovision, Me.Label17, Me.subRptLeistungen, Me.Label8, Me.lblAbrechnungsart, Me.Label14, Me.SubReport1, Me.SubReport2, Me.SubReport3})
Me.Detail.Height = 6.675444!
Me.Detail.Name = "Detail"
'
'Label5
'
Me.Label5.Height = 0.172441!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label5.Text = "Kunde:"
Me.Label5.Top = 0!
Me.Label5.Width = 1.479528!
'
'txtKunde
'
Me.txtKunde.CanShrink = True
Me.txtKunde.Height = 0.6299213!
Me.txtKunde.Left = 0!
Me.txtKunde.Name = "txtKunde"
Me.txtKunde.Style = "font-size: 12pt; font-weight: bold; ddo-char-set: 1"
Me.txtKunde.Text = Nothing
Me.txtKunde.Top = 0.1724409!
Me.txtKunde.Width = 4.357087!
'
'txtTel
'
Me.txtTel.Height = 0.1574803!
Me.txtTel.Left = 4.761024!
Me.txtTel.Name = "txtTel"
Me.txtTel.Text = "-"
Me.txtTel.Top = 0.3299213!
Me.txtTel.Width = 2.719291!
'
'picTel
'
Me.picTel.Height = 0.1181102!
Me.picTel.ImageBase64String = resources.GetString("picTel.ImageBase64String")
Me.picTel.Left = 4.45!
Me.picTel.Name = "picTel"
Me.picTel.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picTel.Top = 0.3692914!
Me.picTel.Width = 0.2397638!
'
'txtFax
'
Me.txtFax.Height = 0.1574803!
Me.txtFax.Left = 4.761024!
Me.txtFax.Name = "txtFax"
Me.txtFax.Text = "-"
Me.txtFax.Top = 0.4874015!
Me.txtFax.Width = 2.719291!
'
'Picture1
'
Me.Picture1.Height = 0.1181103!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 4.45!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0.5267714!
Me.Picture1.Width = 0.2397638!
'
'txtEMail
'
Me.txtEMail.Height = 0.1574803!
Me.txtEMail.Left = 4.761024!
Me.txtEMail.Name = "txtEMail"
Me.txtEMail.Text = "-"
Me.txtEMail.Top = 0.6448817!
Me.txtEMail.Width = 2.719291!
'
'Picture2
'
Me.Picture2.Height = 0.1181103!
Me.Picture2.HyperLink = Nothing
Me.Picture2.ImageBase64String = resources.GetString("Picture2.ImageBase64String")
Me.Picture2.Left = 4.45!
Me.Picture2.Name = "Picture2"
Me.Picture2.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture2.Top = 0.684252!
Me.Picture2.Width = 0.2397638!
'
'txtAnsprechpartner
'
Me.txtAnsprechpartner.Height = 0.1574803!
Me.txtAnsprechpartner.Left = 4.761024!
Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
Me.txtAnsprechpartner.Text = "-"
Me.txtAnsprechpartner.Top = 0.1724409!
Me.txtAnsprechpartner.Width = 2.719291!
'
'Picture3
'
Me.Picture3.Height = 0.1181103!
Me.Picture3.HyperLink = Nothing
Me.Picture3.ImageBase64String = resources.GetString("Picture3.ImageBase64String")
Me.Picture3.Left = 4.45!
Me.Picture3.Name = "Picture3"
Me.Picture3.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture3.Top = 0.2118109!
Me.Picture3.Width = 0.2397638!
'
'txtKdNr
'
Me.txtKdNr.Height = 0.1574803!
Me.txtKdNr.Left = 2.002362!
Me.txtKdNr.Name = "txtKdNr"
Me.txtKdNr.Style = "font-weight: bold; text-align: right"
Me.txtKdNr.Text = "123456"
Me.txtKdNr.Top = 0.01496063!
Me.txtKdNr.Width = 2.354724!
'
'Label1
'
Me.Label1.Height = 0.1574803!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label1.Text = "Kunde seit:"
Me.Label1.Top = 0.9137796!
Me.Label1.Width = 0.792126!
'
'Label2
'
Me.Label2.Height = 0.172441!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 5.042126!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label2.Text = "Bonit<EFBFBD>tsverlauf:"
Me.Label2.Top = 0.9137796!
Me.Label2.Width = 0.9377953!
'
'subBonitaetsverlauf
'
Me.subBonitaetsverlauf.CloseBorder = False
Me.subBonitaetsverlauf.Height = 0.9397633!
Me.subBonitaetsverlauf.Left = 5.042126!
Me.subBonitaetsverlauf.Name = "subBonitaetsverlauf"
Me.subBonitaetsverlauf.Report = Nothing
Me.subBonitaetsverlauf.ReportName = "Bonit<EFBFBD>t"
Me.subBonitaetsverlauf.Top = 1.086221!
Me.subBonitaetsverlauf.Width = 2.43819!
'
'Label3
'
Me.Label3.Height = 0.1574803!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Kunde seit:"
Me.Label3.Top = 1.07126!
Me.Label3.Visible = False
Me.Label3.Width = 0.792126!
'
'Label4
'
Me.Label4.Height = 0.1574803!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 0!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label4.Text = "Sachbearbeiter QS:"
Me.Label4.Top = 1.392913!
Me.Label4.Width = 1.250394!
'
'Label6
'
Me.Label6.Height = 0.1574803!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Sachbearbeiter Zoll:"
Me.Label6.Top = 1.550394!
Me.Label6.Width = 1.250394!
'
'Label9
'
Me.Label9.Height = 0.172441!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Hintergrundinfo:"
Me.Label9.Top = 1.911024!
Me.Label9.Width = 1.479528!
'
'txtBesonderheiten
'
Me.txtBesonderheiten.CanShrink = True
Me.txtBesonderheiten.Height = 0.6299213!
Me.txtBesonderheiten.Left = 0!
Me.txtBesonderheiten.Name = "txtBesonderheiten"
Me.txtBesonderheiten.Text = Nothing
Me.txtBesonderheiten.Top = 2.083465!
Me.txtBesonderheiten.Width = 7.480316!
'
'subOffert
'
Me.subOffert.CloseBorder = False
Me.subOffert.Height = 0.7964567!
Me.subOffert.Left = 0!
Me.subOffert.Name = "subOffert"
Me.subOffert.Report = Nothing
Me.subOffert.ReportName = "Offerte"
Me.subOffert.Top = 3.11063!
Me.subOffert.Width = 3.937008!
'
'Label10
'
Me.Label10.Height = 0.172441!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-decoration: underline;" &
" ddo-char-set: 1"
Me.Label10.Text = "Preisoffert:"
Me.Label10.Top = 2.938189!
Me.Label10.Width = 0.9377952!
'
'txtZahlungsziel
'
Me.txtZahlungsziel.Height = 0.1968504!
Me.txtZahlungsziel.HyperLink = Nothing
Me.txtZahlungsziel.Left = 5.896851!
Me.txtZahlungsziel.Name = "txtZahlungsziel"
Me.txtZahlungsziel.Style = "font-size: 10pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.txtZahlungsziel.Text = "-"
Me.txtZahlungsziel.Top = 3.598819!
Me.txtZahlungsziel.Width = 1.057087!
'
'txtKundeSeit
'
Me.txtKundeSeit.Height = 0.1574803!
Me.txtKundeSeit.HyperLink = Nothing
Me.txtKundeSeit.Left = 0.7921259!
Me.txtKundeSeit.Name = "txtKundeSeit"
Me.txtKundeSeit.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtKundeSeit.Text = "-"
Me.txtKundeSeit.Top = 0.9137796!
Me.txtKundeSeit.Width = 1.762205!
'
'Label13
'
Me.Label13.Height = 0.1574803!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.7921262!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "-"
Me.Label13.Top = 1.07126!
Me.Label13.Visible = False
Me.Label13.Width = 1.762205!
'
'txtSachbearbeiterZOLL
'
Me.txtSachbearbeiterZOLL.Height = 0.1574803!
Me.txtSachbearbeiterZOLL.Left = 1.250394!
Me.txtSachbearbeiterZOLL.Name = "txtSachbearbeiterZOLL"
Me.txtSachbearbeiterZOLL.Text = "-"
Me.txtSachbearbeiterZOLL.Top = 1.550394!
Me.txtSachbearbeiterZOLL.Width = 3.51063!
'
'txtSachbearbeiterQS
'
Me.txtSachbearbeiterQS.Height = 0.1574803!
Me.txtSachbearbeiterQS.Left = 1.250394!
Me.txtSachbearbeiterQS.Name = "txtSachbearbeiterQS"
Me.txtSachbearbeiterQS.Text = "-"
Me.txtSachbearbeiterQS.Top = 1.392913!
Me.txtSachbearbeiterQS.Width = 3.510631!
'
'Line
'
Me.Line.Height = 0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.8507875!
Me.Line.Width = 7.480315!
Me.Line.X1 = 0!
Me.Line.X2 = 7.480315!
Me.Line.Y1 = 0.8507875!
Me.Line.Y2 = 0.8507875!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 1.820866!
Me.Line1.Width = 7.480312!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.480312!
Me.Line1.Y1 = 1.820866!
Me.Line1.Y2 = 1.820866!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 2.851575!
Me.Line2.Width = 7.480312!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480312!
Me.Line2.Y1 = 2.851575!
Me.Line2.Y2 = 2.851575!
'
'Label7
'
Me.Label7.Height = 0.1968506!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 4.43189!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "SVS:"
Me.Label7.Top = 3.11063!
Me.Label7.Width = 1.464961!
'
'lblSVS
'
Me.lblSVS.Height = 0.1968504!
Me.lblSVS.HyperLink = Nothing
Me.lblSVS.Left = 5.896851!
Me.lblSVS.Name = "lblSVS"
Me.lblSVS.Style = "font-size: 10pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblSVS.Text = "-"
Me.lblSVS.Top = 3.11063!
Me.lblSVS.Width = 1.057087!
'
'Label12
'
Me.Label12.Height = 0.1968499!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 4.43189!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label12.Text = "Kreditaufwendungen:"
Me.Label12.Top = 3.268111!
Me.Label12.Width = 1.464961!
'
'lblKreditaufwendungen
'
Me.lblKreditaufwendungen.Height = 0.1968504!
Me.lblKreditaufwendungen.HyperLink = Nothing
Me.lblKreditaufwendungen.Left = 5.896852!
Me.lblKreditaufwendungen.Name = "lblKreditaufwendungen"
Me.lblKreditaufwendungen.Style = "font-size: 10pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblKreditaufwendungen.Text = "-"
Me.lblKreditaufwendungen.Top = 3.268111!
Me.lblKreditaufwendungen.Width = 1.057087!
'
'Label15
'
Me.Label15.Height = 0.1968504!
Me.Label15.HyperLink = Nothing
Me.Label15.Left = 4.43189!
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "Vorlageprovision:"
Me.Label15.Top = 3.425591!
Me.Label15.Width = 1.464961!
'
'lblVorlageprovision
'
Me.lblVorlageprovision.Height = 0.1968504!
Me.lblVorlageprovision.HyperLink = Nothing
Me.lblVorlageprovision.Left = 5.896851!
Me.lblVorlageprovision.Name = "lblVorlageprovision"
Me.lblVorlageprovision.Style = "font-size: 10pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblVorlageprovision.Text = "-"
Me.lblVorlageprovision.Top = 3.425591!
Me.lblVorlageprovision.Width = 1.057087!
'
'Label17
'
Me.Label17.Height = 0.1968506!
Me.Label17.HyperLink = Nothing
Me.Label17.Left = 4.43189!
Me.Label17.Name = "Label17"
Me.Label17.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label17.Text = "Zahlungsziel:"
Me.Label17.Top = 3.598819!
Me.Label17.Width = 1.464961!
'
'subRptLeistungen
'
Me.subRptLeistungen.CloseBorder = False
Me.subRptLeistungen.Height = 0.3275589!
Me.subRptLeistungen.Left = 0!
Me.subRptLeistungen.Name = "subRptLeistungen"
Me.subRptLeistungen.Report = Nothing
Me.subRptLeistungen.ReportName = "Leistungen"
Me.subRptLeistungen.Top = 5.660237!
Me.subRptLeistungen.Width = 7.480315!
'
'Label8
'
Me.Label8.Height = 0.172441!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-decoration: underline;" &
" ddo-char-set: 1"
Me.Label8.Text = "Umsatz/Leistungen (in <20>):"
Me.Label8.Top = 5.487796!
Me.Label8.Width = 2.062992!
'
'lblAbrechnungsart
'
Me.lblAbrechnungsart.Height = 0.1968504!
Me.lblAbrechnungsart.HyperLink = Nothing
Me.lblAbrechnungsart.Left = 5.368505!
Me.lblAbrechnungsart.Name = "lblAbrechnungsart"
Me.lblAbrechnungsart.Style = "font-size: 10pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblAbrechnungsart.Text = "-"
Me.lblAbrechnungsart.Top = 3.855906!
Me.lblAbrechnungsart.Width = 1.585434!
'
'Label14
'
Me.Label14.Height = 0.1968504!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 4.43189!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "Abrechnungsart:"
Me.Label14.Top = 3.855906!
Me.Label14.Width = 1.464961!
'
'SubReport1
'
Me.SubReport1.CloseBorder = False
Me.SubReport1.Height = 0.7964569!
Me.SubReport1.Left = 4.43189!
Me.SubReport1.Name = "SubReport1"
Me.SubReport1.Report = Nothing
Me.SubReport1.ReportName = "Aufschubkonten"
Me.SubReport1.Top = 4.38189!
Me.SubReport1.Width = 3.048426!
'
'SubReport2
'
Me.SubReport2.CloseBorder = False
Me.SubReport2.Height = 0.7964569!
Me.SubReport2.Left = 0!
Me.SubReport2.Name = "SubReport2"
Me.SubReport2.Report = Nothing
Me.SubReport2.ReportName = "Abfertigungen"
Me.SubReport2.Top = 4.38189!
Me.SubReport2.Width = 3.937008!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line3, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Height = 0.2192914!
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG Spediton AG"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.03070864!
Me.Line3.Width = 7.480313!
Me.Line3.X1 = 0!
Me.Line3.X2 = 7.480313!
Me.Line3.Y1 = 0.03070864!
Me.Line3.Y2 = 0.03070864!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
Me.ReportInfo2.Width = 2.437842!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'SubReport3
'
Me.SubReport3.CloseBorder = False
Me.SubReport3.Height = 0.2129921!
Me.SubReport3.Left = 0!
Me.SubReport3.Name = "SubReport3"
Me.SubReport3.Report = Nothing
Me.SubReport3.ReportName = "Leistungen"
Me.SubReport3.Top = 6.111418!
Me.SubReport3.Width = 7.480313!
'
'rptKundeUebersicht
'
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3543307!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 7.480316!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picTel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnsprechpartner, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBesonderheiten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZahlungsziel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKundeSeit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSachbearbeiterZOLL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSachbearbeiterQS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSVS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKreditaufwendungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVorlageprovision, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbrechnungsart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents picTel As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtFax As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtEMail As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Picture2 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtAnsprechpartner As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Picture3 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents subBonitaetsverlauf As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtBesonderheiten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents subOffert As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtZahlungsziel As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtKundeSeit As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtSachbearbeiterZOLL As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSachbearbeiterQS As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSVS As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKreditaufwendungen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblVorlageprovision As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents subRptLeistungen As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAbrechnungsart As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport1 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport3 As GrapeCity.ActiveReports.SectionReportModel.SubReport
End Class

83
SDL/ARConverterBackup3/kunden/Berichte/rptKundeUebersicht.vb Normal file
View File

@@ -0,0 +1,83 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptKundeUebersicht
Dim Firma_ID = "1"
Dim Firma = "1"
Dim KdNr As Integer
Sub New(KdNr, Optional Firma_ID = "1", Optional Firma = "VERAG")
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.KdNr = KdNr
Me.Firma_ID = Firma_ID
Me.Firma = Firma
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptKundeUebersicht_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
txtKdNr.Text = AD.AdressenNr
txtKunde.Text = AD.Name_1 & vbNewLine & AD.Name_2
txtKunde.Text &= vbNewLine & AD.Stra<EFBFBD>e
txtKunde.Text &= vbNewLine & AD.LandKz & " " & AD.PLZ & " " & AD.Ort
If IsDate(KD.Eingegeben_am) Then txtKundeSeit.Text = CDate(KD.Eingegeben_am).ToShortDateString
txtZahlungsziel.Text = KD.Zahlungsziel & " Tage"
txtBesonderheiten.Text = KD.Besonderheiten
lblDat.Text = Now.ToString("dddd, dd.MM.yyyy")
Select Case Firma
Case "IMEX" : Me.picVERAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
Case Else
End Select
Select Case If(KD.Sammelrechnung, "")
Case 0 : lblAbrechnungsart.Text = "Einzelrechnung"
Case 1 : lblAbrechnungsart.Text = "t<EFBFBD>glich"
Case 2 : lblAbrechnungsart.Text = "halbmonatlich"
Case 3 : lblAbrechnungsart.Text = "monatlich"
Case 4 : lblAbrechnungsart.Text = "Dekade"
Case 5 : lblAbrechnungsart.Text = "w<EFBFBD>chentlich"
Case 6 : lblAbrechnungsart.Text = "Maut/Diesel"
Case 7 : lblAbrechnungsart.Text = "pro LKW"
Case Else : lblAbrechnungsart.Text = "-"
End Select
lblSVS.Text = If(KD.SVS, "JA", "NEIN")
lblKreditaufwendungen.Text = CDbl(If(KD.Kreditaufwendungen, 0)).ToString("P2")
lblVorlageprovision.Text = CDbl(If(KD.Vorlageprovision, 0)).ToString("P2")
txtTel.Text = AD.Telefon
txtFax.Text = AD.Telefax
txtEMail.Text = AD.E_Mail
txtAnsprechpartner.Text = AD.Ansprechpartner
'txtTel.Text = AD.Telefon
Dim s = New subRptOfferte(0, KdNr)
subOffert.Report = s
Dim s2 = New subRptLeistungen(KdNr, Firma_ID)
subRptLeistungen.Report = s2
Dim s3 = New subRptBonitaetsverlauf(KdNr)
subBonitaetsverlauf.Report = s3
Dim s4 = New subRptAufschubdaten(KdNr)
SubReport1.Report = s4
Dim s5 = New subRptAbfertigungen(KdNr)
SubReport2.Report = s5
End Sub
End Class

184
SDL/ARConverterBackup3/kunden/Berichte/subRptAbfertigungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,184 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptAbfertigungen
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
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.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptAbfertigungen))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lbl1Zollabfertigung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtVonBis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl1Zollabfertigung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVonBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistungsNr, Me.txtLeistungsBez})
Me.Detail.Height = 0.168504!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0.00000009685755!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Text = Nothing
Me.txtLeistungsNr.Top = 0!
Me.txtLeistungsNr.Width = 2.75!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 2.75!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Style = "text-align: left"
Me.txtLeistungsBez.Text = Nothing
Me.txtLeistungsBez.Top = 0!
Me.txtLeistungsBez.Width = 1.187008!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'GroupHeader2
'
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lbl1Zollabfertigung, Me.txtVonBis, Me.Line1, Me.TextBox1})
Me.GroupHeader2.Height = 0.2!
Me.GroupHeader2.KeepTogether = True
Me.GroupHeader2.Name = "GroupHeader2"
'
'lbl1Zollabfertigung
'
Me.lbl1Zollabfertigung.Height = 0.2!
Me.lbl1Zollabfertigung.HyperLink = Nothing
Me.lbl1Zollabfertigung.Left = 0!
Me.lbl1Zollabfertigung.Name = "lbl1Zollabfertigung"
Me.lbl1Zollabfertigung.Style = "font-weight: bold"
Me.lbl1Zollabfertigung.Text = "Abfertigungen"
Me.lbl1Zollabfertigung.Top = 0!
Me.lbl1Zollabfertigung.Width = 3.937008!
'
'txtVonBis
'
Me.txtVonBis.CanGrow = False
Me.txtVonBis.Height = 0.168504!
Me.txtVonBis.Left = 1.177165!
Me.txtVonBis.Name = "txtVonBis"
Me.txtVonBis.Style = "text-align: left"
Me.txtVonBis.Text = "01.01.2019-31.12.2019"
Me.txtVonBis.Top = 0!
Me.txtVonBis.Width = 1.572835!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.184252!
Me.Line1.Width = 3.937008!
Me.Line1.X1 = 0!
Me.Line1.X2 = 3.937008!
Me.Line1.Y1 = 0.184252!
Me.Line1.Y2 = 0.184252!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.168504!
Me.TextBox1.Left = 2.75!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "text-align: left"
Me.TextBox1.Text = "Anzahl"
Me.TextBox1.Top = 3.72529E-9!
Me.TextBox1.Width = 1.187008!
'
'GroupFooter2
'
Me.GroupFooter2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line})
Me.GroupFooter2.Height = 0.04166667!
Me.GroupFooter2.Name = "GroupFooter2"
'
'Line
'
Me.Line.Height = 0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0!
Me.Line.Width = 3.937008!
Me.Line.X1 = 0!
Me.Line.X2 = 3.937008!
Me.Line.Y1 = 0!
Me.Line.Y2 = 0!
'
'subRptAbfertigungen
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 3.937008!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter2)
Me.Sections.Add(Me.GroupFooter1)
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" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl1Zollabfertigung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVonBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents lbl1Zollabfertigung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVonBis As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

54
SDL/ARConverterBackup3/kunden/Berichte/subRptAbfertigungen.vb Normal file
View File

@@ -0,0 +1,54 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptAbfertigungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AbfKostKdnr As Integer
'Dim ABF_ART As Integer
Sub New(AbfKostKdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.AbfKostKdnr = AbfKostKdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
Try
If Me.DataSource IsNot Nothing AndAlso DirectCast(Me.DataSource, DataTable).Rows.Count > 0 AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("Abfertigungsart") IsNot Nothing AndAlso Me.Fields.Item("Abfertigungsart").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("Abfertigungsart").Value.ToString
If Me.Fields.Item("Anzahl") IsNot Nothing AndAlso Me.Fields.Item("Anzahl").Value IsNot DBNull.Value Then txtLeistungsBez.Text = (Me.Fields.Item("Anzahl").Value).ToString
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If AbfKostKdnr <= 0 Then Exit Sub
Dim d_von As Date = CDate(Now.AddMonths(-1).ToString("01.MM.yyyy"))
Dim d_bis As Date = d_von.AddMonths(1).AddDays(-1)
d_von = d_von.AddYears(-1).AddMonths(1) ' VON 1 JAHR zur<75>ck -> Auswertungszeitraum 1 Jahr!
Dim sqlStr = "SELECT cast([Speditionsbuch].Abfertigungsart as varchar(3)) + ' - ' + aa.Abfertigungsbezeichnung as Abfertigungsart, count (*) as Anzahl"
sqlStr &= " FROM [Speditionsbuch] INNER JOIN Abfertigungsarten AA ON AA.Abfertigungsart=Speditionsbuch.Abfertigungsart "
sqlStr &= " where (Empf<70>ngerKundenNr = '" & AbfKostKdnr & "' OR AbsenderKundenNr = '" & AbfKostKdnr & "' OR AvisiererKundenNr = '" & AbfKostKdnr & "') and Abfertigungsdatum between '" & d_von & "' and '" & d_bis & "' "
sqlStr &= " group by [Speditionsbuch].Abfertigungsart,aa.Abfertigungsbezeichnung "
sqlStr &= " order by count(*) DESC "
Me.DataSource = SQL.loadDgvBySql(sqlStr, "FMZOLL")
txtVonBis.Text = d_von.ToShortDateString & "-" & d_bis.ToShortDateString
End Sub
'Private Sub GroupHeader1_Format(sender As Object, e As EventArgs) Handles GroupHeader1.Format
' 'Dim OffertenNr = Me.Fields.Item("OffertenNr").Value
' 'If OffertenNr IsNot Nothing Then
' ' lbl1Zollabfertigung.Text = OffertenNr & " - " & SQL.getValueTxtBySql("SELECT [OffertenBez] FROM [Offertenstamm] WHERE OffertenNr=" & OffertenNr, "FMZOLL")
' 'End If
'End Sub
End Class

199
SDL/ARConverterBackup3/kunden/Berichte/subRptAufschubdaten.Designer.vb generated Normal file
View File

@@ -0,0 +1,199 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptAufschubdaten
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
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.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptAufschubdaten))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGeaendertAm = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lbl1Zollabfertigung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGeaendertAm, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl1Zollabfertigung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistungsNr, Me.txtLeistungsBez, Me.txtGeaendertAm})
Me.Detail.Height = 0.168504!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0.00000009685755!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Text = Nothing
Me.txtLeistungsNr.Top = 0!
Me.txtLeistungsNr.Width = 0.9897638!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 0.9897639!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Style = "text-align: left"
Me.txtLeistungsBez.Text = Nothing
Me.txtLeistungsBez.Top = 0!
Me.txtLeistungsBez.Width = 1.050788!
'
'txtGeaendertAm
'
Me.txtGeaendertAm.CanGrow = False
Me.txtGeaendertAm.Height = 0.168504!
Me.txtGeaendertAm.Left = 2.040551!
Me.txtGeaendertAm.Name = "txtGeaendertAm"
Me.txtGeaendertAm.Style = "text-align: left"
Me.txtGeaendertAm.Text = Nothing
Me.txtGeaendertAm.Top = 0!
Me.txtGeaendertAm.Width = 1.125591!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'GroupHeader2
'
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lbl1Zollabfertigung, Me.TextBox3, Me.Line1, Me.TextBox1})
Me.GroupHeader2.Height = 0.3145833!
Me.GroupHeader2.KeepTogether = True
Me.GroupHeader2.Name = "GroupHeader2"
'
'lbl1Zollabfertigung
'
Me.lbl1Zollabfertigung.Height = 0.2!
Me.lbl1Zollabfertigung.HyperLink = Nothing
Me.lbl1Zollabfertigung.Left = 0!
Me.lbl1Zollabfertigung.Name = "lbl1Zollabfertigung"
Me.lbl1Zollabfertigung.Style = "font-weight: bold"
Me.lbl1Zollabfertigung.Text = "Aufschubart"
Me.lbl1Zollabfertigung.Top = 0!
Me.lbl1Zollabfertigung.Width = 3.166142!
'
'TextBox3
'
Me.TextBox3.CanGrow = False
Me.TextBox3.Height = 0.168504!
Me.TextBox3.Left = 2.040551!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "text-align: left"
Me.TextBox3.Text = "EORI"
Me.TextBox3.Top = 0!
Me.TextBox3.Width = 1.125591!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.2!
Me.Line1.Width = 3.166142!
Me.Line1.X1 = 0!
Me.Line1.X2 = 3.166142!
Me.Line1.Y1 = 0.2!
Me.Line1.Y2 = 0.2!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.168504!
Me.TextBox1.Left = 0.9897639!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "text-align: left"
Me.TextBox1.Text = "Konto-Nr."
Me.TextBox1.Top = 3.72529E-9!
Me.TextBox1.Width = 1.050787!
'
'GroupFooter2
'
Me.GroupFooter2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line})
Me.GroupFooter2.Height = 0.04166667!
Me.GroupFooter2.Name = "GroupFooter2"
'
'Line
'
Me.Line.Height = 0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0!
Me.Line.Width = 3.166142!
Me.Line.X1 = 0!
Me.Line.X2 = 3.166142!
Me.Line.Y1 = 0!
Me.Line.Y2 = 0!
'
'subRptAufschubdaten
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 3.166142!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter2)
Me.Sections.Add(Me.GroupFooter1)
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" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGeaendertAm, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl1Zollabfertigung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents lbl1Zollabfertigung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtGeaendertAm As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

50
SDL/ARConverterBackup3/kunden/Berichte/subRptAufschubdaten.vb Normal file
View File

@@ -0,0 +1,50 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptAufschubdaten
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AbfKostKdnr As Integer
'Dim ABF_ART As Integer
Sub New(AbfKostKdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.AbfKostKdnr = AbfKostKdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
Try
If Me.DataSource IsNot Nothing AndAlso DirectCast(Me.DataSource, DataTable).Rows.Count > 0 AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("kdAkto_art") IsNot Nothing AndAlso Me.Fields.Item("kdAkto_art").Value IsNot Nothing Then
Select Case Me.Fields.Item("kdAkto_art").Value.ToString
Case "10" : txtLeistungsNr.Text = "10 - ZOLL & EUST"
Case "15" : txtLeistungsNr.Text = "15 - ZOLL"
Case "20" : txtLeistungsNr.Text = "20 - EUST"
End Select
End If
If Me.Fields.Item("Konto") IsNot Nothing AndAlso Me.Fields.Item("Konto").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("Konto").Value.ToString
If Me.Fields.Item("EORI") IsNot Nothing AndAlso Me.Fields.Item("EORI").Value IsNot DBNull.Value Then txtGeaendertAm.Text = (Me.Fields.Item("EORI").Value).ToString
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If AbfKostKdnr <= 0 Then Exit Sub
Me.DataSource = SQL.loadDgvBySql("SELECT [kdAkto_art],[kdAkto_hauptzollamt] + ' - ' + [kdAkto_kontonummer] as Konto,[kdAkto_eori] + [kdAkto_eoriNL] as EORI FROM [tblKundenAufschubkonten] where kdAkto_KundenNr='" & AbfKostKdnr & "' order by [kdAkto_art] ", "FMZOLL")
' Me.GroupHeader1.DataField = "OffertenNr" 'Gruppierung
End Sub
'Private Sub GroupHeader1_Format(sender As Object, e As EventArgs) Handles GroupHeader1.Format
' 'Dim OffertenNr = Me.Fields.Item("OffertenNr").Value
' 'If OffertenNr IsNot Nothing Then
' ' lbl1Zollabfertigung.Text = OffertenNr & " - " & SQL.getValueTxtBySql("SELECT [OffertenBez] FROM [Offertenstamm] WHERE OffertenNr=" & OffertenNr, "FMZOLL")
' 'End If
'End Sub
End Class

120
SDL/ARConverterBackup3/kunden/Berichte/subRptBonitaetsverlauf.Designer.vb generated Normal file
View File

@@ -0,0 +1,120 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subRptBonitaetsverlauf
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
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.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptBonitaetsverlauf))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistungsNr, Me.txtLeistungsBez, Me.txtPreis, Me.TextBox1})
Me.Detail.Height = 0.168504!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Text = "01.01.2018"
Me.txtLeistungsNr.Top = 0!
Me.txtLeistungsNr.Width = 0.8854331!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 1.094095!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Style = "text-align: center"
Me.txtLeistungsBez.Text = "283"
Me.txtLeistungsBez.Top = 0!
Me.txtLeistungsBez.Width = 0.8744094!
'
'txtPreis
'
Me.txtPreis.CanGrow = False
Me.txtPreis.Height = 0.168504!
Me.txtPreis.Left = 3.134646!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "text-align: right"
Me.txtPreis.Text = Nothing
Me.txtPreis.Top = 0!
Me.txtPreis.Width = 0.8023622!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.168504!
Me.TextBox1.Left = 0.8854331!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "text-align: center"
Me.TextBox1.Text = "/"
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 0.2086614!
'
'GroupHeader2
'
Me.GroupHeader2.Height = 0!
Me.GroupHeader2.Name = "GroupHeader2"
'
'GroupFooter2
'
Me.GroupFooter2.Height = 0.04166667!
Me.GroupFooter2.Name = "GroupFooter2"
'
'subRptBonitaetsverlauf
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 1.968504!
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter2)
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" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

28
SDL/ARConverterBackup3/kunden/Berichte/subRptBonitaetsverlauf.vb Normal file
View File

@@ -0,0 +1,28 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptBonitaetsverlauf
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim Kdnr As Integer
Sub New(Kdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.Kdnr = Kdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso DirectCast(Me.DataSource, DataTable).Rows.Count > 0 AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("ba_Datum") IsNot Nothing AndAlso Me.Fields.Item("ba_Datum").Value IsNot Nothing Then txtLeistungsNr.Text = CDate(Me.Fields.Item("ba_Datum").Value).ToShortDateString
If Me.Fields.Item("ba_BonitaetsIndex") IsNot Nothing AndAlso Me.Fields.Item("ba_BonitaetsIndex").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("ba_BonitaetsIndex").Value.ToString
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If Kdnr <= 0 Then Exit Sub
Me.DataSource = SQL.loadDgvBySql("SELECT TOP 4 [ba_Datum] ,[ba_BonitaetsIndex] FROM [VERAG].[dbo].[tblBonitaetsauskunft] where ba_KundenNr=" & Kdnr & " order by [ba_Datum] desc", "FMZOLL")
End Sub
End Class

351
SDL/ARConverterBackup3/kunden/Berichte/subRptLeistungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,351 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subRptLeistungen
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
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.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptLeistungen))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtJahrValue1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtJahrValue2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtJahrValue3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtJahrValue4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtJahrValue5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtJahrValue6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeaderJahr1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeaderJahr2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeaderJahr3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeaderJahr4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeaderJahr5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtHeaderJahr6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrValue1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrValue2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrValue3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrValue4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrValue5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrValue6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeaderJahr1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeaderJahr2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeaderJahr3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeaderJahr4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeaderJahr5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHeaderJahr6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtJahrValue6, Me.txtJahrValue5, Me.txtJahrValue4, Me.txtJahrValue3, Me.txtJahrValue2, Me.txtJahrValue1, Me.txtLeistungsBez, Me.txtLeistungsNr, Me.Shape, Me.Line})
Me.Detail.Height = 0.168504!
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Text = Nothing
Me.txtLeistungsNr.Top = 0!
Me.txtLeistungsNr.Width = 0.281496!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 0.281496!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Text = Nothing
Me.txtLeistungsBez.Top = 0!
Me.txtLeistungsBez.Width = 2.85315!
'
'txtJahrValue1
'
Me.txtJahrValue1.CanGrow = False
Me.txtJahrValue1.Height = 0.1685039!
Me.txtJahrValue1.Left = 3.134646!
Me.txtJahrValue1.Name = "txtJahrValue1"
Me.txtJahrValue1.Style = "text-align: right"
Me.txtJahrValue1.Text = "1.000.000"
Me.txtJahrValue1.Top = 0!
Me.txtJahrValue1.Width = 0.6889764!
'
'txtJahrValue2
'
Me.txtJahrValue2.CanGrow = False
Me.txtJahrValue2.Height = 0.1685039!
Me.txtJahrValue2.Left = 3.823622!
Me.txtJahrValue2.Name = "txtJahrValue2"
Me.txtJahrValue2.Style = "text-align: right"
Me.txtJahrValue2.Text = "1.000.000"
Me.txtJahrValue2.Top = 0!
Me.txtJahrValue2.Width = 0.6889764!
'
'txtJahrValue3
'
Me.txtJahrValue3.CanGrow = False
Me.txtJahrValue3.Height = 0.1685039!
Me.txtJahrValue3.Left = 4.512599!
Me.txtJahrValue3.Name = "txtJahrValue3"
Me.txtJahrValue3.Style = "text-align: right"
Me.txtJahrValue3.Text = "1.000.000"
Me.txtJahrValue3.Top = 0!
Me.txtJahrValue3.Width = 0.6889764!
'
'txtJahrValue4
'
Me.txtJahrValue4.CanGrow = False
Me.txtJahrValue4.Height = 0.1685039!
Me.txtJahrValue4.Left = 5.201575!
Me.txtJahrValue4.Name = "txtJahrValue4"
Me.txtJahrValue4.Style = "text-align: right"
Me.txtJahrValue4.Text = "1.000.000"
Me.txtJahrValue4.Top = 0!
Me.txtJahrValue4.Width = 0.6889764!
'
'txtJahrValue5
'
Me.txtJahrValue5.CanGrow = False
Me.txtJahrValue5.Height = 0.1685039!
Me.txtJahrValue5.Left = 5.890552!
Me.txtJahrValue5.Name = "txtJahrValue5"
Me.txtJahrValue5.Style = "text-align: right"
Me.txtJahrValue5.Text = "1.000.000"
Me.txtJahrValue5.Top = 0!
Me.txtJahrValue5.Width = 0.6889764!
'
'txtJahrValue6
'
Me.txtJahrValue6.CanGrow = False
Me.txtJahrValue6.Height = 0.1685039!
Me.txtJahrValue6.Left = 6.579528!
Me.txtJahrValue6.Name = "txtJahrValue6"
Me.txtJahrValue6.Style = "text-align: right"
Me.txtJahrValue6.Text = "1.000.000"
Me.txtJahrValue6.Top = 0!
Me.txtJahrValue6.Width = 0.6889764!
'
'GroupHeader2
'
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.txtHeaderJahr1, Me.txtHeaderJahr2, Me.txtHeaderJahr3, Me.txtHeaderJahr4, Me.txtHeaderJahr5, Me.txtHeaderJahr6, Me.Shape1, Me.Line1})
Me.GroupHeader2.Height = 0.2417323!
Me.GroupHeader2.Name = "GroupHeader2"
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.168504!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-weight: bold"
Me.TextBox1.Text = Nothing
Me.TextBox1.Top = 0.03149607!
Me.TextBox1.Width = 0.281496!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.168504!
Me.TextBox2.Left = 0.2814961!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-weight: bold"
Me.TextBox2.Text = "Leistung"
Me.TextBox2.Top = 0.03149607!
Me.TextBox2.Width = 2.85315!
'
'txtHeaderJahr1
'
Me.txtHeaderJahr1.CanGrow = False
Me.txtHeaderJahr1.Height = 0.168504!
Me.txtHeaderJahr1.Left = 3.134646!
Me.txtHeaderJahr1.Name = "txtHeaderJahr1"
Me.txtHeaderJahr1.Style = "font-weight: bold; text-align: right"
Me.txtHeaderJahr1.Text = "2000"
Me.txtHeaderJahr1.Top = 0.03149607!
Me.txtHeaderJahr1.Width = 0.6889763!
'
'txtHeaderJahr2
'
Me.txtHeaderJahr2.CanGrow = False
Me.txtHeaderJahr2.Height = 0.168504!
Me.txtHeaderJahr2.Left = 3.823622!
Me.txtHeaderJahr2.Name = "txtHeaderJahr2"
Me.txtHeaderJahr2.Style = "font-weight: bold; text-align: right"
Me.txtHeaderJahr2.Text = "2000"
Me.txtHeaderJahr2.Top = 0.03149607!
Me.txtHeaderJahr2.Width = 0.6889763!
'
'txtHeaderJahr3
'
Me.txtHeaderJahr3.CanGrow = False
Me.txtHeaderJahr3.Height = 0.168504!
Me.txtHeaderJahr3.Left = 4.512599!
Me.txtHeaderJahr3.Name = "txtHeaderJahr3"
Me.txtHeaderJahr3.Style = "font-weight: bold; text-align: right"
Me.txtHeaderJahr3.Text = "2000"
Me.txtHeaderJahr3.Top = 0.03149607!
Me.txtHeaderJahr3.Width = 0.6889763!
'
'txtHeaderJahr4
'
Me.txtHeaderJahr4.CanGrow = False
Me.txtHeaderJahr4.Height = 0.168504!
Me.txtHeaderJahr4.Left = 5.201576!
Me.txtHeaderJahr4.Name = "txtHeaderJahr4"
Me.txtHeaderJahr4.Style = "font-weight: bold; text-align: right"
Me.txtHeaderJahr4.Text = "2000"
Me.txtHeaderJahr4.Top = 0.03149607!
Me.txtHeaderJahr4.Width = 0.6889763!
'
'txtHeaderJahr5
'
Me.txtHeaderJahr5.CanGrow = False
Me.txtHeaderJahr5.Height = 0.168504!
Me.txtHeaderJahr5.Left = 5.890552!
Me.txtHeaderJahr5.Name = "txtHeaderJahr5"
Me.txtHeaderJahr5.Style = "font-weight: bold; text-align: right"
Me.txtHeaderJahr5.Text = "2000"
Me.txtHeaderJahr5.Top = 0.03149607!
Me.txtHeaderJahr5.Width = 0.6889763!
'
'txtHeaderJahr6
'
Me.txtHeaderJahr6.CanGrow = False
Me.txtHeaderJahr6.Height = 0.168504!
Me.txtHeaderJahr6.Left = 6.579529!
Me.txtHeaderJahr6.Name = "txtHeaderJahr6"
Me.txtHeaderJahr6.Style = "font-weight: bold; text-align: right"
Me.txtHeaderJahr6.Text = "2000"
Me.txtHeaderJahr6.Top = 0.03149607!
Me.txtHeaderJahr6.Width = 0.6889763!
'
'GroupFooter2
'
Me.GroupFooter2.Height = 0!
Me.GroupFooter2.Name = "GroupFooter2"
'
'Shape
'
Me.Shape.Height = 0.1685039!
Me.Shape.Left = 0!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 7.341337!
'
'Shape1
'
Me.Shape1.Height = 0.2417323!
Me.Shape1.Left = 0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 7.341339!
'
'Line
'
Me.Line.Height = 0.168504!
Me.Line.Left = 3.134646!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0!
Me.Line.Width = 0!
Me.Line.X1 = 3.134646!
Me.Line.X2 = 3.134646!
Me.Line.Y1 = 0!
Me.Line.Y2 = 0.168504!
'
'Line1
'
Me.Line1.Height = 0.2417323!
Me.Line1.Left = 3.134646!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0!
Me.Line1.Width = 0!
Me.Line1.X1 = 3.134646!
Me.Line1.X2 = 3.134646!
Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0.2417323!
'
'subRptLeistungen
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter2)
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" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrValue1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrValue2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrValue3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrValue4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrValue5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrValue6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeaderJahr1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeaderJahr2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeaderJahr3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeaderJahr4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeaderJahr5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHeaderJahr6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtJahrValue1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtJahrValue2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtJahrValue3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtJahrValue4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtJahrValue5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtJahrValue6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtHeaderJahr1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtHeaderJahr2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtHeaderJahr3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtHeaderJahr4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtHeaderJahr5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtHeaderJahr6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

102
SDL/ARConverterBackup3/kunden/Berichte/subRptLeistungen.vb Normal file
View File

@@ -0,0 +1,102 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptLeistungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim Kdnr As Integer
Dim [Firma_ID] = "1"
Sub New(Kdnr As Integer, Optional Firma_ID As String = "1")
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.Kdnr = Kdnr
Me.Firma_ID = Firma_ID
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso DirectCast(Me.DataSource, DataTable).Rows.Count > 0 AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("Leistungsnummer") IsNot Nothing AndAlso Me.Fields.Item("Leistungsnummer").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("Leistungsnummer").Value.ToString
If Me.Fields.Item("LeistungsBez") IsNot Nothing AndAlso Me.Fields.Item("LeistungsBez").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("LeistungsBez").Value.ToString
Dim c = DirectCast(Me.DataSource, DataTable).Columns
If c.Count > 2 Then txtJahrValue1.Text = getDbNeullDbl(Me.Fields.Item(2).Value)
If c.Count > 3 Then txtJahrValue2.Text = getDbNeullDbl(Me.Fields.Item(3).Value)
If c.Count > 4 Then txtJahrValue3.Text = getDbNeullDbl(Me.Fields.Item(4).Value)
If c.Count > 5 Then txtJahrValue4.Text = getDbNeullDbl(Me.Fields.Item(5).Value)
If c.Count > 6 Then txtJahrValue5.Text = getDbNeullDbl(Me.Fields.Item(6).Value)
If c.Count > 7 Then txtJahrValue6.Text = getDbNeullDbl(Me.Fields.Item(7).Value)
End If
End Sub
Function getDbNeullDbl(v) As String
If v Is Nothing Then Return ""
If v Is DBNull.Value Then Return ""
If Not IsNumeric(v) Then Return ""
Return CDbl(v).ToString("N0")
End Function
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If Kdnr <= 0 Then Exit Sub
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : [Firma_ID] = "20"
Case "ATILLA" : [Firma_ID] = "7"
Case Else
End Select
Dim sqlStr = ""
sqlStr &= " SELECT *"
sqlStr &= " FROM ( SELECT Leistungsnummer, LeistungsBez,YEAR(Abfertigungsdatum ) [Year]"
sqlStr &= " , ([tblTrdinProduct].[SteuerpflichtigerBetragLokal]+[tblTrdinProduct].[SteuerfreierBetragLokal] ) AS [Der Wert]"
sqlStr &= " FROM tblTrdinInvoice INNER JOIN (tblTrdinProduct LEFT JOIN Leistungen ON Leistungsnummer = LeistungsNr) ON (tblTrdinInvoice.Rechnungsnummer = tblTrdinProduct.Rechnungsnummer) AND (tblTrdinInvoice.Rechnungsdatum = tblTrdinProduct.Rechnungsdatum)"
sqlStr &= " WHERE RechnungsKundenNr = " & Kdnr & ""
sqlStr &= " AND Firma_ID IN (" & Firma_ID & ") "
sqlStr &= " ) AS Rg"
sqlStr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
sqlStr &= " order by Leistungsnummer"
Me.DataSource = SQL.loadDgvBySql(sqlStr, "FMZOLL")
Me.txtHeaderJahr1.Visible = False
Me.txtHeaderJahr2.Visible = False
Me.txtHeaderJahr3.Visible = False
Me.txtHeaderJahr4.Visible = False
Me.txtHeaderJahr5.Visible = False
Me.txtHeaderJahr6.Visible = False
If Me.DataSource IsNot Nothing Then
Dim c = DirectCast(Me.DataSource, DataTable).Columns
If c.Count > 2 Then txtHeaderJahr1.Text = c(2).ColumnName : Me.txtHeaderJahr1.Visible = True : Me.txtJahrValue1.Visible = True
If c.Count > 3 Then txtHeaderJahr2.Text = c(3).ColumnName : Me.txtHeaderJahr2.Visible = True : Me.txtJahrValue2.Visible = True
If c.Count > 4 Then txtHeaderJahr3.Text = c(4).ColumnName : Me.txtHeaderJahr3.Visible = True : Me.txtJahrValue3.Visible = True
If c.Count > 5 Then txtHeaderJahr4.Text = c(5).ColumnName : Me.txtHeaderJahr4.Visible = True : Me.txtJahrValue4.Visible = True
If c.Count > 6 Then txtHeaderJahr5.Text = c(6).ColumnName : Me.txtHeaderJahr5.Visible = True : Me.txtJahrValue5.Visible = True
If c.Count > 7 Then txtHeaderJahr6.Text = c(7).ColumnName : Me.txtHeaderJahr6.Visible = True : Me.txtJahrValue6.Visible = True
End If
End Sub
Private Sub GroupHeader1_Format(sender As Object, e As EventArgs)
' Dim OffertenNr = Me.Fields.Item("OffertenNr").Value
' If OffertenNr IsNot Nothing Then
'lbl1Zollabfertigung.Text = OffertenNr & " - " & SQL.getValueTxtBySql("SELECT [OffertenBez] FROM [Offertenstamm] WHERE OffertenNr=" & OffertenNr, "FMZOLL")
' End If
End Sub
Function getJahrString() As String
getJahrString = ""
For j = Now.Year To 2010 Step -1
getJahrString &= "[" & j & "],"
Next
getJahrString = getJahrString.Substring(0, getJahrString.Length - 1)
End Function
End Class

210
SDL/ARConverterBackup3/kunden/Berichte/subRptOfferte.Designer.vb generated Normal file
View File

@@ -0,0 +1,210 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subRptOfferte
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
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.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptOfferte))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lbl1Zollabfertigung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtGeaendertAm = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl1Zollabfertigung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGeaendertAm, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistungsNr, Me.txtLeistungsBez, Me.txtPreis, Me.txtGeaendertAm})
Me.Detail.Height = 0.168504!
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0.00000009685755!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Text = Nothing
Me.txtLeistungsNr.Top = 0!
Me.txtLeistungsNr.Width = 0.281496!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 0.2814961!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Text = Nothing
Me.txtLeistungsBez.Top = 0!
Me.txtLeistungsBez.Width = 2.050788!
'
'txtPreis
'
Me.txtPreis.CanGrow = False
Me.txtPreis.Height = 0.168504!
Me.txtPreis.Left = 2.332284!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "text-align: right"
Me.txtPreis.Text = Nothing
Me.txtPreis.Top = 0!
Me.txtPreis.Width = 0.8023622!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'GroupHeader2
'
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lbl1Zollabfertigung, Me.TextBox2, Me.TextBox3, Me.Line1})
Me.GroupHeader2.Height = 0.2!
Me.GroupHeader2.Name = "GroupHeader2"
'
'lbl1Zollabfertigung
'
Me.lbl1Zollabfertigung.Height = 0.2!
Me.lbl1Zollabfertigung.HyperLink = Nothing
Me.lbl1Zollabfertigung.Left = 0!
Me.lbl1Zollabfertigung.Name = "lbl1Zollabfertigung"
Me.lbl1Zollabfertigung.Style = "font-weight: bold"
Me.lbl1Zollabfertigung.Text = "1 - Zollabfertigung"
Me.lbl1Zollabfertigung.Top = 0!
Me.lbl1Zollabfertigung.Width = 3.937008!
'
'GroupFooter2
'
Me.GroupFooter2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line})
Me.GroupFooter2.Height = 0.04166667!
Me.GroupFooter2.Name = "GroupFooter2"
'
'Line
'
Me.Line.Height = 0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0!
Me.Line.Width = 3.937008!
Me.Line.X1 = 0!
Me.Line.X2 = 3.937008!
Me.Line.Y1 = 0!
Me.Line.Y2 = 0!
'
'txtGeaendertAm
'
Me.txtGeaendertAm.CanGrow = False
Me.txtGeaendertAm.Height = 0.168504!
Me.txtGeaendertAm.Left = 3.134646!
Me.txtGeaendertAm.Name = "txtGeaendertAm"
Me.txtGeaendertAm.Style = "text-align: right"
Me.txtGeaendertAm.Top = 0!
Me.txtGeaendertAm.Width = 0.8023625!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.168504!
Me.TextBox2.Left = 2.332284!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "text-align: right"
Me.TextBox2.Text = "Preis"
Me.TextBox2.Top = 0.01574803!
Me.TextBox2.Width = 0.8023625!
'
'TextBox3
'
Me.TextBox3.CanGrow = False
Me.TextBox3.Height = 0.168504!
Me.TextBox3.Left = 3.134646!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "text-align: right"
Me.TextBox3.Text = "seit"
Me.TextBox3.Top = 0.01574803!
Me.TextBox3.Width = 0.8023625!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.184252!
Me.Line1.Width = 3.937008!
Me.Line1.X1 = 0!
Me.Line1.X2 = 3.937008!
Me.Line1.Y1 = 0.184252!
Me.Line1.Y2 = 0.184252!
'
'subRptOfferte
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 3.937008!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter2)
Me.Sections.Add(Me.GroupFooter1)
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" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl1Zollabfertigung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGeaendertAm, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents lbl1Zollabfertigung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtGeaendertAm As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

47
SDL/ARConverterBackup3/kunden/Berichte/subRptOfferte.vb Normal file
View File

@@ -0,0 +1,47 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptOfferte
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AbfKostKdnr As Integer
Dim ABF_ART As Integer
Sub New(ABF_ART As Integer, AbfKostKdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ABF_ART = ABF_ART
Me.AbfKostKdnr = AbfKostKdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso DirectCast(Me.DataSource, DataTable).Rows.Count > 0 AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("LeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("LeistungsNr").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("LeistungsNr").Value.ToString
If Me.Fields.Item("LeistungsBez") IsNot Nothing AndAlso Me.Fields.Item("LeistungsBez").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("LeistungsBez").Value.ToString
If Me.Fields.Item("Preis") IsNot Nothing AndAlso Me.Fields.Item("Preis").Value IsNot Nothing And CDbl(Me.Fields.Item("Preis").Value) <> 0 Then
txtPreis.Text = If(IsNumeric(Me.Fields.Item("Preis").Value.ToString), CDbl(Me.Fields.Item("Preis").Value.ToString).ToString("C2"), Me.Fields.Item("Preis").Value.ToString)
Else
txtPreis.Text = ""
End If
If Me.Fields.Item("Datum") IsNot Nothing AndAlso Me.Fields.Item("Datum").Value IsNot DBNull.Value Then txtGeaendertAm.Text = CDate(Me.Fields.Item("Datum").Value).ToShortDateString
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If AbfKostKdnr <= 0 Then Exit Sub
If ABF_ART > 0 Then
Me.DataSource = SQL.loadDgvBySql("select OffertenNr, isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis,isnull([Ge<47>ndert am],[Eingegeben am]) as Datum FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') /*and preis is not null*/ order by OffertenNr,LeistungsNr, Preis desc", "FMZOLL")
Else
Me.DataSource = SQL.loadDgvBySql("select OffertenNr, isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis,isnull([Ge<47>ndert am],[Eingegeben am]) as Datum FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " /*and preis is not null*/ order by OffertenNr,LeistungsNr, Preis desc", "FMZOLL")
End If
Me.GroupHeader1.DataField = "OffertenNr" 'Gruppierung
End Sub
Private Sub GroupHeader1_Format(sender As Object, e As EventArgs) Handles GroupHeader1.Format
Dim OffertenNr = Me.Fields.Item("OffertenNr").Value
If OffertenNr IsNot Nothing Then
lbl1Zollabfertigung.Text = OffertenNr & " - " & SQL.getValueTxtBySql("SELECT [OffertenBez] FROM [Offertenstamm] WHERE OffertenNr=" & OffertenNr, "FMZOLL")
End If
End Sub
End Class