Fórum Impressao nao fiscal #373447

Nota := TRichEdit.Create(nil);

begin
  Nota := TRichEdit.Create(nil);
  Nota.Parent := Self;
  Nota.Visible := False;
  Nota.Font.Name := ´Courier New´;
  Nota.Font.Size := 11;
  dm_titulo := Tdm_titulo.Create(Application);
  try
   with Nota, Lines do
   begin
    Clear;
    Add(Copy(lbl_empresa_nome.Caption,1,48));
    if SerieImprimirDadosEmpresa then
    begin
      Add(AjustaString(Copy(lbl_empresa_cnpj_ie.Caption,1,48),48,´ ´,´D´));
      Add(AjustaString(Copy(lbl_empresa_endereco_numero.Caption,1,48),48,´ ´,´D´));
      Add(AjustaString(Copy(lbl_empresa_bairro_cep.Caption,1,48),48,´ ´,´D´));
      Add(AjustaString(Copy(lbl_empresa_cidade_uf.Caption,1,48),48,´ ´,´D´));
    end;
    Add(AjustaString(´Terminal: ´+prm7+´ - Doc.: ´+prm7+IntToStr(iNumeroDocumento),48,´ ´,´E´));
    Add(AjustaString(´-´,48,´-´,´D´));
    Add(AjustaString(FormatDateTime(´dd/MM/yyyy hh:mm:ss´,Now)+´ Vend.:´+Copy(lbl_vendedor_nome.Caption,1,22),48,´ ´,´D´));
    if s_Consumidor_Nome <> ´´ then
     Add(AjustaString(Copy(s_Consumidor_Nome,1,48) + ´-´ + Copy(s_Consumidor_Cpf,1,18),48,´ ´,´D´));
    if s_Consumidor_Endereco <> ´´ then
    Add(AjustaString(s_Consumidor_Endereco,48,´ ´,´D´));
    Add(´-----------------------------SEM VALOR FISCAL---´);
    Add(AjustaString(´ ´,48,´ ´,´D´));
    if Orcamento then
     Add(JBCentralizaString(´O R Ç A M E N T O´,48))
    else
     Add(JBCentralizaString(prm6,48));

    Add(AjustaString(´Item Codigo  Descricao´,48,´ ´,´D´));
    Add(AjustaString(´Qtd.           Valor R$    xx     Sub-Total´,48,´ ´,´D´));
    Add(redt_ecf.Lines.Text);
    Add(AjustaString(´                     ´,48,´-´,´D´));
    Add(´                     SubTotal: ´+AjustaString(lbl_total.Caption,17,´ ´,´E´));
    Add(´                     Desconto: ´+AjustaString(lbl_desconto.Caption,17,´ ´,´E´));
    Add(´                        Total: ´+AjustaString(lbl_total_pagar.Caption,17,´ ´,´E´));
    Add(AjustaString(´ ´,48,´ ´,´D´));
    Add(JBCentralizaString(´...........::: PARCELAS :::...........´,48));
    Add(AjustaString(s_DescFPag,48,´ ´,´D´));

    {$REGION ´Imprimir parcelas´}
    
    with dm_titulo do
    begin
     cds_titulo.Close;
     sq_titulo.SQL.Strings[29] := ´(T.ID_PESSOA = ´+IntToStr(i_IDPessoa)+´) AND (T.ID_MOVIMENTO = ´+IntToStr(i_IDMovimento)+´)´;
     cds_titulo.Open;// a sintaxe "< 0" acima Abre a tabela de titulos sem vazia;
     if cds_titulo.RecordCount > 0 then
     begin
      Add(AjustaString(´ ´,48,´ ´,´D´));
      Add(AjustaString(´Parc|Vencimento |        Valor|Portador´,48,´ ´,´D´));
      while not cds_titulo.Eof do
      begin
       Add(AjustaString(cds_titulo.Fields[17].AsString,4,´ ´,´D´)+
           ´ ´+FormatDateTime(´dd/MM/yyyy´,cds_titulo.Fields[7].AsDateTime)+
           AjustaString(FormatFloat(´,,0.00´,cds_titulo.Fields[9].AsFloat),15,´ ´,´E´)+
           ´ ´+AjustaString(cds_titulo.Fields[23].AsString,16,´ ´,´D´));
       cds_titulo.Next;
      end;
     end;
     cds_titulo.Close;
    end;                  // desabilitei pois sai duas vezes as pareclas abilitar se papel 1 via...
    {$ENDREGION ´Imprimir parcelas´}

    Add(AjustaString(´ ´,48,´ ´,´D´));

    {$ENDREGION ´Imprimir parcelas´}

    Add(´                     SubTotal: ´+AjustaString(lbl_total.Caption,17,´ ´,´E´));
    Add(´                     Desconto: ´+AjustaString(lbl_desconto.Caption,17,´ ´,´E´));
    Add(´                        Total: ´+AjustaString(lbl_total_pagar.Caption,17,´ ´,´E´));

    Add(AjustaString(´ ´,48,´ ´,´D´));
    Add(JBCentralizaString(´Obrigado e Volte Sempre!´,48));
    Add(AjustaString(´ ´,48,´ ´,´D´));
    Add(AjustaString(´.´,48,´.´,´D´));
    //Imprime
    if prmMp2100ThPorta = 0 then  //mudar a porta de comunicacao 0 = LPT1,1 = COM1,2 = COM2,3 = USB
      Nota.Print(´Comprovante:´+prm7+IntToStr(iNumeroDocumento))
    else
    begin
     Retorno := FormataTX(Text, 2, 0, 0, 0, 0);
     if Retorno = 0 then
      raise
       Exception.Create(´Problemas na impressão do comprovante.´ + #10 + ´Possíveis causas: Impressora desligada, off-line ou sem papel´);
    end;
   end;
  finally
   Clipboard.AsText := Nota.Lines.Text;
   FreeAndNil(Nota);
   FreeAndNil(dm_titulo);
  end;