diff --git a/Empresas/Grales/Formatos/Ajuste.rdlc b/Empresas/Grales/Formatos/Ajuste.rdlc
index 2dbdcb959..e0eae8c08 100644
--- a/Empresas/Grales/Formatos/Ajuste.rdlc
+++ b/Empresas/Grales/Formatos/Ajuste.rdlc
@@ -82,7 +82,7 @@
- =Parameters!NombreCliente.Value
+ =Parameters!NombreDistribuidor.Value
@@ -1933,6 +1933,12 @@
true
ReportParameter1
+
+ String
+ true
+ true
+ ReportParameter1
+
Es-MX
Inch
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 97130d96a..a763ee493 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2805,8 +2805,8 @@
-
-
+
+
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 576fe1f85..dbd45512d 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5018,7 +5018,7 @@ Partial Class PV
CreaDTmpDTAjustes()
CreaDTmpDTRecepcionUsados()
CargaBCIAjuste()
- DdlClientes.setEsWebService(True)
+ DdlDistribuidor.setEsWebService(True)
DivChkAjuste.Visible = True
End Sub
@@ -5749,22 +5749,18 @@ Partial Class PV
Dim params As New List(Of ReportParameter)
- If DdlClientes.SelectedValue.ToEntero = -1 Then
- params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
- params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
- params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
- Else
- If (DdlClientes.SelectedValue.ToEntero > 0) Then
- Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
- Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
- Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
- params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
- params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
- params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
- End If
- End If
'Informacion Distribuidor
+ If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
+
+ Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
+ Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
+ Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+ params.Add(New ReportParameter("NombreDistribuidor", DdlDistribuidor.SelectedText))
+ params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+ params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
+
+ 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)))
@@ -5788,6 +5784,7 @@ Partial Class PV
params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
'Informacion Consumidor
+ params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
params.Add(New ReportParameter("Direccion", LblDireccion.Text))
If Imagen.Exists Then