Correções na geração do XML

[Italo Giurizzato Junior]

No fonte pcnNFeW da pasta ...\fontes\PCN2, contem um bug:

A linha a baixo esta com o primeiro parametro errado:

Gerador.wCampo(tcInt, 'I17b', 'indTot ', 01, 01, 1, indTotToStr(nfe.Det.Prod.IndTot), DSC_INDTOT);

O correto é:

Gerador.wCampo(tcStr, 'I17b', 'indTot ', 01, 01, 1, indTotToStr(nfe.Det.Prod.IndTot), DSC_INDTOT);

[]s

[hleorj]

Não encontrei diferenca..

Vc deu uma olhada na procedure TGerador.wCampo(....)

[hleorj]

Mas encontrei uma melhoria no codigo em pcnNFeR;

de

(*I17b*)NFe.Det.Prod.IndTot := StrToindTot(ok,Leitor.rCampo(tcDe2, 'indTot'));

Para

(*I17b*)NFe.Det.Prod.IndTot := StrToindTot(ok,Leitor.rCampo(tcInt, 'indTot'));

Alteracao

de tcDe2 === > tcInt

[Italo Giurizzato Junior]

Bom dia Henrique,

O problema é o seguinte: o campo indTot (Página 122 do Manual) indica, se o valor do item (vProd) entra no valor total da NF-e ou não.

É um campo numérico de tamanho 1 e pode assumir os seguintes valores:

0 = o valor do item não compõe o valor total da NF-e;

1 = o valor do item compõe o valor total da NF-e;

Muito bem, foi criado um tipo e 2 funções no fonte: pcnConversao

Tipo:

TpcnIndicadorTotal = (itSomaTotalNFe, itNaoSomaTotalNFe );

Funções:

// 117b - Indicador de soma no total da NFe **************************************

function indTotToStr(const t: TpcnIndicadorTotal): string;

begin

result := EnumeradoToStr(t, ['0', '1'], [itNaoSomaTotalNFe, itSomaTotalNFe]);

end;

function StrToindTot(var ok: boolean; const s: string): TpcnIndicadorTotal;

begin

result := StrToEnumerado(ok, s, ['0', '1'], [itNaoSomaTotalNFe, itSomaTotalNFe]);

end;

Como você pode ver a primeira função converte os valores: itNaoSomaTotalNFe, itSomaTotalNFe nos caracteres: 0 e 1 respectivamente.

Já a segunda função realiza a operação inversa.

Apesar de estar escrito no manual que o campo é numérico o caracter zero representa o numero zero.

No fonte pcnNFeW (procedure GerarDetProd, campo indTot) é utilizado a função indTotToStr ou seja o retorno da função é String, portanto o primeiro paramentro do Gerardor.wCampo tem que ser tcStr.

Já no fonte pcnNFeR a linha:

(*I17b*)NFe.Det.Prod.IndTot := StrToindTot(ok,Leitor.rCampo(tcDe2, 'indTot'));

esta errada, porque a função Leitor.rCampo esta retornando um valor numérico com 2 casas decimais e esse valor esta sendo usado em uma função cujo dado de entrada é String.

Portanto o correto é:

(*I17b*)NFe.Det.Prod.IndTot := StrToindTot(ok,Leitor.rCampo(tcStr, 'indTot'));

No mesmo fonte (pcnNFeR) notei outros casos:

São eles:

(*B18*) NFe.Ide.NFref.RefNF.Modelo := StrToIntDef(Leitor.rCampo(tcInt, 'mod'),55);

(*N12a*)NFe.Det.Imposto.ICMS.CSOSN := StrToCSOSNIcms( ok,Leitor.rCampo(tcInt, 'CSOSN'));

Peço ao Daniel ou André que analise o caso.

[hleorj]

Obrigado ..

Nas referidas situações de correção, por acaso notou alguma alteração na leitura de xml da versao 1.1 da nfe ?