Perguntas Relatórios

Bom dia!

Como proceder para gerar um log ou relatório de consulta dos usuários que acessaram o sistema Protheus 11 com data, horário e usuário.

Atenciosamente.
Fico aguardando!

Boa tarde Priscila.

Dê uma olhada nese Código Fonte, e ver se atende as suas Necesidades.

Att
Luis Carlos Sombra

=========================================================================

#Include "rwmake.ch"
/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ MapaUsu º Autor ³ T.I º Data ³ 31/05/10 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Mapeia Acessos dos Usuarios do Sistema º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP6 IDE º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
/*/

User Function MAPAUSU

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Declaracao de Variaveis ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Local cDesc1 := "Este programa tem como objetivo imprimir relatorio "
Local cDesc2 := "de acordo com os parametros informados pelo usuario."
Local cDesc3 := ""
Local cPict := ""
Local imprime := .T.
Local aOrd := {}
Private titulo := "Relatorio de Acessos dos Usuarios"
Private nLin := 80
Private Cabec1 := ""
Private Cabec2 := ""
Private tamanho := "M"
Private nomeprog := "MapaUsu"
Private nTipo := 15
Private aReturn := { "Zebrado", 1, "Administracao", 1, 2, 1, "", 1}
//Private cPerg := "MAPAUS"
Private cPerg := Space(10)
Private m_pag := 01
Private wnrel := "MapaUsu"
Private cString := ""

cPerg := "MAPAUS"

AjustSX1()

Pergunte(cPerg,.F.)

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Monta a interface padrao com o usuario... ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
wnrel := SetPrint(cString,NomeProg,cPerg,@titulo,cDesc1,cDesc2,cDesc3,.F.,aOrd,.F.,Tamanho,,.F.)

If nLastKey == 27
Return
Endif

SetDefault(aReturn,cString)

If nLastKey == 27
Return
Endif

nTipo := If(aReturn[4]==1,15,18)

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Processamento. RPTSTATUS monta janela com a regua de processamento. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
RptStatus({|| RunReport(Cabec1,Cabec2,Titulo,nLin) },Titulo)
Return

/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºFun‡„o ³RUNREPORT º Autor ³ AP6 IDE º Data ³ 16/02/04 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescri‡„o ³ Funcao auxiliar chamada pela RPTSTATUS. A funcao RPTSTATUS º±±
±±º ³ monta a janela com a regua de processamento. º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Programa principal º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
/*/
Static Function RunReport(Cabec1,Cabec2,Titulo,nLin)

Local nOrdem
Local aIdiomas := {"Portugues","Ingles","Espanhol"}
Local aTipoImp := {"Em Disco","Via Spool","Direto na Porta","E-Mail"}
Local aFormImp := {"Retrado","Paisagem"}
Local aAmbImp := {"Servidor","Cliente"}
Local aColAcess:= {000,040,080}
Local aColMenus:= {000,044,088}
Local aAllUsers:= AllUsers()
Local aUser := {}
Local i := 0
Local k := 0
Local j := 0
Local aMenu

aModulos := fModulos()
aAcessos := fAcessos()

For i:=1 to Len(aAllUsers)
If aAllUsers[01][01]>=mv_par01 .and. aAllUsers[01][01]<=mv_par02 .and.;
aAllUsers[01][02]>=mv_par03 .and. aAllUsers[01][02]<=mv_par04
aAdd(aUser,aAllUsers)
Endif
Next

If mv_par05==1 //ID
aSort(aUser,,,{ |aVar1,aVar2| aVar1[1][1] < aVar2[1][1]})
Else //Usuario
aSort(aUser,,,{ |aVar1,aVar2| aVar1[1][2] < aVar2[1][2]})
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ SETREGUA -> Indica quantos registros serao processados para a regua ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SetRegua(Len(aUser))

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Processa Usuarios ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
For i:=1 to Len(aUser)
IncRegua()

Cabec(Titulo,Cabec1,Cabec2,NomeProg,Tamanho,nTipo)
nLin := 5

@ nLin,000 pSay "I N F O R M A C O E S D O U S U A R I O"
nLin+=1
@ nLin,000 pSay "User ID.........................: "+aUser[01][01] //ID
nLin+=1
@ nLin,000 pSay "Usuario.........................: "+aUser[01][02] //Usuario
nLin+=1
@ nLin,000 pSay "Nome Completo...................: "+aUser[01][04] //Nome Completo
nLin+=1
@ nLin,000 pSay "Validade........................: "+DTOC(aUser[01][06]) //Validade
nLin+=1
@ nLin,000 pSay "Acessos para Expirar............: "+AllTrim(Str(aUser[01][07])) //Expira em n acessos
nLin+=1
@ nLin,000 pSay "Autorizado a Alterar Senha......: "+If(aUser[01][08],"Sim","Nao") //Autorizado a Alterar Senha
nLin+=1
@ nLin,000 pSay "Alterar Senha no Proximo LogOn..: "+If(aUser[01][09],"Sim","Nao") //Alterar Senha no Proximo LogOn
nLin+=1

PswOrder(1)
PswSeek(aUser[1][11],.t.)
aSuperior := PswRet(NIL)
@ nLin,000 pSay "Superior........................: "+If(!Empty(aSuperior),aSuperior[01][02],"") //Superior
nLin+=1
@ nLin,000 pSay "Departamento....................: "+aUser[01][12] //Departamento
nLin+=1
@ nLin,000 pSay "Cargo...........................: "+aUser[01][13] //Cargo
nLin+=1
@ nLin,000 pSay "E-Mail..........................: "+aUser[01][14] //E-Mail
nLin+=1
@ nLin,000 pSay "Acessos Simultaneos.............: "+AllTrim(Str(aUser[01][15])) //Acessos Simultaneos
nLin+=1
@ nLin,000 pSay "Ultima Alteracao................: "+DTOC(aUser[01][16]) //Data da Ultima Alteracao
nLin+=1
@ nLin,000 pSay "Usuario Bloqueado...............: "+If(aUser[01][17],"Sim","Nao") //Usuario Bloqueado
nLin+=1
@ nLin,000 pSay "Digitos p/o Ano.................: "+AllTrim(STR(aUser[01][18])) //Numero de Digitos Para o Ano
nLin+=1
@ nLin,000 pSay "Idioma..........................: "+aIdiomas[aUser[02][02]] //Idioma
nLin+=1
@ nLin,000 pSay "Diretorio do Relatorio..........: "+aUser[02][03] //Diretorio de Relatorio
nLin+=1
@ nLin,000 pSay "Tipo de Impressao...............: "+aTipoImp[aUser[02][08]] // Tipo de Impressao
nLin+=1
@ nLin,000 pSay "Formato de Impressao............: "+aFormImp[aUser[02][09]] // Formato
nLin+=1
@ nLin,000 pSay "Ambiente de Impressao...........: "+aAmbImp[aUser[02][10]] // Ambiente
nLin+=2

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Imprime Grupos ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
@ nLin,000 pSay Replic("-",132)
nLin+=1
@nLin,000 pSay "G R U P O S"
nLin+=2
For k:=1 to Len(aUser[01][10])
fCabec(@nLin,55)

PswOrder(1)
PswSeek(aUser[01][10][k],.f.)
aGroup := PswRet(NIL)

@ nLin,005 pSay aGroup[01][2] //Grupos
nLin+=1
Next k
nLin+=1

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Imprime Horarios ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If mv_par06==1
fCabec(@nLin,50)

@ nLin,000 pSay Replic("-",132)
nLin+=1
@nLin,000 pSay "H O R A R I O S"
nLin+=2
For k:=1 to Len(aUser[02][01])
fCabec(@nLin,55)

@ nLin,005 pSay aUser[2][01][k] //Horarios
nLin+=1
Next k
nLin+=1
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Imprime Empresas / Filiais ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If mv_par07==1
fCabec(@nLin,50)

@ nLin,000 pSay Replic("-",132)
nLin+=1
@nLin,000 pSay "E M P R E S A S / F I L I A I S"
nLin+=2
For k:=1 to Len(aUser[02][06])
fCabec(@nLin,55)

dbSelectArea("SM0")
dbSetOrder(1)
dbSeek(aUser[02][06][k])
@ nLin,005 pSay Substr(aUser[02][06][k],1,2)+"/"+Substr(aUser[02][06][k],3,2)+If(Found()," "+M0_NOME+" - "+M0_NOMECOM,If(Substr(aUser[02][06][k],1,2)=="@@"," - Todos","")) //Empresa / Filial
nLin+=1

Next k
nLin+=1
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Imprime Modulos ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If mv_par08==1
fCabec(@nLin,50)

@ nLin,000 pSay Replic("-",132)
nLin+=1
@ nLin,000 pSay "M O D U L O S"
nLin+=2
// 1 2 3 4 5 6 7 8
// 123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
@ nLin,000 pSay "MODULO NIVEL ARQ.MENU"
nLin+=1
@ nLin,000 pSay "

---

---

---

"
nLin+=1

For k:=1 to Len(aModulos)
If Substr(aUser[03][k],3,1) <> "X"
If nLin > 55
fCabec(@nLin,55)
@ nLin,000 pSay "MODULO NIVEL ARQ.MENU"
nLin+=1
@ nLin,000 pSay "

---

---

---

"
nLin+=1
Endif

@ nLin,000 pSay aModulos[k][02]+" - "+aModulos[k][3]
@ nLin,048 pSay Substr(aUser[03][k],3,1)
@ nLin,052 pSay Substr(aUser[03][k],4)

nLin+=1
Endif
Next k
nLin+=1
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Imprime Acessos ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If mv_par09==1
fCabec(@nLin,50)

@ nLin,000 pSay Replic("-",132)
nLin+=1
@ nLin,000 pSay "A C E S S O S"
nLin+=2

nCol := 1
For k:=1 to 103
If Substr(aUser[02][5],k,1) == "S"
fCabec(@nLin,55)
@ nLin,aColAcess[nCol] pSay aAcessos[k]
If nCol==3
nCol:=1
nLin+=1
Else
nCol+=1
Endif
Endif
Next k
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Imprime Menus ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If mv_par10==1
fCabec(@nLin,50)

@ nLin,000 pSay Replic("-",132)
nLin+=1
@ nLin,000 pSay "M E N U S"
nLin+=2
// 1 2 3 4 5 6 7 8
// 123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
@ nLin,000 pSay "TITULO PROGRAMA ACESSOS TITULO PROGRAMA ACESSOS TITULO PROGRAMA ACESSOS"
nLin+=1
@ nLin,000 pSay "

---

---

---

---

---

---

---

---

---

"
nLin+=1

For k:=1 to Len(aModulos)
If Substr(aUser[03][k],3,1) <> "X"
aMenu := fGetMnu(Substr(aUser[03][k],4),aUser[01][02])

nLin +=1
@ nLin,000 pSay aModulos[k][02]+" - "+AllTrim(aModulos[k][3])+" --> "+Substr(aUser[03][k],4)
nLin+=2

nCol := 1
nimp := "00"
For j:=1 to Len(aMenu)
If nLin > 55
fCabec(@nLin,55)
@ nLin,000 pSay "TITULO PROGRAMA ACESSOS TITULO PROGRAMA ACESSOS TITULO PROGRAMA ACESSOS"
nLin+=1
@ nLin,000 pSay "

---

---

---

---

---

---

---

---

---

"
nLin+=1
Endif
If !(aMenu[j][4] $ "T")
Loop
Endif

IF nimp <> aMenu[j][01]
IF aMenu[j][01] <> "10"
nLin += 2
ENDIF
If nLin > 55
fCabec(@nLin,55)
@ nLin,000 pSay "TITULO PROGRAMA ACESSOS TITULO PROGRAMA ACESSOS TITULO PROGRAMA ACESSOS"
nLin+=1
@ nLin,000 pSay "

---

---

---

---

---

---

---

---

---

"
nLin+=1
Endif
do case
case aMenu[j][01] = "10"
@ nLin, 020 PSAY "........................................ Atualizações ........................................"
case aMenu[j][01] = "20"
@ nLin, 020 PSAY "........................................ Consultas ........................................"
case aMenu[j][01] = "30"
@ nLin, 020 PSAY "........................................ Relatorios ........................................"
case aMenu[j][01] = "40"
@ nLin, 020 PSAY "........................................ Miscelaneas ........................................"
endcase
nLin ++
nCol := 1
nimp := aMenu[j][01]
endif

do case
case nCol = 1
nccc := 0
case nCol = 2
nccc := 44
case nCol = 3
nccc := 88
endcase

@ nLin,nccc+000 pSay aMenu[j][02]
@ nLin,nccc+019 pSay aMenu[j][03]
@ nLin,nccc+030 pSay aMenu[j][06]

// @ nLin,aColMenus[nCol]+000 pSay aMenu[j][02]
// @ nLin,aColMenus[nCol]+019 pSay aMenu[j][03]
// @ nLin,aColMenus[nCol]+030 pSay aMenu[j][06]
If nCol==3
nCol:=1
nLin+=1
Else
nCol+=1
Endif
Next
nLin+=1
Endif
Next k
nLin+=1
Endif

Roda(,,"M")

Next i

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Finaliza a execucao do relatorio... ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SET DEVICE TO SCREEN

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Se impressao em disco, chama o gerenciador de impressao... ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If aReturn[5]==1
dbCommitAll()
SET PRINTER TO
OurSpool(wnrel)
Endif

MS_FLUSH()

Return

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ fModulos ºAutor ³Carlos G. Berganton º Data ³ 16/02/04 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Retorna Array com Codigos e Nomes dos Modulos º±±
±±º ³ º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function fModulos()

Local aReturn

aReturn := {{"01","SIGAATF ","Ativo Fixo "},;
{"02","SIGACOM ","Compras "},;
{"03","SIGACON ","Contabilidade "},;
{"04","SIGAEST ","Estoque/Custos "},;
{"05","SIGAFAT ","Faturamento "},;
{"06","SIGAFIN ","Financeiro "},;
{"07","SIGAGPE ","Gestao de Pessoal "},;
{"08","SIGAFAS ","Faturamento Servico "},;
{"09","SIGAFIS ","Livros Fiscais "},;
{"10","SIGAPCP ","Planej.Contr.Producao "},;
{"11","SIGAVEI ","Veiculos "},;
{"12","SIGALOJA","Controle de Lojas "},;
{"13","SIGATMK ","Call Center "},;
{"14","SIGAOFI ","Oficina "},;
{"15","SIGARPM ","Gerador de Relatorios Beta1 "},;
{"16","SIGAPON ","Ponto Eletronico "},;
{"17","SIGAEIC ","Easy Import Control "},;
{"18","SIGAGRH ","Gestao de R.Humanos "},;
{"19","SIGAMNT ","Manutencao de Ativos "},;
{"20","SIGARSP ","Recrutamento e Selecao Pessoal "},;
{"21","SIGAQIE ","Inspecao de Entrada "},;
{"22","SIGAQMT ","Metrologia "},;
{"23","SIGAFRT ","Front Loja "},;
{"24","SIGAQDO ","Controle de Documentos "},;
{"25","SIGAQIP ","Inspecao de Projetos "},;
{"26","SIGATRM ","Treinamento "},;
{"27","SIGAEIF ","Importacao - Financeiro "},;
{"28","SIGATEC ","Field Service "},;
{"29","SIGAEEC ","Easy Export Control "},;
{"30","SIGAEFF ","Easy Financing "},;
{"31","SIGAECO ","Easy Accounting "},;
{"32","SIGAAFV ","Administracao de Forca de Vendas "},;
{"33","SIGAPLS ","Plano de Saude "},;
{"34","SIGACTB ","Contabilidade Gerencial "},;
{"35","SIGAMDT ","Medicina e Seguranca no Trabalho "},;
{"36","SIGAQNC ","Controle de Nao-Conformidades "},;
{"37","SIGAQAD ","Controle de Auditoria "},;
{"38","SIGAQCP ","Controle Estatistico de Processos "},;
{"39","SIGAOMS ","Gestao de Distribuicao "},;
{"40","SIGACSA ","Cargos e Salarios "},;
{"41","SIGAPEC ","Auto Pecas "},;
{"42","SIGAWMS ","Gestao de Armazenagem "},;
{"43","SIGATMS ","Gestao de Transporte "},;
{"44","SIGAPMS ","Gestao de Projetos "},;
{"45","SIGACDA ","Controle de Direitos Autorais "},;
{"46","SIGAACD ","Automacao Coleta de Dados "},;
{"47","SIGAPPAP","PPAP "},;
{"48","SIGAREP ","Replica "},;
{"49","SIGAGAC ","Gerenciamento Academico "},;
{"50","SIGAEDC ","Easy DrawBack Control "},;
{"97","SIGAESP ","Especificos "},;
{"98","SIGAESP1","Especificos I "}}


Return(aReturn)

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ fAcessos ºAutor ³Carlos G. Berganton º Data ³ 16/02/04 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Retorna os Acessos dos Sistema º±±
±±º ³ º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function fAcessos()

Local aReturn

aReturn := {"Excluir Produtos ",;
"Alterar Produtos ",;
"Excluir Cadastros ",;
"Alterar Solicit. Compras ",;
"Excluir Solicit. Compras ",;
"Alterar Pedidos Compras ",;
"Excluir Pedidos Compras ",;
"Analisar Cotacoes ",;
"Relat Ficha Cadastral ",;
"Relat Bancos ",;
"Relacao Solicit. Compras ",;
"Relacao de Pedidos de Compras",;
"Alterar Estruturas ",;
"Excluir Estruturas ",;
"Alterar TES ",;
"Excluir TES ",;
"Inventario ",;
"Fechamento Mensal ",;
"Proc Diferenca de Inventario ",;
"Alterar Pedidos de Venda ",;
"Excluir Pedidos de Venda ",;
"Alterar Helps ",;
"Substituicao de Titulos ",;
"Inclusao de Dados Via F3 ",;
"Rotina de Atendimento ",;
"Proc. Troco ",;
"Proc. Sangria ",;
"Bordero Cheques Pre-Datado ",;
"Rotina de Pagamento ",;
"Rotina de Recebimento ",;
"Troca de Mercadorias ",;
"Acesso Tabela de Precos ",;
"Abortar c/ Alt-C/Ctrl-Brk ",;
"Retorno Temporario p/ o DOS ",;
"Acesso Condicao Negociada ",;
"Alterar DataBase do Sistema ",;
"Alterar Empenhos de OP's ",;
"Pode Utilizar Debug ",;
"Form. Precos Todos os Niveis ",;
"Configura Venda Rapida ",;
"Abrir/Fechar Caixa ",;
"Excluir Nota/Orc LOJA ",;
"Alterar Bem Ativo Fixo ",;
"Excluir Bem Ativo Fixo ",;
"Incluir Bem Via Copia ",;
"Tx Juros Condicao Negociada ",;
"Liberacao Venda Forcad TEF ",;
"Cancelamento Venda TEF ",;
"Cadastra Moeda na Abertura ",;
"Altera Num. da NF ",;
"Emitir NF Retroativa ",;
"Excluir Baixa - Receber ",;
"Excluir Baixa - Pagar ",;
"Incluir Tabelas ",;
"Alterar Tabelas ",;
"Excluir Tabelas ",;
"Incluir Contratos ",;
"Alterar Contratos ",;
"Excluir Contratos ",;
"Uso Integracao SIGAEIC ",;
"Inclui Emprestimo ",;
"Alterar Emprestimo ",;
"Excluir Emprestimo ",;
"Incluir Leasing ",;
"Alterar Leasing ",;
"Excluir Leasing ",;
"Incluir Imp. Nao Financ. ",;
"Alterar Imp. Nao Financ. ",;
"Excluir Imp. Nao Financ. ",;
"Incluir Imp. Financ. ",;
"Alterar Imp. Financ. ",;
"Excluir Imp. Financ. ",;
"Incluir Imp. Fin.Export ",;
"Alterar Imp. Fin.Export ",;
"Excluir Imp. Fin.Export ",;
"Incluir Contrato ",;
"Alterar Contrato ",;
"Excluir Contrato ",;
"Lancar Taxa Libor ",;
"Consolidar Empresas ",;
"Incluir Cadastros ",;
"Alterar Cadastros ",;
"Incluir Cotacao Moedas ",;
"Alterar Cotacao Moedas ",;
"Excluir Cotacao Moedas ",;
"Incluir Corretoras ",;
"Alterar Corretoras ",;
"Excluir Corretoras ",;
"Incluir Imp./Exp./Cons ",;
"Alterar Imp./Exp./Cons ",;
"Excluir Imp./Exp./Cons ",;
"Baixar Solicitacoes ",;
"Visualiza Arquivo Limite ",;
"Imprime Doctos. Cancelados ",;
"Reativa Doctos. Cancelados ",;
"Consulta Doctos. Obsoletos ",;
"Imprime Doctos. Obsoletos ",;
"Consulta Doctos. Vencidos ",;
"Imprime Doctos. Vencidos ",;
"Def. Laudo Final Entrega ",;
"Imprime Param Relatorio ",;
"Transfere Pendencias ",;
"Usa Relatorio por E-Mail "}

Return(aReturn)

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ fCabec ºAutor ³Carlos G. Berganton º Data ³ 18/02/04 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Quebra de Pagina e Imprime Cabecalho º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function fCabec(nLin,nLimite)

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Impressao do cabecalho do relatorio. . . ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If nLin > nLimite
Cabec(Titulo,Cabec1,Cabec2,NomeProg,Tamanho,nTipo)
nLin := 6
Endif

Return

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³fGetMnu ºAutor ³Carlos G. Berganton º Data ³ 15/03/04 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Obtem dados de um arquivo .mnu º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function fGetMnu(cArq,cUsuario)

Local aRet := {}
Local aTmp := {}

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Abre o Arquivo ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If File(cArq)
ft_fuse(cArq)
Else
ApMsgAlert("Arquivo "+AllTrim(cArq)+" nao foi encontrado. Usuario "+AllTrim(cUsuario)+".")
Return({})
Endif

While ! ft_feof()

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Le linha do Arquivo ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
cBuff := ft_freadln()
aTmp := {}

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Monta Array com Dados da Linha ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aAdd(aTmp,Substr(cBuff,01,02))
aAdd(aTmp,Substr(cBuff,03,18))
aAdd(aTmp,Substr(cBuff,21,10))
aAdd(aTmp,Substr(cBuff,31,01))
aAdd(aTmp,{})
For i:=32 to 89 Step 3
If Substr(cBuff,i,3)<>"..."
aAdd(aTmp[5],Substr(cBuff,i,3))
Endif
Next
aAdd(aTmp,Substr(cBuff,122,10))

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Abastece Array de Retorno ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aAdd(aRet,aTmp)

ft_fskip()
EndDo

ft_fuse()

Return(aRet)

/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Fun‡…o ³ AjustaSX1³ Autor ³ Carlos G. Berganton ³ Data ³ 15/03/04 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡…o ³ Verifica as perguntas inclu¡ndo-as caso n„o existam ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
/*/
Static Function AjustSX1()

Local aArea := GetArea()
Local aRegs := {}
Local i

cPerg := PADR(cPerg,10)

AAdd(aRegs,{"01","Do ID..............?","mv_ch1","C",06,0,0,"G","mv_par01","" ,"" })
AAdd(aRegs,{"02","Ate ID.............?","mv_ch2","C",06,0,0,"G","mv_par02","" ,"" })
AAdd(aRegs,{"03","Do Usuario.........?","mv_ch3","C",15,0,0,"G","mv_par03","" ,"" })
AAdd(aRegs,{"04","Ate Usuario........?","mv_ch4","C",15,0,0,"G","mv_par04","" ,"" })
AAdd(aRegs,{"05","Ordem..............?","mv_ch5","N",01,0,0,"C","mv_par05","ID" ,"Usuario"})
AAdd(aRegs,{"06","Imprime Horarios...?","mv_ch6","N",01,0,0,"C","mv_par06","Sim","Nao" })
AAdd(aRegs,{"07","Imprime Emp/Filiais?","mv_ch7","N",01,0,0,"C","mv_par07","Sim","Nao" })
AAdd(aRegs,{"08","Imprime Modulos....?","mv_ch8","N",01,0,0,"C","mv_par08","Sim","Nao" })
AAdd(aRegs,{"09","Imprime Acessos....?","mv_ch9","N",01,0,0,"C","mv_par09","Sim","Nao" })
AAdd(aRegs,{"10","Imprime Menus......?","mv_cha","N",01,0,0,"C","mv_par10","Sim","Nao" })

dbSelectArea("SX1")
dbSetOrder(1)
For i:=1 to Len(aRegs)
dbSeek(cPerg+aRegs[1])
If !Found() .or. aRegs[2]<>X1_PERGUNT
RecLock("SX1",!Found())
SX1->X1_GRUPO := cPerg
SX1->X1_ORDEM := aRegs[01]
SX1->X1_PERGUNT := aRegs[02]
SX1->X1_VARIAVL := aRegs[03]
SX1->X1_TIPO := aRegs[04]
SX1->X1_TAMANHO := aRegs[05]
SX1->X1_DECIMAL := aRegs[06]
SX1->X1_PRESEL := aRegs[07]
SX1->X1_GSC := aRegs[08]
SX1->X1_VAR01 := aRegs[09]
SX1->X1_DEF01 := aRegs[10]
SX1->X1_DEF02 := aRegs[11]
MsUnlock()
Endif
Next

RestArea(aArea)

Return