Equiplano - Como gravar listaNFs ?

[MarcosRWeimer]

Ola!

Como faço para gravar o "listaNfs" ?

tentei com o gravarxml mas este grava o RPS

tentei gravar o ACBrNFSe.NotasFiscais.Items[0].XMLNFSe mas este é o "CompNfse" que tem apenas nrNfse, cdAutenticacao, dtEmissaoNfs, nrRps, nrEmissorRps.

O sistema antigo gerava um xml desta forma:

preciso salvar da mesma forma, tentei pegar o xml tambem de ACBrNFSe.WebServices.ConsNfseRps.RetornoNFSe.listanfse.compnfse.items[0].nfse.xml mas tambem é apenas o "CompNfse", enfim, estou a algum tempo vasculhando e não encontrei.

 

 

[MarcosRWeimer]

Ola!

 

Ninguem?

Se deixar marcado para o ACBr salvar os XMLs também não funciona, vejam como ficou o xml que é para ser o da NFS-e:

[Italo Giurizzato Junior]

Boa tarde Marcos,

Altere o arquivo INI do provedor para:

[RetornoNFSe]
Texto1=<listaNfs xmlns="https://www.esnfs.com.br/xsd">%DadosNFSe%</listaNfs>
 

[MarcosRWeimer]

22 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Marcos,

Altere o arquivo INI do provedor para:

[RetornoNFSe]
Texto1=<listaNfs xmlns="https://www.esnfs.com.br/xsd">%DadosNFSe%</listaNfs>
 

Ola Italo

O resultado foi o que eu já esperava, só mudou o "grupo":

[Italo Giurizzato Junior]

Boa tarde Marcos,

O XML gerado só consta essas 5 tags ou você apagou as demais?

[MarcosRWeimer]

6 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Marcos,

O XML gerado só consta essas 5 tags ou você apagou as demais?

Boa tarde!

 

Somente estas 5 tags, até pensei em fazer o seguinte, na procedure TNFSeW_Equiplano.GerarXML_Equiplano, verificar se possui NFSe.Numero  e ai gerar o bloco "CompNFSe"..

 

mais ou menos assim:

procedure TNFSeW_Equiplano.GerarXML_Equiplano;
begin
  //se tem a NFS-e, gera ela ao invés do RPS
  if (StrToIntDef(NFSe.Numero, 0) > 0) then
  begin
    //manual abrasf v2.03
    Gerador.wGrupoNFSe('Nfse');     //Nfse tcNfse 1-1
    Gerador.wGrupoNFSe('InfNfse'); //InfNfse tcInfNfse 1-1 //Id tsIdTag Identificador da TAG a ser assinada
    Gerador.wCampoNFSe(tcInt,     '', 'Numero', 01, 15, 1, OnlyNumber(NFSe.Numero)); //Numero tsNumeroNfse 1-1
    Gerador.wCampoNFSe(tcStr,     '', 'CodigoVerificacao', 01, 32, 1, NFSe.CodigoVerificacao); //CodigoVerificacao tsCodigoVerificacao 1-1
    Gerador.wCampoNFSe(tcDatHor,  '', 'DataEmissao', 01, 19, 1, NFSe.DataEmissao); //DataEmissao Datetime 1-1
    Gerador.wCampoNFSe(tcInt,     '', 'NfseSubstituida', 01, 15, 0, OnlyNumber(NFSe.NfseSubstituida)); //NfseSubstituida tsNumeroNfse 0-1
.....
  end
  else //se não é a NFS-e, gera o RPS (como fazia antes desta alteração)
  begin
    Gerador.wGrupoNFSe('rps');

    GerarIdentificacaoRPS;
    GerarTomador;
    GerarListaServicos;
    GerarValoresServico;

    Gerador.wGrupoNFSe('/rps');
  end;

 

O que acha desta possibilidade? Tem alguma sugestão melhor?

[Italo Giurizzato Junior]

Marcos,

Antes se fazia necessário gerar as demais datas da NFS-e após o envio do RPS para o provedor?

Ele nunca retornou o XML completo?

[MarcosRWeimer]

14 minutos atrás, Italo Jurisato Junior disse:

Marcos,

Antes se fazia necessário gerar as demais datas da NFS-e após o envio do RPS para o provedor?

Ele nunca retornou o XML completo?

Então, equiplano estamos implementando agora com o ACBr, temos um app em c# que gera o xml da forma citada acima, o retorno da prefeitura é aquele mesmo (dos 5 itens), o app que montava o XML com os dados da NFS-e e da autorização.

 

EDIT:

Complementando, o que preciso é do XML completo autorizado para mandar para o cliente e para carregar no ACBrNFSe e imprimir.

Editado 15 Fevereiro, 2019 por -=Ma®©oS=-
adicionado informações

[Italo Giurizzato Junior]

Marcos,

Neste caso será necessário fazer algo semelhante no componente.

[MarcosRWeimer]

5 minutos atrás, Italo Jurisato Junior disse:

Marcos,

Neste caso será necessário fazer algo semelhante no componente.

Certo, e neste caso vc acha que o melhor lugar é neste mesmo que falei (procedure TNFSeW_Equiplano.GerarXML_Equiplano;) ??

Pergunto por que no inicio da unit tem a seguinte mensagem:

{==============================================================================}
{ Essa unit tem por finalidade exclusiva de gerar o XML do RPS segundo o       }
{ layout do Equiplano.                                                         }
{ Sendo assim só será criado uma nova unit para um novo layout.                }
{==============================================================================}

por isso a dúvida, conheço pouco o componente, e não sei como funciona para os demais provedores.

[Italo Giurizzato Junior]

Marcos,

Os demais provedores retornam o XML da NFS-e completo.

Acredito que o melhor lugar seja essa unit mesmo.

[MarcosRWeimer]

2 minutos atrás, Italo Jurisato Junior disse:

Marcos,

Os demais provedores retornam o XML da NFS-e completo.

Acredito que o melhor lugar seja essa unit mesmo.

ok, vou implementar e quando terminar disponibilizo para avaliação

Obrigado

 

[Italo Giurizzato Junior]

Marcos,

Desde já muito obrigado pela colaboração.

[MarcosRWeimer]

Só para registrar, não abandonei (ainda), estou tentando mas sem sucesso.

[Juliana Tamizou]

Bom dia Marcos.

Caso tenha dúvidas ou queira discutir a implementação, fique a vontade para postar também.

Att.

[MarcosRWeimer]

4 minutos atrás, Juliana Tamizou disse:

Bom dia Marcos.

Caso tenha dúvidas ou queira discutir a implementação, fique a vontade para postar também.

Att.

Então, corrigi uma falha ao ler a data de emissão e data de emissão do rps no LerRPS_Equiplano, até ai tudo certo, problema que depois de ConsultarNFSeporRps estes dados são perdidos, fica apenas os 5 campos (citados uns posts acima) os demais são "limpos", não estou encontrando onde está limpando.

[MarcosRWeimer]

Bom dia!

 

A princípio as alterações serão estas anexas, o setor de testes aqui da empresa vai passar um parecer, o que vai demorar alguns dias,  estou postando para uma avaliação prévia.

pnfsNFSeW_Equiplano.pas pnfsNFSeR.pas ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Boa tarde Marcos,

A Unit pnfsNFSeW_Equiplano a alteração que você fez acredito que não esta correta, pois o GerarXML se refere ao gerar o XML do RPS que vai ser enviado, não pode ser ai o que você quer fazer.

A Unit ACBrNFSeWebServices, que você fez alteração esta desatualizada, favor atualizar e aplique novamente a alteração.

A Unit pnfsNFSeR esta ok, assim que possível vou enviar para o repositório.