Jump to content
Fórum Script Brasil

Rodrigao

Membros
  • Posts

    24
  • Joined

  • Last visited

About Rodrigao

Rodrigao's Achievements

0

Reputation

  1. 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
  2. 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
  3. 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
  4. 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
  5. 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
  6. 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
  7. 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
  8. 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
  9. opa boa noite fiz as correções sugeridas mas mesmo assim ainda continua não funcionando AT. Rodrigo
  10. 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
  11. Rodrigao

    DBGrid

    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
  12. Rodrigao

    DBGrid

    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
  13. Rodrigao

    DBGrid

    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
  14. 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
  15. 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
×
×
  • Create New...