Jump to content

DouglasGV

Membros
  • Posts

    146
  • Joined

  • Last visited

Posts posted by DouglasGV

  1. Agora, DouglasGV disse:

    Bom dia!

    Estou realizando todos estes procedimentos e irei passar o feedback

    Bom dia!

    Tudo certo? @Italo Giurizzato Junior

    Apaguei os fontes e atualizei!

    Resolveu meu problema, vi que a unit ACBrXmlBase está totalmente reformulada.

    Muito obrigado pela ajuda!

    • Like 1
  2. Agora, Italo Giurizzato Junior disse:

    Bom dia Douglas,

    Não vou poder aceitar a sua contribuição pelo simples fato de os seus fontes estarem bem desatualizados.

    Por favor, delete todas as units que tenham uma bolinha vermelha em seu ícone e atualize todos os fontes de todas as pastas, depois reinstale o ACBr e por fim faça novos testes.

    Bom dia!

    Estou realizando todos estes procedimentos e irei passar o feedback

  3. @Juliomar Marchetti

    @Italo Giurizzato Junior

    Boa tarde!

    Tudo certo?

    Fiz uma alteração, implementei a função: GerarGrupoRPS na unit IPM.GerarXml onde adicionei a validação do município em questão (Cascavel PR);

    function TNFSeW_IPM.GerarGrupoRPS: Boolean;
    begin
       Result := (StrToIntDef(NFSe.IdentificacaoRps.Numero, 0) > 0) and
                 (not MatchText(NFSe.Servico.MunicipioIncidencia.ToString, ['7493']));
    end;

    Abaixo o print que indica isso na unit e onde seria aplicado na function GerarIdentificacaoRPS
    https://prnt.sc/gfnuvvO99Jmc

    Também a unit alterada

    IPM.GravarXml.pas

    • Like 1
  4. Pessoal consegui emitir!

    Fui testando e ignorei o trecho que alimenta os dados de RPS aí emitiu a nota...

    Ele verifica se o IdentificacaoRPS.Numero > 0;

    Criei na minha aplicação uma validação específica para IPM, inserindo na string letras para não cair atender a situação de alimentar as tags

    Dentro da unit: IPM.GravarXML função: function TNFSeW_IPM.GerarIdentificacaoRPS: TACBrXmlNode;

     

    image.thumb.png.82f2a9023bade5aad76e5c16925cff28.png

     

     

    function TNFSeW_IPM.GerarIdentificacaoRPS: TACBrXmlNode;
    begin
      Result :=  nil;

      if( StrToIntDef( NFSe.IdentificacaoRps.Numero, 0 ) > 0 ) then
      begin
        Result := CreateElement('rps');

        Result.AppendChild(AddNode(tcStr, '#1', 'nro_recibo_provisorio', 1, 12, 1,
                                         NFSe.IdentificacaoRps.Numero, DSC_NUMRPS));

        Result.AppendChild(AddNode(tcStr, '#1', 'serie_recibo_provisorio', 1, 2, 1,
                                        NFSe.IdentificacaoRps.Serie, DSC_SERIERPS));

        Result.AppendChild(AddNode(tcDatVcto, '#1', 'data_emissao_recibo_provisorio', 1, 10, 1,
                                                    NFSe.DataEmissaoRps, DSC_DEMI));

        Result.AppendChild(AddNode(tcStr, '#1', 'hora_emissao_recibo_provisorio', 1, 8, 1,
                      FormatDateTimeBr(NFSe.DataEmissaoRps, 'hh:mm:ss'), DSC_HEMI));
      end;

  5. 6 minutos atrás, guilhermeVaz06 disse:

    Consegue mostrar um xml de envio de exemplo?

    Sim!

    O estranho é que ontem consegui emitir 1 nota, utilizando componente ACBrNFSeX, na segunda tentativa me ocorreu a rejeição de:

    Código  : 00209
    Mensagem: Já consta uma NFSe para o referido prestador de serviço com o mesmo IDENTIFICADOR de arquivo

    Passei a alimentar o campo: IdentificacaoRps.Numero

    Começou a surgir a rejeição da série kkkk

    00221 - A série do RPS informada no arquivo é diferente da série do RPS utilizada pelo respectivo município.

    25-ger-nfse.xml

  6. 8 horas atrás, Juliomar Marchetti disse:

    Certo. mas conversou com o provedor e municipio e olharam no manual ou não tem?

    Bom dia!

    Tudo certo?

    Sim, olhei o manual e conversei com a prefeitura, o estranho que se emito pela minha aplicação vai de boa, apenas utilizando ACBrNFSeX ocorre a rejeição.

    No meu caso estou utilizando a série 1;

  7. Em 25/04/2022 at 18:51, Italo Giurizzato Junior disse:

    Boa noite Douglas,

    Por favor use o programa exemplo e configure ele para salvar os arquivos Soap.

    Esse XML não é o soap, os XML soap em seu nome contem a palavra "soap".

    ok, vou fazer

  8. Em 14/04/2022 at 16:09, Italo Giurizzato Junior disse:

    Boa tarde Douglas,

    Faça uma cópia das units que você alterou e atualize todos os fontes de todas as pastas.

    Esta semana foi enviado uma alteração na função EncodeDataHora que se encontra na unit ACBrUtil.DateTime que visa ler corretamente o campo competência com o valor "AAAA-MM"

    Não esqueça de reinstalar o ACBr após a atualização dos fontes.

    Detalhe importante, o Tortoise não costuma atualizar unit que por ventura tenha sido alterada, neste caso aconselho deletar a unit antes de atualizar os fontes.

    Ok, irei testar

  9. Boa tarde!

    Tudo certo?

    Para o provedor issGoiania o retorno não apresenta sucesso e sim um código de erro, mesmo com a nota sendo transmitida.

    Ao consultar lote retorna apenas o arquivo, número da nota e XML.

     

     

    unknown.png

    unknown.png

    image.thumb.png.768b3f035be6135d8f91e49e7ef0b0d9.png

  10. @EMBarbosa

    Fiz a implementação dos metodos no Publica.lerXml, poderia verificar se minha contribuição ficou de acordo com o padrão utilizado pela ACBr?

    O meu problema está no campo NFSe.Competencia que no XML retorna <Competencia>2022-04</Competencia> e ao utilizar o método LerCompetencia(AuxNode);

    Dentro da procedure TNFSeR_ABRASFv1.LerInfNfse(const ANode: TACBrXmlNode); retornava o erro acima: '/0' is not a valid integer value

    Mudei para este provedor o seguinte:

     NFSe.Competencia              := StrtoDateTimeDef(AuxNode.Childrens.FindAnyNs('Competencia').ToString, now); 

    Também adicionei a linha:

      NFSe.Link              := ObterConteudo(AuxNode.Childrens.FindAnyNs('LinkVisualizacaoNfse'), tcStr); // que no TNFSeR_ABRASFv1 não existe está tag.

    Agora estou conseguindo consultar lote sem erro algum.

    Desde já agradeço a atenção.

     

     

    image.thumb.png.4b8c8d71d709ce64de316d0bd2257014.png

    Publica.LerXml.pas

    image.thumb.png.f35cb529f814c7e64a4eb6fb542f752d.png

    • Like 1
  11. @EMBarbosa

    Boa tarde!

    Sei onde está o erro, porém não sei se consigo ajustar kkkk

    procedure TNFSeR_ABRASFv1.LerInfNfse(const ANode: TACBrXmlNode);

     NFSe.Competencia              := LerCompetencia(AuxNode);

    Ao executar o processo: '/0' is not a valid integer value

     

    image.thumb.png.20abf865ce76c7bc33d441a5cf1acc7a.png

    image.thumb.png.6e462b77e45adcb94733b04f046b35cd.png

  12. @EMBarbosa 

    "Aqui não ficou claro. O erro aparece somente ao imprimir ou em outras situações também? Quais?"

    Na impressão e no processo de consultar a situação do lote

    Erro(s):
    Código  : X999
    Mensagem: Erro de Conexão: '/0' is not a valid integer value
    Correção: 
    ---------

  13. Bom dia!

    Tudo certo?

    Estou com problemas no provedor Publica, ao emitir não retorna a url da NFS-e, alterei na unit descrita abaixo e alimentou corretamente.

    procedure TNFSeR_ABRASFv1.LerInfNfse(const ANode: TACBrXmlNode);

    NFSe.Link              := ObterConteudo(AuxNode.Childrens.FindAnyNs('LinkVisualizacaoNfse'), tcStr);

    Também estou com problemas na impressão da nota, não é alimentado nada no componente;

    Ao emitir a nota não me retorna o XML, então utilizo o método consultar lote e aí me retorna o XML(Porém este não é impresso).

    Anexei também o XML editado: "XML EDITADO ERRO BARRA 0"; Nele ocorre o erro ao tentar a impressão.

    Gostaria de ajuda
    XML EDITADO ERRO BARRA 0.xml

    XML RETORNADO CONSULTA LOTE.xml

    image.thumb.png.09c2e8a2f56fbfed2b3d5863338087ec.png

    image.thumb.png.69f31b7ea5f2b62b104d4f82be472f1d.png

    image.thumb.png.48d98215d2f88c044ed9e68b18662786.png

  14. 55 minutos atrás, DouglasGV disse:

    Boa tarde! 
    Tudo certo?

    XMLRetorno : <EnviarLoteRpsSincronoResposta xmlns:xs="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.abrasf.org.br/nfse.xsd"><ListaNfse>

    Teria como remover as tags acima na leitura do XML retorno referente ao servidor proVitoria, pois com essas tags não imprime a nota;

    Desta forma imprime corretamente!

    image.thumb.png.324889d4bfcd042c2decba5f8859b402.png

    Desta forma não imprime

    image.thumb.png.c5a86fcb2b983d6f39473358c7af6e2e.png

    Reatualizei os componentes e resolveu!

  15. Boa tarde! 
    Tudo certo?

    XMLRetorno : <EnviarLoteRpsSincronoResposta xmlns:xs="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.abrasf.org.br/nfse.xsd"><ListaNfse>

    Teria como remover as tags acima na leitura do XML retorno referente ao servidor proVitoria, pois com essas tags não imprime a nota;

    Desta forma imprime corretamente!

    image.thumb.png.324889d4bfcd042c2decba5f8859b402.png

    Desta forma não imprime

    image.thumb.png.c5a86fcb2b983d6f39473358c7af6e2e.png

  16. 38 minutos atrás, Italo Giurizzato Junior disse:

    Boa tarde Douglas,

    Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

    Ok, farei isso e te informo

     

    • Like 1
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.