Histórico da Página

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

Ponto de entrada utilizado por todos os países.

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

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

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

nPanel (referente ao número do parâmetro atual)

lValida(logico)
.T. a validação foi aceita

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

FINA087A.PRW