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.

Bom dia Desativei essas 2 opcoes marcadas na imagem e funcionou. Obrigado pelo Apoio. At.

Nao tem Logo vinculado ao Componente. Tem mais alguma coisa que pode ser? At.

Boa tarde Estou tetando imprimir uma DANF-e com o ACBrNFeDANFeRL utilizando o XML, mas executar DM.ACBrNFeDANFeRL.ImprimirDANFE(); o erro abaixo é apresentado. Esse erro nao acontece em minha máquina, onde est's instalado o Delphi. No servidor do cliente, esse erro acontece. Tem impressora Padrão. At.

Bom dia Realizado testes hoje pela manha e o problema parece que foi sanado. Grato.

Boa tarde Respondendo as perguntas: 1) A NF-e está com manifesto, conforme consulta no Sefaz Nacional; 2) Ao tentar realziar o Download, ou vem somente o Resumo ou entao a mensagem 137 - Nenhum Documento Localizado. Isso será que é problema com eles? At.

Bom dia Estou tendo o mesmo prob lema, o sistema está baixando apenas o Protocolo e nao está vindo o XML completo (Conforme XML abaixo). Realizo a consulta --> NFEChave.DistribuicaoDFePorChaveNFe(i_codUf, RetiraCaracter(s_cgccfo), s_chave) e o XML está vindo incompleto (NFEChave.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].XML). É Alguma coisa com o Sefaz? Grato 35201260481264000136550030001272821787439059-resNFe.xml

Boa tarde Resolvido o Problema. O campo IdentificacaoRps.Serie, quando deixado em brando, ele automaticamente gera NF, mas ao assinar o Documento, ele nao leva essa informacao na String do HASH. Eu passei o valor NF, que é obrigatório no Layout e funcionou. Utilizei o libOpenSSL. Grato.

Bom dia Usei as 2 configurações solicitada e o erro ainda continua. Tentei utilizar o libCapicom, mesmo assim o erro persiste. Mais alguma ideia? Grato.

Bom dia Ao tentar enviar uma NFSe para o provedor ISSDSF, o erro em anexo é retornado. Alguem já passou por isso? DM.ACBrNFSe.Configuracoes.Geral.SSLLib := libOpenSSL; DM.ACBrNFSe.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; DM.ACBrNFSe.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; DM.ACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec; Estou Utilizando essa SSLIB. At.

Bom dia Estava faltando a informação DataEmissao. Esse campo vai na consulta do lote apos o envio. Problema Solucionado. Grato

Bom dia Estou realizando o desenvolvimento para o provedor ISSDSF de Campinas / SP, mas ao tentar enviar o erro em anexo é apresentado. Grato.

Boa noite Daniel Obrigado pelo Retorno mas como você pode ver, as configurações já estão conforme Post acima. Procurei na conta e não encontrei nada de configuração para aplicativos menos seguros, como tem no GMAIL. Por enquanto, optamos por criar uma conta na Google para realizar o envio. Grato pela atenção. At,

Boa tarde Estou tentando enviar um e-mail pelo ACBrMail com uma conta do Outlook, conforme imagem abaixo Ao tentar enviar o erro abaixo acontece. grato.

Boa tarde Obrigado Italo At.

Boa tarde pessoal Estou começando um projeto do CIOT e verifiquei que o acbr ja integra com eFrete, Repom e Pamcard, correto? Todas essas integradoras ja estão Funcionando? At.

Daniel, boa tarde Obrigado pelo Retorno. O problema se estende desde ontem. Vale.

Boa tarde pessoal Alguém esta com problema para realizar manifesto ou fazer o Download o XML. No caso do Manifesto retorna Erro não Catalogado (999). Quando faz a ciência, retorna que o WebService de Distribuição está inativo. Grato.

Boa tarde Estou com problema de Manifestar a Ciencia da nota, esta voltando Erro Nao Catalogado (999). Estado de SP. Mais alguem?

Boa tarde Necessário mais uma alteração nessa linha, pois quando é ttTribnoMunIsento, também não pode levar a TAG do municio. if (FProvedor = proSP) and (NFSe.TipoTributacaoRPS <> ttTribnoMun) and (NFSe.TipoTributacaoRPS <> ttTribnoMunIsento) then Gerador.wCampoNFSe(tcStr, '', 'MunicipioPrestacao', 1, 7, 0, NFSe.Servico.MunicipioIncidencia, ''); Segue anexo o .PAS pnfsNFSeW_SP.pas

Boa tarde Estou com o mesmo problema. Ja fiz tudo que foi falado, troca de MIDAS.DLL, tentar executar com o próprio exemplo e nada. Alguma outra Sugestão? Grato Bruno Rossetti

Cidade Duque de Caxias / RJ alterou de provedor (de: TIPLAN para ISSNET); O Provedor ISSNET já está recepcionando as notas desde dia 01/01/2020 Inclusão da Cidade Mage / RJ ([3302502]) Segue arquivo Cidades.INI e ISSNET.ini At. Bruno Rossetti Cidades.ini ISSNet.ini

Italo, boa tarde. Sim, já vasculhei todo o fonte e nao tem nenhum lugar mudando para true, somente para False. At, Bruno Rossetti

Bom dia Estou realizando o envio da NFS-e a mensagem anexa aparece em cada nota. Já coloquei o comando abaixo mas mesmo assim continua aparecendo: ACBrNFSe.Configuracoes.WebServices.Visualizar := false; Como fazer para nao aparecer essa mensagem? Grato.

Boa tarde Fiz exatamente isso @Daniel Simoes, realizei a reinstalação. Obrigado pelo Apoio Pessoal. At.