FiveTech Software tech support forums

Pues yo me inclino porque es un problema del preprocesado.
Habria que ver el archivo .ppo generado a ver si está convirtiendo Select() en una cosa inesperada
Recordar tambien que el comando SELECT es traducido a dbUseArea([x])

... SELECT */ HB_P_PUSHNIL, HB_P_FUNCTIONSHORT, 0, HB_P_POPVARIABLE, 2, 0, /* CD */ /* 00034 */ HB_P_LINEOFFSET, 2, /* 140 */ HB_P_PUSHSYMNEAR, 3, /* DBUSEAREA */ HB_P_PUSHNIL, HB_P_TRUE, HB_P_PUSHNIL, HB_P_PUSHLOCALNEAR, 1, /* NOME */ HB_P_PUSHNIL, HB_P_PUSHNIL, HB_P_FALSE, HB_P_PUSHNIL, HB_P_DOSHORT, ...

... la cosa para abrirlos en modo compartido. cambiando esta linea, las abre en modo compartido (no se que otras consecuencias puede tener...)" dbUseArea( .F.,Iif(nDriver==1,"DBFNTX",Nil),oApp:DataPath+cName,cRealAlias,.T.,.F.,Iif(!Empty(cdp),cdp,Nil) ) Alguien ha realizado este cambio ...

... la misma consulta sobre otras bases de datos que están en el mismo directorio remoto funciona sin inconvenientes. EJEMPLO DE APERTURA DE BASES Dbusearea(.t.,"LETO",cServer+'/wflabor','ProduNew',.T.,.F.) FUNCIONA xbrowse() USE ( '//190.108.228.106:2812/wflabor' ) New FUNCIONA xbrowse() ...

cDriVer := "DBFCDX" // PARAMETRO DE LA FUNCION DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl) IF ( cDriVer == "DBFCDX" .OR. cDriVer == "ADS" ) .AND. !EMPTY(cPatTab) cNomArc := ALLTRIM(SUBS(cNomTab,1,8))+'.CDX' ...

... Deleted() status. By default, the SQLRDD adopts the name SR_DELETED. If you want to use another name, call SR_DeletedName("NAME") before dbUseArea() or dbCreate(). This function is also very useful when we want to open tables not created by SQLRDD, but we can use another not null character ...

... manages the Recno(). By default, the SQLRDD adopts the name SR_RECNO. If you want to use another name, call SR_RecnoName("NAME") before dbUseArea() or dbCreate(). This function is also very useful when we want to open tables not created by SQLRDD, but we can use another auto sequenced ...

... como he mencionado anteriormente, por lo que no fallará USE cTable VIA SQLRDD Si no se desea modificar la estructura, siempre se puede utilizar dbUseArea( .F., "SQLRDD", "select * from customer", "customer" ) En conclusión, si se pretende migrar todo un sistema ...

Hi Last comma makes an blank line to array, and than aIdx(i,1) is empty for dbusearea where i=2 -works correct for i=1 but len(aIdx)=2 and then crash! ::aIdx := { ; { "CUSTOMER" , { { "Upper(First)" , "First" , "Customer" ...

Hi Last comma makes an blank line to array, and than aIdx(i,1) is empty for dbusearea where i=2 -works correct for i=1 but len(aIdx)=2 and then crash! ::aIdx := { ; { "CUSTOMER" , { { "Upper(First)" , "First" , "Customer" ...

thanks , where was the error ?

... || " + cfor + "}"   ::oBtnOk:Disable()   ::oBtnExit:Disable()//   xbrowser ::aIdx   FOR i := 1 TO LEN( ::aIdx )      //dbUseArea( .t., ::cDriver, ::cFile, ::cAlias, ::lShared, ::lReadOnly )      DbUseArea( .F. ,"DBFCDX", ::aIdx[ i, 1 ],, .F. )      FOR k := ...

... ::aIdx   FOR i := 1 TO LEN( ::aIdx )-1                                                                                 // NEW is -1      //dbUseArea( .t., ::cDriver, ::cFile, ::cAlias, ::lShared, ::lReadOnly )      DbUseArea( .F. ,"DBFCDX", ::aIdx[ i, 1 ],, .F. )      FOR k := ...

Jimmy wrote:hi Silvio,

have you try a Macro ?

Code: Select all  Expand view

  xName := ::aIdx[ i, 1 ]
   DbUseArea( .F. ,"DBFCDX", &(xName),, .F. )

error

hi Silvio,

have you try a Macro ?

Code: Select all  Expand view

  xName := ::aIdx[ i, 1 ]
   DbUseArea( .F. ,"DBFCDX", &(xName),, .F. )