FiveTech Software tech support forums

José:

Creo que esto puede funcionar

FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(nValor)

Pruébalo, los hice de salida y asumo que en valor no hay fracciones decimales

Saludos

... Este ejemplo funciona correctamente: #include "fivewin.ch"REQUEST DBFCDXfunction Main()   EReport() return nil Por favor pruébalo y dime si te siguen apareciendo esos errores y en tal caso como proceder para reproducirlos, gracias

Enviado por email

Por favor pruébalo y dime si te sirve el nuevo ancho

jvtecheto wrote:Cristóbal buenas noches.

Lo de abrir ficheros en carpetas que contienen acentos y espacios a mi no me funciona. (solo con espacios o solo acentos no lo he probado).

Un fuerte abrazo.

Jose

Enviado desde mi POCOPHONE F1 mediante Tapatalk

Pruébalo please
Abrazo

Aqui tienes pim.exe, pruébalo y verás como funciona bien

https://github.com/FiveTechSoft/FWH_tools/blob/master/pim.exe

João, ¿es esto lo que quieres? Pruébalo. Las modificaciones están en la función VISTA_MDI_FWH( oWnd ) https://i.postimg.cc/FR3f1tB9/JOAO3.png FUNCTION VISTA_MDI_FWH( oWnd )   Local oBrw,oBar, oWndClients, oMsgBar  ...

Creo recordar que solo si usas el control IMAGE, pero no si utilizas el control XIMAGE, pruébalo

... Pero por lo que he leído debe funcionar correctamente lo que te mando ahora. Desarrolla tu función de búsqueda en la función Carga_dos() y pruébalo. Ya nos cuentas. # Include "Fivewin.ch"# Define C1_CODE aItems1[oCombo1:nAt,1]# Define C1_DATA aItems1[oCombo1:nAt,2]# ...

Antonio, aqui tienes un ejemplo autocontenido. Pruébalo a ver si te es de utilidad. #include "Fivewin.ch"#include "xBrowse.ch"//------------------------------------------------//Function Main()   //Fap_2Arrays()local ...

Antonio, aqui tienes un ejemplo autocontenido. Pruébalo a ver si te es de utilidad. #include "Fivewin.ch"#include "xBrowse.ch"//------------------------------------------------//Function Main()   //Fap_2Arrays()local ...

Antonio, aqui tienes un ejemplo autocontenido. Pruébalo a ver si te es de utilidad. #include "Fivewin.ch"#include "xBrowse.ch"//------------------------------------------------//Function Main()   //Fap_2Arrays()local ...

... veo que tienes un campo Memo. Si, por ejemplo, lo quieres actualizar de forma dinámica, cuando algunos de los dos combos cambien, utiliza esto : (pruébalo y veras como cambia el objeto SAY que he puesto. Modifícalo a tu gusto y ejecuta las acciones que necesites) Static function combo2()LOCAL ...

Buenas tardes Leandro. Me está volviendo loco la posición absoluta del dialogo. Pero yo creo que ya está muy conseguido. Mira el código, pruébalo.... mira la imagen que te adjunto. A mi me funciona perfecto a la hora de calcular la posición vertical. (falta desarrollar la posición horizontal, ...

... el total de la resolución pero no descuenta la barra. Esta barra se puede cambiar de lugar y al hacerlo el dialogo se reposiciona (es curioso). Pruébalo y me vas contando. STATIC FUNCTION PRUEBA_DIALOGO()LOCAL oWndLOCAL oMenu    MENU oMenu //FONT oFont        MENUITEM "&Sistema"  ...

Moisés,

Modifica el código asi y pruébalo por favor:

nGet = AScan( oFld:aDialogs[ 1 ]:aControls, {| oControl | If( oControl != nil, oControl:IsKindOf( "TGET" ), .F. ) } )