Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Informações No DbGrid


valSistemasDelphi

Pergunta

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..

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

// 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 />

 

 

Link para o comentário
Compartilhar em outros sites

  • 0

Se voce esta usando o mesmo código para os 2 Forms o resultado será o mesmo

voce não acha que deveria haver alguma diferença entre eles ( Forms ) ?

OBS: quando postar o código, coloque tambem em qual evento ele está.

qual é a função do Form10  ??? 

use o break point do delphi nos 2 Forms para poder acompanhar os valores atribuidos

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

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!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...