BITACORA PARA MODIFICACIONES A PREPOLIZAS Y PREPOLIZAS DETALLE

Contabilidad/RegPrePoliza.aspx.vb

@@ -209,6 +209,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
                 CreaDT()
                 CargaPrePoliza()
+                CargaGvBitacora()
                 If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
                     GvPrePoliza.Columns(4).Visible = False
                     GvConcepto.Columns(4).Visible = False
@@ -1643,5 +1644,15 @@ Partial Class ContabilidadC_RegPrePoliza
         End If
         ObjCompras.Dispose()
     End Sub
+
+    Private Sub CargaGvBitacora()
+        ' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
+        Dim ObjGral As New ClsGenerales()
+        If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
+            GvBitacora.DataSource = ObjGral.DtResultados
+            GvBitacora.DataBind()
+        End If
+        ObjGral.Dispose()
+    End Sub
 End Class