Erro: X800, mensagem: Erro de Validação: --> 1824 - Element '{http://www.sped.fazenda.gov.br/nfse}xEstProvReg': '' is not a valid value of the atomic type '{http://www.sped.fazenda.gov.br/nfse}TSEstadoProvRegiao'.

[Sérgio Caldeira Silva]

Prezados!

Parametrizamos a NFS-e para emissão da NF para Tomador Estrangeiro e ao enviar, o servidor sefaz retorna o erro acima. Contudo, não encontrei a tag xEstProvReg para preenchimento. 

Poderiam me orientar melhor sobre o preenchimento da tag Província, quando o Tomador for estrangeiro?

[IMATECH]

Basta informar os dados do tomador EX:

Informar Nif (Não informar cpf/Cnpj)

          Tomador.TomadorExterior := snSim;
          Tomador.IdentificacaoTomador.Nif := Nif;
          Tomador.Endereco.Numero := Endereço;

          ... Demais campos endereço

          Tomador.Endereco.CodigoMunicipio := Cmun; // Exterior = 9999999
          Tomador.Endereco.UF := Sigla;  // Exterior = EX
          Tomador.Endereco.CodigoPais := cPais;

*Após autorizar disponibiliza o xml pf (mascarar os dados tomador/emitente antes)

Editado 21 Dezembro, 2025 por IMATECH

[Sérgio Caldeira Silva]

Em 21/12/2025 at 09:59, IMATECH disse:

Basta informar os dados do tomador EX:

Informar Nif (Não informar cpf/Cnpj)

          Tomador.TomadorExterior := snSim;
          Tomador.IdentificacaoTomador.Nif := Nif;
          Tomador.Endereco.Numero := Endereço;

          ... Demais campos endereço

          Tomador.Endereco.CodigoMunicipio := Cmun; // Exterior = 9999999
          Tomador.Endereco.UF := Sigla;  // Exterior = EX
          Tomador.Endereco.CodigoPais := cPais;

*Após autorizar disponibiliza o xml pf (mascarar os dados tomador/emitente antes)

Boa tarde!

[Sérgio Caldeira Silva]

Meu código só não tinha o NIF, porém, mesmo incluindo esta informação, não funcionou. Acredito que tenha alguma campo que não foi preenchido ou uma combinação deles, mas não encontrei referência / documentação disto. O xml gerado está em anexo. Veja meu código, talvez consiga identificar o que precisa ajustar:

      {16/02/2021. Sérgio: dados do cliente.}
      Tomador.IdentificacaoTomador.CpfCnpj := qyDestinatario.FieldByName('SysCliCnp').AsString;
      Tomador.AtualizaTomador              := snNao;
      {16/02/2021. Sérgio: somente PJ possuem IE e IM.}
      if qyDestinatario.FieldByName('SysEntPesTip').AsString = 'J' then
      begin
        Tomador.IdentificacaoTomador.InscricaoEstadual  := qyDestinatario.FieldByName('SysCliInsEst').AsString;
        Tomador.IdentificacaoTomador.InscricaoMunicipal := '';
      end;
      Tomador.RazaoSocial              := qyDestinatario.FieldByName('SysCliRazSoc').AsString;
      Tomador.Endereco.Endereco        := qyDestinatario.FieldByName('SysCliEndLog').AsString;
      Tomador.Endereco.Numero          := Se(qyDestinatario.FieldByName('SysCliEndNum').AsString <> '',
                                             qyDestinatario.FieldByName('SysCliEndNum').AsString,
                                             'S/N');
      Tomador.Endereco.Complemento     := qyDestinatario.FieldByName('SysCliEndCom').AsString;
      Tomador.Endereco.Bairro          := qyDestinatario.FieldByName('SysCliEndBai').AsString;
      Tomador.Endereco.CEP             := qyDestinatario.FieldByName('SysCliEndCep').AsString;
      Tomador.Endereco.CodigoMunicipio := qyDestinatario.FieldByName('SysCidIbgCod').asString;
      Tomador.Endereco.UF              := qyDestinatario.FieldByName('SysUFeSig').AsString;
      Tomador.Endereco.CodigoPais      := qyDestinatario.FieldByName('SysPaiCod').AsInteger;
      Tomador.Endereco.xPais           := qyDestinatario.FieldByName('SysPaiNom').AsString;
      {Retorna o nome da cidade de acordo com a parametrização anterior.}
      if not FileExists(ExtractFilePath(Application.ExeName) + 'ACBrIBGE.txt') then
      begin
        Tomador.Endereco.xMunicipio := qyDestinatario.FieldByName('SysCidNom').AsString;
      end
      else begin
             CodigoMunicipio := Tomador.Endereco.CodigoMunicipio;
             UF              := Tomador.Endereco.UF;
             CaminhoArqMun   := ExtractFilePath(Application.ExeName);
             if not NumeroValido(CodigoMunicipio) then
                CodigoMunicipio := '0';
             Tomador.Endereco.xMunicipio := ObterNomeMunicipio(StrToInt(CodigoMunicipio), UF, CaminhoArqMun);
           end;
      {28/11/2025. Sérgio: Se o endereço for internacional, altera os dados conforme legislação vigente para extrangeiros.}
      {18/12/2025. Sérgio: O endereço estrangeiro é gravado na unit ACBrNFSeXGravarXml, porém, refere-se ao endereço do prestador em outro país; não é nosso caso.}
      if (qyDestinatario.FieldByName('SysUFeSig').AsString = 'EX') then
      begin
        Tomador.TomadorExterior                         := snSim;
        Tomador.IdentificacaoTomador.Nif                := qyDestinatario.FieldByName('SysCliInsEst').AsString;
        Tomador.IdentificacaoTomador.CpfCnpj            := '';
        Tomador.IdentificacaoTomador.InscricaoMunicipal := '';
        Tomador.Endereco.CEP                            := '99999999';
        Tomador.Endereco.CodigoMunicipio                := '9999999';
        NaturezaOperacao                                := no7;
      end
      else begin
             Tomador.TomadorExterior := snNao;
             NaturezaOperacao        := no1;
           end;3125121137125700017656000000001221962-rps.xml

Editado 30 Dezembro, 2025 por Sérgio Caldeira Silva