Valor do PIS ???

[Celso_VS]

Conferindo XML da NFe, vi que o valor do PIS está ZERO.

01

23.50

16.00

0.00

... isso embora eu esteja enviando o valor correto.

Então fui testar no ACBrNFe_Demo, e constatei que também não vai o valor do PIS. Estaria com problemas essa rotina no ACBr ? Alguém já passou por isso ?

OBS:

Uso Delphi 7 e fontes ACBr.

Grato

With PIS do

Begin

CST := StrToCSTPIS(OK, Trim(FieldByName('CST_PIS').AsString));

PIS.vBC := FieldByName('VAL_BC_PIS' ).AsCurrency;

PIS.pPIS := FieldByName('PERC_PIS' ).AsCurrency;

PIS.vPIS := FieldByName('VALOR_PIS' ).AsCurrency;

// O Valor do PIS não está indo - ERRO NO ACBr ***********************

PIS.qBCProd := 0;

PIS.vAliqProd := 0;

PIS.vPIS := 0;

End

;

[André Ferreira de Moraes]

Poste sua rotina onde está preenchendo estes campos.

[Celso_VS]

With PIS do

Begin

CST := StrToCSTPIS(OK, Trim(FieldByName('CST_PIS').AsString));

PIS.vBC := FieldByName('VAL_BC_PIS' ).AsCurrency;

PIS.pPIS := FieldByName('PERC_PIS' ).AsCurrency;

PIS.vPIS := FieldByName('VALOR_PIS' ).AsCurrency;

// O Valor do PIS não está indo - ERRO NO ACBr ***********************

PIS.qBCProd := 0;

PIS.vAliqProd := 0;

PIS.vPIS := 0;

End

;

[Mark Apollo]

Olá, Celso, você está zerando o valor após a linha:

PIS.vAliqProd := 0;

[Angelo Gomes]

na verdade o erro é nessa linha:

PIS.vPIS := 0;

[Mark Apollo]

na verdade o erro é nessa linha:

PIS.vPIS := 0;

exatamente como eu citei, após a linha "PIS.vAliqProd := 0;"

[Celso_VS]

Galera!

Que loucura! Já olhei isso duzentas vezes e não tinha visto. O interessante é que no exemplo do ACBrNfe_Demo esse trecho está comentado e eu comecei a partir dele. Ao testar o demo do ACBr, eu habilitei esse trecho e compilei. Claro que deu o mesmo resultado e eu continuei cego.

Valeu rapaziada!

Obrigado pala ajuda e perdoe a minha cegueira.

Um abraço!

[Mark Apollo]

Também passei por isso, rsrs