Histórico da Página

Descrição

Ponto de entrada para validação/manipulação de dados no momento das retenções na rotina de Recebimentos Diversos.

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 cRetenc := Paramixb[5]
Local nX := 0 0

Alert("Tipo de retenção: " + cRetenc)

For nX := 1 to lenTo 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 - Array contendo a seguinte estrutura:

(Paramixb[1] ) (- aCols dos tipos de recebimentos diversos (referente à primeira tela)

Paramixb[2] ) (- aHeader da primeira tela

Paramixb[3] - aColsRet contendo as retenções conforme os impostos selecionados na primeira tela

) (Paramixb[4] - aHeaderRet da tela de impostos

Paramixb[5] - cRet variável contendo o tipo de retenção que será realizado (ex.: IB, Ganancias e etc.)

RetornoReturn aClone(aCols)

Array contendo as retenções, com a mesma estrutura do array aColsRet

Eventos de chamada do Ponto de Entrada

If lPro

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

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

             aColsRet := aClone(aRetCols)

        EndIf

EndIf

Variáveis

Variáveis

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

Programa Fonte

FINA087A.PRW