FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ¿Como lo haceis vosotros?
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
¿Como lo haceis vosotros?
Posted: Fri May 22, 2009 12:02 PM

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
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: ¿Como lo haceis vosotros?
Posted: Fri May 22, 2009 12:10 PM

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

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
lubin
Posts: 467
Joined: Fri Dec 09, 2005 12:41 AM
Re: ¿Como lo haceis vosotros?
Posted: Fri May 22, 2009 02:28 PM
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 (fw): Select all Collapse
*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
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: ¿Como lo haceis vosotros?
Posted: Fri May 22, 2009 04:55 PM

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

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: ¿Como lo haceis vosotros?
Posted: Fri May 22, 2009 08:23 PM
Para mostrar los registros mediante un listbox yo lo hago mediante índices CDX y acotando con Scopes, algo así como esto:

Code (fw): Select all Collapse
...............................
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
           //
          ...........................................
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 05:22 PM
Re: ¿Como lo haceis vosotros?
Posted: Fri May 22, 2009 10:13 PM

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
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: ¿Como lo haceis vosotros?
Posted: Sat May 23, 2009 02:34 AM

Hola,
Me apunto Armando, alcanzo?
salu2
paco

____________________

Paco
Francisco Horta
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: ¿Como lo haceis vosotros?
Posted: Sat May 23, 2009 02:35 AM

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

____________________

Paco
Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 05:22 PM
Re: ¿Como lo haceis vosotros?
Posted: Sat May 23, 2009 05:06 AM

Bueno, no soy Armando pero me imagino que Pepe como algunos otros colegas desearán obtener los cambios 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
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: ¿Como lo haceis vosotros?
Posted: Mon May 25, 2009 03:13 PM

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

____________________

Paco
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: ¿Como lo haceis vosotros?
Posted: Wed May 27, 2009 12:41 PM

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

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 05:22 PM
Re: ¿Como lo haceis vosotros?
Posted: Wed May 27, 2009 02:17 PM

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

MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: ¿Como lo haceis vosotros?
Posted: Wed May 27, 2009 06:29 PM

....lo haré; gracias igualmente

:)

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: ¿Como lo haceis vosotros?
Posted: Fri May 29, 2009 11:54 PM

gracias por la contribucion Alfredo

salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Re: ¿Como lo haceis vosotros?
Posted: Sat May 30, 2009 09:53 PM

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

Static archive · New replies & topics via GitHub Discussions