PROCEDURE PRUEBA() LOCAL oAceDD, oDb, cSql, oSql, oAceSqlTable, dbTable LOCAL cCon, oSes, cConStr, oConStr SetLocale( NLS_SCURRENCY, Chr(13) ) MenuSelect(ID_MNU_ESPERAR,SDI_VIEW_ESPERAR) oConStr := dsConnectionString():new(";") oConStr:AddEntry("DBE","ADSDBE") oConStr:AddEntry("Server",cRut + cDic) oConStr:AddEntry("UID",cUsu) oConStr:AddEntry("PWD",cPas) oConStr:AddEntry("ServerType",3) 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") DbeInfo( COMPONENT_DATA, DELDBE_FIELD_TOKEN, ";" ) DbeInfo( COMPONENT_DATA, DELDBE_DELIMITER_TOKEN,Chr(0)) USE ALBARANES VIA "ADSDBE" ALIAS ACR IF FExists("D:\ALBARANES.csv") FErase("D:\ALBARANES.csv") ENDIF DbExport("D:\ALBARANES.csv",,,,,,,"DELDBE",) CLOSE ACR oSes:disconnect() ENDIF MenuSelect(ID_MNU_CLOSE,SDI_VIEW_CLOSE) RETURN