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) manipula a aCols antes da contabilização.

Observações

Este ponto de entrada , permite alteração da aCols é 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 para manipulação do aCols
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 //Linha posicionada do aCols[1]
Local nLinha    cOpcao    := 0nLinha PARAMIXB[2]
Local nLinha     := aScan(aCols, {|x| x[1] == aColsAux[1]})

//Opcao executada
If nLinha > 0
     aCols[nLinha][7] := "001-005ALT"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 NilO ponto de entrada é utilizado para gravação, na função Af251Grava(), que é chamada pela função AF251Baix(), estartada pelo menu através das opções Transfere, Detalhar e Agrupar. Para o cancelamento é utilizado pela função Af251Canc(). 

A variável cOpcao, das funções agrupar e detalhar, esta fixa no menu, pois foi inserida para realizarmos tratamentos diferenciados para cada opção selecionada.

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

aColsNil

Programa Fonte

ATFA251.PRW