procedure wCampo(const Tipo: TpcnTipoCampo; ID, TAG: string; const min, max, ocorrencias: smallint; const valor: variant; const Descricao: string = ''; ParseTextoXML : Boolean = True; Atributo: String = '');

[Antonio Gomes]

Mantenedores:

Na procedure abaixo, não existe o parametro para atender a função usada no final do procedimento, que é a FiltrarTextoXML(FOpcoes.FRetirarEspacos, ConteudoProcessado, FOpcoes.FRetirarAcentos)

    procedure wCampo(const Tipo: TpcnTipoCampo; ID, TAG: string; const min, max, ocorrencias: smallint; const valor: variant; const Descricao: string = ''; ParseTextoXML : Boolean = True; Atributo: String = '');

 

Essa função FiltrarTextoXML, a assinatura dela, tem um parâmetro default = True, que causa um salto de linha nas informações complementares no danfe - mesmo que eu não queira essas quebras..

Pergunta: Não seria interessante colocar esse parâmetro true no caso de informação complementar se eu quiser?

*************************************************************************************************** minha resposta *****************

Solução encontrada por enquanto: (note que eu pus a minha quebra...)

 InfAdic.InfAdFisco  := '';
          ListaDeStrings.Text := IBDSPai.FieldByName('INF_COMPLEMENTAR_NF').AsWideString;
          for I               := 0 to ListaDeStrings.Count - 1 do
          begin
            S                 := ListaDeStrings;
            S                 := S + ';';
            ListaDeStrings := S;
          end;

          ListaDeStrings.Text := AcbrUtil.ChangeLineBreak(ListaDeStrings.Text, ' ');
          ListaDeStrings.Text := StringReplace(ListaDeStrings.Text, '  ', ' ', [rfReplaceAll]);

          InfAdic.InfCpl := ListaDeStrings.Text;

Editado 31 Dezembro, 2015 por Antonio Gomes