Mensaje enviado por "Ezequiel Filgueira" <efilgueira@bancorio.com.ar>

Fíjate si te sirve, yo lo utilizo esto, yo lo uso así u asta ahora no tengo ningún problema

Dim oSessions As Object
Dim oSystem As Object
Dim g_HostSettleTime As Long

Dim OldoSystemTimeout As Long

    Set oSessions = GetObject("C:\ProgramFiles\E!Pc\Sessions\Mannheim.edp")
    Set oSystem = oSessions.Parent
    g_HostSettleTime = 1200 ' asigno el tiempo de espera que quiero realizar por transacción
    OldoSystemTimeout& = oSystem.TimeoutValue ' obtengo el del System del extra
    If (g_HostSettleTime > OldoSystemTimeout) Then oSystem.TimeoutValue = g_HostSettleTime ' si es mayor el mio se lo asigno al exta
    If oSessions.Visible = False Then oSessions.Visible = True ' esto si quieres que la ventana del extra sea visible, de lo contrarios invertís los valores TRUE y FALSE
    oSessions.Close
    Set oSessions = Nothing
    Set oSystem = Nothing

Un Saludo
    Ezequiel

Mozo Manuel wrote:

> Alguien sabe que debo hacer con este código para que se me ejecute
> este fichero de configuración de Extra 6.2?
>
> Este es el código que tengo (despues de haber referenciadl la libreria por
> Proyecto - Referencias). La librería es:
> Attatchmate Extra 6.2 Object Library).
>
> Cuando doy click en el botón para ejecutar esta parte de código me saca la
> pantalla de Conexion de Extra (esto es bueno) y a continuación el error 13
> en tiempo de ejecución "No coinciden los tipos". Y no llega a sacar la
> pantalla de Conexion al Host. Además. Es decir, lo hace pero no acaba de
> sacar la pantalla de enlace.
>
> Este es código. ¿Me falta algo???? Quizá un open o un visible?? Yo que sé??
> Esto es un rollo. Bueno, aquí va y gracias anticipadas a todos aquellos que
> me podais decir algo. Gracias socios.
>
> Dim Vtam As EXTRA.Session
>
> Private Sub Boton_Salir_Click()
> End
> End Sub
> Private Sub Crear_Lotes_Click()
> Dim Opcion As String
>
> Opcion = MsgBox("¿DESEA REALMENTE CREAR EL FICHERO DE PAGOS DE
> CONCESIONARIOS?", vbYesNo, "Ejecución en Host")
>
> If Opcion = vbYes Then
> 'Y ESTA ES LA PUÑETERA LINEA QUE NO ACABA DE IR.
> Set Vtam = GetObject("C:\Program
> Files\E!Pc\Sessions\Mannheim.edp")
>
> End If
>
> > Manuel Mozo Monroy
> > Network Administrator John Deere Iberica, s.a.
> > *: 00 - 34 - 91-495-82-72
> > * ce05730@deere.com or
> > MozoManuel@R2MANNHEIM.Deere.com
> >
> >