Newsgroup: it.hobby.motociclismo
Titolo: A chi compila la lista del CMRN

Public Function ImpExpVisualizzaDlgExportRighe(ByRef a_strCodUserService
As String, _
                                               ByRef a_strCodSubVoce As
String, _
                                               ByRef a_strTipoDoc As
String, _
                                               ByRef
a_intCodConfigurazione As Integer, _
                                               ByRef
a_arrParametriConfig() As String, _
                                               ByRef a_strCodDriver As
String, _
                                               ByRef a_strCodFormato As
String, _
                                               ByRef a_strNomeFile As
String, _
                                               ByVal a_blnShowDialog As
Boolean, _
                                               ByRef a_objLibraries As
Object) As Integer
   Dim objfrmExportRighe As New frmExportRighe
   Dim ret As Integer
   Dim l_strCodConfigRegistry As String
   Dim l_strNomeFile As String
   Dim l_blnNonGestito As Boolean
    ''' Legge l'eventuale impostazione su registry
    ImpExpLeggiConfigDefaultBarcode l_strCodConfigRegistry, l_strNomeFile,
l_blnNonGestito, l_blnNonGestito, l_blnNonGestito, a_strCodUserService &
"\" & "Export"
    objfrmExportRighe.i_strCodConfigRegistry = l_strCodConfigRegistry
    objfrmExportRighe.i_strNomeFile = l_strNomeFile
    If a_blnShowDialog _
      Or l_strCodConfigRegistry = FW_STRINGANULLA Then ''' VISUALIZZA
DIALOGO
 
        objfrmExportRighe.CodUserService = a_strCodUserService
        objfrmExportRighe.CodSubVoce = a_strCodSubVoce
        objfrmExportRighe.CodTipoDoc = a_strTipoDoc
 
        Call objfrmExportRighe.Inizializza(a_objLibraries)
 
        Load objfrmExportRighe  ' Esplicita il load che altrimenti sarebbe
                                ' fatto in modo implicito dall'inizializza
 
        objfrmExportRighe.Show vbModal
 
        If objfrmExportRighe.i_intStatoUscita = vbOK Then
 
            a_intCodConfigurazione = objfrmExportRighe.i_intCodConfig
            a_strCodDriver = objfrmExportRighe.i_strCodDriver
            a_strCodFormato = objfrmExportRighe.i_strCodFormato
            a_strNomeFile = objfrmExportRighe.i_strNomeFile
 
            Call objfrmExportRighe.ParametriConfig(a_arrParametriConfig)
 
            ''' Deve eseguire la registrazione su registry della
configurazione
            ''' selezionata che dovrà divenire quella predefinita per
            ''' le volte successive
            If objfrmExportRighe.i_blnNomeFile Then
                ImpExpScriviConfigDefaultBarcode
objfrmExportRighe.i_strCodConfigRegistry, objfrmExportRighe.i_strNomeFile,
a_strCodUserService & "\Export"
            Else
                ImpExpScriviConfigDefaultBarcode
objfrmExportRighe.i_strCodConfigRegistry, , a_strCodUserService & "\Export"
            End If
        End If
 
        ImpExpVisualizzaDlgExportRighe = objfrmExportRighe.i_intStatoUscita
    Else    ''' LEGGE LA CONFIGURAZIONE DI DEFAULT
            ''' Se non c'è su registry allora lo legge dal DB
        If objfrmExportRighe.i_strCodConfigRegistry <> "" Then
            a_intCodConfigurazione =
objfrmExportRighe.i_strCodConfigRegistry
 
        Else
            Dim rsConfSubVoce As Recordset
 
            Set rsConfSubVoce =
a_objLibraries.ESAUtilitaMTS_clsUtilitaMTS.ImpExpLeggiConfSubVoce( _
                a_objLibraries.ESATransazione_clsTransazione, _
                a_strCodUserService, _
                a_strCodSubVoce, _
                a_strTipoDoc, _
                "I")
 
            Do While Not rsConfSubVoce.EOF
                ''' Se non c'è su registry allora lo legge dal DB
                If objfrmExportRighe.i_strCodConfigRegistry <> "" Then
                    a_intCodConfigurazione =
objfrmExportRighe.i_intCodConfig
                Else
                    If rsConfSubVoce.Fields("flg_default").Value Then
                        a_intCodConfigurazione =
rsConfSubVoce.Fields("cod_config").Value
                    End If
 
                End If
 
                rsConfSubVoce.MoveNext
            Loop
 
            Set rsConfSubVoce = Nothing
        End If
 
        Dim l_objDriver As ESAInterfacciaImpExp.IDriverImpExp
        Dim l_intCodConfig As Integer
        Dim l_strCodDriver As String
        Dim l_rsConfigurazioni As Recordset
        Dim l_strDesDriver As String
        Dim l_strNomeClasse As String
        Dim l_strDesPorta As String
        Dim l_intNumParametri As Integer
 
        l_intCodConfig = a_intCodConfigurazione
 
        Set l_rsConfigurazioni =
a_objLibraries.ESAUtilitaAppMTS_clsUtilitaAppMTS.ImpExpLeggiConfigurazioni(
_
            a_objLibraries.ESATransazione_clsTransazione, _
            l_intCodConfig, _
            "E")
 
        l_strCodDriver = l_rsConfigurazioni.Fields("cod_driver").Value
 
        Set l_objDriver =
a_objLibraries.ESAUtilitaAppMTS_clsUtilitaAppMTS.ImpExpCaricaDriver( _
            l_strCodDriver, _
            l_strDesDriver, _
            l_strNomeClasse, _
            l_strDesPorta, _
            a_objLibraries)
 
        Call l_objDriver.GetParametri(a_intCodConfigurazione, _
                                    "E", _
                                    l_intNumParametri, _
                                    a_arrParametriConfig)
 
        a_strNomeFile = objfrmExportRighe.i_strNomeFile
        ImpExpVisualizzaDlgExportRighe = vbOK
 
    End If
 
    Set objfrmExportRighe = Nothing
 
End Function
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 wrote in message
news:d1cdhu$sov$1...@news.newsland.it...

...ma sei un pezzo dimmerda....!
--
"Potrei guardare gli header, ma se mi dai del coglione faccio prima ;-)"  [Suoch]
Danny Joe ...at work !
BMW GS 1150 R W&B 2002 "Jennifer"
Milano
ICQ# -77096828-
http://community.webshots.com/user/dannyjoemax
http://www.geosnapper.com/albums.php?person=870

 Sequential --> 50 cl birra min.
ecc ecc
Merk 

 ha scritto nel messaggio
news:d1cdhu$sov$1...@news.newsland.it...
Cioe'?
Ti serve una mano a debuggare quel codice, o cosa?

 programmatore... ma parlate cosŤ anche nella vita ?
piu o meno, tra confratelli, ogni tanto, per ridere...
un po come il trenino
-- 
Camillo, BG, RS125 "black eerie"
"č un problema di trasmissione, perchč inserendo la
prima con la moto spenta e spingendo, la moto quasi non
va avanti, invece in folle va bene" (cit. maxpower4)

 ...ma sei un pezzo dimmerda....!
è la carogna, è la carogna...
-- 
               Sandro & Duca 888 Sp4 "BARNSTORMER"
 
http://it.groups.yahoo.com/group/IHM-ROMA
         Cavaliere per volere d'Iddio ed umano ardimento
                    Presidente del club PPCSP
       Gran Taroccatore del Villaggio del GFC membro #60 ;
     ICQ:6891270; MSN msg: Red Flyer; Yahoo msg: red_flyer_1
================================================================
    Gentile signore, la invito con il massimo della cortesia a
  dedicare immantinente una frazione del suo preziosissimo tempo
             alla pratica passiva del coito anale
  E' meglio che prendi nota: io sono cattivo, incazzato e stanco
Mangio filo spinato, piscio napalm, e riesco a mettere una palla
             in culo a una pulce a duecento metri.
         Per cui va' a rompere il cazzo a qualcun altro"
         "Noi siamo come il destino, chi va a star bene
                e chi va a prendersela nel culo"

 ogni tanto, per ridere... un po come il trenino
Ah, una banda di ricchioni adesso si chiama confraternita.... ok
Ciao, Mattia (Dr. Ogekuri) e il suo miglior Pregio :)
Treporti/Musile di Piave (VE) - Honda Fireblade '03 JMG


 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Ah, una banda di ricchioni adesso si chiama confraternita.... ok
eh oh...
"banda di ricchioni" contiene spazi
un identificatore non puo contenere spazi
questioni tecniche, tutto qui :)
-- 
Camillo, BG, RS125 "black eerie"
"è un problema di trasmissione, perchè inserendo la


"banda di ricchioni" contiene spazi
sofistico : banda_di_ricchioni
Va bene? :PPPPPPPPPPPPPPPPPP


 Va bene? :PPPPPPPPPPPPPPPPPP
"sei simpatico come un gatto attaccato ai maroni" (cit.)


 Ah, una banda di ricchioni adesso si chiama confraternita.... ok
Esatto, e avevamo pensato di nominarti Gran Maestro della legazione lagunare 
:-))))))))
-- 
Bye
Gianluca Zanelotto
Aprilia ETV 1000 Caponord Rally-Raid
Cagiva Xtra Raptor 029/999 "Balthasar", un tanto al kilo...

 Bastaaaaaaaaaaaaaa!
Brava! Fagli vedere! Tira fuori il matterello!
.
.
.
.
.
.
.
.
.
.
.
.
.... ma fai pianino, non ce lo rovinare che domani ci serve di nuovo.
Perche' domani ce lo restituisci, vero?
VEROOOO???!! :-E
--
Bye
Alfredmann
..................................................
Africa Twin RD04 over 100.000
...................................................
Promoter CMRN 2005 (abbiam trovato il pollo!)
http://www.cmrn2005.dynu.com/index.html

 ma parlate cosě anche nella vita ?
Io non ho nemmeno il PC a casa, e non ricordo l'ultima volta che ho
giocato con il pc.... comunque dopo solitario di Win 311 penso di non aver
mai usato un altro gioco.
Io non amo i PC, li uso.
-- 
Theos e Delo (ICQ# 230145739)
http://manisporchediallegria.splinder.com/
- se la strada per il paradiso č un rettilineo preferisco andare
all'inferno -


Drizzt ha scritto:


Allora sei tu il giuda che compila l'elenco!!!
-- 
Theos e Delo (ICQ# 230145739)
http://manisporchediallegria.splinder.com/
- se la strada per il paradiso è un rettilineo preferisco andare
all'inferno -
-- 


Io non ho nemmeno il PC a casa,
il portatile non vale? c' era!
-- 
Alty
Vfr Vtec.

 Allora sei tu il giuda che compila l'elenco!!!
No, l'elenco ve lo compilate da soli. Io al massimo lo tarocco :-D
Per inciso, quel codice e' una Merda :-)