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

BDH. al hacer un ajuste el distribuidor es requerido

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-08-23 12:35:59 -07:00
parent 0ceafda5ac
commit 1a835e29a6
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ventas/PV.aspx.vb
View File

@@ -4889,6 +4889,12 @@ Partial Class PV
End If End If
If ChkAjuste.Checked Then If ChkAjuste.Checked Then
If DdlDistribuidor.SelectedValue.ToEntero() <= 0 Then
Alert("Debe seleccionar un distribuidor", TipoMensaje.MsgAdvertencia)
Return False
End If
If TxtFechaAjuste.Text.ToDate > Now Then If TxtFechaAjuste.Text.ToDate > Now Then
Alert("La fecha de compra no puede ser mayor a la de hoy.", TipoMensaje.MsgAdvertencia) Alert("La fecha de compra no puede ser mayor a la de hoy.", TipoMensaje.MsgAdvertencia)
Return False Return False
@@ -7590,6 +7596,11 @@ Partial Class PV
'params.Add(New ReportParameter("Comprobante", TxtComprobante.Text)) 'params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
'params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text)) 'params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
If DdlDistribuidor.SelectedValue.ToEntero() <= 0 Then
Alert("Debe seleccionar un distribuidor", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim URLDescarga As New StringBuilder Dim URLDescarga As New StringBuilder
URLDescarga.Append($"OP=AJUSTE&CVEPSAJUSTE={DdlPSAjuste.SelectedValue.ToEntero}&CVECLIENTE={CveCliente}&CVECLIENTEDISTRIBUIDOR={DdlDistribuidor.SelectedValue.ToEntero()}&CONSEC={TxtConsecutivoAjuste.Text.Trim}") URLDescarga.Append($"OP=AJUSTE&CVEPSAJUSTE={DdlPSAjuste.SelectedValue.ToEntero}&CVECLIENTE={CveCliente}&CVECLIENTEDISTRIBUIDOR={DdlDistribuidor.SelectedValue.ToEntero()}&CONSEC={TxtConsecutivoAjuste.Text.Trim}")