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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2019-12-03 16:51:01 -07:00
parent 9d38072e21 ca74ba1ca0
commit 16a4ab016c
2 changed files with 13 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/PV.aspx
View File

@@ -2803,11 +2803,10 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-5">
<div class="form-group form-md-line-input input-iconright"> <div >
<asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="100%" AutoPostBack="true"> <label for="<%= DdlClientes.ClientID.ToString()%>">Distribuidor:</label><br />
</asp:DropDownList> <ADS:Dropdownlost ID="DdlClientes" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
<label for="<%= DdlClientes.ClientID.ToString()%>">Cliente:</label>
</div> </div>
</div> </div>
</div> </div>

26
Ventas/PV.aspx.vb
View File

@@ -4973,16 +4973,6 @@ Partial Class PV
UpAjuste.Update() UpAjuste.Update()
End Sub End Sub
Private Sub CargaClienteAjuste()
DdlClientes.Items.Clear()
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClientes.DataBind()
UpAjuste.Update()
End Sub
Private Sub CargaBCIAjuste() Private Sub CargaBCIAjuste()
Dim ObjGral As New ClsGenerales Dim ObjGral As New ClsGenerales
If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
@@ -5026,8 +5016,8 @@ Partial Class PV
CreaDTmpDTAjustes() CreaDTmpDTAjustes()
CreaDTmpDTRecepcionUsados() CreaDTmpDTRecepcionUsados()
CargaClienteAjuste()
CargaBCIAjuste() CargaBCIAjuste()
DdlClientes.setEsWebService(True)
DivChkAjuste.Visible = True DivChkAjuste.Visible = True
End Sub End Sub
@@ -5758,12 +5748,14 @@ Partial Class PV
params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text)) params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
params.Add(New ReportParameter("TelCliente", LblTelefono.Text)) params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
Else Else
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)) If (DdlClientes.SelectedValue.ToEntero > 0) Then
Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", 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
params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedItem.Text)) Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado))) params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString)) 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 End If
'Informacion Distribuidor 'Informacion Distribuidor