Entrar
¿Nuevo usuario? Inscribirme
DesarrolloClipper · Desarrollo de Software en CA-Clipper
  • Sólo miembros
  • Publicar
  • Archivos
  • Fotos
  • Base de datos
  • Encuestas
  • Agenda
  • Promocionar
  • Labs de Grupos (Beta)
? ¿Ya estás suscrito? Entra a Yahoo!

Consejos

¿Sabías que...?
Podés cambiar el orden de los mensajes. Simplemente hacé clic en el enlace de columna fecha. Tus preferencias se guardarán, por lo tanto no necesitarás hacerlo otra vez cuando vuelvas a entrar.

Mensajes

   Mensajes Ayuda
Mensaje nº
Buscar:
Avanzado
Mensajes 3523 - 3552 de 3606   Más reciente  |  < Más reciente  |  Más antiguo >  |  Más antiguo
Mensajes: Mostrar resúmenes de los mensajes   (Agrupar por tema) Clasificar por fecha v  
#3552 De: minerva contreras <minerva_gcs@...>
Fecha: Mar, 18 de Ago, 2009 6:47 am
Asunto: diferencia entre brmake y brmake minigui 		minerva_gcs
Sin conexión Sin conexión
Enviar correo Enviar correo
 
alguien me podria decir cual es la diferencia entre estos dos
 
gracias minerva


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

Responder | Reenviar | Mensajes en este tema (1)
#3551 De: minerva contreras <minerva_gcs@...>
Fecha: Mar, 18 de Ago, 2009 5:43 am
Asunto: Rv: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC 		minerva_gcs
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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@..." <juliogomezc@...>
Para: DesarrolloClipper@...
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/

Responder | Reenviar | Mensajes en este tema (9)
#3550 De: "psp_1101" <gersistemas@...>
Fecha: Lun, 17 de Ago, 2009 8:12 pm
Asunto: Re: DIALOGOS 		psp_1101
Sin conexión Sin conexión
Enviar correo Enviar correo
  
Hola Julio, me parece, por lo que interpreto de tu pregunta, que lo que
necesitás es validar el get.
Esto lo hacés del siguiente modo:

REDEFINE GET oCod        VAR wCod                 ID 113 FONT oFont3 OF oAlg
PICTURE "@!" valid valmot(@wMotivo, @wCod, oMotivo, oCod)

donde el valmot(... es una function que definis dentro del mismo prg, y escribis
la validación que necesites.

Patricia


--- En DesarrolloClipper@..., "juliogomezc" <juliogomezc@...>
escribió:
>
> Buenos Dias Grupo:
> Estoy pasando etapas en el cambio a visual 32 bits y estoy trabajando con
xHarbour y Fivewin2.7. En cierta parte de un sistema debo crear un dialogo
simple que ingresa los siguientes campos:
>  - numero de identidad
>  - nombre o razon social
>  - Año o Periodo Anual
> esto es muy facil de realizar. El problema comienza cuando el cliente pide que
para no repetir ingreso de datos, el programa efectue un analisis al registrar
el primer campo (numero de identidad), busque si ya existe el numero en la base
de datos y si encuentra coincidentes mostrar el nombre en el dialogo y aperturar
el siguiente año o periodo al ultimo registrado. Estoy pensando usar dos
dialogos porque pienso que los gets y say en un dialogo para los mismos campos
no van. El dialogo al activarse corre toda la lectura.
>
> Alguien puede alcanzar una idea??
>
> Muchos Saludos
> Julio Cesar Gómez Cortéz
> Lima - Perú
>

Responder | Reenviar | Mensajes en este tema (5)
#3549 De: dante rios <danteriosg@...>
Fecha: Lun, 17 de Ago, 2009 6:44 pm
Asunto: Re: [CA-Clipper] DIALOGOS 		danteriosg
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola Julio Cesar
 
no entiendo exactamente lo que quieres, pero si quieres migrar sin tanto alboroto y controlando tus fuentes originales de clipper pasate al c2w, mira un demo que deje en mi web www.dargcont.com si necesitas alguna ayuda me avisas
 
Saludos
Dante

--- El lun 17-ago-09, juliogomezc <juliogomezc@...> escribió:

De: juliogomezc <juliogomezc@...>
Asunto: [CA-Clipper] DIALOGOS
A: DesarrolloClipper@...
Fecha: lunes, 17 agosto, 2009, 1:37 pm

 
Buenos Dias Grupo:
Estoy pasando etapas en el cambio a visual 32 bits y estoy trabajando con xHarbour y Fivewin2.7. En cierta parte de un sistema debo crear un dialogo simple que ingresa los siguientes campos:
- numero de identidad
- nombre o razon social
- Año o Periodo Anual
esto es muy facil de realizar. El problema comienza cuando el cliente pide que para no repetir ingreso de datos, el programa efectue un analisis al registrar el primer campo (numero de identidad), busque si ya existe el numero en la base de datos y si encuentra coincidentes mostrar el nombre en el dialogo y aperturar el siguiente año o periodo al ultimo registrado. Estoy pensando usar dos dialogos porque pienso que los gets y say en un dialogo para los mismos campos no van. El dialogo al activarse corre toda la lectura.

Alguien puede alcanzar una idea??

Muchos Saludos
Julio Cesar Gómez Cortéz
Lima - Perú



¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=e1

Responder | Reenviar | Mensajes en este tema (5)
#3548 De: "juliogomezc" <juliogomezc@...>
Fecha: Lun, 17 de Ago, 2009 6:37 pm
Asunto: DIALOGOS 		juliogomezc
Sin conexión Sin conexión
Enviar correo Enviar correo
  
Buenos Dias Grupo:
Estoy pasando etapas en el cambio a visual 32 bits y estoy trabajando con
xHarbour y Fivewin2.7. En cierta parte de un sistema debo crear un dialogo
simple que ingresa los siguientes campos:
  - numero de identidad
  - nombre o razon social
  - Año o Periodo Anual
esto es muy facil de realizar. El problema comienza cuando el cliente pide que
para no repetir ingreso de datos, el programa efectue un analisis al registrar
el primer campo (numero de identidad), busque si ya existe el numero en la base
de datos y si encuentra coincidentes mostrar el nombre en el dialogo y aperturar
el siguiente año o periodo al ultimo registrado. Estoy pensando usar dos
dialogos porque pienso que los gets y say en un dialogo para los mismos campos
no van. El dialogo al activarse corre toda la lectura.

Alguien puede alcanzar una idea??

Muchos Saludos
Julio Cesar Gómez Cortéz
Lima - Perú

Responder | Reenviar | Mensajes en este tema (5)
#3547 De: "Eduardo Rizzolo" <fullpaint@...>
Fecha: Mié, 22 de Jul, 2009 8:28 pm
Asunto: RE: [CA-Clipper] HOLA. IMPRIMIR EN USB 		fullpaint
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Usa DosPrinter.exe



On Fri, 17 Jul 2009 06:14:26 -0700 (PDT), Roberto Orlandoni wrote
>  
>
>
Hmmmmmm !, tienes razón !, olvidaba que si se tiene Windows XP, se puede compartir y capturar desde la misma pc. ;-)
>
> Gracias por el recordatorio ! :-)
>
> Roberto A. Orlandoni
> emailto:robertoorlandoni@yahoo.com.ar
>
> --- El vie 17-jul-09, Antonio Vázquez <nono@pc-nono.es> escribió:
>

> De: Antonio Vázquez <nono@pc-nono.es>
> Asunto: RE: [CA-Clipper] HOLA. IMPRIMIR EN USB
> Para: DesarrolloClipper@gruposyahoo.com.ar
> Fecha: viernes, 17 de julio de 2009, 10:05 am
>
> En la misma estación, prueba a capturarla y creo que podrás imprimir.
>  
>
> De: DesarrolloClipper@gruposyahoo.com.ar [mailto:DesarrolloClipper@gruposyahoo.com.ar] En nombre de Roberto Orlandoni
> Enviado el: viernes, 17 de julio de 2009 14:51
> Para: DesarrolloClipper@gruposyahoo.com.ar
> Asunto: Re: [CA-Clipper] HOLA. IMPRIMIR EN USB
>  
>  
>
>

> Sin ningún agregado (red, o programas de 3°) no se puede.
>
> Si dispones de red, compartes la impresora en una pc, la capturas a un LPTn e imprimes desde otra, pero no se puede desde la pc local.
>
> Roberto A. Orlandoni
> emailto:robertoorlandoni@yahoo.com.ar
>
> --- El vie 17-jul-09, minerva contreras <minerva_gcs@yahoo.com.mx> escribió:
>
> De: minerva contreras <minerva_gcs@yahoo.com.mx>
> Asunto: [CA-Clipper] HOLA. IMPRIMIR EN USB
> Para: DesarrolloClipper@gruposyahoo.com.ar
> Fecha: viernes, 17 de julio de 2009, 1:43 am
>
>  
>
> HOLA. ALGUIEN SABE COMO HACERLO , BAJO PROGRAMACION CLIPPER   se los voy a agradecer
>
> minerva
>
>
>  
>
>  
>
>

> De: dante rios <danteriosg@yahoo.com>
> Para: DesarrolloClipper@gruposyahoo.com.ar
> Enviado: lunes, 20 de abril, 2009 13:52:14
> Asunto: Re: [CA-Clipper] Manual en castellano de libreria clipworks
>

>
> TE ENVIE EL MANUAL A TU CORREO PERSONAL
>
>  
>
> SALUDOS
>
> DANTE
>
> --- El lun 20-abr-09, Marcelo Luna <marceloluna32@ yahoo.com. ar> escribió:

> De: Marcelo Luna <marceloluna32@ yahoo.com. ar>
> Asunto: [CA-Clipper] Manual en castellano de libreria clipworks
> A: DesarrolloClipper@ gruposyahoo. com.ar
> 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.
>
> Un saludo cordial.
>
>  
>
> Marcelo Luna 

>  
>

>
> Yahoo! Cocina
> Recetas prácticas y comida saludable
> Visitá http://ar.mujer. yahoo.com/ cocina/

>  
>

>
> ¡Obtén la mejor experiencia en la web!
> Descarga gratis el nuevo Internet Explorer 8.br> http://downloads. yahoo.com/ ieak8/?l= e1
>  
>

>
> ¡Obtén la mejor experiencia en la web!
> Descarga gratis el nuevo Internet Explorer 8.br> http://downloads.yahoo.com/ieak8/?l=mx

>  
>

>
> ¡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
>


--
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!!
http://video.google.es/videoplay?docid=5201456816857396330&hl=es
www.puertosur.org


Responder | Reenviar | Mensajes en este tema (8)
#3546 De: "Albert" <asp380@...>
Fecha: Mié, 22 de Jul, 2009 6:55 pm
Asunto: Día del amigo.- 		asp380
Sin conexión Sin conexión
Enviar correo Enviar correo
  
Aunq un poco tarde, valga mi saludo para todos los miembros!


-= Alberto =-

Responder | Reenviar | Mensajes en este tema (1)
#3545 De: Roberto Orlandoni <robertoorlandoni@...>
Fecha: Vie, 17 de Jul, 2009 1:14 pm
Asunto: RE: [CA-Clipper] HOLA. IMPRIMIR EN USB 		robertoorlan...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hmmmmmm !, tienes razón !, olvidaba que si se tiene Windows XP, se puede compartir y capturar desde la misma pc. ;-)

Gracias por el recordatorio ! :-)

Roberto A. Orlandoni
emailto:robertoorlandoni@...

--- El vie 17-jul-09, Antonio Vázquez <nono@...> escribió:

De: Antonio Vázquez <nono@...>
Asunto: RE: [CA-Clipper] HOLA. IMPRIMIR EN USB
Para: DesarrolloClipper@...
Fecha: viernes, 17 de julio de 2009, 10:05 am



En la misma estación, prueba a capturarla y creo que podrás imprimir.

 

De: DesarrolloClipper@... [mailto:DesarrolloClipper@...] En nombre de Roberto Orlandoni
Enviado el: viernes, 17 de julio de 2009 14:51
Para: DesarrolloClipper@...
Asunto: Re: [CA-Clipper] HOLA. IMPRIMIR EN USB

 

 

Sin ningún agregado (red, o programas de 3°) no se puede.

Si dispones de red, compartes la impresora en una pc, la capturas a un LPTn e imprimes desde otra, pero no se puede desde la pc local.

Roberto A. Orlandoni
emailto:robertoorlandoni@...

--- El vie 17-jul-09, minerva contreras <minerva_gcs@...> escribió:


De: minerva contreras <minerva_gcs@...>
Asunto: [CA-Clipper] HOLA. IMPRIMIR EN USB
Para: DesarrolloClipper@...
Fecha: viernes, 17 de julio de 2009, 1:43 am

 

HOLA. ALGUIEN SABE COMO HACERLO , BAJO PROGRAMACION CLIPPER   se los voy a agradecer

minerva


 

 

De: dante rios <danteriosg@...>
Para: DesarrolloClipper@...
Enviado: lunes, 20 de abril, 2009 13:52:14
Asunto: Re: [CA-Clipper] Manual en castellano de libreria clipworks

TE ENVIE EL MANUAL A TU CORREO PERSONAL

 

SALUDOS

DANTE

--- El lun 20-abr-09, Marcelo Luna <marceloluna32@ yahoo.com. ar> escribió:

De: Marcelo Luna <marceloluna32@ yahoo.com. ar>
Asunto: [CA-Clipper] Manual en castellano de libreria clipworks
A: DesarrolloClipper@ gruposyahoo. com.ar
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.

Un saludo cordial.

 

Marcelo Luna 

 


Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/

 


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads. yahoo.com/ ieak8/?l= e1

 


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads.yahoo.com/ieak8/?l=mx

 


¡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

Responder | Reenviar | Mensajes en este tema (8)
#3544 De: Antonio Vázquez <nono@...>
Fecha: Vie, 17 de Jul, 2009 1:05 pm
Asunto: RE: [CA-Clipper] HOLA. IMPRIMIR EN USB 		nonovaz
Sin conexión Sin conexión
Enviar correo Enviar correo
 

En la misma estación, prueba a capturarla y creo que podrás imprimir.

 

De: DesarrolloClipper@... [mailto:DesarrolloClipper@...] En nombre de Roberto Orlandoni
Enviado el: viernes, 17 de julio de 2009 14:51
Para: DesarrolloClipper@...
Asunto: Re: [CA-Clipper] HOLA. IMPRIMIR EN USB

 

 

Sin ningún agregado (red, o programas de 3°) no se puede.

Si dispones de red, compartes la impresora en una pc, la capturas a un LPTn e imprimes desde otra, pero no se puede desde la pc local.

Roberto A. Orlandoni
emailto:robertoorlandoni@...

--- El vie 17-jul-09, minerva contreras <minerva_gcs@...> escribió:


De: minerva contreras <minerva_gcs@...>
Asunto: [CA-Clipper] HOLA. IMPRIMIR EN USB
Para: DesarrolloClipper@...
Fecha: viernes, 17 de julio de 2009, 1:43 am

 

HOLA. ALGUIEN SABE COMO HACERLO , BAJO PROGRAMACION CLIPPER   se los voy a agradecer

minerva


 

 

De: dante rios <danteriosg@...>
Para: DesarrolloClipper@...
Enviado: lunes, 20 de abril, 2009 13:52:14
Asunto: Re: [CA-Clipper] Manual en castellano de libreria clipworks

TE ENVIE EL MANUAL A TU CORREO PERSONAL

 

SALUDOS

DANTE

--- El lun 20-abr-09, Marcelo Luna <marceloluna32@ yahoo.com. ar> escribió:

De: Marcelo Luna <marceloluna32@ yahoo.com. ar>
Asunto: [CA-Clipper] Manual en castellano de libreria clipworks
A: DesarrolloClipper@ gruposyahoo. com.ar
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.

Un saludo cordial.

 

Marcelo Luna 

 


Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/

 


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads. yahoo.com/ ieak8/?l= e1

 


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads.yahoo.com/ieak8/?l=mx

 


¡Viví la mejor experiencia en la web!
Descargá gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=ar


Responder | Reenviar | Mensajes en este tema (8)
#3543 De: Roberto Orlandoni <robertoorlandoni@...>
Fecha: Vie, 17 de Jul, 2009 12:51 pm
Asunto: Re: [CA-Clipper] HOLA. IMPRIMIR EN USB 		robertoorlan...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Sin ningún agregado (red, o programas de 3°) no se puede.

Si dispones de red, compartes la impresora en una pc, la capturas a un LPTn e imprimes desde otra, pero no se puede desde la pc local.

Roberto A. Orlandoni
emailto:robertoorlandoni@...

--- El vie 17-jul-09, minerva contreras <minerva_gcs@...> escribió:

De: minerva contreras <minerva_gcs@...>
Asunto: [CA-Clipper] HOLA. IMPRIMIR EN USB
Para: DesarrolloClipper@...
Fecha: viernes, 17 de julio de 2009, 1:43 am



HOLA. ALGUIEN SABE COMO HACERLO , BAJO PROGRAMACION CLIPPER   se los voy a agradecer
minerva

 

De: dante rios <danteriosg@...>
Para: DesarrolloClipper@...
Enviado: lunes, 20 de abril, 2009 13:52:14
Asunto: Re: [CA-Clipper] Manual en castellano de libreria clipworks

TE ENVIE EL MANUAL A TU CORREO PERSONAL
 
SALUDOS
DANTE

--- El lun 20-abr-09, Marcelo Luna <marceloluna32@ yahoo.com. ar> escribió:
De: Marcelo Luna <marceloluna32@ yahoo.com. ar>
Asunto: [CA-Clipper] Manual en castellano de libreria clipworks
A: DesarrolloClipper@ gruposyahoo. com.ar
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.
Un saludo cordial.
 
Marcelo Luna 


Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads. yahoo.com/ ieak8/?l= e1



¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads.yahoo.com/ieak8/?l=mx



¡Viví la mejor experiencia en la web!
Descargá gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=ar

Responder | Reenviar | Mensajes en este tema (8)
#3542 De: minerva contreras <minerva_gcs@...>
Fecha: Vie, 17 de Jul, 2009 4:43 am
Asunto: HOLA. IMPRIMIR EN USB 		minerva_gcs
Sin conexión Sin conexión
Enviar correo Enviar correo
 
HOLA. ALGUIEN SABE COMO HACERLO , BAJO PROGRAMACION CLIPPER   se los voy a agradecer
minerva

 

De: dante rios <danteriosg@...>
Para: DesarrolloClipper@...
Enviado: lunes, 20 de abril, 2009 13:52:14
Asunto: Re: [CA-Clipper] Manual en castellano de libreria clipworks

TE ENVIE EL MANUAL A TU CORREO PERSONAL
 
SALUDOS
DANTE

--- El lun 20-abr-09, Marcelo Luna <marceloluna32@ yahoo.com. ar> escribió:
De: Marcelo Luna <marceloluna32@ yahoo.com. ar>
Asunto: [CA-Clipper] Manual en castellano de libreria clipworks
A: DesarrolloClipper@ gruposyahoo. com.ar
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.
Un saludo cordial.
 
Marcelo Luna 


Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads. yahoo.com/ ieak8/?l= e1



¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8.br> http://downloads.yahoo.com/ieak8/?l=mx

Responder | Reenviar | Mensajes en este tema (8)
#3541 De: Marcelo Luna <marceloluna32@...>
Fecha: Jue, 9 de Jul, 2009 5:03 pm
Asunto: Corres Sistema Hecho en clipper desde Linux 		marceloluna32
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Estimados colegas, buenas tardes.
Necesitaria consultarles cómo puedo hacer para correr un sistema que hice en clipper en Linux.  Agradeceré me puedan ayudar en este tema.
 
Un saludo cordial para todos.
 
Marcelo Luna
Analista Programador
Neuquen
--- El mié 8-jul-09, dante rios <danteriosg@...> escribió:

De: dante rios <danteriosg@...>
Asunto: Re: [CA-Clipper] IMPRIMIR EN USB
Para: DesarrolloClipper@...
Fecha: miércoles, 8 de julio de 2009, 6:57 pm

solucione el tema evitando que genere el eject
 
Saludos


____________ _______
Dante Rios Goyburu
RPC 054-959741858
RPM #623781
Fijo: 054-289786

--- El mié 8-jul-09, Roberto Ignacio Franco Ayala <fishmanpy00@ yahoo.com> escribió:

De: Roberto Ignacio Franco Ayala <fishmanpy00@ yahoo.com>
Asunto: [CA-Clipper] IMPRIMIR EN USB
A: DesarrolloClipper@ gruposyahoo. com.ar
Fecha: miércoles, 8 julio, 2009, 2:02 pm

AMIGOS, ESTOY UTIZANDO EL NODOSIMP.EXE PARA IMPRIMIR DESDE UN PROGRAMA EN CLIPPER, PERO LUEGO DE LA PRIMERA IMPRESION, SIEMPRE ME ANTEPONE UN HOJA EN BLANCO A TODOS LOS DEMAS DOCUMENTOS A IMPRIMIR.
 
ALGUIEN ME PUEDE DECIR SI ES POSIBLE OBVIAR ESE DOLOR D ECABEZA?
 O COMO PODRIA REALIZAR LA IMPRESION A PUERTO USB?
 
** UTILIZO EN UNA PC PERSONAL, Y ya hice la`prueba con net use lp1: etc. , etc y no me funciona. o si por ahi me podrian decir como debe escribirse el comando les agradecera.
 
Franco
Saludos desde Asunción del Paraguay 


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads. yahoo.com/ ieak8/?l= e1


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads. yahoo.com/ ieak8/?l= e1


¡Viví la mejor experiencia en la web!
Descargá gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=ar

Responder | Reenviar | Mensajes en este tema (1)
#3540 De: dante rios <danteriosg@...>
Fecha: Mié, 8 de Jul, 2009 9:57 pm
Asunto: Re: [CA-Clipper] IMPRIMIR EN USB 		danteriosg
Sin conexión Sin conexión
Enviar correo Enviar correo
 
solucione el tema evitando que genere el eject
 
Saludos


___________________
Dante Rios Goyburu
RPC 054-959741858
RPM #623781
Fijo: 054-289786

--- El mié 8-jul-09, Roberto Ignacio Franco Ayala <fishmanpy00@...> escribió:

De: Roberto Ignacio Franco Ayala <fishmanpy00@...>
Asunto: [CA-Clipper] IMPRIMIR EN USB
A: DesarrolloClipper@...
Fecha: miércoles, 8 julio, 2009, 2:02 pm

AMIGOS, ESTOY UTIZANDO EL NODOSIMP.EXE PARA IMPRIMIR DESDE UN PROGRAMA EN CLIPPER, PERO LUEGO DE LA PRIMERA IMPRESION, SIEMPRE ME ANTEPONE UN HOJA EN BLANCO A TODOS LOS DEMAS DOCUMENTOS A IMPRIMIR.
 
ALGUIEN ME PUEDE DECIR SI ES POSIBLE OBVIAR ESE DOLOR D ECABEZA?
 O COMO PODRIA REALIZAR LA IMPRESION A PUERTO USB?
 
** UTILIZO EN UNA PC PERSONAL, Y ya hice la`prueba con net use lp1: etc. , etc y no me funciona. o si por ahi me podrian decir como debe escribirse el comando les agradecera.
 
Franco
Saludos desde Asunción del Paraguay 


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads. yahoo.com/ ieak8/?l= e1


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=e1

Responder | Reenviar | Mensajes en este tema (2)
#3539 De: Roberto Ignacio Franco Ayala <fishmanpy00@...>
Fecha: Mié, 8 de Jul, 2009 7:02 pm
Asunto: IMPRIMIR EN USB 		fishmanpy00
Sin conexión Sin conexión
Enviar correo Enviar correo
 
AMIGOS, ESTOY UTIZANDO EL NODOSIMP.EXE PARA IMPRIMIR DESDE UN PROGRAMA EN CLIPPER, PERO LUEGO DE LA PRIMERA IMPRESION, SIEMPRE ME ANTEPONE UN HOJA EN BLANCO A TODOS LOS DEMAS DOCUMENTOS A IMPRIMIR.
 
ALGUIEN ME PUEDE DECIR SI ES POSIBLE OBVIAR ESE DOLOR D ECABEZA?
 O COMO PODRIA REALIZAR LA IMPRESION A PUERTO USB?
 
** UTILIZO EN UNA PC PERSONAL, Y ya hice la`prueba con net use lp1: etc. , etc y no me funciona. o si por ahi me podrian decir como debe escribirse el comando les agradecera.
 
Franco
Saludos desde Asunción del Paraguay 


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=e1

Responder | Reenviar | Mensajes en este tema (2)
#3538 De: "Mauricio Arnau Sarmiento" <m_arnau@...>
Fecha: Mié, 1 de Jul, 2009 5:34 pm
Asunto: Re: [CA-Clipper] AYUDA - FISCAL HASAR 715 		marnaufoco
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Eduardo, buenas tardes, te paso el siguiente link:
 
 
Es la página de la impresora, sobre el lado derecho encontrarás links para bajarte algunos PDFs y un archivo ZIP que contiene lo que estás buscando. Tiene Manuales, ejemplos (entre ellos para Clipper), etc.
 
Saludos Cordiales
Mauricio Arnau Sarmiento
http://www.arnau.com.ar
----- Original Message -----
Sent: Tuesday, June 30, 2009 4:23 PM
Subject: [CA-Clipper] AYUDA - FISCAL HASAR 715

Colegas, tengo una impresora fiscal 715, me darian una mano con la impresion de factura, tengo que imprimir una linea y un importe, uy los clientes son todos consumidores fiscales, tendrian parte de codigo para hacer este procedimiento y si me pueden pasar las librerias, desde ya muchas gracias.


Responder | Reenviar | Mensajes en este tema (2)
#3537 De: "Eduardo Martinez" <eduardo862005@...>
Fecha: Mar, 30 de Jun, 2009 7:23 pm
Asunto: AYUDA - FISCAL HASAR 715 		eduardo862005
Sin conexión Sin conexión
Enviar correo Enviar correo
  
Colegas, tengo una impresora fiscal 715, me darian una mano con la impresion de
factura, tengo que imprimir una linea y un importe, uy los clientes son todos
consumidores fiscales, tendrian parte de codigo para hacer este procedimiento y
si me pueden pasar las librerias, desde ya muchas gracias.

Responder | Reenviar | Mensajes en este tema (2)
#3536 De: Antonio Cardinaux <ancardinaux@...>
Fecha: Mié, 1 de Jul, 2009 12:54 pm
Asunto: Re: [CA-Clipper] Consulta acerca de impresoras 		ancardinaux
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola Charly

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

Responder | Reenviar | Mensajes en este tema (4)
#3535 De: Roberto Orlandoni <robertoorlandoni@...>
Fecha: Mar, 30 de Jun, 2009 4:22 pm
Asunto: Re: [CA-Clipper] Consulta acerca de impresoras 		robertoorlan...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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

Responder | Reenviar | Mensajes en este tema (4)
#3534 De: "Charly Vega" <cfvega@...>
Fecha: Mar, 30 de Jun, 2009 12:05 pm
Asunto: Re: [CA-Clipper] Consulta acerca de impresoras 		cfvega2007
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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.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


Responder | Reenviar | Mensajes en este tema (4)
#3533 De: Antonio Cardinaux <ancardinaux@...>
Fecha: Mar, 30 de Jun, 2009 11:55 am
Asunto: Consulta acerca de impresoras 		ancardinaux
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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

Responder | Reenviar | Mensajes en este tema (4)
#3532 De: Marcelo Antonio Lázzaro Carli <malcarli@...>
Fecha: Mar, 16 de Jun, 2009 8:16 pm
Asunto: Fw: OFF - erro de gravação no windows 		malcarli
Sin conexión Sin conexión
Enviar correo Enviar correo
 
 
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 ®
 
        http://br.geocities.com/malcarli
              http://marcelo.lx.com.br
      email / msn: malcarli@...
 
******************************************************************************
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)
******************************************************************************

Responder | Reenviar | Mensajes en este tema (1)
#3531 De: Antonio Cardinaux <ancardinaux@...>
Fecha: Mar, 16 de Jun, 2009 1:09 pm
Asunto: DBUxHB.zip 		ancardinaux
Sin conexión Sin conexión
Enviar correo Enviar correo
 
De donde bajo DBUxHB.ZIP ?
 




Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer.yahoo.com/cocina/

Responder | Reenviar | Mensajes en este tema (1)
#3530 De: Hector Jhon Guillen Liendo <hectorjhon59@...>
Fecha: Mar, 16 de Jun, 2009 12:05 pm
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN 		hectorjhon59
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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
 
   IF P2 == NIL .OR. P2 < 0
 
      P2 := 0
 
   ENDIF
 
   IF P3 == NIL .OR. P3 < 0
 
      P3 := 0
 
   ENDIF
 
   IF P4 == NIL .OR. P4 > MAXROW()
 
      P4 := MAXROW()
 
   ENDIF
 
   IF P5 == NIL .OR. P5 > MAXCOL()
 
      P5 := MAXCOL()
 
   ENDIF
 
   P6 := SETCOLOR(P6)
 
   IF (L7 := FOPEN(P1, 32)) <> -1
 
      SCROLL(P2, P3, P4, P5)
      SETPOS(P4, P3)
      L22 := ""
*      AEVAL({86, 73, 69, 87, 69, 82, 32, 49, 46, 48, 32, 115, 104, 97, 114,;
*             101, 119, 97, 114, 101, 46, 32, 80, 108, 101, 97, 115, 101, ;
*            32, 114, 101, 103, 105, 115, 116, 101, 114, 32, 105, 116, 46}, ;
*            {|BL1|L22 := L22 + CHR(BL1)})
      DISPOUT(SUBSTR( L22, 1, P5 - P3 + 1))
      L22 := NIL
      --P4
      L8 := FSEEK(L7, 0, 2)
      L11 := P4 - P2 + 1
      L12 := P5 - P3 + 1
      L9 := {}
      L10 := {FSEEK(L7, 0, 0)}
      L13 := 0
 
      DO WHILE L13 < L11 .AND. ATAIL(L10) < L8
 
         AADD(L9, NEXTLINE(L7) )
         AADD(L10, FSEEK(L7, 0, 1))
         ++L13
 
      ENDDO
 
      L16 := L11 := L13
 
      DO WHILE  !L14
 
         IF L17 <> 0
 
            L18 := MAX(L18 + L17, 1)
            DISPBEGIN()
 
            FOR L13 := 1 TO L11
 
               SETPOS(P2 + L13 - 1, P3)
               DISPOUT(PAD( SUBSTR(L9[ L13], L18), L12))
 
            NEXT
 
            DISPEND()
            L17 := 0
 
         ENDIF
 
         IF L16 <> 0
 
            SCROLL(P2, P3, P4, P5, L16)
 
            IF L16 > 0
 
               L20 := L11
 
            ELSE
 
               L20 := 1
 
            ENDIF
 
            L21 := L16 / ABS(L16)
            L19 := L20 - L16 + L21
 
            FOR L13 := L19 TO L20 STEP L21
 
               SETPOS(P2 - 1 + L13, P3)
               DISPOUT(SUBSTR( L9[L13], L18, L12))
 
            NEXT
 
            L16 := 0
 
         ENDIF
 
         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
 
         CASE L15 == 27
 
            L14 := .T.
 
         CASE L15 == 24
 
            L16 := 1
 
         CASE L15 == 5
 
            L16 := -1
 
         CASE L15 == 3
 
            L16 := L11
 
         CASE L15 == 18
 
            L16 :=  -L11
 
         CASE L15 == 30
 
            IF ATAIL(L10) < L8
 
               L10[1] := L8
               L16 :=  -L11
 
            ENDIF
 
         CASE L15 == 31
 
            IF L10[1] > 0
 
               L10[L11 + 1] := 0
               L16 := L11
 
            ENDIF
 
         CASE L15 == 4
 
            L17 := 1
 
         CASE L15 == 19
 
            L17 := -1
 
         CASE L15 == 2
 
            L17 := 10
 
         CASE L15 == 26
 
            L17 := -10
 
         CASE L15 == 6
 
            L17 := MAX(AMAX(L9) - L12 + 1, 1) - L18 + L17
 
         CASE L15 == 1
 
            L17 := 1 - L18
 
         END CASE
 
         IF L16 > 0
 
            FSEEK(L7, ATAIL(L10), 0)
            L13 := 0
 
            DO WHILE L13 < L16 .AND. ATAIL(L10) < L8
 
               ADEL(L9, 1)[L11] := NEXTLINE(L7)
               ADEL(L10, 1)[L11 + 1] := FSEEK(L7, 0, 1)
               ++L13
 
            ENDDO
 
            L16 := L13
 
         ELSEIF L16 < 0
 
            FSEEK(L7, L10[1], 0)
            L13 := 0
 
            DO WHILE L13 > L16 .AND. L10[1] > 0
 
               AINS(L9, 1)[1] := PREVLINE(L7)
               AINS(L10, 1)[1] := FSEEK(L7, 0, 1)
               --L13
 
            ENDDO
 
            L16 := L13
 
         ENDIF
 
      ENDDO
 
      FCLOSE(L7)
 
   ENDIF
 
   SETCOLOR(P6)
 
RETURN
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: NEXTLINE
   PARAMS: P1
   RETURN: STRING
  EXAMPLE: NEXTLINE(P1)
  ............ ......... ......... ......... ......... ......... ......... ........
*/
 
STATIC FUNCTION NEXTLINE(P1)
 
   LOCAL L2, L3, L4 := ""
   LOCAL L5 := 0
   LOCAL L6, L7 := .F.
   LOCAL L8 := .F.
   LOCAL L9, L10
 
   DO WHILE  !(L7 .OR. L8)
 
      L2 := SPACE(160)
      L7 := (L6 := FREAD(P1, @L2, 160)) < 160
      L4 := L4 + SUBSTR(L2, 1, L6)
      L5 := L5 + L6
      L9 := AT(CHR(13)+CHR( 10), L4)
      L10 := AT(CHR(12), L4)
 
      IF L9 == 0 .OR. L10 == 0
 
         L3 := MAX(L9, L10)
 
      ELSE
 
         L3 := MIN(L9, L10)
 
      ENDIF
 
      IF L8 := L3 > 0
 
         FSEEK(P1, L3 - L5 + IF(L3 == L9, 1, 0), 1)
         L4 := SUBSTR(L4, 1, L3 - 1)
 
      ENDIF
 
   ENDDO
 
 
RETURN L4
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: AMAX
   PARAMS: P1
   RETURN: NUMBER
  EXAMPLE: AMAX(P1)
  ............ ......... ......... ......... ......... ......... ......... ........
*/
 
STATIC FUNCTION AMAX(P1)
 
   LOCAL L2 := 0
 
   AEVAL(P1, {|BL1|L2 := MAX(L2, LEN(BL1))})
 
RETURN L2
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: PREVLINE
   PARAMS: P1
   RETURN: STRING
  EXAMPLE: PREVLINE(P1)
  ............ ......... ......... ......... ......... ......... ......... ........
*/
 
STATIC FUNCTION PREVLINE(P1)
 
   LOCAL L2, L3, L4 := ""
   LOCAL L5 := 0
   LOCAL L6, L7 := .F.
   LOCAL L8 := .F.
   LOCAL L9, L10
 
   IF FSEEK(P1, 0, 1) > 0
 
      FSEEK(P1, -1, 1)
      L2 := " "
      FREAD(P1, @L2, 1)
 
      IF L2 == CHR(12)
 
         FSEEK(P1, -1, 1)
 
      ELSEIF L2 == CHR(10)
 
         FSEEK(P1, -2, 1)
 
      ENDIF
 
   ENDIF
 
   DO WHILE  !(L7 .OR. L8)
 
      L7 := (L6 := MIN(160, FSEEK(P1, 0, 1))) < 160
      L2 := SPACE(L6)
      FSEEK(P1,  -L6, 1)
      FREAD(P1, @L2, L6)
      FSEEK(P1,  -L6, 1)
      L4 := L2 + L4
      L5 := L5 + L6
      L9 := RAT(CHR(13)+ CHR(10), L4)
      L10 := RAT(CHR(12), L4)
      L3 := MAX(L9, L10)
 
      IF L8 := L3 > 0
 
         FSEEK(P1, L3 + IF(L3 == L9, 1, 0), 1)
         L4 := SUBSTR(L4, L3 + 1 + IF(L3 == L9, 1, 0))
 
      ENDIF
 
   ENDDO
 
 
RETURN L4
 
SALUDOS
DANTE


--- El lun 8-jun-09, Hector Jhon Guillen Liendo <hectorjhon59@ yahoo.com. ar> escribió:

De: Hector Jhon Guillen Liendo <hectorjhon59@ yahoo.com. ar>
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN
A: DesarrolloClipper@ gruposyahoo. com.ar
Fecha: lunes, 8 junio, 2009, 12:29 pm

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@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> escribió:

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

Puede acceder al archivo en la dirección

http://ar.groups. yahoo.com/ group/Desarrollo Clipper/files/ DBU.rar

Para más información acerca de cómo compartir archivos con su grupo,
consulte nuestra sección de ayuda en

http://help. yahoo.com/ help/ar/groups/ files

Atentamente,

alceu11 <alceu11@yahoo. com.br>




Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads. yahoo.com/ ieak8/?l= e1


Yahoo! Cocina Registrate y cargá tu receta. Podés ganar premios
www.promorecetas.com

Responder | Reenviar | Mensajes en este tema (5)
#3529 De: Hector Jhon Guillen Liendo <hectorjhon59@...>
Fecha: Mar, 9 de Jun, 2009 3:30 pm
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN 		hectorjhon59
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola Pasales...es un programa con extension .com
Ahi te lo envio...no creo que puedas hacer gran cosa.
Un abrazo
PD.- Utilizo el freetslice para liberar memoria en mis aplicaciones clipper
pero como no puedo recompilar el readme , no puedo aplicar este modulo.


--- El lun 8-jun-09, Pasales <Pasales@...> escribió:

De: Pasales <Pasales@...>
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN
Para: hectorjhon59@...
Fecha: lunes, 8 de junio de 2009, 12:36 pm

Hector:
Si no te importa agradecería me envies el README.COM para hacer comprobación del problema de la lentitud.
 
Saludos
Pasales
 
----- Original Message -----
Sent: Monday, June 08, 2009 7:29 PM
Subject: Re: [CA-Clipper] Programa que lee archivos .PRN

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@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> escribió:

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

Puede acceder al archivo en la dirección

http://ar.groups. yahoo.com/ group/Desarrollo Clipper/files/ DBU.rar

Para más información acerca de cómo compartir archivos con su grupo,
consulte nuestra sección de ayuda en

http://help. yahoo.com/ help/ar/groups/ files

Atentamente,

alceu11 <alceu11@yahoo. com.br>




Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/


Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer.yahoo.com/cocina/

Responder | Reenviar | Mensajes en este tema (5)
#3528 De: Hector Jhon Guillen Liendo <hectorjhon59@...>
Fecha: Mar, 9 de Jun, 2009 3:23 pm
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN 		hectorjhon59
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola dante...gracias por responder, lo probare.
 
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
 
   IF P2 == NIL .OR. P2 < 0
 
      P2 := 0
 
   ENDIF
 
   IF P3 == NIL .OR. P3 < 0
 
      P3 := 0
 
   ENDIF
 
   IF P4 == NIL .OR. P4 > MAXROW()
 
      P4 := MAXROW()
 
   ENDIF
 
   IF P5 == NIL .OR. P5 > MAXCOL()
 
      P5 := MAXCOL()
 
   ENDIF
 
   P6 := SETCOLOR(P6)
 
   IF (L7 := FOPEN(P1, 32)) <> -1
 
      SCROLL(P2, P3, P4, P5)
      SETPOS(P4, P3)
      L22 := ""
*      AEVAL({86, 73, 69, 87, 69, 82, 32, 49, 46, 48, 32, 115, 104, 97, 114,;
*             101, 119, 97, 114, 101, 46, 32, 80, 108, 101, 97, 115, 101, ;
*            32, 114, 101, 103, 105, 115, 116, 101, 114, 32, 105, 116, 46}, ;
*            {|BL1|L22 := L22 + CHR(BL1)})
      DISPOUT(SUBSTR( L22, 1, P5 - P3 + 1))
      L22 := NIL
      --P4
      L8 := FSEEK(L7, 0, 2)
      L11 := P4 - P2 + 1
      L12 := P5 - P3 + 1
      L9 := {}
      L10 := {FSEEK(L7, 0, 0)}
      L13 := 0
 
      DO WHILE L13 < L11 .AND. ATAIL(L10) < L8
 
         AADD(L9, NEXTLINE(L7) )
         AADD(L10, FSEEK(L7, 0, 1))
         ++L13
 
      ENDDO
 
      L16 := L11 := L13
 
      DO WHILE  !L14
 
         IF L17 <> 0
 
            L18 := MAX(L18 + L17, 1)
            DISPBEGIN()
 
            FOR L13 := 1 TO L11
 
               SETPOS(P2 + L13 - 1, P3)
               DISPOUT(PAD( SUBSTR(L9[ L13], L18), L12))
 
            NEXT
 
            DISPEND()
            L17 := 0
 
         ENDIF
 
         IF L16 <> 0
 
            SCROLL(P2, P3, P4, P5, L16)
 
            IF L16 > 0
 
               L20 := L11
 
            ELSE
 
               L20 := 1
 
            ENDIF
 
            L21 := L16 / ABS(L16)
            L19 := L20 - L16 + L21
 
            FOR L13 := L19 TO L20 STEP L21
 
               SETPOS(P2 - 1 + L13, P3)
               DISPOUT(SUBSTR( L9[L13], L18, L12))
 
            NEXT
 
            L16 := 0
 
         ENDIF
 
         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
 
         CASE L15 == 27
 
            L14 := .T.
 
         CASE L15 == 24
 
            L16 := 1
 
         CASE L15 == 5
 
            L16 := -1
 
         CASE L15 == 3
 
            L16 := L11
 
         CASE L15 == 18
 
            L16 :=  -L11
 
         CASE L15 == 30
 
            IF ATAIL(L10) < L8
 
               L10[1] := L8
               L16 :=  -L11
 
            ENDIF
 
         CASE L15 == 31
 
            IF L10[1] > 0
 
               L10[L11 + 1] := 0
               L16 := L11
 
            ENDIF
 
         CASE L15 == 4
 
            L17 := 1
 
         CASE L15 == 19
 
            L17 := -1
 
         CASE L15 == 2
 
            L17 := 10
 
         CASE L15 == 26
 
            L17 := -10
 
         CASE L15 == 6
 
            L17 := MAX(AMAX(L9) - L12 + 1, 1) - L18 + L17
 
         CASE L15 == 1
 
            L17 := 1 - L18
 
         END CASE
 
         IF L16 > 0
 
            FSEEK(L7, ATAIL(L10), 0)
            L13 := 0
 
            DO WHILE L13 < L16 .AND. ATAIL(L10) < L8
 
               ADEL(L9, 1)[L11] := NEXTLINE(L7)
               ADEL(L10, 1)[L11 + 1] := FSEEK(L7, 0, 1)
               ++L13
 
            ENDDO
 
            L16 := L13
 
         ELSEIF L16 < 0
 
            FSEEK(L7, L10[1], 0)
            L13 := 0
 
            DO WHILE L13 > L16 .AND. L10[1] > 0
 
               AINS(L9, 1)[1] := PREVLINE(L7)
               AINS(L10, 1)[1] := FSEEK(L7, 0, 1)
               --L13
 
            ENDDO
 
            L16 := L13
 
         ENDIF
 
      ENDDO
 
      FCLOSE(L7)
 
   ENDIF
 
   SETCOLOR(P6)
 
RETURN
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: NEXTLINE
   PARAMS: P1
   RETURN: STRING
  EXAMPLE: NEXTLINE(P1)
  ............ ......... ......... ......... ......... ......... ......... ........
*/
 
STATIC FUNCTION NEXTLINE(P1)
 
   LOCAL L2, L3, L4 := ""
   LOCAL L5 := 0
   LOCAL L6, L7 := .F.
   LOCAL L8 := .F.
   LOCAL L9, L10
 
   DO WHILE  !(L7 .OR. L8)
 
      L2 := SPACE(160)
      L7 := (L6 := FREAD(P1, @L2, 160)) < 160
      L4 := L4 + SUBSTR(L2, 1, L6)
      L5 := L5 + L6
      L9 := AT(CHR(13)+CHR( 10), L4)
      L10 := AT(CHR(12), L4)
 
      IF L9 == 0 .OR. L10 == 0
 
         L3 := MAX(L9, L10)
 
      ELSE
 
         L3 := MIN(L9, L10)
 
      ENDIF
 
      IF L8 := L3 > 0
 
         FSEEK(P1, L3 - L5 + IF(L3 == L9, 1, 0), 1)
         L4 := SUBSTR(L4, 1, L3 - 1)
 
      ENDIF
 
   ENDDO
 
 
RETURN L4
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: AMAX
   PARAMS: P1
   RETURN: NUMBER
  EXAMPLE: AMAX(P1)
  ............ ......... ......... ......... ......... ......... ......... ........
*/
 
STATIC FUNCTION AMAX(P1)
 
   LOCAL L2 := 0
 
   AEVAL(P1, {|BL1|L2 := MAX(L2, LEN(BL1))})
 
RETURN L2
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: PREVLINE
   PARAMS: P1
   RETURN: STRING
  EXAMPLE: PREVLINE(P1)
  ............ ......... ......... ......... ......... ......... ......... ........
*/
 
STATIC FUNCTION PREVLINE(P1)
 
   LOCAL L2, L3, L4 := ""
   LOCAL L5 := 0
   LOCAL L6, L7 := .F.
   LOCAL L8 := .F.
   LOCAL L9, L10
 
   IF FSEEK(P1, 0, 1) > 0
 
      FSEEK(P1, -1, 1)
      L2 := " "
      FREAD(P1, @L2, 1)
 
      IF L2 == CHR(12)
 
         FSEEK(P1, -1, 1)
 
      ELSEIF L2 == CHR(10)
 
         FSEEK(P1, -2, 1)
 
      ENDIF
 
   ENDIF
 
   DO WHILE  !(L7 .OR. L8)
 
      L7 := (L6 := MIN(160, FSEEK(P1, 0, 1))) < 160
      L2 := SPACE(L6)
      FSEEK(P1,  -L6, 1)
      FREAD(P1, @L2, L6)
      FSEEK(P1,  -L6, 1)
      L4 := L2 + L4
      L5 := L5 + L6
      L9 := RAT(CHR(13)+ CHR(10), L4)
      L10 := RAT(CHR(12), L4)
      L3 := MAX(L9, L10)
 
      IF L8 := L3 > 0
 
         FSEEK(P1, L3 + IF(L3 == L9, 1, 0), 1)
         L4 := SUBSTR(L4, L3 + 1 + IF(L3 == L9, 1, 0))
 
      ENDIF
 
   ENDDO
 
 
RETURN L4
 
SALUDOS
DANTE


--- El lun 8-jun-09, Hector Jhon Guillen Liendo <hectorjhon59@ yahoo.com. ar> escribió:

De: Hector Jhon Guillen Liendo <hectorjhon59@ yahoo.com. ar>
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN
A: DesarrolloClipper@ gruposyahoo. com.ar
Fecha: lunes, 8 junio, 2009, 12:29 pm

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@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> escribió:

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

Puede acceder al archivo en la dirección

http://ar.groups. yahoo.com/ group/Desarrollo Clipper/files/ DBU.rar

Para más información acerca de cómo compartir archivos con su grupo,
consulte nuestra sección de ayuda en

http://help. yahoo.com/ help/ar/groups/ files

Atentamente,

alceu11 <alceu11@yahoo. com.br>




Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads. yahoo.com/ ieak8/?l= e1


Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer.yahoo.com/cocina/

Responder | Reenviar | Mensajes en este tema (5)
#3527 De: dante rios <danteriosg@...>
Fecha: Lun, 8 de Jun, 2009 5:38 pm
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN 		danteriosg
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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
 
   IF P2 == NIL .OR. P2 < 0
 
      P2 := 0
 
   ENDIF
 
   IF P3 == NIL .OR. P3 < 0
 
      P3 := 0
 
   ENDIF
 
   IF P4 == NIL .OR. P4 > MAXROW()
 
      P4 := MAXROW()
 
   ENDIF
 
   IF P5 == NIL .OR. P5 > MAXCOL()
 
      P5 := MAXCOL()
 
   ENDIF
 
   P6 := SETCOLOR(P6)
 
   IF (L7 := FOPEN(P1, 32)) <> -1
 
      SCROLL(P2, P3, P4, P5)
      SETPOS(P4, P3)
      L22 := ""
*      AEVAL({86, 73, 69, 87, 69, 82, 32, 49, 46, 48, 32, 115, 104, 97, 114,;
*             101, 119, 97, 114, 101, 46, 32, 80, 108, 101, 97, 115, 101, ;
*            32, 114, 101, 103, 105, 115, 116, 101, 114, 32, 105, 116, 46}, ;
*            {|BL1|L22 := L22 + CHR(BL1)})
      DISPOUT(SUBSTR(L22, 1, P5 - P3 + 1))
      L22 := NIL
      --P4
      L8 := FSEEK(L7, 0, 2)
      L11 := P4 - P2 + 1
      L12 := P5 - P3 + 1
      L9 := {}
      L10 := {FSEEK(L7, 0, 0)}
      L13 := 0
 
      DO WHILE L13 < L11 .AND. ATAIL(L10) < L8
 
         AADD(L9, NEXTLINE(L7))
         AADD(L10, FSEEK(L7, 0, 1))
         ++L13
 
      ENDDO
 
      L16 := L11 := L13
 
      DO WHILE  !L14
 
         IF L17 <> 0
 
            L18 := MAX(L18 + L17, 1)
            DISPBEGIN()
 
            FOR L13 := 1 TO L11
 
               SETPOS(P2 + L13 - 1, P3)
               DISPOUT(PAD(SUBSTR(L9[L13], L18), L12))
 
            NEXT
 
            DISPEND()
            L17 := 0
 
         ENDIF
 
         IF L16 <> 0
 
            SCROLL(P2, P3, P4, P5, L16)
 
            IF L16 > 0
 
               L20 := L11
 
            ELSE
 
               L20 := 1
 
            ENDIF
 
            L21 := L16 / ABS(L16)
            L19 := L20 - L16 + L21
 
            FOR L13 := L19 TO L20 STEP L21
 
               SETPOS(P2 - 1 + L13, P3)
               DISPOUT(SUBSTR(L9[L13], L18, L12))
 
            NEXT
 
            L16 := 0
 
         ENDIF
 
         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
 
         CASE L15 == 27
 
            L14 := .T.
 
         CASE L15 == 24
 
            L16 := 1
 
         CASE L15 == 5
 
            L16 := -1
 
         CASE L15 == 3
 
            L16 := L11
 
         CASE L15 == 18
 
            L16 :=  -L11
 
         CASE L15 == 30
 
            IF ATAIL(L10) < L8
 
               L10[1] := L8
               L16 :=  -L11
 
            ENDIF
 
         CASE L15 == 31
 
            IF L10[1] > 0
 
               L10[L11 + 1] := 0
               L16 := L11
 
            ENDIF
 
         CASE L15 == 4
 
            L17 := 1
 
         CASE L15 == 19
 
            L17 := -1
 
         CASE L15 == 2
 
            L17 := 10
 
         CASE L15 == 26
 
            L17 := -10
 
         CASE L15 == 6
 
            L17 := MAX(AMAX(L9) - L12 + 1, 1) - L18 + L17
 
         CASE L15 == 1
 
            L17 := 1 - L18
 
         END CASE
 
         IF L16 > 0
 
            FSEEK(L7, ATAIL(L10), 0)
            L13 := 0
 
            DO WHILE L13 < L16 .AND. ATAIL(L10) < L8
 
               ADEL(L9, 1)[L11] := NEXTLINE(L7)
               ADEL(L10, 1)[L11 + 1] := FSEEK(L7, 0, 1)
               ++L13
 
            ENDDO
 
            L16 := L13
 
         ELSEIF L16 < 0
 
            FSEEK(L7, L10[1], 0)
            L13 := 0
 
            DO WHILE L13 > L16 .AND. L10[1] > 0
 
               AINS(L9, 1)[1] := PREVLINE(L7)
               AINS(L10, 1)[1] := FSEEK(L7, 0, 1)
               --L13
 
            ENDDO
 
            L16 := L13
 
         ENDIF
 
      ENDDO
 
      FCLOSE(L7)
 
   ENDIF
 
   SETCOLOR(P6)
 
RETURN
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: NEXTLINE
   PARAMS: P1
   RETURN: STRING
  EXAMPLE: NEXTLINE(P1)
  ..........................................................................
*/
 
STATIC FUNCTION NEXTLINE(P1)
 
   LOCAL L2, L3, L4 := ""
   LOCAL L5 := 0
   LOCAL L6, L7 := .F.
   LOCAL L8 := .F.
   LOCAL L9, L10
 
   DO WHILE  !(L7 .OR. L8)
 
      L2 := SPACE(160)
      L7 := (L6 := FREAD(P1, @L2, 160)) < 160
      L4 := L4 + SUBSTR(L2, 1, L6)
      L5 := L5 + L6
      L9 := AT(CHR(13)+CHR(10), L4)
      L10 := AT(CHR(12), L4)
 
      IF L9 == 0 .OR. L10 == 0
 
         L3 := MAX(L9, L10)
 
      ELSE
 
         L3 := MIN(L9, L10)
 
      ENDIF
 
      IF L8 := L3 > 0
 
         FSEEK(P1, L3 - L5 + IF(L3 == L9, 1, 0), 1)
         L4 := SUBSTR(L4, 1, L3 - 1)
 
      ENDIF
 
   ENDDO
 
 
RETURN L4
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: AMAX
   PARAMS: P1
   RETURN: NUMBER
  EXAMPLE: AMAX(P1)
  ..........................................................................
*/
 
STATIC FUNCTION AMAX(P1)
 
   LOCAL L2 := 0
 
   AEVAL(P1, {|BL1|L2 := MAX(L2, LEN(BL1))})
 
RETURN L2
 
/* ------ RESCUE5 1.00(D) (C) APTWARE 1993,94 ------
     NAME: PREVLINE
   PARAMS: P1
   RETURN: STRING
  EXAMPLE: PREVLINE(P1)
  ..........................................................................
*/
 
STATIC FUNCTION PREVLINE(P1)
 
   LOCAL L2, L3, L4 := ""
   LOCAL L5 := 0
   LOCAL L6, L7 := .F.
   LOCAL L8 := .F.
   LOCAL L9, L10
 
   IF FSEEK(P1, 0, 1) > 0
 
      FSEEK(P1, -1, 1)
      L2 := " "
      FREAD(P1, @L2, 1)
 
      IF L2 == CHR(12)
 
         FSEEK(P1, -1, 1)
 
      ELSEIF L2 == CHR(10)
 
         FSEEK(P1, -2, 1)
 
      ENDIF
 
   ENDIF
 
   DO WHILE  !(L7 .OR. L8)
 
      L7 := (L6 := MIN(160, FSEEK(P1, 0, 1))) < 160
      L2 := SPACE(L6)
      FSEEK(P1,  -L6, 1)
      FREAD(P1, @L2, L6)
      FSEEK(P1,  -L6, 1)
      L4 := L2 + L4
      L5 := L5 + L6
      L9 := RAT(CHR(13)+CHR(10), L4)
      L10 := RAT(CHR(12), L4)
      L3 := MAX(L9, L10)
 
      IF L8 := L3 > 0
 
         FSEEK(P1, L3 + IF(L3 == L9, 1, 0), 1)
         L4 := SUBSTR(L4, L3 + 1 + IF(L3 == L9, 1, 0))
 
      ENDIF
 
   ENDDO
 
 
RETURN L4
 
SALUDOS
DANTE


--- El lun 8-jun-09, Hector Jhon Guillen Liendo <hectorjhon59@...> escribió:

De: Hector Jhon Guillen Liendo <hectorjhon59@...>
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN
A: DesarrolloClipper@...
Fecha: lunes, 8 junio, 2009, 12:29 pm

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@ gruposyahoo. com.ar <DesarrolloClipper@ gruposyahoo. com.ar> escribió:

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

Puede acceder al archivo en la dirección

http://ar.groups. yahoo.com/ group/Desarrollo Clipper/files/ DBU.rar

Para más información acerca de cómo compartir archivos con su grupo,
consulte nuestra sección de ayuda en

http://help. yahoo.com/ help/ar/groups/ files

Atentamente,

alceu11 <alceu11@yahoo. com.br>




Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer. yahoo.com/ cocina/


¡Obtén la mejor experiencia en la web!
Descarga gratis el nuevo Internet Explorer 8
http://downloads.yahoo.com/ieak8/?l=e1

Responder | Reenviar | Mensajes en este tema (5)
#3526 De: Hector Jhon Guillen Liendo <hectorjhon59@...>
Fecha: Lun, 8 de Jun, 2009 5:29 pm
Asunto: Re: [CA-Clipper] Programa que lee archivos .PRN 		hectorjhon59
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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

Puede acceder al archivo en la dirección

http://ar.groups. yahoo.com/ group/Desarrollo Clipper/files/ DBU.rar

Para más información acerca de cómo compartir archivos con su grupo,
consulte nuestra sección de ayuda en

http://help. yahoo.com/ help/ar/groups/ files

Atentamente,

alceu11 <alceu11@yahoo. com.br>




Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer.yahoo.com/cocina/

Responder | Reenviar | Mensajes en este tema (5)
#3525 De: DesarrolloClipper@...
Fecha: Sáb, 6 de Jun, 2009 2:34 am
Asunto: Encuesta nueva en DesarrolloClipper 		DesarrolloClipper@...
Enviar correo Enviar correo
  
¡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!

Responder | Reenviar | Mensajes en este tema (2)
#3524 De: DesarrolloClipper@...
Fecha: Sáb, 6 de Jun, 2009 2:29 am
Asunto: Encuesta nueva en DesarrolloClipper 		DesarrolloClipper@...
Enviar correo Enviar correo
  
¡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!

Responder | Reenviar | Mensajes en este tema (2)
#3523 De: juliogomezc@...
Fecha: Mié, 3 de Jun, 2009 6:30 pm
Asunto: Re: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC 		juliogomezc
Sin conexión Sin conexión
Enviar correo Enviar correo
 
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@...> escribió:

De: Eduardo Rizzolo <fullpaint@...>
Asunto: Re: [CA-Clipper] HARBOUR, MINIGUI Y FIVEWIN, ETC
A: DesarrolloClipper@...
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@...
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

Responder | Reenviar | Mensajes en este tema (7)
Mensajes 3523 - 3552 de 3606   Más reciente  |  < Más reciente  |  Más antiguo >  |  Más antiguo
Mensaje nº
Buscar:
Avanzado
XML ¿Qué es esto?
Copyright © 2009 Yahoo! de Argentina S.R.L. Todos los derechos reservados.
Política de privacidad - Condiciones del Servicio - Reglas de la comunidad de Yahoo! - Ayuda