75 lines
2.9 KiB
VB.net
75 lines
2.9 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class rptFiskalkunde
|
|
|
|
Dim FiskalId As Integer
|
|
Dim Firma = "1"
|
|
Dim KdNr As Integer
|
|
|
|
Sub New(KdNr, FiskalId, Optional Firma = "VERAG")
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.KdNr = KdNr
|
|
Me.FiskalId = FiskalId
|
|
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)
|
|
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"
|
|
|
|
txtKdNr.Text = AD.AdressenNr
|
|
txtKunde.Text = AD.Name_1 & " " & AD.Name_2
|
|
|
|
If IsDate(FK.FK_Vollmacht) Then txtVM.Text = CDate(FK.FK_Vollmacht).ToShortDateString
|
|
txtUmsatz.Text = ""
|
|
|
|
|
|
If AD.LandKz = "AT" Or AD.LandKz = "A" Then
|
|
txtBon.Text = If(KD_ERW.kde_CreditSaveBonitaetsScore, "")
|
|
Else
|
|
txtBon.Text = If(KD_ERW.kde_CreditSaveBonitaetsIndex, "")
|
|
End If
|
|
|
|
|
|
If IsDate(FK.FK_Bonitaet) Then txtBon.Text &= " vom " & CDate(FK.FK_Bonitaet).ToShortDateString
|
|
If IsNumeric(FK.FK_KreditMax) Then txtKredit.Text = CDbl(FK.FK_KreditMax)
|
|
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, "")
|
|
txtGesellschafter.Text = IIf(FK.FK_Gesellschafter <> "", FK.FK_Gesellschafter, "")
|
|
txtWebsite.Text = IIf(FK.FK_Homepage_URL <> "", FK.FK_Homepage_URL, "")
|
|
txtGZ.Text = IIf(FK.FK_Geschaeftszweck <> "", FK.FK_Geschaeftszweck, "")
|
|
|
|
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.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
|
|
txtAnsprechpartner.Text = AD.Ansprechpartner
|
|
|
|
|
|
End Sub
|
|
End Class |