Bom estou fazendo assim para que quando o meu pagamento tiver o tipo 1 para entrada, 0 para saida ....
Mas ele mostra só tudo "E", estou fazendo isso no evento afteropen da minha Ibquery que busca os dados:
procedure TFrmCai.QryCaixaAfterOpen(DataSet: TDataSet);
begin
inherited;
TFloatField(QryCaixa.FieldByName('Recebido')).DisplayFormat := 'R$ #,##0.00';
If QryCaixa.FieldByName('Tipo').AsInteger =0 then
begin
TFloatField(QryCaixa.FieldByName('Tipo')).DisplayFormat := 'S';
end
else
If QryCaixa.FieldByName('Tipo').AsInteger =1 then
begin
TFloatField(QryCaixa.FieldByName('Tipo')).DisplayFormat := 'E';
end
else
If QryCaixa.FieldByName('Tipo').AsInteger =2 then
begin
TFloatField(QryCaixa.FieldByName('Tipo')).DisplayFormat := 'S';
end
else
If QryCaixa.FieldByName('Tipo').AsInteger =3 then
begin
TFloatField(QryCaixa.FieldByName('Tipo')).DisplayFormat := 'SC';
end
else
If QryCaixa.FieldByName('Tipo').AsInteger =4 then
begin
TFloatField(QryCaixa.FieldByName('Tipo')).DisplayFormat := 'SC';
end
else
If QryCaixa.FieldByName('Tipo').AsInteger =5 then
begin
TFloatField(QryCaixa.FieldByName('Tipo')).DisplayFormat := 'EC';
end;
end;
Pergunta
robinhocne
Bom estou fazendo assim para que quando o meu pagamento tiver o tipo 1 para entrada, 0 para saida ....
Mas ele mostra só tudo "E", estou fazendo isso no evento afteropen da minha Ibquery que busca os dados:
mas o que eu estou fazendo de errado ?
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
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.