Provedor Agili

[Valdir Dill]

Certo Italo, foi exatamente isso que eu também entendi lendo a mensagem de forma literal, mas pensei que não poderia ser isso, rs...

Então, se entendi direito, nesse caso, não tem como enviar uma única nota (RPS). Precisa enviar sempre, no mínimo duas notas? Isso não é muito estranho?

Obrigado!

[BigWings]

25 minutos atrás, valdirdill disse:

Certo Italo, foi exatamente isso que eu também entendi lendo a mensagem de forma literal, mas pensei que não poderia ser isso, rs...

Então, se entendi direito, nesse caso, não tem como enviar uma única nota (RPS). Precisa enviar sempre, no mínimo duas notas? Isso não é muito estranho?

Obrigado!

Para um RPS apenas você pode usar a função [Gerar e enviar um RPS] do demo.

Veja o código:

 if not(InputQuery('Gerar e Enviar NFSe', 'Numero do RPS', vNumRPS))
  then exit;

 ACBrNFSe1.NotasFiscais.Clear;
 AlimentaComponente(vNumRPS);

 ACBrNFSe1.Gerar(StrToInt(vNumRPS));

 

[BigWings]

@Italo Jurisato Junior

Fiz algumas alterações no código para que funcione também com o layout de Sorriso/MT e Assu/RN, que a propósito são os mesmos.

Criei uma nova tag no .ini chamada VersaoLayout, e separei os arquivos em Agili.ini e Agili-v1.ini, sendo o último a versão 1.00 do layout, no caso o de Ariquemes.

Corrigi também a URL para Sorriso e o arquivo .XSD que estava acusando 'the schema itself is not valid'.

Seguem fontes anexo.

AgiliVersaoLayout.rar

[Italo Giurizzato Junior]

Boa noite,

Vamos padronizar

Agili.INI -> versão 1

AgiliV2.INI - versão 2

Como foi feito com o provedor Pronim, onde temos o Pronim.INI e PronimV2.INI

Amanhã vou analisar as suas alterações e farei alguns ajustes.

[BigWings]

9 horas atrás, Italo Jurisato Junior disse:

Boa noite,

Vamos padronizar

Agili.INI -> versão 1

AgiliV2.INI - versão 2

Como foi feito com o provedor Pronim, onde temos o Pronim.INI e PronimV2.INI

Amanhã vou analisar as suas alterações e farei alguns ajustes.

Achei melhor deixar o código para o layout de Sorriso e Assu sem versão, já que não consta a tag <Versao> no layout deles, já o de Ariquemes consta a tag <Versao>1.00</Versao>. Vou tentar confirmar se realmente o layout de Ariquemes é mais novo que o de Sorriso.

Acho que se colocar versão 1 e 2 vai ficar confuso.

[Italo Giurizzato Junior]

Bom dia,

Favor fazer uma cópia dos seus fontes e depois atualizar.

Refaça os testes.

Agora temos os INI: Agili e Agiliv2 bem como uma pasta de Schemas: Agili e Agiliv2

Removi a propriedade VersaoLayout dos INI, contornei o problema de uma forma diferente.

[BigWings]

3 horas atrás, Italo Jurisato Junior disse:

Bom dia,

Favor fazer uma cópia dos seus fontes e depois atualizar.

Refaça os testes.

Agora temos os INI: Agili e Agiliv2 bem como uma pasta de Schemas: Agili e Agiliv2

Removi a propriedade VersaoLayout dos INI, contornei o problema de uma forma diferente.

  function PosRPS: Integer;
  begin
    TamTAG := 5;
    if VersaoNFSe < ve200 then
    begin
      Result := Pos('</Rps>', AXMLString);
      // Provedor ISSDSF
      if Result = 0 then
        Result := Pos('</RPS>', AXMLString);
      // Provedor Governa
      if Result = 0 then
      begin
        Result := Pos('</LoteRps>', AXMLString);
        TamTAG := 9;
      end;
    end
    else
    begin
      // Se a versão do XML do RPS for 2.00 ou posterior existem 2 TAGs <Rps>,
      // neste caso devemos buscar a posição da segunda.
      Result := Pos('</Rps>', AXMLString);
      Result := PosEx('</Rps>', AXMLString, Result + 1);
    end;
  end;

Como o .ini para Ariquemes foi alterado pra ve100, esta função retorna valor errado. No XML existem as duas tags <Rps>.

[BigWings]

Seguem as correções dos problemas que identifiquei:

ACBrNFSeWebServices.pas

pnfsLerListaNFSe.pas

pnfsNFSeR.pas

pnfsNFSeW_Agili.pas

ACBrNFSeNotasFiscais.pas

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pela colaboração, já esta no repositório, favor atualizar os seus fontes, pois alguns estão desatualizados.

[Valdir Dill]

Boa tarde,

Atualizei os fontes e fiz alguns testes.

Primeiro deu erro no arquivo um (ErroUm.png anexo). Aí, para testar, alterei o valor de Servico.Valores.Aliquota := 0; e de Servico.Valores.ValorIss := 0; 

Depois disso ocorreu outro erro (ErroUm.png anexo) da quantidade que no xml está 1.0000. Parece que não aceita mais que dois decimais, mas é gerado com 4.

Obrigado!

[Italo Giurizzato Junior]

Boa tarde Valdir,

Note que agora o provedor Agili possui dois arquivos INI um para cada versão.

É preciso saber qual deles a cidade que esta usando utiliza.

[Valdir Dill]

Sim, eu percebi isso.

Estou testando para Sorriso-MT. Não cheguei a consultar o provedor, mas, pelo que entendi analisando o arquivo cidades.ini, esta cidade utilizar o Provedor=Agiliv2. Então configurei tudo (inis e schemas) para essa versão. 

Está correta minha interpretação? Ou seja, Sorriso usa Agiliv2, certo? Ou isso depende de mais alguma coisa?

Obrigado!

 

[Italo Giurizzato Junior]

Valdir,

Sim, a cidade Sorriso/MT se utiliza do provedor Agiliv2, sendo assim o componente tem que usar o arquivo Agiliv2.INI e os schemas da pasta: ...\Exemplos\ACBrDFe\ACBrNFSe\Schemas\Agiliv2

Não se faz necessário alterar o arquivos INIs apenas ter a certeza que eles estão exatamente iguais os que estão no repositório.

[BigWings]

1 hora atrás, valdirdill disse:

Boa tarde,

Atualizei os fontes e fiz alguns testes.

Primeiro deu erro no arquivo um (ErroUm.png anexo). Aí, para testar, alterei o valor de Servico.Valores.Aliquota := 0; e de Servico.Valores.ValorIss := 0; 

Depois disso ocorreu outro erro (ErroUm.png anexo) da quantidade que no xml está 1.0000. Parece que não aceita mais que dois decimais, mas é gerado com 4.

Obrigado!

Boa tarde,

Substitua o arquivo em anexo, compile e teste novamente.

pnfsNFSeW_Agili.pas

[Valdir Dill]

1 hora atrás, BigWings disse:

Boa tarde,

Substitua o arquivo em anexo, compile e teste novamente.

pnfsNFSeW_Agili.pas

Fiz isso, mas o mesmo problema persiste.

No caso do segundo erro, o da quantidade

no caso do segundo erro, o da quantidade, a  linha 351 da pnfsNFSeW_Agili.pas tem a seguinte rotina:
Gerador.wCampoNFSe(tcDe4, '#13', 'Quantidade   ', 01, 17, 1, NFSe.Servico.ItemServico.Quantidade, '')
ou seja, está gerando o campo com 4 decimais (tcDe4). Pelo que entendi do erro, esse campo é no máximo 2 decimais.  

Vejamos o schemas (XSDAgili.XSD)
    <xsd:simpleType name="tsQuantidade">
        <xsd:restriction base="xsd:decimal">
          <xsd:totalDigits value="10" />
          <xsd:fractionDigits value="2" /> esta regra que tá gerando o conflito.
          <xsd:minInclusive value="0" />
        </xsd:restriction>
    </xsd:simpleType>

Obrigado!

 

[BigWings]

Sim, fiz essa correção e outras. 

Devo ter enviado o arquivo errado. 

Segue novamente.

 

pnfsNFSeW_Agili.pas

[Valdir Dill]

18 minutos atrás, BigWings disse:

Sim, fiz essa correção e outras. 

Devo ter enviado o arquivo errado. 

Segue novamente.

 

pnfsNFSeW_Agili.pas

Perfeito, agora passou tudo, hehe! Sem erros.

Só ainda tá dando um erro "CNPJ não consta na base de dados". Mas acho que deve ser porque estou usando o nosso CNPJ que não é usuário de Sorriso-MT. Vou pedir pro usuário fazer um teste real.

Me diga uma coisa, essa unit vai ainda subir pro repositório, certo?

Obrigado!

[BigWings]

4 minutos atrás, valdirdill disse:

Perfeito, agora passou tudo, hehe! Sem erros.

Só ainda tá dando um erro "CNPJ não consta na base de dados". Mas acho que deve ser porque estou usando o nosso CNPJ que não é usuário de Sorriso-MT. Vou pedir pro usuário fazer um teste real.

Me diga uma coisa, essa unit vai ainda subir pro repositório, certo?

Obrigado!

Só depende de um moderador subir, mas seria interessante você fazer mais testes pra verificar os outros serviços (cancelamento, consulta de nfse, consulta por rps, etc), se tem a chave digital de algum prestador da cidade.

[Italo Giurizzato Junior]

Bom dia a todos,

BigWings, mais uma vez muito obrigado pela colaboração, já enviei para o repositório.

[BigWings]

Boa noite,

Depois de uma alteração no sistema, o número do endereço não é mais obrigatório, e caso não informado, causava erro 400. Fiz a correção e também a leitura da NFSe que não carregava o telefone e e-mail do prestador.

Segue correção e novo XSD.

pnfsNFSeR.pas

pnfsNFSeW_Agili.pas

WebAPI-NFSe.xsd

[Italo Giurizzato Junior]

Boa noite,

Muito obrigado pela colaboração, já esta no repositório.

[DuarteRS]

Boa tarde,

Estou com um problema no servidor Agili para cidade de Ariquemes, o comando "GerarNfse" está tudo OK, envia e retorna corretamente, mas os comandos "ConsultarNfsePorRps" e "CancelarNfse" estão me retornando "Bad Request (400)".

Já atualizei os fontes, fiz um ReBuild mas continua o mesmo problema, alguém está com este problema e sabe como solucionar?

Obrigado!

Abs!

[Italo Giurizzato Junior]

Bom dia Duarte,

Anexe os arquivos gerados para a consulta e cancelamento para que possamos analisar.

Dica, em faze de teste é sempre bom configurar o componente para salvar os arquivos soap (Configuracoes.WebServices.Salvar := True).

[DuarteRS]

9 minutos atrás, Italo Jurisato Junior disse:

Bom dia Duarte,

Anexe os arquivos gerados para a consulta e cancelamento para que possamos analisar.

Dica, em faze de teste é sempre bom configurar o componente para salvar os arquivos soap (Configuracoes.WebServices.Salvar := True).

Bom dia Italo,

Descobri utilizando o aplicativo de teste de REST, a "ChaveAcesso" do prestador não está sendo preenchida no XML de consulta, estou debugando para ver porque, pois estou informando o mesmo antes da consulta.

Estou com os fontes atualizados, se souber a origem do problema e puder me passar, te agradeço.

Obrigado pela atenção.

Cristiano Duarte

[BigWings]

17 minutos atrás, DuarteRS disse:

Bom dia Italo,

Descobri utilizando o aplicativo de teste de REST, a "ChaveAcesso" do prestador não está sendo preenchida no XML de consulta, estou debugando para ver porque, pois estou informando o mesmo antes da consulta.

Estou com os fontes atualizados, se souber a origem do problema e puder me passar, te agradeço.

Obrigado pela atenção.

Cristiano Duarte

Bom dia,

Testei aqui a consulta por Rps, está funcionando normalmente, gerando a chave no XML corretamente.

Certifique-se que está preenchendo a tag ACBrNFSe1.Configuracoes.Geral.Emitente.WebChaveAcesso com a chave digital.