[delphi-br] Vaga Para Programador
Bom dia, Agradecemos a sugestão enviada. Oportunamente estaremos analisando-a mais em detalhes e, se possível, implementando o sistema. Para maiores informações sobre como são direcionadas as sugestões que recebemos, pedimos que leia o tópico do seguinte link http://www.infolivre.com.br/FAQ/respostas.php?numero=23 Salientamos que, apesar desta ser uma reposta padrão a todas as mensagens, damos muita importância sim a todas as sugestões que recebemos. Prova disso são as inúmeras alterações que fazemos todo mês no sistema e que você pode conferir a qualquer momento na seção Novidades em nossa página www.infolivre.com.br. Cordialmente Clube Info Livre
[delphi-br] Vaga Para Programador
Bom dia, Prezados moderadores: por gentileza, permitam-me fazer um anúncio aqui na lista. Sei que este fórum não é exatamente para isso, mas acredito que não haja problemas. Se houver, por favor, me desculpem e me avisem. Ei-lo: Contratamos profissional com experiência com desenlvimento de PDV, preferencialmente em Delphi. Minha empresa se localiza em Toledo-PR. Não é necessariamente a pessoa residir na cidade, mas precisa ser na região Oeste-PR. Interessados entre em contato via MP pelo e-mail para dialogarmos. Obrigado Valdir Dill
[delphi-br] Dúvida com Sorteio (Random)
Olá, Tenho a função abaixo para gerar um código que utilizo no sistema. Pela lógica, se chamarmos a função assim: GeraCodigoAlfaNumericoAleatorio(10); o retorno deveria ser sempre diferente. Poderia até repetir, mas a chance disso acontecer, seria tipo uma em um bilhão? O problema: em 610 códigos gerados, o código 6HGX564TQP já se repetiu 23 vezes. Para isso ocorrer, o resutaldo do random(Length(VMatriz)) teria ser 6-18-17-34-5-6-4-30-27-26. Qual a chance desse sorteio ocorrer exatamente igual e nessa mesma ordem? Pois, em 610 tentativas, ocorreu 23 vezes. A execução é feita sempre em máquinas diferentes (do usuário), mas mesmo assim, isso não poderia ocorrer, poderia? Qualquer dica ajuda. Obrigado function GeraCodigoAlfaNumericoAleatorio(VTamanho : Integer) : string; Var I : Integer; VMatriz : String; begin VMatriz := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ' result := ''; for I := 1 to VTamanho do result := result + Copy(VMatriz,random(Length(VMatriz)),1); end;
[delphi-br] Re: Problemas com Backup com TIBBackupService
Não, com certeza não é isso. como mencionei, isso só ocorre em pouquíssimos casos. Tipo de cada 100 restaurações, ocorre em uma. Nas demais processa normal e a rotina é a mesma para todos. --- Em delphi-br@yahoogrupos.com.br, NextCorp Informática nextc...@... escreveu Caro colega Pode ser que esteja, configurado para somente fazer o backup do metadados. dá uma olhada Atenciosamente Washington André Muller da silva ### NextCorp Informática Ltda www.nextcorp.com.br nextc...@... nextc...@... 0xx-(51)-3037-6605 ### - Original Message - From: valdirdill vald...@... To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 12, 2009 6:42 PM Subject: [delphi-br] Problemas com Backup com TIBBackupService Olá, Estou enfrentando o seguinte problema. No meu sistema tenho uma rotina de backup onde utilizo o componente TIBBackupService. A restauração é feita pelo seu parceiro TIBRestoreService. Funciona bem, exceto em algumas vezes em que o backup é gerado normalmente, mas quando se faz a restauração. Sem que ocorra nenhum erro, as tabelas são restauradas completamente vazias. O arquivo fdb restaurado fica 10 MB, quando o bd vazio tem 3 mb, ou seja, parece que os dados são restaurados, mas não são legíveis. Abri o arquivo no IbExpert e as tabelas estão todas vazias, sem nenhum dado. Fiz outro teste: coloquei o banco dados original (antes de fazer o backup com problema) e gerei o mesmo backup, com a mesma versão do Firebird instalada e depois o restaurei e não o esse problema, ou seja, foi restaurado todos os dados corretamente. Alguém tem alguma idéia do que pode estar causando isso? Uso D7 e FB 2.0 Obrigado -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Esta mensagem foi verificada pelo E-mail Protegido Terra. Atualizado em 12/11/2009 No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.425 / Virus Database: 270.14.62/2499 - Release Date: 11/12/09 14:33:00
[delphi-br] Problemas com Backup com TIBBackupService
Olá, Estou enfrentando o seguinte problema. No meu sistema tenho uma rotina de backup onde utilizo o componente TIBBackupService. A restauração é feita pelo seu parceiro TIBRestoreService. Funciona bem, exceto em algumas vezes em que o backup é gerado normalmente, mas quando se faz a restauração. Sem que ocorra nenhum erro, as tabelas são restauradas completamente vazias. O arquivo fdb restaurado fica 10 MB, quando o bd vazio tem 3 mb, ou seja, parece que os dados são restaurados, mas não são legíveis. Abri o arquivo no IbExpert e as tabelas estão todas vazias, sem nenhum dado. Fiz outro teste: coloquei o banco dados original (antes de fazer o backup com problema) e gerei o mesmo backup, com a mesma versão do Firebird instalada e depois o restaurei e não o esse problema, ou seja, foi restaurado todos os dados corretamente. Alguém tem alguma idéia do que pode estar causando isso? Uso D7 e FB 2.0 Obrigado
[delphi-br] Vírus Executavel
Olá, Estou tendo um problema com o antivírus da Microsoft: Ao executar o meu sistema esse antivírus detecta o vírus TrojanSpy:Win32/Bancos.gen!A. Basta abrir o programa e aguardar segudo que o alerta aparece. Não há nenhuma rotina sendo executada nesse momento do alerta. Apenaso .exe ativo e a tela parada, ou seja, o problema não é em alguma rotina que é executada em determinado momento e sim, em alguma function ou precedure que existe no sistema. Alguém tem alguma idéia de como localizar no meu projeto essa função que gera esse alerta? Obrigado.
Re: RES: [delphi-br] Vírus Executavel
Obrigado pela resposta José, mas essa não é uma opção prá mim, pois não tenho como recomendar isso ao usuários. Tenho que descobrir qual ou quais rotinas do meu sistema está causando esse falso alerta e aí tentar corrigir. Obrigado Valdir --- Em delphi-br@yahoogrupos.com.br, Jose Newton Araujo jose.new...@... escreveu Caro A algum tempo tive um problema parecido com este. Removi o antivírus da MS, instalei o KasperSky original e acabou o problema. Quem sabe te ajuda. Sds Jose Newton De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de valdirdill Enviada em: segunda-feira, 19 de outubro de 2009 10:50 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Vírus Executavel Olá, Estou tendo um problema com o antivírus da Microsoft: Ao executar o meu sistema esse antivírus detecta o vírus TrojanSpy:Win32/Bancos.gen!A. Basta abrir o programa e aguardar segudo que o alerta aparece. Não há nenhuma rotina sendo executada nesse momento do alerta. Apenaso .exe ativo e a tela parada, ou seja, o problema não é em alguma rotina que é executada em determinado momento e sim, em alguma function ou precedure que existe no sistema. Alguém tem alguma idéia de como localizar no meu projeto essa função que gera esse alerta? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro Estranho
Alguém já passou por um erro desses? component named FRelatorios already exists FRelatorios é o nome um form chamado por .showModal Obrigado. Valdir Dill
[delphi-br] Form Ativo
Olá,
Tenho uma rotina que é executada no sistema quando ocorre determinado erro.
Esse erro ocorre em apenas alguns usuários. Nas minhas máquinas de laboratório
não ocorre. Mas a ajuda dos colegas que eu gostaria de obter não é diretamente
ligada ao erro e sim ao resul de uma rotina que é executada quando o erro
ocorre.
É o seguinte: quando o erro ocorre, guardo alguns valores em um arquivo. Uma
das linhas executadas é: Writeln('- Form ativo: ' + Screen.ActiveForm.Name);
O que ocorre é que, em algumas máquinas (usuários), e de forma aleatória, essa
linha é gravada assim no arquivo: - Form ativo: FProdutos_1
Só que na aplicação não existe um form com o nome FProdutos_1. Existe apenas o
FProdutos.
Alguém tem alguma idéia do que gera isso, ou seja, Screen.ActiveForm.Name
retornar com nome de form que não existe?
Obrigado
Valdir Dill
[delphi-br] tTreeView - Inibir Ações em Cliques com Área em Branco
Olá, Se num tTreeView mudarmos a propriedade autoExpand para true, os subitens do treeView abrirão automaticamente assim que o nóPai for clicado, correto? O problema no meu caso é que o tamanho (width) do treeView precisa ficar bem além do tamanho do texto de determinados nós e subNós e, ao se clicar em qualquer área em branco (que não tenha nenhum texto) do treeView ele seleciona o item que está na altura do ponto clicado e abre aquele nó. Pergunto: é possível fazer com que os nós filhos só abram quando o clique for sobre o texto do nó? Como? Obrigado
[delphi-br] TJvEnterAsTab - Alguém Usa?
Olá, Alguém utiliza o componente TJvEnterAsTab do pacote JVCL? Há como colocar apenas um componente para toda aplicação ou tenho que colocar um em cada form? obrigado Valdir
[delphi-br] Ajuda com Extrato Bancário
Tenho duas tabelas para controle da movimentação bancária. Tabela 1: CAD_CONTAS Campos: CONTA e SALDO_ATUAL Tabela 2: LCTOS_BANCARIOS Campos: CONTA, DATA, VALOR e TIPO(D ou C) Na tabela 1 guardo apenas o último saldo. Preciso gerar um relatório/extrato onde constem os lançamentos e também o saldo diário. Acredito que devo pegar o saldo de hoje e diminuir as entradas e somar as saídas de hoje para chegar ao saldo de ontem; pegar o saldo de ontem e diminuir as entradas e somar as saídas de ontem para chegar ao saldo de antes de ontem; e assim por diante. Alguém tem alguma dica de como fazer esse SQL? Obrigado Valdir
[delphi-br] Ajuda com Select Utilizando Union All e Cast
Olá, Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o script: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou de CONTASRECEBIDAS Alguém pode me ajudar? Uso D7 e FB 2.0 Obrigado
Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Obrigado.
Valdir
- Original Message -
From: Rodinei
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 06, 2009 8:08 AM
Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Simples, logo após o SELECT de cada parte da instrução, insira CAST('CR' AS
VARCHAR(02)) para CR e CAST('CP' AS VARCHAR(02)) para CP.
Abs e boa sorte...
Rodinei Amorim
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br
From: valdirdill
Sent: Thursday, August 06, 2009 7:58 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Olá,
Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns
campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o
script:
SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM
CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM
CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar
cada linha para saber se o registro impresso é de CONTASRECEBER ou de
CONTASRECEBIDAS
Alguém pode me ajudar?
Uso D7 e FB 2.0
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Obrigado.
Valdir
- Original Message -
From: Moacir - GMail
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 06, 2009 8:09 AM
Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
valdirdill,
Acrescente uma coluna com o tipo:
SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL,
Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO
BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL,
Cast('QUITADO' as Varchar(10)) as TIPO FROM CONTASRECEBIDAS WHERE VENCIMENTO
BETWEEN :VInicio AND :VFim
Sucesso !!
Moacir
valdirdill escreveu:
Olá,
Estou fazendo um select com duas tabelas utilizando a opção UNION. Em
alguns campos faço um cast pois cada tabela tem um nome diferente no campo.
Veja o script:
SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL
FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL
FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
Funciona direitinho. Minha dúvida é: no relatório eu gostaria de
identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou
de CONTASRECEBIDAS
Alguém pode me ajudar?
Uso D7 e FB 2.0
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Troca/Devolução de Produtos - Preciso de Opiniões
Olá, Gostaria da opinião dos colegas que desenvolvam software de gestão e que nele tenha opção de alteração e/ou opção de devolução/troca de produtos no módulo de vendas (alguns preferem chamar de pedido. Eu acho melhor vendas). Muito bem, a questão é a seguinte: ao se gravar uma venda, no meu entender, um sistema deve registrar a saída dos produtos do estoque, gerar contas a receber (valor à prazo), gerar entrada no caixa (valor à vista) e, dependendo do caso, gerar comissão do vendedor. No meu sistema permito apenas que o usuário cancele toda a venda. Aí o sistema anula tudo o que gerou, inclusive exclui alguma conta a receber que já tenha sido recebida. Ficará no sistema apenas a venda registrada como cancelada e somente para consultas. O problema nesse caso é óbvio, ou seja, numa venda onde há 10 itens, por exemplo, e o cliente desejar devolver apenas um - o que não é raro ocorrer - geraria um enorme retrabalho de cancelar a venda e refazê-la toda. Eu poderia criar um módulo de devolução/troca de produtos, onde ficaria registrado que determinado item de determinada venda foi devolvido e gerar o retorno do produto ao estoque. Até aqui tudo muito fácil. A minha dúvida é em relação ao financeiro. Como vocês trabalham essa questão? No caso da venda hipotética dos 10 itens, a venda total (soma dos itens) era de 150,00, mas teve um desconto de 5% e o total final ficou em 142,50. Desse valor, 30,00 foi pago à vista (creditado no caixa) e 112,50, dividido em 3 parcelas a receber. Além disso, o sistema gerou uma comissão a pagar para o vendedor de R$ 2,00. No dia (40 dias após) em que o cliente veio fazer a devolução/troca, ele já tinha pago uma das parcelas e o vendedor já tinha recebido sua comissão. Aí pergunto de novo: como vocês acertam esse financeiro? Alteram os valores das contas pendentes? Calculam proporcionalmente o valor daquele produto para gerar outro financeiro? Obs.: Não precisa detalhar todo o módulo de devolução/troca. Qualquer dica que puder me repassar, ajuda. Obrigado. Valir Dill
[delphi-br] Problema em Compilação Passo a Passo
Olá, Tenho alguns componentes de terceiros em uma aplicação que desenvolvo. Tenho enfrentado o seguinte problema: quando preciso compilar step by step e marco um break point em um form em que esteja sendo utilizado um desses componentes, ao executar as rotinas da unit vinculadas ao form atavés do F7, a execuçao (passos) passa cada procedure de crição do componente na .pas dele. Tem como desabilitar isso? Obs.: 1) Nos componentes nativos isso não ocorre; 2) A opção Use Debug DCUs do menu project / options está desabilidada Obrigado Valdir Dill [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Identificar arquivos necessários para a aplicação rodar
Muito boa essa dica Rubem. Não conhecia. Fiz isso no meu projeto e percebi que ele lista a ntdll.dll. Isso me fez recordar um velho problema que volta e meia ocorre em alguns usuários de meu sistema: Access violation at address 7C901010 in module 'ntdll.dll'. Read of address 0030 Verificando no entry point, não encontrei esse address não encontrei 7C901010. O erro não ocorre sempre. O usuário executando os mesmos passos no programa, às vezes acontece a exceção e, ás vezes não. Em nosso laboratório, em 4 máquinas testadas exaustivamente, nunca ocorreu. Por isso não consigo descobrir a causa. Já instalei o SP1 do D7, até mudei o nome da aplicação, tirei alguns componentes gráficos de terceiros que tinha na aplicação, mas nada de resolver. Se alguém tiver qualquer dica, por favor, me repasse. Obrigado Valdir Dill - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 16, 2009 11:23 PM Subject: RES: [delphi-br] Identificar arquivos necessários para a aplicação rodar Faça um build geral da sua aplicação. Execute-a. Chame todas as funcionalidades da sua aplicação. Depois, retorna ao IDE e digite Ctrl+Alt+M. Vai aparecer um diálogo que mostra todos os módulos que a aplicação necessita. É só verificar o que não é DLL/EXE do Windows e colocar no checklist de instalação. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirceu Vasson Jr Enviada em: terça-feira, 16 de junho de 2009 21:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Identificar arquivos necessários para a aplicação rodar Olá a todos Tenho uma aplicação que na minha máquina roda 100%. Coloquei em outro computador e de cara dá o erro informando que o windows não pôde abrir o programa. Há como identificar quais arquivos (DLL por ex.) eu tenho que copiar junto ao programa (procurei na net e a única pergunta desta natureza estava sem resposta)? []s Dirceu Jr. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Identificar arquivos necessários par a a aplicação rodar
Muito boa essa dica Rubem. Não conhecia. Fiz isso no meu projeto e percebi que ele lista a ntdll.dll. Isso me fez recordar um velho problema que volta e meia ocorre em alguns usuários de meu sistema: Access violation at address 7C901010 in module 'ntdll.dll'. Read of address 0030 Verificando no entry point, não encontrei esse address não encontrei 7C901010. O erro não ocorre sempre. O usuário executando os mesmos passos no programa, às vezes acontece a exceção e, ás vezes não. Em nosso laboratório, em 4 máquinas testadas exaustivamente, nunca ocorreu. Por isso não consigo descobrir a causa. Já instalei o SP1 do D7, até mudei o nome da aplicação, tirei alguns componentes gráficos de terceiros que tinha na aplicação, mas nada de resolver. Se alguém tiver qualquer dica, por favor, me repasse. Obrigado Valdir Dill - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 16, 2009 11:23 PM Subject: RES: [delphi-br] Identificar arquivos necessários para a aplicação rodar Faça um build geral da sua aplicação. Execute-a. Chame todas as funcionalidades da sua aplicação. Depois, retorna ao IDE e digite Ctrl+Alt+M. Vai aparecer um diálogo que mostra todos os módulos que a aplicação necessita. É só verificar o que não é DLL/EXE do Windows e colocar no checklist de instalação. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirceu Vasson Jr Enviada em: terça-feira, 16 de junho de 2009 21:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Identificar arquivos necessários para a aplicação rodar Olá a todos Tenho uma aplicação que na minha máquina roda 100%. Coloquei em outro computador e de cara dá o erro informando que o windows não pôde abrir o programa. Há como identificar quais arquivos (DLL por ex.) eu tenho que copiar junto ao programa (procurei na net e a única pergunta desta natureza estava sem resposta)? []s Dirceu Jr. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Proteção Software
Olá, Trabalhamos dessa forma também, mas isso é um transtorno. Temos pelo menos uns 80 usuários que trocam em média 2 vezes por ano o HD. Toda hora precisamos fazer o procedimento de transferência do registro para outro código. E o que é pior, não há como comprovar se houve mesmo a troca ou se ele está simplesmente instalado o sistema em uma máquina adicional. Temos que confiar na palavra do usuário. Já pesquisei um monte sobre isso. A melhor forma que encontrei (em teoria, pois não a adotamos) seria aqueles hard lock. Mesmo com a troca do hd, da placa mãe, do SO, da memória, do dono da empresa, etc. o hard lock sempre vai ter o mesmo número de série e esse trasntorno não existe. Além do que é muito confiável. O problema? Preço. Espero ter ajudado Valdir - Original Message - From: Iran Lima To: delphi-br@yahoogrupos.com.br Sent: Friday, May 29, 2009 5:10 PM Subject: RES: [delphi-br] Proteção Software Eu pego o serial físico do HD uso uma função para criptografar e gero o uma chave. Daí o cliente registra o sofware(envia a Chave) e com a chave eu gero uma contra-chave que ele grava em um ini validando a copia do sistema na maquina dele. O problema e quando ele troca o HD. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Samuel M. Basso Enviada em: sexta-feira, 29 de maio de 2009 16:23 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Proteção Software Boa tarde Pessoal! Andei pesquisando a um tempo um meio de proteção do software contra pirataria, existem diversas maneiras pelo que eu vi e eu mesmo andei testando algumas, mas resolvi enviar este email para trocar ideias com voces de algumas maneiras de se fazer essa proteção. Até. -- Atenciosamente, Samuel M. Basso Tel: (54) 3463-9114 Cel: (54) 8135-3723 E-mail: samuelba...@gmail.com mailto:samuelbasso%40gmail.com Web site: www.samuelbasso.com MSN: samuelba...@gmail.com mailto:samuelbasso%40gmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema ao Restaurar Backup
Olá, Estou enfrentando um problema. Seguinte: Faço backup dos dados através do componente TIBBackupService e a restauração com TIBRestoreService. Utilizo o Firebird 2.0. Ocorre que, quando algum usuário desavisado, por conta própria, atualiza o Firebird para a versão 2.1, o sistema continua funcionando tudo normal. Abre, faz backup e restaura. Mas, quando é retornado ao Firebird 2.0 e se faz uma restauração de um backup que foi feito quando estava instalado o Firebird 2.1, a restauração simplesmente some com o arquivo de dados. Não dá qualquer tipo de erro na execução das rotinas. Simplesmente o bd é excluído. Alguém poderia me ajudar com alguma dica? Porque isso ocorre? Como impedir?
[delphi-br] Erro Relacionado a ntdll.dll
Olá, Preciso de ajuda sobre um problema que vem ocorrendo em meu sistema: access violantion in module ntdll.dll. Pelo que me parece é alguma exceção durante a execução de alguma função dessa .dll. Estou há mais de dois mês pesquisando e encontrei alguns tópicos na net sobre esse erro, mas nada que tenha ajudado muito. A única coisa que encontrei e que parece coerente com o que ocorre no meu sistema é que isso poderia ser algum erro durante a utilização (pelo Windows/programa) de algum recurso da placa de vídeo. Vamos supor que o problema seja realmente esse, ou seja, no momento que o meu programa requisita esse recurso da placa de vídeo, ocorre a exceção. Pergunto aos colegas e até imploro para que me ajudem: como faço para detectar qual a rotina/componente/momento do programa que isso ocorre. Não uso muitos componente de terceiros, justamente por causa dessas coisas inexplicáveis que acontecem. Os únicos componentes que desconfio possam estar relacionados são TAdvPanel, TAdvToolBar e TdvToolButton da TMS. Além desses, também utilizo os nativos TActionManager (para menu da tela principal), conjugado com TXpColorMap. De cada 100 usuários que utilizam o sistema o problema acontece com 5, mas não é sempre que ocorre. É aleatório, mas sempre ao voltar de algum módulo qualquer para o form principal que é onde estão os componentes acima. A grande dificuldade de analisar é que, como já mencionei, não é sempre que a situação acontece e aqui em laboratório, em 3 máquinas o problena nunca ocorreu. Se você tiver qualquer dica que possa me ajudar, agradeceria muito se me repassasse. Obrigado Valdir
Fw: [delphi-br] Re: Erro Relacionado a ntdll.dll
Obrigado pela resposta Higor, Acho que o caminho que você me indicou (AVFinder), se eu conseguir fazer funcionar, vai ajudar bastante. Não conhecia o AVFinder, mas parece bem simples de usar. Contudo, não consegui fazer ele me dizer onde está o erro. Para testar o AVFinder eu fiz o seguinte: criei um novo projeto com 2 forms (form1 e form2). No form 1 coloquei um botão que ao clicá-lo executa Form2.show, mas como nesse momento o form2 ainda não foi criado, gera a violação de chave com com endereço 004458A6. Ao testar .map desse projeto no AVFinder, dá um erro, conforme tela anexa. No projeto/Delphi, só precisa colocar opção Map File = Detailed, certo? Podes me ajudar? Obrigado Valdir - Original Message - From: higorrg To: delphi-br@yahoogrupos.com.br Sent: Friday, February 13, 2009 9:15 AM Subject: [delphi-br] Re: Erro Relacionado a ntdll.dll Para descobrir a linha e a unit que provoca o erro vc precisará do programa free chamado AVFinder (google nele) depois vc precisa alterar uma configuração na compilação do seu projeto para que crie o arquivo .map que é nele que o AVFinder irá se basear. Então vamos lá: -Bá em Project-Options-Linker e selecione a opção Map File = Detailed. -Build no projeto e vc verá um arquivo com o mesmo nome do seu .exe mas com .map. Aponte esse arquivo .map no AVFinder e informe o endereço de memória que deu o erro, o AVFinder irá lhe mostrar a unit e a linha que provocou a violação. Já é uma dica do que pode estar acontecendo. Quanto ao motivo real da violação na ntdll.dll tive isso também, e achava que era fantasma mas não é. É alguma coisa que vc está fazendo com ponteiros ou liberando objetos que não estão mais lá, num processo muito rápido, recursivo e descentralizado. Espero ter ajudado, Higor Ganzoto --- Em delphi-br@yahoogrupos.com.br, valdirdill valdird...@... escreveu Olá, Preciso de ajuda sobre um problema que vem ocorrendo em meu sistema: access violantion in module ntdll.dll. Pelo que me parece é alguma exceção durante a execução de alguma função dessa .dll. Estou há mais de dois mês pesquisando e encontrei alguns tópicos na net sobre esse erro, mas nada que tenha ajudado muito. A única coisa que encontrei e que parece coerente com o que ocorre no meu sistema é que isso poderia ser algum erro durante a utilização (pelo Windows/programa) de algum recurso da placa de vídeo. Vamos supor que o problema seja realmente esse, ou seja, no momento que o meu programa requisita esse recurso da placa de vídeo, ocorre a exceção. Pergunto aos colegas e até imploro para que me ajudem: como faço para detectar qual a rotina/componente/momento do programa que isso ocorre. Não uso muitos componente de terceiros, justamente por causa dessas coisas inexplicáveis que acontecem. Os únicos componentes que desconfio possam estar relacionados são TAdvPanel, TAdvToolBar e TdvToolButton da TMS. Além desses, também utilizo os nativos TActionManager (para menu da tela principal), conjugado com TXpColorMap. De cada 100 usuários que utilizam o sistema o problema acontece com 5, mas não é sempre que ocorre. É aleatório, mas sempre ao voltar de algum módulo qualquer para o form principal que é onde estão os componentes acima. A grande dificuldade de analisar é que, como já mencionei, não é sempre que a situação acontece e aqui em laboratório, em 3 máquinas o problena nunca ocorreu. Se você tiver qualquer dica que possa me ajudar, agradeceria muito se me repassasse. Obrigado Valdir -- Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.0.237 / Banco de dados de vírus: 270.10.23/1951 - Data de Lançamento: 02/13/09 06:51:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Cadastro de Operadores do Sistema.
Olá,
Estou fazendo um módulo para cadastro de operadores no sistema, onde
cada operador receberá níveis diferentes de poder para cada um dos
módulos que compõe o sistema.
Entre outros campos, na tabela CadOperadores, existem os campos
CAD_CLIENTES, CAD_FORNECEDORES, VENDAS, LCTO_CAIXA e RELATORIOS. São
do tipo integer;
A idéia é que no programa, haja uma interface para que, ao se
cadastrar um operador, possa se atribuir nível 1 ou nível 2 a cada um
dos campos acima.
Estou desenvolvendo a interface da seguinte forma: coloquei dois
TlistBox. No primeiro, tem os seguintes Items inseridos: Cadastro
de Clientes, Cadastro de Fornecedores, Vendas de Produtos,
Lançamentos no Livro Caixa e Relatórios. O segundo não está em branco.
Existem botões permitindo que cada uma desses Items possam ser
movidos do ListBox1 para o ListBox2 ou vice-versa.
Ao clicar no botão Gravar deve haver uma rotina que verifique onde
está cada Items. Se, por exemplo, Lançamentos do Livro Caixa
estiver no ListBox1, o campo LCTO_CAIXA da tabela CadOperadores := 1;
se estiver ListBox2, o campo LCTO_CAIXA da tabela CadOperadores := 2.
A dúvida é: como fazer isso, ou seja, verificar onde cada Items
está e gravar o respectivo valor na tabela?
Até o momento a única idéia que me veio, seria:
For I := 0 to ListBox1.Items.Count-1 do
if ListBox1.Items[I] = 'Lançamentos do Livro Caixa then
CDSOperadores.FieldByName('LCTO_CAIXA').asInteger := 1
else
CDSOperadores.FieldByName('LCTO_CAIXA').asInteger := 2;
Até que funcionaria, mas me parece um pouco trabalhoso demais. Será
que não há uma maneira mais simples de se fazer essa rotina.
Lembro que citei apenas 5 campos da tabela, mas na verdade são mais
50 e também quero fazer 3 níveis. Aí seriam 3 TListBox. Fazer
esses IFs para cada campo e um for para cada TListBox?
Qualquer dica ajuda.
Obrigado
Valdir Dill
[delphi-br] Consulta SQL com Left Join em 3 Tabelas
Olá, preciso de ajuda sobre o que poderia estar errado na SQL abaixo. A tabela MOVI_TERMIN_PRODS (MET) só tem um único lançamento e o campo PRODUTO desse lançamento está igual a 2 e o campo VALOR_UM está igual a 3,00. Já a tabela MOVIESTOQUE (ME) tem dois lançamentos com campo PRODUTO igual a 2 e, no campo VALOR_TRES desses lançamentos tem 4,00 e 8,00. O campo SOMA_VALOR_TRES está retornando corretamente 12,00. Porém, o valor de SOMA_VALOR_UM está retornando incorretamente 6,00, quando o correto seria 3,00. Pelo que percebi, o valor 3,00 está sendo somando 2 vezes, ou seja, soma tantas vezes quantos forem os lançamentos existentese na linha SUM(ME.VALOR_TRES*(CASE WHEN ME.PRODUTO = 2 THEN 1 ELSE 0 END)) AS SOMA_VALOR_TRES, mas essa linha é relativa a tabela MOVIESTOQUE (ME), enquanto que deveria somar somente os valores existente na tabela MOVI_TERMIN_PRODS (MET) que tem apenas um lançamento com valor 3,00 no campo VALOR_UM. O que eu preciso é trazer a soma dos campos VALOR_UM, VALOR_DOIS, VALOR_TRES e VALOR_QUATRO, sendo que os dois primeiros são da tabela MOVI_TERMIN_PRODS e os outros dois de MOVIESTOQUE. Acho que um subselect resolveria, mas não consegui montar a SQL. Por gentileza, se puder, analise a consulta e me retorne. Obrigado. CDSTeste.Close; SQLDSTeste.Close; SQLDSTeste.CommandText := 'SELECT P.CODIGO, SUM(MET.VALOR_UM*(CASE WHEN TESTE.PRODUTO = 2 THEN 1 ELSE 0 END)) AS SOMA_VALOR_UM, SUM(MET.VALOR_DOIS*(CASE WHEN TESTE.PRODUTO = 2 THEN 1 ELSE 0 END)) AS SOMA_VALOR_DOIS, SUM(ME.VALOR_TRES*(CASE WHEN ME.PRODUTO = 2 THEN 1 ELSE 0 END)) AS SOMA_VALOR_TRES, SUM(ME.VALOR_QUATRO*(CASE WHEN ME.PRODUTO = 2 THEN 1 ELSE 0 END)) AS SOMA_VALOR_QUATRO FROM PRODUTOS P LEFT JOIN MOVI_TERMIN_PRODS TESTE ON (TESTE.PRODUTO = P.CODIGO) LEFT JOIN MOVIESTOQUE ME ON (ME.PRODUTO = P.CODIGO) GROUP BY P.CODIGO '; CDSTeste.Open;
[delphi-br] XML - Erro Invalid Character Was Found in Text
Na funçao abaixo ocorre o erro Invalid Character Was Found in Text Content. O erro só ocorre se o conteúdo de VXML tiver uma tag cujo valor senha texto acentuado. É possível utilizar a função, mas permitindo acentos no texto? Como? Obrigado function RetornaValorXMLUmSubNivel( VXML : WideString) : String; Var VXMLDoc : TXMLDocument; begin VXMLDoc := TXMLDocument.Create(Application); VXMLDoc.XML.Text := VXML; VXMLDoc.Active := true; end;
Re: [delphi-br] NFe - Impressão do DANFE
Boa tarde Vagner, Beleza, você tem um gerador de relatórios que lê xml, mas e aí? No que isso poderia me ajudar em relação ao meu post? Obrigado Valdir - Original Message - From: Vagner Gois To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 29, 2009 11:08 AM Subject: Re: [delphi-br] NFe - Impressão do DANFE Tenho um gerador de relatório (SRB) que faz a leitura do XML e possibilita a parametrização (inclusive pelo usuário) do DANFE e de outros relatórios... --- Em qui, 29/1/09, Rafael Jorge rafael.jo...@gmail.com escreveu: De: Rafael Jorge rafael.jo...@gmail.com Assunto: Re: [delphi-br] NFe - Impressão do DANFE Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 29 de Janeiro de 2009, 11:07 eu ja fiz o contrario.. eu desenvolvi a impressao do danfe e ja fiz a geração do XML... vamos entrar em contato via msn. meu msn é sr_doidera_375@ hotmail.com t+ 2009/1/28 valdirdill valdird...@infolivr e.com.br Olá colegas, Estou trabalhando no desenvolvimento da NFe. A parte geração do .xml, assinatura, e conexão e transmissão para WS estão praticamente OK. Meu próximo passo é imprimir o DANFE, e para isso, gostaria da opinião dos colegas que já estão com esse módulo pronto. É assim: tenho o arquivo .xml assinado e que foi transmitido para a SEFAZ. Tudo certinho. Minha dúvida é: a partir desse arquivo, qual a melhor forma e capturar os dados da NFe e imprimir o DANFE? Me refiro a como efetuar a leitura do arquivo para passar os dados para dataSet e gerar o relatório (Fast ou Fortes - Delphi 7). Tenho pouca experiência com Delphi/XML, mas andei lendo algo sobre XMLTransformProvide r. Seria essa a melhor opção? Qualquer dica ajudará. Obrigado. -- - - - - - - Rafael jorge alves (Analista/desenvolv edor) www.sistemafocus. com.br sistema focus de gestão comercial e serviços em informatica. - - - - - - [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - http://www.avgbrasil.com.br Versão: 8.0.176 / Banco de dados de vírus: 270.10.15/1923 - Data de Lançamento: 29/1/2009 07:13 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] NFe - Impressão do DANFE
Olá colegas, Estou trabalhando no desenvolvimento da NFe. A parte geração do .xml, assinatura, e conexão e transmissão para WS estão praticamente OK. Meu próximo passo é imprimir o DANFE, e para isso, gostaria da opinião dos colegas que já estão com esse módulo pronto. É assim: tenho o arquivo .xml assinado e que foi transmitido para a SEFAZ. Tudo certinho. Minha dúvida é: a partir desse arquivo, qual a melhor forma e capturar os dados da NFe e imprimir o DANFE? Me refiro a como efetuar a leitura do arquivo para passar os dados para dataSet e gerar o relatório (Fast ou Fortes - Delphi 7). Tenho pouca experiência com Delphi/XML, mas andei lendo algo sobre XMLTransformProvider. Seria essa a melhor opção? Qualquer dica ajudará. Obrigado.
[delphi-br] Retornar Versao Anterior do Firebird
Olá, Instalei a versão 2.1 do Firebird e rodei o programa com esse novo FB ativo e agora quero voltar a 2.0. É possível? O que devo fazer? Com a simples instalação do FB 2.0 não dá certo. Ocorre o erro unsupported on-disk structure for file found 11.1, support 11.0 firebird quando se tenta abrir o bd pelo programa. Podem me ajudar? Obrigado Valdir
[delphi-br] Erro ntdll.dll
Estou tendo frequentes problemas com usuários do meu sistema. Não consigo reproduzir o erro aqui em laboratório para debugar e tentar localizar uma possível causa. O erro que acontece é: access violation in module ntdll.dll. O problema parece não estar ligado diretamente ao sistema operacional, pois ocorre em XP atualizado e também em Vista. O mais estranho é que acontece do nada. Muitas vezes o sistema está parado, sem nenhum módulo aberto e pimba, dá essa mensagem de erro. Se você tiver qualquer dica, por favor poste, pois já pesquisei um monte e não encontrei nada esclarecedor. Obrigado
[delphi-br] Off - Zebedee
Olá, Alguém aí usa o Zebedee? Estou testando essa opção de conexão, mas não consigo realizar um teste completo. No terminal, quanto tento acessar o banco de dados no serivodr, dá mensagem ERROR - can't connect to 189.31.41.203 port 11965 Meu IP na net: 189.31.41.203 IP local do micro servidor Firebird 2.0: 192.168.1.102 A porta 3051 está liberada no terminal (cliente) As portas 11965 e 3050 estão liberadas no servidor Minha net é conectado por um roteador e a porta 11965 está redirecionada para o IP 192.168.1.102 no modem A string de conexão que uso é localhost/3050:C:\MeuPrograma\Dados.fdb Os parâmetros de configuração do Zebedee são: server.zbd detached true # mostrar (true) ou ocultar (false) mensagens server true ipmode tcp # cumunicação por tcp, udp ou both compression zlib:9 # nível da compressão keylength 256 # tamanho (wm bits) máximo das chaves de criptografia do blowfish keygenlevel 2 # nível de segurança nas chaves privadas (entre 0 e 2) redirect none # desliga os redirecionamentos target localhost:3050 # destino, IP:porta client.zbd detached false server false ipmode tcp compression zlib:9 keylength 256 keygenlevel 2 maxbufsize 16383 listenip localhost serverhost 189.31.41.203 # ip/dns do servidor tunnel 3051:localhost:3050 Onde posso estar errando? Obrigado. Valdir Dill
[delphi-br] Acces Violation com TActionManager ?
Olá, Há alguns dias passei a utilizar os seguintes componentes para melhorar a aparência do menu da tela principal de meu aplicativo: TActionManager TActionMainMenuBar TXPColorMap Não sei se é coincidência ou não, mas comecei a ter problemas com o sistema que gera frequentemente erro genérico de access violation quando o programa está em uso nos usuários. Esse erro não tem relação com alguma rotina do sistema, pois ele ocorre do nada. Por exemplo, uma situação onde ocorre: o programa está ocioso, sem nenhuma tela, além da principal, aberta. Ao mexer o mouse, pimba o problema ocorre. Em tempo de projeto, também ocorreram alguns erros. Esta semana tiva um erro relacionado ao arquivo dcc70.dll. Utilizo o D7. Tinha o D2007 instalado, mas desinstalei. Se alguém tiver uma dica, qualquer dica, por gentileza, poste. Obrigado Valdir
[delphi-br] SQL com Union - Ordem Inversa não Funciona
Quero fazer uma consulta que apresente os maiores compradores. A SQL abaixo funciona certinho. Porém, quero que seja listado na ordem inversa, iniciando do maior TOTAL_VENDIDO e terminado no menor. Ao listar normal (iniciando no menor, funciona direitinho), mas se eu acrescentar um 'DESC' no ORDER BY, não faz efeito. Por gentileza, analise o SQL e me ajude com alguma dica. SELECT CLIENTES.CODIGO, CLIENTES.NOME AS NOME_CLIENTE, CAST(SUM(VENDAMESTRE.TOTALVENDA) AS FLOAT) AS TOTAL_VENDIDO FROM VENDAMESTRE INNER JOIN CLIENTES ON (VENDAMESTRE.CLIENTE=CLIENTES.CODIGO) GROUP BY 1, 2 UNION ALL SELECT CLIENTES.CODIGO, CLIENTES.NOME AS NOME_CLIENTE, CAST(SUM(SERVICOMESTRE.TOTALFINAL) AS FLOAT) AS TOTAL_VENDIDO FROM SERVICOMESTRE INNER JOIN CLIENTES ON (SERVICOMESTRE.CLIENTE=CLIENTES.CODIGO) GROUP BY 1, 2 ORDER BY 3 //tanto faz qual dessas duas linhas eu ORDER BY 3 DESC //colocar no SQL. Ambas darão a mesma ordem. Tá tudo certinho, o único problema é que, estranhamente o DESC não faz efeito no order By. Obrigado.
[delphi-br] IntraWeb com D7
Olá, Estou querendo desenvolver algo com Intraweb do Delphi 7 e tenho pouco conhecimento sobre o assunto. Fiz um pequeno projeto teste e está funcionando em minha máquina. Digito http://localhost/scripts/project1.dll no browser e tudo certo. Pergunto: para executar isso através de outra micro, como faria? O que tem quer fazer (instalar) nessa outra máquina? Meu principal objetivo é permitir a visualização de dados via net de um sistema de dados (Firebird 2.0) desenvolvido para Win32. Obrigado
[delphi-br] Fast Report - Repetir Registro
Como faço para imprimir várias vezes o mesmo registro. Por exemplo, quero imprimir uma etiqueta com dados do cliente. Preciso imprimir várias vezes o mesmo registro, conforme definido pelo usuário. Não posso fazer isso no events do FR. Preciso fazer via código no próprio Delphi. É possível? Como? Obrigado.
[delphi-br] Restore com IBRestoreService
Olá, Estou tendo problemas com restauração de arquivo de backup. Realizo o backup pelo componente IBBAckupService e a restauação é feito pelo componente IBRestoreService. Em alguns casos estou enfrentando um sério probloema: ao efetuar a restauração, o arquivo de original de dados é excluído e a restauração não ocorre. Contudo, no processo de restauração não acontece nenhum erro. Tudo normal. ´ Alguém já passou por algo parecido e tem alguma dica? Uso D7 e FB 2.0. Obrigado
[delphi-br] Re: Apostila sobre FastReport
Valeu Eduardo. Já me ajudou a iniciar. A rotina funciona, só que me gerou um outro problema. Explico: lá no Fast a MasterData1 tem .Height = 2,80. Porém, via comando DMFastReport.frxReport1.FindObject( 'MasterData1' ) as TFrxMasterData).Height := VNovaAltura teu tenho que colocar VNovaAltura=110 para que a banda fique mais ou menos com a mesma altura. Se colocar 3,00, por exemplo, fica super reduzida a altura da da banda. Ao que parece o Fast trabalha com cm (2,80) e no Delphi é em pixels. É isso mesmo? Tem como mudar isso? Obrigado. --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu Suporte que o componente principal do relatório se chama frxReport1 e o nome da banda é MasterData1 ficaria assim: (frxReport1.FindObject( 'MasterData1' ) as TFrxMasterData).Height := 3; essa é a forma e acessar os componentes que estão no Editor do relatório; baixe todos os arquivos de documentação que estão no site do Fast que vai ter isso tudinho.. o fast tem uma curva de aprendizado um pouco mais demorada, mais vale a pena viu, eu uso desde 2002 e não pretendo mudar. voce vai se impressionar com a facilidade para exportar os relatórios para outros formatos. 2008/9/26 valdir [EMAIL PROTECTED] Lá vai então uma dúvida meu caro Eduardo, Quero fazer um relatório de etiquetas onde o usuário possa escolher dentre outras coisas, a altura da etiqueta e o número de colunas. Num form do D7 coloco um edit onde o usuário informa esses dois valores. Minha dúvida: como atribuo esse valor à banda master lá no Fast? Obrigado Valdir - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, September 26, 2008 5:05 PM Subject: Re: [delphi-br] Apostila sobre FastReport Olhem no site do desenvolvedor: http://fast-report.com/en/download/fast-report-4-download.html tem toda a documentação e os demos.. junto com o componente já ve um mega demo. se eu puder ajudar mais, estou às ordens. 2008/9/26 valdir [EMAIL PROTECTED]valdirdill%40infolivre.com.br Prezado Alisson, Também estou nessa. Baixei a versão trial do componente . Pelo que li ele só tem 15 dias para testes e a ajuda muito pouca. Postei algumas dúvidas iniciais em alguns grupos, mas não obtive muito sucesso. Tem um grupo Yahoo FastReportBrasil onde consegui baixar um manual (.hlp) em inglês. Tá na seção de arquivos. Não é muito, mas acho que pode ajudar. Abs Valdir - Original Message - From: Alisson To: delphi-br@yahoogrupos.com.br delphi-br% 40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Friday, September 26, 2008 4:42 PM Subject: [delphi-br] Apostila sobre FastReport Pessoal, Baixei o trial do FastReport para teste, mas quando vi a quantidade de componentes até assustei. Se for tentar usar sem uma ajuda, vou demorar um tempão pra decidir se o compro ou não. Não tenho tanto tempo assim pra decidir, por issso peço se alguém tiver alguma apostila ou qualquer outra tipo de instrução que me envie. Vou dar preferência para impressão matricial e elaboração do relatório linha a linha da maneira que se faz no RDPrint. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.169 / Virus Database: 270.7.3/1693 - Release Date: 26/9/2008 07:35 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.169 / Virus Database: 270.7.3/1693 - Release Date: 26/9/2008 07:35 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Etiquetas com Fast Report
Olá, Estou migrando (ainda pensando) do Fortes para o Fast. Um dos motivos é justamente que o Fortes não oferece opções para se fazer relatórios decentes de etiquetas. Iniciei esta semana no Fast e ainda estou testando. Minha dúvida agora é a seguinte: Pretendo criar um relatório onde o usuário possa optar entre várias escolhas (formato do papel, número de linhas e colunas de etiquetas, distância entre etiquetas, altura, campos a serem impressos, etc. etc.) Pelo que andei lendo, para esses casos, o correto seria criar um modelo para cada opção. Obviamente no caso exposto, isso seria inviável, já que teríamos por baixo, uns 25 modelos. Pergunto: o Fast não oferece opção para se alterar propriedades como por exemplo a columns da banda em tempo de projeto (vida código)? Como? Qualquer dica é bem vinda. Obrigado Valdir
[delphi-br] Web Services
Estou tentando aprender sobre web services xml e gostaria de uma ajuda, se possível. Utilizei o exemplo do vídeo do Guinther Pauli e criei uma pequena aplicação em Delphi 7 cuja camada servidor do WS gera o arquivo project1.dll. Através da camada client (consumidora do WS), acesso a função normalmente, mas somente local: Esta é a linha que coloco no browser: http://localhost/scripts/project1.dll/wsdl/ISoma (ISoma é a função interna no WS). Minha dúvida é como disponibilizar o WS em meu site. Transferi o arquivo para o site e tentei consumir assim http://www.meusite.com.br/project1.dll/wsdl/ISoma, mas retorna erro 404 (file not found). Contatei o pessoal da hospedagem e me dissaram que o servidor tem suporte nativo a WS XML. O que mais tenho que configurar para que possa disponibilizar o WS sem ser apenas local? obrigado.
[delphi-br] Erro Delphi 2007
Prezados, Para gravar várias tabelas numa mesma rotina e só gravar as alterações de todas (da primeira até a última) ou de nenhuma, utilizo a função abaixo que funciona legal no D7; uses DBxpress; VTransIniciada : TTransactionDesc; VTransIniciada.TransactionID := 1; VTransIniciada.IsolationLevel := xilReadCommitted; SQLConnection1.StartTransaction(VTransIniciada); ClientDataSet1.Open; ClientDataSet1.Insert; ... ClientDataSet2.Open; ClientDataSet2.Insert; ... if ClientDataSet1.ApplyUpdates(0) = 0 then if ClientDataSet2.ApplyUpdates(0) = 0 then SQLConnection.Commit(VTransIniciada) else SQLConnection.Rollback(VTransIniciada); Comecei a testar o D2007 e me retornou o erro undeclared identifier xilreadCommitted na rotina acima. Também dá um aviso (warning) : DBxpress' is deprecated. Alguém já passou por isso e pode me ajudar? Obrigado
[delphi-br] D2007 - Erro
Prezados, Para gravar várias tabelas numa mesma rotina e só gravar as alterações de todas (da primeira até a última) ou de nenhuma, utilizo a função abaixo que funciona legal no D7; uses DBxpress; VTransIniciada : TTransactionDesc; VTransIniciada.TransactionID := 1; VTransIniciada.IsolationLevel := xilReadCommitted; SQLConnection1.StartTransaction(VTransIniciada); ClientDataSet1.Open; ClientDataSet1.Insert; ... ClientDataSet2.Open; ClientDataSet2.Insert; ... if ClientDataSet1.ApplyUpdates(0) = 0 then if ClientDataSet2.ApplyUpdates(0) = 0 then SQLConnection.Commit(VTransIniciada) else SQLConnection.Rollback(VTransIniciada); Comecei a testar o D2007 e me retornou o erro undeclared identifier xilreadCommitted na rotina acima. Também dá um aviso (warning) : DBxpress' is deprecated. Alguém já passou por isso e pode me ajudar? Obrigado Valdir Dill
