FiveTech Software tech support forums

oCol:nEditType := EDIT_BUTTON
oCol:bEditBlock := { || <button action> }

Si se define bEditBlock, este debe hacer la codeblock
validación y devuelva el resultado o la validación
valor original. Xbrowse no hace ninguna validataion

Leandro,

1)

oBrw:aCols[ 1 ]:nEditType := EDIT_BUTTON
oBrw:aCols[ 1 ]:bEditBlock := { || MsgYesNo( "Please select" ) }

realmente no se porque al usar bEditBlock, elimina el get activo, despues lo vuelve a crear, pero usalo asi
oBrw:aCols[1]:bEditBlock:= { | fil, col, oCol| Valida( oCol:Value() ) }

Pues eso amigos, quiero pasar como parametro al bloque de bEditBlock el valor del get que se esta editando he tratado de la siguiente manera oBrw:aCols[1]:bEditBlock:= { | fil, col, oCol| Valida( oCol:oEditGet, oCol:oEditGet:Value() ...

... oBrw:aCols[ 2 ]:AddResource("exit") oBrw:aCols[ 2 ]:nEditType( EDIT_GET_BUTTON ) oBrw:aCols[ 2 ]:nBtnBmp := 1 oBrw:aCols[ 2 ]:bEditBlock := {|| msginfo( "Imagen"+strzero( oBrw:aCols[ 2 ]:nBtnBmp, 2 ) ) } oBrw:aCols[ 3 ]:nEditType( EDIT_GET_LISTBOX ) oBrw:aCols[ 3 ]:aEditListTxt ...

... EDIT_GET_BUTTON oBrw:aCols[1]:bOnPostEdit := {|o,x| if(empty(x), (oBrw:GoDown(), oBrw:GoLeft()), aBox47[ oBrw:nArrayAt, 2 ] := x ) } oBrw:aCols[1]:bEditBlock := {|| Msginfo("Lookup Tax Code", "TXBrowse power" ) } oBrw:aCols[1]:bClrEdit := oBrw:bClrStd oBrw:aCols[2]:cHeader := "Tax Base" oBrw:aCols[2]:cEditPicture ...

... oCol:nDataStrAlign := AL_LEFT oCol:nWidth := 400 oCol:nEditType := EDIT_GET_BUTTON oCol:oBtnElip:LoadBitmaps(,,"ima\16x16\ambulance.bmp" ) oCol:bEditBlock := {|| Memo02()} oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) } oCol:bOnPostedit := {|| tone(10,10) ...

NO SE INTENTA CON oCol:bEditBlock := {||MsgInfo(DBF->campo)} mi memo03 //---------------------------------------------------------------------- function Memo03() local oDlg, oGet, n:=0 local cText01,cText02 //SOS SET _3DLOOK ON DEFINE ...

... en la celda y en lugar de usar la funcion de campo memo03, pones lo que tu quieres oBrw:lFastEdit := .T. oCol:nEditType := EDIT_GET_BUTTON oCol:bEditBlock := {|| Memo03()} y dependiendo del fivewin que tengas puedes usar DBLCLICK y ON RIGHT CLICK te recomiendo que habras el xbrowse.ch ahi podras ...

... oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_LEFT oCol:nWidth := 400 oCol:nEditType := EDIT_GET_BUTTON oCol:bEditBlock := {|| Memo02()} oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) } oCol:bOnPostedit := {|| tone(10,10) ...

O pessoal, preciso de um help...

Como eu chamo uma função com a beditblock e carrego o get corrente com o valor retornado, já forçando um enter para validar o campo...


Heeeeeeeeelp

Grato

Para validar eu pego o valor do GET ASSIM:

obRW:aCols[4]:bEditValid := {|oGet| validget(oGet)}


E para avaliar code block get_button corrente: ex:

obRW:aCols[6]:nEditType := EDIT_GET_BUTTON
obRW:aCols[6]:bEditBlock := {|oget ??? | validget(oget) }


Como fazer?

Grato

Juan,

El dato bEditBlock es para otro uso:

bEditBlock // codeblock to evaluate for the "..." button;

Quizás lo que buscas es bEditValid

... problema con el xBrowse , no se si estoy haciendo algo mal o es un error de la clase. Lo que sucede es que no se ejecuta el codeblock del edit ( bEditBlock ) , al estar editando directamente en la grilla del browse. Les adjunto una parte del código. oBrw:aCols[5]:cHeader := ...