Pessoal,
se mando
with Servico.ItemServico.New do
begin
.....
DescontoIncondicionado := qNFSe.FieldByname('vl_descontoincondicional').AsFloat; <= R$10,00
DescontoCondicionado := 0;
TipoUnidade := tuQtde;
Unidade := 'UN';
Quantidade := 1;
ValorUnitario := qNFSe.FieldByname('VL_NOTANFS').AsFloat;<=R$100,00
ValorTotal := qNFSe.FieldByname('vl_totalnfs').AsFloat;<=100,00
BaseCalculo := qNFSe.FieldByname('vl_bc').AsFloat;<R$90,00
Tomo erro
e se mando
DescontoIncondicionado := qNFSe.FieldByname('vl_descontoincondicional').AsFloat; <= R$10,00
DescontoCondicionado := 0;
TipoUnidade := tuQtde;
Unidade := 'UN';
Quantidade := 1;
ValorUnitario := qNFSe.FieldByname('VL_NOTANFS').AsFloat;<=R$100,00
ValorTotal := qNFSe.FieldByname('vl_totalnfs').AsFloat;<=90,00
BaseCalculo := qNFSe.FieldByname('vl_bc').AsFloat;<R$90,00
Ele faz o calculo