SystemPro - tags nao obrigatorias

[joemil]

ola pessoal, eu estou fazendo umas modificacoes referente ao provedor SystemPro

pelos meus testes aqui, a tag BaseCalculo nao deve ser enviada, e algumas outras, se estiverem com valor zero, tb nao devem ser inseridas

CÓDIGO ORIGINAL
unit pnfsNFSeW_ABRASFv2;
Linha 718

    Gerador.wCampo(tcDe2, '#25', 'Aliquota              ', 01, 05, 1, NFSe.Servico.ItemServico[i].Aliquota, DSC_VALIQ);
    Gerador.wCampo(tcDe2, '#24', 'BaseCalculo           ', 01, 15, 0, NFSe.Servico.ItemServico[i].BaseCalculo, DSC_VBCISS);
    if FProvedor = proSystemPro then
    begin
      Gerador.wCampo(tcDe2, '#27', 'DescontoIncondicionado', 01, 15, 1, NFSe.Servico.ItemServico[i].DescontoIncondicionado, DSC_VDESCINCOND);
      Gerador.wCampo(tcDe2, '#28', 'DescontoCondicionado  ', 01, 15, 1, NFSe.Servico.ItemServico[i].DescontoCondicionado, DSC_VDESCCOND);
      Gerador.wCampo(tcDe2, '#15', 'ValorPis   ', 01, 15, 1, NFSe.Servico.ItemServico[i].ValorPis, DSC_VPIS);
      Gerador.wCampo(tcDe2, '#16', 'ValorCofins', 01, 15, 1, NFSe.Servico.ItemServico[i].ValorCofins, DSC_VCOFINS);
      Gerador.wCampo(tcDe2, '#17', 'ValorInss  ', 01, 15, 1, NFSe.Servico.ItemServico[i].ValorInss, DSC_VINSS);
      Gerador.wCampo(tcDe2, '#18', 'ValorIr    ', 01, 15, 1, NFSe.Servico.ItemServico[i].ValorIr, DSC_VIR);
      Gerador.wCampo(tcDe2, '#19', 'ValorCsll  ', 01, 15, 1, NFSe.Servico.ItemServico[i].ValorCsll, DSC_VCSLL);
    end;

CÓDIGO ALTERADO

    Gerador.wCampo(tcDe2, '#25', 'Aliquota              ', 01, 05, 1, NFSe.Servico.ItemServico[i].Aliquota, DSC_VALIQ);
    if FProvedor = proSystemPro then
    begin
      Gerador.wCampo(tcDe2, '#27', 'DescontoIncondicionado', 01, 15, 0, NFSe.Servico.ItemServico[i].DescontoIncondicionado, DSC_VDESCINCOND);
      Gerador.wCampo(tcDe2, '#28', 'DescontoCondicionado  ', 01, 15, 0, NFSe.Servico.ItemServico[i].DescontoCondicionado, DSC_VDESCCOND);
      Gerador.wCampo(tcDe2, '#15', 'ValorPis   ', 01, 15, 0, NFSe.Servico.ItemServico[i].ValorPis, DSC_VPIS);
      Gerador.wCampo(tcDe2, '#16', 'ValorCofins', 01, 15, 0, NFSe.Servico.ItemServico[i].ValorCofins, DSC_VCOFINS);
      Gerador.wCampo(tcDe2, '#17', 'ValorInss  ', 01, 15, 0, NFSe.Servico.ItemServico[i].ValorInss, DSC_VINSS);
      Gerador.wCampo(tcDe2, '#18', 'ValorIr    ', 01, 15, 0, NFSe.Servico.ItemServico[i].ValorIr, DSC_VIR);
      Gerador.wCampo(tcDe2, '#19', 'ValorCsll  ', 01, 15, 0, NFSe.Servico.ItemServico[i].ValorCsll, DSC_VCSLL);
    end
    else
    begin
      Gerador.wCampo(tcDe2, '#24', 'BaseCalculo           ', 01, 15, 0, NFSe.Servico.ItemServico[i].BaseCalculo, DSC_VBCISS);
    end;

ainda nao finalizei os testes, mas caso alguem esteja passando pelo mesmo problema, pode comentar ai embaixo?

[Juliomar Marchetti]

Favor anexar a unit alterada