Xml Dsf Falta Tag De Itens (Pedido De Correção)

[ailtonbrc]

Reparei que o XML da DSF falta a tag dos itens então estou sugerindo esta alteração na unit pnfsNFSeW

 

///////////////////////////// Código Original  ///////////////////////////////////////////////////

procedure TNFSeW.GerarServico_Provedor_IssDsf;
var i: integer;
    sDeducaoPor, sTipoDeducao: string;
begin
     for i:=0 to NFSe.Servico.ItemServico.Count -1 do
     begin
         Gerador.wCampoNFSe(tcStr, '', 'DiscriminacaoServico', 01, 80, 1, NFSe.Servico.ItemServico.Items.Descricao , '');
         Gerador.wCampoNFSe(tcDe4, '', 'Quantidade'          , 01, 15, 1, NFSe.Servico.ItemServico.Items.Quantidade , '');
         Gerador.wCampoNFSe(tcDe4, '', 'ValorUnitario'       , 01, 20, 1, NFSe.Servico.ItemServico.Items.ValorUnitario , '');
         Gerador.wCampoNFSe(tcDe2, '', 'ValorTotal'          , 01, 18, 1, NFSe.Servico.ItemServico.Items.ValorTotal , '');
         Gerador.wCampoNFSe(tcStr, '', 'Tributavel'          , 01, 01, 0, NFSe.Servico.ItemServico.Items.Descricao , '');
     end;
 

///////////////////////////// Código Alterado  (alteração está em  negrito e sublinhado ) ///////////////////////////////////////////////////

procedure TNFSeW.GerarServico_Provedor_IssDsf;
var i: integer;
    sDeducaoPor, sTipoDeducao: string;
begin

   Gerador.wGrupoNFSe('Itens')  ;
     for i:=0 to NFSe.Servico.ItemServico.Count -1 do
     begin
       Gerador.wGrupoNFSe('Item');
         Gerador.wCampoNFSe(tcStr, '', 'DiscriminacaoServico', 01, 80, 1, NFSe.Servico.ItemServico.Items.Descricao , '');
         Gerador.wCampoNFSe(tcDe4, '', 'Quantidade'          , 01, 15, 1, NFSe.Servico.ItemServico.Items.Quantidade , '');
         Gerador.wCampoNFSe(tcDe4, '', 'ValorUnitario'       , 01, 20, 1, NFSe.Servico.ItemServico.Items.ValorUnitario , '');
         Gerador.wCampoNFSe(tcDe2, '', 'ValorTotal'          , 01, 18, 1, NFSe.Servico.ItemServico.Items.ValorTotal , '');
         Gerador.wCampoNFSe(tcStr, '', 'Tributavel'          , 01, 01, 0, NFSe.Servico.ItemServico.Items.Descricao , '');
       Gerador.wGrupoNFSe('/Item');
     end;
   Gerador.wGrupoNFSe('/Itens');

Editado 24 Julho, 2014 por ailtonbrc

[Italo Giurizzato Junior]

Boa tarde Ailton,

 

Essa alteração resolveu o problema?

 

Se sim, por favor em vez de postar as linhas de códigos, post como anexo a Unit que foi alterada, desta forma fica fácil fazermos um merge e disponibilizar para todos.

[ailtonbrc]

blz entao sou vou terminar outras ajustes aqui estou tendo outros erros de validação assim que estiver ok envio o arquivo.