Ir para conteúdo
  • Cadastre-se

  • Este tópico foi criado há 181 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores
  • Solution
Postado

Bom dia @HUGO753,

Já esta no SVN.

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e inicie o testes.

Para gerar os novos campos no XML foi feita essa alteração:

  // Reforma Tributária
  if (NFSe.IBSCBS.dest.xNome <> '') or
     (NFSe.IBSCBS.valores.trib.gIBSCBS.cClassTrib <> '') then
  begin
    NFSeNode.AppendChild(AddNode(tcStr, '#1', 'c_classtrib', 6, 6, 1,
                              NFSe.IBSCBS.valores.trib.gIBSCBS.cClassTrib, ''));

    NFSeNode.AppendChild(AddNode(tcStr, '#1', 'ind_op', 6, 6, 1,
                                                       NFSe.IBSCBS.cIndOp, ''));

    NFSeNode.AppendChild(AddNode(tcStr, '#1', 'exterior_op', 1, 1, 1,
                                TIndicadorToStr(NFSe.IBSCBS.OperExterior), ''));

    NFSeNode.AppendChild(AddNode(tcStr, '#1', 'uf_local_op', 2, 2, 1,
                                                       NFSe.IBSCBS.OperUF, ''));

    NFSeNode.AppendChild(AddNode(tcStr, '#1', 'cidade_local_op', 1, 60, 1,
                                                  NFSe.IBSCBS.OperxCidade, ''));

    NFSeNode.AppendChild(AddNode(tcStr, '#1', 'consumo_pessoal', 1, 1, 1,
                              TIndicadorToStr(NFSe.IBSCBS.ConsumoPessoal), ''));

    if NFSe.IBSCBS.dest.xNome <> '' then
    begin
      if Length(NFSe.IBSCBS.dest.CNPJCPF) = 14 then
        NFSeNode.AppendChild(AddNode(tcStr, '#1', 'pessoa_destinatario_cbsibs', 1, 1, 1,
                                                                       'J', ''))
      else
        NFSeNode.AppendChild(AddNode(tcStr, '#1', 'pessoa_destinatario_cbsibs', 1, 1, 1,
                                                                      'F', ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'cnpj_cpf_destinatario_cbsibs', 1, 14, 1,
                                                 NFSe.IBSCBS.dest.CNPJCPF, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'ie_destinatario_cbsibs', 1, 14, 1,
                                                      NFSe.IBSCBS.dest.IE, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'im_destinatario_cbsibs', 1, 14, 1,
                                                      NFSe.IBSCBS.dest.IM, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'razao_social_destinatario_cbsibs', 1, 60, 1,
                                                   NFSe.IBSCBS.dest.xNome, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'endereco_destinatario_cbsibs', 1, 60, 1,
                                              NFSe.IBSCBS.dest.ender.xLgr, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'numero_ende_destinatario_cbsibs', 1, 60, 1,
                                               NFSe.IBSCBS.dest.ender.nro, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'complemento_ende_destinatario_cbsibs', 1, 60, 1,
                                              NFSe.IBSCBS.dest.ender.xCpl, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'bairro_destinatario_cbsibs', 1, 60, 1,
                                           NFSe.IBSCBS.dest.ender.xBairro, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'cep_destinatario_cbsibs', 1, 60, 1,
                                        NFSe.IBSCBS.dest.ender.endNac.CEP, ''));

      xCidade := ObterNomeMunicipioUF(NFSe.IBSCBS.dest.ender.endNac.cMun, xUF);

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'cidade_destinatario_cbsibs', 1, 60, 1,
                                                                  xCidade, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'uf_destinatario_cbsibs', 1, 60, 1,
                                                                      xUF, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'pais_destinatario_cbsibs', 1, 60, 1,
                                                   NFSe.IBSCBS.dest.xPais, ''));

      NFSeNode.AppendChild(AddNode(tcStr, '#1', 'email_destinatario_cbsibs', 1, 60, 1,
                                                   NFSe.IBSCBS.dest.email, ''));
    end;
  end;

A titulo de exemplo, para gerar a tag c_classtrib devemos alimentar o campo: NFSe.IBSCBS.valores.trib.gIBSCBS.cClassTrib

 

  • Obrigado 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

  • Este tópico foi criado há 181 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.