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

Muestra advertencia cuando no hay cliente

Browse Source
This commit is contained in:
janeth arvizu
2019-08-22 13:01:33 -07:00
parent b567acf72f
commit a117490153
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/Ventas.aspx.vb
View File

@@ -10680,6 +10680,11 @@ Partial Class Ventas
#Region " VISTA PREVIA NEW " #Region " VISTA PREVIA NEW "
Private Sub VistaPreviaNew() Private Sub VistaPreviaNew()
If Not CveCliente > 0 And Not CveEmpresaCRM > 0 Then
Alert("Es necesario seleccionar el cliente al cual se le va a facturar.", TipoMensaje.MsgAdvertencia, "AbrirVentana(""/Ventas/PopUpBuscarClientes.aspx?Opt=Fact"", 800, 547, ""N"", ""PopUpBuscar"")")
Exit Sub
End If
CreaObjetosVenta(True) CreaObjetosVenta(True)
If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then