¿Como lo haceis vosotros?

[Loren]

Compañeros:

Llevo programando varios años en FWH y siempre he tenido la misma duda a la hora de comenzar un nuevo proyecto en RED Local:

Cuando un usuario solicita filtrar registros en las BBDD:
1) Si las BBDD son pequeñas, la información se puede filtrar (SET FILTER TO...) y se muestra mediante un LISTBOX y listo el pollo!! A partir de ahí podrá AÑADIR/MODIFICAR/CONSULTAR/IMPRIMIR.. Al ser las BBDD pequeñas, el aplicativo apenas se ralentiza y corre bastante bien.
2) Si las BBDD son grandes (> 100.000 registros) los SET FILTER TO se hacen pesados y el aplicativo lento y tedioso. Solución: Podríamos hacer un SEEK y mediante un DO WHILE - ENDDO mostrar los registros que queremos, pero si es así, ¿como los mostramos mediante un LISTBOX? Cabria la posibilidad de hacer un DBF temporal con estos registros y mostrarlos, pero la cosa se complica si hacemos modificaciones en estos registros. Además, habría que hacer un DBF temporal por cada Usuario, porque cabe la posibilidad que varios usuarios entren a la vez en esa BBDD solicitando filtros de busqueda.

¿Como lo haceis vosotros? Otra opción sería ADS, pero no es factible por $$$

Mil gracias.
LORENZO

[jrestojeda]

Hola amigo...
Puedes tambien usar DBSETFILTER() o usar SCOPES()
Espero te sirva la idea.

[lubin]

Hola Lorenzo

Por ejemplo yo tengo en una Dbf todos los asientos contables de todo el año controlados con un campo llamado PER_VC con valor Chrac. "200903" (marzo dle 2009) bueno cuando quiero filtrar para un solo periodo, aplica un boton , solicito el Periodo deseado y activo un nuevo listbox usando SELECT TO .. , esto te permite trabajar en directo con la Dbf, y manejarlo en red sin problemas.

Condicion: Definitvamente para eso debes tener indexado por el Campo PER_VC

quizas eso te sirva ??

Buena Suerte.

Lubin

Code: Select all

*Carga del Periodo operativo Activo
SS_PER = PERVT_GET()  &&  Funcion me determina el Periodo Contable a Manejar 
                  
REDEFINE LISTBOX oLb1 FIELDS VOUCHER->CDLA_VC  ,;
                             VOUCHER->NR_VC    ,;
                             FDATE(VOUCHER->FE_VC)    ,;
                             VOUCHER->MODSYS_VC,;
                             VOUCHER->CDRES_VC ,;
                             VOUCHER->TPMN_VC  ,;
                             STR(VOUCHER->TPCB_VC,7,3),;
                             VOUCHER->GLOS_VC  ;
         SELECT VOUCHER->PER_VC FOR SS_JPER  ;
         HEADERS    "Libro Aux","Nro.Voucher","Fecha","Mod.Origen","Cd.Resp","Mnd.","Tipo Cambio","Observaciones","Cuadre","May.","Use" ;
         FIELDSIZES  40        ,75           ,65     ,55          ,40       , 30   ,50           ,200            ,30      ,30      ,30      ;
         ON DBLCLICK  {|| JWV_MANTE( "V",oDlg,oLb1,SS_JPER,oSYS_DAT)};
         ID 172 OF  oDlg
 

[ADBLANCO]

yO GENERO UN INDICE TEMPORAL, ES MUY RÁPIDO, MÁS SI SE GENERA EL EL DISCO DURO DE LA ESTACIÓN DE TRABAJO

[Manuel Aranda]

Para mostrar los registros mediante un listbox yo lo hago mediante índices CDX y acotando con Scopes, algo así como esto:

Code: Select all

...............................
GASTOS->(OrdScope(0,cClave))
GASTOS->(OrdScope(1,cClave))
GASTOS->(DbGotop())
 //
  DEFINE DIALOG oDlg RESOURCE "GASTOS" TITLE cTitulo FONT oFont1
  oDlg:lHelpIcon:=.F.
      REDEFINE LISTBOX oLbx ;
            FIELDS " "+DTOC(GASTOS->Fecha)+" ",;
            " "+GASTOS->Codigo+" ",;
            " "+GASTOS->Concepto+" ",;
            " "+STR(GASTOS->Precio)+" ",;
            " "+STR(GASTOS->Cantidad)+" ",;
            " "+STR(GASTOS->Importe)+" ",;
            " "+STR(GASTOS->IVA)+" ",;
            " "+STR(GASTOS->Total)+" ",;
            " "+GASTOS->Observa1+" ";
            FIELDSIZES 65,30,180,75,55,75,55,65,150;
            HEADERS "Fecha","Cód."),"Concepto","Precio","Cantidad",;
            "Importe","I.V.A.","Total","Observaciones";
            ID 200; 
            ON LEFT DBLCLICK ControlGastos(oLbx,"Modificar Apunte",.F.,cClave);
            FONT oFont1;
            OF oDlg
           //
          ...........................................

 

[Alfredo Arteaga]

Lo hago como lo indica Manuel, con OrdScope() y funciona sin problema con CDX y/o tablas SQL.

Por si alguién le interesa tengo la TWBrowse de Hernan (hdc) totalmente funcional para SQLRDD.

Saludos.

[Francisco Horta]

Hola,
Me apunto Armando, alcanzo?
salu2
paco

[Francisco Horta]

Se me paso, yo lo hago igual que Manuel y Armando, CDX y scopes con twbrowse y vuela!!!
salu2
paco

[Alfredo Arteaga]

Bueno, no soy Armando pero me imagino que Pepe como algunos otros colegas desearán obtener _ a la WBrowse de Hernan.

Aqui la liga: http://www.despachoarteaga.com.mx/TWBhdc.Zip

Aunque me gustaría saber quienes usan este RDD, al parecer soy el único de esta comunidad. Y estoy satisfecho!.

[Francisco Horta]

Ups, sorry Alfredo, jaja tremendo influenzon, sorry y gracias por la liga un saludo
Paco

[MarioG]

Estimados
Uso el Browse de hernán desde hace bastante tiempo. Es bueno una mejora
Abrí el fuente pero no encuientro ningunas referencia a lo nuevo. Cual es?

muchas gracias

[Alfredo Arteaga]

No me he ocupado en documentar los ajustes. Pueden comparar con la clase que tienen en uso o buscar AAL y/o SQL.

[MarioG]

....lo haré; gracias igualmente

[carlos vargas]

gracias por la contribucion Alfredo

salu2

[dobfivewin]

Estiamdo Alfredo

Habrá posibilidades que publiques un ejemplo de como usar tu clase?

Quiero arracar y no encuentro como, desde ya muchas gracias

un abrazo a todos

david
argentina
davidbarrio_arg@hotmail.com