Hola Manu:

 

Tengo el siguiente error adjunto. Sin embargo, el código si me funciona normalmente. Muchas gracias.

 

 

//----------------------------------------------------------------------------//
// INICIO SQL
//
//----------------------------------------------------------------------------//
FUNCTION InicioSQL( oMeter, oDlg )

   LOCAL pPath, oMySql, oTb              // Globales
   LOCAL Texto := "", C_R  := CHR(10)
   LOCAL cBaseCliente
   LOCAL cTablaCliente
   LOCAL cCliente
   LOCAL cLogin
   LOCAL cPass

 

   // Config--------------------------------------------------
   SELECT("CONFIG")

   cBaseCliente  := AllTrim( CONFIG->SQL_DB )
   cTablaCliente := "datosopac"
   cLogin        := AllTrim( CONFIG->SQL_USER )
   cPass         := AllTrim( CONFIG->SQL_PASS )

 

                                                                                                                                                                                                                                                                            
   // Pantalla de presentación-----------------------------------

   IF !MsgYesNo(OemToAnsi("¨Desea CONTINUAR con el proceso?"), " A V I S O ")
      oDlg:End()
      RETURN NIL
   ENDIF
   // -----------------------------------------------------------

 

   // Carga de la CONFIGURACION----------------------------------
   //pPath      := "..\DATOS"
   pPath    := AllTrim( CONFIG->PATH )
   // -----------------------------------------------------------

 

  

   // Conexión SQL-----------------------------------------------
   oMySql := TMSConnect():New()

   IF oMySql:lInit
      MsgInfo( "Sistema SQL inicializado correctamente", " Motor SQL " )
   ENDIF

   Sysrefresh()

   IF oMySql:Connect( "sql.intranet", cLogin, cPass, cBaseCliente )  // servidor MYSQL
        ExportarLIBROS( oMySql, cTablaCliente, oMeter, oDlg )    // TABLA
        oMySql:Close()
        oMySql:Free()
   ELSE
        MsgStop( "ERROR: No hay conexión con la Base de Datos "+AllTrim(cTablaCliente)+". La operación no ha sido realizada", " ERROR Motor SQL " )
   ENDIF
   // -----------------------------------------------------------

   oDlg:End()

RETURN NIL
//----------------------------------------------------------------------------//

 

//----------------------------------------------------------------------------//
// EXPORTAR LIBROS
//
//----------------------------------------------------------------------------//
FUNCTION ExportarLIBROS( oMySql, cTablaCliente, oMeter, oDlg )

 LOCAL cLast, lBloqueado := .F.
 LOCAL cActual := 1
 LOCAL oTb

 // Vaciamos la Tabla LIBROS--------------------------------
 if !oMySql:oDataBase:Execute( "TRUNCATE TABLE "+ Alltrim(cTablaCliente)  )
    MsgStop( "ERROR: No se puede vaciar la TABLA "+Alltrim(cTablaCliente) )
 endif
 

 // Seleccionamos la TABLA LIBROS---------------------------
 oTb := TMSTable():New( oMySql, AllTrim(cTablaCliente) )

 if !oTb:Open()   // si no se abre
     MsgStop( "No se puede abrir la tabla: " + cTablacliente, "Operación Cancelada" )
     RETURN Nil
 endif

 // Limpio buffer en SQL------------------------------------
 oTb:Blank()

 

 // Seleccionamos BIBLIO.DBF----------------------------------
 SELECT("BIBLIO")
 DbGoTop()

 

 // Controles de la BARRA--------------------------------------
 oDlg:Show()
 oDlg:SetFocus()

 

 // Ejecutamos la importacion----------------------------------
 DO WHILE !EOF()

        // Creamos el Registro
        oTb:FieldPut( 2, BIBLIO->AUTOR )
        oTb:FieldPut( 3, BIBLIO->TITULO )
        oTb:FieldPut( 4, str(BIBLIO->ANO,4) )
        oTb:FieldPut( 5, BIBLIO->EDITORIAL )
        oTb:FieldPut( 6, BIBLIO->ISBN )
        oTb:FieldPut( 8, BIBLIO->TEMA )
        oTb:Insert()

        oMeter:SetPos( cActual )
        cActual++
        Sysrefresh()
        DbSkip()

 ENDDO
 // Ejecutamos la importacion----------------------------------

 oTb:Close()                      // Cerramos la TABLA

 

 // Accedemos a la Tabla LIBROS--------------------------------
 MsgBeep()
 oDlg:Hide()

 MsgInfo("Los LIBROS han sido exportados correctamente", " A V I S O ")

RETURN NIL
//----------------------------------------------------------------------------//

 

 

Un saludo