...
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. |
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. |
...
Exemplos
Este ponto de entrada não possuí retorno.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
Execblock("AF251GRV",.F.,.F.,{aCols[nCnt], cOpcaoGrv}) |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE |
...
"PROTHEUS.CH" |
...
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 |
