Inventarios/EntradasSalidas.aspx.vb

@@ -1058,7 +1058,7 @@ Partial Class Inventarios_EntradasSalidas
                 ObjConta.IniciaTransacSQL()
             End If
 
-            If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
+            If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
                 TieneError = True
             End If
 

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -152,10 +152,14 @@ Partial Class Inventarios_KardexAlmacen
                 dt = Nothing
                 Return dt
                 Exit Function
-            End If
-        End If
-
-        ObjMovimientos.Dispose()
+            End If
+        Else
+            ObjMovimientos.Dispose()
+            Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            Exit Function
+        End If
+
+
         GvDatos.DataBind()
 
         For index = 3 To GvDatos.Rows(0).Cells.Count - 1

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2346,16 +2346,18 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                If Not ErrorMovInv And CvePrePolizaCompra > 0 Then
+                If Not ErrorMovInv Then
 
-                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                        If Not ObjConta.PrePolizaUnificacion(CvePrePolizaCompra, CvePrePoliza) Then
-                            ErrorMovInv = True
-                            MensajeError = "Error al unificar los conceptos contables"
+                    If CvePrePolizaCompra > 0 Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
                         End If
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Or UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
                         If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             ErrorMovInv = True
                             MensajeError = "Error al simplificar los conceptos contables"
@@ -2458,17 +2460,20 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                If Not ErrorMovInv And CvePrePolizaCompra > 0 Then
+                If Not ErrorMovInv Then
 
-                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Or UsuarioActual.CveEmpresa = 119 Then
-                        If Not ObjConta.PrePolizaUnificacion(CvePrePolizaCompra, CvePrePoliza) Then
-                            ErrorMovInv = True
-                            MensajeError = "Error al unificar los conceptos contables"
+                    If CvePrePolizaCompra > 0 Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
                         End If
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Or UsuarioActual.CveEmpresa = 119 Then
-                        If Not ObjConta.PrePolizaSimplificacion(CvePrePolizaCompra, UsuarioActual.CveEmpresa) Then
+
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                        If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             ErrorMovInv = True
                             MensajeError = "Error al simplificar los conceptos contables"
                         End If
@@ -2743,6 +2748,17 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+            ObjContaAC.IniciaTransacSQL()
+            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
+                MensajeError = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
+            Else
+                ErrorMovInv = True
+                MensajeError = "Error al contabilizar los conceptos contables"
+            End If
+        End If
+
 
         'FINAL
         If Not ErrorMovInv Then