NFe Tag Reforma Gerando incorreto tpCredPresIBSZFM

[EdmarFrazao]

na unit : ACBrNFe.XmlWriter;

linha 4240

    if (IBSCBS.gCredPresOper.cCredPres <> cpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresOper(IBSCBS.gCredPresOper))
    else
      Result.AppendChild(Gerar_IBSCBS_gCredPresIBSZFM(IBSCBS.gCredPresIBSZFM));

esta gerando sempre a tag Gerar_IBSCBS_gCredPresIBSZFM  deveria checar se foi preenchido

mudei para:

    if (IBSCBS.gCredPresOper.cCredPres <> cpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresOper(IBSCBS.gCredPresOper));

    if (IBSCBS.gCredPresIBSZFM.tpCredPresIBSZFM <> tcpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresIBSZFM(IBSCBS.gCredPresIBSZFM));

 

 

 

ACBrNFe.XmlWriter.pas

[BigWings]

Enviei pro SVN, rev. 42159, com um pequeno ajuste.

Favor reverter a tua alteração, atualizar com a versão do SVN e testar novamente.

[EdmarFrazao]

A sua correção considera que para zona franca de manaus não tera credito presumido.

if (IBSCBS.gCredPresOper.cCredPres <> cpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresOper(IBSCBS.gCredPresOper))
    else if (IBSCBS.gCredPresIBSZFM.tpCredPresIBSZFM <> tcpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresIBSZFM(IBSCBS.gCredPresIBSZFM));

 

Não sei dizer se pode ou não haver credito presumido para Zona Franca.

Agora, EdmarFrazao disse:

A sua correção considera que para zona franca de manaus não tera credito presumido.

if (IBSCBS.gCredPresOper.cCredPres <> cpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresOper(IBSCBS.gCredPresOper))
    else if (IBSCBS.gCredPresIBSZFM.tpCredPresIBSZFM <> tcpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresIBSZFM(IBSCBS.gCredPresIBSZFM));

 

Não sei dizer se pode ou não haver credito presumido para Zona Franca.

não se se procede: https://www.systax.com.br/artigos-e-novidades/reforma-tributaria-os-creditos-presumidos-de-ibs-e-cbs-na-zfm-e-alc/

[BigWings]

15 minutos atrás, EdmarFrazao disse:

A sua correção considera que para zona franca de manaus não tera credito presumido.

if (IBSCBS.gCredPresOper.cCredPres <> cpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresOper(IBSCBS.gCredPresOper))
    else if (IBSCBS.gCredPresIBSZFM.tpCredPresIBSZFM <> tcpNenhum) then
      Result.AppendChild(Gerar_IBSCBS_gCredPresIBSZFM(IBSCBS.gCredPresIBSZFM));

Movi o post pra este tópico pra ficar melhor organizado.

Não entendi o teu comentário.

Se for informado o tpCredPresIBSZFM e não for informado o cCredPres vai ser gerado o grupo gCredPresIBSZFM.

Não pode haver os dois grupos gCredPresOper e gCredPresIBSZFM, esse foi o motivo da minha alteração.

[apoiosis]

2 horas atrás, BigWings disse:

Movi o post pra este tópico pra ficar melhor organizado.

Não entendi o teu comentário.

Se for informado o tpCredPresIBSZFM e não for informado o cCredPres vai ser gerado o grupo gCredPresIBSZFM.

Não pode haver os dois grupos gCredPresOper e gCredPresIBSZFM, esse foi o motivo da minha alteração.

Vai poder ter o grupo gIBSCBS e gCredPresOper ao mesmo tempo?
Ou agora se tiver o gCredPresOper não deve mais informar os valores de IBS e CBS? Não ficou muito claro na NT.

[BigWings]

41 minutos atrás, apoiosis disse:

Vai poder ter o grupo gIBSCBS e gCredPresOper ao mesmo tempo?
Ou agora se tiver o gCredPresOper não deve mais informar os valores de IBS e CBS? Não ficou muito claro na NT.

Pode sim, o que não pode é ter o grupo de Crédito Presumido e o grupo de Crédito Presumido da ZFM.

[Juliano D. Rosa]

Boa tarde! 

Foi resolvida esta questão? 

Tem cliente meu reclamando que está gerando a tag tpCredPresIBSZFM zerada e dá erro ao importar o XML no sistema do cliente porque não é operação com a ZFM.

[Juliano D. Rosa]

Alterei para cpNenhum e a tag não foi mais gerada. 

Meu caso está resolvido. 

[valterpatrick]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.