[RISOLTO]Problema con PdfWriter

[Ceskho]

ora è più bello...era proprio quello che intendevo io...

Posso darti una dritta Golia?

Quando hai un comando IF che richiede una sola operazione dopo il THEN puoi usare l'operazione tutta inline....cioè, invece di scrivere

Codice: [Seleziona]

IF w1 > 0 THEN  
  ME.Rect($lMargin, $y, w1, $lasthmulti, "") 
ENDIF
IF w2 > 0 THEN  
  ME.Rect($lMargin + w1, $y, w2, $lasthmulti, "") 
ENDIF 

Puoi benissimo scrivere

Codice: [Seleziona]

IF w1 > 0 THEN ME.Rect($lMargin, $y, w1, $lasthmulti, "")
IF w2 > 0 THEN ME.Rect($lMargin + w1, $y, w2, $lasthmulti, "")

A livello di codice non cambia niente ma esteticamente è più pulito...:-)

[Golia]

:-)  grazie adesso so anche questa, senza endif giusto?

[Ceskho]

Si certo, senza END IF....ricorda che però vale solo per le funzioni con una sola operazione...e sappi anche che non funziona con le ELSE IF...

[milio]

@ Golia

Tu riesci ad inserire il simbolo dell'euro nei tuoi report usando PdfWriter?

[dex]

milio ha scritto:
@ Golia

Tu riesci ad inserire il simbolo dell'euro nei tuoi report usando PdfWriter?

interessa anche a me.
nei miei report i simboli € e le lettere accentate vengono cambiate con caratteri ascii strani

[milio]

riesco solo ad inserirlo in questo modo:

es.

ME.Cell(30, 10, "TOTALE RICEVUTA " & Chr(128))

[Golia]

MD mi aveva fatto risolvere così

Perdonatemi, il problema è vecchio, e io non ho più aggiornato il repository.  Se non vuoi attendere la nuova release (0.0.4) di PdfWrite, puoi inserire la seguente riga, appena dopo la riga [960]:  txt2 = Conv(txt2, "UTF-8", "ISO-8859-1")  La riga [960] contiene una serie di Replace della variabile txt2.  Questa modifica è opzionale, in alternativa puoi usare il consiglio di Ceskho.  A dire il vero, credo di aver omesso di aggiornare il repository, a causa dei dubbi sull'inserimento della funzione di conversione, perchè sarebbe il caso di restare su UTF-8, che sarà lo standard a livello generale. Gambas2 usa UTF-8 per tutto, ma a volte si scontra con le impostazioni nel sistema, che potrebbero essere diverse, per cui è necessaria una conversione. Anche gli altri linguaggi si basano di default su UTF-8.

Per quanto riguarda € non ho mai provato, stasera guardo e ti faccio sapere, adesso sono con win :evil:

[Golia]

Non funziona neanche a me €, con la stringa di md txt2 = Conv(txt2, "UTF-8", "ISO-8859-1") risolve l'errore di quasi tutti i caratteri speciali. Non li ho provati tutti, al momento mi sembra che non vada solo €. Non so come si potrebbe risolvere, può darsi che al posto di ISO-8859-1 ci voglia qualcos'altro. Fatemi sapere perchè mi piacerebbe mettere apposto questo problema, Pdfwriter deve raggiungere la perfezione :-)

[dex]

golia sto provando ad inserire il tuo codice nel mio progetto, si ferma su:

Automatic page BREAK

non riesce ad identificare Automatic

[Golia]

Non capisco, a me funziona, provo a darti il mio Pdfwriter, ma non mi pare di avere messo le mani in altri parti..non so, prova. Ti mando anche una classe di una mia stampa così puoi confrontarla, inoltre ti scrivo anche come la lancio.

Codice: [Seleziona]

PUBLIC SUB stampaord(modo AS Integer) AS Integer
      DIM hStampa AS Process
    DIM pdf AS stordini
   RANDOMIZE 
  pdf = NEW stordini("Portrait", "mm", "A4")
  pdf.Open()
  pdf.AliasNbPages()
  pdf.Data(tbidordine.Text)
  pdf.Output(User.Home & Funzioni.MyReport, FALSE)

IF modo = 1 THEN 
Global.impstampante = "2"
PrintPdf.Show
ELSE 
hStampa = SHELL ("lpr " & User.Home & Funzioni.MyReport) WAIT
ENDIF 

END

A me funziona, l'unica cosa che ancora non va è il simbilo €, ho intanto provato con questa stringa

Codice: [Seleziona]

txt2 = Conv(txt2, "UTF-8", "ISO-8859-15")

che mi fà correttamente gli altri caratteri, l'euro fa un simbolo strano ma almeno non si pianta.
Fammi sapere, ciao

[Ceskho]

Prova a sostiutire

Codice: [Seleziona]

txt2 = Conv(txt2, "UTF-8", "ISO-8859-15")

con

Codice: [Seleziona]

txt2 = Conv(txt2, System.Charset, Desktop.Charset)

[Golia]

Provato, mi scombina anche gli altri caratteri speciali..