Ajuda por favor.. onde esta o erro (RESOLVIDO)

[maudozo01]

procedure TFMVendas.DBEdit5Exit(Sender: TObject);

var

conta:integer;

valor:real;

begin

dmvendas.SimpleDataSetvendas.FieldByName('data_vnd').AsDateTime:=

(datetimepicker1.DateTime);

dmvendas.SimpleDataSetitens.FieldByName('data_itens').AsDateTime:=

(datetimepicker1.DateTime);

dmvendas.SimpleDataSetItens.FieldByName('adicional').AsString:=

dmvendas.SimpleDataSetItens.FieldByName('nomeproduto').AsString;

conta:=dmvendas.SimpleDataSetitens.fieldByname('codigo_itens').asinteger + 1;

dmvendas.SimpleDataSetitens.FieldByName('codigo_pro').AsFloat:=

dmvendas.SimpleDataSetitens.FieldByName('codigoproduto').AsFloat;

dmvendas.SimpleDataSetitens.FieldByName('valor_pro').Asfloat:=

dmvendas.SimpleDataSetitens.FieldByName('valorproduto').Asfloat *

dmvendas.SimpleDataSetitens.FieldByName('qtda_itens').Asfloat;

valor:= dmvendas.SimpleDataSetItens.fieldbyname('valor_pro').asfloat;

dmvendas.SimpleDataSetitens.Append;

dmvendas.SimpleDataSetitens.fieldByname('codigo_itens').asfloat:= conta;

dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat:=

dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat + valor;

dbedit4.SetFocus;

end;

end.

o erro e o seguinte o valor da variavel Valor zera depois do append e o totalvendas so me traz o utimo valor oque sera q esta errado

Editado Junho 9, 2009 por maudozo01

[Pirambu!]

dmvendas.SimpleDataSetitens.FieldByName('valor_pro').Asfloat:=
dmvendas.SimpleDataSetitens.FieldByName('valorproduto').Asfloat *
dmvendas.SimpleDataSetitens.FieldByName('qtda_itens').Asfloat;

Tenta colocar este calculo em uma variavel antes.

[Jhonas]

o erro e o seguinte o valor da variavel Valor zera depois do append e o totalvendas so me traz o utimo valor oque sera q esta errado

dmvendas.SimpleDataSetitens.Append;

dmvendas.SimpleDataSetitens.fieldByname('codigo_itens').asfloat:= conta;

dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat:=

dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat + valor;

[code]

Voce está trabalhando diretamente com os campos da sua tabela.

O que acontece quando voce dá o append ? o ponteiro do registro vai para um registro vazio e consequentemente os valores que existiam no registro anterior somem, por isso o valor da variavel Valor zera.

Como disse o Pirambu use variaveis para efetuar os calculos e somente depois atribua o valor ao campo de sua tabela

abraço

[maudozo01]

vlw aos dois vou tentar isso e mas tarde dou um aviso se funcionou falew..................

[maudozo01]

galera fiz isso q me falaram mais nada joguei todos os valores em variaveis e fiz os calculos e nadas as variaveis zerao de pois do append ta dificil já ate joguei em um campo de calculo de outra tabela mesmo assim zera as variaveis

obs.: so não zera quando a variavel e integer mas ele so soma os valores inteiro os centavos ele descarta

já não sei o que fazer meu sistema esta parado por causa deste calculo................

[William - TI]

Amigo vamos lá como os nossos dois colegas falaram quando se da um append o registro vai para um novo correto e zera todos os valores, execto o da variavel pois esta armazenado, o problema se você entrar no campo e sair dele ele irá zerar a varialvel ao invés de atualizar temta este codigo que postei abaixo e ve se resolve.

primeiramente crie a variavel como global ao invés de ser encapsulada.

procure no .pas e acrescente = abaixo.

var

FMVendas : TFMVendas;

conta:integer;

valor:real;

Depois no on actvate do form ou quando iniciar uma nova venda coloque assim

procedure FMVendas.FormActivate(Sender: TObject);

begin

conta :=0;

valor :=0l;

end;

e agora no onexit do DBEdit5Exit coloque assim

procedure TFMVendas.DBEdit5Exit(Sender: TObject);

begin

dmvendas.SimpleDataSetvendas.FieldByName('data_vnd').AsDateTime:=

(datetimepicker1.DateTime);

dmvendas.SimpleDataSetitens.FieldByName('data_itens').AsDateTime:=

(datetimepicker1.DateTime);

dmvendas.SimpleDataSetItens.FieldByName('adicional').AsString:=

dmvendas.SimpleDataSetItens.FieldByName('nomeproduto').AsString;

conta:= conta + dmvendas.SimpleDataSetitens.fieldByname('codigo_itens').asinteger + 1;

//o + 1 que esta ai em cima imagino que não precisa mais deixei pois já estava no seu codigo

dmvendas.SimpleDataSetitens.FieldByName('codigo_pro').AsFloat:=

dmvendas.SimpleDataSetitens.FieldByName('codigoproduto').AsFloat;

dmvendas.SimpleDataSetitens.FieldByName('valor_pro').Asfloat:=

dmvendas.SimpleDataSetitens.FieldByName('valorproduto').Asfloat *

dmvendas.SimpleDataSetitens.FieldByName('qtda_itens').Asfloat;

valor:= valor + dmvendas.SimpleDataSetItens.fieldbyname('valor_pro').asfloat;

dmvendas.SimpleDataSetitens.Append;

dmvendas.SimpleDataSetitens.fieldByname('codigo_itens').asfloat:= conta;

dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat:=

dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat + valor;

dbedit4.SetFocus;

end;

imagino que agora resolva mais qualquer coisa posta ai que estaremos aqi para te ajudar.

[maudozo01]

primeiramente crie a variavel como global ao invés de ser encapsulada.

Vlw................................. :D William

deu certo me ajudou muito e obrigado a todos q me ajudaram vlw mesmo :D