Rogério Xavier

Italo, sempre fiz pelo modo assíncrono. Tentei no modo unitário e deu o seguinte erro: --------------------------- Debugger Exception Notification --------------------------- Project ServidorWin32.exe raised exception class EACBrDFeException with message 'SOAP-ENV:Server - Procedure 'ws:GerarNfse' not present'. --------------------------- Break Continue Help --------------------------- e no modo síncrono deu o seguinte erro: --------------------------- Debugger Exception Notification --------------------------- Project ServidorWin32.exe raised exception class EACBrDFeException with message 'SOAP-ENV:Server - Procedure 'ws:RecepcionarLoteRpsSincrono' not present'. --------------------------- Break Continue Help --------------------------- Uma informação para você: No arquivo ACBrNFSeXServicos.ini tem a seguinte seção: [3145208] ; Atualizado em 27/02/2023 Nome=Nova Serrana UF=MG Provedor=SigCorp Versao=2.04 ProRecepcionar=https://novaserrana.meumunicipio.online/abrasf/ws HomRecepcionar=http://testenovaserrana.meumunicipio.online/abrasf/ws que percebi que carrega as URLs. Fiz um teste na unit SigCorp.Provider forçando a usar URL https://novaserrana.meumunicipio.online/abrasf/ws?wsdl (que foi a URL que o suporte do SigCorp me passou), para isso coloquei o seguinte código na linha 538: URL := GetWebServiceURL(AMetodo); if URL = 'https://novaserrana.meumunicipio.online/abrasf/ws' then URL := 'https://novaserrana.meumunicipio.online/abrasf/ws?wsdl'; Desta forma não dá o erro que estou relatando, porém o arquivo de retorno vem em branco, com a nomenclatura: 20230227142431-rec.json

Em anexo o xml do retorno 20230227153025-rec-soap.xml

Boa tarde Italo, atualizei os componentes e recompilei o sistema, agora está dando o seguinte erro: --------------------------- Debugger Exception Notification --------------------------- Project ServidorWin32.exe raised exception class EACBrDFeException with message 'SOAP-ENV:Server - Procedure 'ws:RecepcionarLoteRps' not present'. --------------------------- Break Continue Help --------------------------- isto acontece quando tenta executar EmiteResponse.ArquivoRetorno := AService.Recepcionar(ConfigMsgDados.DadosCabecalho, EmiteResponse.ArquivoEnvio); na linha 1615 do arquivo ACBrNFSeXProviderBase

Bom dia Italo, Desculpa pela demora no retorno, é porque tive que entrar em contato com o suporte do provedor e devido ao recesso de carnaval demorou. Fiz os procedimentos que sugeriu e os problemas acima foram resolvidos, porém está dando erro conforme no xml em anexo. No xml tem a URL http://abrasfnovaserrana.meumunicipio.online/ws (esta URL se colar no navegador dá erro) entrei contato com o provedor e me informaram que a URL correta é https://novaserrana.meumunicipio.online/abrasf/ws?wsdl (se colar esta no navegador da certo) 20230224103623-rec.xml

Boa tarde Italo, Bom da Italo, Atualizei os componentes e recompilei o sistema, agora estou tendo o seguinte erro ao quando executo ACBrNFSeX1.GerarLote(Lote) --------------------------- Debugger Exception Notification --------------------------- Project ServidorWin32.exe raised exception class EACBrXmlException with message 'Extra content at the end of the document '. --------------------------- Break Continue Help ---------------------------

Boa tarde Italo, as URLs podem ser obtidas em: Produção: https://abrasfnovaserrana.meumunicipio.online/ws?wsdl Homologação: https://testenovaserrana.meumunicipio.online/abrasf/ws?wsdl

Bom dia Italo, confirmei na prefeitura de Nova Serrana/MG, está usando a versão 2.04

Bom dia Italo, Na verdade, eu fiz a alteração tanto na versão 2.03 quanto na 2.04, mas o componente de meu sistema está setado para usar a versão 2.04. Enviei os RPS's usando esta versão e com as alterações na procedure e deu tudo certo, peguei o retorno, enviei o PDF para o cliente e consultei a nota no site da prefeitura. Então acredito que esteja atualizado na prefeitura também, de qualquer forma vou entrar em contato para verificar como realmente está. O componente do ACBr eu configuro da seguinte forma: NFSeX.Configuracoes.Geral.Provedor := proSigCorp; NFSeX.Configuracoes.Geral.Versao := ve204; as procedures ficaram assim: procedure TACBrNFSeProviderSigCorp204.Configuracao; begin inherited Configuracao; FpFormatoDataRecebimento := tcDatHor; { // Usado na leitura do envio FpFormatoDataRecebimento := tcDatUSA; // Usado na leitura das informações de cancelamento FpFormatoDataHora := tcDatHor; // Usado na leitura da data de emissão da NFS-e FpFormatoDataEmissao := tcDatHor; } with ConfigGeral do begin QuebradeLinha := '|'; ConsultaPorFaixaPreencherNumNfseFinal := True; end; with ConfigAssinar do begin Rps := True; LoteRps := True; CancelarNFSe := True; RpsGerarNFSe := True; SubstituirNFSe := True; end; with ConfigWebServices do begin VersaoDados := '2.04'; VersaoAtrib := '2.04'; end; with ConfigMsgDados do begin GerarPrestadorLoteRps := True; DadosCabecalho := GetCabecalho(''); end; end; e procedure TACBrNFSeProviderSigCorp203.Configuracao; begin inherited Configuracao; // Usado na leitura do envio // FpFormatoDataRecebimento := tcDatUSA; FpFormatoDataRecebimento := tcDatHor; // Usado na leitura das informações de cancelamento FpFormatoDataHora := tcDatHor; // Usado na leitura da data de emissão da NFS-e FpFormatoDataEmissao := tcDatHor; if ConfigGeral.Params.ParamTemValor('FormatoData', 'CancDDMMAAAA') then FpFormatoDataHora := tcDatVcto; if ConfigGeral.Params.ParamTemValor('FormatoData', 'CancMMDDAAAA') then FpFormatoDataHora := tcDatUSA; if ConfigGeral.Params.ParamTemValor('FormatoData', 'NFSeDDMMAAAA') then FpFormatoDataEmissao := tcDatVcto; if ConfigGeral.Params.ParamTemValor('FormatoData', 'NFSeMMDDAAAA') then FpFormatoDataEmissao := tcDatUSA; with ConfigGeral do begin UseCertificateHTTP := False; QuebradeLinha := '|'; end; with ConfigAssinar do begin Rps := True; CancelarNFSe := True; RpsGerarNFSe := True; end; with ConfigWebServices do begin VersaoDados := '2.03'; VersaoAtrib := '2.03'; end; ConfigMsgDados.DadosCabecalho := GetCabecalho(''); end;

Bom dia Italo, Não como fazer isto de forma configurável? Assim deixaria a propriedade com valor padrão como é hoje, e quem precisar muda a propriedade da forma que lhe atenda. Obrigado!

Boa tarde Diego, testei o envio da NFS-e com a alteração que você sugeriu e deu certo. A procedure ficou assim: procedure TACBrNFSeProviderSigCorp204.Configuracao; begin inherited Configuracao; FpFormatoDataRecebimento := tcDatHor; { // Usado na leitura do envio FpFormatoDataRecebimento := tcDatUSA; // Usado na leitura das informações de cancelamento FpFormatoDataHora := tcDatHor; // Usado na leitura da data de emissão da NFS-e FpFormatoDataEmissao := tcDatHor; } with ConfigGeral do begin QuebradeLinha := '|'; ConsultaPorFaixaPreencherNumNfseFinal := True; end; with ConfigAssinar do begin Rps := True; LoteRps := True; CancelarNFSe := True; RpsGerarNFSe := True; SubstituirNFSe := True; end; with ConfigWebServices do begin VersaoDados := '2.04'; VersaoAtrib := '2.04'; end; with ConfigMsgDados do begin GerarPrestadorLoteRps := True; DadosCabecalho := GetCabecalho(''); end; end;

Boa tarde, vou fazer o teste sugerido e lhe dou o retorno, obrigado

Olá, saudações a todos Atualizei hoje os fontes do ACBR, e depois disso tive problemas ao enviar RPS para o provedor SigCorp, da prefeitura de Nova Serrana/MG. Ao tentar salvar o retorno, estava dando erro de data inválida. Alterei a linha 519 do arquivo ACBrNFSeXProviderABRASFv2.pas e aí deu certo. O conteúdo da linha era: Data := ObterConteudoTag(ANode.Childrens.FindAnyNs('DataRecebimento'), FpFormatoDataRecebimento); e com a alteração ficou Data := ObterConteudoTag(ANode.Childrens.FindAnyNs('DataRecebimento'), tcDatHor); Sugiro esta correção do componente para o pessoal do desenvolvimento. Obrigado ACBrNFSeXProviderABRASFv2.pas

Bom dia Ítalo, Vou entrar em contato com o provedor e passar as informações. Obrigado

Victor, conferi o xml do RPS, nele não tem esta tag. Segue o xml no privado.

Boa tarde Vitor, Este valor não é calculado pelo componente do ACBr quando a nota é transmitida?