FiveTech Software tech support forums

... abolletta := {391.85,0,0,0,0,0,0,0,0,0,0,0,0} aImports := Restore_Prices( abolletta) Function Restore_Prices(aTotali) local nRiga local nColonna,nNumero local nI local nTotale local aData:= {} local aDataX:= {} For ncolonna= 1 to 13 nTotale:= aTotali[ncolonna] aData:= {} aData:= ValSplit( nTotale ...

Perhaps I found a solution

nNumero := eval(oDbf:fieldWBlock(cField ))

... ) It return me an array https://i.postimg.cc/0QvnXYWh/jj.png I try also with atemp:= fieldWBlock(cField,oDbf:nArea ) nNumero := atemp[1][1] but not is correct How I can take it ?

si Append blank si CLIENTES->( OrdScope( 1, Nil ) ) ? COUNT TO nDuplicados FOR FIELD->NUMERO == nNumero ? COUNT TO nRegistros si DBCLEARFILTER si DbDelete si DbDelete() si DbGoBottom() si Dbgoto( nregistro ) si Dbseek( nCodigo ) si dbSelectArea si DbSetOrder(1) si DBSKIP ...

... ;  mensaje2 := 999 ;end;exports pruebaMensaje;beginend. Código harbour ... #include "fivewin.ch"Function Main()Local nNumero:=0  pruebaMensaje (123,@nNumero)    msginfo (nNumero)Return (nil)DLL FUNCTION pruebaMensaje ( mensaje ...

... AND "+; "DIR_APLICA"+GetWhere("=",cAplica )+" AND "+; "DIR_VERSIO"+GetWhere("=",nVersion) nNumero:=EJECUTAR("SQLINCREMENTAL","DPDIRAPL","DIR_NUMERO",cWhereInc,oDb) ELSE nNumero:=oTable:DIR_NUMERO ENDIF oTable:Replace("DIR_FECHA" ...

... AND "+; "DIR_APLICA"+GetWhere("=",cAplica )+" AND "+; "DIR_VERSIO"+GetWhere("=",nVersion) nNumero:=EJECUTAR("SQLINCREMENTAL","DPDIRAPL","DIR_NUMERO",cWhereInc,oDb) ELSE nNumero:=oTable:DIR_NUMERO ENDIF oTable:Replace("DIR_FECHA" ...

... "nImporte", "nImporte", {|| StrZero( Field->nImporte ) }, ) ) Para buscar lo mismo: dbSeek( StrZero( nNumero ) ) De hecho yo haria mi propia funcion de busqueda de numeros function dbSeekNum( nNumero ) return dbSeek( StrZero( nNumero ) ) A ver cuando ...

Hola a todos.

Perdón por esta consulta en principio tan básica, pero es q no se como buscar números en un indice.

dbSeek( nNumero ) a mi no me funciona, no se si tenéis algún truco, o función que me pueda ayudar a hacer las búsquedas por un importe.

Muchas gracias.

... parámetro. Si, si estamos de acuerdo, pero entiendo que lo que sucede es que no convierte bien el valor que recibe. Esto seria correcto? Local nNumero := 0 uCharToVal( "123.56", nNumero ) y que msginfo( nNumero ) mostrara por pantalla 345.89, yo creo que NO sería correcto porque está ...

Fernando,

No declares cFuncion como "local", para que asi se declare publica por defecto, y cambia "Funcion" por "Function":

cFuncion := "Function" + strzero( nNumero ) + "()"

Prueba de esta manera:

bFuncion :={|| "Funcion" + strzero(nNumero) }

eval( bFuncion )

Prueba asi:

cFuncion := "Funcion" + strzero(nNumero) + "()"

eval( {|| &cFuncion } )

Hola. Lo que pongo a continuación me funciona en FW195 pero no en FW+Harbour. GET nNumero PICTURE "99" ... cFuncion := "Funcion" + strzero(nNumero) eval({||cFuncion}) Lo que hago es tener una serie de funciones definidas (Funcion01(), Funcion02(), ...

// Function Ntoc(nNumero,nLongitud,cRelleno) Local cNumero,nInicio,nI Default nNumero := 0,nLongitud := 10,cRelleno := "0" If ValType(nNumero)<>"N" nNumero := 0 EndIf cNumero := AllTrim(Str(nNumero,nLongitud)) ...