Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Topics - naderit

Pagine: [1] 2
1
Segnalazione bug / comportamento maskbox
« il: 15 Luglio 2021, 19:01:51 »
Ciao a tutti, dopo l'ultimo aggiornamento di Gambas è cambiato il comportamento della maskbox, con maschera 99/99/9999 come date, l'inserimento della data non è più consecutivo ma per spostarsi dal giorno al mese devo usare la freccia destra. Come distro uso Kubuntu, non ho provato su altre distribuzioni.
Grazie 

2
Programmazione / [Risolto] tableview
« il: 20 Giugno 2021, 20:54:57 »
Ciao a tutti, ho fatto diverse ma ricerche senza risultato, la domanda : è possibile fare in modo che che le celle di una di una determinata colonna di una tableview accetti solo numeri e altre celle di un'altra colonna venga editato solo in maiuscolo?.
con la textbox utilizzando l'evento keypress e change è possibile fare questo, ma con la tableview non sono riuscito a risolvere nulla.
 :ciao:   

3
Programmazione / [risolto]comportamento di Valuebox
« il: 22 Aprile 2021, 22:14:01 »
Buonasera dopo l'ultimo aggiornamento alla 3.16 ho un problema sul componente ValueBox, nel programma per visualizzare la data del primo di ogni ho usato il metodo
Codice: [Seleziona]
Valuebox1.Value = Format(Date, "mm/01/yyyy")
e mi visualizzava la date del 01/04/2021, ora mi restituisce l'errore "tipo non corrispondete: cercata data, restituita string" ho provato con altri metodi ma non ne vengo a capo. Dove sto sbagliando? Grazie.  :ciao:

4
Programmazione / ambienti desktop
« il: 26 Gennaio 2021, 20:54:49 »
Ciao ho un problema da sottoporVi a cui non riesco a trovare una soluzione: ho due ambienti desktop uno Xfce a l'altro KDE entrambi utilizzano lo stesso tema e lo stesso set di icone nel primo sia l'IDE di gambas e perfettamente funzionale come il progetto realizzato, nel secondo completamente diverso in alcuni casi nell'applicativo realizzato i controlli sono sfalsati come pure i font. Domanda: è possibile mantenere l'interfaccia grafica del progetto in tutti gli ambienti desktop? Allego le immagini  :ciao: 

5
Domande tecniche / errore Package.MakeDebPackage creazione pacchetti di installazione
« il: 30 Gennaio 2019, 21:29:06 »
Ciao a tutti ho due progetti esattamente uguali si differenziano solamente nella creazione delle cartelle di lavoro:
la prima:
Codice: [Seleziona]
Public Procedure controlla_db()
  $nome = "Archivio.db" nome del database
  If Not Exist(Application.Path & "/" & "Database") Then
   Mkdir Application.Path & "/" & "Database"  crea cartelle
  Endif
  If Not Exist(Application.Path & "/" & "Out") Then
    Mkdir Application.Path & "/" & "Out"
  Endif
  If Not Exist($percorso & "/" & $nome) Then
     Message.Info("Creazione database Archivio", "OK")
      With $conn
      .Type = "sqlite3" 
      .Host = $Percorso
      End With

 $conn.Open 

 $conn.Databases.Add($nome) creo database
 $conn.Close  chiudo database
 $conn.Name = $nome
 $conn.Open
 tabella_archivio()
 Endif 
End

il secondo:

Codice: [Seleziona]
Public Procedure controlla_db()
  $nome = "Archivio.db" nome del database
   
  If Not Exist(User.Home & "/" & "Verifiche") Then
  Mkdir User.Home & "/" & "Verifiche" ' crea cartelle
  Mkdir User.Home & "/" & "Verifiche" & "/" & "Database"
  Endif
  If Not Exist(User.Home & "/" & "Verifiche" & "/" & "Out") Then
  Mkdir User.Home & "/" & "Verifiche" & "/" & "Out"
  Endif
If Not Exist($percorso & "/" & $nome) Then
     Message.Info("Creazione database Archivio", "OK")
      With $conn
      .Type = "sqlite3" 
      .Host = $Percorso
      End With

$conn.Open 

$conn.Databases.Add($nome) creo database
$conn.Close chiudo database
$conn.Name = $nome
$conn.Open
tabella_archivio()

quindi nel primo caso al primo avvio creo le cartelle di lavoro nella Application.Path e la seconda nella User.Home. Compilo e creo gli eseguibili in entrambe i casi e funzionano. Quando creo i pacchetti di installazione, nel primo caso va a buon fine e mi crea il pacchetto .deb. Nel secondo caso mi restituisce
 
Codice: [Seleziona]
 
Creazione pacchetto...
cd '/home/paolo/ubuntu/verifichemf2-1.0.2'
dpkg-buildpackage -d -rfakeroot -uc -us
dpkg-buildpackage: Errore: errore di sintassi in debian/control alla riga 13: continued value line not in field
La creazione del pacchetto è fallita.
Package.MakeDebPackage.1083: 'dpkg-buildpackage' ha fallito.


ho solo trovato questo topic http://www.gambas-it.org/smf/index.php?topic=3310.msg32371#msg32371 pensando fosse il problema sulla creazione delle cartelle di lavoro.

Grazie  :ciao:
 

6
Programmazione / [risolto] errore variabile
« il: 12 Gennaio 2019, 19:16:11 »
Ciao a tutti ho diverse applicazioni che usano la seguente procedura:
Codice: [Seleziona]
Private hControl As Object
Private Px As New Integer[]
Private Py As New Integer[]
Private Pw As New Integer[]
Private Ph As New Integer[]
Private Fs As New Integer[]
Private Mw As Integer
Private Mh As Integer
Private ctrx As Boolean
Private codute As Integer
Private codmis As Integer
Private xlab As Integer 
Private xdate As String
Public mydir As String = Application.Path & "/" & "Out"
Public trimestre As Integer
Public progres As String

Public Sub Form_Open()
 For Each hControl In Me.Controls
      Px.Add(hControl.x)
      Py.Add(hControl.y)
      Pw.Add(hControl.w)
      Ph.Add(hControl.h) 
      Fs.Add(hControl.Font.size)
  Next

  Mw = Me.W
  Mh = Me.h
  Mod_Open.controlla_db()
  
  carica_utenti

End
Public Sub Form_Resize()
  Dim cx, cy As Float
  Dim Nw, Nh, i As Integer

  Nw = Me.W
  Nh = Me.h

  Cx = Nw / Mw
  Cy = Nh / Mh

  i = 0
  For Each hControl In Me.Controls
    hControl.x = Px[i] * Cx
    hControl.y = Py[i] * Cy
    hControl.w = Pw[i] * Cx
    hControl.h = Ph[i] * Cy
    hControl.Font.size = Fs[i] * Cx
    Inc i
  Next
End

ha sempre funzionato alla perfezione ma da oggi alla riga ' For Each hControl In Me.Controls'  mi restituisce  "Loop variable cannot be global" , avete idea cosa sia successo? Grazie  :ciao:

7
Programmazione / caratteri ascii
« il: 05 Gennaio 2019, 18:51:48 »
Buonasera e Buon anno. Ho notato che utilizzando la funzione Len i caratteri Ascii  "°", "§" ,"ç" valgono doppio; praticamente Print Len("°") restituisce 2 mentre Print Len("A") restituisce 1.
è normale ?  :ciao:

8
Progetti degli utenti / fattura elettronica B2B
« il: 10 Novembre 2018, 21:50:52 »
Ciao a tutti è un po' che stavo lavorando e studiando le specifiche del tracciato per la fattura elettronica allego il codice per la creazione del file.
il file generato può essere verificato sul sito https://sdi.fatturapa.gov.it/SdI2FatturaPAWeb/AccediAlServizioAction.do?pagina=controlla_fattura , è composto da campi obbligatori e campi facoltativi. Il codice può essere ancora migliorato ( tipo una routine per inserire più righe di fattura e tipo di pagamento).
Ho verificato il file anche sul sito dell'agenzia delle entrate nella sezione corrispettivi e fatture risultando regolare quindi può essere accettato dal sistema di interscambio o da intermediario.
La prossima sfida è caricare il file xml da posta certificata a gestionale.
Spero possa essere utile.
 :ciao:   

9
Progetti degli utenti / gezione magazzino gruppi speleologici
« il: 23 Ottobre 2018, 21:46:54 »
Ciao allego altro progetto per la gestione del magazzino dei gruppi speleo. Anche breve descrizione del programma in pdf.
 :ciao:

10
Progetti degli utenti / applicazione per invio telematico verifiche misuratori fiscali
« il: 13 Ottobre 2018, 19:50:21 »
Ciao ho realizzato questa applicazione per l'invio telematico M.F. come disposto dall' agenzia delle entrate,
Utilizza database sqlite generato al primo avvio per la gestione degli utenti ( ubicazione esercizio ), misuratori fiscali (marchi, modelli, logotipo e matricola), soggetto obbligato, tecnici e inserimento delle verifiche effettuate. Al temine viene generato il file *.txt che sarà utilizzato dall'applicazione desktop telematico AG per il controllo e l'invio.
Al momento è funzionante e genera il file corretto secondo il formato richiesto per l'invio telematico. E' ancora da migliorare ma ci sto lavorando.
 :ciao:

11
Programmazione / [RISOLTO]file di testo codice viisualizzato
« il: 07 Ottobre 2018, 19:01:54 »
Ciao a tutti. Devo scrivere in un file di testo righe della lunghezza di 1800 caratteri con il metodo Write
Codice: [Seleziona]
Public Sub export_txt()
 Dim txtfile As Stream 
  txtfile = Open mydir & "/" & "S001" & Label62.Text & trimestre & progres & ".TXT" For Create
  Write #txtfile, "0" & "MIS00" & "26" & label27.Text & Space(16 - Len(label27.Text)) & label28.Text & xlab & label32.Text & Space(30 - Len(label32.Text)) & label8.Text & Space(60 - Len(label8.Text)) & label29.Text & Space(40 - Len(label29.Text)) etc, etc
  Close #txtfile
  
End

e qui tutto bene. La mia esigenza e di poter scrivere il codice visualizzato su più righe per esempio:
Codice: [Seleziona]
Public Sub export_txt()
 Dim txtfile As Stream 
  txtfile = Open mydir & "/" & "S001" & Label62.Text & trimestre & progres & ".TXT" For Create
  Write #txtfile, "0" & "MIS00" & "26" & label27.Text & Space(16 - Len(label27.Text)) & 
& label28.Text &
& xlab & 
& label32.Text & Space(30 - Len(label32.Text)) & 
& label8.Text & Space(60 - Len(label8.Text)) & 
& label29.Text & Space(40 - Len(label29.Text)) etc. etc.
 Close #txtfile
  
End

in modo da poter essere più leggibile che su un'unica riga.
ho provato le parentesi, gli apici, le virgolette, ma non ho trovato soluzione, qualcuno mi può aiutare?
Grazie.

12
Programmazione / file xml per fattura elettronica B2B
« il: 06 Maggio 2018, 19:00:57 »
Ciao qualcuno ha preso in esame il file xml per invio della fattura elettronica tra privati ?
ho cominciato a sviluppare qualcosina allego il progetto che genera il file... se avete delle dritte.. ;D

13
Programmazione / [RISOLTO] Valori null nelle query
« il: 02 Maggio 2018, 20:45:44 »
Ciao a tutti, dopo l'ultimo aggiornamento di Gambas ho riscontrato un problema non da poco, che mi blocca l'esecuzione del codice ( ho lo stesso problema anche con l'eseguibile generato ), che nelle versioni precedenti non succedeva:
Codice: [Seleziona]
For Each rstotali
    Codicli = rstotali[0]
    Numefatt = rstotali[1]
    TotFatt = rstotali[2]
     rsdiff = Mod_Open.$conn.Exec("SELECT SUM(Versati) AS TotVers FROM giornale WHERE '" & Codicli & "' = CodCli AND '" & Numefatt & "' = NFatt") 
    
    totale1 = totale1 + TotFatt
    If rsdiff!TotVers > "0" Then ' In questo punto si blocca con errore : type mismatch wanted float, got string instead'
    totale2 = totale2 + rsdiff!TotVers
    End If
  Inc it
  Next
   
 Non so come risolvere, grazie.
 

14
Programmazione / [RISOLTO] textbox e Ucase
« il: 14 Gennaio 2018, 19:49:19 »
Ciao a tutti. Utilizzando una casella di testo TextBox per inserire dei dati in maiuscolo utilizzo la funzione Ucase nell'eveto Change in questo modo:
Codice: [Seleziona]
Public Sub TextBox1_Change()
  TextBox1.Text = UCase$(TextBox1.text)
End

e funziona, però se sposto il cursore all'interno della textbox, per esempio, all'inizio della stringa, e digito un carattere, automaticamente il cursore, si sposta in fondo alla stringa di caratteri.
è possibile ovviare a questo problema?
grazie

15
Programmazione / [risolto] barcode scanner
« il: 17 Luglio 2017, 19:23:02 »
Ciao a tutti. Ho un lettore di barcode USB collegato in emulazione di tastiera, per acquisire i dati letti ed elaborarli ho pensato di utilizzare una textbox e al momento che prende il focus mi visualizza il barcode numerico, però non mi piace perché implica una casella di testo attiva con possibilità di inserimento casuale da tastiera. Allora ho pensato di usare il Keypress del form :
Codice: [Seleziona]
Private a As String
Private b As String

Public Sub form_KeyPress()
   a = Key.Text
   b = b & a
   Label1.Text = b
End

ma non mi entusiasma molto
domanda: esiste la possibilità di inserire il barcode numerico letto in una variabile String senza dover usare i metodi indicati? oppure esiste un metodo che mi sfugge?
Grazie  :-[     

Pagine: [1] 2