[Resolvido]Comando para inserir informações do proprietário( cabeçalho, rodapé e logotipo) em relatórios.

Prezados, bom dia a todos.

Estou dando inicio a esse projeto em que visa facilitar a vida do desenvolvedor.

O propósito do mesmo visa que o usuário, possa fazer por si mesmo a configuração (inserção de dados) do:

a- cabeçalho do relatório ( nome da empresa,endereço, logotipo...etc..etc )
b- rodapé do mesmo.

O por que disso, é quando não podemos nos deslocar do nosso local de trabalho para implementar o mesmo no cliente, ele mesmo possa fazer sem a nossa tutela.

Se alguém do fórum tiver alguma ideia, gostaria de saber para ter uma noção de como proceder.

Grato.

Veja: http://maximoaccess.forumeiros.com/t14078-resolvidocabecalho-da-pagina-do-relatorio-de-acordo-com-a-empresa-logada?highlight=nome+da+empresa

bom dia Marcelo....

é quase isso....quase.

Vou tentar adaptar esse as minhas necessidades.

Não vou fechar o tópico ainda.

Não era bem isso....
O que eu estou tentando desenvolver é que através de um formulário, o próprio usuário possa definir os cabeçalhos, rodapés e inserir o logo da empresa. Não importando a quantidade de relatórios que o programa tenha.

Será que a função " replace " poderá atender ?

Bom vamos tentar...vamos tentar !!

Olá Silvio,
Não estive a ver a solução do outro colega, no entanto nas minhas Apps, costumo fazer da seguinte forma:
Tenho dois reports

CAB (cabeçalho) - origem dos dados Tabela Entidade (selecionada)
  com os campo:
  Empresa
  Morada
  ...  
  Logo


ROD (rodapé) - origem dos dados "licenciamento"
  com os campo:
  Licenciado
  NoSerie
  Aplicação

Depois sempre que estou a fazer um report, não me preocupo com o cabeçalho nem com o rodapé, basta incluir os reports com sub-reports
Veja:

Abraço

Boa tarde Alvaro...é bom por ai mesmo que eu estou planejando.
Pelo que eu entendi, terei que ter 2 tabelas

-a tabela cabeçalho.
a1-nome.
.
.
.
.
a5-logotipo da empresa.

-b tabela rodapé.
b1-endereço
b2-fone
.
.
b5-cidade.

É isso ?

Fica a minha questão, para o desenvolvimento aqui, ao salvar esse dados nessas duas tabelas, como eles vão para os relatórios ?

Eu utilizo uma tabela para gravar a empresa com todos os dados
da empresa.

Depois, basta buscar essas informações e apresentar no cabeçaho
do relatório.

Quando logo, na mesma tabela guardo o caminho da imagem e apenas
defino-a como picture em controle imagem.

Perfeito....então apenas uma simples tabela pode vir a resolver os meus problemas....

Sim! Estou montando um exemplo e já posto para você.

Olá a todos,
Pode ter numa só tabela "DadosEntidade", depois configura os campos que pretende no CAB e no ROD
Eu no meu caso tenho aplicação que permite o utilizador selecionar várias entidades "Empresas", assim nos relatórios aparece os dados da entidade que o utilizador selecionou (que vinculou para a respectiva base de dados).
Também fica mais fácil para distribuir a mesma aplicação por vários clientes.
Ái entra o rodapé, que tem "Licenciado a: empresa xpto"., no entanto não invalida poder utilzar também os dados da entidade.

Outra coisa, normalmente o utilizador com previlegios de administrador, pode alterar os dados, não vá mudar de morada ou telefone e fica pendurado.
Abraço

Legal.....precisamos mesmo automatizar algumas coisas...e essa para mim, é prioridade agora.
Se tudo correr conforme planejado, tenho uma aplicação aqui, com 15 relatórios.......por ai vocês estão vendo como isso vai ser de suma importância para mim.

Aguardo o exemplo.

Abraços

Vamos lá meu amigo:

Abra o formulário "frmEmpresaTitular", e informe os dados de uma empresa qualquer. Depois
clique no botão "Inserir/Alterar Logo", selecione
uma imagem qualquer.

Vá agora no formulário "frmClientes" e clique no botão "Lista de clientes", veja o resultado.

Olá a todos,
Marcelo excelente exemplo, no entanto tomei a liberdade de alterar para demonstrar da forma que referi.
Silvio ficamos aguardar retorno
Bom fim de semana
Abraço

Amigos..meu Access é o 2007.
Nos exemplos cedidos pelos colegas:.....formato não reconhecido.

Ola Silvio, ja não estou no PC, vamos ver se algum colega do fórum converte para mdb.
Se não acontecer, converto assim que possível.

Ok... Alvaro, fico eu no aguardo então !

Veja se consegue agora:

Marcelo é isso mesmo, parabéns nobre colega !!
Vai me atender nesse e em outros projetos que eu estou a desenvolver aqui.
Não vi o código ainda, mas acredito eu que é o mesmo processo para o rodapé do mesmo.
Valeu....

Ps. ainda não vou fechar o tópico !

Bom que gostou Silvio. Para o rodapé basta seguir o mesmo exemplo.

Alvaro, vi o seu exemplo e gostei pela simplicidade.

Mas nesse caso, teremos tráfego na rede de mais duas
tabelas além das que são origem dos dados do relatório.

Sua técnica eu aconselho para sistemas que irão funcionar
em apenas um computador e com a base de dados nele mesmo.

Mas caso seja um ambiente de rede, não recomendo pois os dois
subformulários que compõem o cabeçalho e o rodapé manterão
uma ligação direta com a tabela do back-end. Isso, dependendo das
condições poderá ser um entrave para o desempenho.

Olá Silvio, já atualizei ficheiro da mensagem nº 13.

Por acaso na minha app funciona em rede e tem rolado sem qualquer problema, só que eu tenho a ir buscar os dados ao formulário Menu, que tem estes parâmetros escondidos (não recomendo, porque se for alterado algum parametro, só vai atualizar da próxima vez que abrir o MENU).
No entanto tenho outra que funciona como relatei e também não tem problemas.
Marcelo, é isso aí estamos sempre aprender, isto é a prova da existência deste fórum.
Concordo plenamente que sempre que possível , evitar sobrecarregar o trafego ao servidor.
Abraço

Colegas...deu uma zica no rodapé do mesmo.

Cabeçalho está certo e formatado do jeito que tem que ser...mas o dito rodapé.....

Abaixo o código...




Private Sub RodapéDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Dim d
'Busco de uma única vez todos os campos que preciso atravez do Dlookup evitando várias viagens a tabela
d = DLookup("[endereco] & ';' & [bairro] & ';' & [fone1] & ';' & [fone2] & ';' & [cidade] & ';' & '&[Estado]", "tbEmpresaTitular")

d = Split(d, ";") 'Determino o que delimita cada campo

'Atribuo aos captions dos rótulos as informações recuperados do dlookup obdecendo o índice da matriz em cada campo

Me.RtRod.Caption = "End: " & d(0) & "Bairro:" & d(1) & "Fone: " & d(2) & "Fone2:" & "Cidade:" & d(3) & "Estado:" & d(4)

End Sub

Os mesmos dados do cabeçalho devem aparecer no rodapé, menos o logo?

Marcelo....

os dados são:

a- Endereço
b- Bairro
c- Fone1
d- Fone2
e- Cidade
f- Estado


Apenas esses e mais nada.

anexando o que eu estou fazendo......

Melhorei o código removendo os códigos do evento formatar do cabeçalho e rodapé
e pondo ambos os códigos no evento ao abrir.

Desse modo, continuamos dando apenas uma viagem a tabela para recuperar os dados
tanto do cabeçalho quanto do rodapé.

Os dados que estavam no rodapé do formulário, pus no rodapé da página, assim em cada
página impressa, os dados da empresa apenas aparecerão no rodapé da página. Mas se não
gostar, basta mudar o rótulo "RtRod" para onde achar melhor.

Obs: Tenha cuidado com as concatenações, pois estavam equivocadas.

Marcelo bom dia...

Agora entendi a sequencia de concatenação ( vem do Dlookup ).
Perfeito, já fiz as alterações necessárias para um visual melhor.

Agradeço imensamente a você e ao Alvaro pela força e pelo aprendizado ( não sou muito bom em relatórios ) dispensados a mim.

Estamos aí, obrigado pelo retorno.
Abraço a todos.

Boas Alvaro....estamos sempre aprendendo....do que o Marcelo me mandou, e que vou deixar aqui para futuras referencias dos colegas, já está bem mudado.

Abraços Alvaro..e um ótimo fim de semana !