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?

Ítalo, Eu tentei com todos os arquivos que estão na pasta ACBR\Exemplos\ACBrDFe\ACBrNFSeX\Delphi\Report. Com nenhum deu certo.

Ítalo, Realmente haviam alguns arquivos com a bolinha vermelha no ícone, eu apaguei, reinstalei marcando a opção de apagar os arquivos antigos, recompilei e o problema persistiu. Eu uso o DANFSE feito em Fast

Bom dia Ítalo, Atualizei todos os fontes, reinstalei o ACBR e compilei o sistema. O problema persiste.

Boa tarde Ítalo, Os fontes estão atualizados e ACBr instalado. A cidade é Nova Serrana - MG, o provedor é SIGCORP. O xml vou mandar no privado

Saudações a todos, estou com problema no ao imprimir o DANFSe usando o componente ACBrNFSeX. O campo "Valor Líquido" está deduzindo o ISS mesmo quando não retenção na nota. Existe alguma configuração a ser feita? O problema pode ser visto nos campos destacados na imagem Obrigado

Confere sim Ítalo. Ela está desta forma no arquivo 20220228213547-rec.xml. Mas conforme disse anteriormente, se eu alterar o arquivo durante o debug, colocando o zero tanto no mês quanto na hora, dá certo

Bom dia Ítalo, atualizei os fontes, reinstalei o ACBr e recompilei o programa. Mesmo assim continua não buscando o número do protocolo. Lembrando que falta os 0 (zeros) no formato da data e hora na tag <DataRecebimento>2/28/2022 7:20:59 PM</DataRecebimento>

Boa tarde Ítalo, fiz a alteração que sugeriu e ai passou a gravar o arquivo de retorno. Mas na sequência passou a dar o erro: Debugger Exception Notification --------------------------- Project XXXXX.exe raised exception class EConvertError with message ''2/' is not a valid integer value'. --------------------------- Break Continue Help debugando, descobri que o problema era com a data do recebimento, que estava <DataRecebimento>2/11/2022 5:26:51 PM</DataRecebimento> (faltando o zero no mês e na hora). Alterei o conteúdo do xml durante o processo, deixando assim <DataRecebimento>02/11/2022 05:26:51 PM</DataRecebimento> e dando continuidade ao debug, na função LerDatas da unit ACBrXmlBase a variável xData recebeu o valor '2/11/2022 5:26:51 PM', que também alterei. Após estes passos deu tudo certo. O anexo "Imagem debug.png" consta o print da tela de debug. O anexo "20220211172649-rec - Original.xml" é o xml como foi salvo em disco pelo componente O anexo "20220211172649-rec.xml" é o xml com as alterações que fiz. 20220211172649-rec - Original.xml 20220211172649-rec.xml

Bom dia Ítalo, no caso do RPS que te enviei, realmente haviam mais de uma nota nele, mas mesmo quando envio uma nota só não estou conseguindo ler o número do protocolo, mesmo quando a nota é autorizada.

como faço para mandar no privado?