[RISOLTO] Report con Gambas

[Mirkco]

Sono contento che hai potuto risolvere Mircko.
La nostra è una stupenda comunità


Grazie Golia, la comunità è davvero valida, soprattutto per chi come me, ha poca esperienza di programmazione.....
Il risultato ottenuto fino ad ora, è davvero soddisfacente e nonostante tutto, appena possibile voglio provare i comandi "Multiriga e Multirect", che hai consigliato...... Ciao

[Golia]

@Dex
Forse ho risolto il problema dell'euro!
Forse... perchè è da provare a fondo e vedere se bisogna aggiungere altri caratteri speciali

Nella classe pdfwriter devi sostituire queste righe (nel mio pdfwriter ce ne sono 2)

Codice: [Seleziona]

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

con queste

Codice: [Seleziona]

    txt2 = Replace(txt2, "€", Chr(128))
    txt2 = Replace(txt2, "‚", Chr(130))
    txt2 = Replace(txt2, "ƒ", Chr(131))
    txt2 = Replace(txt2, "„", Chr(132))
    txt2 = Replace(txt2, "…", Chr(133))
    txt2 = Replace(txt2, "†", Chr(134))
    txt2 = Replace(txt2, "‡", Chr(135))
    txt2 = Replace(txt2, "ˆ", Chr(136))
    txt2 = Replace(txt2, "‰", Chr(137))
    txt2 = Replace(txt2, "Š", Chr(138))
    txt2 = Replace(txt2, "‹", Chr(139))
    txt2 = Replace(txt2, "Œ", Chr(140))
    txt2 = Replace(txt2, "Ž", Chr(142))
    txt2 = Replace(txt2, "‘", Chr(145))
    txt2 = Replace(txt2, "’", Chr(146))
    txt2 = Replace(txt2, "“", Chr(147))
    txt2 = Replace(txt2, "”", Chr(148))
    txt2 = Replace(txt2, "•", Chr(149))
    txt2 = Replace(txt2, "–", Chr(150))
    txt2 = Replace(txt2, "—", Chr(151))
    txt2 = Replace(txt2, "˜", Chr(152))
    txt2 = Replace(txt2, "™", Chr(153))
    txt2 = Replace(txt2, "š", Chr(154))
    txt2 = Replace(txt2, "›", Chr(155))
    txt2 = Replace(txt2, "œ", Chr(156))
    txt2 = Replace(txt2, "ž", Chr(158))
    txt2 = Replace(txt2, "Ÿ", Chr(159))   
    txt2 = Replace(txt2, "é", Chr(233))
    txt2 = Replace(txt2, "è", Chr(232))  
    txt2 = Replace(txt2, "£", Chr(163))
    txt2 = Replace(txt2, "à", Chr(224))    
    txt2 = Replace(txt2, "ç", Chr(231))
    txt2 = Replace(txt2, "ì", Chr(236))    
    txt2 = Replace(txt2, "ò", Chr(242))
    txt2 = Replace(txt2, "°", Chr(176))        
    txt2 = Replace(txt2, "ù", Chr(249))
    txt2 = Replace(txt2, "§", Chr(167)) 

Prova e fammi sapere, se funziona cerchiamo a fondo tutti i caratteri speciali
Ciao

[leo72]

La tua potrebbe essere una soluzione.

Proprio oggi leggevo sul wiki internazionale che Gambas in molte delle sue funzioni di manipolazione delle stringhe, le tratta come sequenze di caratteri ASCII: per quelle UFT8 bisognava lavorare utilizzando la classe String.

Most of these functions only deal with ASCII strings. To manipulate UTF-8 strings, use the String  class.

Ecco la classe String.
Magari potete evitare di scrivere a mano tutti i caratteri speciali ma usare le funzioni proprie di String.

[dex]

golia sei grande  
va alla grande

nel mio pdfwriter ho trovato solo una riga.

[Ceskho]

Sarebbe il caso di caricare la versione modificata di pdfwriter in area download per correggere il "bug"...

[Golia]

Bene, testalo per bene anche tu
Preparo un esempio da postare così da capire bene le potenzialità di PdfWriter.

@Leo
Mi incuriosisce la classe, sarà l'ora ma non capisco come funziona

[dex]

@golia

ma tu hai provato a stampare su cel o su multirigha?

mi succede un caso strano in un pdf funziona e un'altro no.

primo pdf dati provenienti dal database e stampa su multiriga ( funziona)
secondo pdf stringa con € inserita nel pdf e stampa con cel (va in errore)

queste sono le righe che va in errore
vecchia riga

Codice: [Seleziona]

ME.Cell(129, 3, "Prezzo Complessivo di Eur. " & "   " & PrTot , FALSE, 0, "R", FALSE)

nuove prove ma va in errore

Codice: [Seleziona]

ME.Cell(129, 3, "Prezzo Complessivo di € " & "   " & PrTot , FALSE, 0, "R", FALSE)
ME.Cell(129, 3, "Prezzo Complessivo di  " & chr(128) & PrTot , FALSE, 0, "R", FALSE)

[Golia]

Credo che sia perchè le sostituzioni devono essere 2, se hai fatto solo una sostituzione cel funziona e multiriga no o viceversa.
La stringa da cambiare si trova su queste 2 funzioni: Cell e Cell2. Cell2 è stato sdoppiato per fare multiriga, Cell continua la sua normale funzione per cell e multicell. Prova a cercare lle funzioni e confrontale, fammi sapere casomai ti mando il mio pdfwriter

[dex]

allora abbiamo 2 pdfwriter diversi

nel mio c'era solo una riga

posta il tuo che provo

[Golia]

Ho capito,
Hai il mio stesso pdfwriter, solo che non trovi due "txt2 = Conv(txt2, "UTF-8", "ISO-8859-15")" perchè non avevo sistemato il tutto a dovere l'ultima volta. 

In "Cell2" c'è "txt2 = Conv(txt2, "UTF-8", "ISO-8859-15")"
In "Cell" c'è "txt2 = Conv(txt2, "UTF-8", "ISO-8859-1")"

Per forza ne trovavi solo 1

Ecco comunque il mio pdfwriter

[dex]

fatto.
trovato e sostituito le righe.

confermo funziona tutto
devi postarlo sul sito, se poi magari ci aggiungi una piccola descrizione come utilizzare multiriga vedrai quanti abbandoneranno cristalreport o activereport.

[Ceskho]

Se non vi pesa potreste scrivere due righe sul wiki (magari collaborando insieme come solo in questa comunità si può fare.... ) circa questo componente...una volta fatta la guida carichiamo la versione qui presente di pdfwrite nell'area download...

Potete?

[Golia]

Potete?

Si certo almeno ci provo, casomai se scrivo qualche castroneria mi correggerà dex

[dex]

Potete?

Si certo almeno ci provo, casomai se scrivo qualche castroneria mi correggerà dex

caspita io pensavo di farmi correggere da te!!!!!! 
semo messi male semo.

cmq se ti serve una mano sono pronto, se vuoi io preparo un piccolo codice di esempio e tu scrivi una guida come impostare e usare multiriga.

[Golia]

ok, ci proviamo