Ir para conteúdo
Fórum Script Brasil

danielrgoes

Membros
  • Total de itens

    295
  • Registro em

  • Última visita

Tudo que danielrgoes postou

  1. Boa tarde, Jhonas. Seguindo suas dicas, fiz uma base de teste e adicionei os Reports conforme você falou e em seguida fui adicionando as funcionalidades que necessitava. Por fim, deu certo. Obrigado!
  2. Bom dia, Jhonas. Ah entendi, acabei demorando para responder o tópico, mas estou realmente com esse problema ainda... = [ Sobre a ordem das bandas Title e PageHeader, para mim está ok, não tem problema, só comentei porque você tinha citado que no seu exemplo estava igual exceto por isto. Quanto ao problema de mostrar a ColumnHeader duplicada quando uso o CompositeReport, você tem mais alguma dica? Porque aqui realmente não está funcionando a menos que eu coloque este QuickReport para imprimir antes dos outros (coisa que o usuário não quer...). Obrigado.
  3. Bom dia, Jhonas. Meu QuickReport é versão 4. A ordem entre as bandas Title e PageHeader, eu não consigo mudar, ao alterar o tipo da QRBand, ele já deixa na ordem citada automaticamente. Não entendi porque meu post ficou marcado como resolvido, se ainda continuo com o problema (removi a marcação ainda em busca de ajuda). No aguardo. Obrigado.
  4. Boa tarde, Jhonas. Obrigado pela resposta, porém não é exatamente este o problema que está acontecendo no meu programa. Eu tenho os seguintes reports a serem impressos: * Curva * Folha de Dados * Vista Explodida (duas vezes) O meu report de Vista Explodida tem a estrutura da Imagem 1, quando eu imprimo ele sozinho, ele mostra corretamente esta estrutura, porém quando utilizo o CompositeReport, com os outros Reports (com diferentes estruturas), ele aparece conforme a Imagem 2, duplicando a ColumnHeader antes da minha Title. Quando eu dou o "AddReports", eu faço o SELECT no banco de dados dos itens que devem aparecer no primeiro report de Vista Explodida. No "StartPage" do meu report de Vista Explodida, eu atribuo alguns valores de labels que estão na minha Title. No "AfterPrint" da Band do tipo rbSummary, eu faço o SELECT no banco dos dados dos itens que devem aparecer no próximo report de Vista Explodida (já que é chamado duas vezes). Tentei de tudo, mas o único jeito que encontrei de não acontecer a Imagem 2, foi colocando os meus reports de Vista Explodida antes dos demais, porém os usuários não querem esta ordem. Obrigado.
  5. Boa tarde. Tenho um programa que tem vários Quick Report, sendo que um deles busca informações de uma tabela e as mostra com a QRBand do tipo Detail. Quando eu imprimo apenas este Quick Report que busca essas informações da tabela, ele imprime corretamente. Porém, necessito imprimir vários dos meus Quick Reports e utilizo o componente CompositeReport. Ao adicionar o que usa Details, se eu o adiciono no início de tudo dá certo, porém se eu o adiciono no meio ou no final dos Quick Reports, ele mostra a QRBand do tipo Column Header (que deveria ficar apenas acima da Detail) logo após a minha Page Header e também acima da Detail, ficando duplicada. Alguém sabe dizer por que isso ocorre? E como eu soluciono sem ter que colocar esse Quick Report como primeiro? Estrutura das QRBands do meu Quick Report (como deveria ficar): * Page Header * Title * Column Header * Detail * Summary Obrigado.
  6. Boa tarde a todos Gostaria de saber se alguém conhece um componente free para enviar mensagens via Whatsapp no Delphi.
  7. Bom dia, Jhonas. A migração das tabelas neste caso é inviável, porque um dos bancos é do ERP da empresa e o outro é de um sistema paralelo que consulta alguns dados. Mas a ideia dos DBGrids lado a lado pode ser que sirva como solução para meu problema. Como você sugere que eu faça a ligação entre eles? Visualmente, ficaria da seguinte maneira: A tabela Computador tem o ID do funcionário e a tabela do Funcionário tem o campo Login AD. Pensei em criar um RXMemoryData para o DBGrid da tabela Funcionário, mas fica muito lento e quando realizo buscas na tabela Computador, fica muito complexo manter o vínculo entre os dois DBGrids. O que você sugere? Obrigado.
  8. Bom dia, Jhonas. Sobre o primeiro link, eu já fiz isso e acontece de alguns valores serem mostrados e outros não, mesmo com os registros existindo corretamente. Sobre o segundo link, também já tentei, mas não atende à minha necessidade, porque ele irá colocar um DBLookupComboBox somente na linha selecionada do DBGrid, porém, meu DBGrid é para visualização e seleção do registro e não edição, então preciso que todas as linhas mostrem os valores. Existe essa incompatibilidade entre ADODataSet e ClientDataSet? Você já viu acontecer problema utilizando bancos diferentes?
  9. Bom dia, Jhonas. Obrigado pela resposta. Mas como eu disse no primeiro post do problema, eu sei como criar o campo lookup e já o fiz, porém como utilizo dados de bancos diferentes, ele está se perdendo e não traz alguns registros, que quando utilizo DBLookupComboBox traz. Como posso resolver isso? Obrigado.
  10. Bom dia, Jhonas. Mas preciso visualizar este campo lookup no DBGrid. Como faço neste caso? Obrigado.
  11. Boa tarde! Tenho um banco de dados Firebird e um banco de dados Progress 11.7 que precisam ser acessados por um mesmo programa. Consegui fazer as conexões corretamente e ambos os bancos são acessados. Porém, preciso criar um campo Lookup no meu ClientDataSet buscando dados do meu ADODataSet e isto está me causando problemas. Por exemplo: Tenho a tabela COMPUTADOR no meu banco Firebird que contém a chave estrangeira COD_FUNCIONARIO e tenho a tabela FUNCIONARIO no meu banco Progress 11.7 que contém a chave primária COD_FUNCIONARIO e o campo NOME. Preciso criar um campo Lookup com o NOME do funcionário no ClientDataSet da tabela COMPUTADOR. Porém, o que acontece é que em alguns registros o nome é mostrado corretamente no campo Lookup, mas em outros registros não mostra. Acredito que seja algum tipo de incompatibilidade entre os componentes ADO e CDS. Alguém já viu isso acontecer? Pode me ajudar, por favor? Obrigado.
  12. Boa tarde, Jhonas. Para a criação de Grupos de Usuário, o código acima funciona perfeitamente. Porém, o Outlook sempre pede a confirmação de permissão para o usuário, conforme a imagem abaixo. Para o programa que estou desenvolvendo, preciso que a criação de grupos de contato seja silenciosa, sem que o usuário tenha que interagir. Você já passou por isso? Sabe como posso resolver? Obrigado.
  13. Jhonas, boa tarde! Tive que deixar esse projeto em standby por um tempo, mas estou retomando. O código que você enviou cria os grupos de usuário, porém não da maneira que preciso. Na época, lembro que testei e retomando o projeto, testei novamente, mas para criar o Grupo de Contatos, o Outlook emite uma mensagem pedindo permissão para realizar a ação (imagem abaixo). Porém preciso que os grupos sejam criados sem pedido de permissão ao usuário. Você já passou por isso? Sabe como posso contornar? Obrigado.
  14. danielrgoes

    Acessando banco Firebird

    Boa tarde. Estou com o mesmo problema. Já realizei todos estes procedimentos, mas nada dá certo. Utilizei a função da maneira que o JGS mostrou: <?php $conexao=ibase_connect("localhost:C:/xampp/htdocs/Teste1/BANCO.FDB","SYSDBA","masterkey","WIN1252",0,3) or die('Não foi possível conectar a base de dados!'); ?> Meu programa tem apenas isso, mas mesmo assim não funciona, dá erro de ibase_connect indefinido. Alguém sabe me ajudar? Obrigado.
  15. Boa tarde. Gostaria de ver o exemplo de conexão com o Firebird, porém o link não está mais funcionando. Obrigado.
  16. Bom dia. Desconhecia a existência de tais restrições. Obrigado.
  17. Bom dia. Preciso conectar meu código PHP a um banco de dados Firebird (tenho a versão 1.5) utilizando o serviço Apache do Xampp. Já "descomentei" a linha extension=php_interbase.dll do arquivo php.ini e adicionei a DLL fbclient.dll no C:\Windows\System32 e C:\Windows\SysWow64. O serviço inicia corretamente no Xampp e meu código PHP está assim: <?php $hostname = "127.0.0.1:C:\\xampp\\htdocs\\Teste1\\Banco\\BDaaa.fdb"; $usuario = "SYSDBA"; // Usuário padrão do Firebird $senha = "masterkey"; // Senha padrão do Firebird $conexao = ibase_connect($hostname, $usuario, $senha) or die('<p>Código do erro: ' . ibase_errcode() . '</p><p>Mensagem de erro: <br>' . ibase_errmsg() . "</p>"); ?> Mas aparece o erro "Fatal error: Uncaught Error: Call to undefined function ibase_connect() in C:\xampp\htdocs\Teste1\banco.php:8 Stack trace: #0 {main} thrown in C:\xampp\htdocs\Teste1\banco.php on line 8". Já troquei o IP 127.0.0.1 por localhost e também já tentei sem as barras duplas, porém sem sucesso. Alguém pode me ajudar? Obrigado.
  18. Boa tarde, Jhonas. Não sei se você compreendeu exatamente o que estou tentando fazer. Meu banco de dados está em um servidor e meu programa pega o local do banco de dados via arquivo ".ini". Isto está funcionando normal. A questão é a seguinte: eu executo o programa na minha máquina (IP 192.168.6.10) e abro no navegador pelo link que o próprio programa gera (http://127.0.0.1:1488/$/start) e funciona, acessa o banco, tudo ok. Mas eu preciso acessar o link a partir de outra máquina, com o programa executando na minha máquina. Neste caso, não posso usar o link com "localhost", então substituo o IP de localhost pelo IP da minha máquina, mas a máquina X não consegue acessar o link (http://192.168.6.10:1488/$/start). Obrigado.
  19. Bom dia, Jhonas. Eu fiz isso, porém não acessa. A única diferença é o final do caminho que você colocou, o programa não gera esses vários caracteres. No meu caso o link aparece http://127.0.0.1:1488/$/start (para executar local) e tentei http://192.168.6.10:1488/$/start para executar pela rede, porém sem sucesso. Obrigado.
  20. Bom dia, Jhonas. Estou usando Delphi XE6 e banco de dados Firebird. A rede é 192.168.6.10. Obrigado.
  21. Boa tarde. Fiz um programa no Delphi utilizando IntraWeb modo StandAlone e enquanto está sendo executado na minha máquina, consigo utilizar o link gerado normalmente. Porém, preciso conseguir acessar o serviço em rede, ou seja, com o serviço do programa que eu criei rodando em uma máquina, quero poder acessar o link de qualquer outra máquina que também esteja na rede, mas não consigo. Como devo fazer? Obrigado.
  22. Boa tarde! Preciso utilizar o AppServer para fazer conexão no Delphi. Alguém tem algum material ou tutorial que possa me ajudar? Obrigado.
  23. Boa tarde, Jhonas. Vou verificar o link. Mas só para esclarecer, não acredito que seja algum dos problemas abaixo, porque hora dá erro e hora não dá, com exatamente os mesmos dados a serem buscados, sem a hipótese da linha ter sido excluída, exatamente o mesmo SELECT e exatamente as mesmas configurações de banco. Obrigado pela dica do rastreamento, assim que ocorrer o erro vou rastrear para tentar descobrir o motivo.
  24. Bom dia. Tenho programas desenvolvidos em Delphi que consultam minha base de dados do Datasul através de conexão ODBC Progress. Porém, um erro recorrente quando realizo SELECT na base é o "[DataDirect][ODBC Progress OpenEdge Wire Protocol driver]Error in row.", mas o problema é que não é sempre ou não é com um mesmo tipo de dado que acontece. Por exemplo, se eu realizo um SELECT agora ele pode apresentar o erro e se eu realizo o mesmo SELECT daqui a pouco, ele já não apresenta o erro. Acredito que seja conflito de utilização de tabela, mas o erro não retorna qual usuário ou IP da rede está utilizando o mesmo registro, se for esse o caso. Existe alguma maneira de rastrear? Agradeço desde já.
  25. Boa tarde Jhonas então vou tentar explicar melhor Eu tenho uma tabela no meu Firebird com o nome dos contatos e o email Desenvolvi um programa que pega o Nome e o Email do Banco de dados e adiciona ele como contatos no Outlook Porem agora surgiu a necessidade de criar um grupo de contatos no outlook, gostaria de saber como fazer isso via programação Segue o codigo para criar os contatos (na procedure eu passa o Nome e o Email que pego do banco: procedure TFrmPrincipal.NewContactItem(Nome,Email: string); var OutlApp: OutlookApplication; OutlNamespace: Namespace; ContactFolder: MAPIFolder; Contact: ContactItem; begin OutlApp := CoOutlookApplication.Create; OutlNamespace := OutlApp.GetNameSpace('MAPI'); ContactFolder := OutlNamespace.GetDefaultFolder(olFolderContacts); Contact := OutlApp.CreateItem(olContactItem) as ContactItem; Contact.FirstName := Nome; Contact.Email1Address := Email; Contact.Save; OutlApp := nil; end;
×
×
  • Criar Novo...