... 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 ...
Search found 20 matches: xvalor
Searched query: xvalor
- Tue Nov 06, 2018 10:22 am
- Forum: FiveWin para Harbour/xHarbour
- Topic: Consulta Mysql
- Replies: 21
- Views: 4829
- Mon Oct 08, 2018 5:17 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Uso de Macros en FW
- Replies: 2
- Views: 555
Uso de Macros en FW
... 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
*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
- Wed Feb 14, 2018 5:03 pm
- Forum: WhatsNew / Novedades
- Topic: New FTDN January/Enero 2018 (FWH 18.01)
- Replies: 1
- Views: 3162
New FTDN January/Enero 2018 (FWH 18.01)
... 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 ...
- 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 ...
- Mon Nov 16, 2015 4:35 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Mi App se cuelga (SOLUCIONADO, bueno eso creo)
- Replies: 27
- Views: 6934
Re: Mi App se cuelga
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 ...
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 ...
- Fri Oct 30, 2015 8:42 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: ACTUALIZAR DATOS EN COLUMNA ADICIONAL DE XBROWSE CON QUERY
- Replies: 8
- Views: 1664
Re: ACTUALIZAR DATOS EN COLUMNA ADICIONAL DE XBROWSE CON QUERY
... 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 ...
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 ...
- Thu Oct 29, 2015 4:01 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: ACTUALIZAR DATOS EN COLUMNA ADICIONAL DE XBROWSE CON QUERY
- Replies: 8
- Views: 1664
ACTUALIZAR DATOS EN COLUMNA ADICIONAL DE XBROWSE CON QUERY
... 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 ...
La pregunta de las mil lochas es: puedo o no modificar el ...
- Sun Jul 28, 2013 1:18 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Consulta sobre TOleAuto (SOLUCIONADO)
- Replies: 2
- Views: 685
Re: Consulta sobre TOleAuto
Cambia esta línea:
xValor := substr(xValor,1,10)
a
xValor := substr(TToS(xValor),1,10)
Saludos
Manu Expósito
xValor := substr(xValor,1,10)
a
xValor := substr(TToS(xValor),1,10)
Saludos
Manu Expósito
- Tue Mar 15, 2011 12:00 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Error al evaluar columna con bitmap.
- Replies: 1
- Views: 376
Error al evaluar columna con bitmap.
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 ...
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 ...
- Sat Oct 02, 2010 2:57 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: TDolphin Clase para manejar MySql
- Replies: 74
- Views: 28509
Re: TDolphin Clase para manejar MySql
... 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 ...
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 ...
- Sun Mar 21, 2010 8:36 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Velocidad al pasar datos a XLS
- Replies: 11
- Views: 4541
Re: Velocidad al pasar datos a XLS
... 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 ...
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 ...
- Mon Apr 13, 2009 5:55 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Una ayuda
- Replies: 8
- Views: 1582
Una ayuda
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?
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?
- Wed Jan 28, 2009 8:24 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: busqueda lenta
- Replies: 6
- Views: 1330
Re: busqueda lenta
... 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 ...
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 ...
- Sun Nov 30, 2008 6:10 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Get con campo Memo.. el Enter no funciona
- Replies: 2
- Views: 489
Get con campo Memo.. el Enter no funciona
... 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 ...
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 ...
- Wed Jun 04, 2008 4:56 am
- Forum: FiveWin para Harbour/xHarbour
- Topic: Caracteres
- Replies: 13
- Views: 2709
Re: Caracteres
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.
- Mon Jul 09, 2007 8:43 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: EDICION POR COLUMNA
- Replies: 6
- Views: 1562
EDICION POR COLUMNA
... 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 ...
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 ...