FiveTech Software tech support forums

Code: Select all  Expand view

  if !"hConnect" IN h0
      AdsConnect(  ::oMG:hIni["CAMINOS"]["bdatos"]+"\local", ::oMG:hIni["ADS"]["srvtipo"] )
      h0:hConnect:= AdsConnection()
   else
      if Select( "SQLSele" ) > 0
         SQLSele->( DbCloseArea() )
      end
   end
   DBSelectArea( 0 )

   if !ADSCreateSQLStatement( "SQLSele", ADS_CDX, h0:hConnect )
      MsgStop( "Fallo en la conexión a Tablas [Error Nº: "+cValTochar( AdsGetLastError() ), "Reintente..." )
      return( nil )
   end

   if !ADSExecuteSQLDirect( "SELECT Count(*) FROM BDSGC36 WHERE FSele01=.T." )
      MsgStop( "Fallo en lectura de Tabla Adicional de Articulos", "Reintente..." )
      SQLSele->( DbCloseArea() )
   else
      if SQLSele->Expr == 0
         SQLSele->( DbCloseArea() )
         ADSCreateSQLStatement( "SQLSele", ADS_CDX )
         ADSExecuteSQLDirect( 'INSERT INTO BDSGC36 SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"' )
      end
   end
 

'INSERT INTO BDSGC36 SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"'

Code: Select all  Expand view

SELECT Count(*) FROM BDSGC36 WHERE FSele01=.T.

Code: Select all  Expand view

SELECT Count(*) FROM BDSGC36 WHERE FSele01=TRUE

Code: Select all  Expand view

'INSERT INTO BDSGC36 SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"'

Code: Select all  Expand view

'INSERT INTO BDSGC36 SELECT * FROM BDSGC01'
 

SELECT Count(*) FROM BDSGC36 WHERE FSele01=.T.

'INSERT INTO BDSGC36 SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"'

Code: Select all  Expand view

INSERT INTO BDSGC36 SELECT FArt02 FROM "d:\MiApp\bDatos\BDSGC01"

Code: Select all  Expand view

MsgInfo("error AdsExecuteSqlDirect(cSql)" + CRLF + "Error:"+cValtochar( AdsGetLastError() ) )

Code: Select all  Expand view

cSql := "SELECT FArt02 FROM " +::oMG:hIni["CAMINOS"]["bdatos"] + "\BDSGC01"

if SqlEjecute( cSql )
  //error
endif

'INSERT INTO BDSGC36 SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"'

Code: Select all  Expand view

'INSERT INTO Bdsgc36 (FArt01) SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"'