Soposrte autocontabilidad ajustes de inventario en OC y Compras

Cambio de pocision div de tipo para econollantas

OC/OC.aspx.vb

@@ -2249,7 +2249,7 @@ Partial Class OC
         Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL())
 
         Dim Conta As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto Then
+        If (UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto) Or UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
             Conta = New ClsContPAQi(UsuarioActual.Empresa)
             Conta.IniciaTransacSQL()
         End If
@@ -2647,6 +2647,13 @@ Partial Class OC
                                                 End If
                                             End If
 
+
+                                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso Conta IsNot Nothing Then
+                                                If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=Conta) Then
+                                                    TieneError = False
+                                                End If
+                                            End If
+
                                         End If
                                     End If
                                 Next