João Paulo Taraciuk

Amigo, para exportar para .doc eu uso esta aqui form1.QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('c:\Teste1.doc')); Valeu!!!

Olá a todos, estou encontrando dificuldade para enviar um arquivo para a impressora deixando ele alinhado em colunas, ele fica assim O código está assim Writeln(Texto,''+ZQuery3.FieldByName('Quantidade').AsString + ' '+ 'x'+' '+formatFloat('#0.00',ZQuery3.FieldByName('Unitario').AsFloat)+ ' = '+formatFloat('#0.00',ZQuery3.FieldByName('Total').AsFloat)); e sai assim, fora de ordem, gostaria de saber também como faço para aumentar a fonte nas impressora 40 colunas Bematech Se alguém puder me dar uma dica, eu agradeço Valeu!!!

Esta é uma situação frequente quando os Analistas e Progrmadores saem a noite para se divertir: ÀS 23:00Hs - CHEGANDO NA BALADA... SELECT MULHER FROM BALADA WHERE (GERAL = 'LINDA' OR GERAL = 'GOSTOSA') AND BUNDA >= 95 AND PEITOS >= 80 AND IDADE BETWEEN '18' AND '30' AND CARATER = 'SAFADA' AND ESTADO = 'ESTUDANTE'; ÀS 00:00Hs - AINDA NÃO CONSEGUIU NINGUÉM E JÁ ESTÁ COM UMAS CERVEJAS NO SANGUE... SELECT MULHER FROM BALADA WHERE GERAL = 'GOSTOSA' AND BUNDA >= 80 AND PEITOS >= 70 AND IDADE BETWEEN '16' AND '35' AND CARATER = 'MAIS OU MENOS SAFADA' AND ESTADO = 'SEM OCUPAÇÃO'; ÀS 01:30Hs - COMEÇANDO A FICAR DESESPERADO... SELECT MULHER FROM BALADA WHERE GERAL = 'AJEITADA' AND BUNDA >= 70 AND PEITOS >= 40 AND IDADE BETWEEN '16' AND '40' CARATER IS NULL AND ESTADO = 'LARGADA'; ÀS 03:00Hs - DESESPERADO!!!... SELECT MULHER FROM BALADA WHERE GERAL LIKE '%BAGULHO%' AND BUNDA 0 AND PEITOS 0 AND IDADE BETWEEN '14' AND '50' ESTADO = 'EMPREGADA'; ÀS 04:00Hs - NA FILA PARA PAGAR E IR EMBORA DA BALADA... SELECT MULHER FROM BALADA

Então amigo, antes de mais nada, obrigado pela atenção, mas, pelo que eu entendi, na versão de banco que eu utilizo, não tem a opção de subselect, e o erro acontece exatamente onde inicia o primeiro subselect, e eu tive de dar uma parada com os relatórios, para terminar a parte de vendas e por o sistema para rodar, mas logo logo vou ter de mecher de novo, aí a gente tenta matar essa aí. Eu utilizo o banco MySql 3.23(Não sei se teria uma ferramenta gráfica para trabalhar com ele)e Delphi 7, com o ZEOS 6.5 Obrigado!!!

Então pessoal, estava procurado uma maneira de imprimir diretamente na impressora, aí, seguindo a dica de um amigo na net, coloquei o componente VDO 3.0.0, mas ocorre o seguinte, eu tenho alguns Panels no Projeto, que no OnEnter deles, os mesmos devem mudar de cor, e, colocando o VDO, eles não mudam de cor, nem aceitam cores diferentes, quando o projeto vai é executado, cores tipo, clYellow, clBlue, clBlack. Alguém saberia me explicar a razão disso acontecer? Utilizo Delphi 7, no WinXP. Obrigado!!

Ok Micheus, vou fazer isso, Principalmente com os forms de relatórios Obrigado !!!

O Projeto está disposto dessa maneira Bom, então, prezumo que não há nada errado com o código, como estão todos sendo criados na inicialização, como o amigo Micheus frizou, realmente vai demorar a inicialização. Obrigado ao Micheus e Pirambu! pela atenção Valeu!!

Desculpa amigo, mas não entendi a sua pergunta o que eu posso dizer é que, se eu coloco um banco zerado, ele abre um pouco mais rápido, mas se tem alguns dados no banco, ele já demora uma eternidade para abrir. Eu esqueci de colocar no post, mas para fechar o sistema também demora, tipo, fecha a tela principal mas fica como se fosse minimizado por um tempo, isso com o banco tendo dados, com ele zerado, fecha rapidinho. E, desculpa pela minha falta de experiência, mas, como eu faço para saber de que forma as tabelas estão sendo abertas?

Olá pessoal, seguinte, peguei um projeto já em andamento para finalizar, tenho pouca experiência em programação, o problema é o seguinte, quando vai abrir o sistema, ele demora um bocado, fica na tela Splash durante 1 minuto e 20 segundos para aí abrir a tela inicial, gostaria de saber o que poderia estar errado, ou o que poderia ser feito para diminuir este carregamento o Prj está com 138 forms, utilizo Delphi 7, Banco MySql 3.23 Ele demora tanto se for abrir direto do executável ou compilado pelo Delphi Qualquer dica, eu agradeço Valeu!!!

Valeu Micheus, Obrigado Té +++

Olá pessoal, seguinte, estou fazendo um fechamento de caixa, aí ocorre o seguinte, o usuário tira o valor que ele quiser do total que está no caixa, aí fica o saldo na gaveta, então eu coloquei dois RadioButton, um dizendo que o caixa será utilizado ainda hoje, e outro diz que será utilizado amanhã,Mais ou menos assim Tem 500,00 no caixa, tira 450,00 e no saldo fica 50,00, ok a minha dúvida está no seguinte, se for selecionado amanhã, ele tem que pegar a data de hoje e incluir mais um dia, e colocar no insert, e não estou conseguindo inserir um dia além de hoje na data É isso... Obrigado!!!

Deu certo, para mim funcionou com a segunda dica, Obrigado Denis Courcy e Micheus pela atenção Valeu!!!

Infelizmente não deu certo, o campo Tipo_fatura está Varchar, assim como o campo nome, e quando eu coloco o código desta maneira, ele mostra somente 0 no campo onde iria o resultado da pesquisa Eu utilizo MySql 3.23 e Delphi 7

Olá pessoal, estou realizando o seguinte select para um fechamento diário de caixa select id_contarecebidas "Código da Despesa", descricao "Descrição", valor "Valor", Nome "Cliente",Tipo_fatura "Forma de Pag" from contas_recebidas O que eu queria fazer é o seguinte, juntar o campo Nome e o campo Tipo_fatura, mostrar os dois na mesma coluna do DBGrid, com o título de Histórico da Movimentação, mais ou menos isso Se não for possível no DBGrid, poderia ser em outro componente Se alguém tiver idéias para me ajudar, eu agradeço Valeu!!!!!

Já encontrei a resposta, fui em Search > Find> e digitei ZConnection, e apareceu, realmente tinha duas conexões Valeu!!!!

Fui compilar um projeto em uma máquina da rede, como o banco de dados está no meu micro, coloquei o meu IP na ZConnection, mas ao compilar na máquina cliente, ele diz que não é possível conectar o banco em LocalHost, aí dando uma olhada no WinMySqlAdmin, aparecem duas conexões ao executar o sistema, aí, como eu peguei o projeto em andamento não sei onde ficou perdida mais uma ZConnection, gostaria de saber se tem uma maneira mais prática de encontrar um componente no meu projeto, ou vou ter que olhar form por form(Tem uns 80). No meu caso, acredito que o projeto está com duas ZConnection. Valeu!!!!

Já resolvi aqui, Desinstalei tudo, e instalei todos os componentes novamente, aí, como num passe de mágicas funcionou, eu já tinha feito isso umas três vezes, mas na quarta Funcionou. Valeu!!!

Pois é Micheus, o Sistema estava em outro micro, aí transferi para o micro atual, transferi vários projetos que estavam no micro antigo, todos eles estavam funcionando direitinho, e agora, nenhum funciona, o que poderia ser?

Olá pessoal, seguinte, tive que instalar o delphi, mysql, ZEOS e tudo mais novamente no micro, pois o mesmo foi formatado, então, quando coloco para compilar o meu projeto dá o seguinte erro Aí não chega nem a compilar, o que poderia ser? utilizo banco MySql 3.23 ZEOS 6.5.1 Delphi 7 Se alguém puder me ajudar, eu agradeço!!! Valeu.

Infelizmente não consegui, esta dando o erro You have an error in SQL sintax near 'select distinct nome_vendedor from vendas where vd_data between'2008-01-01'and'at line 1

Olá Micheus, ainda estou tentando utilizar o seu código, que por sinal, é exatamente a consulta que eu preciso, bom, vamos lá, devido à minha falta de experiência, não estou conseguindo fazê-lo funcionar como deveria, vou passar o código da maneira que eu consegui fazer procedure Tfrm_relatoriovendas.selectano; begin ZQuery_vendas.Active:=False; ZQuery_vendas.SQL.Clear; ZQuery_vendas.SQL.Add('select nome_vendedor, total_jan'); ZQuery_vendas.SQL.Add('from (select distinct nome_vendedor from '); ZQuery_vendas.SQL.Add('vendedores where vendas.vd_data between :dat_inicio and :dat_fim as cnsempregadovenda'); ZQuery_vendas.SQL.Add('left outer join(select nome_vendedor as nome_vendedor_jan, sum(total)total_jan from items_vendas, vendas, vendedores'); ZQuery_vendas.SQL.Add('where extract(month from vd_data)=1 and extract(year from vd_data)= extract(year from :dat_inicio)'); ZQuery_vendas.SQL.Add('group by nome_vendedor)as cnsvendajan on(cnsvendajan.nome_vendedor_jan=csnvendedores.nome_vendedor'); ZQuery_vendas.ParamByName('dat_inicio').Value:=StrToDate(MaskEdit1.Text); ZQuery_vendas.ParamByName('dat_fim').Value:=StrToDate(MaskEdit2.Text); ZQuery_vendas.Active:=True; end; procedure Tfrm_relatoriovendas.Button1Click(Sender: TObject); begin selectano(); end; No meu caso, como eu já peguei o sistema em andamento, tenho que tirar os dados de três tabelas, Tabela Vendedores id_vendedor nome_vendedor Tabela items_vendas id_pedido total Tabela vendas vd_id_pedido vd_data vd_id_vendedor Se eu não coloco nada no maskedit, diz que ' / / 'não é uma data válida, mas se eu coloco no maskEdit1 01/01/2007, dá o seguinte erro 'You have an error in your SQL sintax near'select distinct nome_vendedor from endedores where vendas.vd_data between '2007'at line 1'' Se puder me dizer onde estou errando, eu agradeço. Obrigado!!

Então Micheus, antes de mais nada, obrigado pela ajuda, tentando montar a pesquisa aqui eu fiz da seguinte maneira, estou jogando um select em cada ZQuery para testar em DBGrid, a Primeira ficou assim SELECT DISTINCT nome_vendedor,vd_data FROM //Onde nome_vendedor é da tabela nendedores e vd_data é da tabela vendas vendedores, vendas WHERE vendas.vd_data BETWEEN '2008-01-01' AND '2008-12-31' Aí tranquilo, apareceu lá o nome do vendedor e as datas das vendas a segunda ficou dessa maneira SELECT nome_vendedor, SUM(TOTAL) as total_jan, vd_data //Onde TOTAL é da tabela Items_vendas FROM items_vendas, vendedores, vendas where extract(month from vd_data)= 1 and extract(year from vd_data) {Aqui se eu coloco um ano por exemplo =2008, ele não retorna nada na pesquisa, da maneira que está, ele retorna o nome do vendedor, o valor total e uma data , no meu caso retornou data 02/01/2008 GROUP BY nome_vendedor Eu não entendi como ou de onde saiu aquele SALES_REP_<MES_NOME>e aquele <DATA_INICIAL> do seu exemplo Ei tentei colocar nome_vendedor_jan, mas como não tem este campo na tabela, não deu certo. Resumindo, eu consegui fazer as duas primeiras selects, tentei baixar o exemplo para verificar, mas ele parece em formato .fdb, aí eu não consegui abrí-lo

Carlos, no site da Bematech tem um exemplo completo de implantação da impressora fiscal no sistema http://www.bematech.com.br/suporte/dwn_fisc.asp http://www.bematech.com.br/desenvolvedores...cais%20Bematech O download so exemplo neste link http://www.bematech.com.br/suporte/downloa...emplodelphi.zip Tem um emulador de impressora também para testar no seu sistema http://www.bematech.com.br/suporte/downloa...mul2100v101.zip E a dll Bemafi32.dll que facilitará o seu trabalho, no site vem um arquivo que explica como configurar a dll no download http://www.bematech.com.br/suporte/downloa...in/bemafi32.zip Dá uma olhada no site da Bematech que tem bastante informações, e se necessário pode entrar em contato por telefone ou e-mail com o suporte Bematech que eles darão todos os detalhes necessários Verifique http://www.bematech.com.br/desenvolvedores/sprtdesnv.asp Valeu!!!

Preciso fazer uma consulta que contenha vendas de um determinado período, separado por mês e por vendedor, mais ou menos dessa maneira: Vendedor------JAN/06----FEV/06-----MAR/06----ABR/06-----MAI/06 ...Até Dezembro Vendedor1----800.00----200.00-----500.00-----300.00-----400.00 Vendedor2----700.00----500.00-----300.00-----150.00-----200.00 -----------------1500.00---700.00-----800.00-----450.00-----600.00 ---------------------------------------------------Total geral : 4050.00 Vendedor-----JAN/07----FEV/07------MAR/07----ABR/07-----MAI/07 ... Até Dezembro Vendedor1----800.00----200.00-----500.00-----300.00-----400.00 Vendedor2----700.00----500.00-----300.00-----150.00-----200.00 -----------------1500.00---700.00-----800.00-----450.00-----600.00 ---------------------------------------------------Total geral : 4050.00 As tabelas estão assim Tabela Vendas VD_ID_pedido VD_DATA VD_ID_VENDEDOR Tabela Vendedores ID_VENDEDOR NOME_VENDEDOR Tabela Items_vendas ID_PEDIDO TOTAL Elas se cruzam assim Vendas.VD_ID_PEDIDO=Items_vendas.ID_PEDIDO Vendas.VD_ID_VENDEDOR=Vendedores.ID_VENDEDOR Mais ou menos assim, mas eu não estou conseguindo, o cliente quer que saia no mesmo relatório separado por vendedor, por mês e depois por ano, até três anos no mesmo relatório, e não estou conseguindo realizar este relatório, Utilizo o Delphi 7, Banco de dados MySql e o ZEOS para comunicação. Gostaria de saber como eu poderia realizar esse relatório, para separar as colunas por mês e por o títuo nelas, se eu deveria utilizar uma ZQuery para cada mês, ou outra maneira, poderia ser no QReport ou mesmo em um txt. Se alguém puder me ajudar, eu agradeço Abraço!!!

Olá pessoal, estou tendo um problema de autenticação com o IdSMTP, da seguinte maneira, se eu coloco o meu e-mail do yahoo, ele envia normalmente, então eu criei um e-mail no yahoo para um cliente, para ele enviar as msgs, mas se eu coloco os dados dele no IdSMTP e tento enviar dá o erro authorization failed (#5.7.0) , os dados do Idsmtp estão dessa maneira AuthenticationType : AtLogin Host : smtp.mail.yahoo.com.br password : senha Username : usuario e o Idmessage From>Adress : usuario@yahoo.com.br From>name : usuario Tem algum detalhe que eu estou esquecendo ? Desde já agradeço