-autoconta - Filiales

Bancos/FluctuacionCambiaria.aspx.vb

@@ -465,6 +465,8 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
+        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
+        ObjContPaq.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Filiales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
@@ -524,13 +526,29 @@ Partial Class Bancos_FluctuacionCambiaria
         Next
 
         If Not ErrorRegistrar Then
+
+            'Inicio auto conta
+            Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+            If AutoConta Then
+
+                If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                Else
+                    Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                End If
+            End If
+
+            If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
+            'Fin autoconta 
             Conta.Commit()
+
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
+            ObjContPaq.RollBack()
         End If
         Conta.Dispose()
         Banco.Dispose()
+        ObjContPaq.Dispose()
     End Sub
 
 #End Region