Public Sub btn_reqins_Click()
Dim pnt1, pw, pr As Pointer
Dim i As Byte
Dim er_t As String
Dim dati_utente As String[]
Dim my_str As String

  ' popoliamo i campi utente ...
  dati_utente = New String[]
  dati_utente.Add(campi_utn[0] & utn_tb1.Text & "\n", 0)
  dati_utente.Add(campi_utn[1] & utn_tb2.Text & "\n", 1)
  dati_utente.Add(campi_utn[2] & utn_tb8.Text & "\n", 2)
  dati_utente.Add(campi_utn[3] & utn_cb1.Text & " " & utn_tb3.Text & " " & utn_tb4.Text & " " & utn_tb5.Text & " " & utn_tb6.Text & " " & utn_tb7.Text & "\n", 3)
  dati_utente.Add(campi_utn[4] & utn_tb9.Text, 4)
  ' ora prepariamo il puntatore per il file da aprire in scrittura ...
  pnt1 = fopen("./fatture_user/Utente.ftr", "w")
  If pnt1 = Null Then
    er_t = "Impossibile aprire il file Prestazioni causa:\n" & Error.Text
    Message.Error(er_t)
  Else
    ' ... adesso i dati ...
    For i = 0 To 4
      'dati_utente[i]
      pw = Alloc(dati_utente[i])
      fwrite(pw, 1, Len(dati_utente[i]), pnt1)
    Next
  Endif 
  my_response = True
  Free(pw)
  fclose(pnt1)
  requestwind.Close()
End

Public Sub load_prestazioni()
  Dim my_file As File
  Dim s$, er_t As String
  
  Try my_file = Open "./fatture_user/Tipo_Prestazioni.ftr" For Read
  If Error Then
    er_t = "Impossibile aprire il file Prestazioni causa:\n" & Error.Text
    Message.Error(er_t)
    Return
  Endif

  lista_prestaz = New String[]
  While Not Eof(my_file)
    Line Input #my_file, s$
    lista_prestaz.Add(s$)
  Wend
  num_prestaz = lista_prestaz.Count - 1
  my_file.Close
End

  If (my_response) Then
    my_file = Open "./fatture_user/Utente.ftr" For Write
    For i = 0 To 4
      Write #my_file, dati_utente[i]
    Next
    my_file.Close
  Endif

Public Sub scrivi_intestazioni(cairo As Pointer)
 Dim my_text_extent As New Cairo_text_extents_t
 Dim ptn As Pointer
 Dim my_width As Float
  
  ptn = Alloc(Object.SizeOf(my_text_extent), 1) 
  
  cairo_set_source_rgb(cairo, 0.0, 0.0, 0.0)
  cairo_select_font_face(cairo, "Liberation Serif", CAIRO_FONT_SLANT_NORMAL, CAIRO_FONT_WEIGHT_NORMAL)
  cairo_set_font_size(cairo, 16)
  cairo_move_to(cairo, 250, 108)
  cairo_show_text(cairo, "FATTURA N°")
  cairo_set_font_size(cairo, 9.0)
  cairo_text_extents(cairo, "Tipo prestazione", ptn)
  my_text_extent = ptn
  my_width = my_text_extent.width
  cairo_move_to(cairo, (169 - (my_width / 2)), 295)
  cairo_show_text(cairo, "Tipo prestazione")
  cairo_text_extents(cairo, "Ore / Prestaz.", ptn)
  my_text_extent = ptn
  my_width = my_text_extent.width
  cairo_move_to(cairo, (368 - (my_width / 2)), 295)
  cairo_show_text(cairo, "Ore / Prestaz.")
  cairo_text_extents(cairo, "Onorario €", ptn)
  my_text_extent = ptn
  my_width = my_text_extent.width
  cairo_move_to(cairo, (448 - (my_width / 2)), 295)
  cairo_show_text(cairo, "Onorario €")
  cairo_text_extents(cairo, "Importo €", ptn)
  my_text_extent = ptn
  my_width = my_text_extent.width
  cairo_move_to(cairo, (536 - (my_width / 2)), 295)
  cairo_show_text(cairo, "Importo €")
  Free(ptn)
End

Public Sub test_pdf()
  Dim surface, pattern, pagina_1, pagina_2 As Pointer
  Dim x, y As Byte
  
  surface = cairo_pdf_surface_create("/home/franco/Scrivania/test.6_Cairo.pdf", 595.3, 841.9)
  'cairo = cairo_create(surface)
  pagina_1 = cairo_create(surface)
  pagina_2 = cairo_create(surface)
  prima_pagina = True
  '' Disegna la prima pagina (Originale)
  disegna_modello(pagina_1)
  scrive_logo(pagina_1)
  scrivi_data(pagina_1)
  scrivi_intestazioni(pagina_1)
  scrivi_ultime(pagina_1)
  cairo_show_page(pagina_1)
  prima_pagina = False
  '' Disegna la seconda pagina (Copia)
  disegna_modello(pagina_2)
  scrive_logo(pagina_2)
  scrivi_data(pagina_2)
  scrivi_intestazioni(pagina_2)
  scrivi_ultime(pagina_2)
  cairo_show_page(pagina_2)
  ''Finito !
  cairo_destroy(pagina_1)
  cairo_destroy(pagina_2)
  cairo_surface_destroy(surface)
  Message.Info("Creazione completata")
  
End