Mudanca geracao XML NFSe - Provedor AssessorPublico

[Verissimo]

Bom dia,

Houve uma mudanca na geracao da TAG QUANTIDADE, agora tem que ser com 2 decimais

 

Postei o codigo em texto porque nao conseguir anexxar o arquivo.

function TNFSeW_AssessorPublico.GerarServico: TACBrXmlNodeArray;
var
  i: integer;
begin
  Result := nil;
  SetLength(Result, NFSe.Servico.ItemServico.Count);

  for i := 0 to NFSe.Servico.ItemServico.Count - 1 do
  begin
    Result[i] := CreateElement('SERVICO');

    Result[i].AppendChild(AddNode(tcStr, '#1', 'DESCRICAO', 1, 60, 1,
                              NFSe.Servico.ItemServico.Items[i].Descricao, ''));

    Result[i].AppendChild(AddNode(tcDe2, '#1', 'VALORUNIT', 1, 15, 1,
                          NFSe.Servico.ItemServico.Items[i].ValorUnitario, ''));

    Result[i].AppendChild(AddNode(tcDe2, '#1', 'QUANTIDADE', 1, 10, 1,
                             NFSe.Servico.ItemServico.Items[i].Quantidade, ''));

    Result[i].AppendChild(AddNode(tcDe2, '#1', 'DESCONTO', 1, 10, 1,
                 NFSe.Servico.ItemServico.Items[i].DescontoIncondicionado, ''));
  end;

  if NFSe.Servico.ItemServico.Count > 10 then
    wAlerta('#54', 'SERVICO', '', ERR_MSG_MAIOR_MAXIMO + '10');
end;
 

[Italo Giurizzato Junior]

Boa tarde @Verissimo,

Muito obrigado pela colaboração, já abrimos a TK-5914 para aplicar a sua alteração.

[Italo Giurizzato Junior]

Boa tarde @Verissimo,

Já esta no SVN.