Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:Customização para validação de CPF/CNPJ pós digitação.
Localização:Venda Assistida (LOJA701D)
Eventos:Este ponto de entrada permite validar as informações de CPF/CNPJ pós digitação ( em substituição a validação padrão do sistema ) 
Programa Fonte:LOJXFUND
Função:LJVLDCPF
Parâmetros
NomeTipoDescrição
PARAMIXB[1]caracterCPF/CNPJ
PARAMIXB[2]caracterNome do Cliente
PARAMIXB[3]caracterEndereço do Cliente
PARAMIXB[4]NuméricoValor da venda
Retorno:
NomeTipoDescriçãoObrigatório
lRetlógico

Retorna se o conteúdo digitado pelo usuário é valido.
Se retorno .T., o Protheus prossegue com a venda.
Caso .F., retorna para tela de CPF/CNPJ para que seja informado um valor válido

segundo a regra do ponto de entrada. 

Sim

 

Exemplo #1

 

#Include 'Protheus.ch'

User Function LJVLDCPF()

Local lRet := .F. //Retorno da validacao
Local cCpfCgc := PARAMIXB[1] //CPF/CNPJ
Local cNome := PARAMIXB[2] //Nome cliente
Local cEnd := PARAMIXB[3] //Endereço Cliente
Local nValor := PARAMIXB[4] //Valor venda

lRet := !Empty(cCpfCgc)


Return lRet

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------