From 95abda00e9f7e8b51a336b445677d8252318b97f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 22 Mar 2024 15:53:16 -0700
Subject: [PATCH] --Fix asignacion de cuentas, saldos iniciales

---
 General/SaldosIniciales.aspx.vb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index dd3da1c97..25f946837 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -3189,13 +3189,13 @@ Partial Class General_SaldosIniciales
                 If Not ErrorProceso Then
                     DTAnticipoCliente.AcceptChanges()
                 End If
-            End If
 
+                If Not AsignacionCuenta(ObjConta, 66, CveCuentaContable, -1, -1, CveCliente, -1, UsuarioActual.CveEmpresa, -1) Then
+                    ErrorProceso = True
+                    Alert("Se presento un error al guardar en asignaciones", TipoMensaje.MsgAdvertencia)
+                    Exit For
+                End If
 
-            If Not AsignacionCuenta(ObjConta, 66, CveCuentaContable, -1, -1, CveCliente, -1, UsuarioActual.CveEmpresa, -1) Then
-                ErrorProceso = True
-                Alert("Se presento un error al guardar en asignaciones", TipoMensaje.MsgAdvertencia)
-                Exit For
             End If
 
             Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Anticipo/Cliente/SaldoInicial", 24, Importe, Importe, CveMoneda, Fecha, FolioStr, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)