Bueno lo que me comentas del servidor de impresión sería una parte de la solución, o sea ya no necesitamos una impresora con placa de red, pero, que impresora laser, porque todas las que habia comentado en el e-mail anterior lo son, puede reemplazar a la Lexmark T612, que es la que no funciona, eso por un lado y por el otro lo que veo que es bastante complicado, por lo menos hasta ahora no lo encontré en ningún lado, es el tema de la emulación de comandos PCL, los tengo para la Lexmark pero no para la HP 8100, esto viene al tema de que por ej. en el sistema tenemos una opción para imprimir etiquetas, que las manda a una bandeja manual, o sea que las etiquetas salen en forma individual y esto en la Lexmark T612 y en la IBM Infoprint, salen sin inconvenientes por la bandeja
manual, pero en la HP 8100 no me reconoce la bandeja manual, que obviamente tiene. Por lo tanto deduzco que son diferentes esas secuencias. Por lo tanto ahora tenemos que encontrar: una impresora que reemplace a la T612, encontrar un instructivo que tenga la emulación de comandos PCL o de última la secuencia de escape para programar los listados, y por ultimo que tenga 2 bandejas más aparte de la manual y la bandeja standard. Es complicado porque por ej. probamos con una HP 2840 color y si del símbolo del sistema hago un DIR > LPT1, no pasa nada. Bueno Gracias por darme una parte de la solución, pero si sabes de alguna impresora con características similares a las que comenté te lo voy a agradecer.
Antonio
De: Charly Vega <cfvega@...> Para: DesarrolloClipper@... Enviado: martes 30 de junio de 2009, 9:05:21 Asunto: Re: [CA-Clipper] Consulta acerca de impresoras
Hola Antonio,
Algo parecido me paso hace un tiempo atras. Lo solucione conectando un JetPrinter de HP (servidor de impresion). Hay otras marcas tambien. Lo conectas a la red a traves de utp y tenes hasta 3 puertos paralelos. Se carga un programita en cada terminal que reconoce los puertos y los manejas como si fuerannativos. Espero te sirva. Saludos
Charly Vega Vega Eventos http://www.vegaeven tos.com,ar Tel. +54 11 6240-2424 *** Enviado desde mi BlackBerry Curve 8300
¡Viví la mejor experiencia en la web! Descargá gratis el nuevo Internet Explorer 8 http://downloads. yahoo.com/ ieak8/?l= ar
¡Viví la mejor experiencia en la web! Descargá gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=ar
Por el tema del lenguaje PCL "nativo" siempre hemos instalado impresoras HP.
En http://www.hp.com.ar podés verificar los modelos vigentes (cambian MUY rapidamente). Evitá las impresoras "basadas en host" ya que el comportamiento depende del sistema operativo donde esté instalada y tienen que ser modelo "N" que son las que vienen preparadas para conectarse en red sin necesidad de una pc.
Roberto A. Orlandoni
emailto:robertoorlandoni@...
--- El mar 30-jun-09, Antonio Cardinaux <ancardinaux@...> escribió:
De: Antonio Cardinaux <ancardinaux@...> Asunto: [CA-Clipper] Consulta acerca de impresoras Para: "Desarrollo Clipper" <DesarrolloClipper@...> Fecha: martes, 30 de junio de 2009, 8:55 am
En la empresa en donde trabajo tenemos 3 impresoras que funcionan con el sistema que tenemos desarrollado en Clipper. Estas 3 impresoras tienen como particularidad el lenguaje PCL y que pueden conectarse en red. El sistema está montado sobre una red Windows 2003 Server con terminalex XP, y para conectar las impresoras en red para que funcionen con el sistema utilizamos el comando de NT: NET USE \\Servidor de impresora\Nombre de la impresora /Persist:yes Estas 3 impresoras son una Lexmark T612 (teníamos una T614, pero como no se consiguió un repuesto no pudimos seguir usándola), una IBM Infoprint y una HP 8100, todas imprimen en blanco y negro. De estas 3 impresoras la Lexmark T612 tiene 3 bandejas, que con el sistema se usan: 1 para remitos, otra para facturas y la que queda para otros
listados. Justamente esta impresora, que obviamente es la que más se usa, cada 2 x 3 está teniendo problemas con distintas partes, ya hubo que cambiarle el fusor, muchas veces tenemos problemas con la placa de red, etc, etc. Debido a todos estos problemas mencionados, estamos en la búsqueda de una impresora que la sustituya, pero el gran problema es que: muchas tienen lenguaje PCL pero no tienen placa de red o algo como por ej. en la IBM Infoprint, que usa una cajita que se llama MarkNext o un nombre parecido que hace las veces de placa de red. Bueno recurro al foro para ver si alguien trabaja de manera similar a nosotros y que impresora está usando, como para tener de referencia, o bien que solución utilizaron ante un problema como el que detallé. Desde ya gracias.
Antonio
¡Viví la mejor experiencia en la web! Descargá gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=ar
¡Viví la mejor experiencia en la web! Descargá gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=ar
Algo parecido me paso hace un tiempo atras. Lo solucione conectando un JetPrinter de HP (servidor de impresion). Hay otras marcas tambien. Lo conectas a la red a traves de utp y tenes hasta 3 puertos paralelos. Se carga un programita en cada terminal que reconoce los puertos y los manejas como si fuerannativos. Espero te sirva. Saludos
Charly Vega Vega Eventos http://www.vegaeventos.com,ar Tel. +54 11 6240-2424 *** Enviado desde mi BlackBerry Curve 8300
From: Antonio Cardinaux Date: Tue, 30 Jun 2009 04:55:36 -0700 (PDT) To: Desarrollo Clipper<DesarrolloClipper@...> Subject: [CA-Clipper] Consulta acerca de impresoras
En la empresa en donde trabajo tenemos 3 impresoras que funcionan con el sistema que tenemos desarrollado en Clipper. Estas 3 impresoras tienen como particularidad el lenguaje PCL y que pueden conectarse en red. El sistema está montado sobre una red Windows 2003 Server con terminalex XP, y para conectar las impresoras en red para que funcionen con el sistema utilizamos el comando de NT: NET USE \\Servidor de impresora\Nombre de la impresora /Persist:yes Estas 3 impresoras son una Lexmark T612 (teníamos una T614, pero como no se consiguió un repuesto no pudimos seguir usándola), una IBM Infoprint y una HP 8100, todas imprimen en blanco y negro. De estas 3 impresoras la Lexmark T612 tiene 3 bandejas, que con el sistema se usan: 1 para remitos, otra para facturas y la que queda para otros listados. Justamente esta impresora, que obviamente es la que más se usa, cada 2 x 3 está teniendo problemas con distintas partes, ya hubo que cambiarle el fusor, muchas veces tenemos problemas con la placa de red, etc, etc. Debido a todos estos problemas mencionados, estamos en la búsqueda de una impresora que la sustituya, pero el gran problema es que: muchas tienen lenguaje PCL pero no tienen placa de red o algo como por ej. en la IBM Infoprint, que usa una cajita que se llama MarkNext o un nombre parecido que hace las veces de placa de red. Bueno recurro al foro para ver si alguien trabaja de manera similar a nosotros y que impresora está usando, como para tener de referencia, o bien que solución utilizaron ante un problema como el que detallé. Desde ya gracias.
Antonio
¡Viví la mejor experiencia en la web! Descargá gratis el nuevo Internet Explorer 8 http://downloads.yahoo.com/ieak8/?l=ar
En la empresa en donde trabajo tenemos 3 impresoras que funcionan con el sistema que tenemos desarrollado en Clipper. Estas 3 impresoras tienen como particularidad el lenguaje PCL y que pueden conectarse en red. El sistema está montado sobre una red Windows 2003 Server con terminalex XP, y para conectar las impresoras en red para que funcionen con el sistema utilizamos el comando de NT: NET USE \\Servidor de impresora\Nombre de la impresora /Persist:yes Estas 3 impresoras son una Lexmark T612 (teníamos una T614, pero como no se consiguió un repuesto no pudimos seguir usándola), una IBM Infoprint y una HP 8100, todas imprimen en blanco y negro. De estas 3 impresoras la Lexmark T612 tiene 3 bandejas, que con el sistema se usan: 1 para remitos, otra para facturas y la que queda para otros
listados. Justamente esta impresora, que obviamente es la que más se usa, cada 2 x 3 está teniendo problemas con distintas partes, ya hubo que cambiarle el fusor, muchas veces tenemos problemas con la placa de red, etc, etc. Debido a todos estos problemas mencionados, estamos en la búsqueda de una impresora que la sustituya, pero el gran problema es que: muchas tienen lenguaje PCL pero no tienen placa de red o algo como por ej. en la IBM Infoprint, que usa una cajita que se llama MarkNext o un nombre parecido que hace las veces de placa de red. Bueno recurro al foro para ver si alguien trabaja de manera similar a nosotros y que impresora está usando, como para tener de referencia, o bien que solución utilizaron ante un problema como el que detallé. Desde ya gracias.
Antonio
¡Viví la mejor experiencia en la web! Descargá gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=ar
Boa tarde, tenho um cliente que a conexão de rede é via rádio. De uns tempos para cá está dando um erro do windows, qdo executo atualização nos índices. A rotina é a mesma a vários anos.
Mensagem de erro do windows
Windows - Falha na gravação atrasada
"O Windows não pode salvar todos os dados no arquivo \pcmso\apcnbnfn. Os dados foram perdidos. Esse erro pode ser causado por uma falha do hardware ou de conexão de rede de seu computador. Tente salvar este arquivo em outro local."
Porque ele está tentando criar este arquivo temporário ?
[]s
Marcelo A. L. Carli Marília/SP Capital Nacional do Alimento ®
****************************************************************************** Se for repassar, apague o meu nome e endereço. Ajude a combater a propagação de vírus e spams coloque TODOS os destinatários em CÓPIA OCULTA (Cco / Bcc) ******************************************************************************
Hola Dante....la rutina funciona de maravilla, gracias.
Un abrazo
--- El lun 8-jun-09, dante rios <danteriosg@...> escribió:
De: dante rios <danteriosg@...> Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN Para: DesarrolloClipper@... Fecha: lunes, 8 de junio de 2009, 12:38 pm
CON ESTE PROCEDIMIENTO VISUALIZO REPORTES PRN
** p1 nombre de archivo a visualizar ** p2 fila inicial ** p3 columna inicial ** p4 fila final ** p5 columna final ** p6 color de fondo
#include 'inkey.ch'
PROCEDURE VIEWER(P1, P2, P3, P4, P5, P6)
LOCAL L7, L8, L9, L10, L11, L12, L13, L14 := .F. LOCAL L15, L16, L17 := 0 LOCAL L18 := 1 LOCAL L19, L20, L21, L22
L15 := INKEY(0) ************ ********* ** L15 VARIABLE DE ENTRADA DE TECLADO DO CASE
CASE LASTKEY()=K_ SH_F5 DI='LPT1' SAVE SCREEN TO VIEW DO BORDE WITH 17,16,20,64,
0,'LS' SET CURSOR ON @18,18 SAY 'Nombre de Archivo :' GET P1 @19,18 SAY 'Dispositivo Salida :' GET DI VALID BUSQUED_('O' ,'2') READ IF LASTKEY()<>27 COPY FILE &P1 TO &DI ENDIF RESTORE SCREEN FROM VIEW
De: DesarrolloClipper@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> Asunto: [CA-Clipper] Se ha cargado un nuevo archivo en DesarrolloClipper Para: DesarrolloClipper@ gruposyahoo. com.ar Fecha: lunes, 25 de mayo de 2009, 6:37 am
Hola,
Este mensaje sirve para notificarle que se ha cargado un archivo a la sección Archivos del grupo DesarrolloClipper.
Archivo : /DBU.rar Responsable : alceu11 <alceu11@yahoo. com.br> Descripción : DBU FOR WINDOWS
De: DesarrolloClipper@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> Asunto: [CA-Clipper] Se ha cargado un nuevo archivo en DesarrolloClipper Para: DesarrolloClipper@ gruposyahoo. com.ar Fecha: lunes, 25 de mayo de 2009, 6:37 am
Hola,
Este mensaje sirve para notificarle que se ha cargado un archivo a la sección Archivos del grupo DesarrolloClipper.
Archivo : /DBU.rar Responsable : alceu11 <alceu11@yahoo. com.br> Descripción : DBU FOR WINDOWS
--- El lun 8-jun-09, dante rios <danteriosg@...> escribió:
De: dante rios <danteriosg@...> Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN Para: DesarrolloClipper@... Fecha: lunes, 8 de junio de 2009, 12:38 pm
CON ESTE PROCEDIMIENTO VISUALIZO REPORTES PRN
** p1 nombre de archivo a visualizar ** p2 fila inicial ** p3 columna inicial ** p4 fila final ** p5 columna final ** p6 color de fondo
#include 'inkey.ch'
PROCEDURE VIEWER(P1, P2, P3, P4, P5, P6)
LOCAL L7, L8, L9, L10, L11, L12, L13, L14 := .F. LOCAL L15, L16, L17 := 0 LOCAL L18 := 1 LOCAL L19, L20, L21, L22
L15 := INKEY(0) ************ ********* ** L15 VARIABLE DE ENTRADA DE TECLADO DO CASE
CASE LASTKEY()=K_ SH_F5 DI='LPT1' SAVE SCREEN TO VIEW DO BORDE WITH 17,16,20,64,
0,'LS' SET CURSOR ON @18,18 SAY 'Nombre de Archivo :' GET P1 @19,18 SAY 'Dispositivo Salida :' GET DI VALID BUSQUED_('O' ,'2') READ IF LASTKEY()<>27 COPY FILE &P1 TO &DI ENDIF RESTORE SCREEN FROM VIEW
De: DesarrolloClipper@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> Asunto: [CA-Clipper] Se ha cargado un nuevo archivo en DesarrolloClipper Para: DesarrolloClipper@ gruposyahoo. com.ar Fecha: lunes, 25 de mayo de 2009, 6:37 am
Hola,
Este mensaje sirve para notificarle que se ha cargado un archivo a la sección Archivos del grupo DesarrolloClipper.
Archivo : /DBU.rar Responsable : alceu11 <alceu11@yahoo. com.br> Descripción : DBU FOR WINDOWS
L15 := INKEY(0) *********************** L15 VARIABLE DE ENTRADA DE TECLADO DO CASE
CASE LASTKEY()=K_SH_F5 DI='LPT1' SAVE SCREEN TO VIEW DO BORDE WITH
17,16,20,64,0,'LS' SET CURSOR ON @18,18 SAY 'Nombre de Archivo :' GET P1 @19,18 SAY 'Dispositivo Salida :' GET DI VALID BUSQUED_('O','2') READ IF LASTKEY()<>27 COPY FILE &P1 TO &DI ENDIF RESTORE SCREEN FROM VIEW
De: DesarrolloClipper@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> Asunto: [CA-Clipper] Se ha cargado un nuevo archivo en DesarrolloClipper Para: DesarrolloClipper@ gruposyahoo. com.ar Fecha: lunes, 25 de mayo de 2009, 6:37 am
Hola,
Este mensaje sirve para notificarle que se ha cargado un archivo a la sección Archivos del grupo DesarrolloClipper.
Archivo : /DBU.rar Responsable : alceu11 <alceu11@yahoo. com.br> Descripción : DBU FOR WINDOWS
Hola amigos...utilizo el README.COM para mostrar unos reportes en pantalla, sin
embargo este programita me pone lento el sistema cuando se inicia cualquier otra
aplicacion clipper.
Alguno de ustedes conoce otro programa que haga las mismas funciones que el README.COM.
Saludos y gracias anticipadas por su apoyo.
Un abrazo
--- El lun 25-may-09, DesarrolloClipper@... <DesarrolloClipper@...> escribió:
De: DesarrolloClipper@... <DesarrolloClipper@...> Asunto: [CA-Clipper] Se ha cargado un nuevo archivo en DesarrolloClipper Para: DesarrolloClipper@... Fecha: lunes, 25 de mayo de 2009, 6:37 am
Hola,
Este mensaje sirve para notificarle que se ha cargado un archivo a la sección Archivos del grupo DesarrolloClipper.
Archivo : /DBU.rar Responsable : alceu11 <alceu11@yahoo. com.br> Descripción : DBU FOR WINDOWS
¡Vote hoy mismo! Vea la nueva encuesta del grupo DesarrolloClipper:
Si tendrias que dejar clipper o xharbour que lenguaje escogerias?
o Visual Foxpro
o Visual basic .net
o PHP
o Xailer
o visual xharbour
o ASP
o Python
o otro
Para votar, visite la siguiente dirección:
http://ar.groups.yahoo.com/group/DesarrolloClipper/polls
Nota: No responda a este mensaje. Los votos de la encuesta no se
reúnen por medio de correo electrónico. Para votar, deberá ir al sitio
Web Yahoo! Grupos que se menciona arriba.
¡Gracias!
¡Vote hoy mismo! Vea la nueva encuesta del grupo DesarrolloClipper:
Desde hace cuanto programas en Clipper o xharbour?
o 1-5 años
o 6-10 años
o 11-15
o 16 o mas
Para votar, visite la siguiente dirección:
http://ar.groups.yahoo.com/group/DesarrolloClipper/polls
Nota: No responda a este mensaje. Los votos de la encuesta no se
reúnen por medio de correo electrónico. Para votar, deberá ir al sitio
Web Yahoo! Grupos que se menciona arriba.
¡Gracias!
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
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 > 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 > > >
--
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
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
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@... Messenger: lmonterof04@...
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@...> escribió:
De: julio gomez <juliogomezc@...>
Asunto: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC
Para: "Grupo Clipper Argentina" <desarrolloclipper@...>
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
Soy do brasil mais estoy indo la programacion xharbour, pq eso igual ao CLIPPER!!!
MUI BUENA
--- Em dom, 24/5/09, JORGE EDUARDO <jhernandezmaestre@...> escreveu:
De: JORGE EDUARDO <jhernandezmaestre@...> Assunto: Re: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC Para: DesarrolloClipper@... Data: Domingo, 24 de Maio de 2009, 15:26
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 manda el foco al siguiente campo, mediante programacion.
Atentamente,
JORGE EDUARDO.
--- 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
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 manda el foco al siguiente campo, mediante programacion.
Atentamente,
JORGE EDUARDO.
--- El dom, 24/5/09, julio gomez <juliogomezc@...> escribió:
De: julio gomez <juliogomezc@...> Asunto: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC Para: "Grupo Clipper Argentina" <desarrolloclipper@...> 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
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
Hola amigos, estoy tratando de colocar colores a cada campo de un Tbrowse para generar una consulta , lo peculiar de esto es que el color a asignar a cada campo depende de otro
campo del mismo registro procesado, algo asi como dar formato condicional.
Alguien tiene experiencia con esto o me puede indicar alguna literatura al respecto
Gracias anticipadas
Saludos
Yahoo! Cocina Registrate y cargá tu receta. Podés ganar premios
www.promorecetas.com
Podes migrar tus sistemas con xHarbour a linux en poco tiempo.
De clipper a xHarbour lo pasas en unas cuentas horas de afinado de compilado.
Esto es consola.
Etapa 2-2: Visuales WIN
Para los que estan xH con alguna gui.
O con sistemas para WIN.
Con wine pueden migrar en nada de tiempo, estamos hablando de colocar un paquete
en el linux.
Y pocas configuraciones.
No recomiendo usar emuladores DOS, pero las configuraciones para que funcionen
dependeran mucho de los sistemas.
Bueno con wine sale funcionando de una.
Espero les sea util.
Edu
--
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
HOla amigos , tengo un pequeño problema. y necesito su ayuda.
Tengo dos bases de datos una se llama , invent.dbf y existen.dbf
invent.dbf tiene dos campos num_ref(n) y desc(c)
existen.dbf tiene dos campos num_ref(n) y cantidad(n).
Abro las bases de datos ,
invent.dbf
index on desc +str(num_ref,4,0)to refdes
existen.dbf
index on num_ref to exis
set relation to num_ref into invent
Su relacion existe con el campo num_ref como ven. Mando estas dos tablas con un
objeto tbrowse. A la hora de presentacion no se me presentan bien, las
cantidades no son la mismas que la que me dan en un listado que me dan .Ya que
el campo relacional(invent.num_ref) no coincide con el campo de la base de datos
existen.num_ref.
Y a la hora de buscar , cierto producto dentro del tbrowse , si se me aparece.
Si cambio en index on solamente con num_ref en la base de datos invent.dbf. Me
presenta una buena relacion. todo coincide a como se encuentra el listado que me
da el cliente para que introdusca la existencia. Pero a la hora de buscar el
producto. no me da.
Ya que me dice que para hacer esa busqueda hay que indexarla. Y como veo si la
indexo para la busqueda(desc), no se me relaciona bien las bases de datos ya que
el primer indice que se establece es desc y la base de datos existen.dbf no
tiene el campo desc, mas que num_ref.
Aqui dejo la rutina.
FUNCTION FISICO()
local oWin
LOCAL nBt1, oBar
LOCAL nREG:=RECNO()
local nWindow, oBrowse, i, nKey, lEnd, lRet, nCursor := setcursor(), mpesq
local cCor := setcolor(), nWidth, nCol, nRow
SETCURSOR(SC_NONE)
*SET DELETED ON
oWin :=WVW_nOpenWindow("INVENTARIO FISICO",3,1,24,79)
**oBar := wvw_tbcreate( oWin, .T., NIL, 2, 48, 48 )
*wvw_tbAddButton( oWin, BT_SAIR, "imagens\sair.bmp" , "SALIR" , 0 , .T.)
oTAB:=CREAFBROWSE(6,1,24,79)
mpesq := " "
@ 4, 5 say "Busqueda"
***** BUCLE PRINCIPAL
*USE EXISTEN NEW
*INDEX ON NUM_REF TO EXIREF
*USE INVENT NEW
*INDEX ON NUM_REF TO REFE
*/SET RELATION TO NUM_REF INTO EXISTEN
ABRIR("EXISTEN")
SET ORDER TO 2 //index on num_ref to numex
ABRIR("INVENT")
SET ORDER TO 7 // index on desc + str(num_ref,4,0) to refdes
SET RELATION TO NUM_REF INTO existen
DO WHILE .T.
DO WHILE NEXTKEY()==0 .AND. .NOT. oTAB:STABILIZE()
ENDDO
*** CAPTURA LA TECLA PULSADA
TECLA:=INKEY(0)
IF TECLA==K_ESC
* if Alerta("Confirma Saída",MB_YESNO,MB_ICONQUESTION) == IDYES
oWin:=fechajanela()
* EXIT
* else
* FISICO()
* endif
EXIT
ELSE
PTECLA(TECLA,mpesq)
ENDIF
ENDDO
return nil
MAIN()
******************
FUNCTION CREAFBROWSE(nLINT,nCOLT,nLINB,nCOLB)
LOCAL xwin ,nBtl
FIELD CANTIDAD IN EXISTEN
FIELD NUM_REPUES, DESC,PRECIO, COSTO IN INVENT
LOCAL oTAB:=TBROWSEDB(nLINT,nCOLT,nLINB,nCOLB) //CREA EL OBJETO oTAB
LOCAL OTAB1 :=TbColumnNew("CODIGO" ,{ || INVENT->NUM_REPUES } )
LOCAL OTAB2 :=TbColumnNew("DESCRIPCION" ,{ || INVENT->DESC} )
LOCAL OTAB3 :=TbColumnNew("COSTO" ,{ || INVENT->COSTO } )
LOCAL OTAB4 :=TbColumnNew("PRECIO VENTA" ,{ || INVENT->PRECIO } )
*LOCAL OTAB5 :=TbColumnNew("CANTIDAD" ,{ || EXISTEN->CANTIDAD } )
oTAB:COLORSPEC:="W/B,B/W,N/W,W/N,R/W,W/R,W/G+"
*oTAB:COLORSPEC:="B/R*"
*oTAB:HEADSEP:=CHR(205)+CHR(209)+CHR(205)
*oTAB:COLSEP:= chr(32) +CHR(179)+chr(32)
*oTAB:FOOTSEP:=CHR(205)+CHR(207)+CHR(205)
oTAB:HEADSEP:="----"+"¦"+"----"
oTAB:COLSEP:= chr(32) +CHR(179)+chr(32)
oTAB:FOOTSEP:="----"+"+"+"----"
oTAB:configure()
oTAB:refreshCurrent()
oTab:addColumn(oTab1)
oTab:addColumn(oTab2)
oTab:addColumn(oTab3)
oTab:addColumn(oTab4)
*oTab:addColumn(oTab5)
************ largura das colunas ***********
oTab1:width:=10
oTab2:width:=26
oTab3:width:=10
oTab4:width:=10
*oTab5:width:=10
***********mascara das colunas************
oTab1:picture:="@!"
oTab2:picture:="@!"
oTab3:picture:="999,999.99"
oTab4:picture:="999,999.99"
*oTab5:picture:="999,999.99"
*@ nLINT-1,nCOLT-1 TO nLINB+1,nCOLB+1 DOUBLE
COLUMNA=oTAB:GETCOLUMN(3) //precio
COLUMNA:DEFCOLOR:={4,5 ,3,6}
COLUMNA=oTAB:GETCOLUMN(4) //CANTIDAD
COLUMNA:DEFCOLOR:={4,5}
*COLUMNA=oTAB:GETCOLUMN(5) //CANTIDAD
*COLUMNA:DEFCOLOR:={4,5}
RETURN(oTAB)
***************************
FUNCTION PTECLA(TECLA,mpesq)
oCOLUMNA:=OTaB:COLPOS
*oTaB:SetKey( K_LBUTTONDOWN, { | oTAB, TECLA | HandleMouse( oTAB, TECLA,
mrow(), mcol() ) } )
DO CASE
case upper( chr( tecla) ) $ ALFANUM
mpesq += upper( chr( tecla ) )
@ 4, 15 say mpesq color "n/w*"
dbSeek( mpesq, .T. )
otab:RefreshAll()
case tecla == K_BS
mpesq := substr( mpesq, 1, len( mpesq ) - 1 )
@ 4, 15 say space(20) color "n/w*"
@ 4, 15 say mpesq color "n/w*"
dbSeek( mpesq, .T. )
oTaB:RefreshAll()
CASE TECLA==K_UP ;oTAB:UP()
CASE TECLA==K_DOWN ;oTAB:DOWN()
CASE TECLA==K_LEFT ;oTAB:LEFT()
CASE TECLA==K_CTRL_LEFT ;oTAB:PANLEFT()
CASE TECLA==K_RIGHT ;oTAB:RIGHT()
CASE TECLA==K_CTRL_RIGHT ;oTAB:PANRIGHT()
CASE TECLA==K_PGUP ;oTAB:PGUP()
CASE TECLA==K_CTRL_PGUP ;oTAB:GOTOP()
CASE TECLA==K_PGDN ;oTAB:PGDN()
CASE TECLA==K_CTRL_PGDN ;oTAB:GOBOTTOM()
CASE TECLA==K_HOME ;oTAB:HOME()
CASE TECLA==K_CTRL_HOME ;oTAB:PANHOME()
CASE TECLA==K_END ;oTAB:END()
CASE TECLA==K_CTRL_END ;oTAB:PANEND()
CASE TECLA==K_F10
** ;MUESTRARECNO(oTAB)
CASE TECLA==K_CTRL_PLUS
* ;AUMENTACOL(oTAB)
CASE TECLA==K_CTRL_MINUS
* ;DISMINUYECOL(oTAB)
CASE TECLA==K_MINUS
* ;ESCONDECOL(oTAB)
CASE TECLA==K_PLUS
* ;MUESTRACOL(oTAB)
CASE TECLA==K_ALT_M
* ;MUEVECOL(oTAB)
CASE TECLA==K_ENTER
** ;EDITA(oTAB)
IF oCOLUMNA==3
@ ROW(),COL() GET COSTO
READ
ENDIF
IF oCOLUMNA==5
@ ROW(),COL() GET PRECIO
READ
ENDIF
IF oCOLUMNA==4
@ ROW(),COL() GET EXISTEN->CANTIDAD
READ
ENDIF
CASE TECLA==K_ALT_E
**;BORRA(oTAB)
CASE TECLA==K_ALT_P ;CONS(oTAB) //Existe tambien otras
busqueda pulsando al + p
case TECLA == K_LBUTTONUP .OR. TECLA == K_LBUTTONDOWN ; HandleMouse(
oTAB, TECLA, mrow(), mcol() )
OTHERWISE
TONE(125) ; TONE(300)
ENDCASE
****************************************
PROCEDURE ESTABILIZE(OBJETO)
LOCAL GETLIST:={}
LOCAL xCLAVECONSULTA, nREG
DO WHILE .NOT. OBJETO:ESTABILIZE()
ENDDO
RETURN
**************
FUNCTION CONS(oTBr)
LOCAL xCLAVECONSULTA:= space(10)
* &(INDEXKEY(0))
LOCAL nREG:=RECNO()
LOCAL SALVACUR, LONGCOL
LONGCOL:=oTBr:COLWIDTH(oTBr:COLPOS)
gLIN:=ROW()
gCOL:=COL()
@ GLIN-1,GCOL-1 TO GLIN+1,GCOL+LONGCOL COLOR "W/G"
@ GLIN,GCOL SAY SPACE(LONGCOL)
@ GLIN,GCOL GET xCLAVECONSULTA
SALVACUR:=SETCURSOR(SC_NORMAL)
READ
SETCURSOR(SALVACUR)
IF LASTKEY() = K_ESC
oTBr:REFRESHALL()
RETURN NIL
ENDIF
**SEEK xCLAVECONSULTA
sEEK upper(LEFT(ALLTRIM(xCLAVECONSULTA),LEN(ALLTRIM(xCLAVECONSULTA))))
IF (.NOT. FOUND() .AND. .NOT. SET(_SET_SOFTSEEK))
GOTO nREG
TONE(1000) ; TONE(2000)
oTBr:REFRESHALL()
ELSE
nREG=RECNO()
oTBr:REFRESHALL()
ESTABLE(oTBr)
DO WHILE( RECNO() !=nREG)
oTBr:UP()
ESTABILIZE(oTBr)
ENDDO
ENDIF
RETURN NIL
********
Hola amigos , necesito su ayuda, donde puedo conceguir informacion o
documentacion para aprender a hacer mis programas hechos en clipper , y
compilados con harbour, con objetos OLE, he vistos algunos ejemplos, pero
quisiera saber como hacerlos , por medio de un tutorial
Colegas, tengo una tabla de Articulos y cuyo campo de descripcion, fue exportado
desde excel por lo que me quedo entre leyanda espacios en blanco de varios
caracteres y leyenda que se podria abrevia por ejemplo:
"ESPEJO - RETROVISOR /DERECHO MODELO AX320-G FORD ESCORD" en este texto se
tendria que sacar los espacios en blancos excesivos como asi caracteres que no
me sirven. dicha base cuenta con por lo menos 12000 items.
Alguien tendria algun proceso la cual pueda corregir lo antesmencionado,
poniendo en una tabla o matriz lo que quiero corregir por ejemplo: "ESPEJO -
RETROVISOR" por "ESPEJO RETROV." por decir un ejemplo, Gracias a todos y que
tengan un buen dia.
--- El lun 20-abr-09, Marcelo Luna <marceloluna32@...> escribió:
De: Marcelo Luna <marceloluna32@...> Asunto: [CA-Clipper] Manual en castellano de libreria clipworks A: DesarrolloClipper@... Fecha: lunes, 20 abril, 2009, 2:11 pm
Estimados colegas, buenas tardes.
Necesito por favor si alguien posee algun manual en castellano de la libreria clipworks, agradecere or favor me puedan ayudar con este manual, por favor.
Necesito por favor si alguien posee algun manual en castellano de la libreria clipworks, agradecere or favor me puedan ayudar con este manual, por favor.
Un saludo cordial.
Marcelo Luna
Yahoo! Cocina Recetas prácticas y comida saludable Visitá http://ar.mujer.yahoo.com/cocina/
Al compilar con Clipper hay un parámetro que es "/dALGO", en donde algo es una palabra o algo, que al aparecer en un PRG le dice si procesa o no determinadas líneas, o sea:
Al compilar:
clipper prueba /w/a/n/dALGO
En el fuente:
Function PruebaDeAlgo
#ifdef ALGO .. .. #endif
... ... resto del fuente
retu NIL
Existe algún parámetro al compilar con Brmake y xHarbour que haga algo similar, porque en los fuentes de la aplicación que modifico tengo varias líneas así que ejecutan algo según la compilación.
Antonio
Yahoo! Cocina Recetas prácticas y comida saludable Visitá http://ar.mujer.yahoo.com/cocina/
Sin conexión 
Enviar correo