PROCEDURE PRUEBA()
LOCAL oAceDD, oDb, cSql, oSql, oAceSqlTable, dbTable
LOCAL cCon, oSes, cConStr, oConStr

SET DECIMALS TO 2
SET FIXED ON

MenuSelect(ID_MNU_ESPERAR,SDI_VIEW_ESPERAR)

oConStr := dsConnectionString():new(";")

oConStr:AddEntry("DBE","ODBCDBE")
oConStr:AddEntry("Driver","Advantage StreamlineSQL ODBC")
oConStr:AddEntry("DataDirectory",cRut + cDic)
oConStr:AddEntry("UID",cUsu)
oConStr:AddEntry("PWD",cPas)
oConStr:AddEntry("ServerTypes",6)


cConStr := oConStr:GetConnectString()

oSes := DacSession():New( cConStr )

IF .NOT. oSes:isConnected()
   Alert( "Unable to establish connection to ADS", {"Quit"} )
   RETURN
   ELSE
   //Infobox("Conectado")

   DbeSetDefault("DELDBE")

   USE ALBARANES VIA "ODBCDBE" ALIAS ACR

   IF FExists("D:\ALBARANES.csv")
      FErase("D:\ALBARANES.csv")
   ENDIF

   DbExport("D:\ALBARANES.csv",,,,,,,"DELDBE",{ {DELDBE_FIELD_TOKEN,";"},
{DELDBE_DELIMITER_TOKEN,Chr(0)} })

   CLOSE ACR

   oSes:disconnect()

ENDIF

MenuSelect(ID_MNU_CLOSE,SDI_VIEW_CLOSE)


   /*
   oAceDD := dsAceDD():new()

   IF !oAceDD:connect(cRut+cDic,cUsu,cPas,,cSrv,{|n| MyError(n)})

      Infobox(AdsGetLastErrorString(oAceDD:LastError))

      RETURN
      ELSE

      oDb := oAceDD:OpenServer("ALBARANES")
      oDb:CopyDelimited("D:\PRUEBA1.csv")
      oDb:close()

      oAceDD:disconnect()

   ENDIF

   oAceDD:disconnect()
   */

RETURN