Histórico da Página
Í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)
...
.
| Informações | ||
|---|---|---|
| ||
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] | Array | Linha posicionada do aCols | Sim |
| PARAMIXB[2] | Caractere | Numero da opção executada | Sim |
| Informações | ||
|---|---|---|
| ||
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 | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas