Jhonas

use o bookmark do delphi com ele voce pode marcar somente os registros que voce quer trabalhar http://josehenriquebr.blogspot.com.br/2009/11/usando-bookmark-de-maneira-simples.html abraço

material para pesquisa https://www.google.com.br/search?source=hp&q=algoritmo+complexidade+log+n&o que=algoritmo+com&gs_l=psy-ab.1.9.0l10.1412.7578.0.16641.13.13.0.0.0.0.164.1387.0j11.11.0....0...1.1.64.psy-ab..2.11.1383...0i131k1j0i10k1.0.uosQzPi2B3Y abraço

Pena que sua ajuda chegou 6 anos atrazado né ? abraço

não acredite muito nisso... se o seu mac não tivesse nada instalado, e voce instalasse outra versão, funcionaria do mesmo modo. veja a versão 3.7 https://www.python.org/downloads/mac-osx/ abraço

exemplo: https://terminaldeinformacao.com/2013/07/23/entendendo-pilha-e-fila/ conceito de filas https://pt.wikipedia.org/wiki/Teoria_das_filas abraço

isso ocorre, quando voce não desinstala a versão anterior abraço

como voce já sabe, o dbgrid é um espelho dos registros contidos em uma tabela esses comandos: dmDados.tblHistorico.First; dmDados.tblHistorico.next; fazem com que o cursor vá para o primeiro registro da tabela e depois para o proximo. isso sera refletido no dbgrid .... se voce quer efetuar calculos de colunas não deve usar while not dmDados.tblHistorico.Eof do begin a não ser somente no final da inclusão de todos os registros. voce tambem deve tomar cuidado ao usar bookmark, pois ele somente deve ser usado para registros especificos. no evento OnKeyPress do DBGrid faça assim ( isso é um exemplo, voce deve adaptar ao seu código ) procedure TFCadmov1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin CDS_Tabela.Edit; /// deixe erm modo de edição o registro da tabela if Key = #13 then begin if not (ActiveControl is TDBGrid) then begin //Key := #0; //Perform(WM_NEXTDLGCTL, 0, 0); end else begin if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then selectedindex := selectedindex + 1 else selectedindex := 0; end; end; /// AQUI VOCE QUER REALIZAR ALGUM CALCULO /// botao = 1 é uma variavel para saber se é inclusão(1), alteração(2) ou exclusão(3) de /// registro if (botao = 1) and (DBGrid1.SelectedIndex > 5) then begin CDS_Tabela.Edit; CDS_TabelaCON_SALDO,vALUE := CDS_TabelaCON_CREDITO.Value - CDS_TabelaCON_DEBITO.Value; CDS_Tabela.Post; CDS_Tabela.Append; DBGrid1.SelectedIndex := 0; end; end; Observe no final que, coloquei uma condição para saber se o registro era inclusão quando o cursor pular a coluna 5, ele fará o calculo do Saldo e colocará o resultado na coluna 6 ao mesmo tempo, vai dar um post e um append no registro, fazendo com que o cursor va para a proxima linha do DBGrid e volte para a coluna inicial do DBGrid. OBS: A sua procedure TfrmCaixaBanco.totalizarExecute(Sender: TObject); é que esta causando isso que voce relatou. procure mudar essa lógica, a não ser que seja extremamente necessario usar o bookmark abraço

não funciona abraço

Acontece o seguinte: Vou preenchendo os campos no DBGrid e vou pressionando Enter. Quando estou na segunda linha em diante, quando dou Enter na coluna 5 para passar para a coluna 6, em vez da edição do registro ficar na mesma linha, ela pula sempre para o primeiro registro. Como posso corrigir isto? use o evento OnKeyPress do DBGrid procedure TFCadmov1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin if not (ActiveControl is TDBGrid) then begin //Key := #0; //Perform(WM_NEXTDLGCTL, 0, 0); end else begin if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then selectedindex := selectedindex + 1 else selectedindex := 0; end; end; end; OBS: quando o cursor ultrapassar a ultima coluna do DBGrid, automaticamente ele pula para a 1ª coluna da linha de baixo. Se não pular, basta dar um append e Last no registro da tabela. Ao invés de usar o evento OnKeyDown do DBGrid eu usaria o Evento OnColEnter procedure TfrmCaixaBanco.DBGrid2ColEnter(Sender: TObject); begin if dbgrid2.SelectedIndex = 5 then begin // COLUNA 1 É DA HIS_DATA // COLUNA 2 É DA HIS_TIPO // COLUNA 3 É DA HIS_LANCODIGO // COLUNA 4 É DA HIS_TIPOCODIGO // COLUNA 5 É DA HIS_DESCRICAO // COLUNA 6 É DO HIS_VALOR totalizarexecute(self); end; end; abraço

sei de uma pessoa que comprou um micro Zero, no entanto aconteceu o mesmo problema que o seu depois de ter formatado o HD e instalado 2 vezes o windows, o computador continou travando, desligando e iniciando automaticamente e lento ... muitas vezes nem executava os programas instalados. pedi que ele trocasse de HD.... ele levou para a assistência técnica, e eles achavam que não poderia ser o HD porque era novo. mas depois de muitos testes ( uma semana ) , chegaram a conclusão que o HD deveria ser trocado. uma vez colocado outro hd, o problema foi resolvido. abraço

sim ... mas se tiver duvidas, tente usa-la e ver o resultado. abraço

Esse problema é do HD ... apesar de voce ter formatado o HD, nem sempre é possivel recuperar os Bad Clusters ( ou trilhas e setores ruins ) use o HDD Regenerator para recuperar esses setores defeituosos ( dependento do tamanho do HD pode durar até 5 horas a recuperação ) OBS: um HD tem um tempo de vida util ( normalmente 5 anos, se voce utilizar 8 horas diarias ) depois disso ele começa a apresentar falhas no disco .... e o acesso a programas fica muito lento ou impossivel. abraço

Unit CRT para Free Pascal, sob todos os sistemas Dos, Linux e Windows. A Unit foi escrita pela primeira vez para o Dos por Florian Klaempfl. A Unit foi dirigida para o Linux pela Mark May e reforçada por Michael Van Canneyt e Peter Vreman. Ele funciona no console do Linux e nas janelas xterm e rxvt no X-Windows. A funcionalidade para ambos é a mesma, exceto que, no Linux, o uso de uma implementação inicial (versões 0.9.1 e anteriores do compilador), a Unit CRT desmarcou automaticamente a tela na inicialização do programa. Existem algumas advertências ao usar a unidade CRT: Os programas que usam a Unit CRT não serão utilizáveis quando a entrada / saída estiver sendo redirecionada na linha de comando. Por motivos semelhantes, eles não são utilizáveis como scripts CGI para uso com um servidor web. O uso da Unit CRT e a unidade gráfica podem nem sempre ser suportados. A Unit CRT não é thread-safe. No Linux ou outros sistemas operacionais do Unix, a execução de outros programas que esperam um comportamento especial do terminal (usando uma das funções especiais da unidade Linux) não funcionará. O terminal está configurado no modo RAW, que irá destruir a maioria das configurações de emulação de terminal. A Unit CRT decorre da área TP / Dos. Ele é projetado para funcionar com conjuntos de caracteres de um único byte, onde 1 char = 1 byte. Isso significa que as cadeias de caracteres widestrings ou UTF-8 codificadas (ansi) não funcionarão corretamente. abraço

Use o Forum Outros Sistemas Operacionais abraço

Isso poderia ser feito somente pelo Administrador do Forum abraço

se voce tiver dicas de video aulas, pode colocar os links no Forum ( Geral - Links ) abraço

ok... se voce usar o PreviewModal, enquanto voce não fechar o relatorio, o programa não pode acessar outro procedimento. Isso evita alguns erros. abraço

Considero uma pessoa grande, não na estatura, mas no seu caráter. ( O conjunto das qualidades e defeitos de uma pessoa é que vão determinar a sua conduta e a sua moralidade, o seu caráter. Os seus valores e firmeza moral definem a coerência das suas ações, do seu procedimento e comportamento.) Seja Bem vindo ao Forum. Abraço

E esse label não volta a aparecer nos relatórios até eu reiniciar o programa. isso indica que quando voce reinicia o programa, algum comando ou variavel no relatorio tambem é reiniciado. 2 sugestões: 1 - use o comando resetpage no fim da impressão ou visualização do relatorio veja a linha 1000 do código do RLReport.pas {@method ResetPage - Reseta os flags de impresso para bands nгo title. :/} procedure ResetPage; {@method ResetAll - Reseta os flags de impresso para todas as bands. :/} procedure ResetAll; https://sourceforge.net/p/fortesreport/svn/HEAD/tree/trunk/RLReport.pas 2 - tire o componente Label do relátorio e compile novamente o programa... depois coloque outro componente Label e compile novamente Obs: Veja tambem se não esta sendo atribuido outro valor para o Label ( Vazio ) voce esta usando Preview ou PreviewModal ? abraço

no primeiro link já tem a solução para erro https://www.google.com.br/search?source=hp&q=erro+438+vba&o que=erro+438&gs_l=psy-ab.1.0.0.1222.3563.0.5602.8.8.0.0.0.0.335.1200.0j7j0j1.8.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..0.8.1194...0i131k1.0.9NEAqu1_fEI abraço

use campo calculado e salve o resultado ... dessa maneira quando voce selecionar um conjunto de dados ( apenas 1 dia de determinado mes e ano ou um período ) voce só tera que pesquisar por esse período ou data. alem de agilizar a pesquisa ( rede ) trazendo poucos dados, o resultado sempre estara correto. abraço

ok.. então utilize campo calculado exemplo: veja a parte onde é incluido o campo calculado ( componente ClientDataSet ) ou veja https://www.google.com.br/search?q=criar+campo+calculado+delphi+&o que=criar+campo+calculado+delphi+&gs_l=psy-ab.3..0i30k1l2j0i8i30k1l2.2541.5283.0.5662.7.7.0.0.0.0.168.688.0j5.5.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..2.5.683...0j0i7i30k1j0i8i7i30k1.pZgSuNw6vFE abraço

voce tem algumas opções 1 - trabalhar com campos calculados e somente mostrar no dbgrid esses campos ( sem salvar ) 2 - ou pode incluir esses campos na tabela e efetuar os calculos ( e salvar ) ... fica até mais facil para controle 3 - mostrar os valores finais de saldo anterior, debitos, creditos e saldo atual em Edits no Form apenas como referencia ao periodo selecionado pela select obs: os datetimepicker podem ser substituidos pelo componente DateEdit1 da Library RxLib ( mais bonito visualmente ) o que voce prefere ?

voce quer que essa saida seja em um relatório ou em um dbgrid ?

olhe no post anterior ... voce tem que converter a data http://www.activedelphi.com.br/forum/viewtopic.php?t=82561&sid=b3ca53c2eb5ce96509cc23e710d3ac35 com relação a esse comando, a 2ª linha não dá erro, mas no envio parece que o formato do valor deve ser diferente. ( não sei te dizer, pois nunca utilizei esse webservice ) cobranca0.valor.DecimalString := Format('%.2f', [valor]); cobranca0.taxa_registro.DecimalString := Format('%.2f', [valor]); abraço