FiveTech Software tech support forums

... resolvi asi: public wcampo1,wcampo2,wcampo3... for j = 1 to 30 wvar := 'wcampo'+trim(str(j,2)) //WVAR no tiene declaracion previa @ ren ,col get aGets[j] VAR &wvar OF ODlg PIXEL SIZE 40,10 next n

... bien con FWH 2.7 Mzo/2006 y xHarbour IF lAppend oDbf:BLANK() oDbf:MOD_LIN := (cLinea)->LIN_LIN ELSE oDbf:LOAD() ENDIF ... ... REDEFINE DBCOMBO aGets[04] VAR oDbf:MOD_LIN ID 104 OF oDlg; UPDATE ALIAS (cLinea) ITEMFIELD "LIN_LIN" LISTFIELD "LIN_DES" Saludos, Armando

... GO nSeekRec ENDIF oBrw:REFRESH() oBrw:oVScroll:SETPOS(RECNO()) RETURN And this is the way to call to the procedure REDEFINE GET aGets[1] VAR cBusca ID 101 OF oDlg UPDATE; PICTURE "@!K"; ON CHANGE(SELF:ASSIGN(),; Busca((cAlias),SUBSTR(cBusca,1,SELF:nPos-1)+UPPER(CHR(nKey)),oBrw),oBrw:REFRESH()) ...

... la veracidad de la información. Asi pues... al hacer eso el dato se confirma. Pero si a patadas vamos... pues entonces. Yo he puesto esto: aGets[1]:bKeyDown := { | nKey, nFlags, oGet | IF( GetKeyState( VK_CONTROL ) , ; msgstop("blocked") , TRUE ) } aGets[1]:bRClicked := { | nRow, nCol, ...

... los controles 3ª Read Only NO -> Habilita los controles 1ª Esta se llama al crear la ventana/diálogo FUNCTION lGroupGetEdit( oWnd, aGets ) Local nContador := 0 If ValType( oWnd:aControls ) = "A" AEval( oWnd:aControls, {|oCtrl| If( ( "TGET" $ oCtrl:ClassName() ), ; AADD( aGets, oCtrl ...

... REDEFINE BUTTON aBtns[1] ID 501 OF oFld:aDialogs[1] ; // Siguiente VALID GetKeyState( VK_UP ) OR ; GetKeyState( VK_RETURN ) ; ACTION ( Siguiente( aGets, aCampos ) ) Sucede que al llegar al botón de Siguiente y oprimir flecha abajo el focus se pasa el primer get del dialogo. Pero no puedes regresar ...

... REDEFINE BUTTON aBtns[1] ID 501 OF oFld:aDialogs[1] ; // Siguiente VALID GetKeyState( VK_UP ) OR ; GetKeyState( VK_RETURN ) ; ACTION ( Siguiente( aGets, aCampos ) ) Sucede que al llegar al botón de Siguiente y oprimir flecha abajo el focus se pasa el primer get del dialogo. Pero no puedes regresar ...

... El siguiente código LOCAL nMes := 1 LOCAL aMeses := {"Ene","Feb","Mzo","Abr","May","Jun",Jul",; "Ago","Sep","Oct","Nov","Dic"} REDEFINE COMBOBOX aGets[2] VAR nMes ID 102 OF oDlg UPDATE; PROMPTS aMeses En Harbour el valor retornado es la posición del elemento seleccionado, por ejemplo: si el usuario ...

... endcase // Eval(::bGoTo) ::setfocus() ::refresh() return cfile1 static function GenLocalBlock( aGets,n) return bSETGET( aGets[ n ] ) STATIC FUNCTION GenFieldBlock( cAlias, aStruc, nField, lAsString ) local cType, cField, cMacro local nLength, ...

ahi te va lo que hago yo: @ 94,06 LISTBOX agets[4] FIELDS ""; HEADERS "CLAVE","ARTICULO","ENTRADAS","SALIDAS","COSTO"; FIELDSIZES 60,160,80,80,60 PIXEL SIZE 265,70 agets[4]:bLine:= {|nAt| nAt:= agets[4]:nAt,; If( Len(aDatosh)<1 .or. nAt>Len(aDatosh),; ...

yo hago lo siguiente y funciona perfecto:

@ 175,45 BUTTON PROMPT "&Grabar" OF oDlg SIZE 35, 10 PIXEL ACTION (grabar(),tab1:setoption(1),agets[1]:setfocus())

saludos

Joaquin, eliminé lo que había hecho y lo deje asi: REDEFINE BUTTON aBtns[2] ID 502 OF oDlg CANCEL ; // Adelante ACTION ( Adelante( aGets, @aCampos, aSays ) ) aBtns[2]:bGotFocus := { | oBtn, oFld| oBtn:cargo := oFld } Siempre será mejor una linea a poner una por cada get como yo lo tenía. ...

Por si a alguien le sirve. static nFoco := 0 REDEFINE GET aGets[5] VAR aCampos[5] ID 105 OF oFld:aDialogs[1] UPDATE PICTURE "@9" ; // IdenNumero En cada get actualizar nFoco aGets[5]:BLostFocus :={|| nFoco := 5 } donde nFoco es una static que guarda el ...

... de expresion por todo el cursor //Testing how to scroll a window with its contents//ntimp = 1 que se imprima directo LOCAL oScrWnd,obmpfon,aGets:={},oScroll if empty(lnoaltefila);NOaltfila:=.F. else ;NOaltfila:=.T. endif lBoxDraw:=.f. aAdic:=arrayAdic //?" QUE VALE aAdic ",aAdic,valtype(aAdic) ...

Here's a way with the detached local method... for i := 1 to Len( aGets ) @i,0 GET oGets[i] VAR aGets[i] oGets[i]:bSetGet := oGets[i]:oGet:Block := ArrayGetBlock(aGets,i) next function ArrayGetBlock(aGets,i) return { | u | If( PCount()==0, aGets[i], aGets[i]:= ...