FiveTech Software tech support forums

Carlos, Esta versión parece funcionar bien. Te adjunto el ejemplo modificado para ver mejor el comportamiento. Gracias por tus pruebas getclr.prg #include "FiveWin.ch"function Main()    local oDlg, oGet1, oGet3 ...

...        OF ::oDlg;             DATASOURCE ::oRs;               AUTOSORT;                COLUMNS aCols  El problema que tengo es que no logro hacer funcionar correctamente el xbrowse, esta definido como "AUTOSORT" El campo LEGAJO es numerico, ordena correctamente pero al hacer una busqueda ...

Jose El problema es que estas intentando mostrar los textos en CM y estas usando coordenadas de PIXELES Cambia todos los CmSay por Say y te va a funcionar correctamente Estás en lo correcto cmsoft!! Gracias a todos los que amablemente me mandaron ejemplos y ayudas, Karinha, Willi, Groiss, cmsoft, ...

Jose
El problema es que estas intentando mostrar los textos en CM y estas usando coordenadas de PIXELES
Cambia todos los CmSay por Say y te va a funcionar correctamente

Aqui tienes la función usando el código que proporciona el proveedor y parece funcionar como el de Harbour: #include "FiveWin.ch"function Main()    MsgInfo( NumToHex( LRC( "06,001000CRT050178174110" ) ) )return ...

Prueba asi y debería funcionar: oBrw:aCols[ 2 ]:bEditWhen = { || oBrw:nArrayAt != 8 } luego es el valor que esté devolviendo la expresión Prueba a hacer esto para saber el tipo de valor que hay: olbx101c:acols[4]:bEditWhen:= { || MsgInfo( ...

Prueba asi y debería funcionar: oBrw:aCols[ 2 ]:bEditWhen = { || oBrw:nArrayAt != 8 } luego es el valor que esté devolviendo la expresión Prueba a hacer esto para saber el tipo de valor que hay: olbx101c:acols[4]:bEditWhen:= { || MsgInfo( ...

... la clase ttitle, y la clase ttitle debe ser transparente, el diálogo también debe ser transparente Debido a que la casilla de verificación debe funcionar, cambie el color y el tamaño de la barra de lanzamiento. Una pregunta si no eres capaz con la clase atTitle ¿por qué envías mensajes y sobre ...

Joao y José: Gracias por molestarse!!! Algo debo esta haciendo mal ( muy Mal ) No logro hacerlo funcionar. mi fuente es asi: ..... REDEFINE GET oRamo VAR nRamo PICTURE "99" ID Ma_Ramo OF oDlgMa valid veoramo(@nRamo,@cVeoRamo) .and. (oRamo:Refresh(),oVeoRamo:Refresh(),.t.) ...

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

Estimado Daniel, Lo que no hemos conseguido que funcione son los eventos. A ver si entre todos descubrimos como hacerlo funcionar: function main()   local oVoice := CreateObject( "Sapi.SPVoice", "WithEvents" )  Hola Antonio Linares : estuve ...

Estimado Daniel, Lo que no hemos conseguido que funcione son los eventos. A ver si entre todos descubrimos como hacerlo funcionar: function main()   local oVoice := CreateObject( "Sapi.SPVoice", "WithEvents" )      // ...

... ellas ni siquiera me aparecen. Pero lo que es más grave es que cuando imprimen no respeta el tamaño de las etiquetas configurada en local. Dejó de funcionar una mañana entre la impresión de una etiqueta y la siguiente media hora después, sin haber modificado mi programa ni haber actualizado nada ...

Probaste con el WHEN ?

ambas formas deben funcionar correctamente

sigue sin funcionar. Les muestro la definicion del browser METHOD setBrw( oDlg ) CLASS TCliente   LOCAL oFont, oFont1   LOCAL aColSizes := { 40, 210, 200, 120, 90, 120, 10 }   LOCAL ...