Descripción:

VALIDACIÓN TUDOOK - PRESUPUESTO DE VENTAS
Este punto de entrada se activa en la validación del "tudook» de la rutina de presupuesto de ventas.

Programa fuente

.PRW

Sintaxis

A415TDOK - Validación de "tudook» al grabar un presupuesto de ventas

Ejemplo de uso

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"

User function A415TDOK() 

Local lRet := .T. //Variable utilizada para el control y validación haciendo clic en la opción Grabar del presupuesto de ventas

dbSelectArea("TMP1")
dbGotop()

If M->CJ_CLIENTE == "000001" .And. TMP1->CK_VALOR >= 1000
    lRet := .F.
    MsgAlert("No se puede incluir una presupuesto para el cliente "+M->CJ_CLIENT+" con valor mayor o igual a $1000.00"
) endif

Return(lRet)