Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
GPE210LOG - Adiciona Dados no Array aLog
GPE210LOG - Adiciona Dados no Array aLog

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
aLogArray of RecordArray 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
NomeTipoEscopoPode Alterardescrição
nLinhasNuméricoGlobalNãoTotal de linhas, registros do arquivo que esta sendo importado.
nRegisNuméricoGlobalNãoNumero do Registro que sendo processado.
cCodFilCaracterGlobalNãoCodigo da Filial
cMatricCaracterPrivadoNãoNumero da Matricula
cNomeCaracterPrivadoNãoNome do Funcionario
cVerbaCaracterPrivadoNãoCodigo da Verba
cHorasCaracterGlobalNãoQuantidade de Horas
cValorCaracterGlobalNãoValor
cSemanaCaracterGlobalNãoSemana
cParcelaCaracterGlobalNãoNumero da parcela
cDataCaracterGlobalNãoData Pagamento