CST PIS COFINS 73

[Roger Doniz]

Bo atarde a todos!!!

Estou com problema nos códigos de CST de PIS e COFINS na sequencia de nº 50 à 98, o arquivo .xml que envio para o componente está correto, mas quando o componente tenta ler estas duas informações, não encontra especificação na procedure TNFeW.GerarDetImpostoPIS(const i: integer) da UNIT pcnNFeW. Nesta unit está especificado do código CST 01 à CST 09 e o CST 99.

Tenho que implementar os outros códigos ou estou fazendo algo errado???

OBS. Estou com a Versão 0.9.0b do componente ACBR

Grato.

[André Ferreira de Moraes]

O componente tem apenas os CSTs previstos no manual de integração da NFe.

[Roger Doniz]

André!

As alterações disponibilizadas em notas técnicas pelo governo, serão implementadas no componente ou somente após um novo manual de integração?

[André Ferreira de Moraes]

Qual nota técnica que estabelece esses novos códigos?

[André Ferreira de Moraes]

Encontrei a NT 2010.005 - http://www.nfe.fazenda.gov.br/PORTAL/do ... 10.005.pdf - que fala sobre os novos CSTs e vi tbm que eles já estão incluídos no componente inclusive na unit pcnNFeW.pas.

Verifique se vc está com seus fontes atualizados e utilizando a versão compatível com a NFe 2.0(ACBrNFe2).

A versão atual do componente para NFe está em 0.4.0a.

[Roger Doniz]

André!

verifiquei a versão do componente é a "ACBRNFE_VERSAO = '0.4.0a';"

para resolver meu problema tive que fazer a seguinte alteração "comentada com //" no fonte:

procedure TNFeW.GerarDetImpostoPIS(const i: integer);

begin

Gerador.wGrupo('PIS', 'Q01');

if nfe.Det.Imposto.PIS.CST in [pis01, pis02] then

begin

Gerador.wGrupo('PISAliq', 'Q02');

Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det.Imposto.PIS.CST), DSC_CST);

Gerador.wCampo(tcDe2, 'Q07', 'vBC ', 01, 15, 1, nfe.Det.Imposto.PIS.vBC, DSC_VBC);

Gerador.wCampo(tcDe2, 'Q08', 'pPIS ', 01, 05, 1, nfe.Det.Imposto.PIS.pPIS, DSC_PPIS);

Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det.Imposto.PIS.vPIS, DSC_VPIS);

Gerador.wGrupo('/PISAliq');

end

else if nfe.Det.Imposto.PIS.CST = pis03 then

begin

Gerador.wGrupo('PISQtde', 'Q03');

Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det.Imposto.PIS.CST), DSC_CST);

Gerador.wCampo(tcDe4, 'Q10', 'qBCProd ', 01, 16, 1, nfe.Det.Imposto.PIS.qBCProd, DSC_QBCPROD);

Gerador.wCampo(tcDe4, 'Q11', 'vAliqProd', 01, 15, 1, nfe.Det.Imposto.PIS.vAliqProd, DSC_VALIQPROD);

Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det.Imposto.PIS.vPIS, DSC_VPIS);

Gerador.wGrupo('/PISQtde');

end

else if nfe.Det.Imposto.PIS.CST in [pis04, pis06, pis07, pis08, pis09] then

begin

Gerador.wGrupo('PISNT', 'Q04');

Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det.Imposto.PIS.CST), DSC_CST);

Gerador.wGrupo('/PISNT');

end

// else if nfe.Det.Imposto.PIS.CST = pis99 then

else if nfe.Det.Imposto.PIS.CST in [pis73, pis99] then

begin

if (NFe.Det.Imposto.PIS.vBC + NFe.Det.Imposto.PIS.pPIS > 0) and (NFe.Det.Imposto.PIS.qBCProd + NFe.Det.Imposto.PIS.vAliqProd > 0) then

Gerador.wAlerta('Q05', 'PISOutr', DSC_PISOUTR, 'As TAG e não podem ser informadas em conjunto com as TAG e ');

if (NFe.Det.Imposto.PIS.qBCProd + NFe.Det.Imposto.PIS.vAliqProd > 0) then

begin

Gerador.wGrupo('PISOutr', 'Q05');

Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det.Imposto.PIS.CST), DSC_CST);

Gerador.wCampo(tcDe4, 'Q10', 'qBCProd ', 01, 16, 1, nfe.Det.Imposto.PIS.qBCProd, DSC_QBCPROD);

Gerador.wCampo(tcDe4, 'Q11', 'vAliqProd', 01, 15, 1, nfe.Det.Imposto.PIS.vAliqProd, DSC_VALIQPROD);

Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det.Imposto.PIS.vPIS, DSC_VPIS);

Gerador.wGrupo('/PISOutr');

end

else

begin

Gerador.wGrupo('PISOutr', 'Q05');

Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det.Imposto.PIS.CST), DSC_CST);

Gerador.wCampo(tcDe2, 'Q07', 'vBC ', 01, 15, 1, nfe.Det.Imposto.PIS.vBC, DSC_VBC);

Gerador.wCampo(tcDe2, 'Q08', 'pPIS ', 01, 05, 1, nfe.Det.Imposto.PIS.pPIS, DSC_PPIS);

Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det.Imposto.PIS.vPIS, DSC_VPIS);

Gerador.wGrupo('/PISOutr');

end;

end;

Gerador.wGrupo('/PIS');

end;

PS.: Só estou tentando tirar uma duvida se estou fazendo algo de errado em meu arquivo.

grato.

[André Ferreira de Moraes]

Seus fontes não estão iguais aos que estão no SVN.

procedure TNFeW.GerarDetImpostoPIS(const i: integer);

begin

  Gerador.wGrupo('PIS', 'Q01');

  if nfe.Det[i].Imposto.PIS.CST in [pis01, pis02] then

  begin

    Gerador.wGrupo('PISAliq', 'Q02');

    Gerador.wCampo(tcStr, 'Q06', 'CST      ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);

    Gerador.wCampo(tcDe2, 'Q07', 'vBC      ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vBC, DSC_VBC);

    Gerador.wCampo(tcDe2, 'Q08', 'pPIS     ', 01, 05, 1, nfe.Det[i].Imposto.PIS.pPIS, DSC_PPIS);

    Gerador.wCampo(tcDe2, 'Q09', 'vPIS     ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);

    Gerador.wGrupo('/PISAliq');

  end

  else if nfe.Det[i].Imposto.PIS.CST = pis03 then

  begin

    Gerador.wGrupo('PISQtde', 'Q03');

    Gerador.wCampo(tcStr, 'Q06', 'CST      ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);

    Gerador.wCampo(tcDe4, 'Q10', 'qBCProd  ', 01, 16, 1, nfe.Det[i].Imposto.PIS.qBCProd, DSC_QBCPROD);

    Gerador.wCampo(tcDe4, 'Q11', 'vAliqProd', 01, 15, 1, nfe.Det[i].Imposto.PIS.vAliqProd, DSC_VALIQPROD);

    Gerador.wCampo(tcDe2, 'Q09', 'vPIS     ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);

    Gerador.wGrupo('/PISQtde');

  end

  else if nfe.Det[i].Imposto.PIS.CST in [pis04, pis06, pis07, pis08, pis09] then

  begin

    Gerador.wGrupo('PISNT', 'Q04');

    Gerador.wCampo(tcStr, 'Q06', 'CST      ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);

    Gerador.wGrupo('/PISNT');

  end

  else if nfe.Det[i].Imposto.PIS.CST in [pis49, pis50, pis51, pis52, pis53, pis54, pis55, pis56, pis60, pis61, pis62, pis63, pis64, pis65, pis66, pis67, pis70, pis71, pis72, pis73, pis74, pis75, pis98, pis99] then

  begin


    if (NFe.Det[i].Imposto.PIS.vBC + NFe.Det[i].Imposto.PIS.pPIS > 0) and (NFe.Det[i].Imposto.PIS.qBCProd + NFe.Det[i].Imposto.PIS.vAliqProd > 0) then

      Gerador.wAlerta('Q05', 'PISOutr', DSC_PISOUTR, 'As TAG  e  não podem ser informadas em conjunto com as TAG  e ');


    if (NFe.Det[i].Imposto.PIS.qBCProd + NFe.Det[i].Imposto.PIS.vAliqProd > 0) then

    begin

      Gerador.wGrupo('PISOutr', 'Q05');

      Gerador.wCampo(tcStr, 'Q06', 'CST      ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);

      Gerador.wCampo(tcDe4, 'Q10', 'qBCProd  ', 01, 16, 1, nfe.Det[i].Imposto.PIS.qBCProd, DSC_QBCPROD);

      Gerador.wCampo(tcDe4, 'Q11', 'vAliqProd', 01, 15, 1, nfe.Det[i].Imposto.PIS.vAliqProd, DSC_VALIQPROD);

      Gerador.wCampo(tcDe2, 'Q09', 'vPIS     ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);

      Gerador.wGrupo('/PISOutr');

    end

    else

    begin

      Gerador.wGrupo('PISOutr', 'Q05');

      Gerador.wCampo(tcStr, 'Q06', 'CST      ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);

      Gerador.wCampo(tcDe2, 'Q07', 'vBC      ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vBC, DSC_VBC);

      Gerador.wCampo(tcDe2, 'Q08', 'pPIS     ', 01, 05, 1, nfe.Det[i].Imposto.PIS.pPIS, DSC_PPIS);

      Gerador.wCampo(tcDe2, 'Q09', 'vPIS     ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);

      Gerador.wGrupo('/PISOutr');

    end;

  end;

  Gerador.wGrupo('/PIS');

end;

[Roger Doniz]

Baixei esta versão do componente na semana passada, a Unit ACBrNFe está com a versão “ACBRNFE_VERSAO = '0.4.0a';”, mas alguns arquivos como a Unit pcnProcNFe não estava atualizado.

Obrigado pela atenção.

Rogério