FiveTech Software tech support forums

Code: Select all

   // ALS connection
   IF AdsConnect60( cPathLoc, ADS_LOCAL_SERVER, "ADSSYS",, 0, @nHandLoc) == .F.
      nError:=AdsGetLastError(@cError)
      ? cError
      return NIL
   ENDIF
   
   // Open a dbf
   // DbUseArea( [<lNewArea>], [<cRddName>], <cDatabase>, [<cAlias>], [<lShared>], [<lReadonly>], [<cCodePage>], [<nConnection>] )
    DbUseArea( .T., "ADSCDX", cPathLoc + "PRMTR.DBF", "prm_loc", .T.,,, nHandLoc )
    
   // ADS connection
   IF AdsConnect60( cPathRem, ADS_REMOTE_SERVER, "ADSSYS",, 0, @nHandRem) == .F.
      nError:=AdsGetLastError(@cError)
      ? cError
      return NIL
   ENDIF
   
   // Open a dbf
    DbUseArea(            .T.,     "ADSCDX", cPathRem + "PRMTR.DBF", "prm_rem",         .T.,              ,              , nHandRem )

   // Check if ADS or ALS is running
   lADS := AdsConnect( cPathRem ) // -> .T.
   lADS := AdsConnect( cPathLoc ) // -> .F.
 

Code: Select all

dbcreate( "mem:FICHA1", aEstructura , "DBFCDX" )
...
HB_DBCreateTemp( "FICHA1", aEstructura , "DBFCDX" )
 

Code: Select all

#include "ads.ch" 
#define CRLF Chr(13)+Chr(10) 


Request ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo, 
AdsGetRelKeyPos, AdsSetRelKeyPos 


//-------------------------------------------------------------------------­---//
 

function Main() 


     local aArray := {}, cDbf, i 


     RddRegister( "ADS", 1 ) 
     RddSetDefault( "ADS" ) 


     //setting up server type 
     // 1 = Local Server (no client / server) 
     // 2 = Remote Server 
     // 3 = Local + Remot 
     // 4 = Internet Server 
     // 5 = Local + Internet 
     // 6 = Remote+Internet 
     // 7 = Local + Remote + Internet , best choice 
     adsSetServerType( 4 )  // ó 
adsSetServerType( ADS_REMOTE_SERVER ) 


     //setting up the file types 
     // 1 = DBFNTX 
     // 2 = DBFCDX 
     // 3 = ADSADI 
     adsSetFileType( ADS_CDX ) 


     AdsRightsCheck(.F.) 


   IF AdsConnect60( "\\194.224.200.2:2400\lucas\lucas.ADD", 
4 ,"massimo","") 


   //    MsgInfo("Esta ahora conectado al Sevidor AIS "+CRLF+CRLF+; 
    //     "You are now connected to AIS Server","Bienvenido / 
Welcome / Versión "+ADSVersion()) 


   ELSE 


      alert("Se ha rechazado la conexión al servidor AIS, por favor 
intente mas tarde"+CRLF+CRLF+; 
         "Conection to AIS Server rejected, please, try again later") 


      alert( "Error:"+cValtochar( AdsGetLastError() )+CRLF +; 
            "Servidor:", "Usuario" ) 
      QUIT 


   ENDIF 


   i :=  dbCreate( ("\\194.224.200.2:2400\LUCAS\MASSIMO"), 
{ { "FNUMERO"   , "N", 20, 0 }, ; 
                                   { "FCODIGO"   , "C", 20, 0 }, ; 
                                   { "FPARCIAL2" , "N", 24, 10 } } ) 


   Alert(i)   // I GET .T. 


   use \\194.224.200.2:2400\LUCAS\MASSIMO.DBF new 
   // i get ADSCDX/5132  The specified database object name is not 
valid.: \\194.224.200.2:2400\LUCAS\MASSIMO 


   browse() 


   alert(AdsDeleteFile("\\194.224.200.2:2400\LUCAS\MASSIMO.dbf") )  // 
I GET .T. 


   alert(AdsDeleteFile("c:\lucas\oterfile.dbf") )  // I GET .T. 


   dbcloseall() 
   quit 


return nil 

Code: Select all

cSQL := "CREATE INDEX index1 ON table1 ( field1 ); "           + CRLF +;
       "CREATE INDEX index2 ON table1 ( field2, field3 ); "
...
IF AdsCreateSQLStatement( cAlias, ADS_ADT, hADSConnection )
   IF (lOK := ADSExecuteSQLDirect( cSQL ) )
       ...
   ENDIF
ENDIF
... 
 

Code: Select all

 // Todas las series
         INDEX ON FIELD->FSERIE + StrZero (FIELD->FNUMERO,20 ) TO FACTUR1 FOR !Deleted()

         // Serie A, B y R
         INDEX ON FIELD->FSERIE + StrZero (FIELD->FNUMERO,20 ) TO FACTUR2 FOR FIELD->FSERIE="A" .AND. !Deleted()
         INDEX ON FIELD->FSERIE + StrZero (FIELD->FNUMERO,20 ) TO FACTUR3 FOR FIELD->FSERIE="B" .AND. !Deleted()
         INDEX ON FIELD->FSERIE + StrZero (FIELD->FNUMERO,20 ) TO FACTUR4 FOR FIELD->FSERIE="R" .AND. !Deleted()
         // Cobrada
         INDEX ON FIELD->FSERIE + StrZero (FIELD->FNUMERO,20 ) TO FACTUR5 FOR FIELD->FCOBRADA="S"   .AND. !Deleted()
         INDEX ON FIELD->FSERIE + StrZero (FIELD->FNUMERO,20 ) TO FACTUR6 FOR FIELD->FCOBRADA!="S"  .AND. !Deleted()
         DbCloseAll()