FiveTech Software tech support forums

Hola a Todos Alguien me puede ayudar a resolver esto? Tengo lo siguiente REDEFINE GET oGet VAR txtcodigo ID 111 OF oWndFact01 UPDATE ; VALID Validaclave( txtcodigo, oWnd, aSay, aGets, oGet ) el problema es el siguiente En el get de la variable txtcodigo escribo una pequeña descripcion ...

... quiero utilizar cualquier boton con el mouse me da error solo responde con la tecla tab. Que podria estar pasando? Muchas Gracias ACTIVATE DIALOG oWndFact01 NOWAIT ????????? NOWAIT????

TIENES RAZON SIN EL NOWAIT FUNCIONÓ MUCHAS GRACIAS.

karinha wrote:ACTIVATE DIALOG oWndFact01 NOWAIT ?????????

NOWAIT????

ACTIVATE DIALOG oWndFact01 NOWAIT ?????????

NOWAIT????

de esta forma lo estoy haciendo y no me funciona ACTIVATE DIALOG oWndFact01 NOWAIT CENTER RESIZE16; VALID ( oWndFact01 := NIL, .T. ) ; ON INIT ( SetParent( oWndFact01:hWnd, oWnd:hWnd ),; AccionaTimer(oWndFact01),; llenarLLnReen( oLbx, oWndFact01, oPreccos, ...

ya lo hago asi pero no ejecuta nada en 10 segundos. que puedo estar haciendo mal DEFINE TIMER oTmr OF oWndFact01 INTERVAL 10000 ACTION MsgInfo("hola") ACTIVATE TIMER oTmr Holas,, DEFINE TIMER oBorra OF oWnd INTERVAL 10000 ACTION BorraDatos(oBorra, oDatos, @aDatos) aqui, BorraDatos(oBorra, ...

... se si es cada 10 minutos o 10 segudos como puedo hacer para que este timer me funcione y ejecute una funcion cada 5 segundos. DEFINE TIMER oTmr OF oWndFact01 INTERVAL 10 ACTION MsgInfo("hola") ACTIVATE TIMER oTmr Atentamente Julio Rodrigo Ponce Hinestroza http://www.suproye.com o http://www.suproye.net ...

... , ; transform(valc(oPreccos:ventas-oPreccos:Notas),"999,999,999.99") ; HEADER "Código","Nombre","Ventas", "Notas", "Total" ; ID 172 ; OF oWndFact01 ; SIZES 40,380,75,75,75 UPDATE oPreccos:SetBrowse( oLbx ) oLbx:nLineHeight := 16 oLbx:nHeaderHeight := 16 //oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} ...

Gracias Antonio funciono como me dijiste cambie en el on Init lo siguiente ACTIVATE DIALOG oWndFact01 NOWAIT CENTER RESIZE16; VALID ( oWndFact01 := NIL, .T. ) ; ON INIT ( SetParent( oWndFact01:hWnd, oWndMain:hWnd ), oBGet1 := GetBitmap(oFoc,"Ayuda",,bLAct2),; llenarLLnReen( ...

... oFoc, "Linea Inventario", aLi, { 'Clave','Linea Inventario' },{80,200},150,100, {187,88} )), ; oFoc:Refresh(),oFoc:SetFocus())} if oWndFact01 == NIL oGet := Array( 2 ) oPreccos := TempPreccos(); ///LINEAS DE INVENTARIO oDb:= _BaseDatos() cTabla := "catlineasi" oBaset := TMsTable():New( ...

... , ; transform(oPreccos:utilidad,"999,999,999.99")+"%" ; HEADER "Código","Nombre","Ventas", "Costo","Utilidad","Margen" ; ID 172 ; OF oWndFact01 ; ON DBLCLICK funcion( variable para mandar a la funcion ) ; SIZES 40,380,75,75,75,50 UPDATE oPreccos:SetBrowse( oLbx ) oLbx:nLineHeight ...

... While !oBaset:Eof() Aadd( aLi, { oBaset:FieldGet( 1 ), oBaset:FieldGet( 2 ) } ) oBaset:Fetch() EndDo EndIf oBaset:Destroy() if oWndFact01 != nil return nil endif DEFINE ICON oIcon RESOURCE "ICONSIS" DEFINE DIALOG oWndFact01 TITLE "CONSULTAS PRECIOS VRS COSTOS VENDEDOR" ; OF ...