-

Inventarios/Kardex.aspx.vb

@@ -281,8 +281,11 @@ Partial Class Inventarios_Kardex
 
         Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
         Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
-        Dim CveAlmacen As Integer = -1
+        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
         Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
         If CvePS > 0 Then
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
             If dr IsNot Nothing Then
@@ -398,65 +401,80 @@ Partial Class Inventarios_Kardex
         GenerarPDF()
     End Sub
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
-        If ddlProducto2.SelectedValue.ToEntero > 0 Then
-            Dim Movimientos As New ClsInventarios
-            Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
-            Dim Entrada As Boolean = cbEntrada.Checked
-            Dim Salida As Boolean = cbSalida.Checked
+        If GvM.Rows.Count > 0 Then
+            If ddlProducto2.SelectedValue.ToEntero > 0 Then
+                Dim Movimientos As New ClsInventarios
+                Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+                Dim Entrada As Boolean = cbEntrada.Checked
+                Dim Salida As Boolean = cbSalida.Checked
 
-            Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
-            Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
-            Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
-
-
-            Dim Almacen = If(ddlAlmacen.SelectedValue = "-1", "", $"&emsp;<b>Almacén:</b>&nbsp;{ddlAlmacen.SelectedItem.Text}")
-            Dim UM = If(DdlUnidadMedida.SelectedValue = "-1", "", $"&emsp;<b>Unidad de Medida:</b>&nbsp;{DdlUnidadMedida.SelectedItem.Text}")
-            Dim FechaIn As String = If(TxtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaI.Text}")
-            Dim FechaFn As String = If(TxtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaF.Text}")
-            Dim EntradaSalida As String = ""
-
-            If cbEntrada.Checked And cbSalida.Checked Then
-                EntradaSalida = "&emsp;Entradas y Salidas"
-            ElseIf cbEntrada.Checked And cbSalida.Checked = False Then
-                EntradaSalida = "&emsp;Solo Entradas"
-            ElseIf cbEntrada.Checked = False And cbSalida.Checked Then
-                EntradaSalida = "&emsp;Solo Salidas"
-            End If
-
-            Dim CveTiposAlmacen = ""
-            For Each item As ListItem In CBLTiposAlmacen.Items
-                CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
-            Next
-
-            Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")
-
-            Dim SerieAgrupado As String = If(TxtSerie.Text = "", "", $"<b>Existencia y costos calculada por numero de serie:</b>&nbsp;{TxtSerie.Text} ")
-
-            If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then
-
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                Dim dt As DataTable = Movimientos.DtResultados
-                Dim params As New List(Of ReportParameter)
-                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("FechaInicio", FechaI))
-                params.Add(New ReportParameter("FechaFin", FechaF))
-                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
-                params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText))
-                params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))
-
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+                Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+                Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
+                Dim Almacenes As String = ddlAlmacen.GetSelectedText()
+                Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+                If CveAlmacenes.Contains(",") Then
+                    CveAlmacen = -2
+                End If
+                Dim Almacen As String
+                If CveAlmacen = -1 Then
+                    Almacen = ""
+                ElseIf CveAlmacen = -2 Then
+                    Almacen = $"&emsp;<b>Almacén:</b>&nbsp;{Almacenes}"
+                    CveAlmacen = -1
+                Else
+                    Almacen = $"&emsp;<b>Almacén:</b>&nbsp;{ddlAlmacen.SelectedItem.Text}"
+                End If
+                Dim UM = If(DdlUnidadMedida.SelectedValue = "-1", "", $"&emsp;<b>Unidad de Medida:</b>&nbsp;{DdlUnidadMedida.SelectedItem.Text}")
+                Dim FechaIn As String = If(TxtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaI.Text}")
+                Dim FechaFn As String = If(TxtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaF.Text}")
+                Dim EntradaSalida As String = ""
+
+                If cbEntrada.Checked And cbSalida.Checked Then
+                    EntradaSalida = "&emsp;Entradas y Salidas"
+                ElseIf cbEntrada.Checked And cbSalida.Checked = False Then
+                    EntradaSalida = "&emsp;Solo Entradas"
+                ElseIf cbEntrada.Checked = False And cbSalida.Checked Then
+                    EntradaSalida = "&emsp;Solo Salidas"
+                End If
+
+                Dim CveTiposAlmacen = ""
+                For Each item As ListItem In CBLTiposAlmacen.Items
+                    CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
+                Next
+
+                Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")
+
+                Dim SerieAgrupado As String = If(TxtSerie.Text = "", "", $"<b>Existencia y costos calculada por numero de serie:</b>&nbsp;{TxtSerie.Text} ")
+
+                If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
+
+                    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    Dim dt As DataTable = Movimientos.DtResultados
+                    Dim params As New List(Of ReportParameter)
+                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("FechaInicio", FechaI))
+                    params.Add(New ReportParameter("FechaFin", FechaF))
+                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                    params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+                    params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText))
+                    params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))
+
+                    If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", logouri))
+                    Else
+                        params.Add(New ReportParameter("LogoPath", ""))
+                    End If
+                    ImprimirPDF("Empresas/Grales/Formatos/RepKardex.rdlc", dt, params, "ReporteKardex", Formato)
                 Else
-                    params.Add(New ReportParameter("LogoPath", ""))
+                    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
                 End If
-                ImprimirPDF("Empresas/Grales/Formatos/RepKardex.rdlc", dt, params, "ReporteKardex", Formato)
             Else
-                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+                Alert("Debes seleccionar un Producto/Servicio", TipoMensaje.MsgAdvertencia)
             End If
         Else
-            Alert("Debes seleccionar un Producto/Servicio", TipoMensaje.MsgAdvertencia)
+            Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia)
         End If
 
     End Sub