Ir para conteúdo
Fórum Script Brasil

Pirambu!

Membros
  • Total de itens

    359
  • Registro em

  • Última visita

Tudo que Pirambu! postou

  1. Tenta isso para abrir outro Execultavel. ExecAndWait(LocaldoSistemaNoPC,'',SW_SHOW);
  2. Qual o banco de dados que você esta usando? Para apenas dividir; var parcela:double; begin Parcela:= StrToFloat(Valortotal/NumeroParcela); Label.Caption:= FloatToStrF(Parcela,FFcurrency,10,2);
  3. Desta forma,se o curso não estiver no primeiro pode sobrar alguns registro tenta esta forma usando query. With Query do begin close; sql.clear; sql.add('delete from Tabela'); execsql; end;
  4. Como eu posso fazer para aparecer uma mensage de aviso próximo ao relogio no canto inferior direito da tela?
  5. Eu criei outro usuario e criei os privilegios e funcionou sem problema, já esta tudo ok, mas o problema era que estava querendo fazer a configuração usando arquivo INI, onde eu alterava o "LocalHost" e "User".
  6. Jhonas, eu coloquei dois computadores em Rede usando cabo Cross, os dois tem estão com IP, mas o execultável que criei esta assim, antes de abrir a conexão com o banco, estou usando um arquivo *.INI apenas indicando o IP no LocalHost mas esta dando um erro, tem algum detalhe com configuração que possa esta faltando?
  7. Denis Courcy, resolvir fazer usando a programação, mas obrigado peça resposta, posso usar quando eu criar um View para Relatório.
  8. Como eu posso mostra um resultado de "Select" de um campo como formato de moeda "R$ 0,00" Exemplo: Select sum(Valor) from Tabela Mostra o seguinte Valor: 12542.00 Mas gostaria de mostrar o valor assim: R$ 12.542,00 Alguém sabe como eu posso resolver este problema?
  9. Pirambu!

    (Resolvido) Trigger

    Denis Courcy, esta resolvido o problema, esta funcionando sem problema, Obrigado peça força.
  10. Pirambu!

    (Resolvido) Trigger

    Denis, quanto a Update e Delete já resolvir, mas tenho outra dúvida olha esse código abaixo: CREATE DEFINER=`root`@`localhost` PROCEDURE `QSaldo`() BEGIN UpDate Item I set I.QEntrada = (Select Sum(QEntrada) From EntradaItem E where ItemID = I.ItemID); Update Item I1 Set I1.QSaida = (Select Sum(QSaida) From SaidaItem where ItemID = I1.ItemID); Update Item Set QSaldo = QEntrada - Qsaida; END; estou pegando a a somatória da tabela entradaItem e SaidaItem, mas esta dando erro quando o Item é novo e não deu Saida então não tem valor para SaidaItem. para Tabela EntradaItem usando Before para Insert e e after para Update e Delete, você tem ideia como eu posso resolver isso?
  11. Pirambu!

    (Resolvido) Trigger

    Denis, eu coloquei uma trigger de Before inserto na tabela de entrada esta funcionando sem problema mas a de UpDate e delete não esta funcionando. todas estão chamando uma Procedure "Call Proc_Estoque" CREATE DEFINER='root'@'localhost' TRIGGER `dados`.`Tg_delete` BEFORE DELETE ON `dados`.`entradaitem` FOR EACH ROW Call QSaldo(); Estou usando o Front-Mysql. você tem ideia do porque não esta funcionando?
  12. Pirambu!

    (Resolvido) Trigger

    Denis valeu pela explicação, então eu vou te que criar tres trigger para cada tabela: Before insert begin ... end; before Update begin ... end; before Delete begin ... end; neste caso eu não preciso da procedure posso acionar a atualização direto pela Trigger é isso?
  13. Renato Penna, tenta assim para campo nulo Select * from Tabela where campo is null para campo diferente de nulo Select * from Tabela where campo is not null ve se é isso que você procura
  14. Pirambu!

    (Resolvido) Trigger

    Oi Denis Courcy, eu sei como fazer no SqlServe mas no Mysql é totalmente diferente, você pode me explicar porque Before e não After? e no caso de alteração Update como a Triiger e acionada?
  15. Eu Criei uma Procedure para controlar o Estoque de Produto de uma Tabela, como eu faço para criar uma Trigger para as tabelas de EntradaEstoque e VendaProdutos? na tabela Produto tem os seguintes campos: ProdutoID,Produto,ValorUnit,QuantEntrada,QuantSaida,SaldoEstoque Procedure 1 Create Procedure EntradaProduto() Begin Update Tproduto set QuantEntrada = (Select sum(Quantentrada) from TEntradaEstoque where ProdutoID = ProdutoID); Update TProduto Set SaldoEstoque = QuantEntrada - QuantSaida; end Procedure 2 Create Procedure EntradaProduto() Begin Update Tproduto set QuantSaida = (Select sum(QuantSaida) from TVendaProduto where ProdutoID = ProdutoID); Update TProduto Set SaldoEstoque = QuantEntrada - QuantSaida; end Quero criar uma trigger para quando as tabelas TEntradaEstoque e TVendaProduto tivessem alguma alteração (adicionado, alterado ou deletado) atualize meu estoque, Alguém sabe com eu faço isso
  16. João Paulo Taraciuk, em Propriedade -> "Expression" você deve indicar o Group de deve ser somado.
  17. Pronto esta resolvido. Obrigado pela força.
  18. Estou enviando dados para porta paralela usando um Timer, criei um botão para ativar e desativar o timer if timer1.enable = False then Begin timer1.Enable:=True; End else Begin Timer1.enable:=false; End; não estou conseguindo para o Timer.
  19. Jhonas obrigado, mas algumas coisas ainda não conheço muito bem. Valeu pela força.
  20. Pronto era isso que procurava, mas tem como no proprio edit aparacer "R$" antes do valor?
  21. Douglas_Soares, eu tentei mas não deu certo, apareceu uma mensage que o valor não é valida.
  22. Alguém sabe como eu posso fazer para escrever em um edit da direita para esquerda em forma de Moeda?
  23. Jhonas, apenas uma observação: eu tentei compilar o comando que envia a impressão direto para a porta "LPT1" em um computador que tem saida "LPT1" aceitou sem problema mas no meu que não tem essa porta ele mostra uma mensagem de "arquivo não encontrado."
×
×
  • Criar Novo...