Infisc 1.1

[Marcelo_R]

Boa noite,

tenho uma dúvida e duas sugestões para o Infisc 1.1:

Dúvida:

na geração do XML o tag <infAdicLT> recebe dados de <NFSe.PrestadorServico.Endereco.CodigoMunicipio>, mas na re-leitura do XML a propriedade que recebe o tag <infAdicLT> é a <NFSe.Servico.ItemListaServico>. Pois esta propriedade na montagem alimenta o tag <infAdic>. Isto está correto?

Sugestões:

-> O valor unitário está previsto no manual com 4 casas após a vírgula (13,4), na montagem do XML está como tcDe2 e poderia ser tcDe4.

-> Apenas as tags <xNomeTrans>, <cPaisTrans>, <xPaisTrans> e <vTipoFreteTrans> são obrigatórios nas informações de transporte, isso pelos meus testes. Pelo manual acho que é só o <xNomeTrans>.

Obrigado!

Marcelo

[Italo Giurizzato Junior]

Bom dia Marcelo,

Esse provedor por ter 2 versões, ainda há necessidade de realizar algumas correções.

Lhe peço que você realize testes e vai fazendo as devidas correções que deixe a geração XML da versão 1.1 em conformidade com o manual e Schemas.

Estando tudo OK, por favor anexe as Units que você alterou, para que possamos avaliar e estando tudo OK, enviaremos para o repositório.

Desde já agradeço pela colaboração.

[possidonio]

Prezados, boa tarde.

Para corrigir esse problema, tive que fazer as seguintes alterações:

arquivo pnfsNFSer.pas

function TNFSeR.LerNFSe_Infisc_V10: Boolean;

  if (Leitor.rExtrai(1, 'infNFSe') <> '') then
    NFSe.OutrasInformacoes := Leitor.rCampo(tcStr, 'infAdic');

e comentei o trecho

  if (Leitor.rExtrai(1, 'Observacoes') <> '') then
  begin
    NFSe.OutrasInformacoes := Leitor.rCampo(tcStr, 'infAdic');

  end;

 

No arquivo pnfsNFSeW_Infisc.pas

procedure TNFSeW_Infisc.GerarXML_Infisc;

  if VersaoNFSe = ve100 then
  begin
    if Trim(NFSe.OutrasInformacoes) <> '' then
    begin
      Gerador.wGrupoNFSe('Observacoes');
      Gerador.wCampoNFSe(tcStr, '', 'xinf', 01, 100, 1, copy(NFSe.OutrasInformacoes,1,100), '');
      Gerador.wGrupoNFSe('/Observacoes');
    end;
  end
  else
//    Gerador.wCampoNFSe(tcStr, '', 'infAdic', 01, 100, 1, NFSE.Servico.ItemListaServico, '');
   Gerador.wCampoNFSe(tcStr, '', 'infAdic', 01, 100, 1, copy(NFSe.OutrasInformacoes,1,100), '');

 

Depois que fiz isso, o conteúdo da tag infAdic se manteve, e as informações foram impressas corretamente no DANFSe

Att.

Possidônio Oliveira.

[Italo Giurizzato Junior]

Boa noite Possidônio,

Favor anexar os fontes alterados para que possamos realizar o merge.