From e51b4f72a1b0bedabbcc45f6dd29b112960ccd63 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 10 Dec 2023 14:57:07 -0700 Subject: [PATCH] --addcliente, tipo persona --- General/SaldosIniciales.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 2ffbf565d..a09bfa891 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1277,6 +1277,7 @@ Partial Class General_SaldosIniciales Dim Pagina As String = If(dt.Columns.Contains("Pagina"), Row("Pagina").ToString(), "") Dim CodigoRegimenFiscal As String = Row("RegimenFiscal").ToString.Trim Dim CveRegimenFiscal As Integer = 0 + Dim TipoPersona As Boolean = If(RFC.Length = 12, True, False) If CodigoRegimenFiscal.Trim.Length > 0 Then CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero() @@ -1386,7 +1387,7 @@ Partial Class General_SaldosIniciales If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), NumInt, Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", Pagina, "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1, "-1", "-1", "-1", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado, BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0, - RegimenSociedad:=RegimenSociedad, CveRegimenFiscal:=CveRegimenFiscal) Then + RegimenSociedad:=RegimenSociedad, CveRegimenFiscal:=CveRegimenFiscal, TipoPersona:=TipoPersona) Then ErrorClientes = True RFC.GuardaLog