Histórico da Página

Descrição

O ponto de entrada AF251GRV possibilita efetuar alterações após a gravação de Aquisição por Transferência (ATFA251).

Observações

Este ponto de entrada é executado antes da efetivação do lançamento contábil.

Exemplos

No Ponto de Entrada AF251GRV são enviados dois parâmetros, o primeiro contém as informações do aCols(linha dos ativos) posicionado na transação, o segundo contém a informação da ação executada que pode ser:
0 - Transfere
1 - Detalhar
2 - Agrupar
3 - Canc. Transf

Obs: A variável aCols possui o escopo Private e é declarada na função principal (ATFA251), assim, pode ser utilizada no Ponto de Entrada AF251GRV.

Exemplo de utilização:

#INCLUDE "PROTHEUS.CH"

/*
Ponto de entrada antes da efetivação do lançamento contábil

Parâmetros:
PARAMIXB[1] //Linha posicionada do aCols
PARAMIXB[2] //Opcao executada: "0" = Transfere / "1" = Detalhar / "2" = Agrupar / "3" = Canc. Transf.

*/

User Function AF251GRV()

Local aColsAux := PARAMIXB[1]
Local cOpcao    := PARAMIXB[2]
Local nLinha     := aScan(aCols, {|x| x[1] == aColsAux[1]})

//Opcao executada
If cOpcao == "0"
     Conout("Executada opcao Transfere")
ElseIf cOpcao == "1"
     Conout("Executada opcao Detalhar")
ElseIf cOpcao == "2"
     Conout("Executada opcao Agrupar")
ElseIf cOpcao == "3"
     Conout("Executada opcao Cancelar Transferencia")
EndIf

Conout("Linha posicionada no aCols: " + CValToChar(nLinha)) //Linha posicionada
Conout("Ponto de Entrada AF251GRV Executado")

Return Nil

Idioma

Português(Brasil)

Versões

Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

PARAMIXB[1] //Linha posicionada do aCols

PARAMIXB[2] //Opcao executada

Retorno

Nil

Programa Fonte

ATFA251.PRW