-- mejora

This commit is contained in:
2025-01-21 10:29:14 -07:00
parent 580d61a2f8
commit e3fc0f242f

View File

@@ -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