Search found 20 matches: xvalor

Searched query: xvalor

by jnavas
Tue Nov 06, 2018 10:22 am
Forum: FiveWin para Harbour/xHarbour
Topic: Consulta Mysql
Replies: 21
Views: 4829

Re: Consulta Mysql

... 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 ...
by lubin
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
by Antonio Linares
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 ...
by lubin
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 ...
by joseluisysturiz
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 ...
by joseluisysturiz
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 ...
by xmanuel
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
by fernandomoralesdr
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 ...
by Raymundo Islas M.
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 ...
by Ramon Paredes
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 ...
by Pedro
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?
by diegopolverelli
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 ...
by lubin
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 ...
by joseluisysturiz
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.
by Marco Augusto
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 ...