Cambios BDH
This commit is contained in:
@@ -392,6 +392,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
End If
|
||||
|
||||
CargaTamaños()
|
||||
CargaMarcasFiltro()
|
||||
'DdlProducto2.setEsWebService(True)
|
||||
'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
|
||||
End Sub
|
||||
@@ -3102,6 +3103,164 @@ Partial Class Inventarios_RecepcionUsados
|
||||
InicializaClientes(ChkClientesTodos.Checked)
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlTipoDefecto_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlTipoDefecto.SelectedIndexChanged
|
||||
If DdlTipoDefecto.SelectedValue.ToEntero = 17 Then
|
||||
DivCodigoTD.Visible = True
|
||||
DdlTipoDefecto.Width = New Unit(140%)
|
||||
Else
|
||||
DivCodigoTD.Visible = False
|
||||
DdlTipoDefecto.Width = New Unit(200%)
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub DdlMarcaPSAjuste_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaPSAjuste(-1, DdlPSAjuste, CveMarca:=DdlMarcaPSAjuste.SelectedValue.ToEntero())
|
||||
UpAjuste.Update()
|
||||
End Sub
|
||||
Private Sub CargaPSAjuste(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaAlmacen As Boolean = True, Optional CveMarca As Integer = -1)
|
||||
Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString = "1")
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then
|
||||
Objeto.ddl.Items.Clear()
|
||||
Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=1)
|
||||
Objeto.ddl.DataBind()
|
||||
Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
|
||||
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||
Else
|
||||
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}")
|
||||
|
||||
Objeto.Attributes.Add("data-cvesubproyecto", CveSubProyecto)
|
||||
'Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
|
||||
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
|
||||
Objeto.ddlWS.Attributes.Add("data-aplicaparaventa", "1")
|
||||
|
||||
If AplicaAlmacen Then
|
||||
Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
|
||||
Else
|
||||
Objeto.ddlWS.Attributes.Add("data-pagina", "-1")
|
||||
End If
|
||||
Objeto.ddlWS.Attributes.Add("data-aplicaparaventa", "1")
|
||||
Objeto.ddlWS.Attributes.Add("data-cvemarca", CveMarca.ToString)
|
||||
Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
Dim MarcaPS As String = ""
|
||||
If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
|
||||
End If
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
Dim DtDatos As New DataTable
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
|
||||
'Informacion Distribuidor
|
||||
If (DdlClientes.SelectedValue.ToEntero > 0) Then
|
||||
|
||||
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue))
|
||||
Dim CiudadEstado As String = ""
|
||||
Dim Telefono As String = ""
|
||||
Dim Nombre As String = ""
|
||||
|
||||
If DatosClienteSeleccionado IsNot Nothing Then
|
||||
CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
|
||||
Telefono = DatosClienteSeleccionado("Telefono").ToString
|
||||
Nombre = DatosClienteSeleccionado("Nombre").ToString
|
||||
End If
|
||||
|
||||
params.Add(New ReportParameter("NombreDistribuidor", Nombre))
|
||||
params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
|
||||
params.Add(New ReportParameter("TelCliente", Telefono))
|
||||
|
||||
End If
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
|
||||
params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
|
||||
|
||||
'Informacion de Garantia o ajuste
|
||||
params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
|
||||
params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
|
||||
params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
|
||||
params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
|
||||
params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
|
||||
|
||||
'Informacion Acumulador
|
||||
params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
|
||||
params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
|
||||
params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
|
||||
params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
|
||||
params.Add(New ReportParameter("Marca", MarcaPS))
|
||||
params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text))
|
||||
|
||||
'Informacion Vehiculo
|
||||
params.Add(New ReportParameter("MarcaAuto", ""))
|
||||
params.Add(New ReportParameter("TipoAuto", ""))
|
||||
|
||||
'Informacion Consumidor
|
||||
'Informacion Distribuidor
|
||||
'If (CveCliente > 0) Then
|
||||
|
||||
' Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
|
||||
' Dim Nombre As String = ""
|
||||
' Dim Ciudad As String = ""
|
||||
' Dim Estado As String = ""
|
||||
' Dim Direccion As String = ""
|
||||
' Dim Telefono As String = ""
|
||||
|
||||
' If DatosClienteSeleccionado IsNot Nothing Then
|
||||
' Nombre = DatosClienteSeleccionado("Nombre").ToString
|
||||
' Ciudad = DatosClienteSeleccionado("Ciudad").ToString
|
||||
' Estado = DatosClienteSeleccionado("Estado").ToString
|
||||
' Direccion = DatosClienteSeleccionado("Direccion").ToString
|
||||
' Telefono = DatosClienteSeleccionado("Telefono").ToString
|
||||
' End If
|
||||
|
||||
' params.Add(New ReportParameter("NombreCliente", Nombre))
|
||||
' params.Add(New ReportParameter("Direccion", Direccion))
|
||||
' params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
|
||||
' params.Add(New ReportParameter("TelConsumidor", Telefono))
|
||||
'End If
|
||||
|
||||
|
||||
params.Add(New ReportParameter("NombreCliente", ""))
|
||||
params.Add(New ReportParameter("Direccion", ""))
|
||||
params.Add(New ReportParameter("CiudadEstadoConsumidor", ""))
|
||||
params.Add(New ReportParameter("TelConsumidor", ""))
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
params.Add(New ReportParameter("Anio", ""))
|
||||
params.Add(New ReportParameter("Comprobante", TxtPoliza.Text))
|
||||
params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMarcasFiltro()
|
||||
|
||||
Using ObjMarcas As New ClsProductosServicios
|
||||
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
|
||||
DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados
|
||||
End If
|
||||
End Using
|
||||
DdlMarcaPSAjuste.DataBind()
|
||||
|
||||
DdlMarcaPSAjuste.Items.Insert(0, New ListItem("Todas", "-1"))
|
||||
|
||||
UpAjuste.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Partial Class MFolioGarantiaMensaje
|
||||
Public Property CvePS As Integer
|
||||
Public Property CveClasificacionPS As Integer
|
||||
|
||||
Reference in New Issue
Block a user