FiveTech Software tech support forums

... error: STR Args: [ 1] = U Stack Calls =========== Called from: => STR(0) Called from: => TCLIPGET:_PICTURE(1345) Called from: => TWBROWSE:LEDITCOL(0) Called from: .\test1.prg => EDITOPENBAL(3439) Called from: .\test1.prg => (b)GLPRLYBA(3320) Called from: => TWINDOW:KEYDOWN(0) ...

Thanks for the help

> I have to change cVar to a string before it is accepted by @cVar.

>Do you get an error if you don't do it ?

Yes. Error description: Error BASE/1099 Argument error: STR

Thanks

... function EditRecord( oLbx ) local i local cVar local cAlias := oLbx:cAlias for i := 1 to 4 cVar = ( cAlias )->( FieldGet( i ) ) if ! oLbx:lEditCol( i + 1, @cVar,, { || Validate() } ) exit endif ( cAlias )->( FieldPut( i , cVar ) ) next return nil In FWH2.4, if cVar is an numeric field, ...

Hi,

Where can I find out more about this lEditCol.
Thanks

... nCol == 1 bValid:= {|| If( Empty( aResult:= SeekItem( uBuffer ) ), ; (Alert( "Codigo Articulo Inexistente :-("),.F.) , .T. ) } If lContinue:= oLbx:lEditCol( nColReal, @uBuffer, "@ZE 9999", bValid,,CLR_YELLOW ) aDatos[nAt,1]:= uBuffer aDatos[nAt,2]:= aResult[1] aDatos[nAt,4]:= aResult[2] EndIf Case ...

Hola: Estoy empezando a utilizar el método leditcol de la clase de hernán y me gustaría saber si alguien de ustedes tiene algún ejemplo de como utilizarla ampliamente y poder agregar un botón tipo bmpget para llamar a un dialogo de búsqueda dentro ...

... ARCAICO, PERO ME FUNCIONO PARA RESOLVER ESTA NECESIDAD DE EDICION DE UN CAMPO NUMERICO ( SEGURAMENTE SE PUEDE MEJORAR ) 1. MODIFIQUE EL METODO LEDITCOL DE LA CLASE WBROWSE.PRG AÑADIENDO EL ULTIMO RENGLON @ 0, 0 GET oGet VAR uVar ; // we have to use here uVar to use VALID !!! SIZE aDim[ 4 ] ...

... Estoy haciendo un browse con wbrowse de hernan, y hago edicion de columnas con combobox, entonces estoy modificando la clase para en el metodo lEditCol poer una variable logica para definir desde ahi si quiero que se abra automaticamente el combobox, pero estuve viendo la clase del combobox ...

... la font te la hace mas pequeña, pero si no le especificas font, respeta el tamaño, al menos paso en mi caso. Estuve viendo la clase y en el metodo lEditCol encontre donde elije la fuente para el dialogo: if ::oFont != nil oFont = TFont():New( ::oFont:cFaceName, ::oFont:nWidth,; ::oFont:nHeight, ...

... ; Header 'Codigo','Descripcion','Importe' ; Size 180,90 bGet:={|| uVal:=G->Tco_impo, oBrw2:lEditCol(oBrw2:nColAct,@uVal,,,,), ; G->Tco_impo:=uVal, oBrw2:Refresh() } oBrw2:blDblClick:={|| Eval(bGet) } Se agradecera por la ayuda :lol: Jaime

... from TCONTROL:HANDLEEVEN(1360) Called from TGET:HANDLEEVEN(478) Called from _XBPP(3164) Called from TDIALOG:ACTIVATE(279) Called from TWBROWSE:LEDITCOL(807) Called from COLVARCHG(63) Called from (B)SHOW_LIST(37) Called from TWINDOW:LDBLCLICK(1753) Called from TWBROWSE:LDBLCLICK(1039) Called ...

... Calls =========== Called from: => LEN(0) Called from: TSBROWSE.PRG => TSBROWSE:EDITEXIT(2962) Called from: TSBROWSE.PRG => (b)TSBROWSE:LEDITCOL(4955) Called from: TSCOMBO.PRG => TSCOMBO:KEYDOWN(68) Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0) Called from: CONTROL.PRG => ...

... "Numero de Nucleos Familiares Incorrecto, ingrese: "+CRLF+CRLF+; "un valor",oemtoansi("Dato Inv lido") ),.f.), .T. ) } If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, "@ZE 99", bValid,,CLR_YELLOW ) TrPerson->C4:=PADL(cBuffer,2,'0') EndIf Case nCol == 6 cBuffer:=Personas->FECNAC ...

... ELSEIF nKey == VK_RETURN EdtAllColsVta() ENDIF y ya en la funcion que edita las celdas : si quiero editar celda "normal" Char o Num IF lbCapVta:lEditCol( aColAr[nQ], @xVal, aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN ) http://img143.imageshack.us/img143/1358/brwgetvy5.jpg si ...

Rafa: Toda la gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar: oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255)) @xVar es el valor que tu quieres editar, puedes hacer por ejemplo xVar := 0 o bien ...