Histórico da Página

Descrição

Ponto de Entrada para validação de dados no momento das Retenções .

Observações

Está presente na função F087PRO()

Exemplos

#INCLUDE "Protheus.ch"

User Function F087PRO()

Local aCols := aClone(Paramixb[1]) 

Local aHead := aClone(Paramixb[2])

Local aColsRet := aClone(Paramixb[3])

Local aHeadRet := aClone(Paramixb[4])

Local nX := 00 

For nX := 1 to len(aCols)

aCols[nX][2]:= 150

aCols[nX][5] := 125.25

Next nX

Alert('Executou PE!')

Return aClone(aCols)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus 10 e 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

(Paramixb[1]) (Paramixb[2]) (Paramixb[3]) (Paramixb[4])

Retorno

Return aClone(aCols)

Eventos de chamada do Ponto de Entrada

IF If lPro

aRetCols    aRetCols := aClone(ExecBlock('F087PRO',.F.,.F.,{aCols,aHeader,aColsRet,aHeaderRet}))

If        If ValType(aRetCols) == "A" .And. Len(aRetCols) > 0 aCols

             aColsRet := aClone(aRetCols) EndIf

        EndIf

EndIf

Variáveis

Local lPro := ExistBlock("F087PRO")
Local aRetCols := {}

Programa Fonte

FINA087A.PRW