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.


Post - claudio

Pagine: 1 [2] 3 4
16
Programmazione (Gambas 2) / Re: sqlite formato data
« il: 23 Dicembre 2009, 21:16:27 »
Fai in questo modo:

1) Sul database il campo deve essere di tipo date.

2) Il record si salva in questo modo (DataOp è il campo con la data):
    strSQL = "INSERT INTO Operazioni (DataOp)"
    strSQL = strSQL & " VALUES('"
    strSQL = strSQL & Format(DataOpValueBox.Value, "yyyy-mm-dd") & "')"

3) Per la query:
    strSQL = "SELECT Operazioni.DataOp FROM Operazioni "
    strSQL = strSQL & "WHERE Operazioni.DataOp >= '
    strSQL = strSQL & Format(ME.ValueBoxInizio.Value, "yyyy-mm-dd") & "' "
    strSQL = strSQL & "AND Operazioni.DataOp <= '"
    strSQL = strSQL & Format(ME.ValueBoxFine.Value, "yyyy-mm-dd") & "'"

17
Progetti degli utenti / Re: Importazione progetto VB6
« il: 22 Dicembre 2009, 23:57:34 »
@ pixel e pastrano
Io non voglio fare assolutamente un copia e incolla da vb6.
Per lavoro sviluppo software gestionali in ambiente windows, quando inizio un nuovo progetto cerco di riutilizzare pezzi di codice scritto precedentemente (per esempio ogni gestionale ha la sua gestione degli accessi, sistema di backup dei dati, ecc.) e lo adatto alla nuova situazione.
Quindi se devo migrare un gestionale già scritto da vb a gambas, perchè non recuperare la parte grafica dei form in vb, caricando tutti gli oggetti e i relativi colori e dimensioni.
Io ho sempre scritto un codice pulito e semplice, per abitudine ho sempre dichiarato le variabili utilizzate, ho cercato di evitare se possibile ocx di terze parti e l'utilizzo delle api.
Il mio obiettivo è quello di creare una applicazione che mi aiuti nella migrazione, non che mi restituisca la pappa già pronta, voglio essere io a pilotare la conversione in ogni suo punto.
Penso che sia più facile adattare del codice che riscriverlo da zero, poi avevo in mente di creare una libreria di snippets (pezzi di codice per ogni esigenza) stile vb.net da integrare nel progetto.

@ ceskho
grazie per il sostegno

Allego il sorgente fin qui realizzato.

18
Progetti degli utenti / Re: Importazione progetto VB6
« il: 19 Dicembre 2009, 15:25:02 »
Secondo me, la chiave per diffondere l'utilizzo di Linux è l'offerta di software gestionali che soddisfino qualsiasi esigenza, io in vb6 ne ho scritti molti (alcuni arrivano anche a centomila righe di codice) e se riesco a convertire anche solo il 50% è sicuramente un grande aiuto. Poi io personalmente ho sempre evitato quando possibile l'uso delle api di windows.
La mia idea è quella di convertire quanto possibile, poi chiaramente di completare il resto a mano.
Penso che il lavoro da fare sia molto, ma che unendo le forze si possa arrivare ad un ottimo risultato.
Poi anche l'idea inversa è fattibile.

19
Progetti degli utenti / Importazione progetto VB6
« il: 19 Dicembre 2009, 10:47:09 »
Ho iniziato a scrivere una applicazione per importare i sorgenti da vb6 a gambas,
per il momento solo la parte grafica degli oggetti form, label, textbox e button (solo alcune proprietà).
Allego il sorgente in gambas e un form da importare scritto in vb6.

Funziona in questo modo:
1) Seleziono il form vb6 da convertire.
2) Avvio la conversione.
3) Salvo il codice ottenuto direttamente nella cartella dell'applicazione.

Che ne pensate, si può fare?

20
La primanota contabile è una applicazione utile a tutte le attività commerciali o artigianali, in pratica è come un diario di bordo in cui vengono annotate in ordine cronologico tutte le operazioni commerciali (fatture di vendita, di acquisto, gli incassi giornalieri) e finanziarie (incassi di fatture, pagamenti a fornitori, versamenti in banca, bonifici, assegni. ecc.).
Lo scopo ultimo è quello di fornire al commercialista dell'azienda, gli elementi utili per la redazione della contabilità, e nello specifico un report ('Primanota') con tutte le operazioni registrate. Oltre a questa funzione primaria, ho aggiunto anche uno scadenziario clienti e fornitori.

Ho utilizzato un menu classico, perchè è più semplice aggiungere voci nel caso di implementazioni di nuove funzionalità.

21
Ho completato l'applicazione e allego il package con il sorgente.
Il software è stato sviluppato con gambas 2.16 su ubuntu 9.10 e utilizza come database sqlite. Ho lasciato dei dati di esempio nel database.

22
Programmazione (Gambas 2) / Re: [risolto]sqlite eliminare record
« il: 16 Dicembre 2009, 00:24:39 »
Per eliminare un gruppo di record puoi usare direttamente l'istruzione DELETE
nella stringa SQL:

elimina i riferimenti      
sqlEL = "DELETE FROM rifcontratti WHERE idcontratti = " & CodEc
MyRSEL = MODMain.MyConn.Exec(sqlel)            


L'ultimo Id si ricava con la funzione last_insert_rowid()

hResult = hConn.Exec("SELECT last_insert_rowid() AS id")
RETURN CInt(hResult["id"])

oppure con

hResult = hConn.Exec("SELECT MAX(IdCliente) as UltimoID FROM Clienti")
RETURN hResult!UltimoId

Per passare i record dei preventivi potresti copiarli con un IdCliente = 9999999
e poi con una funzione tipo questa metterli a posto:

sqlEL = "UPDATE Preventivi SET IdCliente = " & UltimoId & " WHERE IdCliente = 9999999"
MyRSEL = MODMain.MyConn.Exec(sqlel)

23
Il pacchetto fakeroot è installato, ho la versione 1.12.4ubuntu1.

Adesso apro una nuova discussione per questo problema.

24
Ho provato a creare il pacchetto per debian ma mi da lo stesso errore, mentre quelli per fedora, mandriva e suse li ha creati correttamente.
Ho fatto una ricerca su internet ma non ho trovato la soluzione.

25
Posto la versione beta del software completa di codice sorgente.
Vorrei un aiuto per inserire un form con il testo esatto della licenza GPL, e un altro con l'attestazione del supporto dato dalla comunità Gambas.it alla creazione dell'applicazione.

p.s. dopo aver aggiornato Gambas alla versione 2.16 e Ubuntu alla versione 9.10, non riesco più a creare il pacchetto di installazione per Ubuntu, mi da il seguente errore:
Citazione
Creazione pacchetto per Ubuntu.
Creazione cartella per fare il pacchetto
Creazione file desktop...
La creazione del pacchetto è fallita.
Package.MakeDebPackage.360: File or directory does not exist

26
Io ho scritto nel 2003 un software gestionale in vb6 e access (magazzino, fatturazione, vendita al banco, ecc.), che attualmente è utilizzato in una ventina di attività commerciali, e almeno una volta all'anno mi chiamano per reinstallare tutto, a causa del solito virus che porta alla formattazione del computer.
Ho l'intenzione di fare il porting in Gambas per invogliare il passaggio a Linux, premetto che il software scritto in vb6 è composto da circa 150 maschere e 120.000 righe di codice. Per mettermi alla prova sto realizzando una piccola procedura, presente nella sezione 'Progetti in cerca di aiuto', per la gestione di una primanota cassa.
La realizzazione di una suite di programmi di contabilità aziendale, dedicata all'ambiente Linux, è un progetto molto interessante, ma ha bisogno di un gruppo di persone con le competenze giuste per far fronte a tutte le problematiche.
Io lavoro da 22 anni in uno studio commerciale e come secondo lavoro sviluppo software gestionali in vb6 e .net, ed in futuro spero anche in gambas, e sono disponibile alla nascita di questo progetto.

27
Ho corretto l'errore segnalato, allego il sorgente dell'applicazione per testare il software ed identificare altri possibili bug.

28
Progetti degli utenti / Re: Calcoli per gestione fatture
« il: 01 Luglio 2009, 08:19:18 »
Posto una routine di calcolo in VB6 che ho realizzato tempo fa:
Funziona a condizione che le righe di dettaglio della fattura
siano memorizzate sul database, in pratica ho costruito una query
(interrogazione) sul db che mi restituisce una riga per ogni aliquota iva
utilizzata nella fattura.
Utilizza 2 tabelle:
1) tabelle Righe (sono le righe di dettaglio della fattura, IdOP è l'indice
identificativo della fattura)
2) tabella Aliquote (tabella delle aliquote IVA)

Public Sub CaricaRiepilogoIVA()
     Dim timp As Currency      'variabile  TotaleImponibile
     Dim tiva As Currency      'variabile TotaleIVA
     Dim db As ADODB.Connection
     Dim adoRS As ADODB.Recordset
     Dim SQL As String
     Set db = New ADODB.Connection
     db.ConnectionString = "PROVIDER=........."
     db.Open
     Set adoRS = New ADODB.Recordset
     adoRS.CursorType = adOpenKeyset
     adoRS.LockType = adLockOptimistic
     SQL = SQL & "SELECT Sum(Righe.ImportoNettoIva) AS SommaDiImporto, "
     SQL = SQL & "Righe.IdAlq, Aliquote.TestoAlq, Aliquote.ValoreAlq, "
     SQL = SQL & "Sum([ImportoNettoIva])*[ValoreAlq]/100 AS Imposta "
     SQL = SQL & "FROM Righe INNER JOIN Aliquote ON Righe.IdAlq = Aliquote.IdAlq "
     SQL = SQL & "Where (((Righe.IdOP) =" & lblIdOP & ")) "
     SQL = SQL & "GROUP BY Righe.IdAlq, Aliquote.TestoAlq, Aliquote.ValoreAlq;"
     adoRS.Open SQL, db, , , adCmdText
     With adoRS
         timp = 0
         tiva = 0
         Do While Not .EOF
               timp = timp + !SommaDiImporto
               tiva = tiva + !Imposta
              .MoveNext
         Loop
     End With
     adoRS.Close
     Set adoRS = Nothing
     db.Close
     Set db = Nothing
     lblTotaleImponibile.Caption = Format$(timp, "###,###,##0.00")
     lblTotaleImposta.Caption = Format$(tiva, "###,###,##0.00")
End Sub

29
Progetti degli utenti / Re: Calcoli per gestione fatture
« il: 30 Giugno 2009, 22:35:37 »
I prezzi unitari sono con l'Iva inclusa o esclusa?

30
Ciao a tutti, dopo un mese "infernale" ritorno a occuparmi del software, ho realizzato la parte che gestisce lo scadenziario clienti e fornitori, mi resta da fare la gestione dei partitari, la stampa della primanota di cassa e il calcolo di un semplice bilancio.
Allego la nuova versione.

Pagine: 1 [2] 3 4