topic-9391

Posts: 158

Joined: Tue Oct 11, 2005 03:10 PM

Ayuda con scopes
Posted: Sat Dec 29, 2007 06:19 AM

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)-&gt;( OrdScope(0, " 13P") )
        (xArea)-&gt;( OrdScope(1, " 13P") )
        (xArea)-&gt;(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

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Ayuda con scopes
Posted: Sat Dec 29, 2007 02:46 PM

Prueba haciendolo asi

Code: Select all Collapse

(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 ) )

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

ricardog

Posts: 158

Joined: Tue Oct 11, 2005 03:10 PM

Ayuda con scopes
Posted: Tue Jan 01, 2008 05:51 PM

Patricio
Muchas Gracias!

Ricardo E. Guardado Flores

FiveTech Support Forums

Continue the discussion