Rodrigao

Boa noite a todos. Estou com um problema que estou tendo dificuldades para resolver. Meu sistema imprime um recibo de venda numa impressora lx 300. Gostaria de saber se alguém sabe, como que no inicio da impressão, o carro retorne para o lugar correto de iniciar a impressao. Ex. Faz a venda, imprime o recibo e joga a folha para cima para destaque, dae na proxima impressão, a impressora imprime no meio da pagina, gostaria que a folha retornasse para começar imprimir, evitando que o cliente tenha que fazer isso manualmente, venda a venda. At. Rodrigo

Continuo Verificando aqui, e parece que o Fortes Grava o ultimo relatorio e sempre exibe o mesmo. Ex. Se faço uma venda e entra uma receita no caixa de 100,00 vamos supor.... dae entro la no caixa e mando imprimir aparece a entrada de 100,00 mas se eu saio do sistema e entro novamente, abro o caixa e imprimo um relatorio, aparece as outras entradas e eu vou em vendas e faço uma venda de 100,00 quando vou no caixa novamente, imprimo o relatorio não aparece a receita de 100,00, parece que fica gravado o primeiro relatorio que eu tirei sem o valor de 100,00. Dae fecho o sistema, entro novamente e abro o caixa e mando imprimir o relatorio, dae aparece o valor de 100,00. não sei se deu pra entender... se puderem ajudar... Atenciosamente, Rodrigo

Voce mesmo deu a resposta ..... quando voce reinicia o sistema, o que acontece com as suas tabelas ? elas se fecham e depois abrem para usar os registros. verifique abertura e fechamento das tabelas abraço Bom dia Jonas, Obrigado pela Resposta... Mas faço Assim... //Aqui abro todas as tabelas antes de abrir o relatorio IBReceitas.Close; IBReceitas.SQL.Clear; IBReceitas.SQL.Add('SELECT * FROM RECEITASCAIXA(:DI, :CAIXA)'); IBReceitas.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value; IBReceitas.ParamByName('CAIXA').AsString:= Caixa.Caption; IBReceitas.Open; IBRetirada.Close; IBRetirada.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value; IBRetirada.ParamByName('CAIXA').AsString:= '0'; IBRetirada.Open; IBEmprestimo.Close; IBEmprestimo.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value; IBEmprestimo.ParamByName('CAIXA').AsString:= '0'; IBEmprestimo.Open; IBDespesas.Close; IBDespesas.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value; IBDespesas.ParamByName('CAIXA').AsString:= '0'; IBDespesas.Open; IBCDebito.Close; IBCDebito.SQL.Clear; IBCDebito.SQL.Add('Select Codigo,Credito,cast(CLIENTE AS VARCHAR(100)) AS Historico,Tipo,CAST(EMISSAO AS DATE) AS Data,Desconto,Troco,JurosCobrado from CARTAO where EMISSAO=:DI AND TIPOCARTAO='+QUOTEDSTR('J')); IBCDebito.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value; IBCDebito.Open; IBCCredito.Close; IBCCredito.SQL.Clear; IBCCredito.SQL.Add('Select Codigo,Credito,cast(CLIENTE AS VARCHAR(100)) AS Historico,Tipo,CAST(EMISSAO AS DATE) AS Data,Desconto,Troco,JurosCobrado from CARTAO where EMISSAO=:DI and TIPOCARTAO='+ QUOTEDSTR('L')); IBCCredito.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value; IBCCredito.Open; // Aqui chamo o Relatorio Application.CreateForm(TFQRCDiario, FQRCDiario); // aqui deve ser igual para todos os relatorios FQRCDiario.Endereco.Caption:= dmx.TabEmpresaEndereco.Value + ' - ' + DMX.TabEmpresaBAIRRO.Value + ' - ' + dmx.TabEmpresaCIDADE.Value + ' - ' + DMX.TabEmpresaESTADO.Value; FQRCDiario.TELEFONE.Caption:= DMX.TabEmpresaFONE.Value + ' email : ' + DMX.TabEmpresaEMAIL.Value + ' homepage: ' + dmx.TabEmpresaHOME.Value; FQRCDiario.rlData.Caption:= 'Data: ' + Abertura.Caption; if DMX.TabEmpresaBRANCO.Value = 'S' then begin FQRCDiario.RLDBText1.Left:= FQRCDiario.RLDBImage1.Left; FQRCDiario.Endereco.Left:= FQRCDiario.RLDBImage1.Left +2; FQRCDiario.TELEFONE.Left:= FQRCDiario.RLDBImage1.Left +2; end else begin FQRCDiario.RLDBImage1.Height:= DMX.TabEmpresaTAM1.Value; FQRCDiario.RLDBImage1.Width:= DMX.TabEmpresaTAM2.Value; FQRCDiario.rlDBText1.Left:= FQRCDiario.RLDBImage1.Left + FQRCDiario.RLDBImage1.Width + 15; FQRCDiario.Endereco.Left:= FQRCDiario.RLDBImage1.Left + FQRCDiario.RLDBImage1.Width + 17; FQRCDiario.TELEFONE.Left:= FQRCDiario.RLDBImage1.Left + FQRCDiario.RLDBImage1.Width + 17; end; FQRCDiario.RLLabel2.Caption:= FormatFloat('0.00', StrToFloat(CurrToStr(StrToCurr(Receitas.Caption)+ StrToCurr(Cheques.Caption)+ StrToCurr(CredAnt.Caption)))); FQRCDiario.RLLabel3.Caption:= FormatFloat('0.00', StrToFloat(Despesas.Caption)); FQRCDiario.RLLabel5.Caption:= FormatFloat('0.00', StrToFloat(Retirada.Caption)); FQRCDiario.RLLabel12.Caption:= FormatFloat('0.00', StrToFloat(Emprestimo.Caption)); FQRCDiario.RLLabel15.Caption:= FormatFloat('0.00', StrToFloat(CDebito.Caption)); FQRCDiario.RLLabel18.Caption:= FormatFloat('0.00', StrToFloat(CCredito.Caption)); FQRCDiario.RLLabel22.Caption:= FormatFloat('0.00', StrToFloat(Inicial.Caption)); FQRCDiario.RLLabel42.Caption:= FormatFloat('0.00', StrToFloat(SaldoAtual.Caption)); FQRCDiario.RLLabel24.Caption:= FormatFloat('0.00', StrToFloat(Receitas.Caption)); FQRCDiario.RLLabel27.Caption:= FormatFloat('0.00', StrToFloat(Cheques.Caption)); FQRCDiario.RLLabel28.Caption:= FormatFloat('0.00', StrToFloat(CredAnt.Caption)); FQRCDiario.RLLabel37.Caption:= FormatFloat('0.00', StrToFloat(Despesas.Caption)); FQRCDiario.RLLabel38.Caption:= FormatFloat('0.00', StrToFloat(Retirada.Caption)); FQRCDiario.RLLabel31.Caption:= FormatFloat('0.00', StrToFloat(Emprestimo.Caption)); FQRCDiario.RLLabel49.Caption:= FormatFloat('0.00', StrToFloat(CCredito.Caption)); FQRCDiario.RLLabel47.Caption:= FormatFloat('0.00', StrToFloat(Crediario.Caption)); FQRCDiario.RLLabel50.Caption:= FormatFloat('0.00', StrToFloat(CDebito.Caption)); FQRCDiario.RLLabel48.Caption:= FormatFloat('0.00', StrToFloat(Deposito.Caption)); FQRCDiario.RLLabel33.Caption:= FormatFloat('0.00', StrToFloat(CurrToStr(StrToCurr(Emprestimo.Caption)+StrToCurr(CredAnt.Caption)+StrToCurr(Cheques.Caption)+StrToCurr(Receitas.Caption)))); FQRCDiario.RLLabel40.Caption:= FormatFloat('0.00', StrToFloat(CurrToStr(StrToCurr(Despesas.Caption)+StrToCurr(Retirada.Caption)))); FQRCDiario.RLReport1.Preview; FQRCDiario.Release; Eu abro as tabelas antes de imprimir o relatorio. Atenciosamente, Rodrigo

Bom dia a todos. Estou com o seguinte problema. Tenho a tabela CaixaAux e Caixa. No RLReport Conecto o DataSource DSCaixaAux. coloquei 5 rlSubdetails onde via sql separo o que é receita, despesa, cheque etc. em uma rlsubdetail uso a qry ibreceitas e ligo a datasource dsreceitas, para resumir vou indentificar somente esta. coloco um rlband como rbdetail e coloco os rldbtext ligados ao ibreceitas. beleza. Quando rodo o sistema, faço uma venda a vista por exemplo. entra no caixa como receita. imprimo o relatorio e esta receita não aparece na banda. Dae reinicio o sistema, abro caixa imprimo o relatorio e dae aparece. E isso acontece com os outros rlsubdetails tb. já tentei mudar tudo quanto é opção e o problema persiste. se puderem ajudar... Atenciosamente, Rodrigo

Bom dia Jhonas, Descobri onde estava o erro. if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Assign(Clipboard); // assim da erro... if Clipboard.HasFormat(CF_BITMAP) then Image1.Picture.Bitmap.Assign(Clipboard); // assim ta tudo certo. Agora parece tão simples...hhehehe Obrigado pela coloboração AT. Rodrigo

Boa Noite Jhonas, Desculpa a Demora na Resposta, Mas ainda continua o mesmo problema com a alteração sugerida Bitmap is not valid na hora de salvar. At. Rodrigo

Boa tarde Jhonas, obrigado pela resposta, mas o que acontece é que na linha Image1.Picture.savetofile('c:\imagem.bmp'); ele faz que salva mas não salva, ele cria o arquivo C:\Imagem.bmp mas se você localizar o arquivo e tentar abrir ele diz que a imagem é invalida. então quando vai converter diz que o bitmap é invalido. Atenciosamente, Rodrigo

Bom dia a todos, Tenho um procedimento na meu sistema que é mais ou menos assim... O cliente clica em print screen para copiar uma tela. Depois abre o paint brush e seleciona a area que ele acha conveniente. Clica em CTRL + C para Copiar. No meu sistema eu carrego essa imagem selecionada assim: if Clipboard.HasFormat(CF_PICTURE) then begin Image1.Picture.Assign(Clipboard); A imagem carrega no TImage mas quando eu dou o comando Image1.Picture.savetofile('c:\imagem1.bmp'); por exemplo ele da a seguinte mensagem de erro "Bitmap is not valid". Se alguém puder me ajudar... Agradecido Rodrigo

opa boa noite fiz as correções sugeridas mas mesmo assim ainda continua não funcionando AT. Rodrigo

Bom dia a todos, alguém pode me ajudar a ver o que estou fazendo de errado? Sou iniciante em html e não to conseguindo resolver isso, já perdi umas noites de sono. <script src="http://maps.google.com/?file=api&amp;v=2.x&amp; key=' + Quotedstr(gkey) + '''' + ' type="text/javascritp"></scritp> <script type="text/javascript"> var map; var gdir; var geocoder = null; var addressMarker; function initialize() { if (GBrowserIsCompatible()) { map= new GMap2(document.getElementById("map_canvas")); gdir = new GDirections(map,document.getElementById("directions")); GEvent.addListener(gdir, "addoverlay", onGDirectionsLoad); GEvent.addListener(gdir, "error", handleErrors); setDirections(' + '''' + AOrigem + '''' + ',' + '''' + ADestino + '''' + ','+'''' + ALocalidade + '''' + '); } } function setDirections(fromAddress, toAddress, locale) { gdir.load("from: " + fromAddress + " to: " + toAddress, { "locale": locale }); } function onGDirectionsLoad() { var poly = gdir.getPolyline(); if (poly.getVertexCount() > 100) { alert("Esta rota possui muitos vertices."); return; } var baseUrl = "http://maps.google.com/staticmap?"; var params = []; params.push("center=" + map.getCenter().lat().toFixed(6) + "," + map.getCenter().lgn().toFixed(6)); var markersArray = []; markersArray.push(poly.getVertex(0).toUrlValue(5) + "greena"); markersArray.push(poly.getVertex(poly.gerVertexCount() -1).toUrlValue(5) + ", greenb"); params.push("markers=" + markersArray.join("|")); var polyParams ="rgba:0x0000FF80,weight:5|"; var polyLatLngs = []; for (var j = 0; j < poly.getVertexCount(); j++) { polyLatLngs.push(poly.getVertex(j).lat().toFixed(5) + "," + poly.getVertex(j).lng().toFixed(5)); } params.push("path=" + polyParams + polyLatLngs.join("|")); params.push("zoom=" + map.getZoom()); params.push("size=310x400"); var img = document.createElement("img"); img.src = baseUrl + params.join("&") + "&key='+ gKey + '"; document.getElementById("staticMapIMG").innerHTML = ""; document.getElementById("staticMapIMG").appendChild(img); document.getElementById("staticMapURL").innerHTML = baseUrl + params.join("&") + "&key=YOUR_KEY_HERE"; } </script> </head> <body onload="initialize()" onunload="GUnload()"> <h2>Exemplo Mapas Clube Delphi</h2> <form action="#" onsubmit="setDirections(' + '''' + AOrigem + '''' + ',' + '''' + ADestino + '''' + ','+'''' + ALocalidade + '''' '); return false"> <input type="hidden" size="25" id="fromAddress" name="from" value="' + '''' + AOrigem + '''' + '" <input type="hidden" size="25" id="toAddress" name="to" value="' + '''' + ADestino + '''' +'" </form> <br/> <table class="directions"> <tr><th>Direções</th><Mapa</th></tr> <tr> <td valign="top"><div id="directions" style="width:275px"></div></td> <td valign="top"><div id="map_canvas" style="width:500px"; height: 450px"></div></td> </tr> </table> <div id="staticMapIMG" style="width: 500px; margin-left: 20px; height: 410px"></div> <br clear="all"/> <h3><img src="http://www.google.com/uds/solutions/wizards/img/3b.gif" style="vertical-align:middle"/>Generate URL</h3> <p>The Static Maps Api requires a free API key thats associated with your <a href="http://www.google.com/accounts/"> Google Account</a> and the URL of your web site. You can sign up for one <a href="http://code.google.com/apis/maps/signup.html">here</a>, and substitute it as teh value of the "&key=" parameter in te URL below. <br/> <p> </p> pre id="staticMapURL" class=-"code"> </pre> </body> </html> Se puderem me ajudar Agradecido

Boa tarde Micheus, Fiz o que você me orientou, mas a unica mudança foi que no desenho passou a aparecer o valor da field Venceu, no Caso "S" e "N" junto com os desenhos. É possivel deixar aquela linha de seleção mais clara? De repente tb seria uma boa solução. Agradecido. Rodrigo

Boa noite Micheus, desculpe a demora a responder, foi porque fui operado esta semana e fiquei bem longe dos micros...hehe vamos la o codigo completo é: if Date > DMX.IBChequeDataVencimento.Value then begin // já com as mudanças sugeridas... if DMX.IBChequeVENCEU.Value = 'S' then DBGrid1.Canvas.Font.Color:= clBlue else DBGrid1.Canvas.Font.Color:= clred; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); if Column.Field = DMX.IBChequeVenceu then begin DBGrid1.Canvas.FillRect(Rect); if DMX.IBChequeVenceu.Value = 'S' then ImageList1.Draw(DBGrid1.Canvas, Rect.Left + 14, Rect.Top + 1, 1) else ImageList1.Draw(DBGrid1.Canvas, Rect.Left + 14, Rect.Top + 1, 0); end; deixa eu ver se consigo explicar melhor... a linha do Dbgrid, aquela que seleciona a linha é azul escura certo. Se a opção for a segunda o fonte é pintada de vermelho e quando a linha azul de seleçao fica em cima do vermelho, o dbgrid muda a cor da fonte para branco, ao qual fica a linha de seleção em azul e a fonte de branco fica bem visivel. Agora quando a opção for a primeira ele pinta a fonte de azul e a cor da linha de seleção do dbgrid é azul escuro e não muda a fonte para branco, fica azul mesmo. Dae não da pra enchegar nada, fica ilegivel aquela linha selecionada. Atenciosamente, Rodrigo

Bom dia a todos... Estou fanzendo uma rotina de Conta Corrente, onde quando as parcelas são baixadas ficam em Azul e as parcelas não baixadas e vencidas ficam em vermelho. O problema é que no Vermelho quando a linha azul da seleção do dbgrid passa por cima dela a cor de fundo da celula fica azul escuro e automatico fica branco na fonte. Mas no Azul não. Quando a linha de seleção azul escuro passa por cima da fonte que esta em azul ela continua azul... Será que tem como resolver isso? if (Date > DMX.IBChequeDataVencimento.Value) and (DMX.IBChequeVENCEU.Value <> 'S') then begin DBGrid1.Canvas.Font.Color:= clred; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; if (Date > DMX.IBChequeDataVencimento.Value) and (DMX.IBChequeVENCEU.Value = 'S') then begin DBGrid1.Canvas.Font.Color:= clBlue; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; Atenciosamente. Rodrigo

Rodrigao, por acaso você formatou a propriedade DisplayFormat do campo adequadamente?Em geral, usar o AsString, deveria retornar o resultado já formatado de acordo com esta propriedade. Abraços Bom dia Micheus, Sim, coloquei no componente 0.00 depois #.00 e perde essa formação. Atenciosamente, Rodrigo

Boa tarde a todos... Peguei uma dica do dbgrid onde mostrava o campo memo em um DBGrid. beleza funcionou certinho, aumente o tamanho da banda onde fica a mensagem e tudo. Só que gostaria de que a mensagem começasse a ser exibida no meio da linha e não no começo. DBGridPLUS1.Canvas.TextRect(Rect, Rect.Left, Rect.Top+15,Column.Field.Text); beleza funcionou 99%. O unico problema é que perdeu todas as propriedades dos outros fields, como Centralizado por ex. alguém já conseguiu ajustar o Top da linha sem perder as propriedades da coluna. Agradecido Rodrigo

Boa tarde a todos... Vou tentar explicar o melhor possível o meu problema: Seguinte, uso atualmente em um programa o componente TMediaPlayer para toca musicas mp3. Até aí funciona perfeitamente. O problema é que agora preciso instalar 2 placas de som com dois TMediaPlayer, um para cada placa de som, onde eu escolheria Placa 1 usada pelo TMediaPlayer1 e Placa 2 usado pela TMediaPlayer 2 onde a maquina terá dois fones de ouvido para cada pessoa onde escolherao musicas diferentes em cada TMediaPlayer, musica 1 toca no Fone de Ouvido 1 e musica 2 toca no fone de ouvido2. O problema é que não consigo achar a propriedade para configurar as placas de som no TMediaPlayer. Se alguém já passou por essa situação e puder me dar um toque agradeço muito. Atenciosamente, Rodrigo

Bom dia a todos Estou desenvolvendo um aplicativo em Delphi que usa impressão direta para impressora. Na maquina local com impressora local funciona tudo maravilha. Mas se imprimir numa maquina da rede com impressora configurada em rede com winxp trava e não imprime. Se alguém tiver uma dica... Agradecido. Rodrigo

Obrigado pela resposta problema é que todo o cliente que abrir minha pagina vai ter que fazer isso? Não ná outro meio? Atenciosamente, Rodrigo.

Bom dia... Estou desenvolvendo uma pagina com Front Page 2003, e inserir uns itens criados em Flash. O problema é que sempre que vou abrir a pagina da a seguinte mensagem: "Para ajudar a proteger sua segurança, o Internet Explorer impediu seu site de exibir conteúdo ativo que possa acessar seu computador..." Dae tem que permitir... Dae ele roda normal... alguém sabe como posso fazer para não aparecer essas mensagens quando eu abrir o meu site? Atenciosamente, Rodrigo

Boa tarde... Estou com o seguinte problema... Estou imprimindo com formulario continuo e impressao direta para impressora. Quando termina a impressao ele joga o papel para cima para o cliente arrancar a folha. Só que quando ele manda imprimir outra página, ela continua imprimindo onde a impressora parou... ou seja na metade da folha em diante... Gostaria de saber se existe uma maneira de configurar em Delphi para que o papel retorne primeiro a posição original e depois comece a imprimir... Agradeço pela ajuda Atenciosamente, Rodrigo

Boa tarde... O meu quickreport é o 3.0.9. E ele só imprime a folha em branco. Esse é o problema. Depois de umas 3 tentativas não imprime nem mais a folha em branco. Atenciosamente, Rodrigo

Boa tarde a todos, Estou com um problema de incompatibilidade de impressossao com o quickreport com a impressora hp 1022 laserjet. Toda vez que mando imprimir imprime um pagina em branco. Se puderem me ajudar... Atenciosamete, Rodrigo

Boa tarde a todos,, Estou tentando me cadastrar na Receita Federal para Impressão de Nota Fiscal. (AUPD). Pra falar a verdade estou um pouco perdido na parte do desenvolvimento e se alguém já tiver experiencia e puder me dar uma ajuda agradeço. 1. Sempre que o sistema gerar uma venda é obrigatorio o sistema imprimir uma N.F ou posso dar a opção para o cliente imprimir ou não, e depois ele se acerte... 2. NSU é o numero sequencial da nota. esse número é o proprio número da N.F? 3. O cliente é obrigado a gerar o arquivo texto ou quem faz isso é o contador. 4. Ref. ao estoque, o sistema deve lançar só notas fiscais ou pode lançar meia nota e depois o cliente se acerte... Se alguém puder me ajudar... Agradecido Rodrigo

Bom dia a todos... Estou configurando meu programa para imprimir Nota Fiscal em Modo -ms dos direto para impressora. Até aí normal. Só que eu não consigo colocar a impressao dentro dos campos da nota. Ex. Se eu configuro o nome, dou espaço aí configuro o endereço, espaço aí configuro Cidade, opa, cidade já cai quase no campo formas de pagamento. Se faço o mesmo processo sem os espaços WriteLn(F,''), os campos também ficam fora. Eu comversei com o rapaz que confeccionou a N.F ele me informou que é porque estou imprimindo em Sexta, que eu devo mudar a impressao para Oitava, que aí vai cair nos campos certos. alguém já ouviu falar nisso. Se puderem me ajudar... Agradecido, Rodrigo