Con Clipper CA en Red LAN, necesitas tener una función que abra tus archivos de acuerdo
a la conveniencia del proceso que se va a ejecutar. En mi caso, por filosofía particular de velocidad, cuando cargo un dbf, asocio como maximo 3 ntx, y lo hago mediante ésta función:
leyenda:
ss=numero de select
bb=nombre del archivo dbf sin extension
mm= (1=modo exclusivo) (2=modo compartido)
ii=cantidad de índices asociados
ia=parte de nombre de indice 1 (a partir de quinto caracter)
ib=parte de nombre de indice 2 (a partir de quinto caracter)
ic=parte de nombre de indice 3 (a partir de quinto caracter)
FUNCTION abre (ss,bb,mm,ii,ia,ib,ic)
SELE &ss
DO WHIL .T.
IF mm=1
USE &bb EXCLUSIVE
ELSEIF mm=2
USE &bb SHARED
ENDI
IF !NETERR()
IF ii=1
ntx1=SUBS(bb,1,4)+ia
SET INDE TO &ntx1
ELSEIF ii=2
ntx1=SUBS(bb,1,4)+ia
ntx2=SUBS(bb,1,4)+ib
SET INDE TO &ntx1,&ntx2
ELSEIF ii=3
ntx1=SUBS(bb,1,4)+ia
ntx2=SUBS(bb,1,4)+ib
ntx3=SUBS(bb,1,4)+ic
SET INDE TO &ntx1,&ntx2,&ntx3
ENDI
abrio=.t.
EXIT
ELSE
IF !rees(ARCHIVO USADO EN RED ... ESPERA SN?.)
abrio=.f.
EXIT
ENDI
ENDI
ENDD
RETU abrio
Por Ejemplo:
tengo un archivo CLIE00.DBF y tres indices CLIE00,NTX, CLIE01.NTX Y CLIE02.NTX
cuando necesito abrir clientes en modo exclusivo uso
IF ABRE(12,'CLIE00',1,3,'00','01','02')
si solo necesito abrir el DBF uso
IF ABRE(12,'CLIE00',1,0)
cuando necesito abrir clientes en modo compartido uso
IF ABRE(12,'CLIE00',2,3,'00','01','02')
si solo necesito abrir el DBF uso
IF ABRE(12,'CLIE00',2,0)
y si deseo abrirlo con un solo indice
IF ABRE(12,'CLIE00',1,1,'01')
y si tuviese otros nombres como CLIE00SG.DBF + CLIE00SG.NTX
IF ABRE(22,'clie00sg',2,1,'00sg')
se acomodaba muy bien a mis necesidades y nunca tuve problemas de cuelgues en red.
si la respuesta es verdadera, continua el proceso.
Mi pregunta es. Algo parecido o mejor existe en harbour, xharbour o minigui???
Si alguien ha explorado lo suficiente, favor desearia un tema de discusion.
Muchos Saludos
Julio Cesar Gómez Cortéz
Giro Sistemas Perú EIRL
Lima
--- El jue 28-may-09, Eduardo Rizzolo <fullpaint@...> escribió:
El problema en recursos es q estas usando por lo q cuentas pararece q usas botones del tipo borland. Te comento de memoria porq como ya hace tiempo q no uso de ese tipo, por el problema q mencionas (con el enter no pasa al siguiente GET) El tema es no usar ID 1 o ID2, q son los tipos borland. Que toma styles por defecto q cuando se presiona enter, aunque no tengan el foco se disparan los botones. La solucion es redibujar los botones con otro ID en sus estados y usarlos como otros botones. Lo recomendable para botones con xH es tsbutton, te la recomiendo a parte es muy vistosa.
Espero te sean utilies estos comentarios
Edu
On Thu, 28 May 2009 04:02:04 +0000 (GMT), Lucho Montero wrote > Hola Julio: > Disculpa que antes no contesté tu email ... bueno debo decirte que estoy trabajando con xHarbour Windows/Linux en Modo Consola ... por el momento no tengo visual.
> En cuanto al comportamiento de Enter con los Gets no se presentaron problemas en la migración, es decir, trabaja igual que Clipper ... pero como te digo en Modo Consola. > > Saludos. > Atte. > Lucho Montero. > LIMA - PERU. > ____________ _________ _________ _________ _________ _________ > Lucho Montero. Representante Comercial - Chess Di - Perú > Telf:(01)655- 3110, Cel.:(01)996282749, RPM: #952339, Nextel:420*2300 > Email: lmonterof@chessdi. com.ar Messenger: lmonterof04@ hotmail.com > CASA CENTRAL ROSARIO-ARGENTINA > Telf.: (0341)4353047 / 4353383 > Ricchieri 777, Rosario, Santa Fe. > Conocé todo sobre
Chess : Http://www.chessdi. com.ar > > --- El dom, 24/5/09, julio gomez <juliogomezc@ yahoo.com> escribió: > > De: julio gomez <juliogomezc@ yahoo.com> > Asunto: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC > Para: "Grupo Clipper Argentina" <desarrolloclipper@ gruposyahoo. com.ar> > Fecha: domingo, 24 mayo, 2009 9:04 > > > Estimado Lucho Montero: > Alentado por tu entusiasmo, comence a explorar a fondo el xharbour y el minigui (que aun no ha
igualado al fivewin). Hasta que llegue a correr mis propios programas en 32 bits. fantastico. > Aqui se me presento un estancamiento. .. > > Resulta que una caja de dialogo con gets tiene un comportamiento no usual para mi y para mis clientes. LLene o no llene el campo a escribir, tengo que estar pulsando el tabulador para pasar al siguiente campo en el orden. Clipper realizaba este paso con Enter. Fivewin tambien lo hace dentro de sus cajas diseñadas en código puro, mas no con recursos. > > La pregunta es si existe en harbour alguna forma para arreglar o emular un comportamiento igual al de Clipper en el registro de datos. > > Muchas Gracias por tu respuesta! > Saludos > Julio César Gómez Cortéz > Lima > > > ¡Obtén la mejor experiencia en la web! > Descarga gratis el nuevo Internet Explorer 8 > > http://downloads. yahoo.com/ ieak8/?l= e1 > >
-- Eduardo Rizzolo Eldorado, Misiones Argentina INF 0023 Correo principal y Msn Hotmail:fullpaint@... skype:fullpaint1 ICQ:39280741 www.creacionistas.com -> Que lindo cuentito nos contaron!! www.puertosur.org
¡Obtén la mejor experiencia en la web! Descarga gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=e1
Estimado Lucho Montero: Alentado por tu entusiasmo, comence a explorar a fondo el xharbour y el minigui (que aun no ha igualado al fivewin). Hasta que...
Cordia saludo. A pesar de que le escribes a Lucho yo te respondo, hay un evento que es el ON ENTER, cuando el usuario pulsa enter en una caja de texto uno...
saluto Jorge E so o seguinte commando no inicio do seu programa SET NAVIGATION EXTENDED //trocar TECLA ENTER/RETURN == TAB Jorge!! ESO UNO EXEMPLO A TU...
Hola Julio: Disculpa que antes no contesté tu email ... bueno debo decirte que estoy trabajando con xHarbour Windows/Linux en Modo Consola ... por el momento...
El problema en recursos es q estas usando por lo q cuentas pararece q usas botones del tipo borland. Te comento de memoria porq como ya hace tiempo q no uso de...
Me olvide de decirte q verifiques q no tengas en stylo de los controles default button o algo asi. On Thu, 28 May 2009 17:41:49 -0200, Eduardo Rizzolo wrote ...
Muchas Gracias por Contestar: SET NAVIGATING EXTENDED hace la emulación exacta. Ahora : Con Clipper CA en Red LAN, necesitas tener una función que abra...
Sin conexión 
Enviar correo