Newsgroup: it.hobby.motociclismo
Titolo: [CMRL -Strascichi] BIS....

Giusto per dovere di cronaca....
Qualcuno ricordera' il piccolo imprevisto al CMRL 2004..
No, non intendo la presenza di kalě, intendo il serbatoio bucato..
 
http://tinyurl.com/46qbx
Bene, dopo aver tentato la riparazione in garanzia rischiando la galera dal 
concessionario ladro..
dopo aver tentato invano un'altra riparazione dal meccanico di fiducia con 
un simil-gel-speciale preventiente dalla terra di mezzo con 
Gandalf-incantesimo integrato per riparazione di moto d'epoca...
il risultato e' al momento un SV gialla con serbatoio BLU :-((
Sicuramente bella e intrigante ma soprattutto finalmente funzionante.
Interessanti le espressioni delle persone che la vedono...
La vicenda e' comunque ancora ben lontana dalla conclusione...
maz

 La vicenda e' comunque ancora ben lontana dalla conclusione...
dai fuoco al concessionario..sconsiglia tutto il mondo di servirsi da
lui..e vivi felice......ah, dimenticavo.,..rivernicia il serbatoio!!!
Zanna
VFR Vtec
Medaglia d'Oro CMRN 2004 ...moto piu "simpatica"....
*******************************************
Casco sempre acceso e luci allacciate.....sempre!
*******************************************
La ML di IHM Roma: 
groups.yahoo.com/group/IHMspqr
LANARCO member....semper!! ;o)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Zanna ha scritto:
Ufff!! è tornato...
-- 
Theos e Delo (ICQ# 230145739)
http://manisporchediallegria.splinder.com/
- se la strada per il paradiso è un rettilineo preferisco andare
all'inferno -


 0 Then '-- se ho ancora quantità disponibile dell'articolo
            '-- Ricomincio dall'inizio della griglia per evadere con la
quantità rimanente
            objRsGriglia.MoveFirst
            Do Until objRsGriglia.EOF
               '-- aggiorno la qta da evadere con tutta la qta del
dizionario
               lngQta =
i_objFzRigheDoc.ImpExpEvadiRiga(dicQuantitaXArticolo(strKey), _
                                                        i_objTransazione, _
                                                        i_clsDatiValuta, _
                                                        i_objInfoSystem, _
                                                        i_objLibraries, _
                                                        objRsRighe, _
                                                        objRsMatricole, _
                                                        objRsLotti, _
                                                        objRsGriglia, _
 
i_objRsDMG_MATRICOLE_RIG, _
 
i_objRsDMG_LOTTI_RIG)
               AggiornaQtaDaEvadere lngQta
               '-- aggiorno la qta del dizionario, presumibilmente deve
essere 0
               dicQuantitaXArticolo(strKey) = dicQuantitaXArticolo(strKey)
- lngQta
               objRsGriglia.MoveNext
            Loop
         End If
      End If
      '-- se qta del dizionario > 0 allora devo aggiungere la riga
      If dicQuantitaXArticolo(strKey) > 0 Then
         If blnAggiungiDescrittiva Then
            '-- TODO: aggiungiDescrittiva in una funziona a parte, magari
in FZRigheDoc (anche se la descrizione si prende da BGEvasOrImp)
            objRsGriglia.AddNew
            i_objUtilitaAppMTS.ImpostaDefaults objRsGriglia, a_arrDefaults
            objRsGriglia.Fields("ind_tiporiga").Value =
E2MG_ind_tiporiga_DESCRITTIVO '"D"
            a_objRSGriglia.Fields("qta_merce").Value = 0
            a_objRSGriglia.Fields("num_riga").Value = a_num_riga_start
            a_objRSGriglia.Fields("des_articolo_riga").Value =
"............"
            blnAggiungiDescrittiva = False
            '-- incremento il numero di riga da usare
            intUltimaRiga = intUltimaRiga + 1
         End If
         '-- Aggiungo in fondo alla griglia le righe con codice articolo =
voce del dizionario
         lngQta = i_objFzRigheDoc.ImpExpAggiungiRighe(strKey, _
 
dicQuantitaXArticolo(strKey), _
                                                     intUltimaRiga, _
                                                     i_objTransazione, _
                                                     i_objInfoSystem, _
                                                     i_objLibraries, _
                                                     objRsRighe, _
                                                     objRsMatricole, _
                                                     objRsLotti, _
                                                     objRsGriglia, _
 
i_objRsDMG_MATRICOLE_RIG, _
                                                     i_objRsDMG_LOTTI_RIG)
      End If
   Next i
Debug.Assert False
   '--------------------------------
   '-- Aggiorno le righe aggiunte --
   '--------------------------------
   objRsGriglia.Filter = "num_riga >= " & a_num_riga_start '& " AND
ind_tiporiga = '" & E2MG_ind_tiporiga_ARTICOLO & "'"
 
'''''   Set objRsTemp = objRsGriglia.Clone
'''''   If Not (objRsGriglia.EOF And objRsGriglia.BOF) Then
'''''      objRsTemp.MoveFirst
'''''   End If
 
   i_objFzRigheDoc.ValorizzaRighe i_objTransazione, _
                                  i_clsDatiValuta, _
                                  i_objInfoSystem, _
                                  i_objRsMMG_MOVMAGT, _
                                  objRsGriglia, _
                                  avntWarning, _
                                  avntErrori, _
                                  enRicalcolaAutomaticamente, , , , _
                                  i_objRsDMG_LOTTI_RIG, _
                                  i_objRsDMG_MATRICOLE_RIG
 
   '-- ripristino il filtro iniziale
   objRsGriglia.Filter = vntFiltro
 
   If a_blnEseguiValida Then
      ReDim l_tmpRecordset(0 To 7) As ADODB.Recordset
 
      i_objUtilitaAppMTS.CopiaRecordset i_objRsMMG_MOVMAGT,
l_tmpRecordset(0)
      i_objUtilitaAppMTS.CopiaRecordset objRsGriglia, l_tmpRecordset(1)
      i_objUtilitaAppMTS.CopiaRecordset i_objRsDMG_LOTTI_RIG,
l_tmpRecordset(2)
      i_objUtilitaAppMTS.CopiaRecordset i_objRsDMG_MATRICOLE_RIG,
l_tmpRecordset(3)
      i_objUtilitaAppMTS.CopiaRecordset i_objRsDOR_EVASIONI,
l_tmpRecordset(4)
      i_objUtilitaAppMTS.CopiaRecordset i_objRsDMG_COMMESSE_RIG,
l_tmpRecordset(5)
      i_objUtilitaAppMTS.CopiaRecordset i_objRsDMG_MOVMAGR_COLLI,
l_tmpRecordset(6)
      i_objUtilitaAppMTS.CopiaRecordset i_objRsDMG_MOVMAGR_CONF,
l_tmpRecordset(7)
 
      i_objClientApp.SetFrmImportRun "Validazione righe inserite ", 300
      DoEvents
 
      i_objBsDocument.Salva i_objTransazione, _
                            l_tmpRecordset, _
                            False, _
                            enTutteValidazioni + enCalcoliCorrelazione, _
                            avntErrori, _
                            avntWarning, _
                            i_clsDatiValuta, _
                            i_objInfoSystem, _
                            False, _
                            i_objObjectParam
   End If
 
   Set a_objRSGriglia = objRsGriglia
 
   i_Stato.PassaProssimoStato opCampoInModifica
   i_Stato.PassaProssimoStato opConfermaModificaCampo
 
   i_objUtilitaAppMTS.AggiungiErrori a_avntErrori, avntErrori
   If
i_objLibraries.ESAUtilitaAppMTS_clsUtilitaAppMTS.EsistonoErrori(a_avntErrori)
Then
      Screen.MousePointer = vbNormal
      ImpExpFocusTab
      i_objClientApp.VisualizzaMatriceErrori a_avntErrori, Me.Caption, Me
   End If
 
End Sub


 Ufff!! è tornato...
ti do' ancora una speranza...
in Marocco ci sono corrente elettrica, i computer, e internet...
Zanna


 ha scritto nel messaggio
Tu, fa per pubblicare una foto in cui risulti piů scuro di una monaca di
clausura albina e vedi che ti succede ...
Kalě.
-- 
Ride History: Garellik 50->Mtx125->Dr650Rs
Riding: Arabella (aka Sv650s)
" i miei hobbies sono indipendenti dalle mie morose" © Maz

 clausura albina e vedi che ti succede ...
gh!
no, non sono abbronzato..
a me non piace il sole....e poi c'erano solo 37 gradi...
no, ho passato il tempo nei suk, in qualche fumeria d'oppio e in un paio
di harem..no, non mi sono abbronzato tanto...
Zanna


 End Sub
non mi troverai mai..........
Zanna


 dai fuoco al concessionario..
Sarà un caso, ma non molto tempo fa Maxmax è venuto in cerca di info su QUEL
conce ... ripeto, sarà un caso ........................
Kalì.


ah, dimenticavo.,..rivernicia il serbatoio!!!
Volevo solo specificare che la moto e' quella del mio amico.. la mia sta 
benone!
maz 

 benone!
e allora non perdere tempo con la tua moto e rivernicia il serbatoio del
tuo amico!!!!!!!!!!!!!!!!!
Zanna
:-)


in Marocco ci sono corrente elettrica, i computer, e internet...
il problema sei tu che in Marocco non trovi nulla di meglio di ihm e ML
Vfr...
-- 
Alty
Vfr Vtec. 

 no, ho passato 4 giorni davvero belli..
ARIDAJE ...
Sì guarda, anch'io in ufficio a tradurre i prompt di un software di calcolo
solai prefabbricati ... proprio sprizzo da tutti i pori ...
Kalì.


 bisogno di andar fin lą nčh!!! ^__________-
:-)
no, ho passato 4 giorni davvero belli..pero' non mi sono abbronzato...
:-)


 di harem.
Traducendo: hai passato il tempo tra spacciatori e lucciole ... non c'era
bisogno di andar fin là nèh!!! ^__________-
Kalì.


 
v...@xxx.io
 (Zanna) wrote:


SEEEEEEEEEEEEEEEEEEE..
no, sono tornato stamattina :-)


Kalě ha scritto:
proprio sprizzo da tutti i pori ...
poro kali'...


 tuo amico!!!!!!!!!!!!!!!!!
Ah.. uh... i pennarelli indelebili vanno bene?!?
maz

no, sono tornato stamattina :-)
lo spero per te...
-- 
Alty
Vfr Vtec. 

> il risultato e' al momento un SV gialla con serbatoio BLU
Ma cosi' la moto è proprio inguardabile? Perche' ad immaginarla, forse
potrebbe anche piacere. Poi giallo/blu...
Ciao,
Pelete.

potrebbe anche piacere. Poi giallo/blu...
No, non e' inguardabile... infatti l'idea e' di lasciarla cosi e di 
aggiungere una scritta del tipo:
"HELLASSSSS!!!!!!"
maz