Rodrigo - Digibyte

4 Novembro, 2022

17 horas atrás, Italo Giurizzato Junior disse:

Boa tarde Rodrigo,

Favor anexar a unit alterada para que possamos avaliar.

Desde já muito obrigado pela colaboração.

ACBrNFSeXProviderABRASFv1.pas

4 Novembro, 2022

O fórum não permite que eu anexe arquivos maiores que 3.94 kB

1 Novembro, 2022

Testando e funcionando

1 Novembro, 2022

Adicionado "IF" pois o node IdentificacaoRps pode ser null ocasionando AV

if Node <> nil then
begin
NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
SerieRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Serie'), tcStr);
end;

function TACBrNFSeProviderABRASFv1.PreencherNotaRespostaConsultaNFSe(Node,
  parentNode: TACBrXmlNode; Response: TNFSeConsultaNFSeResponse): Boolean;
var
  NumNFSe, CodVerif, NumRps, SerieRps: String;
  ANota: TNotaFiscal;
  AResumo: TNFSeResumoCollectionItem;
begin
  Result := False;

  if Node <> nil then
  begin
    Node := Node.Childrens.FindAnyNs('InfNfse');
    NumNFSe := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
    CodVerif := ObterConteudoTag(Node.Childrens.FindAnyNs('CodigoVerificacao'), tcStr);
    Node := Node.Childrens.FindAnyNs('IdentificacaoRps');
    if Node <> nil then
    begin
      NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
      SerieRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Serie'), tcStr);
    end;

    AResumo := Response.Resumos.New;
    AResumo.NumeroNota := NumNFSe;
    AResumo.CodigoVerificacao := CodVerif;
    AResumo.NumeroRps := NumRps;
    AResumo.SerieRps := SerieRps;

    ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps);

    ANota := CarregarXmlNfse(ANota, parentNode.OuterXml);
    SalvarXmlNfse(ANota);
    Result := True; // Processado com sucesso pois retornou a nota
  end;
end;

27 Outubro, 2022

Citar

Em seguida temos um loop que vai ler todas as ocorrências do grupo CompNfse ou ComplNfse

Eu debuguei, pra mim está errado. O loop tinha que ser em tcCompNfse não em CompNfse. A tag que se repete NÃO é a CompNfse. Te mandei o XML via msg privada.

27 Outubro, 2022

Investigando um pouco, na procedure TACBrNFSeProviderABRASFv1.TratarRetornoConsultaNFSe(Response: TNFSeConsultaNFSeResponse) temos:

      ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse');
      if ANodeArray = nil then
        ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse');

      if not Assigned(ANodeArray) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod203;
        AErro.Descricao := Desc203;
        Exit;
      end;

      for I := Low(ANodeArray) to High(ANodeArray) do
      begin
        ANode := ANodeArray[I];

Pelo que entendi vai percorrer uma lista de tags CompNfse porém as notas estão dentro de tcCompNfse então o código só faz uma interação.

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <soap:Body>
        <ConsultarNfseResponse xmlns="http://www.e-governeapps2.com.br/">
            <ConsultarNfseResult>
                <ListaNfse>
                    <CompNfse>
                        <tcCompNfse>
                            <Nfse>
                                <InfNfse>
                                    <Numero>13943</Numero>
								</InfNfse>
							</Nfse>
						</tcCompNfse>
						<tcCompNfse>
							<Nfse>
								<InfNfse>
									<Numero>13944</Numero>

27 Outubro, 2022

Bom dia.

Verifiquei o xml soap de resposta e as notas estão todas lá, porém só tem uma nota carregada no componente (a primeira).

Alguma ideia do que poderia ser?

26 Outubro, 2022

Boa tarde. É a configuração que uso com outro provedores.

SSLLib = libWinCrypt

CryptLib = cryWinCrypt

HttpLib = httpWinHttp

XmlSignLib = xsLibXml2

SSLType = LT_all

17 Outubro, 2022

Durante a importação de xml do provedor Abaco foi observado um erro ocasionado pela leitura da tag DataEmissaoRps com uma data inválida. Ela não está preenchida pois esta nota não teve um RPS gerado.

Alterei a procedure TNFSeR_ABRASFv1.LerInfNfse inserindo o "if" para fazer o tratamento e evitar o erro

if (NFSe.IdentificacaoRps.Numero <> '0') then
NFSe.DataEmissaoRps := LerDataEmissaoRps(AuxNode);

Acho até que esse tratamento deveria estar nas classes do ACBR que tratam a conversão de datas mas não quis mexer nessa parte, fica como sugestão.

Não consigo fazer upload do arquivo, retorna erro de upload, a unit é ACBrNFSeXLerXml_ABRASFv1.pas

<IdentificacaoRps>
<Numero>0</Numero>
<Serie/>
<Tipo>0</Tipo>
</IdentificacaoRps>
<DataEmissaoRps>0000-00-00</DataEmissaoRps>
<NaturezaOperacao>1</NaturezaOperacao>

13 Outubro, 2022

Provedor SisPMJP 2.02

Já atualizei o ACBR

Em anexo o XML da requisição

Estou tendo o erro abaixo ao tentar consultar por faixa de notas, alguma dica?

Erro(s):
Código : X999
Mensagem: Erro de Conexão: Erro Interno: 0
Erro HTTP: 401
URL: https://sispmjp.joaopessoa.pb.gov.br:8443/sispmjp/NfseWSService

Premature end of data in tag html line 1

Correção:
---------

000000001001430000000001001435000001-con-nfse-fai-soap.xml

13 Outubro, 2022

[3554300]
; Incluido 13/10/2022
Nome=Teodoro Sampaio
UF=SP
Provedor=Pronim
Versao=2.03

Não estou conseguindo anexar o arquivo, erro: "você só pode fazer o upload de b."

6 Outubro, 2022

Tentei mandar o arquivo mas está erro de upload

[3539202]
; Incluido 06/10/2022
Nome=Pirapozinho
UF=SP
Provedor=Fiorilli
Versao=2.00
ProRecepcionar=http://186.227.40.20:8080/IssWeb-ejb/IssWebWS/IssWebWS
ProLinkURL=http://186.227.40.20:8080/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

[5001102]
; Corrigido 06/10/22
Nome=Aquidauana
UF=MS
Provedor=Fiorilli
Versao=2.00
ProRecepcionar=http://pmaquidauana.rcmsuporte.com.br:8080/IssWeb-ejb/IssWebWS/IssWebWS
ProLinkURL=http://pmaquidauana.rcmsuporte.com.br:8080/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

27 Setembro, 2022

Opa, ia responder mas você foi mais rápido. Obrigado pelo retorno.

Sim, a cidade trocou de provedor mas os erros acima já são no provedor correto > fiorilli . Se quiser pode até arrumar no ini ou posto separado ...
Na demonstração vi que estava desmarcada a opção de montar o path dos schemas automaticamente (pegava errado), esse era o meu primeiro erro.
Depois notei que não existem schemas da versão 2.01, mudei no ini para 2.00 e fez a consulta corretamente. Apesar que pelo manual deles eu entendi que seria versão 2.01.
Agora deu um erro pedindo certificado digital, achei que bastava usuário e senha, vou testar. O erro principal foi solucionado, dá pra fechar.

Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Erro Interno: 0
Erro HTTP: 0
URL: http://issweb.jardim.ms.gov.br:8088/IssWeb-ejb/IssWebWS/IssWebWS

DadosPFX, ArquivoPFX, URLPFX ou NumeroSerie não especificados !

[5005004]
Nome=Jardim
UF=MS
Provedor=Fiorilli
Versao=2.00
ProRecepcionar=http://issweb.jardim.ms.gov.br:8088/IssWeb-ejb/IssWebWS/IssWebWS
ProLinkURL=http://issweb.jardim.ms.gov.br:8088/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

27 Setembro, 2022

Olá.

Estou tentando baixar as notas por faixa de numeração e obtenho o erro abaixo. Estou utilizando o programa de exemplo, é a primeira vez que tento fazer consulta pelo WS de prefeitura então não sei por onde começar. Alguma dica de como resolver? O que estaria errado?

Erro(s):
Código  : X800
Mensagem: Erro de Validação: 1845 - Element '{http://www.abrasf.org.br/nfse.xsd}ConsultarNfseFaixaEnvio': No matching global declaration available for the validation root.

Esse é o arquivo ini modificado - o provedor estava incorreto

[5005004]
Nome=Jardim
UF=MS
Provedor=Fiorilli
Versao=2.01
ProRecepcionar=http://issweb.jardim.ms.gov.br:8088/IssWeb-ejb/IssWebWS/IssWebWS
ProLinkURL=http://issweb.jardim.ms.gov.br:8088/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

Essa é a requisição

- <ConsultarNfseFaixaEnvio xmlns="http://www.abrasf.org.br/nfse.xsd">
- <Prestador>
- <CpfCnpj>
  <Cnpj>XXXXXXXXXXXXXXXX</Cnpj> 
  </CpfCnpj>
  </Prestador>
- <Faixa>
  <NumeroNfseInicial>2200</NumeroNfseInicial> 
  <NumeroNfseFinal>2220</NumeroNfseFinal> 
  </Faixa>
  <Pagina>1</Pagina> 
  </ConsultarNfseFaixaEnvio>

25 Agosto, 2022

Eu imaginei que a versão fosse 2.01 por causa do arquivo... no site do município todas as instruções são usando o portal deles, não tem nada a respeito de integração, olhei todos os manuais que achei

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<CompNfse xmlns="http://www.abrasf.org.br/nfse.xsd" xmlns:ns2="http://www.w3.org/2000/09/xmldsig#">
	<Nfse versao="2.01">

25 Agosto, 2022

Não emito nota então não uso as URL, apenas importo o XML e vi que estava errado o provedor. No material que achei no site não tinha nada a respeito: http://pmaquidauana.rcmsuporte.com.br:8080/issweb/home.jsf

25 Agosto, 2022

Um sistema em segundo plano monitora a pasta onde salva as notas e envia pra Alterdata que então manda pra plataforma do contador. Simples e não usa nada ilícito.

25 Agosto, 2022

Está dando erro ao fazer upload, mas ficou assim:

[5001102]
Nome=Aquidauana
UF=MS
Provedor=Fiorilli
Versao=2.01

18 Agosto, 2022

Boa tarde, @Italo Giurizzato Junior fiz o update deu um conflito aqui, acho que faltou esse arquivo

SigISS.LerXml.pas

12 Agosto, 2022

@Italo Giurizzato Junior Boa tarde, seguem os arquivos com implementação que fiz.

Basicamente criei um novo tipo de documento ( TtpXML = (txmlRPS, txmlNFSe, txmlEspelho); ) e fiz a implementação da leiturado do XML. Lembro que esse arquivo de espelho da nota é baixado do portal da prefeitura. Sendo aceito vou fazer de outros provedores.

ACBrNFSeXNotasFiscais.pas ACBrNFSeXConversao.pas SigISS.LerXml.pas

16 Maio, 2022

Bom dia. Fiz uma comparação do arquivo baixado pelo portal com o manual do provedor e realmente os arquivos são diferentes. No caso de Londrina seria até complicado baixar a nota usando o WS pois é só uma a uma, não dá por faixa de datas.

Seria valido eu implementar para esse provedor a leitura do arquivo do portal, vocês incluiriam no ACBR? Minha ideia seria criar um novo TipoXml ...

Só complementando, que eu me lembre outros provedores tem essa diferença entre a nota e o baixado do portal

function TNotaFiscal.LerXML(const AXML: String): Boolean;
var
  FProvider: IACBrNFSeXProvider;
  TipoXml: TtpXML;
begin
  FProvider := TACBrNFSeX(FACBrNFSe).Provider;

  if not Assigned(FProvider) then
    raise EACBrNFSeException.Create(ERR_SEM_PROVEDOR);

  Result := FProvider.LerXML(AXml, FNFSe, TipoXml);

  if TipoXml = txmlNFSe then
    FXmlNfse := AXML
  else
    FXmlRps := AXML;
end;

4 Maio, 2022

Meu contexto é um pouco diferente pois trabalho com sistema de escrituração fiscal, então meu foco é a importação dos lançamentos. Não emito nada. Mas vou ver se a importação via WS dá certo. Tem alguma ideia de como é feito com esse provedor, via certificado digital ou usuário/senha ou outra forma?

4 Maio, 2022

Não testei pelo WebService, isso é algo que vou começar a implementar. Posso até tentar testar de Londrina, tenho que ver como conecta lá. Entendo que pelo WS realmente o layout talvez seja diferente mas é que como tem o loadxml implementado, então estou usando , estaria dentro da finalidade do componente... Mas claro, entendo a situação e nem estou cobrando algo, só preciso de um direcionamento para que eu possa encaminhar a solução pro cliente e ajudar no componente se necessário.

2 Maio, 2022

Boa tarde @Italo Giurizzato Junior , gostaria de saber se tem alguma novidade sobre esse assunto. Após sua análise e definições, caso precise de alguma ajuda, só me avisar.

25 Abril, 2022

Não precisa saber ou escolher manualmente o provedor de cada cidade, o ACBR faz isso pelo código do município. Existia também uma leitura do XML para tentar identificar o provedor, mas no X acho que é só pelo município mesmo:

ACBrNFSe.Configuracoes.Geral.CodigoMunicipio

O XML varia entre provedores, não entre cidades, mas pode haver alguma situação específica

O ACBRNFSE X está com problema para ler a nota do provedor SIG quando baixado do site

O ACBRNFSE anterior deve estar funcionando, não tenho certeza, talvez falhe algum campo

Pra pegar o CNPJ experimente:

ACBrNFSe.NotasFiscais.Items[i].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj)

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Rodrigo - Digibyte

Sobre nós...

Informação Importante