Errores de impresion

This commit is contained in:
2022-04-19 22:27:02 -07:00
parent 65e108880c
commit d7695492b8

View File

@@ -33,7 +33,7 @@ Partial Class PopUpVerFactura
End Property End Property
Public Property DtDetalle() As DataTable Public Property DtDetalle() As DataTable
Get Get
Return CType(ViewState("DtDetalle"), DataTable) Return DirectCast(IfNull(ViewState("DtDetalle"), New DataTable, ViewState("DtDetalle")), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
ViewState("DtDetalle") = value ViewState("DtDetalle") = value
@@ -807,7 +807,7 @@ Partial Class PopUpVerFactura
DtCortesVentasResumen = ObjVenta.DtResultados DtCortesVentasResumen = ObjVenta.DtResultados
End If End If
If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, -1, UsuarioActual.CveEmpresa) Then
DtCortesVentas = ObjPuntoVenta.DtResultados DtCortesVentas = ObjPuntoVenta.DtResultados
If DtCortesVentas.Rows.Count > 0 Then If DtCortesVentas.Rows.Count > 0 Then
Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0") Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
@@ -5031,7 +5031,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("MsgError", "")) params.Add(New ReportParameter("MsgError", ""))
params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss"))) params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta) ImprimirPDF(Archivo.FullName, New DataTable(), params, "AcuseCancelacion" & CveVenta)
End If End If