16
Programmazione (Gambas 2) / Re: quesito sciocco
« il: 13 Aprile 2008, 09:24:50 »
buon giorno
tutto ok e grazie per il suggerimento
tutto ok e grazie per il suggerimento
Gambas-it
News:
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
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.
Pagine: 1 [2]
17
Programmazione (Gambas 2) / quesito sciocco
« il: 12 Aprile 2008, 17:04:56 »
un saluto a tutti,ho la necessita' di andare a capo in una istruzione select
altrimenti e' troppo lunga e non gestibile a video,se ben ricordo in vb si
usava _ come si fa in gambas
esempio:
MGlobal.db.Exec("INSERT INTO skriparazioni (dataingr,cdcli,codlinea,id_app,id_marca,id_modello,id_matr,datacq,id_acc,ddt,difetto,garanzia,cdriv,docacq,nrdocacq,datadocacq,nrcassa,datapcons,rmaxeuro,statorip) VALUES ('" & MVariabili.DataIn & "','" & MVariabili.idCdcli & "','" & MVariabili.idApp & "','" & MVariabili.idMarca & "','" & MVariabili.idModel & "','" & MVariabili.idMatric & "','" & MVariabili.DataAcq & "','" & MVariabili.idAcc & "','" & TxtBolla.Text & "','" & TxaDifetti.Text & "','" & MVariabili.garanzia & "','" & MVariabili.idRivend & "','" & TxtDocAcq.Text & "','" & TxtNrDocAcq.Text & "','" & TxtDataDocAcq.Text & "','" & TxtNrCassa.Text & "','" & MVariabili.DtPrCons & "','" & TxtRipMaxEuro.Text & "','" & TxlStatoRip.Text & "')")
chiaramente io c'e' l'ho su una unica riga....
altrimenti e' troppo lunga e non gestibile a video,se ben ricordo in vb si
usava _ come si fa in gambas
esempio:
MGlobal.db.Exec("INSERT INTO skriparazioni (dataingr,cdcli,codlinea,id_app,id_marca,id_modello,id_matr,datacq,id_acc,ddt,difetto,garanzia,cdriv,docacq,nrdocacq,datadocacq,nrcassa,datapcons,rmaxeuro,statorip) VALUES ('" & MVariabili.DataIn & "','" & MVariabili.idCdcli & "','" & MVariabili.idApp & "','" & MVariabili.idMarca & "','" & MVariabili.idModel & "','" & MVariabili.idMatric & "','" & MVariabili.DataAcq & "','" & MVariabili.idAcc & "','" & TxtBolla.Text & "','" & TxaDifetti.Text & "','" & MVariabili.garanzia & "','" & MVariabili.idRivend & "','" & TxtDocAcq.Text & "','" & TxtNrDocAcq.Text & "','" & TxtDataDocAcq.Text & "','" & TxtNrCassa.Text & "','" & MVariabili.DtPrCons & "','" & TxtRipMaxEuro.Text & "','" & TxlStatoRip.Text & "')")
chiaramente io c'e' l'ho su una unica riga....
18
Programmazione (Gambas 2) / azzerare variabili
« il: 30 Marzo 2008, 12:07:22 »
Buon giorno a tutti, mi ricordo che in vb c'era una istruzione per azzerare tutte
le variabili in esecuzione.
Esiste un comando simile in gambas2 ???
Saluti
le variabili in esecuzione.
Esiste un comando simile in gambas2 ???
Saluti
19
Programmazione (Gambas 2) / Re: Stampare con Gambas.
« il: 15 Marzo 2008, 18:56:06 »Citazione
fsurfing ha scritto:
potresti fare cosi:Codice: [Seleziona]
for each rresult
testo =rresult!mio_campo
draw.text(testo,x,y)
y=y+15
next
in questo modo ti stampa un elenco di elementi del campo mio_campo
Buona sera e grazie per la risposta,tutto ok vorrei sapere se possibile
l'unita di misura delle coordinate e degli oggetti ( rettangolo ecc.)
20
Programmazione (Gambas 2) / Re: Stampare con Gambas.
« il: 08 Marzo 2008, 17:27:21 »
buon giorno a tutti,quesito ?
come si puo agganciare all'istruzione draw.text il result di una tabella
con piu campi.
es. draw.text(rresult............
come si puo agganciare all'istruzione draw.text il result di una tabella
con piu campi.
es. draw.text(rresult............
21
Programmazione (Gambas 2) / Re: Decimali in ColumnView.
« il: 10 Febbraio 2008, 16:25:11 »
tutto ok e grazie per la risposta leo72 :-D :-D
22
Programmazione (Gambas 2) / Re: Decimali in ColumnView.
« il: 10 Febbraio 2008, 11:55:50 »
Buon giorno a tutti, io ho lo stesso problema di tornu posto la sezione del mio listato dove non riesco applicare i suggerimenti della discussione.
uso gambas2 2.0.0 in mandriva2008
ps: il campo interessato Listimp1 nel database e configurato float(6,2)
DIM f AS ResultField
DIM c AS Integer
faResult = MGlobal.db.Exec("SELECT cdart, anart.descrizione, giacenza,listimp1, ragsoc, scaffale, piano, anart.cdfor, ean, id_cdart, costoult, note, anart.id_catm, descatm, anart.id_um, cdum, anart.id_iva, percent, desciva, ricauto, tipoart, scortamin, risco1, risco2, risco3, esiniz, carichi, scarichi, resifor, valinizia, valcarico, valresifor, dtucarico, valesist, cmp FROM anart, anafor, unmisura, tabiva, catmerci WHERE ragsoc = '" & CmbFor.Text & "' AND anart.cdfor = anafor.cdfor AND anart.id_um = unmisura.id_um AND anart.id_iva = tabiva.id_iva AND anart.id_catm = catmerci.id_catm")
' Costruzione tabella Ricerca Articoli (Intestazione Colonne,Larghezza,Allineamento ecc..)
CvwFindArt.Clear
CvwFindArt.Columns.Count = faResult.Fields.Count
FOR c = 0 TO faResult.Fields.Count - 1
f = faResult.Fields[c]
CvwFindArt.Columns.Count = 7
CvwFindArt.Columns.Sort = 1
CvwFindArt.Columns[0].Width = 120
CvwFindArt.Columns[0].Text = "CODICE"
CvwFindArt.Columns[1].Width = 320
CvwFindArt.Columns[1].Text = "DESCRIZIONE"
CvwFindArt.Columns[2].Width = 90
CvwFindArt.Columns[2].Text = "GIACENZA"
CvwFindArt.Columns[3].Width = 90
CvwFindArt.Columns[3].text = "LISTINO"
CvwFindArt.Columns[4].Width = 200
CvwFindArt.Columns[4].Text = "FORNITORE"
CvwFindArt.Columns[5].Width = 90
CvwFindArt.Columns[5].Text = "SCAFFALE"
CvwFindArt.Columns[6].Width = 90
CvwFindArt.Columns[6].Text = "PIANO"
NEXT
' Fill the ColumnView with the table data
FOR EACH faResult
' Create a new row and fill the first column
CvwFindArt.Add(faResult.Index, faResult[0])
' Fill the rest of the columns
FOR c = 1 TO faResult.Fields.Count - 1
CvwFindArt[faResult.Index][c] = faResult[c]
NEXT
NEXT
uso gambas2 2.0.0 in mandriva2008
ps: il campo interessato Listimp1 nel database e configurato float(6,2)
DIM f AS ResultField
DIM c AS Integer
faResult = MGlobal.db.Exec("SELECT cdart, anart.descrizione, giacenza,listimp1, ragsoc, scaffale, piano, anart.cdfor, ean, id_cdart, costoult, note, anart.id_catm, descatm, anart.id_um, cdum, anart.id_iva, percent, desciva, ricauto, tipoart, scortamin, risco1, risco2, risco3, esiniz, carichi, scarichi, resifor, valinizia, valcarico, valresifor, dtucarico, valesist, cmp FROM anart, anafor, unmisura, tabiva, catmerci WHERE ragsoc = '" & CmbFor.Text & "' AND anart.cdfor = anafor.cdfor AND anart.id_um = unmisura.id_um AND anart.id_iva = tabiva.id_iva AND anart.id_catm = catmerci.id_catm")
' Costruzione tabella Ricerca Articoli (Intestazione Colonne,Larghezza,Allineamento ecc..)
CvwFindArt.Clear
CvwFindArt.Columns.Count = faResult.Fields.Count
FOR c = 0 TO faResult.Fields.Count - 1
f = faResult.Fields[c]
CvwFindArt.Columns.Count = 7
CvwFindArt.Columns.Sort = 1
CvwFindArt.Columns[0].Width = 120
CvwFindArt.Columns[0].Text = "CODICE"
CvwFindArt.Columns[1].Width = 320
CvwFindArt.Columns[1].Text = "DESCRIZIONE"
CvwFindArt.Columns[2].Width = 90
CvwFindArt.Columns[2].Text = "GIACENZA"
CvwFindArt.Columns[3].Width = 90
CvwFindArt.Columns[3].text = "LISTINO"
CvwFindArt.Columns[4].Width = 200
CvwFindArt.Columns[4].Text = "FORNITORE"
CvwFindArt.Columns[5].Width = 90
CvwFindArt.Columns[5].Text = "SCAFFALE"
CvwFindArt.Columns[6].Width = 90
CvwFindArt.Columns[6].Text = "PIANO"
NEXT
' Fill the ColumnView with the table data
FOR EACH faResult
' Create a new row and fill the first column
CvwFindArt.Add(faResult.Index, faResult[0])
' Fill the rest of the columns
FOR c = 1 TO faResult.Fields.Count - 1
CvwFindArt[faResult.Index][c] = faResult[c]
NEXT
NEXT
Pagine: 1 [2]