-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

Ventas/Ventas.aspx.vb

@@ -15349,9 +15349,11 @@ Partial Class Ventas
                                         If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then
                                             Dim CveMovimientoSalidaPorTraspaso As Integer = -1
                                             Dim CveConceptoSalidaAlmacen As Integer = 3
+                                            Dim CveAlmacenParaSalida As Integer = CveAlmacenEntrada
                                             'SALIDA DEFINITIVA DEL SISTEMA
                                             If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then
                                                 CveConceptoSalidaAlmacen = 40
+                                                CveAlmacenParaSalida = CveAlmacenSalida
                                                 ''Le damos salida normal
                                                 'If ConSalida Then
                                                 '    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveVenta, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
@@ -15396,7 +15398,7 @@ Partial Class Ventas
                                                 End If
 
                                                 If Not OcurrioError Then
-                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, CveConceptoSalidaAlmacen, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
+                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenParaSalida, CveConceptoSalidaAlmacen, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
 
                                                     If Not GeneroMovimientoAlmacen Then
                                                         OcurrioError = True