From 6456c04e873117e4820d7c9a21947f608fc6bafa Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Jul 2023 16:19:41 -0700 Subject: [PATCH] -- registro VSH --- Ventas/Clientes.aspx.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1bd927b65..fe85578dc 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3950,7 +3950,7 @@ Partial Class Clientes If Not TieneError Then ObjContaAC.Commit() - Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion)) + 'Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion)) ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString())) : ddl.SelectedValueExist(IdCuentaContable.ToString()) btn.Visible = False ddl.Width = 206 @@ -3984,11 +3984,11 @@ Partial Class Clientes DisposeClases = False End If - If UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then - - If ObjContabilidad.GetCuentasGlobales(UsuarioActual.CveEmpresa, 1) Then - Dim CvePadre As Integer = ObjContabilidad.DtResultados.FiltroPrimeroValor("CveCuenta").ToEntero - If CvePadre > 0 Then + If UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then + Dim CvePadre As Integer = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCuenta", $"IdCompaq = {UsuarioActual.Empresa.Funcionalidad(211).ToEntero()}").ToEntero + 'If ObjContabilidad.GetCuentasGlobales(UsuarioActual.CveEmpresa, 1) Then + ' Dim CvePadre As Integer = ObjContabilidad.DtResultados.FiltroPrimeroValor("CveCuenta").ToEntero + If CvePadre > 0 Then Dim CvecuentaNueva As Integer = ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, "A", 2, 1, CveCliente:=CveCliente, IdCompaq:=IdCuentaAltaCompaq) @@ -3998,7 +3998,7 @@ Partial Class Clientes End If End If End If - End If + 'End If Else Respuesta = True End If