-
Total de itens
359 -
Registro em
-
Última visita
Tudo que Pirambu! postou
-
Tenta isso para abrir outro Execultavel. ExecAndWait(LocaldoSistemaNoPC,'',SW_SHOW);
-
(Resolvido) Como fazer o calculo das parcelas
pergunta respondeu ao Alessandra (Jundiai) de Pirambu! em Delphi, Kylix
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); -
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;
-
Como eu posso fazer para aparecer uma mensage de aviso próximo ao relogio no canto inferior direito da tela?
-
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".
-
Como eu faço isso?
-
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?
-
Denis Courcy, resolvir fazer usando a programação, mas obrigado peça resposta, posso usar quando eu criar um View para Relatório.
-
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?
-
Denis Courcy, esta resolvido o problema, esta funcionando sem problema, Obrigado peça força.
-
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?
-
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?
-
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?
-
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
-
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?
-
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
-
Somar no Group Header Quick Report
pergunta respondeu ao João Paulo Taraciuk de Pirambu! em Delphi, Kylix
João Paulo Taraciuk, em Propriedade -> "Expression" você deve indicar o Group de deve ser somado. -
Pronto esta resolvido. Obrigado pela força.
-
Não Resolveu Douglas_Soares.
-
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.
-
(Resolvido) Escrever da Direita para Esquerda em Edit
pergunta respondeu ao Pirambu! de Pirambu! em Delphi, Kylix
Jhonas obrigado, mas algumas coisas ainda não conheço muito bem. Valeu pela força. -
(Resolvido) Escrever da Direita para Esquerda em Edit
pergunta respondeu ao Pirambu! de Pirambu! em Delphi, Kylix
Pronto era isso que procurava, mas tem como no proprio edit aparacer "R$" antes do valor? -
(Resolvido) Escrever da Direita para Esquerda em Edit
pergunta respondeu ao Pirambu! de Pirambu! em Delphi, Kylix
Douglas_Soares, eu tentei mas não deu certo, apareceu uma mensage que o valor não é valida. -
Alguém sabe como eu posso fazer para escrever em um edit da direita para esquerda em forma de Moeda?
-
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."