[Completato] Programma gestionale vendite ordini consegne

[fsurfing]

in alternativa dovrebbe funzionare anche così:

Codice: [Seleziona]

MODMain.Connect()
   MyRS = MODMain.$conn.Exec("select * from f_cortesia")                   
   IF MyRS.Available = TRUE THEN
         comboBox1.clear ''''''questo potrebbe non servire
     for EACH Myrs.count

         ComboBox1.add(MyRS!formulacortesia)
     
      next
   ENDIF
 

[Golia]

trovato, DIM i AS Integer.
Però mi restituisce tutti i record uguali al primo.
Es. ho inserito: "gent. sig" "spett.le" "egreg." e mi escono 3 "gent. sig"

[fsurfing]

vero modifica cosi:

Codice: [Seleziona]

MODMain.Connect()
   MyRS = MODMain.$conn.Exec("select * from f_cortesia")                   
   IF MyRS.Available = TRUE THEN
         comboBox1.clear ''''''questo potrebbe non servire
       myrs.movefirst '''''posiziona il result all' inizio
     for i=0 to Myrs.count-1

         ComboBox1.add(MyRS!formulacortesia  ,i)
         myMrs.movenext '''''muove l' indice del result al prossimo valore
      next
   ENDIF
 

[Golia]

:-(  non va da un errore quando entro nella maschera clienti "Not an object"

[fsurfing]

bisogna vedere a che righa di codice ti da errore per capire il problema, il codice sembra corretto

[Golia]

Perfetto grazie mille!!
Ci sono deglie errori di scrittura per chi può interessare il codice

Codice: [Seleziona]

MODMain.Connect()
   MyRS = MODMain.$conn.Exec("select * from f_cortesia")                   
   IF MyRS.Available = TRUE THEN
         comboBox1.clear ''''''questo potrebbe non servire
       MyRS.movefirst '''''posiziona il result all' inizio
     for i=0 to Myrs.count-1

         ComboBox1.add(MyRS!formulacortesia  ,i)
         MyRS.movenext '''''muove l' indice del result al prossimo valore
      next
   ENDIF

Grazie mille

[Golia]

Caspita adesso non va più..
Mi da errore sulla riga: DIM i AS Integer.
Devo dichiarare i (si dice cosi? :oops: ) giusto?

[fsurfing]

se ti ha dato errore su

DIM i AS integer

probabilmente hai inserito la dichiarazione nel posto sbagliato o è dichiarata piu volte.

[Golia]

Ho provato a rinominare anche i, ma mi da errore. Allego l'errore.
Grazie per l'aiuto fsurfing

[fsurfing]

gambas ti sta dicendo che in quella posizione non si aspetta un DIM, sicuramente perchè prima di DIM i2 as integer hai altro codice .

le dichiarazioni si possono effettuare solamente ad inizio funzione e non qua e la .

[Ceskho]

Le dichiarazioni vanno effettuate ad inizio funzione per le variabili dee locali (cioè usabili solo all'interno della funzione) mentre ad inizio codice per quelle globali (cioè richiamabili da più del programma stesso).

[Golia]

Grazie mille, in effetti funziona!! Sono proprio un testone :-D


Scusate.. altra domanda.
quando avvio il programma si apre la maschera principale, poi apro la maschera clienti, etcc. Per non creare un mare di icone da "principale" quando apro "clienti" scrivo oltre che CLIENTI.SHOW; ANCHE ME.HIDE.  e fin qui ok, nella barra ho solo l'icona di clienti. ma quando chiudo clienti non si apre principale. E' giusto che quando chiudo clienti gli dico PRINCIPALE.SHOW ?

[Ceskho]

Hai usato il codice di apertura del form prima della chiusura dell'altro form?

[Golia]

Si ma la maschera principale non si apre

[Golia]

Penso sia giusto fare PRINCIPALE.SHOW alla chiusura della maschera clienti,
Ho visto che cbsof nel programma primanota contabile fa così :-D
grazie