FiveTech Software tech support forums

... var xManuales id 102 of ofld1:aDialogs[ 2 ] redefine get oReqNoApli var xReqNoApli id 4005 of ofld1:aDialogs[ 2 ] redefine BTNBMP 2007 prompt spac( 5 ) + HB_UTF8CHR( 57604 ) + " Editar " font oSegoe oNota id 4002 OF ofld1:aDialogs[ 2 ] ACTION RichEdit5( @xInstrucciones, "Instrucciones", ...

... adaptarlo a mi necesidad. Y no me funciona con el comando: oBrw:aCols[2]:bOnPostEdit := { | oCol,xVal, nKey |IF( nKey == VK_RETURN ,; IF( xVal = spac(29) ,; ( RegDat( xVal ),oBrw:Refresh(),; Y ahi esta la funcion RegDat() Y quiero crear dos modelos de edicion de registros para a futuro me permita ...

... pero no me hace el efecto estoy usando version 12.04 FWH. oBrw:aCols[2]:bOnPostEdit := { | oCol,xVal, nKey |IF( nKey == VK_RETURN ,; IF( xVal = spac(29) ,; ( RegDat( xVal ),oBrw:Refresh(),; oBrw:SetFocus()),),)} Adjunto mi codigo fuente y su ejecutable. https://www.4shared.com/account/home.jsp#dir=a_9IZFb7 ...

Buenas Noches Amigos del Foro Hoy estuve evaluando comportamientos extraños en un GET ... Dada una variable A=SPAC(2) Y UN REFEFINE GET VAR A OF ... PICTURE '99' el objeto muestra extraño comportamiento ... primera pasada escribo 12 y recibe el registro ... pasa al siguiente campo ...

... FUNCTION HC0100LI0(oLbx) *-------------------------------------- local oDlg local lGoOn,oBtn local oReport public ownom public wnom:=spac(20) public wnom:=1->nombre default lGoOn:=.f. set cursor on DEFINE DIALOG oDlg RESOURCE "HC0100LI1" FONT m->oFontBrw sele 1 set ...

... public xrub6:=0 public xrub7:=0 public xrub8:=0 public xrub9:=0 public xrub10:=0 public xpath,wpath public xporcen:=1.05 public oxaaa public xaaa:=spac(30) public oxrrr public xrrr:=spac(30) clos data RDDSETDEFAULT("DBFCDX") SET DATE FRENCH SET CENTURY ON SET EPOCH TO 1970 SET EXCLUSIVE ...

... ENDIF NEXT return nil BUS_DES('PADRON',2,MOVMES->MP,'ESPE') Function BUS_DES(XARCH, XORDEN, XCLAVE, XCAMPO) Local RET:=SPAC(0) , ORD_ACT, AREA_ACT := SELECT(), cRegis IF SELECT(XARCH) == 0 USE (WPATH + "\" + XARCH) SHARED NEW ENDIF DBSELECTAR(XARCH) cRegis:=RECNO() ...

... de este modo te quitas de muchos problemas :D prueba a cambiar REDEFINE GET GeProb VAR k03 ID 203 OF DiProb PICTURE '999!' UPDATE WHEN k03=SPAC(4) VALID Terc(DiProb) por REDEFINE GET GeProb VAR k03 ID 203 OF DiProb PICTURE '999!' UPDATE WHEN k03==SPAC(4) VALID Terc(DiProb) salvo que quisieras ...

... := Round(nVertical/60,0) nColumna := Round(nHorizontal/80,0) Fil=nFila col=nColumna Page oPrint:Say(nFila*6,nColumna*40," Santiago, "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7); +subs(a->fec_inf,7,4),oFont1) oPrint:Say(nFila*7,nColumna*12,"Sr(a)DR(a) ...

... := Round(nVertical/60,0) nColumna := Round(nHorizontal/80,0) Fil=nFila col=nColumna Page oPrint:Say(nFila*6,nColumna*40," Santiago, "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7); +subs(a->fec_inf,7,4),oFont1) oPrint:Say(nFila*7,nColumna*12,"Sr(a)DR(a) ...

Greetings, I have this issue... LOCA cId:= SPAC(10), cPassword:= SPAC(10)... @ 74,180 GET cId PIXEL ON CHANGE oDlg:aEvalWhen() @ 85,180 GET cPassword PASSWORD PIXEL ON CHANGE oDlg:aEvalWhen() @ 102, 85 BUTTON oBtn PROMPT '&Start' WHEN ( !EMPTY( ...

Greetings, I have this issue... LOCA cId:= SPAC(10), cPassword:= SPAC(10)... @ 74,180 GET cId PIXEL ON CHANGE oBtn:Refresh() @ 85,180 GET cPassword PASSWORD PIXEL ON CHANGE oBtn:Refresh() @ 102, 85 BUTTON oBtn PROMPT '&Start' WHEN ( !EMPTY( ...

Saludos, Tengo la siguiente situacion... LOCA cId:= SPAC(10), cPassword:= SPAC(10)... @ 74,180 GET cId PIXEL ON CHANGE oBtn:Refresh() @ 85,180 GET cPassword PASSWORD PIXEL ON CHANGE oBtn:Refresh() @ 102, 85 BUTTON oBtn PROMPT '&Ingresar' WHEN ( ...

... := GetSysColor( COLOR_WINDOWTEXT ),; nClrBack := GetSysColor( COLOR_WINDOW ),; lUpdate := .f., lReadOnly := .f., lSpinner := .f.,; uVarNam := SPAC(4) //added uVarNam ... ... ::oGet = GetNew( 20, 20, bSetGet, uVarNam, cPict ) // inserted uVarNam (which is how Clipper did it anyway) ... // Do ...

... CENTERED; FONT oFont1,; oFont2; PEN oPen1; HEADER "Date: "+dtoc(date())+" Time: "+time()+spac