AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Error cuando intentaba imprimir un pdf

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-03 20:16:52 -07:00
parent 4924a88f00
commit dbc2af7fcf
1 changed files with 59 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/Kardex.aspx.vb
View File

@@ -369,6 +369,7 @@ Partial Class Inventarios_Kardex
Private Sub Imprimir(Optional reporte As String = "PDF") Private Sub Imprimir(Optional reporte As String = "PDF")
Dim DtKardex As DataTable = Nothing Dim DtKardex As DataTable = Nothing
If ddlProducto2.SelectedValue.ToEntero > 0 Then
DtKardex = CargarKardex(ddlProducto2.SelectedValue.ToEntero) DtKardex = CargarKardex(ddlProducto2.SelectedValue.ToEntero)
If (Not IsNothing(DtKardex)) Then If (Not IsNothing(DtKardex)) Then
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
@@ -379,12 +380,16 @@ Partial Class Inventarios_Kardex
End If End If
DtKardex.Dispose() DtKardex.Dispose()
End If End If
Else
Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia)
End If
End Sub End Sub
Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
GenerarPDF() GenerarPDF()
End Sub End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF") Private Sub GenerarPDF(Optional Formato As String = "PDF")
If ddlProducto2.SelectedValue.ToEntero > 0 Then
Dim Movimientos As New ClsInventarios Dim Movimientos As New ClsInventarios
Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
Dim Entrada As Boolean = cbEntrada.Checked Dim Entrada As Boolean = cbEntrada.Checked
@@ -441,6 +446,9 @@ Partial Class Inventarios_Kardex
Else Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If End If
Else
Alert("Debes seleccionar un Producto/Servicio", TipoMensaje.MsgAdvertencia)
End If
End Sub End Sub
#End Region #End Region