valSistemasDelphi

Jhonas valeu ai.. O problema era mais simples do que parecia.. Aonde estava por exemplo 123456... Era só colocar uma vírgula. 123,456, e multiplicar pela Tarifa e pronto. e o total final, aparecia 00,00..

Tanto com o Currency e MaskEdit, Dá Erro De Conversão.. Acho que Deve No meu Código, Irei pesquisar mais, aonde etá o problema.

Jhonas, infelizmente tentei isso tudo mais não deu certo sempre aparece o erro... Gostaria que você me explicasse a lógica do código, Escrever da Direita para a Esquerda em um Edit no formato!

Com esse último código está ficando assim.

Desculpa não expliquei direito, os valores o usuário digita por meio de dois Edits. Que são Reais, ai quando ele clica no Speed o valor aparece em um panel, mais quero que apareça, os valores daquele determinada Multiplicação. Tipo 105,90 * 0,664230, Por exemplo Tarifa. Dá 70.341957 o resultado. Quero que fique por exemplo da seguinte forma, R$70,34. Só ..

Assim! O sistema ele Vai multiplicar valores. Esses valores são Real, Tipo 105,90 * 0,664230, Por exemplo Tarifa. Dá 70.341957 o resultado. Quero que fique por exemplo da seguinte forma, R$70,34. Só .. E que aconteça desse mesmo raciocínio com os outros cálculos. Tem como jhonas?

Jhonas Valeu por responder, nesse caso mencionei essa numeração como exemplo, mais e várias somas, como proceder para ficar Inteiro?

Fala galera. Tenho uma dúvida! Tenho 3 Edits No formulário.. 2 recebem valores Reais, e o outro e para cair o resultado nele da conta. Como faço para converter esse resultado que está aparecendo tipo 69,456546, Quero que Fique só Inteiro.. Tentei Pelo Int mais sempre dá erro.. Desculpe se não fui muito claro.

Jonas Obrigado Pela Resposta! Consegui Resolver meu problema! Criando outro Campo Na Tabela.

Sim jonas o Código dos forms são parecidos na Questão Do Campo "Descrição" Os dois forms tem um Label escrito "vendas Caixa", Então automaticamente ao finalizar uma venda ele já cai na Tabela com a Descrição "Vendas Caixa". A lógica do Código e o seguinte se o Campo tiver registrado a Palavra Descrição = "Vendas Caixa" Essa palavra vai ficar em Azul..... Senão ela vai seguir aquela lógica que mencionei bem lá no Inicio do Post... !! Irei fazer algumas modificações no Código asim que tiver algum Resultado Mando o Feed Back!!

// irá salvar os dados em uma tabela no form20!!<br />Form20.Ibtable1.Insert;<br />Form20.IBTable1.FieldByName(''Codigo'').AsString:=Edit1.Text;<br />Form20.IBTable1.FieldByName(''Descricao_Produtos'').AsString:=DblookupComboBox2.Text;<br />Form20.IBTable1.FieldByName(''Descricao_Bebidas'').AsString:=DblookupComboBox3.Text;<br /><br />// Tudo que salvar no form20 ira cair no form13 que do Fechamento Caixa. E tudo que Cair no Form13. ira cair em uma tabela chamada Histórico Do Caixa!!<br />form10.Ibtable1.Insert;<br />form13.Ibtable1.Insert;<br />Form13.IBTable1.FieldByName(''Codigo'').ASString:=Form20.IBTable1.FieldByName(''Codigo'').AsString;<br />form13.Ibtable1.FieldByName(''entrada'').AsString:=Form20.IBTable1.FieldByName(''Total_Pedido'').AsString;<br />form13.Ibtable1.FieldByName(''Descricao'').AsString:=Form20.Label14.Caption;<br />form13.Ibtable1.FieldByName(''Hora'').AsString:=Form20.IBTable1.FieldByName(''Hora'').AsString;<br />form13.Ibtable1.FieldByName(''Data'').AsString:=Form20.IBTable1.FieldByName(''Data'').AsString;<br /><br />Form10.IBTable1.Post;<br />Form13.IBTable1.Post;<br />Form20.IBTable1.Post;<br /><br />O Còdigo e o mesmo para os dois Forms mais ele calcula so de um form do outro cai na tabela beleza mais foi como se não salvasse lá. Ele não faz o calculo dos dados desse form so do outro!!! <br /><br />

Olá! é um problema simples mais, que até agora não encontrei solução e nem na internet. Tenho dois caixas em meu sistema, um para compras Rápidas e outro Para compras Maiores, todos os dados inclusive a abertura de caixa, são armazenados em uma Tabela, com a seguinte Descrição. 1º Descricao entrada dinheiro em preto. 2º Descrição Vendas em Azul. 3º Descrição saída em vermelho. E um button que ao ser clicando joga todos os valores correspondentes da tabela para seus determinados Edits. Quando faço uma venda no Determinado Caixa Rápido, ele cai na tabela como programado em azul> Indicando para o Usuário que em azul e as vendas. O problema é quando faço venda no outro caixa, ele cai na tabela em preto!! Assim não é feita a soma dos valores nem nada. Já no outro funciona de boa. O Código dos Dois Forms são os mesmos, não sei o que estou fazendo de errado. Desculpe se não fui muito claro..

jhonas muito obrigado por dar uma luz! No código que você passou só tive que modificar aqui A Variável "Saldo Final" para a Variavel soma! Ai deu certo Valeu pela Força! Abraço!! jhonas muito obrigado por dar uma luz! No código que você passou só tive que modificar aqui A Variável "Saldo Final" para a Variavel soma! Ai deu certo Valeu pela Força! Abraço!! jhonas muito obrigado por dar uma luz! No código que você passou só tive que modificar aqui A Variável "Saldo Final" para a Variavel soma! Ai deu certo Valeu pela Força! Abraço!!

Desculpe Acho que não fui Claro! Os resultados esperados estão caindo Normalmente no grid.. Só a questão do Saldo Entrada menos a Saída que quero que atualize por forma de um Button Normal, e jogue em um Edit... Para que o o operador Saiba de Forma organizada o que foi que Entrou no Caixa, e o que Saiu do Caixa com sua Descrição informada..... o que está em azul e as vendas! o que está em preto e o Saldo inicial.. E em vermelho, e o que foi retirado do caixa.... Aquele SpeedButton Atualizar que joga todos os valores que constam no no Grid. Quero que la no Edit Saldo_Dinheiro em verde, caia o Valor atualizado Das Entrada dinheiro em branco menos as saidas, já descontada...

Vasculhei a internet mais não achei nada que resolvesse meu problema! Tenho uma tabela que armazena, dados do caixa.. Como: " Saldo, Inicial Troco, Total De Valores De Entrada, Total Saídas no Caixa , Total Valores dinheiro sem Total Inicial, Total Final. Cada campo desse joga o determinado valor para o Determinado EDIT. Por exemplo. Saldo Inicial joga no Edit inicial e por ai adiante!!! Quero que no Total Final saia o valor atualizado do total Valores dinheiro , Entradas Menos Saídas... Não estou conseguindo resolver está Lógica.. Na maioria das vezes da o seguinte erro (is a valid floating point value); Espero que fui claro na minha pergunta....

Considere O Post Como Resolvido! Consegui resolver com outro Código aqui! Jonas valeu pela Força.. Qualquer Dúvida mando Dinovo!kk

Jhonas Deu certo! Isso que faltava. Mais dexa eu perguntar ele ta somando certo os campos que quero quando clico no Botao Fechamento. Mais tem um Edit que se chama "Saldo Total Dinheiro" Que ele armazena a Soma De Tudo que está na Tabela, Como posso fazer isso usando a mesmo Código Tem como? Só para mim entende!!

Estou usando este codigo para percorrer a tabela.. Ate ai tudo bem. Só que quero que ele some so os que estão na coluna Descrição, 'Venda No Caixa' Mais Não funciona.. if Form13.IBTable1.FieldByName('Descricao').AsString ='Venda No Caixa' then Soma:=0; //Form13.IBTable1.First; while not Form13.IBTable1.Eof Do begin Soma:=Soma + Form13.IBTable1ENTRADA.AsFloat; Form13.IBTable1.Next; end; Edit3.Text:=FloattoStr(Soma);

Olá amigos do fórum... Tenho uma tabela onde consta os valores de vendas efetuadas no Caixa do Sistema e também de saldo inicial do Caixa, sendo que o saldo inicial fica em preto e os valores de entrada em azul. Tenho 6 Edits nesse Form onde se dividem entre S.Inicial dinheiro, Total entradas Dinheiro, e Saldo Final. Consegui que ao apertar em fechar caixa aparecesse o total da tabela no "Edit Total entradas".. Mais quero que apareça no Edit "Total entradas dinheiro" que está selecionado na tabela em azul, só os valores totais da venda, sem o acréscimo do "saldo Inicial". Dessa forma fica mais organizado para o operador saber o que foi totalizado no caixa.

Considere o tópico como resolvido.. Consegui seguindo está lógica.. Para o caso de surgir alguém com o mesmo problema estarei postanto o código!!!! if Form5.IBTable2.FieldByName('Status').AsString = 'Inativo' then // Se o campo Status estiver como "Inativo" Executa a cor... DbGrid1.Canvas.Font.Color := clRed; DbGrid1.DefaultDrawDataCell(Rect,DbGrid1.Columns[datacol].field, State); Simples assim..!! Valeu jhonas pela ajuda!!

Valeu Obigado!!!!!

Obrigado pela resposta.. Seguinte pelo o que eu entendi só há como fazer isso acrescentando isso na tabela? Não tem como fazer ela colorir a linha so marcando um TRádioButton por exemplo... Usando uma condição se ele estiver marcada ou não?

Olá amigos do Fórum.. Tenho um form produtos onde tenho dois RadiosButons, "Ativo" e "Inativo"!! Gostaria que quando eu clicasse no RadioButton("Inativo"), A linha em foco ou onde eu selecionar com o mouse ficasse "vermelha" indicando que aquele produto está inativo, mais so aquela linha selecionada.. E o outro para quando o produto ficar "Ativo" denovo, e selecionar e pintar a cor preto por exemplo.. o que eu consegui fazer ate agora sem sucesso foi isso, mais ele acaba colorindo todas as linhas.. procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if radiobutton2.Checked = true then //If (gdFocused in State) then begin DBGrid1.Canvas.Font.Color := clRed; end; if Radiobutton1.Checked = true then DBGrid1.Canvas.Font.Color := clGreen; DBGrid1.DefaultDrawColumnCell( Rect, DataCol, Column, State); Mais ele colori todas as linhas ao passar o mouse pelo grid.. Quem poder me ajudar a respeito disso!!

jhonas você e o cara rapaz muito obrigado deu certinho aqui, ta salvando e tudo, valeu!!

fiz um código aqui salva o caminho da imagem corretamente no banco, so que quando fecho e abro a aplicação não está mais a foto que havia alterado.. os códigos são estes!! // Este código e executado logo quando o usuário for clicar na foto!! procedure TForm2.Image1DblClick(Sender: TObject); begin if OpenPictureDialog1.Execute then begin Form2.IBTable1.Insert;; Form2.IBTable1IMAGE.Text:=(OpenPictureDialog1.FileName); //Image1.Picture.SaveToFile('E:\imagem.bmp'); //IBTable1.FieldByName('Foto').Value := (OpenPictureDialog1.filename); image1.Stretch := false; Form2.IBTable1.Post; Image1.Picture.LoadFromFile(form2.IBTable1IMAGE.Text); end; procedure TForm2.FormCreate(Sender: TObject); begin { if form2.ibtable1image.value <>'' then begin Image1.Visible:=true; Image1.Picture.Loadfromfile(Ibtable1image.text); Form2.IBTable1.Post; end else Image1.Visible:=true; end;