Tareas varias

2019-09-10 18:11:50 -07:00
parent 0213d4a945
commit 0e24e74e4d
9 changed files with 1627 additions and 1460 deletions
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -88,44 +88,42 @@ Partial Class Inventarios_InventarioFisicoDetalle
 #Region "  CARGA DATOS  "
    Private Sub CargaDatos(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1)

-        Dim Inventario As New ClsInventarios
+        Dim ObjInventario As New ClsInventarios
+        If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+            Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
+            Select Case CveEstatus
+                Case "0" 'NUEVO
+                    CveSubProyecto = ObjInventario.CveSubProyectoInventario
+                    lbTitulo.Text = ObjInventario.InventarioFisico
+                    lbObservaciones.Text = ObjInventario.Observaciones
+                    lbSubProyecto.Text = ObjInventario.SubProyectoInventario
+                    lbEstatus.Text = ObjInventario.Estatus

-        If Inventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) Then
-
-            Select Case Inventario.Estatus
-                Case "Nuevo"
-                    CveSubProyecto = Inventario.CveSubProyectoInventario
-                    lbTitulo.Text = Inventario.InventarioFisico
-                    lbObservaciones.Text = Inventario.Observaciones
-                    lbSubProyecto.Text = Inventario.SubProyectoInventario
-                    lbEstatus.Text = Inventario.Estatus
-
-                    lbFechaF.Text = Inventario.FechaF
+                    lbFechaF.Text = ObjInventario.FechaF
                    btnFin.Text = "Iniciar"
                    BtnGuardar.Enabled = False
                    btnFin.ToolTip = "Inicia el Inventario Físico"
-                Case "Finalizado"
+                Case "3" 'FINALIZADO
                    GvIFD.Columns(6).Visible = False
-                    PAgregar.Visible = False
-                    'BtnGuardar.Visible = False
+                    PAgregar.Visible = False
+                    BtnGuardar.Enabled = False
+                    BtnGuardar.Visible = False
                    btnFin.Visible = False
-                    'BtnGuardar.Enabled = False
-                    'PAgregar.Visible = False
-                    CveSubProyecto = Inventario.CveSubProyectoInventario
-                    lbTitulo.Text = Inventario.InventarioFisico
-                    lbObservaciones.Text = Inventario.Observaciones
-                    lbSubProyecto.Text = Inventario.SubProyectoInventario
-                    lbEstatus.Text = Inventario.Estatus
-                    lbFechaI.Text = Inventario.FechaI
-                    lbFechaF.Text = Inventario.FechaF
-                Case Else ' en proceso
-                    CveSubProyecto = Inventario.CveSubProyectoInventario
-                    lbTitulo.Text = Inventario.InventarioFisico
-                    lbObservaciones.Text = Inventario.Observaciones
-                    lbEstatus.Text = Inventario.Estatus
-                    lbSubProyecto.Text = Inventario.SubProyectoInventario
-                    lbFechaI.Text = Inventario.FechaI
-                    lbFechaF.Text = Inventario.FechaF
+                    CveSubProyecto = ObjInventario.CveSubProyectoInventario
+                    lbTitulo.Text = ObjInventario.InventarioFisico
+                    lbObservaciones.Text = ObjInventario.Observaciones
+                    lbSubProyecto.Text = ObjInventario.SubProyectoInventario
+                    lbEstatus.Text = ObjInventario.Estatus
+                    lbFechaI.Text = ObjInventario.FechaI
+                    lbFechaF.Text = ObjInventario.FechaF
+                Case "1", "2" ' EN PROCESO,EN ESPERA
+                    CveSubProyecto = ObjInventario.CveSubProyectoInventario
+                    lbTitulo.Text = ObjInventario.InventarioFisico
+                    lbObservaciones.Text = ObjInventario.Observaciones
+                    lbEstatus.Text = ObjInventario.Estatus
+                    lbSubProyecto.Text = ObjInventario.SubProyectoInventario
+                    lbFechaI.Text = ObjInventario.FechaI
+                    lbFechaF.Text = ObjInventario.FechaF
                    BtnGuardar.Enabled = True
                    btnFin.Text = "Finalizar"
                    LBAvance.Visible = UsuarioActual.TienePermisoProceso(178) ' si tiene permiso de ver el avance, se activa
@@ -133,8 +131,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
            GvIFD.Visible = False
            DivBuscador.Visible = False

-            If Inventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
-                Dim dt As DataTable = Inventario.DtResultados
+            If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                Dim dt As DataTable = ObjInventario.DtResultados
                Dim str As New StringBuilder
                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then

@@ -144,8 +142,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
                End If
                LblAlmacenes.Text = str.ToString
            End If
-            If Inventario.GetInventarioFisicoDetallesClasificacion(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
-                Dim dt As DataTable = Inventario.DtResultados
+
+            If ObjInventario.GetInventarioFisicoDetallesClasificacion(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                Dim dt As DataTable = ObjInventario.DtResultados
                Dim str As New StringBuilder
                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then

@@ -161,8 +160,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
                End If

            End If
-            If Inventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
-                Dim dt As DataTable = Inventario.DtResultados
+
+            If ObjInventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                Dim dt As DataTable = ObjInventario.DtResultados
                Dim str As New StringBuilder
                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then

@@ -179,18 +179,32 @@ Partial Class Inventarios_InventarioFisicoDetalle

            End If

-            If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
-                If Inventario.DtResultados.Rows.Count > 0 Then
-                    GvIFDUltimoRegistrado.DataSource = Inventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
+            If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
+                If ObjInventario.DtResultados.Rows.Count > 0 Then
+                    GvIFDUltimoRegistrado.DataSource = ObjInventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
                Else
                    GvIFDUltimoRegistrado.DataSource = Nothing
                End If
-                DtDatos = Inventario.DtResultados
-            End If
+                DtDatos = ObjInventario.DtResultados
+            End If
+        Else
+            GvIFD.Columns(6).Visible = False
+            PAgregar.Visible = False
+            BtnGuardar.Enabled = False
+            BtnGuardar.Visible = False
+            btnFin.Visible = False
+            CveSubProyecto = ObjInventario.CveSubProyectoInventario
+            lbTitulo.Text = ObjInventario.InventarioFisico
+            lbObservaciones.Text = ObjInventario.Observaciones
+            lbSubProyecto.Text = ObjInventario.SubProyectoInventario
+            lbEstatus.Text = ObjInventario.Estatus
+            lbFechaI.Text = ObjInventario.FechaI
+            lbFechaF.Text = ObjInventario.FechaF

+            Alert("Ocurrió un error al obterner el inventario fisico")
        End If

-        Inventario.Dispose()
+        ObjInventario.Dispose()
        GvIFDUltimoRegistrado.DataBind()

        'If (GvIFD.Rows.Count > 0) Then
@@ -397,20 +411,30 @@ Partial Class Inventarios_InventarioFisicoDetalle
 #Region "  VER AVANCE  "
    Protected Sub LBAvance_Click(sender As Object, e As EventArgs)
        Response.Redirect($"~/Inventarios/RepAnomalias.aspx?CveInventarioFisico={CveInventarioFisico}&EsAvance=1")
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "I M P R I M I R"
    Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
        Impimir(Formato:="PDF")
+    End Sub
+    Private Sub LnkPDFResumido_Click(sender As Object, e As EventArgs) Handles LnkPDFResumido.Click
+        Impimir(Formato:="PDF", Agrupar:=True)
    End Sub
    Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
        Impimir(Formato:="EXCEL")
    End Sub

-    Protected Sub Impimir(Optional Formato As String = "PDF")
+    Protected Sub Impimir(Optional Formato As String = "PDF", Optional Agrupar As Boolean = False)
+        Dim DtDatos As New DataTable
+        Dim ObjInventario As New ClsInventarios()
+        If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario, Agrupar:=Agrupar) Then
+            DtDatos = ObjInventario.DtResultados
+        End If
+        ObjInventario.Dispose()
+
        If DtDatos IsNot Nothing Then
            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepAnomalias.rdlc", UsuarioActual.Empresa.Ruta))
            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -441,8 +465,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
        Else
            Alert("No se encontraron resultado", TipoMensaje.MsgAdvertencia)
        End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 End Class