O ponto de entrada AF251GRV possibilita efetuar alterações após a gravação de Aquisição por Transferência (ATFA251).
Este ponto de entrada é executado antes da efetivação do lançamento contábil. |
Parâmetro | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| PARAMIXB[1] | Array | Linha posicionada do aCols | Sim |
| PARAMIXB[2] | Caractere | Numero da opção executada | Sim |
A variável aCols possui o escopo Private e é declarada na função principal (ATFA251), assim, pode ser utilizada no Ponto de Entrada AF251GRV. |
Este ponto de entrada não possuí retorno.
Execblock("AF251GRV",.F.,.F.,{aCols[nCnt], cOpcaoGrv}) |
#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 |