[Completato] Programma gestionale vendite ordini consegne

[Golia]

che peccato..

[fsurfing]

per allineare un testo hai due possibilità

1: utilizzi la proprietà allineamento nel comando draw.text indicando però la dimensione del rettangolo in cui vuoi scrivere il testo

2: nella funzione draw.text indichi il punto di disegno dell' asse x considerando la dimensione del testo che vai a stampare che ricavi con draw.textwidth(testo)

comunque se vuoi ti scrivo un po di codice se mi fai uno schizzo di cosa vuoi ottenere

[Golia]

Grazie fsurfing. Sai ho scoperto che è molto bello impostare le stampe :-)
Questo è quello che ho fatto, non so come allineare i prezzi però

Codice: [Seleziona]

PUBLIC SUB btnstampa_Click()
  DIM sql AS String
  DIM x AS Integer
  DIM xquant AS Integer
  DIM xcod AS Integer
  DIM xprez AS Integer
  DIM xdescr AS Integer
  DIM y AS Integer
  DIM valorepag AS Integer
  DIM valoreymax AS Integer
  DIM valoreynewpage AS Integer
  valorepag = 1
  valoreymax = 6800
  valoreynewpage = 200
  
          sql = "select * from dettagli WHERE idpreventivo  LIKE '%" & tbidpreventivo.Text & "%'" " "
          sql = sql & "order by iddettaglio"            
  MyRS = MODMain.$conn.Exec(sql)

 'IF Printer.Setup() THEN RETURN  'fai apparire il modulo di  conf. stampante     
  Printer.Name = "PDF" ' nome stampante imposto PDF per comodità
Draw.Begin(Printer) ' Initializes the draw
draw.LineWidth = 1
Draw.Foreground = color.Black
Draw.Background = color.White  
PNTintestazione.stintestazione ' richiamo funzione intestazione
'''''''''''''''''
Draw.LineWidth = 10 '-- spessore
Draw.Line(100, 1000, 100, 6800) '-- coordinate di inizio e fine espresse nella coppia X,Y

draw.Font.Bold = TRUE ' grassetto
draw.Font.Italic = FALSE ' italico
draw.Font.size = 7 ' dimensione
draw.text("Pag. " & valorepag, 4400, 6850) ' scrivo il n° prima pagina
draw.Font.size = 10 ' dimensione
x = 100
y = 1000
xquant = 100
xcod = 250
xdescr = 900
xprez = 4000
          IF MyRS.Available = TRUE THEN    
          FOR EACH MyRS
           draw.text(MyRS!quantita, xquant, y)
          draw.text(MyRS!codice, xcod, y)
          draw.text(MyRS!descrizione, xdescr, y)
          draw.text(MyRS!prezzo, xprez, y) ' quà non so come incolonnare il prezzo a dx          
           y = y + 150
            IF y > valoreymax THEN
             printer.newpage()
             Y = valoreynewpage
             valorepag = valorepag + 1
             draw.Font.size = 7 ' dimensione
             draw.text("Pag. " & valorepag, 4400, 6850) ' scrivo il n° pagine successive
             draw.Font.size = 15 ' dimensione
            ENDIF 
          NEXT
          ENDIF 

''''''''''
Draw.end
''questo comando è provvisorio
WAIT 2 ' aspetto 2 secondi per poi aprire il pdf
SHELL "evince " & User.Home & "/PDF/_stdin_.pdf" 'apro il pdf (non sò perchè lo chiama _stdin_.pdf ???) è provvisorio
  

END

[Golia]

Dimenticavo, come posso impostare il carattere, es. "serif" ?

[fsurfing]

draw.font.name mi pare di ricordare

[fsurfing]

per il prezzo fai così

mi pare di capire che la colonna dei prezzi inizi a 4000 pixel

io ipotizzo che finisca a 5000 tu correggi di conseguenza

Codice: [Seleziona]

draw.text(MyRS!prezzo, xprez+1000-draw.textwidth(MyRS!prezzo), y) '   

logicamente tutti i prezzi dovranno essere formattati allo stesso modo ad esempio tutti con due decimali

[tornu]

Golia ha scritto:

Codice: [Seleziona]

x = 100
y = 1000
xquant = 100
xcod = 250
xdescr = 900
xprez = 4000
          IF MyRS.Available = TRUE THEN    
          FOR EACH MyRS
           draw.text(MyRS!quantita, xquant, y)
          draw.text(MyRS!codice, xcod, y)
          draw.text(MyRS!descrizione, xdescr, y)
          draw.text(MyRS!prezzo, xprez, y, x2, y2, Align.TopRight) ' dovrebbe essere così          

Dichiara x2 e y2 Integer, assegna a x2 un valore (per esempio 80) e fai delle prove.
Sto andando a memoria, non ho il mio pc con Gambas sottomano, spero di non darti informazioni errate. Se non mi ricordo male nella mia discussione da dove hai preso spunto per le stampe Leo mi diede la sintassi esatta per l'allineamento, rileggi la discussione dovresti trovare l'informazione che ti serve.

Per il carattere : Draw.Font.Name = "Serif"

Scusami per eventuali inesattezze.

[Golia]

Vi ringrazio tutti e due, già messo in pratica  :-)
Un'altra domanda, se il mio testo è più lungo dello spazio destinato:
é giusto fare così: se draw.textwidth > valore ...e poi ? come faccio a spaccare il testo in 2 ? e dirgli quanto lungo il primo pezzo? spero di essermi spiegato

[fsurfing]

é giusto fare così: se draw.textwidth > valore ...e poi ? come faccio a spaccare il testo in 2 ?

detta così son c...i amari , io a suo tempo avevo risolto memorizzando già nel db solo stringhe con un numero di caratteri che potessoro essere stampati nel posto assegnatoli.

se non puoi fare altrettanto dovrai crearti una routine che spezza la frase in considerazione del numero di caratteri o della dimensione di stampa e degli spazi in modo di andare a capo solo a fine parola (auguri)

in qualche post di questo forum tempo fa scrissi una rootine del genere  ma valla a trovare!

[Golia]

ho capito devo vedere quanti caratteri ci stanno, avevo fatto una funzione del genere con access mi sembra ci voglia LEN LEFT etcc. Grazie

[tornu]

fsurfing ha scritto:
.....in qualche post di questo forum tempo fa scrissi una rootine del genere ma valla a trovare!

Forse intendevi questo:
http://www.gambas-it.org/gmbs/modules/newbb/viewtopic.php?topic_id=649&viewmode=flat&order=ASC&type=&mode=0&start=0

[md9327]

Faccio notare che esiste una libreria per Gambas "PdfWriter", che mi pare sia nei download, per poter stampare in PDF.
Tra le funzioni, c'è anche la possibilità di dividere righe di testo troppo lunghe.

Se non c'è nei downloads, fammelo sapere, ti invio il link.

[Golia]

si c'è grazie, l'ho già scaricata è che come la funzione csv che mi hai fatto non riesco a capire come applicarla. Se ti va di complicarti un pò la vita possiamo approfondire :-)

[md9327]

Perfetto!

Se l'hai scaricata, e visto che è il porting di una famosa libreria PHP, ti consiglierei di fare un giro sul sito:

http://www.fpdf.org/

Lì trovi documentazione ed esempi, facilmente convertibili in Gambas.

[Golia]

ok grazie mille, studio poi ti faccio sapere