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

-- cambios guias

Browse Source
This commit is contained in:
rrene
2020-06-02 08:14:57 -07:00
parent f3e6d01590
commit e3917bb04f
5 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Clientes.aspx.vb
View File

@@ -1667,7 +1667,7 @@ Partial Class Clientes
End If
TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
Else
Existe = False
Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)

2
Ventas/Ventas.aspx.vb
View File

@@ -13775,7 +13775,7 @@ Partial Class Ventas
End If
Dim PorcentajePrecio As Double = 0
If PrecioSugerido = 0 Then
If PrecioSugerido = 0 AndAlso CveCliente > 0 Then
CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
If CvePrecioListaPS > 0 Then
Dim ObjPS As New ClsProductosServicios