AF251GRV PE - Possibilita alterações após a gravação de Aquisição por Transferência

ÍNDICE

Visão Geral;
Parâmetros;
Retorno;
Exemplo de utilização;

01. VISÃO GERAL

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

Observação

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

02. PARÂMETROS

Parâmetro	Tipo	Descrição	Obrigatório
PARAMIXB[1]	Array	Linha posicionada do aCols	Sim
PARAMIXB[2]	Caractere	Numero da opção executada	Sim

Observação

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

03. RETORNO

Este ponto de entrada não possuí retorno.

04. EXEMPLO

AF251GRV

#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

Árvore de páginas