Ir para conteúdo
Fórum Script Brasil

Pompeu

Membros
  • Total de itens

    136
  • Registro em

  • Última visita

Tudo que Pompeu postou

  1. Olá amigos ... Estou com o seguinte problema, preciso fazer uma consulta e essa consulta tem que pegar o primeiro caracterde um campo para ver qual tipo de usuário ele é Ex: 1-001-01 ou 2-001-01, ou seja o primeiro exemplo seria pegar todos os registros que começam com 1 e depois somar os valores que estão nesses registros em um Campo chamado VALOR. Até encontrar os registros eu consegui, só não estou conseguindo armazenar a soma em uma variável, essa função irá rodar em uma SP dentro do banco de dados. Obrigado Amigos
  2. Olá 'Linneker' Desculpe rebater a resposta do 'Marcus Nunes', mas esses programas não são pagos e podem ser baixados direto do site oficial do MySQL. Essa ferramenta se chama GUI TOOLS, segue link para download: http://dev.mysql.com/downloads/workbench/5.2.html http://www.ziggi.com.br/downloads/mysql-gui-tools http://ultradownloads.com.br/download/MySQ...I-Tools-Bundle/ Abraço
  3. RESOLVIDO faltou eu setar um valor inicial para a variavel vc_valor antes do WHILE, então segue solução abaixo: SET vc_valor = 0; Abraço a todos
  4. Olá a todos ... Sei que deve ser um erro bobo mas não estou conseguindo resolver, algume poderia me dizer onde está o erro desta SP ? tudo funciona só não estou conseguindo somar o valor do cursor. Segue código abaixo: DELIMITER $$ DROP PROCEDURE IF EXISTS `sp_faturamento_contas` $$ CREATE DEFINER=`clubedec`@`%` PROCEDURE `sp_faturamento_contas`( IN fat_id INTEGER, IN fat_tiposocio VARCHAR(25)) BEGIN DECLARE vc_valor DOUBLE; DECLARE vs_valor DOUBLE; DECLARE cr_id INTEGER; DECLARE contas_eof INTEGER DEFAULT 0; DECLARE cur_contas CURSOR FOR SELECT id, idfaturamento, tiposocio, valor FROM contasreceber WHERE tiposocio = fat_tiposocio AND idfaturamento = fat_id ORDER BY id; DECLARE CONTINUE HANDLER FOR NOT FOUND SET contas_eof = 1; OPEN cur_contas; FETCH cur_contas INTO cr_id, fat_id, fat_tiposocio, vs_valor; WHILE NOT contas_eof DO SET vc_valor = vc_valor + vs_valor; FETCH cur_contas INTO cr_id, fat_id, fat_tiposocio, vs_valor; END WHILE; INSERT INTO registros_contabeis (idregistro, pc_nivel1, pc_nivel2, pc_nivel3, planoconta, debito_credito, valor) VALUES (cr_id, '3', '1', '1', 'CONTRIBUIÇAO DE SOCIOS PROPRIETARIO', 'CREDITO', vc_valor); CLOSE cur_contas; END $$ DELIMITER; Obrigado
  5. Olá a todos ... Gente, consegui resolver da seguinte forme, ao invés de utilizar o MessageDlg eu usei o MessageBox, nele tem como você colocar todos os critérios que quiser como por exemplo título, mensagem e botões, ele usa o idioma do sistema operacional, sendo assim, os botões são convertidos para o português, segue exemplos abaixo: Mensagem de confirmação: if MessageBox(Handle, 'Deseja confirmar ?', 'Confirmação', MB_ICONQUESTION + MB_YESNO) = ID_YES then Mensagem de Informação: MessageBox(Handle,'Texto da mensagem','Informação', MB_ICONINFORMATION + MB_OK); Além de resolver meu problema espero ter ajudado Obrigado a todos
  6. Obrigado Jhonas ... Resolveu meu problema
  7. Olá pessoal .... tem como traduzir as mensagens do Delphi 2009 ? Obrigado
  8. Olá a todos ... Pesquisei no forum e não achei uma forma de instalar este componente, por favor se alguém puder me ajudar ficarei muito grato. Eu preciso colocar uma imagem do tipo PNG em um TImage, caso algume tenha alguma outra sugestão pode ser também, não precisa exatamente ser com este componente mas sim que resolva meu problema Abraços Pompeu
  9. Pompeu

    Frame

    Olá pessoal ... Desenvolvi um site com uma tela de login, quando eu logo na verdade eu estou logando em outro site através do meu certo, o que eu queria fazer é o seguinte, colocar um frame junto com a página do outro site, um exemplo parecido seria a página de tradução do google que quando você clica pra traduzir ele mostra o cabeçalho do google e a página de tradução de outro site em baixo Obrigado a todos
  10. Pompeu

    Macros

    Olá a todos ... Tenho uma planilha feita em Excel 2003 e recentemente implantamos o BROffice aqui na empresa, só que os espertos da área de TI não testaram nossas planilhas antes de fazer a implantação, resultado, as macros desenvolvidas no excel não funcionam no Calc. Acontece o seguinte erro: Ocorreu um erro de scripting framework durante a execução do script basic vnd.sun.star.script:standart.ficha2?language=Basic&Location=Document. Mensagem: The following Basic script could not be found: library: 'Standard module: 'Ficha2' method: '' location: 'document' alguém sabe me dizer como resolver isso ? Obrigado antecipadamente Pompeu
  11. Olá Pessoal ... Vou tentar explicar o mais detalhado possível. Comecei a criar um site em PHP e a index é uma página de login para acessar o sistema on line, só que do nada começou a dar este erro "Cannot modify header information - headers already sent by" já criei inúmeros sites e nunca deu este problema, detalhe, eu uso uma ferramenta do dreamweaver que cria sozinho o código php de login e a restrição de acesso a página, conforme eu disse nunca deu esse erro e de repente começou. Obrigado a todos
  12. Olá 'danielrgoes' Você tem certeza que o campo no seu DB está com o formato VARCHAR ? esse erro acontece quando você tenta salvar uma informação em um campo do tipo DATA, verifique com calma e caso não resolva tente excluir esse campo do DB e crie-o de novo. Abraços
  13. Pompeu

    Erro ao salvar

    Ficaria assim: Params[1].AsString := Nome_do_Edit.Text; Lembrando que campos numéricos por exemplo você terá que fazer a conversão ok, ex: Params[2].AsInteger := StrToInt(Nome_Do_Edit.Text); Abraço
  14. Pompeu

    Erro ao salvar

    'nsouza' Esse erro acontece quando você tenta inserir algo em uma lista ex: StringList, ListBox, etc, provavelmente não deve existir o parametro (2). Aconselho você a verificar sua SP o erro deve estar nela, lembrando que Params[] é uma lista ok. Abraço
  15. Olá 'fjuniorwin' Você pode postar o código para análise ? você está desenvolvendo em qual editor ? Abraço
  16. Olá 'nsouza' Tente copiar essa biblioteca para dentro da pasta do seu projeto e faça um teste. Abraço
  17. Tente isso ... Código do DbGrid procedure TFrmConFerramentas.DBGrid1DblClick(Sender: TObject); var registro:integer; begin registro := dmdados.SqlConFerramentasFER_CODIGO.Value; if not assigned (frmFerramentas) then begin application.createForm( TfrmFerramentas, frmFerramentas); frmFerramentas.show; end else abort; dmdados.ibFerramentas.Locate('FER_CODIGO', registro, []); dmdados.ibFerramentas.Edit; dmdados.IbFerramentasFer_codigo.value := registro; frmferramentas.TbConsulta.TabVisible:=false; frmferramentas.TbCadastro.TabVisible:=true; frmferramentas.dbedit2.SetFocus; end; O que está acontecendo é que você não está localizando o registro antes de editá-lo, creio que desta forma irá funcionar Abraço
  18. 'nicolasbraz' Estou meio sem tempo mas vou analizar seu codigo hj e tento postar hj ainda ok Abraço
  19. 'nicolasbraz' Clique sobre o DBGrid e no event OnDblClick você pode atribuir as condições para que quando você der um duplo clique sobre o registro você pode pedir para a tela de consulta fechar e habilitar o modo de edição do formulário de cadastro. Segue exemplo abaixo: Lembrando que é um pouco difícil orientar sobre como fazer já que não estou vendo a forma que você está programando, creio que esse exemplo sirva de referência e qualquer coisa poste aí Abraços
  20. Olá 'danielrgoes' Apesar da sua dúvida pertencer a outra parte do Forum (aqui é somente para dúvidas de delphi e kylix) porque você não tenta desinstalar o Firewall Mcafee ? já que você não quer que ele rode seria uma alternativa. Abraços
  21. Olá 'nicolasbraz' Sim é possível ... como é seu formulário de pesquisa ? você usa um DBGrid para visualizar os registros ? qual a versão do Delphi que usa ? Abraços
  22. Olá '_Vinny_' Obrigado pela resposta e desculpe pela demora ... Vou tentar e posto se resolveu ... Obrigado
  23. Olá 'danielrgoes' Se você tem dois registros iguais e quer deletar somente um deles, sugiro que crie uma chave primária diferente do campo que você usa para identificar o registro. Uma solução simples seria criar um campo chamado ID e colocar como INTEGER e AUTOINCREMENTO, atribua uma chave primária a esse campo e todo registro criado nessa tabela terá um valor diferente para o campo ID, caso precise excluir algum registro é só executar o comando lembrando que esse comando é somente um exemplo. Veja abaixo os dados de exemplo de uma tabela: 1 - JOÃO - MASCULINO - BRASIL 2 - JOÃO - MASCULINO - BRASIL 3 - MARIA - FEMININO - BRASIL Como pode ver, temos 2 registros basicamente iguais mas com o campo ID diferentes já que estes são chaves primárias e não podem ser repetidos. Espero ter ajudado Abraço
  24. Olá a todos ... alguém poderia me esclarecer porque meu site http://www.imobiliariapadovani.com.br em alguns computadores aparece normal e em alguns aparece errado. Acontece o seguinte: eu desenvolvi o site em meu notebook e a tela dele é widescrean, no meu note o backgroung aparece normal ou seja, aparece como eu quero que seja e como eu desenvolvi, mas em alguns computadores o background aparece várias vezes como fundo, ele vai repetindo até o final do site e não é isso que eu quero, eu quero que o background apareça uma vez só. Obs: Eu já configurei o background como center e norepeat e já diminui o tamanho do background até para 800px que é o caso da resolução de alguns computadores mas ão funcionou. Obrigado a todos
  25. RESOLVIDO Consegui fazer com JQuery achei esta vídeo aula e achei bem mais simples que os exemplos citados, o código é bem menor, para quem quiser dar uma olhada está bem explicado e fácil de fazer. Segue link: http://www.videoaulasbrasil.com.br/php/com...m-php-e-jquery/ Obrigado 'ESerra' e a todos do Forum ^^
×
×
  • Criar Novo...