Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.



ÍNDICE

  1. Visão Geral;
  2. Parâmetros;
  3. Retorno;
  4. 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).

Informações

...

titleObservação

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

...

02. PARÂMETROS

Parâmetro

Tipo

Descrição

Obrigatório

PARAMIXB[1]ArrayLinha posicionada do aColsSim
PARAMIXB[2]CaractereNumero da opção executadaSim
Informações
titleObservaçã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

Exemplo de utilização:

Este ponto de entrada não possuí retorno.

04. EXEMPLO

...

Bloco de código
languagejs
titleAF251GRV
linenumberstrue
#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()

...



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("

...

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

...

Ponto de Entrada AF251GRV Executado")

Return Nil