From e3fc0f242f31d1e8edc306a107c141d091bc77e1 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 21 Jan 2025 10:29:14 -0700 Subject: [PATCH] -- mejora --- Ventas/ClientesAbonar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index bad559dc2..47fed9063 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1185,7 +1185,7 @@ Partial Class Ventas_ClientesAbonar End If End If - If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso MsgError = "" Then '' si es empresa GDiaz + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TxtAnticipo.Text.ToDecimal > 0 AndAlso MsgError = "" Then '' si es empresa GDiaz 'generar un anticipo y registrarle el pago. Dim tCveMoneda As Integer = 1