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. |
02. PARÂMETROS
Parâmetro | Tipo | Descrição | Obrigatório |
---|---|---|---|
PARAMIXB |
Exemplos
Local aHeader := paramixb
[1] | Array |
Linha posicionada do aCols | Sim |
PARAMIXB[2] |
Local aHeaderComp := paramixb[3]
Local aColsComp := paramixb[4]
Alert("Ponto de Entrada Executado")
aColsComp[1][1] := "Teste Manipulação aCols"
aColsComp[1][2] := aCols[1][2]
aColsComp[1][3] := aCols[1][3]
aColsComp[1][4] := aCols[1][4]
aColsComp[1][5] := aCols[1][5]
aColsComp[1][6] := aCols[1][6]
aColsComp[1][7] := aCols[1][7]
aColsComp[1][8] := aCols[1][8]
aColsComp[1][9] := aCols[1][9]
Return {aHeader , aCols , aHeaderComp , aColsComp }
//aColsComp (aCols da pasta Complementos)
//aCols (aCols da pasta Dados do Bem)
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
Programa Fonte
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 |