Ir para conteúdo
  • Cadastre-se

Seja bem-vindo
Seja um membro do ACBr Pro e agilize seu software Participe do Discord do ACBr Regras e orientações da nossa comunidade DIA DO ACBR 2026 - O GRANDE ENCONTRO DA COMUNIDADE

NFSE Reforma Tributaria

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

Recommended Posts

Afonso Junior Explorer

Afonso Junior

Postado
Postado

Estou tentando enviar uma NFSE com as novas tags de IBS e CBS porém não estão sendo enviada.
Utilizo Goiânia que foi para o ISSNet 

meu código:

 

while not DmConexao.qryCBSIBS.Eof do
        begin
          IBSCBS.finNFSe   := fnfsRegular;
          IBSCBS.indFinal  := ifSim;
          IBSCBS.cIndOp    := DmConexao.qryCBSIBS.FieldByName('cIndOp').AsString;
          IBSCBS.indDest   := idTomadorAdquirenteDestinatarioIguais;
          IBSCBS.tpOper    := togNenhum;
          IBSCBS.tpEnteGov := tcgNenhum;

          IBSCBS.dest.CNPJCPF           := Tomador.IdentificacaoTomador.CpfCnpj;
          IBSCBS.dest.Nif               := Tomador.IdentificacaoTomador.Nif;
          IBSCBS.dest.cNaoNIF           := tnnNaoExigencia;
          IBSCBS.dest.xNome             := Tomador.RazaoSocial;
          IBSCBS.dest.fone              := Tomador.Contato.Telefone;
          IBSCBS.dest.email             := Tomador.Contato.Email;
          IBSCBS.dest.ender.endNac.cMun := StrToInt(Tomador.Endereco.CodigoMunicipio);
          IBSCBS.dest.ender.endNac.CEP  := Tomador.Endereco.CEP;
          IBSCBS.dest.ender.xLgr        := Tomador.Endereco.Endereco;
          IBSCBS.dest.ender.nro         := Tomador.Endereco.Numero;
          IBSCBS.dest.ender.xCpl        := Tomador.Endereco.Complemento;
          IBSCBS.dest.ender.xBairro     := Tomador.Endereco.Bairro;

          if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '000' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst000
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '010' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst010
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '011' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst011
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '200' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst200
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '221' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst221
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '400' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst400
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '410' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst410
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '510' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst510
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '550' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst550
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '800' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst800
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '820' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst820;

          IBSCBS.valores.trib.gIBSCBS.cClassTrib := DmConexao.qryCBSIBS.FieldByName('cClassTrib').AsString;;
          IBSCBS.valores.trib.gIBSCBS.cCredPres  := cp01;

          if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '000' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst000
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '010' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst010
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '011' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst011
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '200' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst200
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '221' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst221
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '400' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst400
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '410' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst410
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '510' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst510
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '550' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst550
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '800' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst800
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '820' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst820;

          IBSCBS.valores.trib.gIBSCBS.gTribRegular.cClassTribReg := DmConexao.qryCBSIBS.FieldByName('cClassTribReg').AsString;;

          IBSCBS.valores.trib.gIBSCBS.gDif.pDifUF  := DmConexao.qryCBSIBS.FieldByName('pDifUF').AsCurrency;
          IBSCBS.valores.trib.gIBSCBS.gDif.pDifMun := DmConexao.qryCBSIBS.FieldByName('pDifMun').AsCurrency;
          IBSCBS.valores.trib.gIBSCBS.gDif.pDifCBS := DmConexao.qryCBSIBS.FieldByName('pDifCBS').AsCurrency;

          DmConexao.qryCBSIBS.Next;
        end;

Sandro TC Collaborator

Sandro TC

Postado
Postado
Em 28/10/2025 at 16:37, Afonso Junior disse:

Estou tentando enviar uma NFSE com as novas tags de IBS e CBS porém não estão sendo enviada.
Utilizo Goiânia que foi para o ISSNet 

meu código:

 

while not DmConexao.qryCBSIBS.Eof do
        begin
          IBSCBS.finNFSe   := fnfsRegular;
          IBSCBS.indFinal  := ifSim;
          IBSCBS.cIndOp    := DmConexao.qryCBSIBS.FieldByName('cIndOp').AsString;
          IBSCBS.indDest   := idTomadorAdquirenteDestinatarioIguais;
          IBSCBS.tpOper    := togNenhum;
          IBSCBS.tpEnteGov := tcgNenhum;

          IBSCBS.dest.CNPJCPF           := Tomador.IdentificacaoTomador.CpfCnpj;
          IBSCBS.dest.Nif               := Tomador.IdentificacaoTomador.Nif;
          IBSCBS.dest.cNaoNIF           := tnnNaoExigencia;
          IBSCBS.dest.xNome             := Tomador.RazaoSocial;
          IBSCBS.dest.fone              := Tomador.Contato.Telefone;
          IBSCBS.dest.email             := Tomador.Contato.Email;
          IBSCBS.dest.ender.endNac.cMun := StrToInt(Tomador.Endereco.CodigoMunicipio);
          IBSCBS.dest.ender.endNac.CEP  := Tomador.Endereco.CEP;
          IBSCBS.dest.ender.xLgr        := Tomador.Endereco.Endereco;
          IBSCBS.dest.ender.nro         := Tomador.Endereco.Numero;
          IBSCBS.dest.ender.xCpl        := Tomador.Endereco.Complemento;
          IBSCBS.dest.ender.xBairro     := Tomador.Endereco.Bairro;

          if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '000' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst000
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '010' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst010
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '011' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst011
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '200' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst200
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '221' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst221
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '400' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst400
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '410' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst410
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '510' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst510
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '550' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst550
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '800' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst800
          else if DmConexao.qryCBSIBS.FieldByName('cst').AsString = '820' then
            IBSCBS.valores.trib.gIBSCBS.CST := cst820;

          IBSCBS.valores.trib.gIBSCBS.cClassTrib := DmConexao.qryCBSIBS.FieldByName('cClassTrib').AsString;;
          IBSCBS.valores.trib.gIBSCBS.cCredPres  := cp01;

          if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '000' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst000
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '010' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst010
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '011' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst011
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '200' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst200
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '221' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst221
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '400' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst400
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '410' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst410
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '510' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst510
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '550' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst550
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '800' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst800
          else if DmConexao.qryCBSIBS.FieldByName('CSTReg').AsString = '820' then
            IBSCBS.valores.trib.gIBSCBS.gTribRegular.CSTReg := cst820;

          IBSCBS.valores.trib.gIBSCBS.gTribRegular.cClassTribReg := DmConexao.qryCBSIBS.FieldByName('cClassTribReg').AsString;;

          IBSCBS.valores.trib.gIBSCBS.gDif.pDifUF  := DmConexao.qryCBSIBS.FieldByName('pDifUF').AsCurrency;
          IBSCBS.valores.trib.gIBSCBS.gDif.pDifMun := DmConexao.qryCBSIBS.FieldByName('pDifMun').AsCurrency;
          IBSCBS.valores.trib.gIBSCBS.gDif.pDifCBS := DmConexao.qryCBSIBS.FieldByName('pDifCBS').AsCurrency;

          DmConexao.qryCBSIBS.Next;
        end;

Olá, Afonso.

Você conseguiu alguma solução para essa questão?

 

  • Este tópico foi criado há 211 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
 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.