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" |
...
/* |
...
PE antes da contabilização da aquisição por transferência.
*/
User Function AF251GRV()
Local aColsAux := PARAMIXB //Linha posicionada do aCols
Alert("Ponto de Entrada AF251GRV Executado")
aCols[1][7] := "001-005ALT"
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
...
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 |