PRIVATE SUB Pulisci_griglia()
  
  Griglia.Enabled = TRUE
  Griglia.Clear '-- la pulisce'
  Griglia.Columns.Count = 6 '-- imposta 6 colonne'
  '-- qui setto la larghezza di ognuna'
  Griglia.Columns[0].Width = 60
  Griglia.Columns[1].Width = 110
  Griglia.Columns[2].Width = 90
  Griglia.Columns[3].Width = 120
  Griglia.Columns[4].Width = 120
  Griglia.Columns[5].Width = 120
  '-- qui setto il titolo di ognuna'
  Griglia.Columns[0].Text = "Saldato"
  Griglia.Columns[1].Text = "N° reg."
  Griglia.Columns[2].Text = "Anno"
  Griglia.Columns[3].Text = "Documento"
  Griglia.Columns[4].Text = "Data reg."
  Griglia.Columns[5].text = "Importo"

END

PRIVATE FUNCTION Carica_scadenze(Cliente AS String) AS Boolean
DIM Aiuto AS Integer
DIM Connessione AS NEW Connection
DIM Risultato AS Result
DIM Comodo AS String
DIM cDataItaliana AS NEW clsDataIta

  Connessione.Name = Application.Path & "/archivio"
  Connessione.Type = "sqlite3"
  Connessione.Open
  'Risultato = Connessione.Find("pagamenti", "cliente = &1 AND saldato = &2", Cliente, FALSE)
  Risultato = Connessione.Exec("SELECT * FROM pagamenti WHERE cliente=&1 AND SALDATO=&2 ORDER BY datamov", Cliente, FALSE)
  IF Risultato.Available = FALSE THEN 
    RETURN FALSE
  END IF
  Risultato.MoveFirst

  FOR Aiuto = 1 TO Risultato.Count
    Comodo = Trim(CStr(Risultato["id"]))
    Griglia.Add(Comodo, "") '-- aggiungo una nuova linea '
    '(non mi preoccupo del puntatore perché Gambas punta sempre all'ultima)'
    Griglia.Item[0] = ""
    Griglia.Item[1] = Risultato["numero"]
    Griglia.Item[2] = Risultato["anno"]
    Griglia.Item[3] = Risultato["documento"]
    Griglia.Item[4] = cDataItaliana.convIta(Risultato["datamov"])
    Griglia.Item[5] = Risultato["importo"]
    Risultato.MoveNext
  NEXT
  Connessione.Close
  RETURN TRUE
    
END

PUBLIC SUB Griglia_Click()

  (...)
  '-- nel mio progetto qui non c'è niente di interessante, per cui
  '-- ometto il codice. Voi potete mettere quello che vi pare

END

PUBLIC SUB Griglia_DblClick()
DIM Comodo AS String

  '-- se si è aperto un pagamento, non permette di modificarne lo stato:
  '-- per annullarlo, va cancellato
  IF Operazione = "APRI" THEN 
    RETURN 
  END IF
  
  Comodo = Griglia.Key
  IF Griglia[Comodo].Picture <> "" THEN 
    Griglia[Comodo].Picture = ""
    Saldi = Saldi - 1
  ELSE 
    Griglia[Comodo].Picture = Picture.Load(pictOK)
    Saldi = Saldi + 1
  END IF
  IF Saldi < 0 THEN 
    Saldi = 0
  END IF
  
  CalcolaTotale
  Griglia.MoveTo(Griglia.Key)

END

' Gambas class file

PRIVATE Pagine AS Integer
PRIVATE Immagine AS NEW Image
PRIVATE ImmagineMod AS NEW Image

PUBLIC SUB _new()
DIM imageWidth AS Integer
DIM imageHeight AS Integer

  Immagine = Image.Load(Application.Path & "/grafica/logo-bn.gif")
  imageWidth = ((Immagine.Width * Printer.Resolution) / Desktop.Resolution)
  imageHeight = ((Immagine.Height * Printer.Resolution) / Desktop.Resolution)
  ImmagineMod = Immagine.Stretch(imageWidth, imageHeight, TRUE)
  
END

PUBLIC FUNCTION Stampa(Video AS Boolean, OPTIONAL NumPagine AS Integer, OPTIONAL Mensile AS Boolean) AS Boolean
DIM Comodo, Comodo2 AS String
DIM Descrizioni AS String[6]
DIM Aiuto AS Integer
DIM hStampa AS Process
DIM Aiuto2, Stampe AS Integer
DIM PagineStampate AS Integer
DIM NomFile AS String

  IF NumPagine <> 0 THEN 
    Stampe = NumPagine
  ELSE 
    Stampe = 3
  END IF  


  Printer.Copies = 1
  Printer.Name = ""
  Printer.File = Application.Path & "/stampa.ps"  
  Draw.Begin(Printer)
  WAIT 
  
  FOR PagineStampate = 1 TO Stampe 

    draw.Foreground = Color.Black
    draw.Background = color.White
    draw.LineWidth = 4 
    draw.Font.Size = 8
    'TESTATA
    draw.Rect(300, 300, 2200, 1000)
    draw.Image(ImmagineMod, 320, 340)
(...)

PRIVATE SUB Salva_dati()
DIM Connessione AS NEW Connection
DIM Risultato AS Result

  '-- connetti al database
  Connessione.Name = Application.Path & "/archivio"
  Connessione.Type = "sqlite3"
  Connessione.OPEN

  '-- scelta della tabella
  Risultato = Connessione.Edit("codici", "tipo = &1", comodo)
  Risultato["nome_campo"] = Nuovovalore '-- inserimento valore nel campo
  (...)
  Risultato.Update  '-- istruzione di aggiornamento
  Connessione.Commit  '-- forza il database ad eseguire
  '-- tutte le operazioni pendenti
  Connessione.CLOSE '-- chiusura
END

PRIVATE SUB Crea_dati()
DIM Connessione AS NEW Connection
DIM Risultato AS Result

  '-- connetti al database
  Connessione.Name = Application.Path & "/archivio"
  Connessione.Type = "sqlite3"
  Connessione.OPEN

  '-- salvataggio nuovo contatto
  Risultato = Connessione.Create("anagrafica")
  Risultato["codice"] = codice
  Risultato["cognome"] = txtCognome.Text
  Risultato["nome"] = txtNome.Text
  Risultato["indirizzo"] = txtIndirizzoNom.Text
  Risultato["citta"] = txtCapNom.Text
  Risultato.Update
  Connessione.Commit
  Connessione.CLOSE
END

(...)
  Connessione.Name = Application.Path & "/archivio"
  Connessione.Type = "sqlite3"
  Connessione.OPEN
  Risultato = Connessione.Find("anagrafica", "codice = &1", Codice)
  IF Risultato.Available = FALSE THEN
    Message.Info("Nessun dato trovato")
    RETURN
  ENDIF
(...)