De: minerva contreras <minerva_gcs@ yahoo.com. mx>
Asunto: Rv: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC
A: DesarrolloClipper@ gruposyahoo. com.ar
Fecha: martes, 18 agosto, 2009, 12:43 am

HOLA SOY MINERVA

EMPEZE ACON XHARBOUR , TRATE DE HACER UNA PRUEBA PERO NO PASA NADA

CREE UN SET. ES ELSIG.

 

PATH %PATH%;c:\xharbour\ bin;c:\BORLAND\ BCC55\BIN; C:\XHARBOUR\ BRMAKE
SET OBJ=C:\SISNEW\ OBJ
SET INCLUDE=C:\XHARBOUR \INCLUDE; c:\BORLAND\ BCC55\INCLUDE

ALGUINE ME PUEDE AYUDAR COMO EMPEZAR  GRACIAS

MINERVA

----- Mensaje reenviado ----
De: "juliogomezc@ yahoo.com" <juliogomezc@ yahoo.com>
Para: DesarrolloClipper@ gruposyahoo. com.ar
Enviado: miércoles, 3 de junio, 2009 11:30:28
Asunto: Re: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC

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 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@pinturas- misioneras. com.ar> escribió: De: Eduardo Rizzolo <fullpaint@pinturas- misioneras. com.ar> Asunto: Re: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC A: DesarrolloClipper@ gruposyahoo. com.ar Fecha: jueves, 28 mayo, 2009, 2:41 pm 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@ pinturas- misioneras. com.ar 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

---

¡Encuentra las mejores recetas
con Yahoo! Cocina!
http://mx.mujer. yahoo.com/ cocina/