Ayuda con scopes

[ricardog]

Buenas noches:

A quien me pueda ayudar, por favor :

Tengo un archivo dbf para todos los tipos de documentos de un sistema,
(Pedidos, Facturas, Traspasos, Notas de Venta, Documentos de inventarios etc), este dbf lo llamo "Encabezados de documentos".
Cada Documento tiene un "tipodoc", "serie", "folio", ejemplo.
Pedidos ==== 13 P 1....
Facturas==== 12 F 1....
Traspasos=== 11 T 1.......
Entonces el indice principal de este archivo lo genero con la siguiente llave
Index on Str(tipodoc,3)+Serie.

Todo Correcto. Y como Aplico un Scope

ejemplo para pedidos

(xArea)->( OrdScope(0, " 13P") )
(xArea)->( OrdScope(1, " 13P") )
(xArea)->(DbGoTop())

en cada tipo de documento, pues los listbox de Pedidos, Facturas, etc. los hace correctamente. presentando unicamente los documentos a los que el usuario este dando mantenimiento.

Peroooooo.
Tengo otro indice que es el que se forma con el nombre del Cliente/Proveedor (depende del tipo de documento ), :

Index on Str(tipodoc,3)+Serie+Nombre

como puedo hacer para que al poner (xAlias)->(DbSetOrder( 2 ) ), me siga respetando el Scope del tipo de documento.
Ya que cuando hago esto, me "revuelve" todos los tipos de documentos.
Repito TODOS los TIPOS DE DOCUMENTOS, estan en un solo DBF, (NO QUIERO TENER UN ARCHIVO PARA CADA DOCUMENTO).

Gracias por su Atención.

Y FELIZ 2008, Para todos

Ricardo E. Guardado Flores.

[Patricio Avalos Aguirre]

Prueba haciendolo asi

Code: Select all  Expand view

(xArea)->( OrdScope(0, " 13P") )
(xArea)->( OrdScope(1, " 13P") )
(xArea)->(DbGoTop())

cTipDoc :=Str(field->tipodoc,3)+field->Serie+Field->Nombre
(xArea)->( OrdSetFocus( 2 ) )
(xArea)->( OrdScope(0, cTipDoc ) )
(xArea)->( OrdScope(1, cTipDoc ) )

(xArea)->( OrdSetFocus( 1 ) )



[ricardog]

Patricio
Muchas Gracias!

Ricardo E. Guardado Flores