Código do Município não Encontrado

[cueiogordo]

Bom dia a todos.

Estou migrando o componente NFSe para o Novo NFSeX e ao setar o CodigoMunicipio, a mensagem abaixo aparece.

Estou seguindo como orientacao o exemplo, mas mesmo assim o erro acontece.

É necessário retirar o outro componente do projeto, mesmo estando em outro form?

Segue Código de configuração do Componente

   ACBrNFSeX.Configuracoes.Certificados.ArquivoPFX              := DM.qParametro.FieldByName('CERTIFICADOSSL').asString;
   ACBrNFSeX.Configuracoes.Certificados.Senha                   := DM.qParametro.FieldByName('SENHACERTIFICADOSSL').asString;
   ACBrNFSeX.Configuracoes.Certificados.VerificarValidade       :=True;

   s_PathMensal                                                 := ExtractFilePath(Application.ExeName) + '\Log\' + fMain.eCodMun.Text;
   s_PathProc                                                   := ExtractFilePath(Application.ExeName) + '\Proc\' + fMain.eCodMun.Text;

   with ACBrNFSeX.Configuracoes.WebServices do
   begin
     Ambiente                 := StrToTpAmb(b_Ok, DM.qParametro.FieldByName('AMBIENTE').asString);
     Salvar                   := true;
     Ambiente                 := StrToTpAmb(b_Ok, IntToStr(2));
     Visualizar               := true;
     UF                       := fmain.eCodEtd.Text;
     TimeOut                  := 15000;
     AguardarConsultaRet      := 6000;
     IntervaloTentativas      := 5000;
     Tentativas               := 10;
     AjustaAguardaConsultaRet := True;
   end;

   with ACBrNFSeX.Configuracoes.Arquivos do
   begin
     NomeLongoNFSe               := true;
     PathCan                     := s_PathMensal;
     PathSalvar                  := s_PathMensal;
     PathRPS                     := s_PathProc;
     PathNFSe                    := s_PathProc;
     Salvar                      := True;
     AdicionarLiteral            := True;
     EmissaoPathNFSe             := True;
     SepararPorMes               := True;
     SepararPorCNPJ              := False;
     PathGer                     := ExtractFilePath(Application.ExeName) + '\log\';
     PathSchemas                 := ExtractFilePath(Application.ExeName) + '\Schemas\'; // + DM.ACBrNFSe.Configuracoes.Geral.xProvedor;
   end;

   with ACBrNFSeX.Configuracoes.Geral do
   begin
     Salvar                         := true;
     FormaEmissao                   := teNormal;
     Emitente.CNPJ                  := RetiraCaracter(DM.qAux.FieldByName('CGC').asString);
     Emitente.InscMun               := RetiraCaracter(DM.qAux.FieldByName('INSCMUN').asString);
     Emitente.RazSocial             := DM.qAux.FieldByName('NOME').asString;
     SSLLib                         := libOpenSSL;
     SSLCryptLib                    := cryOpenSSL;
     SSLHttpLib                     := httpOpenSSL;
     SSLXmlSignLib                  := xsXmlSec;
     ACBrNFSeX.SSL.SSLType                                        := LT_all;

     if ( (DM.qParametro.FieldByName('USUARIOWEB').asString <> '') and (DM.qParametro.FieldByName('SENHAWEB').asString <> '')) then
     begin
       Emitente.WSSenha             := Cript('D', DM.qParametro.FieldByName('SENHAWEB').asString);
       Emitente.WSUser              := DM.qParametro.FieldByName('USUARIOWEB').asString;
     end
     else
     begin
       Emitente.WSSenha             := '';
       Emitente.WSUser              := '';
     end;

   end;

   if ACBrNFSeX.DANFSe <> nil then
   begin
     // TTipoDANFSE = ( tpPadrao, tpIssDSF, tpFiorilli );
     ACBrNFSeX.DANFSe.TipoDANFSE     := tpPadrao;
     ACBrNFSeX.DANFSe.Prefeitura     := 'SÃO PAULO';
     //ACBrNFSeX.DANFSe.PathPDF      := edtPathPDF.Text;
     ACBrNFSeXDANFSeRL.Prefeitura    := 'PREFEITURA DO MUNICÍPIO DE SÃO PAULO' + #13 + 'NOTA FISCAL DE SERVIÇO ELETRÔNICA - NFS-e';
     ACBrNFSeXDANFSeRL.Prefeitura    := 'PREFEITURA DO MUNICÍPIO DE SÃO PAULO' + #13 + 'NOTA FISCAL DE SERVIÇO ELETRÔNICA - NFS-e';
     ACBrNFSeXDANFSeRL.Logo          := ExtractFilePath(Application.ExeName) + '\Report\' + fMain.eCodMun.Text + '.jpg';
     ACBrNFSeX.DANFSe.Prestador.Logo := ExtractFilePath(Application.ExeName) + '\Report\' + FmAIN.s_CNPJFilial + '.jpg';

     ACBrNFSeX.DANFSe.MargemDireita  := 5;
     ACBrNFSeX.DANFSe.MargemEsquerda := 5;
     ACBrNFSeX.DANFSe.MargemSuperior := 5;
     ACBrNFSeX.DANFSe.MargemInferior := 5;
   end;

   ACBrNFSeX.Configuracoes.Geral.CodigoMunicipio                := StrToIntDef(fMain.eCodMun.Text, 0);
 

 

Grato pela ajuda.

[Juliomar Marchetti]

Chegou a olhar o exemplo?

lá no exemplo tem antes de setar o código da cidade um comando LerCidades

[cueiogordo]

Juliomar, bom dia

Era isso mesmo, tem que realizar o processo de LerCidade e isso passou batido no exemplo.

Deu certo.

Obrigado.

Pode encerrar o Ticket.

[Juliomar Marchetti]

Obrigado por reportar.

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