AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--mejoras

Browse Source
This commit is contained in:
rrene
2022-11-09 13:34:31 -07:00
parent 4e9189f01a
commit 33ca3da04a
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Ventas/Clientes.aspx.vb
View File

@@ -1858,7 +1858,8 @@ Partial Class Clientes
'Ocultamos la mayoria de informacion si es no-frecuente 'Ocultamos la mayoria de informacion si es no-frecuente
If ObjClientes.TipoCliente = 2 Then If ObjClientes.TipoCliente = 2 Then
TabFiscalContable.Visible = False If UsuarioActual.CveEmpresa <> 141 Then TabFiscalContable.Visible = False
TabCxC.Visible = False TabCxC.Visible = False
'TabAnticipos.Visible = False 'TabAnticipos.Visible = False
TabRetenciones.Visible = False TabRetenciones.Visible = False
@@ -2510,12 +2511,12 @@ Partial Class Clientes
If DdlPais.SelectedValue.ToEntero() = 151 Then If DdlPais.SelectedValue.ToEntero() = 151 Then
If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then
Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
If Not DdlColonia.SelectedValue.ToEntero() > 0 Then If Not DdlColonia.SelectedValue.ToEntero() > 0 Then
Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
End If End If
@@ -2533,7 +2534,7 @@ Partial Class Clientes
If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then
Alert("El Regimen fiscal del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -8739,10 +8740,11 @@ Partial Class Clientes
DTPorcentajePrecios = DTPorcentajeTemp.Clone DTPorcentajePrecios = DTPorcentajeTemp.Clone
End Sub End Sub
Private Sub CargaMarcas() Private Sub CargaMarcas()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataSource = ObjMarcas.DtResultados 'DdlMarcaPS.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataBind() DdlMarcaPS.DataBind()
DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1"))