Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (andrea.santiago), última alteração por Usuário desconhecido (douglas.souza) em 01 set, 2021

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:BackOffice
Módulo:Financeiro
Idioma:Português(Brasil)
Função:

FINA087A - Recebimentos Diversos


02. DESCRIÇÃO

O ponto de entrada A087TUDOK permite a validação do painel de recebimentos diversos.

Ponto de entrada utilizado por todos os países.

Execução do ponto de entrada: ExecBlock('A087TUDOK',.F.,.F.,nPanel).

03. PARÂMETROS

Nome

Tipo

Descrição

nPanel

Numérico

Refere-se ao numero do parâmetro atual.

04. RETORNO

Nome

Tipo

Descrição

lValida

Lógico

.T. a validação foi aceita

.F. a validação não foi aceita

05. EXEMPLO DE UTILIZAÇÃO

A087TUDOK
#INCLUDE "Totvs.ch"

User Function A087TUDOK()

Local lValida := .T.
Local nX := 1


//Para o cliente 001 com loja 01 o tipo valor deve ser sempre em dinheiro.
If Alltrim(cCliente) == "001" .And. Alltrim(cLoja) == "01"

	For nX := 1 to Len(aCols)
		
		If Alltrim(aCols[nX][1]) <> "EF"
			lValida := .F.
		Endif

	Next

Endif

If !lValida

	Alert("Para o Cliente 001 com Loja 001 o Tipo Valor deve ser Em Dinheiro")

Endif

Return lValida