Solucion a reposicionamiento en xbrowse

[José Camilo]

Hola. ante todo gracias a quienes se tomaron el trabajo de responder mi consulta anterior. les cuento que la única forma que encontré para solucionar mi problema fue la siguiente:
separar los 2 diálogos que usaba en una función, no se por que no puedo lograr usarlos juntos, algo hago mal pero no se que es, pero por lo menos así anda, el problema que producia era que al ingresar al segundo dialogo y modificar un registro ( o sin modificarlo ) al regresar al browse no me permitia ir hacia arriba y quedaban mal posicionados los registros, recien cuando iva hasta el final de la base y regresaba se reacomodoban y no era problema de indices. MUCHAS GRACIAS.







DEFINE DIALOG oDlg1 Resource "CargoMovim"
REDEFINE GET oconsorcio VAR nconsorcio PICTURE "99" ID _CM_Consor OF oDlg1 Font ofu color colorfw->ForeGet, colorfw->FondoGet
REDEFINE SAY oveocons Prompt nomcons ID _CM_VeoCons of oDlg1 UPDATE
REDEFINE GET ofechaliq VAR dfechaliq ID _CM_FechaLiq OF oDlg1 Font ofu color colorfw->ForeGet, colorfw->FondoGet
REDEFINE BUTTON ID _CM_Aceptar OF oDlg1 ACTION eval(cargomov)
REDEFINE BUTTON ID _CM_Cancelar OF oDlg1 CANCEL ACTION oDlg1:End()
ACTIVATE DIALOG oDlg1 CENTERED

if lPaso
set order to 1
set filter to consorcio = nconsorcio .and. dtos(fechliq)<=dtos(dfechaliq) .and. pagado

GO TOP

DEFINE DIALOG oDlg FROM 1, 1 TO 650, 1040 FONT oFont TITLE 'Información Sobre Cobros: '+nomcons PIXEL

@ 4,5 XBROWSE oBrw ;
COLUMNS "PH", "FechaVto", "Importe", "FechaPago", "ImpAPag", "Monto", "Pagado" ;
COLSIZES -10,-10,-10,-10,-10,-10 OF oDlg ;
SIZE 510,289 PIXEL ;
JUSTIFY .T. ;
ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER

[jbrita]

Hola.. consulta porque usas Filter y no Scope

Saludos

[artu01]

Hola asegurate de volver a poner el select correcto cuando regreses a la primera vtna