Amigos del foro, tengo la siguiente duda, tengo un di谩logo con xBrowse, y necesito que al llegar al xbrowse, el 煤ltimo get me active el get del method de xbrowse.
He probador varias formas, pero realmente, creo que se me ha quedado grande ahora.
Algo as铆 es lo que pretendo, pero con un modo de autoedici贸n, que no es equivalente al FastEdit, adem谩s, lo hago con un Redefine.
He probador varias formas, pero realmente, creo que se me ha quedado grande ahora.
FUNCTION MAIN()
聽 聽local oWnd, aLin := {}, i, oBrw, lValid := .F., lRet
聽 聽for i := 1 TO 6
聽 聽 聽 AAdd( aLin, { "Description " + Str( i ) } )
聽 聽next
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 1
聽 聽DEFINE WINDOW oWnd
聽 聽 聽 oBrw := TxBrowse():New( oWnd )
聽 聽 聽 oBrw:SetArray( aLin )
聽 聽 聽 oBrw:aCols[1]:cHeader 聽 聽 聽:= 'Description'
聽 聽 聽 oBrw:aCols[1]:bOnPostEdit 聽:= { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,1] := xVal,) }
聽 聽 聽 oBrw:aCols[1]:bEditValid 聽 := { | oGet, oCol | MiValid( oGet:Value() ) }
聽 聽 聽 oBrw:aCols[1]:nEditType 聽 聽:= EDIT_GET
聽 聽 聽 oBrw:CreateFromCode()
聽 聽 聽 oWnd:oClient:=oBrw
聽 聽ACTIVATE WINDOW oWnd
RETU NIL
Function MiValid( cValue )
聽 聽local lRet := .T.
聽 聽if AllTrim( cValue ) == "123"
聽 聽 聽 lRet = .F.
聽 聽endif
return lRetAlgo as铆 es lo que pretendo, pero con un modo de autoedici贸n, que no es equivalente al FastEdit, adem谩s, lo hago con un Redefine.
Quiero hacer facturaci贸n electr贸nica...
Leon Valenzuela.
Santiago - Chile.
Leon Valenzuela.
Santiago - Chile.
