FiveTech Software tech support forums

... += nColumn,nCol <= nColPos },BetLbx:nColPos)ENDIFIF nColGet = 0   nColGet := BetLbx:nColPosENDIFxVar := TabFact[nRec,12]BetLbx:lEditCol(nColGet,@xVar,"9999999999" + IF(PAR->STDEC<>0,"."+REPLICATE("9",PAR->STDEC),""))BetLbx:DrawSelect()  ...

When a key is pressed on a browse object, I capture that key's nvalue in the keydown() method, and, based on that value, call obrw:leditcol() method and edit the value in a tget object. no problem. this is very routine processing. My problem is, applying that key's value to the contents ...

Hola a todos. Tengo que hacer un picture @S en un leditcol de un WBrowse. Es decir lo que necesito es que el Get del lEditCol se comporte como un Get de recursos con el atributo Auto HScroll. ¿ Hay alguna manera de hacerlo ?, porque pasarle como tercer ...

Me respondo a mi mismo:

Despues de darme vueltas tome el fuente tcbrowse.prg y lo renombre a tjbrowse.prg y lo modifique mi pinta.

Se me olvida que uno puede hacer eso...

Se agradece...

Amigos de FiveWin, estoy utilizando TcBrowse lEditCol, me funciona bien pero necesito lo siguiente: 1) Salir de lEditCol con la tecla ESCAPE o con la tecla que yo quiera. 2) Yo entro al lEditCol con cualquier tecla, al presionar una letra la traspaso ...

December 2009 ============= * Fix: Class TWBrowse Methods EditCol() and lEditCol(), the properties nWeight, lItalic, lUnderline and lStrikeOut of the browse font are now respected. * Improvement: Class TBtnBmp, the color of the prompt of disabled buttons can ...

Puntualmente, las modificaciones se situan en el método lEditcol Sustituye en tu código las siguientes líneas    METHOD lEditCol( nCol, uVar, cPicture, bValid, nClrFore, nClrBack,;                ...

muchas gracias Daniel;
me olvidé de un detalle muuuuy importante uso FWH DIC2007 y wBrowse, si bien es el de Hernán, uso el método lEditcol

... que todos los campos tengan valor. Lo mismo pasa si 2 campos dependen de otros 2 de otra tabla. Es el mismo problema. O se usa algo parecido al lEditCol del TWBrowse controlando campo por campo y obligando a meterlos en un orden determinado (¿?) o hay que utilizar un bloque de codigo que se ...

... que todos los campos tengan valor. Lo mismo pasa si 2 campos dependen de otros 2 de otra tabla. Es el mismo problema. O se usa algo parecido al lEditCol del TWBrowse controlando campo por campo y obligando a meterlos en un orden determinado (¿?) o hay que utilizar un bloque de codigo que se ...

He tenido que modificar el metodo lEditCol de TWBrowse() para que valide y no salga del campo con un valor erroneo. De: @ 10, 0 BUTTON oBtn PROMPT "" ACTION ( oDlg:End(), lOk := .t. ) OF oDlg DEFAULT ...

... el bloque pero no tiene en cuenta el valor retornado. Tambien lSigo siempre es .T. bValid := {|| .F. } lSigo := oBro:lEditcol( 2, @uDato, '@!', bValid ) bValid := {|| ProvExi(@uDato) } lSigo := oBro:lEditCol(1, @uDato, '@!', ...

... Case Case nCol == 2 // ID COM uBuffer := (CALIAS)->id_com bValid := {|| IF(EMPTY(aResult:=SELECEMPRE(@uBuffer)),.F.,.T.)} IF lContinue:= Brw1:lEditCol( nCol, @uBuffer, "@!", bValid, nClrFore, nClrBack) IF !EMPTY(uBuffer) IF(WndSetFocus("Compañias",oWnd)) REPLACE (Brw1:CALIAS)->id_com WITH ...

... y le da el foco pero no me funciona. te anexo el codigo... Case nCol == 2 uBuffer := (Brw1:CALIAS)->id_com aResult := "" IF lContinue:= Brw1:lEditCol( nCol, @uBuffer, "@!") IF EMPTY(uBuffer) COMP0101(uBuffer) // aqui llamo a la otra ventana MDI donde debo // seleccionar una compañia y traerme ...

... DATA lPostEdit // to detect postediting DATA lUndo AS LOGICAL INIT .F. // used by RButtonDown method DATA lUpdated AS LOGICAL INIT .F. // replaces lEditCol return value DATA lUpperSeek AS LOGICAL INIT .T. // controls if char expresions are seek in uppercase or not DATA lSeek AS LOGICAL INIT .T. ...