D190 Esta Findo Zerado

[walter faria]

Desculpa me , a funcao estava deixando a aliquota ZERO porem o erro era no meu sistema !!!

Obrigado a todos

 

Bom dia a todos .

 

Estou gerando o SpedFiscal porem estou informando os dados no Bloco D 190 assim:

      with RegistroD190New do

      begin

        CST_ICMS := '000';

        CFOP := '5352';

        ALIQ_ICMS := RoundTo(SqlRelat.fieldByName('Aliquota').AsFloat, 2);

        VL_OPR := RoundTo(SqlRelat.fieldByName('Valor').AsFloat, 2);

        VL_BC_ICMS := RoundTo(SqlRelat.fieldByName('BaseCalculo').AsFloat, 2);

        VL_ICMS := RoundTo(SqlRelat.fieldByName('ICMS').AsFloat, 2);

        VL_RED_BC := 0.00;

        COD_OBS := '';

      end;

 

Debugando os valores estao sendo enviados no bloco porem quando o acbr grava o registro a linha esta sendo gravada assim:

 

|D190|000|5352|0,00|300,00|300,00|0,00|0,00||    o valor alíquota e Valor ICMS esta ficando ZERADO !!!

 

Agora não sei se tem q mudar alguma coisa nos dados ou se eh bug no componente , se alguem poder me ajudar fico muito grato.

 

 

Obrigado.

Editado 22 Janeiro, 2013 por walter faria

[Isaque Pinheiro]

a final, o problema foi ou não resolvido deste post, não entendi.

[Luiz Eduardo]

boa noite walter faria,

 

eu tava com problema em alguns registros c100,

mas era uma verificação que eu fazia pra gerar o registro c190,

procure jogar os dados mais diretamente possível sem manobras com o código.

Qualquer coisa posta ai.

 

vlw