Prorateo deducible Compras, clientes asignar cuenta sig generada

Ventas/Clientes.aspx.vb

@@ -3968,17 +3968,19 @@ Partial Class Clientes
             If ObjContabilidad.GetCuentasGlobales(UsuarioActual.CveEmpresa, 1) Then
                 Dim CvePadre As Integer = ObjContabilidad.DtResultados.FiltroPrimeroValor("CveCuenta").ToEntero
                 If CvePadre > 0 Then
-                    If ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, "A", 2, 1, CveCliente:=CveCliente, IdCompaq:=IdCuentaAltaCompaq) > 0 Then
-                        Respuesta = True
+
+                    Dim CvecuentaNueva As Integer = ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, "A", 2, 1, CveCliente:=CveCliente, IdCompaq:=IdCuentaAltaCompaq)
+
+                    If CvecuentaNueva > 0 Then
+                        If ObjContabilidad.AddCuentasAsignaciones(1, UsuarioActual.CveEmpresa, CvecuentaNueva, CveCliente:=CveCliente) Then
+                            Respuesta = True
+                        End If
                     End If
                 End If
             End If
 
-            'If ObjContabilidad.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, 7, -1, 1) Then
 
 
-            'End If
-
         End If
 
         Return Respuesta
@@ -4856,6 +4858,7 @@ Partial Class Clientes
 
 #Region "Cuentas/Equipos"
     Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
+
         HdnModalidad.Value = "I"
         DivCicloComercial.Visible = False
         TxtIdentificador.Text = ""