Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: A415TDOK - Validação da tudook


Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas:Espanhol , Inglês


Descrição:

VALIDACAO DA TUDOOK - ORCAMENTO DE VENDA
Este ponto de entrada é disparado na validação da "tudook" da rotina de Orçamento de venda.

Programa Fonte
.PRW
Sintaxe

A415TDOK - Validação da "tudook" ao salvar um Orçamento de Venda


Exemplo de uso:

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

User function A415TDOK() 

Local lRet := .T. //Variável utilizada para controle e validação ao clicar no botão SALVAR do Orçamento de venda

dbSelectArea("TMP1")
dbGotop()

If M->CJ_CLIENTE == "000001" .And. TMP1->CK_VALOR >= 1000
    lRet := .F.
    MsgAlert("Não é possível incluir orçamento para o cliente "+M->CJ_CLIENTE+" com valor maior ou igual à $1000,00")
EndIf

Return(lRet)