FiveTech Software tech support forums

... es muy rígido con el group By, recomiendo seguir la siguiente regla.

SELECT CAMPO1,CAMPO2,SUM(A),SUM(B),MIN(A),MIN(B)
FROM TABLA
WHERE CAMPO3="XVALOR"
GROUP BY CAMPO1,CAMPO2
ORDER BY CAMPOX

La optimización dependerá del indices en CAMPO1,CAMPO2 y CAMPO3

Si deseas publica en formato excel que ...

... 5

*Formula que es cargada
XFORMU_VA := " MIVALOR(oSYS_DAT,xwid_ad, XID ) "

XVAL_TMP = &XFORMU_VA

MSGINFO(XVAL_TMP)
RETURN .T.


FUNCTION MIVALOR(DATO,xwid_ad,xid)
**********************
* Funcion que hace el calculo
LOCAL XVALOR :=0.00
XVALOR := (xwid_ad * xid) + DATO
RETURN XVALOR


Graciasss

... If you do not use this function, dialog LOG always remains visible

- Function GetMsgLog()
Return object dialog MsgLog

- Function MsgLog( xValor, nRow, nCol, nHeight, nWidth )
Dialog for LOG messages

- Command FWINLOG ( look Fivewin.ch for definition )

Sample:
MsgLog( Seconds() )

or ...

Armando,

Una vez algo se comia mi memoria, y eran el uso de arreglos, resultaba que usaba dentro de un bucle la instruccion AADD(v_arreglo, xValor) pero me olvidaba que debia reiniciar v_arreglo:={} cada vez que reiniciaba el Blucle (dowhile) , al final me quedaba si memoria y el proceso cuando se ...

... la columna que no es del query cuando estaba el query, es simplemente como lo expuse antes en una linea:

oBrw:aArrayData[oBrw:nArrayAt, 5] := xValor
o
oBrw:aCols[5]:Value := xValor

con el array funciona muy bien

oBrwMnu:aArrayData[oBrwMnu:nArrayAt, 5] := oBrwIP:aCols[5]:nTotal ...

... reemplazarlos basado en operaciones posteriores, en otra funcion trato de actualizar esta 5ta. columna con oBrw:aArrayData[oBrw:nArrayAt, 5] := xValor, pero me da error, tambien intente con oBrw:aCols[5]:Value := xValor, tambien error.
La pregunta de las mil lochas es: puedo o no modificar el ...

Cambia esta línea:

xValor := substr(xValor,1,10)

a

xValor := substr(TToS(xValor),1,10)

Saludos
Manu Expósito

Hola.
Estoy exportando a Excel el contenido de un xBrowse y para tomar el valor del campo utilizo lo siguiente:
xValor := eval(oBrw:aCols[nColumna]:bEditValue)
...pero me aborta cuando la columna en cuestión contiene un bitmap.
Pregunto, ¿cómo puedo saber si una de los elementos de oBrw:aCols es un ...

... es usar alguna de las propiedades del mismo para que te muestre lo que quieras, en este caso seria : filter

oRS:filter := "xcampo LIKE " + " " 'xvalor' " <-- para filtrar ojo con las comillas dobles y las sencillas !
oRS:filter := adFilterNone <-- Para limpiar el filtrado


Para no complicarme la ...

... FOR nRow := 5 TO nRows
nContar = nContar + 1
oMeter:Set( nContar, sysrefresh())
APPEND BLANK
FOR nCol := 1 TO nCols
xValor := oHoja:Cells(nRow,nCol):Value
if Valtype( oHoja:Cells( nRow,nCol ):Value ) = "N"
xValor := STR(xValor)
endif
FieldPut(nCol,xValor)
NEXT ...

Hola a todos
Voy a hacer el planteamiento que hice antes y al que no le encuentro solución.

Alguien ha hecho un scope a una tabla,( OrdScope(0,xValor) OrdScope(1,xValor) ), la ha presentado con Xbrowse y le ha funcionado bien?
Si es así me podríais indicar como lo habeis hecho para corregir mi módulo?

... Gracias...!!!

funcion de busqueda:

// -----------------------------------------------------------------------
FUNCTION Buscaparam(xtipo, xvalor, xorden, xvta, xcododes, XUSERID)

local olbx, odlg
local obt1, obt2, obt3, xrta
local xok
LOCAL oString
LOCAL XBUSCA, OBUSCA
LOCAL OFNTARIAL ...

... usado Workshop , le active la casilla Multiline en el recurso.. luego he creado el Get conrrespondiente...



REDEFINE GET oVALOR VAR XVALOR MEMO ID 101 OF oDlg



pero al compilarlo puedo escribir pero no me funciona el Enter para pasar a otro parrafo cuando estoy editando ...

Ricardo Ramirez E. wrote:Hola Foro :

Existe alguna funcion de cadenas en [x]Harbuor que transforme cadenas
asi :

ÀLVARO => ALVARO
ÃLBERTO => ALBERTO
ÁUREA => AUREA

Saludos.!

Prueba con STUFF, puedes buscar xValor en una cadena y reemplazarla por otra.

... DESPUES "85" Y "ENTER" AL FINAL

ALGO ASI

oBrw:bkeydown={| nkey |iif(nkey>47 .and. nkey<58,modifica(nkey),nil)}

function modifica(nkey)
xvalor:=cantidad
if oBrw:editcol(3,@xvalor,'99,999',,,,,)
cantidad:=valor
endif
return nil

No se como hacer para que al escribir 8, aparezca el 8 en ...