FiveTech Software tech support forums

... I always empty If you've resolved to read the value passed? Thanks a lot #include "FiveTouch.ch" #xcommand DEFAULT <uVar1> := <uVal1> ; [, <uVarN> := <uValN> ] => ; <uVar1> := If( <uVar1> == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> ...

... los metodos, necesito leer la classdata #include "FiveTouch.ch" #include "FiveTouch.ch" #xcommand DEFAULT <uVar1> := <uVal1> ; [, <uVarN> := <uValN> ] => ; <uVar1> := If( <uVar1> == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> ...

#include "FiveTouch.ch" #include "FiveTouch.ch" #xcommand DEFAULT <uVar1> := <uVal1> ; [, <uVarN> := <uValN> ] => ; <uVar1> := If( <uVar1> == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> := If( <uVarN> ...

#include "FiveTouch.ch" #xcommand DEFAULT <uVar1> := <uVal1> ; [, <uVarN> := <uValN> ] => ; <uVar1> := If( <uVar1> == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, ...

... saber porque al usar el SetFilter se ralentizaba tanto y encontré que en el metodo SetFilter a bLogicLen se le asigna una llamada a Self:RecCount (uVal1), donde se recorren un máximo de ::nMaxFilter registros según el indice activo. Al refrescarse el browse se evalúa bLogicLen 4 veces por cada ...

... saber porque al usar el SetFilter se ralentizaba tanto y encontré que en el metodo SetFilter a bLogicLen se le asigna una llamada a Self:RecCount (uVal1), donde se recorren un máximo de ::nMaxFilter registros según el indice activo. Al refrescarse el browse se evalúa bLogicLen 4 veces por cada ...

... records DATA uLastTag // last TagOrder before losing focus METHOD New( nRow, nCol, nWidth, nHeigth, bLine, aHeaders, ; aColSizes, oWnd, cField, uVal1, uVal2, bChange, ; bLDblClick, bRClick, oFont, oCursor, aColors, ; cMsg, lUpdate, uAlias, lPixel, bWhen, ; lDesign, lCellBrw, nStyle, bLClick, ...

En el WBrowse traia un SETFilter(cField, uVal1, uVal2), como lo reemplazo en el XBrowse()

Cordial Saludo

Alberto

... .F. DATA lGoBottom INIT .F. CLASSDATA lRegistered AS LOGICAL METHOD New( nRow, nCol, nWidth, nHeigth, bLine, aHeaders, ; aColSizes, oWnd, cField, uVal1, uVal2, bChange,; bLDblClick, bRClick, oFont, oCursor, nClrFore,; nForeBack, cMsg, lUpdate, cAlias, lPixel, bWhen,; lDesign, bValid, bLClick, ...

How can I clear a filter?
oLbx:setfiler(cField, uVal1, uVal2 )

Regards,
Otto

... <cSheet>, <.lFormated.> ) #xcommand XML OPEN MARK <cMark> [ TYPE <cType> ] ; [ ATTRIB <cAttrib1> VALUE <uVal1> ; [ ATTRIB <cAttrib2> VALUE <uValN> ]] ; [ EXTENDED <uExt> ] ; [ TAG <cTag> ] ; [ <lAutoClose:AUTOCLOSE> ]; ...

... datos para listarlos (desde cualquier posición de la base de datos): METHOD ExtremoS() CLASS NEOLIST LOCAL lASeek := SET(_SET_SOFTSEEK,.T.) * IF ::uVal1 = NIL (::cAlias)->( DbGoTop() ) ELSE (::cAlias)->( DbSeek(::uVal1,.T.) ) ENDIF IF (::cAlias) -> (EOF()) ::PRIM_REG := 0 ::ULTM_REG := ...

... 2) the index of te01 is str(te01,4)+te02 Try to use the setfilter method and you will se the error . I think the error is at this line: if uVal1 != nil cIndexType := ( ::cAlias )->( ValType( &( IndexKey() ) ) ) if ( ::cAlias )->( ValType( &cField ) ) != cIndexType .or. ; ValType( ...

... Another suggest to .ch: DEFAULT command: #xcommand DEFAULT <uVar1> := <uVal1> ; [, <uVarN> := <uValN> ] => ; if( <uVar1> == nil, <uVar1> := <uVal1>, ) ;; [ if( <uVarN> == nil, <uVarN> ...

... Another suggest to .ch: DEFAULT command: #xcommand DEFAULT <uVar1> := <uVal1> ; [, <uVarN> := <uValN> ] => ; if( <uVar1> == nil, <uVar1> := <uVal1>, ) ;; [ if( <uVarN> == nil, <uVarN> ...