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)
...
Observações
.
Informações | ||
---|---|---|
| ||
Este ponto de entrada é executado |
...
antes da efetivação do lançamento contábil. |
...
Exemplos
...
#include "ATFA251.CH"
#include "PROTHEUS.CH"
/*
PE antes da contabilização da aquisição por transferência.
*/
User Function AF251GRV()
Local aCols := paramixb[2] //aCols (aCols da pasta Dados do Bem)
Alert("Ponto de Entrada AF251GRV Executado")
aCols[1][1] := "Teste Manipulação aCols"
Return {aCols}
...
Idioma
...
Português(Brasil)
...
Versões
...
Microsiga_Protheus12
...
Sistemas Operacionais Suportados
...
Todos
...
Compatível com as Bases de Dados
...
Todas
...
Parâmetros
...
aHeader, aCols, aHeaderComp, aColsComp
...
Retorno
...
aHeader, aCols, aHeaderComp, aColsComp
...
Eventos de chamada do Ponto de Entrada
...
If ValType (aEdtAcols) =="A" .And. Len (aEdtAcols)==4
aHeader := aClone(aEdtAcols1 )
aCols := aClone(aEdtAcols2 )
aHeaderComp := aClone(aEdtAcols3 )
aColsComp := aClone(aEdtAcols4 )
EndIf
EndIf
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 |
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 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 |
...
Programa Fonte
...