Códigos e descrições de Serviço NFSe provedor SP

[Cognum Informatica Ltda.]

Boa tarde, 

Preciso de ajuda novamente, estou implantando a NFSe provedor SP e me deparei com um problema na impressão do DANFSe. Não esta sendo impresso o campo "código de serviço " nem a sua descrição. Analisando o componente ACBR notei que para o provedor de SP, não existe nenhuma função ou metodo que recupere ou preencha o campo de descrição do serviço, assim sendo , na impressão nem o código do serviço nem a descrição são impressos, o campo fica em branco.

Identifiquei uma função "SetxItemListaServico" que faz o preenchimento do campo NFSe.Servico.xItemListaServico para alguns provedores, mas que para o provedor de SP , não esta sendo chamada.

Tentei chamar esta função,mas percebi que para SP ela não esta operacional, pois a tag 'ItemListaServico", do qual o metodo se baseando para ler o codigo de servico e posteriormente encontrar a sua descrição , não existe no XML de SP. No XML de SP é utilizada a tag 'CodigoServiço'.(abaixo o trecho de código da funçaõ)

procedure TNFSeR.SetxItemListaServico;
var
  Item: Integer;
begin
  NFSe.Servico.ItemListaServico := OnlyNumber(Leitor.rCampo(tcStr, 'ItemListaServico'));

  Item := StrToIntDef(OnlyNumber(Nfse.Servico.ItemListaServico), 0);
  if Item < 100 then
    Item := Item * 100 + 1;

  NFSe.Servico.ItemListaServico := FormatFloat('0000', Item);

  if not (FProvedor in [ProRJ, ProSisPMJP]) then
    NFSe.Servico.ItemListaServico := Copy(NFSe.Servico.ItemListaServico, 1, 2) + '.' +
                                     Copy(NFSe.Servico.ItemListaServico, 3, 2);

  if TabServicosExt then
    NFSe.Servico.xItemListaServico := ObterDescricaoServico(OnlyNumber(NFSe.Servico.ItemListaServico))
  else
    NFSe.Servico.xItemListaServico := CodigoToDesc(OnlyNumber(NFSe.Servico.ItemListaServico));
end;
 

Outro ponto que identifiquei é que, como na função 'CodigoToDesc' não estão listados todos os códigos de serviço que serão utilizados pelo meu cliente, necessitarei utilizar o recurso do arquivo TabServicos.txt que está no funçao 'ObterDescricaoServico'.

Minha pergunta é a seguinte, há alguma outra forma de conseguir a impressão deste código e descrição de serviço no DANFSe, que eu não tenha visto, ou necessitará de alguma interversão de vcs.

Só mais um detalhe, assim como todos os outros arquivos de configuração tem um campo próprio para configurarmos o caminho onde estão gravados, há a possibilidade de criar uma configuração para o arquivo TabServiços.txt ?

Obrigado, no aguardo

@Fábio Eduardo de Souza. 

 

 

 

[Cognum Informatica Ltda.]

Bom dia @Italo Jurisato Junior

 

Vc poderia me ajudar com este assunto que descrivi no contato anterior? Estou tentando imprimir na DANFSe os códigos de serviço

1520 - Engenharia, agronomia, arquitetura, urbanismo e congêneres.

2798 - Licenciamento ou cessão de direito de uso de programas de computação, inclusive distribuição.

4030 - Medicina e biomedicina

6491 - Fornecimento de mão-de-obra, mesmo em caráter temporário, inclusive de empregados ou trabalhadores, avulsos ou temporários, contratados pelo prestador de serviço

Mas acredito que pelo problema que relatei no outro contato, nada é impresso no meu DANFSe.

Agradeço

 

@Fábio Eduardo de Souza

 

[Italo Giurizzato Junior]

Boa noite Fábio,

Recentemente você me enviou 2 units visando o provedor SP, que por sinal já enviei para o repositório.

Elas resolveram o problema apresentado nas postagens anteriores?

[Cognum Informatica Ltda.]

Em 01/03/2017 at 14:50, Fábio Eduardo de Souza disse:

14 horas atrás, Italo Jurisato Junior disse:

Boa noite Fábio,

Recentemente você me enviou 2 units visando o provedor SP, que por sinal já enviei para o repositório.

Elas resolveram o problema apresentado nas postagens anteriores?

 

Bom dia, @Italo Jurisato Junior

Sim Italo, resolveram o meu problema de impressão do Código e da descrição do Item de serviço na DANFSe.

Agora ta sendo impresso corretamente.

Obrigado.

@Fábio Eduardo de Souza