Alberto Mota

Uso o código abaixo para consultar as duplicatas e no fim ele me dá o total do filtro. crie a procedure SomaPagar e adapte para a sua tabela de consulta em ValorDupl troque pelo seu Total. procedure TFrmCR.SomaPagar; var s:Double; Begin Duplicatas.DisableControls; Duplicatas.First; s:= 0; While not Duplicatas.Eof do begin s:=s+Duplicatas.Fieldbyname('ValorDupl').asFloat; Duplicatas.Next; End; TxtPagar.caption := FormatFloat('###,###,#0.00', s); Duplicatas.EnableControls; end; O botão de pesquisa segue abaixo e no fim ele chama a procedure Acredito que é por aí. procedure TFrmCR.BitBtn1Click(Sender: TObject); var DataI, DataF: TDatetime; begin Duplicatas.open; if Duplicatas.RecordCount = 0 then Begin Showmessage('O Cliente não possui débitos para esse período!'); exit; End; Begin DataI:=strtodate(MaskEdit1.text); ADOQuery1.Close; ADOQuery1.sql.Clear; ADOQuery1.sql.Add('Update TblDuplicatas Set Obs =' + (QuotedStr(txtobs.Text)) + ', Banco =' + (QuotedStr(txtbanco.Text)) + ', DtPgto = '+#39+FormatDateTime('mm/dd/yyyy',DataI)+#39+' where RegDet='+DbGrid1.fields[0].text); ADOQuery1.ExecSQL; showmessage('Operação de pagamento concluída!'); maskedit3.Text := ''; Duplicatas.close; Duplicatas.open; QryTipos.Open; MaskEdit1.Text := ''; TxtObs.Text := ''; SomaPagar; end; end;

Consegui resolver meu problema utilizando os controles DirectoryListBox e FileListBox1.

Prezados colegas, através do código abaixo consigo listar os arquivos de uma determinada pasta no listbox1 e no listbox2 mostra os arquivos. Entretanto gostaria que quando clicasse em qualquer pasta aparecesse os arquivos daquela pasta, como um filtro. Desde já, obrigado. procedure TFrmSindical.BitBtn11Click(Sender: TObject); var SR: TSearchRec; IsFound : Integer; PastaAPesquisar : string; begin PastaAPesquisar := 'C:\GSind\Retorno Sindical\'; IsFound := FindFirst(PastaAPesquisar + '*.*', faAnyFile, SR); while IsFound = 0 do begin if DirectoryExists(PastaAPesquisar + sr.Name) then ListBox1.Items.Add(sr.Name) else ListBox2.Items.Add(sr.Name); IsFound := FindNext(SR); end; FindClose(SR); end;

Jhonas, vi o demo do delphi. Deu certo o que precisava. Obrigado.

Para algo assim uso no access, na propria consulta: DescrTipo:iif([Tipo]='E';"Entrada";"Saida") E no sql server tambem na consulta Case when Tipo = 'E' then 'Entrada' else 'Saida' end as DescrTipo

Pelo que entendi você quer que na coluna do dbgrid mostre as legendas Entrada e Saida. Se for, dê 2 ciques no controle, selecione o campo e va na propriedade Title e em Caption e coloque o que deseja

Prezados colegas, Depois de muito pesquisar nõ encontrei uma solução para o meu problema. Uso o Delphi 7 e o dbchart Gostaria de criar um grafico por estados/uf, mas parece que por ser texto ele não aparece nos campos do dbchart tem como fazer com que ele reconheça isso? desde já obrigado.

Jhonas, realmente os links não foram uteis. No quickreport há uma chamada para as paginas. Exemplo: QRCompositeReport1.Reports.Add(QuickRep1); // contas a receber QRCompositeReport1.Reports.Add(QuickRep2); // contas a pagar Acredito que no Rave seguiria essa mesma ideia.

Coloque no evento on data change do seu data source var foto1,guardafoto : string; begin guardafoto := inttostr(ADOQuery1.FieldByName('referência').AsInteger); if not(fileexists('C:\wa\'+guardafoto+'.jpg')) then begin foto1 := ('C:\wa\wa2.jpg'); end else foto1 := ('C:\wa\'+guardafoto+'.jpg'); DbImage1.Picture.loadfromfile(foto1);

Jhonas, dei uma olhada no link, mas não ajudou muito. Vou pesquisar a respeito. Obrigado.

Prezados colegas, Com o quickreport consigo gerar várias páginas atrvés do QRcomposite. Gostaria de fazer isso no Rave. Vi que tem como colocar new page num unico projeto rav Como faço para colocar várias paginas no Rave? Que um venha após o outro quando for executar. Desde já, obrigado.

Jhonas, sinceramente perdi a contas das vezes que me ajudou e me tirou de enrascadas. Funcionou realmente. Muito obrigado mesmo. Mais uma que aprendi. Sucesso Jhonas. Tudo de bom.

Prezados Colegas, o meu problema não é Delphi, mas sinceramente não sei a quem recorrer. É o arquivo texto enviado pelo banco. O Arquivo Ret. Que está totalmente desconfigurado. Tento ligar para a Caixa e nunca atendem. O meu sistema ira fazer a leitura desse arquivo. Segui rigorosamente o manual. Todas as linhas devem começar com 104, Antes vinha correto, agora não. Vem basicamente agora como em 2 colunas ou mais ao abrir pelo Bloco de Notas. Um exemplo resumido: o Correto: 10400000034445555555555555 10459595959595959595959595 10486700000000000000939399 Como esta vindo 10400000034445555555555555 10459595959595959595959595 10486700000000000000939399 09000000581903235710495486 Etc. alguém já passou por isso? Tem solução? Desde já, obrigado.

Flavio estou usando o QrComposite do QuickReport Resolveu meu problema, apesar de ser um pouco trabalhoso. É uma ótima opção para quem quer varios relatórios. Obrigado!

Flavio, mais uma vez, obrigado pela dica. Vou seguir esses passos e colocar a mão na massa.

Flavio, obrigado pela atenção. Sim, é um mestre-detalhe. é uma tabela principal: Poços Com seus detalhes: Outorga, perfuração, Analises, Irrigação, etc Como são muitos detalhes, são mais ou menos 8 paginas num unico relatório.

Prezados colegas, uso o delphi 7 e me foi pedido um relatório inusitado. De aproximadamente 8 paginas. Comecei a desenvolver no quickreport aumentando a banda detail mas não esta resolvendo Como elaboro um relatório dessa complexidade? Quais as bandas que devo utilizar? Desde já, obrigado

O link esta ok agora. Obrigado, resolveu meu problema.

kartter, agradeço a atenção. O link esta quebrado. Não consegui acessar.

Prezados colegas, preciso ter uma tela de login em que cada usuário será direcionado para sua aplicação. Exemplo: Usuário Maria acessa sistema1.exe Usuário Paulo acessa sistema2.exe Será um executavel acessando outros executaveis num formulário de login. Desde já, obrigado.

Jhonas, consegui resolver meu problema usando o ZQuery. Se puder resolver atraves do ZQuery todas as storedProcedures, será ótimo. Obrigado pela ajuda.

Jhonas, o problema esta na propria configuração, nas suas propriedades. Não esta aceitando o parametro @cli. Esse parametro determinei no sql server. na propriedade params coloquei assim: params = @cli Data type = integer e em Active = true surge a mensagem: procedure or function sp_Extrato expects parameter @cli, which was not supplied. Como configuro o parametro? Obrigado.

Jhonas, agradeço a atenção. Comecei a utilizar o zeos. No ZstoredProc esta dando um erro: O AdoStoredProc possui Parameters e o ZstoredProc Params Criei uma stored procedure que funciona no AdoStoredProc mas agora no ZStored não. o erro é: Parameter @cli not found Diz que não foi encontrado, mas eu o criei em Params. Esta faltando alguma coisa? Desde já, obrigado.

Daniel, agradeço a atenção. Vou considerar sua alternativa.

Prezados colegas, estou usando o Delphi 7 e o sql server. Sendo que o banco de dados esta em outro estado e atraves do executavel em outros estados pretendo acessar o sistema, via web. Atraves do Ado Connection fiz a string de conexão, e continuei a usar os mesmos componentes: AdoQuery, AdoTable. Com uma tabela pequena abre sem problemas, porem quando há muitos registros, demorou uma eternidade. Mas havia uma inconsistencia, não havia a necessidade de se abrir todos os registros, claro. O usuário escolhe qual que ele quer trabalhar. Porem ao adicionar novo registro, há uma demora absurda. E para salvar, chega um ponto que nem salva de tão demorado que fica. O que devo fazer para que fique mais rapida? Desde já, obrigado.