Perguntas Relatório de Acessos e Menu por usuário

Ola pessoal,

Estou precisando de um relatório que traz os acessos e menos que cada usurário possui no sistema. Por acaso alguém tem um relatório desse ai para compartilhar? Se possível impressão em excell ou PDF.

Desde já agradeço.

Att,
Paulo Roberto Oliveira
Tendtudo - CasaShow

Bom dia Paulo,
Eu postei esse relatório que eu fiz na área de downloads.
Segue o link: Relatório de acessos Users

Kanaãm,

Primeiramente muito obrigado! Esse tipo de relatório que estou precisando.
Mas ele apresentou erro quando fui rodar ele.

Segue no anexo o erro.





Att,
Paulo Roberto Oliveira
TendTudo - CasaShow

Vish, eu estou fazendo umas melhorias nele aqui, mas esse que postei estava funcionando corretamente.
Tem como você debugar ou rodar ele direto do menu para vem em qual linha está ocorrendo o erro?

Mano debuguei aqui e deu erro na linha 199

quando foi verificar se tem acesso ao modulo
If SubStr(aUsers[3][j],3,1) != "X"

Valor da variável
j = 74


For j:=1 To 84
//Verifica se o usuário tem acesso a esse módulo.
If SubStr(aUsers[3][j],3,1) != "X"
//preenche work de módulos
WKMODULOS->(dbAppend())
WKMODULOS->WKMARCA := cMarca
WKMODULOS->CODUSER := aUsers[1][1] //Código do user
WKMODULOS->CODMODULO := SubStr(aUsers[3][j],1,2) //Código do módulo
WKMODULOS->MODULO := retModulo(Val(WKMODULOS->CODMODULO)) //função que retorna a descrição do módulo de acordo com o código passado.
//preenche work de acesso passando o nome do xnu
preencMenu(SubStr(aUsers[3][j],4,Len(aUsers[3][j])-3))
EndIf
Next j

Segue a tela do usuário que travou o acesso dos módulos