Error al consultar cliente
This commit is contained in:
@@ -1579,161 +1579,165 @@ Partial Class PV
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1)
|
||||
|
||||
Dim ObjCliente As New ClsClientes()
|
||||
Try
|
||||
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus, TipoCliente:=-1) Then
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
TxtCodigo.Text = ObjCliente.Codigo
|
||||
|
||||
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus, TipoCliente:=-1) Then
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
TxtCodigo.Text = ObjCliente.Codigo
|
||||
|
||||
LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.Nombre)
|
||||
ViewState("NombreCliente") = ObjCliente.Nombre
|
||||
LtlCliente.Text = ObjCliente.Nombre
|
||||
ChkEnviarFactura.Checked = ObjCliente.EnviarFactura
|
||||
ViewState("Mail") = If(DdlTipoComprobante.SelectedValue = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
|
||||
ViewState("MailCC") = ObjCliente.NotificarA
|
||||
LblDireccion.Text = ObjCliente.Direccion
|
||||
LblColonia.Text = ObjCliente.Colonia
|
||||
LblCiudad.Text = ObjCliente.Ciudad
|
||||
LblEstado.Text = ObjCliente.Estado
|
||||
LblCP.Text = ObjCliente.CP
|
||||
LblRFC.Text = ObjCliente.RFC
|
||||
LblTelefono.Text = ObjCliente.Telefono
|
||||
LblRetIVA.Text = ObjCliente.RetIVA.ToString.FormatoNumero(5)
|
||||
LblRetISR.Text = ObjCliente.RetISR.ToString.FormatoNumero(5)
|
||||
ViewState("ClienteRetIVA") = ObjCliente.RetIVA / 100
|
||||
ViewState("ClienteRetISR") = ObjCliente.RetISR / 100
|
||||
ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
|
||||
If ObjCliente.RetieneIVAFletes Then
|
||||
TrRetIVA.Style.Add("display", "")
|
||||
UsuarioActual.Empresa.MostrarRetIVA = True
|
||||
End If
|
||||
|
||||
ViewState("Vendedor") = ObjCliente.Vendedor
|
||||
ViewState("CtaContable") = ObjCliente.CuentaContable
|
||||
ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
|
||||
ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
|
||||
ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
|
||||
ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
|
||||
ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
|
||||
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
|
||||
ViewState("CodCliente") = ObjCliente.Codigo
|
||||
ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
|
||||
|
||||
If (Boolean.Parse(ObjCliente.DtResultados(0)("EsDistribuidor").ToString)) Then
|
||||
TrEsDistribuidor.Visible = True
|
||||
LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
|
||||
Else
|
||||
TrEsDistribuidor.Visible = False
|
||||
End If
|
||||
|
||||
ViewState("CliNoExt") = ObjCliente.NoExt
|
||||
ViewState("CliNoInt") = ObjCliente.NoInt
|
||||
ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
|
||||
ViewState("CliPais") = ObjCliente.Pais
|
||||
|
||||
'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
|
||||
EnviarCorreoCliente = ObjCliente.EnviarFactura
|
||||
ChkEnviarFactura.Visible = True
|
||||
ChkEnviarFactura.Checked = EnviarCorreoCliente
|
||||
LblEnviarMail.Visible = True
|
||||
|
||||
Dim dr As DataRow = Nothing
|
||||
dr = GlobalDTSubProyectos(-1).FiltroPrimero("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
If dr IsNot Nothing Then
|
||||
ViewState("MatCalle") = dr("Calle")
|
||||
ViewState("MatNoExt") = dr("NoExt")
|
||||
ViewState("MatNoInt") = dr("NoInt")
|
||||
ViewState("MatColonia") = dr("Colonia")
|
||||
ViewState("MatLocalidad") = dr("Localidad")
|
||||
ViewState("MatMunicipio") = dr("Municipio")
|
||||
ViewState("MatEstado") = dr("Estado")
|
||||
ViewState("MatPais") = dr("Pais")
|
||||
ViewState("MatCP") = dr("CP")
|
||||
End If
|
||||
|
||||
If CveVenta <= 0 Then
|
||||
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString)
|
||||
DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString)
|
||||
'DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33.ToString)
|
||||
'DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
|
||||
End If
|
||||
TxtFechaPago.Text = (Now.AddDays(ObjCliente.PlazoCobranza)).ToShortDateString
|
||||
|
||||
|
||||
If ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero > 0 Then
|
||||
DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero)
|
||||
End If
|
||||
|
||||
If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
|
||||
DdlVendedor.Enabled = False
|
||||
End If
|
||||
|
||||
EstatusCliente = ObjCliente.Estatus
|
||||
|
||||
If Not EstatusCliente Then
|
||||
BtnEmitirImprimir.Enabled = False
|
||||
Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
BtnEmitirImprimir.Enabled = True
|
||||
End If
|
||||
|
||||
UpFacturar.Update()
|
||||
|
||||
If UsuarioActual.Empresa.UsaInventarios Then
|
||||
RblTipo.Items.Remove(RblTipo.Items.FindByValue("1"))
|
||||
RblTipo.Items.Remove(RblTipo.Items.FindByValue("2"))
|
||||
End If
|
||||
UpnTools.Update()
|
||||
|
||||
|
||||
If Not CveVenta > 0 Then
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
If UsuarioActual.TienePermisoProceso(152) Then
|
||||
DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto)
|
||||
DdlSubProyectoDatos.Enabled = False
|
||||
Else
|
||||
DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
|
||||
End If
|
||||
'RECARGA LOS VALORES DE LA SUCURSAL
|
||||
CambiaSucursal()
|
||||
UpParametros.Update()
|
||||
LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.Nombre)
|
||||
ViewState("NombreCliente") = ObjCliente.Nombre
|
||||
LtlCliente.Text = ObjCliente.Nombre
|
||||
ChkEnviarFactura.Checked = ObjCliente.EnviarFactura
|
||||
ViewState("Mail") = If(DdlTipoComprobante.SelectedValue = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
|
||||
ViewState("MailCC") = ObjCliente.NotificarA
|
||||
LblDireccion.Text = ObjCliente.Direccion
|
||||
LblColonia.Text = ObjCliente.Colonia
|
||||
LblCiudad.Text = ObjCliente.Ciudad
|
||||
LblEstado.Text = ObjCliente.Estado
|
||||
LblCP.Text = ObjCliente.CP
|
||||
LblRFC.Text = ObjCliente.RFC
|
||||
LblTelefono.Text = ObjCliente.Telefono
|
||||
LblRetIVA.Text = ObjCliente.RetIVA.ToString.FormatoNumero(5)
|
||||
LblRetISR.Text = ObjCliente.RetISR.ToString.FormatoNumero(5)
|
||||
ViewState("ClienteRetIVA") = ObjCliente.RetIVA / 100
|
||||
ViewState("ClienteRetISR") = ObjCliente.RetISR / 100
|
||||
ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
|
||||
If ObjCliente.RetieneIVAFletes Then
|
||||
TrRetIVA.Style.Add("display", "")
|
||||
UsuarioActual.Empresa.MostrarRetIVA = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjCliente.GetSucursales(CveCliente) Then
|
||||
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
trsucursalciente.Visible = True
|
||||
ViewState("Vendedor") = ObjCliente.Vendedor
|
||||
ViewState("CtaContable") = ObjCliente.CuentaContable
|
||||
ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
|
||||
ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
|
||||
ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
|
||||
ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
|
||||
ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
|
||||
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
|
||||
ViewState("CodCliente") = ObjCliente.Codigo
|
||||
ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
|
||||
|
||||
If (Boolean.Parse(ObjCliente.DtResultados(0)("EsDistribuidor").ToString)) Then
|
||||
TrEsDistribuidor.Visible = True
|
||||
If Not String.IsNullOrEmpty(ObjCliente.Vendedor) Then
|
||||
LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
|
||||
End If
|
||||
Else
|
||||
TrEsDistribuidor.Visible = False
|
||||
End If
|
||||
|
||||
ViewState("CliNoExt") = ObjCliente.NoExt
|
||||
ViewState("CliNoInt") = ObjCliente.NoInt
|
||||
ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
|
||||
ViewState("CliPais") = ObjCliente.Pais
|
||||
|
||||
'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
|
||||
EnviarCorreoCliente = ObjCliente.EnviarFactura
|
||||
ChkEnviarFactura.Visible = True
|
||||
ChkEnviarFactura.Checked = EnviarCorreoCliente
|
||||
LblEnviarMail.Visible = True
|
||||
|
||||
Dim dr As DataRow = Nothing
|
||||
dr = GlobalDTSubProyectos(-1).FiltroPrimero("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
If dr IsNot Nothing Then
|
||||
ViewState("MatCalle") = dr("Calle")
|
||||
ViewState("MatNoExt") = dr("NoExt")
|
||||
ViewState("MatNoInt") = dr("NoInt")
|
||||
ViewState("MatColonia") = dr("Colonia")
|
||||
ViewState("MatLocalidad") = dr("Localidad")
|
||||
ViewState("MatMunicipio") = dr("Municipio")
|
||||
ViewState("MatEstado") = dr("Estado")
|
||||
ViewState("MatPais") = dr("Pais")
|
||||
ViewState("MatCP") = dr("CP")
|
||||
End If
|
||||
|
||||
If CveVenta <= 0 Then
|
||||
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString)
|
||||
DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString)
|
||||
'DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33.ToString)
|
||||
'DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
|
||||
End If
|
||||
TxtFechaPago.Text = (Now.AddDays(ObjCliente.PlazoCobranza)).ToShortDateString
|
||||
|
||||
|
||||
If ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero > 0 Then
|
||||
DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero)
|
||||
End If
|
||||
|
||||
If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
|
||||
DdlVendedor.Enabled = False
|
||||
End If
|
||||
|
||||
EstatusCliente = ObjCliente.Estatus
|
||||
|
||||
If Not EstatusCliente Then
|
||||
BtnEmitirImprimir.Enabled = False
|
||||
Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
BtnEmitirImprimir.Enabled = True
|
||||
End If
|
||||
|
||||
UpFacturar.Update()
|
||||
|
||||
If UsuarioActual.Empresa.UsaInventarios Then
|
||||
RblTipo.Items.Remove(RblTipo.Items.FindByValue("1"))
|
||||
RblTipo.Items.Remove(RblTipo.Items.FindByValue("2"))
|
||||
End If
|
||||
UpnTools.Update()
|
||||
|
||||
|
||||
If Not CveVenta > 0 Then
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
If UsuarioActual.TienePermisoProceso(152) Then
|
||||
DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto)
|
||||
DdlSubProyectoDatos.Enabled = False
|
||||
Else
|
||||
DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
|
||||
End If
|
||||
'RECARGA LOS VALORES DE LA SUCURSAL
|
||||
CambiaSucursal()
|
||||
UpParametros.Update()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjCliente.GetSucursales(CveCliente) Then
|
||||
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
trsucursalciente.Visible = True
|
||||
Else
|
||||
trsucursalciente.Visible = False
|
||||
End If
|
||||
Else
|
||||
trsucursalciente.Visible = False
|
||||
DdlSucursalCliente.DataSource = Nothing
|
||||
End If
|
||||
DdlSucursalCliente.DataBind()
|
||||
|
||||
|
||||
LbAgregar.Enabled = True
|
||||
UpEstatus.Update()
|
||||
UpPS.Update()
|
||||
UpParametros.Update()
|
||||
UPCondicionesPago.Update()
|
||||
UpComplementos.Update()
|
||||
|
||||
CargarAlmacenes()
|
||||
CargaFacturasAjuste()
|
||||
Else
|
||||
trsucursalciente.Visible = False
|
||||
DdlSucursalCliente.DataSource = Nothing
|
||||
Alert("El cliente solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgError)
|
||||
End If
|
||||
DdlSucursalCliente.DataBind()
|
||||
|
||||
|
||||
LbAgregar.Enabled = True
|
||||
UpEstatus.Update()
|
||||
UpPS.Update()
|
||||
UpParametros.Update()
|
||||
UPCondicionesPago.Update()
|
||||
UpComplementos.Update()
|
||||
|
||||
CargarAlmacenes()
|
||||
CargaFacturasAjuste()
|
||||
Else
|
||||
Alert("El cliente solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgError)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al asignar el cliente", ex)
|
||||
End Try
|
||||
ObjCliente.Dispose()
|
||||
UPCondicionesPago.Update()
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user