new
This commit is contained in:
@@ -196,48 +196,48 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
|
||||
Function getSpedBuchWhere() As String
|
||||
Dim sqlstr = ""
|
||||
If txtAvisiererKdNr.Text <> "" And IsNumeric(txtAvisiererKdNr.Text) Then : sqlstr &= " AND [AvisiererKundenNr] LIKE @AvisiererKundenNr "
|
||||
ElseIf kdtxtAvisierer.Text <> "" Then : sqlstr &= " AND [Avisierer] LIKE @Avisierer " : End If
|
||||
If txtAbsenderKdnr.Text <> "" And IsNumeric(txtAbsenderKdnr.Text) Then : sqlstr &= " AND [AbsenderKundenNr] LIKE @AbsenderKundenNr "
|
||||
ElseIf kdtxtAbsender.Text <> "" Then : sqlstr &= " AND [Absender] LIKE @Absender " : End If
|
||||
If txtAvisiererKdNr.Text <> "" And IsNumeric(txtAvisiererKdNr.Text) Then : sqlstr &= " AND Speditionsbuch.[AvisiererKundenNr] LIKE @AvisiererKundenNr "
|
||||
ElseIf kdtxtAvisierer.Text <> "" Then : sqlstr &= " AND Speditionsbuch.[Avisierer] LIKE @Avisierer " : End If
|
||||
If txtAbsenderKdnr.Text <> "" And IsNumeric(txtAbsenderKdnr.Text) Then : sqlstr &= " AND Speditionsbuch.[AbsenderKundenNr] LIKE @AbsenderKundenNr "
|
||||
ElseIf kdtxtAbsender.Text <> "" Then : sqlstr &= " AND Speditionsbuch.[Absender] LIKE @Absender " : End If
|
||||
|
||||
If cbxOderEmpfanger.Checked Then
|
||||
If txtAuftraggeberKdnr.Text <> "" And IsNumeric(txtAuftraggeberKdnr.Text) Then : sqlstr &= " AND ( [VermittlerKundenNr] LIKE @VermittlerKundenNr OR [EmpfängerKundenNr] LIKE @VermittlerKundenNr ) "
|
||||
ElseIf kdtxtAuftraggeber.Text <> "" Then : sqlstr &= " AND ( [Vermittler] LIKE @Vermittler OR [Empfänger] LIKE @Vermittler ) " : End If
|
||||
If txtAuftraggeberKdnr.Text <> "" And IsNumeric(txtAuftraggeberKdnr.Text) Then : sqlstr &= " AND ( Speditionsbuch.[VermittlerKundenNr] LIKE @VermittlerKundenNr OR Speditionsbuch.[EmpfängerKundenNr] LIKE @VermittlerKundenNr ) "
|
||||
ElseIf kdtxtAuftraggeber.Text <> "" Then : sqlstr &= " AND ( Speditionsbuch.[Vermittler] LIKE @Vermittler OR Speditionsbuch.[Empfänger] LIKE @Vermittler ) " : End If
|
||||
Else
|
||||
If txtAuftraggeberKdnr.Text <> "" And IsNumeric(txtAuftraggeberKdnr.Text) Then : sqlstr &= " AND [VermittlerKundenNr] LIKE @VermittlerKundenNr "
|
||||
ElseIf kdtxtAuftraggeber.Text <> "" Then : sqlstr &= " AND [Vermittler] LIKE @Vermittler " : End If
|
||||
If txtEmpfaengerKdnr.Text <> "" And IsNumeric(txtEmpfaengerKdnr.Text) Then : sqlstr &= " AND [EmpfängerKundenNr] LIKE @EmpfängerKundenNr "
|
||||
ElseIf kdtxtEmpfaenger.Text <> "" Then : sqlstr &= " AND [Empfänger] LIKE @Empfänger " : End If
|
||||
If txtAuftraggeberKdnr.Text <> "" And IsNumeric(txtAuftraggeberKdnr.Text) Then : sqlstr &= " AND Speditionsbuch.[VermittlerKundenNr] LIKE @VermittlerKundenNr "
|
||||
ElseIf kdtxtAuftraggeber.Text <> "" Then : sqlstr &= " AND Speditionsbuch.[Vermittler] LIKE @Vermittler " : End If
|
||||
If txtEmpfaengerKdnr.Text <> "" And IsNumeric(txtEmpfaengerKdnr.Text) Then : sqlstr &= " AND Speditionsbuch.[EmpfängerKundenNr] LIKE @EmpfängerKundenNr "
|
||||
ElseIf kdtxtEmpfaenger.Text <> "" Then : sqlstr &= " AND Speditionsbuch.[Empfänger] LIKE @Empfänger " : End If
|
||||
End If
|
||||
If txtFrachtfuehrerKdnr.Text <> "" And IsNumeric(txtFrachtfuehrerKdnr.Text) Then : sqlstr &= " AND [FrachtführerKundenNr] LIKE @FrachtführerKundenNr "
|
||||
ElseIf kdtxtFrachtfuehrer.Text <> "" Then : sqlstr &= " AND [Frachtführer] LIKE @Frachtführer " : End If
|
||||
If txtFrachtfuehrerKdnr.Text <> "" And IsNumeric(txtFrachtfuehrerKdnr.Text) Then : sqlstr &= " AND Speditionsbuch.[FrachtführerKundenNr] LIKE @FrachtführerKundenNr "
|
||||
ElseIf kdtxtFrachtfuehrer.Text <> "" Then : sqlstr &= " AND Speditionsbuch.[Frachtführer] LIKE @Frachtführer " : End If
|
||||
|
||||
If txtEndempfaengerKdnr.Text <> "" And IsNumeric(txtEndempfaengerKdnr.Text) Then : sqlstr &= " AND [EndempfängerKundenNr] LIKE @EndempfängerKundenNr "
|
||||
ElseIf kdtxtEndempfaenger.Text <> "" Then : sqlstr &= " AND [Endempfänger] LIKE @Endempfänger " : End If
|
||||
If txtEndempfaengerKdnr.Text <> "" And IsNumeric(txtEndempfaengerKdnr.Text) Then : sqlstr &= " AND Speditionsbuch.[EndempfängerKundenNr] LIKE @EndempfängerKundenNr "
|
||||
ElseIf kdtxtEndempfaenger.Text <> "" Then : sqlstr &= " AND Speditionsbuch.[Endempfänger] LIKE @Endempfänger " : End If
|
||||
|
||||
If txtFiskalEndempfaenger.Text <> "" Then sqlstr &= " AND [EuFiskalEmpfänger] LIKE @FiskalEndempfaengerKundenNr "
|
||||
If txtKdAuftragsNr.Text <> "" Then sqlstr &= " AND [KdAuftragsNr] LIKE @KdAuftragsNr "
|
||||
If txtFiskalEndempfaenger.Text <> "" Then sqlstr &= " AND Speditionsbuch.[EuFiskalEmpfänger] LIKE @FiskalEndempfaengerKundenNr "
|
||||
If txtKdAuftragsNr.Text <> "" Then sqlstr &= " AND Speditionsbuch.[KdAuftragsNr] LIKE @KdAuftragsNr "
|
||||
|
||||
|
||||
|
||||
If txtAbfertDat.Text <> "" Then
|
||||
If txtAbfertDatBis.Text <> "" Then
|
||||
sqlstr &= " AND ([Abfertigungsdatum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum_bis ) "
|
||||
sqlstr &= " AND (Speditionsbuch.[Abfertigungsdatum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum_bis ) "
|
||||
Else
|
||||
sqlstr &= " AND ([Abfertigungsdatum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum ) "
|
||||
sqlstr &= " AND (Speditionsbuch.[Abfertigungsdatum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum ) "
|
||||
End If
|
||||
End If
|
||||
|
||||
If txtAbfertigungsnummer.Text <> "" Then
|
||||
If txtAbfertigungsnummerBis.Text <> "" Then
|
||||
sqlstr &= " AND ([AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) "
|
||||
sqlstr &= " AND (Speditionsbuch.[AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) "
|
||||
Else
|
||||
sqlstr &= " AND AbfertigungsNr LIKE @AbfertigungsNr "
|
||||
sqlstr &= " AND Speditionsbuch.AbfertigungsNr LIKE @AbfertigungsNr "
|
||||
End If
|
||||
End If
|
||||
If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr "
|
||||
If cboFiliale._value <> "" Then sqlstr &= " AND [FilialenNr] LIKE @FilialenNr "
|
||||
If txtUnterNr.Text <> "" Then sqlstr &= " AND Speditionsbuch.[UnterNr] LIKE @UnterNr "
|
||||
If cboFiliale._value <> "" Then sqlstr &= " AND Speditionsbuch.[FilialenNr] LIKE @FilialenNr "
|
||||
' If cboFilialeHandling._value <> "" Then sqlstr &= " AND FilialenNrHandling IS NOT NULL AND [FilialenNrHandling] LIKE @FilialeHandling "
|
||||
|
||||
|
||||
@@ -263,9 +263,9 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
If cboBestLand._value <> "" Then sqlstr &= " AND Speditionsbuch.Bestimmungsland LIKE @Bestimmungsland "
|
||||
If txtErfassungsnNr.Text <> "" Then sqlstr &= " AND Speditionsbuch.ErfassungsNr LIKE @ErfassungsNr "
|
||||
|
||||
If txtAvisoId.Text.Trim <> "" And IsNumeric(txtAvisoId.Text.Trim) Then sqlstr &= " AND AvisoId=@AvisoId"
|
||||
If txtAvisoId.Text.Trim <> "" And IsNumeric(txtAvisoId.Text.Trim) Then sqlstr &= " AND Speditionsbuch.AvisoId=@AvisoId"
|
||||
|
||||
If MyTextBox14.Text <> "" Then sqlstr &= " AND [LKW Kennzeichen] LIKE @LKW "
|
||||
If MyTextBox14.Text <> "" Then sqlstr &= " AND Speditionsbuch.[LKW Kennzeichen] LIKE @LKW "
|
||||
If cbxBar.CheckState = CheckState.Checked Then sqlstr &= " AND Bar=1 "
|
||||
If cbxFakturiert.CheckState = CheckState.Checked Then sqlstr &= " AND Fakturiert=1 "
|
||||
If cbxCMR.CheckState = CheckState.Checked Then sqlstr &= " AND SB_CMR=1 "
|
||||
@@ -279,9 +279,9 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
End If
|
||||
|
||||
|
||||
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND [Personalnummer] = @Personalnummer "
|
||||
If cboSB_Qs._value <> "" Then sqlstr &= " AND [PersonalnummerQS] = @PersonalnummerQS "
|
||||
If cboSB_TR._value <> "" Then sqlstr &= " AND [PersonalnummerAbklTR] = @PersonalnummerAbklTR "
|
||||
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND Speditionsbuch.[Personalnummer] = @Personalnummer "
|
||||
If cboSB_Qs._value <> "" Then sqlstr &= " AND Speditionsbuch.[PersonalnummerQS] = @PersonalnummerQS "
|
||||
If cboSB_TR._value <> "" Then sqlstr &= " AND Speditionsbuch.[PersonalnummerAbklTR] = @PersonalnummerAbklTR "
|
||||
Return sqlstr
|
||||
End Function
|
||||
|
||||
@@ -513,6 +513,7 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then
|
||||
btnQSAufteilung.Visible = True
|
||||
btnCSAufteilung.Visible = True
|
||||
Button12.Visible = True
|
||||
End If
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
|
||||
pnlBerichte.Visible = True
|
||||
@@ -1935,4 +1936,159 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
|
||||
cbxEIDR.Visible = cboFiliale._value = "7001"
|
||||
End Sub
|
||||
|
||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
||||
Dim displayFilter = cbxFilterInBericht.Checked
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
|
||||
Dim sqlstr As String = ""
|
||||
Dim SpedBuchWhere = getSpedBuchWhere()
|
||||
|
||||
If CheckBox1.Checked Then
|
||||
sqlstr &= " SELECT Speditionsbuch.FilialenNr,Speditionsbuch.Abfertigungsart,Abfertigungsarten.Abfertigungsbezeichnung,sum(Abfertigungsanzahl) as Anzahl,SUM(Barzahlungsbetrag) as Barzahlungsbetrag,MIN(Speditionsbuch.Abfertigungsdatum) as von, MAX(Speditionsbuch.Abfertigungsdatum) as bis
|
||||
,isnull(sum(SteuerfreierGesamtbetrag+SteuerpflichtigerGesamtbetrag),0) as RgBetrag
|
||||
FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
|
||||
LEFT JOIN Rechnungsausgang ON Rechnungsausgang.FilialenNr=Speditionsbuch.FilialenNr and Rechnungsausgang.AbfertigungsNr=Speditionsbuch.AbfertigungsNr and Rechnungsausgang.SpeditionsbuchUnterNr=Speditionsbuch.UnterNr
|
||||
WHERE 1=1 "
|
||||
sqlstr &= SpedBuchWhere
|
||||
sqlstr &= " group by Speditionsbuch.FilialenNr,Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung "
|
||||
sqlstr &= " order by Speditionsbuch.FilialenNr, Speditionsbuch.Abfertigungsart"
|
||||
Else
|
||||
sqlstr &= " SELECT Speditionsbuch.Abfertigungsart,Abfertigungsarten.Abfertigungsbezeichnung,sum(Abfertigungsanzahl) as Anzahl,SUM(Barzahlungsbetrag) as Barzahlungsbetrag,MIN(Speditionsbuch.Abfertigungsdatum) as von, MAX(Speditionsbuch.Abfertigungsdatum) as bis
|
||||
,isnull(sum(SteuerfreierGesamtbetrag+SteuerpflichtigerGesamtbetrag),0) as RgBetrag
|
||||
FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
|
||||
LEFT JOIN Rechnungsausgang ON Rechnungsausgang.FilialenNr=Speditionsbuch.FilialenNr and Rechnungsausgang.AbfertigungsNr=Speditionsbuch.AbfertigungsNr and Rechnungsausgang.SpeditionsbuchUnterNr=Speditionsbuch.UnterNr
|
||||
WHERE 1=1 "
|
||||
sqlstr &= SpedBuchWhere
|
||||
sqlstr &= " group by Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung "
|
||||
sqlstr &= " order by Speditionsbuch.Abfertigungsart"
|
||||
End If
|
||||
|
||||
Dim SpedBuchList = getSpedbuchList()
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , SpedBuchList)
|
||||
'DataGridView.DataSource = dt
|
||||
|
||||
|
||||
Dim print As New frmPrintLayout
|
||||
print.Text = "Speditionsbericht"
|
||||
|
||||
Dim rpt As New rptSpeditionsberichtRg
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
'Filter anzeigen
|
||||
If displayFilter Then
|
||||
rpt.lblFilterTxt.Visible = displayFilter
|
||||
rpt.txtFilter.Visible = displayFilter
|
||||
rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(SpedBuchWhere, SpedBuchList)
|
||||
Else
|
||||
If txtUeberschr.Text <> "" Then
|
||||
rpt.txtFilter.Text = txtUeberschr.Text
|
||||
rpt.txtFilter.Visible = True
|
||||
rpt.lblFilterTxt.Visible = True
|
||||
rpt.lblFilterTxt.Text = "Beschreibung:"
|
||||
End If
|
||||
End If
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
|
||||
Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
|
||||
Case "UNISPED" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "UNISPED Spedition"
|
||||
Case "AMBAR" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "AMBAR"
|
||||
Case "FRONTOFFICE" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "FRONTOFFICE"
|
||||
Case Else
|
||||
End Select
|
||||
|
||||
|
||||
If CheckBox1.Checked Then
|
||||
rpt.GroupHeader1.DataField = "FilialenNr" 'Gruppierung
|
||||
End If
|
||||
If rpt.DataSource.rows.count = 0 Then
|
||||
rpt.Dispose() : print.Dispose()
|
||||
MsgBox("Keine Daten vorhanden!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim sum = 0
|
||||
rpt.lblUeberschrift.Text = "Speditionsbericht " & txtAbfertDat.Text & " bis " & txtAbfertDatBis.Text
|
||||
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
rpt.lblDat.Text = Now.ToLongDateString
|
||||
Dim sumAnz As Double = 0
|
||||
Dim sumBar As Double = 0
|
||||
Dim sumRg As Double = 0
|
||||
Dim sumVk As Double = 0
|
||||
Dim sumZwSum As Double = 0
|
||||
|
||||
|
||||
rpt.lblBarzahlungsbetrag.Visible = True
|
||||
rpt.lblBarTitle.Visible = True
|
||||
rpt.lblSummeBar.Visible = True
|
||||
|
||||
rpt.lblFiliale.Text = "Alle Filialen"
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
|
||||
rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
|
||||
rpt.lblAbfAnz.Text = rpt.Fields.Item("Anzahl").Value
|
||||
rpt.lblAbfArtNr.Text = If(rpt.Fields.Item("Abfertigungsart").Value Is DBNull.Value, "-", rpt.Fields.Item("Abfertigungsart").Value)
|
||||
rpt.lblAbfArt.Text = If(rpt.Fields.Item("Abfertigungsbezeichnung").Value Is DBNull.Value, "-", rpt.Fields.Item("Abfertigungsbezeichnung").Value)
|
||||
|
||||
|
||||
Dim BarBetrag As Double = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()).ToString("C")
|
||||
Dim sqlstrRg = " SELECT isnull( sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag),0) as RgBetrag
|
||||
FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
|
||||
inner JOIN Rechnungsausgang ON Rechnungsausgang.FilialenNr=Speditionsbuch.FilialenNr and Rechnungsausgang.AbfertigungsNr=Speditionsbuch.AbfertigungsNr and Rechnungsausgang.SpeditionsbuchUnterNr=Speditionsbuch.UnterNr
|
||||
inner JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID=RechnungsausgangPositionen.RK_ID
|
||||
inner JOIN leistungen ON RechnungsausgangPositionen.LeistungsNr=leistungen.LeistungsNr
|
||||
WHERE 1=1
|
||||
" & SpedBuchWhere & "
|
||||
and Speditionsbuch.Abfertigungsart=" & rpt.Fields.Item("Abfertigungsart").Value & "
|
||||
and leistungen.Abfertigungskosten=1"
|
||||
Dim RgBetrag As Double = SQL.getValueTxtBySqlVarList(sqlstrRg, "FMZOLL", SpedBuchList, 0)
|
||||
|
||||
Dim sqlstrVK = " SELECT isnull(sum(Vorkosten.Preis),0) as VKBetrag
|
||||
FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
|
||||
inner JOIN Vorkosten ON Vorkosten.FilialenNr=Speditionsbuch.FilialenNr and Vorkosten.AbfertigungsNr=Speditionsbuch.AbfertigungsNr and Vorkosten.UnterNr=Speditionsbuch.UnterNr
|
||||
WHERE 1=1
|
||||
" & SpedBuchWhere & "
|
||||
and Speditionsbuch.Abfertigungsart=" & rpt.Fields.Item("Abfertigungsart").Value & ""
|
||||
|
||||
Dim VkBetrag As Double = SQL.getValueTxtBySqlVarList(sqlstrVK, "FMZOLL", SpedBuchList, 0)
|
||||
|
||||
|
||||
Dim ZwSum = RgBetrag + BarBetrag - VkBetrag
|
||||
|
||||
rpt.lblBarzahlungsbetrag.Text = BarBetrag
|
||||
rpt.Label8.Text = (RgBetrag).ToString("C")
|
||||
rpt.Label13.Text = (VkBetrag).ToString("C")
|
||||
rpt.Label14.Text = (ZwSum).ToString("C")
|
||||
|
||||
sumAnz += CDbl(rpt.Fields.Item("Anzahl").Value)
|
||||
sumBar += BarBetrag
|
||||
sumRg += RgBetrag
|
||||
sumVk += VkBetrag
|
||||
sumZwSum += ZwSum
|
||||
End Sub
|
||||
AddHandler rpt.GroupHeader1.Format, Sub()
|
||||
If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
|
||||
sumAnz = 0
|
||||
sumBar = 0
|
||||
sumRg = 0
|
||||
sumVk = 0
|
||||
sumZwSum = 0
|
||||
End Sub
|
||||
AddHandler rpt.GroupFooter1.Format, Sub()
|
||||
rpt.lblSummeAnzahl.Text = sumAnz
|
||||
rpt.lblSummeBar.Text = sumBar.ToString("C")
|
||||
rpt.Label10.Text = sumRg.ToString("C")
|
||||
rpt.Label15.Text = sumVk.ToString("C")
|
||||
rpt.Label16.Text = sumZwSum.ToString("C")
|
||||
End Sub
|
||||
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user