FiveTech Software tech support forums

... ON CHANGE IF(VAL(cBusca)=0,(::Assign(),; If((DbSeek(AnsiToOem( SubStr( UPPER(cBusca), 1, ::nPos - 1 ) + ; Chr( nKey ) ) ) ),; ( nreg:=recno(), oB:UpStable(), oB:Refresh(), .t. ),; ( dbgoto(nreg) , oB:UpStable(), oB:Refresh(), .f. ) ) ),; ); WHEN IF(lBusAbr,.f.,.T.) REDEFINE BUTTON ID 103 OF oDlg ...

... oLbx:SetFocus() If !(cAlias)->(Eof()) oLbx:Refresh() Else oLbx:GoUp() oLbx:Refresh() Endif También puedes probar con : oLbx:SetFocus() oLbx:UpStable() oLbx:Refresh() O con : Function RefrescaBrowse (oLbx) /* ==================================================================================================== ...

... OrdScope(TOPSCOPE,loca1) OrdScope(BOTTOMSCOPE,loca1) Set Filter to nomb $ UPPER(MD->PER_NOMBRE) oStock:update() oLbx3:refresh() oLbx3:upstable() oLbx3:gobottom() /----------------------------------------------------------------------------/

... OrdScope(TOPSCOPE,loca1) OrdScope(BOTTOMSCOPE,loca1) Set Filter to nomb $ UPPER(MD->PER_NOMBRE) oStock:update() oLbx3:refresh() oLbx3:upstable() oLbx3:gobottom() /----------------------------------------------------------------------------// 

... if nK==VK_INSERT SALIDAS() elseif nK==VK_F5 oBrw3:Refresh() ; oBrw:Refresh() elseif nK==VK_F6 Copia_Presu() ; Refre3() ; oBrw3:Upstable() ; oBrw3:Refresh() elseif nK==VK_RETURN EditaCelda(oBrw,oBrw:nColAct,LLOFACT->PENDIENTE,.T.,wAlias ) endif RETURN NIL Saludos,

... oLbx1:GoTop(),oLbx1:Refresh()); NoBorder Redefine BtnBmp oBot2 Id 1002 Resource "Borrar" Of oDlgEdit1; Action (Borra_Item(oLbx1),; oLbx1:UpsTable(),; oLbx1:GoTop(),; oLbx1:Refresh()); NoBorder Redefine Button oBotones [1] Id 801 Action; A_Com1(lparametro,; cFol_Fac ,; cFem_Fac ,; cFve_Fac ...

... CODE 0005:BF10 000B9H GENBLOCK CODE 0005:BFCA 004CCH REPORT CODE 0005:C496 005EEH REPORT CODE 0005:CA84 005EBH REPORT CODE 0005:D070 00217H UPSTABLE CODE 0005:D288 00239H UPSTABLE CODE 0005:D4C2 0034AH SETFILTER CODE 0005:D80C 0027BH SETFILTER CODE 0005:DA88 0018FH MOUSEMOVE CODE 0005:DC18 ...