- parametro página en alta cliente
This commit is contained in:
@@ -1105,8 +1105,6 @@ Partial Class General_SaldosIniciales
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ErrorProv Then
|
||||
Alert($"Errores detectados <br>{sbErrores.ToString()}", TipoMensaje.MsgAdvertencia)
|
||||
Exit For
|
||||
@@ -1241,7 +1239,6 @@ Partial Class General_SaldosIniciales
|
||||
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
|
||||
NumRow = NumRow + 1
|
||||
|
||||
|
||||
Dim Codigo As String = Row("Codigo").ToString()
|
||||
Dim RazonSocial As String = Row("RazonSocial").ToString()
|
||||
Dim RFC As String = Row("RFC").ToString().Trim
|
||||
@@ -1252,13 +1249,12 @@ Partial Class General_SaldosIniciales
|
||||
Dim CodigoPostal As String = Row("Código Postal").ToString()
|
||||
Dim Poblacion As String = Row("Población").ToString()
|
||||
Dim Estado As String = Row("Estado").ToString().Trim
|
||||
Dim Pais As String = Row("Pais").ToString()
|
||||
Dim Pais As String = If(dt.Columns.Contains("Pais"), Row("Pais").ToString(), "")
|
||||
Dim Telefono As String = Row("Teléfono").ToString().Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
|
||||
Dim Contacto As String = Row("Contacto").ToString()
|
||||
Dim Contacto As String = If(dt.Columns.Contains("Contacto"), Row("Contacto").ToString(), "")
|
||||
|
||||
|
||||
Dim Vendedor As String = Row("Vendedor").ToString()
|
||||
Dim Clasificacion As String = Row("ClasificacionCliente").ToString()
|
||||
Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "")
|
||||
Dim Clasificacion As String = If(dt.Columns.Contains("ClasificacionCliente"), Row("ClasificacionCliente").ToString(), "")
|
||||
Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
|
||||
|
||||
Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
|
||||
@@ -1267,16 +1263,27 @@ Partial Class General_SaldosIniciales
|
||||
Dim CargoUsado As Boolean = If(dt.Columns.Contains("Cargo Usados"), If(Row("Cargo Usados").ToString().ToUpper = "SI", True, False), False)
|
||||
Dim BonificacionUsado As Boolean = If(dt.Columns.Contains("EmitirBon Usado"), If(Row("EmitirBon Usado").ToString().ToUpper = "SI", True, False), False)
|
||||
|
||||
Dim LimiteCredito As Decimal = Row("Limite Credito").ToString().ToDecimal
|
||||
Dim CobranzaCorreo As String = Row("CorreoPagos").ToString()
|
||||
Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString().ToEntero()
|
||||
Dim LimiteCredito As Decimal = If(dt.Columns.Contains("Limite Credito"), Row("Limite Credito").ToString(), "").ToDecimal
|
||||
Dim CobranzaCorreo As String = If(dt.Columns.Contains("CorreoPagos"), Row("CorreoPagos").ToString(), "")
|
||||
Dim PlazoCobranza As Integer = If(dt.Columns.Contains("Plazo Cobranza"), Row("Plazo Cobranza").ToString(), "").ToEntero
|
||||
|
||||
Dim DìaVisita As String = If(dt.Columns.Contains("Dia Pago"), Row("Dia Pago").ToString(), "")
|
||||
Dim DiasPagoEspecifico As String = If(dt.Columns.Contains("Dìa Visita"), Row("Dìa Visita").ToString(), "")
|
||||
Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pagoa"), Row("Encargado Pago").ToString(), "")
|
||||
Dim CobranzaTelefono As String = Row("Celular Contacto").ToString().Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
|
||||
Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString() = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}'", Row("UsoCFDI").ToString())).ToEntero())
|
||||
Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pago"), Row("Encargado Pago").ToString(), "")
|
||||
Dim CobranzaTelefono As String = If(dt.Columns.Contains("Celular Contacto"), Row("Celular Contacto").ToString(), "").Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
|
||||
Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString() = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}' OR UsoCFDIDescripcion = '{0}'", Row("UsoCFDI").ToString())).ToEntero())
|
||||
Dim CuentaContable As String = If(dt.Columns.Contains("CuentaContable"), Row("CuentaContable").ToString(), "")
|
||||
Dim RegimenSociedad As String = If(dt.Columns.Contains("RegimenSociedad"), Row("RegimenSociedad").ToString(), "")
|
||||
Dim Pagina As String = If(dt.Columns.Contains("Pagina"), Row("Pagina").ToString(), "")
|
||||
Dim CodigoRegimenFiscal As String = Row("RegimenFiscal").ToString()
|
||||
Dim CveRegimenFiscal As Integer = 0
|
||||
|
||||
If CodigoRegimenFiscal.Trim.Length > 0 Then
|
||||
CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero()
|
||||
If Not CveRegimenFiscal > 0 Then
|
||||
sbErrores.AppendLine($"Proveedor {RazonSocial} Codigo RegimenFiscal {CodigoRegimenFiscal} invalido.<br>")
|
||||
End If
|
||||
End If
|
||||
CuentaContable = CuentaContable.Trim.Replace("-", "").Replace(" ", "")
|
||||
|
||||
If CuentaContable.Length > 0 Then
|
||||
@@ -1289,15 +1296,9 @@ Partial Class General_SaldosIniciales
|
||||
End If
|
||||
|
||||
'Telefono
|
||||
If Telefono.Trim.Length > 10 Then Telefono = ""
|
||||
|
||||
If Telefono.Trim.Length > 10 Then
|
||||
Telefono = ""
|
||||
End If
|
||||
|
||||
If CobranzaTelefono.Trim.Length > 10 Then
|
||||
|
||||
CobranzaTelefono = ""
|
||||
End If
|
||||
If CobranzaTelefono.Trim.Length > 10 Then CobranzaTelefono = ""
|
||||
|
||||
Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString(), "")
|
||||
Dim CveFormaPago33 As Integer = 99
|
||||
@@ -1380,11 +1381,12 @@ Partial Class General_SaldosIniciales
|
||||
ExisteCliente = True
|
||||
Contador = Contador + 1
|
||||
Else
|
||||
Dim CveSATEstado As Integer = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero()
|
||||
Dim CveSATEstado As Integer = GlobalDTGralEstados("-1").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero()
|
||||
|
||||
If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), NumInt, Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
|
||||
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) Then
|
||||
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
|
||||
|
||||
ErrorClientes = True
|
||||
RFC.GuardaLog
|
||||
|
||||
Reference in New Issue
Block a user