gravar casas decimais

Delphi

30/05/2017

Pessoal tem um combo onde eu digo a quantidade de casa decimais eu vou querer
ele mostra na tela mas qdo gravo ele grava sem as casa decimais e qdo quero gerar um relatório ele não mostra as casas decimais o que devo fazer?

vejam o código da combo

procedure TfrCadCalibracao.cbxCasaExit(Sender: TObject);
begin
inherited;
cdsCalibraItensREFERENCIA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO01.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO02.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO03.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO04.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO05.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO06.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensMEDIA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensINCERTEZA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO_INCERTEZA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO_INST.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
end;

por favor alguén me ajude
Antonio Santos

Antonio Santos

Curtidas 0

Respostas

Roberto Wutke

Roberto Wutke

30/05/2017

Tem que verificar como esta seu campo no banco de dados, se ele está pra aceitar tais casas decimais, não teria problema
GOSTEI 0
Antonio Santos

Antonio Santos

30/05/2017

o campo é decimal
GOSTEI 0
Roberto Wutke

Roberto Wutke

30/05/2017

O bro, desculpa a demora ai, se estiver com problema ainda, me add no skype que tento te ajudar.... robertowutke@hotmail.com
GOSTEI 0
POSTAR