PROBLEMAS CON FOLDER

[felipe]

Hola amigo tengo una dudas:
con los folder, resulta que tengo una base
de datos con los siguientes campos y datos

Codigo Detalle
------ -------
X-1 XXXXXXXXXXX
X-1 WWWWWWWW
X-2 AAAAAAAAAAA
X-2 CCCCCCCCCC
B-1 UUUUUUUUUUU
B-1 PPPPPPPPPPP
B-2 VVVVVVVVVVV
B-2 SSSSSSSSSSS

Estos Datos los quiero en un Folder con dos pestana
una llamada Pestana-1 y la otra Pestana-2 pero el problema
que tengo es que en cada pestana tienen que ir 2 Lisbox como
en este ejemplo.

Pestana-1 Pestana-2
ListBox 1 ListBox 1
Codigo Detalle Codigo Detalle
X-1 XXXXXXXXXXX B-1 UUUUUUUU
X-1 WWWWWWWW B-1 PPPPPPPPP

ListBox 2 LISTBOX
Codigo Detalle Codigo Detalle
X-2 AAAAAAAAAAA B-2 VVVVVVVVV
X-2 CCCCCCCCCC B-2 SSSSSSSSS

Todos los Datos estan es una sola base de Datos desde
ya gracias
Saludos

[Antonio Linares]

Felipe,

Si vas a usar la misma base de datos en dos páginas distintas del folder, tendrás que abrir dos veces la misma base de datos (la segunda vez con un alias distinto) para que puedan situarse en distintos registros.

[felipe]

Como lo hago para Filtrar en los Folder

[DanielPuente]

Felipe:

Para usar varios browses sobre la misma dbf, esten o no en un folder tenes que abrir la base tantas veces como lo necesites con un alias distinta, como te dijo antonio. Por ejemplo este boton lanza un browse con los movimientos de stock de un articulo estando en el browse del abm de articulos:

REDEFINE SBUTTON oAg3 ID 107 FONT oFont3;
RESOURCE "B_ART1";//, "B_REG2","B_REG2","B_REG2" ;
OF oDlg ;
NOBORDER ;
LOOK W97 ;
PROMPT "Movim." ;
TEXT POSITION ON_BOTTOM ;
TOOLTIP OEMTOANSI("Movimiento de Entrada/Salida");
MESSAGE OEMTOANSI("Movimiento de Entrada/Salida");
ACTION (MoviArt((WALIAS)->COD),cSaldo:=ART->SALDO,oSaldo:Refresh())


FUNCTION MoviArt(cCod)

LOCAL cAlias:=GETNEWALIAS("MOVART")

LOCAL VEC_FIELD:={{ || DTOC((cAlias)->MFMV)} ,;
{ || (cAlias)->DES } ,;

USE (wpath+"\MOVART") ALIAS (cAlias) SHARED NEW


FUNCTION GetNewAlias( cDbfName )
STATIC n := 0

RETURN( cDbfName + StrZero( ++n, 2 ) )


Para filtrar los movimientos a mostrar en cualquiera de los browses y si usas indices cdx podes usar la funcion ordscope():

(cAlias)->(Dbsetorder(11))
(cAlias)->(ORDSCOPE(0,cCod+SPAC(5)+SPAC(5)+'19990101'))
(cAlias)->(ORDSCOPE(1,cCod+REPL('Z',5)+REPL('Z',5)+DTOS(DATE()+60)))
(cAlias)->(DbGotop())

Saludos,