ArrayIncrFilter

[jbrita]

Amigo tengo este codigo funciona bien en la busqueda, pero quiero mostrar lo q escribo y no me funciona

REDEFINE FOLDEREX oFld ID 99 OF oDlg ;
PROMPT &vTitulo; //aPrompt;
BITMAPS &vBitmap;
TAB HEIGHT 35 ;
DIALOGS &vDialogo; //aDialogo ;
ON CHANGE (oSumaTotal:=0,oBrw[oFld:nOption]:RefreshFooters(),SumaSubtotal(oBrw,aData,oFld:nOption) );
TOP ALIGN &vFldBmp


For I=1 To Len(oBrw)

REDEFINE XBROWSE oBrw[I] ID 400 ;
HEADERS "Descripcion","Cantidad","Pr.Neto","Sub-Total";
JUSTIFY .F.,.F.,.F.,.F.;
FIELDSIZES 590, 70, 70, 80 ;
PICTURES "@!",'99,999.99','999,999,999','999,999,999' ;
DATASOURCE aData[I] FOOTERS AUTOSORT;
LINES CELL cols{ 1,2,3,4 } OF oFld:aDialogs[ I ]

oBrw[I]:nColDividerStyle := LINESTYLE_BLACK
oBrw[I]:nRowDividerStyle := LINESTYLE_BLACK
oBrw[I]:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw[I]:lFastEdit := .T.
oBrw[I]:nFreeze := 4
oBrw[I]:nHeaderLines := 2
oBrw[I]:lHScroll := .f.
oBrw[I]:lVScroll := .F.
oBrw[I]:bPastEof := {|| NewReg(aData,oBrw,oFld:nOption) }

oBrw[I]:lFooter := .t.
oBrw[I]:nFooterHeight := 35 // Altura del footer
oBrw[I]:lIncrFilter := .T.
oBrw[I]:lSeekWild := .T.
oBrw[I]:nColSel := 1

For n := 1 to Len( oBrw[I]:aCols )
oCol := oBrw[I]:aCols[ n ]
If n == 1
oCol:nEditType := EDIT_GET
oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,1]:=xVal,) }
oCol:bEditWhen := { || IF(aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,6]=0,.T.,.F.) }

ElseIf n == 2
oCol:nEditType := EDIT_GET
oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,2]:=xVal,) }

ElseIf n == 3
oCol:nEditType := EDIT_GET
oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,3]:=xVal,) }
oCol:bEditValid := { | oGet, oCol | (CargaPrecio(oGet,oBrw,aData,oFld:nOption)) }
oCol:cFooter := 'Total'
oCol:nFootStrAlign:= AL_CENTER

ElseIf n ==4
oCol:bFooter := { || TRANSFORM( oSumaTotal,"999,999,999") }

Endif
next

oFld:aDialogs[ I ]:bInit := {|| oBrw[I]:aCols[1]:SetOrder(), Eval(oBrw[I]:aCols[1]:bLClickHeader) }

*** ESTO 3 NO ME FUNCIONAN PARA MOSTRAR LO Q BUSCO SE CAE
* @ 20,20 SAY oBrw[I]:oSeek VAR oBrw[I]:cSeek SIZE 150,20 PIXEL OF oDlg COLOR CLR_HRED, CLR_YELLOW UPDATE
* REDEFINE SAY oBrw[oFld:nOption]:oSeek PROMPT oBrw[oFld:nOption]:cSeek ID 103 OF oDlg:aDialogs[ I ] PICTURE "@S60!" UPDATE
* @ 11,150 SAY oBrw[I]:oSeek PROMPT oBrw[I]:cSeek SIZE 200,10 PIXEL OF oFld:aDialogs[ I ] COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'

Next

Saludos

[artu01]

*** ESTO 3 NO ME FUNCIONAN PARA MOSTRAR LO Q BUSCO SE CAE
* @ 20,20 SAY oBrw[I]:oSeek VAR oBrw[I]:cSeek SIZE 150,20 PIXEL OF oDlg COLOR CLR_HRED, CLR_YELLOW UPDATE
* REDEFINE SAY oBrw[oFld:nOption]:oSeek PROMPT oBrw[oFld:nOption]:cSeek ID 103 OF oDlg:aDialogs[ I ] PICTURE "@S60!" UPDATE
* @ 11,150 SAY oBrw[I]:oSeek PROMPT oBrw[I]:cSeek SIZE 200,10 PIXEL OF oFld:aDialogs[ I ] COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'

Next

Saludos

Prueba asi

Code: Select all  Expand view  RUN

@ 11,150 SAY oBrw[I]:oSeek VAR oBrw[I]:cSeek SIZE 200,10 PIXEL OF oFld:aDialogs[ I ] COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'
 

[jbrita]

Tampoco asi resulta:

@ 11,150 SAY oBrw[I]:oSeek VAR oBrw[I]:cSeek SIZE 200,10 PIXEL OF oFld:aDialogs[ I ] COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'

saludos