NFS-e - Rio Claro (Ginfes) - Reforma Tributária

[Luc.Arashiro]

Bom dia pessoal!

Tenho acompanhado no tópico do Diego as liberações de alterações de cada provedor, pro layout da reforma.

Em relação ao provedor GINFES, tem alguma previsão para liberação?

 

Quote

 

 

[Luc.Arashiro]

Boa tarde pessoal!

No ambiente de produção, consegui fazer o envio para o provedor Ginfes com as tags novas.

Precisei fazer uma pequena alteração no componente, relacionado ao campo cLocalidadeIncid nas units ACBrNFSeXClass.pas e Ginfes.GravarXml.pas
 

 

ACBrNFSeXClass.pas Ginfes.GravarXml.pas

[Diego Foliene]

16 horas atrás, Luc.Arashiro disse:

Boa tarde pessoal!

No ambiente de produção, consegui fazer o envio para o provedor Ginfes com as tags novas.

Precisei fazer uma pequena alteração no componente, relacionado ao campo cLocalidadeIncid nas units ACBrNFSeXClass.pas e Ginfes.GravarXml.pas
 

 

ACBrNFSeXClass.pas 113.24 kB · 0 downloads Ginfes.GravarXml.pas 17.58 kB · 0 downloads

Bom dia!

Muito obrigado pela colaboração!

Toda e qualquer contribuição sempre será mais do que bem vinda!

Dito isso, confesso que não entendi a sua modificação.

Usando uma ferramenta de comparação, ela me apontou que você modificou a rotina TNFSeW_Ginfes.GerarXMLIBSCBSTribValores.

Antes ela era assim:

function TNFSeW_Ginfes.GerarXMLIBSCBSTribValores(
  valores: Tvalorestrib): TACBrXmlNode;
begin
  Result := inherited GerarXMLIBSCBSTribValores(valores);

  Result.AppendChild(AddNode(tcInt, '#1', 'cLocalidadeIncid', 7, 7, 1,
                                     NFSe.infNFSe.IBSCBS.cLocalidadeIncid, ''));

  Result.AppendChild(AddNode(tcDe2, '#1', 'pRedutor', 1, 7, 1,
                                             NFSe.infNFSe.IBSCBS.pRedutor, ''));

  Result.AppendChild(AddNode(tcDe2, '#1', 'vBC', 1, 15, 0,
                                          NFSe.infNFSe.IBSCBS.Valores.vBC, ''));
end;

E você a alterou para que ficasse assim:

function TNFSeW_Ginfes.GerarXMLIBSCBSTribValores(
  valores: Tvalorestrib): TACBrXmlNode;
begin
  Result := inherited GerarXMLIBSCBSTribValores(valores);

  Result.AppendChild(AddNode(tcInt, '#1', 'cLocalidadeIncid', 7, 7, 1,
                                     //NFSe.infNFSe.IBSCBS.cLocalidadeIncid, ''));
                                     NFSe.IBSCBS.cLocalidadeIncid, ''));//26/01/2026

  Result.AppendChild(AddNode(tcDe2, '#1', 'pRedutor', 1, 7, 1,
                                             NFSe.infNFSe.IBSCBS.pRedutor, ''));

  Result.AppendChild(AddNode(tcDe2, '#1', 'vBC', 1, 15, 0,
                                          NFSe.infNFSe.IBSCBS.Valores.vBC, ''));
end;

Somente o cLocalidadeIncid foi alterado, as demais tags continuam pegando a informação de NFSe.infNFSe.XXXX

Por favor, pode explicar melhor qual foi o intuito dessa modificação?

[Luc.Arashiro]

Bom dia Diego!

Fiz essa alteração, pois não estava conseguindo enviar a tag cLocalidadeIncid.

Talvez não seja o ideal (ainda estou me adaptando ao código do ACBR), mas me baseei no ACBrNFSeXLerXml, onde vi que o campo estava previsto como filho do IBSCBS

 

Editado 27 Janeiro por Luc.Arashiro