Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (stecca.silvio), última alteração em 09 jan, 2019

Ponto de Entrada

 CSAPOSX9 - Validação dos dados do Cadastro de Departamentos

Descrição:

Este ponto de entrada tem como objetivo permitir validar os dados do cadastro de departamentos ao realizar exclusão especificamente, após a validação da função csaa100ChkDel().

Programa Fonte:

CSAA100.PRW

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Variável lógica que irá determinar se os dados devem ser gravados ou não.

Sim


Exemplo:

#INCLUDE "PROTHEUS.CH"

User Function CSAPOSX9()

Local lRet := .T.

Help( ,, "Help",, + CRLF + "Entrei no PE CSAPOSX9.", 1, 0)

If Empty(M->QB_DEPSUP)
Help( ,, "Help",, + CRLF + "Campo Depto. Super esta em branco.", 1, 0)

lRet := .F.
EndIf

Help( ,, "Help",, + CRLF + "O retorno do Ponto de Entrada é: " + cValToChar(lRet), 1, 0)

Return lRet