Á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.

02.

...

Exemplos

 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

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

...

User Function AF251GRV()

...

 contábil

Parâmetros:
PARAMIXB[1] //Linha posicionada do

...

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

If nLinha > 0
     aCols[nLinha][7] := "001-005ALT"
EndIf

Conout("Ponto de Entrada AF251GRV Executado")

Return Nil

O 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

...

aCols

...

Retorno

...

aCols

...

Programa Fonte

...

 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