Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GPE210LOG - Adiciona Dados no Array aLog


Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:ADS/ADSServer
Idiomas:Português (Brasil)


Descrição:
Permite a manipulação das informações do Array aLog, bem como adicionar registros.
Eventos

Este Ponto de Entrada é chamado dentro do for da leitura que é feita linha a linha dos registros do arquivo que está sendo importado, após o funcionário ter sido adicionado no log de funcionários importados.


Programa Fonte
GPEA210.PRX
Sintaxe

GPE210LOG - Adiciona Dados no Array aLog ( [ aLog ] ) --> aLog

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

aLog

Array of Record

Array contendo as informações do aLog, com com dois elementos. Elementos contidos no array: [1]- Dados do funcionário: Linha que esta sendo processada, Matricula, Verba, horas, valor, Semana, Parcela, Data Pagto[2]- Erros encontrados










Retorno
aLog
    (array_of_record)
  • Retornar o array aLog acrescentando as informações desejadas, como exemplo retornar um 3 elemento com o total.
Exemplos
No exemplo abaixo, a cada registro adicionado no log, soma o total do valor na variável nTotalHrs. Quando chegar no último registro, adiciona um terceiro elemento no array aLog com este total.#INCLUDE 'RWMAKE.CH'USER FUNCTION GPE210LOG()Local nFilial  := cCodFil Local cMat    := cMatric Local cNome    := cNome Local nVerba   := cVerba Local cDescVerba:=fDesc("SRV",nVerba,"RV_DESC",20) Local nHoras  := Val(cHoras) Local nValor    := Val(cValor) Local nTotalHrs := 0 Local cLog  := ""  If nValor > 0        nTotalhrs += nValor EndIf If nRegis == nLinhas                   cLog := oEmToAnsi("TOTAL")         Aadd(aTitle,cLog)         Aadd(aLog,{})         Aadd(aLog[3],Transform(nTotalHrs,"@E 999,999,999.99" )) EndIfReturn (aLog)
Variáveis



Nome

Tipo

Escopo

Pode Alterar

descrição

nLinhas

Numérico

Global

Não

Total de linhas, registros do arquivo que esta sendo importado.

nRegis

Numérico

Global

Não

Numero do Registro que sendo processado.

cCodFil

Caracter

Global

Não

Codigo da Filial

cMatric

Caracter

Privado

Não

Numero da Matricula

cNome

Caracter

Privado

Não

Nome do Funcionario

cVerba

Caracter

Privado

Não

Codigo da Verba

cHoras

Caracter

Global

Não

Quantidade de Horas

cValor

Caracter

Global

Não

Valor

cSemana

Caracter

Global

Não

Semana

cParcela

Caracter

Global

Não

Numero da parcela

cData

Caracter

Global

Não

Data de Referência (RGB), Data de Vencimento (SRK)