Entrar
¿Nuevo usuario? Inscribirme
guvoaII · GUVOA Visual Object Español
? ¿Ya estás suscrito? Entra a Yahoo!

Consejos

¿Sabías que...?
Podés hacer búsquedas de antiguos mensajes del grupo.

Mensajes

  Mensajes Ayuda
Avanzado
Mensajes 193 - 222 de 2836   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  
#222 De: "Gustavo Biasone" <gb_guvoa@...>
Fecha: Lun, 10 de Oct, 2005 4:53 pm
Asunto: Re: Error VO 26
Gustavo_S_B
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Proba con esto:
1) Hacer un backup completo del directorio por las dudas :)
2) Borrar los archivos "Repname.ind" y  "Reptype.ind"
3) Reindexar el repositorio desde "Repository Reindex"
 
Otra prueba que podes hacer es borrar _sysatom.vo y renombrar _sysatom.bak (si existiera) a _sysatom.vo. 
 
GB
----- Original Message -----
Sent: Wednesday, October 05, 2005 10:30 AM
Subject: [guvoaII] Error VO 26

Estimados muchachos:

Tengo un problema que nunca me ha ocurrido a ejecutar vo 26 me aparece una ventana en la cual adjunto, tampoco puedo relizar el Repository Reindex

por que me da el mismo error.

Les agradeceria mucho si alguien le ha ocurrido algo asi y/o tienen alguna solucion a este tema.

Desde ya muchas gracias

Antonio Walter Mensching

 


1GB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
Abrí tu cuenta aquí

#221 De: "Gustavo Biasone" <gb_guvoa@...>
Fecha: Lun, 10 de Oct, 2005 4:26 pm
Asunto: Re: Provider Ingress
Gustavo_S_B
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Segun dice aqui:
 
Vo2Ado soporta OpenIngress. Pero no se donde conseguirlo.
Si lo que buscas es cambiar las dbf por una verdadera base de datos y mantener la misma estructura sin cambios en la programacion te recomendaria ADS.
 
GB
----- Original Message -----
From: ggvigo
Sent: Sunday, October 09, 2005 6:33 PM
Subject: [guvoaII] Provider Ingress

Pdrian ser tan amables de indicarme si existe un "Provider" para
Ingress, para ser usado con VO2ADO.

Si existe, por favor...Indicarme como puedo obtenerlo

GVigo



#220 De: "Gustavo Biasone" <gb_guvoa@...>
Fecha: Lun, 10 de Oct, 2005 3:59 pm
Asunto: Re: Insertar campos en archivo ASCII
Gustavo_S_B
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Si necesariamente tenes que usar un archivo de texto plano lo mas simple que podes hacer es cargar el archivo en un string (con MemoRead) y por cada etiqueta (<..>) que haya en el documento hacer un StrTran().
Si tenes la posibilidad de usar Word, esto mismo puede hacerse usando WordAutomation. En este ejemplo se abre un documento (doc1.doc) el cual seria la plantilla que contiene el texto con las etiquetas a reemplazar, luego se guarda como "documento1.doc" y se reemplaza la etiqueta [NOMBRE] por el string "Pablo Pereyra":
 
 
 LOCAL oWord   AS Word97_application
 LOCAL oActivedoc  AS Word97_document
 LOCAL oSelection  AS Word97_Selection
 
 oWord:= Word97_Application{}

 oWord:Documents:Open("C:\DOC1.DOC")
 
 oActiveDoc :=oWord:ActiveDocument
 
 oActiveDoc:SaveAs("C:\documento1.doc")
 
 oWord:Windowstate := wdWindowStateNormal
 
 oSelection := oWord:Selection
  
 oSelection:Find:Execute("[NOMBRE]",FALSE,FALSE,FALSE,FALSE,FALSE,;
        TRUE,wdFindContinue,FALSE,;
        "Pablo Pereyra",2)
        
 oWord:Visible := TRUE
 
 
GB
 
----- Original Message -----
Sent: Saturday, October 08, 2005 10:35 AM
Subject: [guvoaII] Insertar campos en archivo ASCII

Guruses,
 
Necesito poder redactar un texto que sea modificable desde algun TXT, y en el mismo insertar campos para que sean tranformados e impresos.
 
Algo como por ejemplo:
 
Sr. Cliente:    <RAZON_SOCIAL>
Deuda Total:  <IMPORTE>
 
 
Hay alguna clase que me ayude a armar esto ?
Actualmente estoy modificando el texto por programacion, pero me resulta muy engorroso pues cada vez que hay que modificar el TXT tengo que recompilar y no es practico.
 
 
Graciasssssssss
 
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@...
 ICQ: 34806442

#219 De: "ggvigo" <ggvigo@...>
Fecha: Dom, 9 de Oct, 2005 9:33 pm
Asunto: Provider Ingress
ggvigo
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Pdrian ser tan amables de indicarme si existe un "Provider" para
Ingress, para ser usado con VO2ADO.

Si existe, por favor...Indicarme como puedo obtenerlo

GVigo

#218 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Sáb, 8 de Oct, 2005 7:54 pm
Asunto: RE: Insertar campos en archivo ASCII
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Vos decís “si en vez de poner <COD_CLIENTE> se pone <CODs_CLIENTE> ,,, la aplicacion dara error y saltará”, no es así.

Primero tenés que definir las cadenas que debe utilizar el operador, te aconsejaría que no sean tan largas, por ejemplo, para código de cliente <CC>, para el nombre <NC>, etc.

Tienen que ser cadenas cortas porque sino el operador te putea.

Si el operador carga una clave incorrecta, cuando imprima la hoja va a salir impresa la clave incorrecta y no el valor que reemplaza a la clave, por lo que el operador tendrá que corregir el texto y volver a imprimir, y obviamente, tendrás que darle dicha opción al operador.

Es como cuando imprimís un texto en el Word, si te equivocaste, tenés que corregir y volver a imprimir.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 08 de Octubre de 2005 02:09 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Insertar campos en archivo ASCII

 

Gerardo,

 

Si... algo así.

Incluso al texto podria ingresarlo yo, aunque lo ideal seria que lo haga el operador.

 

Entendi lo que decis... pero que pasa si el operado o yo metemos una letra de mas en la especificacion de campo ?

Es decir.. si en vez de poner <COD_CLIENTE> se pone <CODs_CLIENTE> ,,, la aplicacion dara error y saltará.

 

Lo que se me ocurrre es armar una tabla con reemplazos... es decr que <CLIENTE> equivalga a  SELF:oDbf:COD_CLIENTE.

Entonces uno seleccionaria los datos a "implantarle" y esa tabla los convierte..... que se yo, es la que se me ocurre.

 

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@...
 ICQ: 34806442

----- Original Message -----

Sent: Saturday, October 08, 2005 12:59 PM

Subject: RE: [guvoaII] Insertar campos en archivo ASCII

 

Si no entendí mal, lo que vos querés es que el operador genere un texto nuevo y luego desde el programa poder agregar, por ejemplo, los datos del cliente????

Si es así podes hacer que el operador ponga una cadena que represente el dato modificable, precisamente lo que vos pusiste en el mail:

 

Sr. Cliente:    <RS>

Deuda Total:  <$1>

 

Después que el operador acepta el texto ingresado, desde el programa reemplazás <RS>, <$1>, etc, por el dato que representa cada cadena.

Me explico????? Si es que entendí bien.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 08 de Octubre de 2005 10:36 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Insertar campos en archivo ASCII

 

Guruses,

 

Necesito poder redactar un texto que sea modificable desde algun TXT, y en el mismo insertar campos para que sean tranformados e impresos.

 

Algo como por ejemplo:

 

Sr. Cliente:    <RAZON_SOCIAL>

Deuda Total:  <IMPORTE>

 

 

Hay alguna clase que me ayude a armar esto ?

Actualmente estoy modificando el texto por programacion, pero me resulta muy engorroso pues cada vez que hay que modificar el TXT tengo que recompilar y no es practico.

 

 

Graciasssssssss

 

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@...
 ICQ: 34806442

 



__________ Información de NOD32 1.1246 (20051007) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

 


#217 De: "Pablo J. Pereyra" <pjpereyra@...>
Fecha: Sáb, 8 de Oct, 2005 5:09 pm
Asunto: Re: Insertar campos en archivo ASCII
pjpereyra
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gerardo,
 
Si... algo así.
Incluso al texto podria ingresarlo yo, aunque lo ideal seria que lo haga el operador.
 
Entendi lo que decis... pero que pasa si el operado o yo metemos una letra de mas en la especificacion de campo ?
Es decir.. si en vez de poner <COD_CLIENTE> se pone <CODs_CLIENTE> ,,, la aplicacion dara error y saltará.
 
Lo que se me ocurrre es armar una tabla con reemplazos... es decr que <CLIENTE> equivalga a  SELF:oDbf:COD_CLIENTE.
Entonces uno seleccionaria los datos a "implantarle" y esa tabla los convierte..... que se yo, es la que se me ocurre.
 
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@...
 ICQ: 34806442
----- Original Message -----
Sent: Saturday, October 08, 2005 12:59 PM
Subject: RE: [guvoaII] Insertar campos en archivo ASCII

Si no entendí mal, lo que vos querés es que el operador genere un texto nuevo y luego desde el programa poder agregar, por ejemplo, los datos del cliente????

Si es así podes hacer que el operador ponga una cadena que represente el dato modificable, precisamente lo que vos pusiste en el mail:

 

Sr. Cliente:    <RS>

Deuda Total:  <$1>

 

Después que el operador acepta el texto ingresado, desde el programa reemplazás <RS>, <$1>, etc, por el dato que representa cada cadena.

Me explico????? Si es que entendí bien.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 08 de Octubre de 2005 10:36 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Insertar campos en archivo ASCII

 

Guruses,

 

Necesito poder redactar un texto que sea modificable desde algun TXT, y en el mismo insertar campos para que sean tranformados e impresos.

 

Algo como por ejemplo:

 

Sr. Cliente:    <RAZON_SOCIAL>

Deuda Total:  <IMPORTE>

 

 

Hay alguna clase que me ayude a armar esto ?

Actualmente estoy modificando el texto por programacion, pero me resulta muy engorroso pues cada vez que hay que modificar el TXT tengo que recompilar y no es practico.

 

 

Graciasssssssss

 

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@...
 ICQ: 34806442

 



__________ Información de NOD32 1.1246 (20051007) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

#216 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Sáb, 8 de Oct, 2005 3:59 pm
Asunto: RE: Insertar campos en archivo ASCII
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Si no entendí mal, lo que vos querés es que el operador genere un texto nuevo y luego desde el programa poder agregar, por ejemplo, los datos del cliente????

Si es así podes hacer que el operador ponga una cadena que represente el dato modificable, precisamente lo que vos pusiste en el mail:

 

Sr. Cliente:    <RS>

Deuda Total:  <$1>

 

Después que el operador acepta el texto ingresado, desde el programa reemplazás <RS>, <$1>, etc, por el dato que representa cada cadena.

Me explico????? Si es que entendí bien.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Pablo J. Pereyra
Enviado el: Sábado, 08 de Octubre de 2005 10:36 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Insertar campos en archivo ASCII

 

Guruses,

 

Necesito poder redactar un texto que sea modificable desde algun TXT, y en el mismo insertar campos para que sean tranformados e impresos.

 

Algo como por ejemplo:

 

Sr. Cliente:    <RAZON_SOCIAL>

Deuda Total:  <IMPORTE>

 

 

Hay alguna clase que me ayude a armar esto ?

Actualmente estoy modificando el texto por programacion, pero me resulta muy engorroso pues cada vez que hay que modificar el TXT tengo que recompilar y no es practico.

 

 

Graciasssssssss

 

      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@...
 ICQ: 34806442

 


#215 De: "Pablo J. Pereyra" <pjpereyra@...>
Fecha: Sáb, 8 de Oct, 2005 1:35 pm
Asunto: Insertar campos en archivo ASCII
pjpereyra
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Guruses,
 
Necesito poder redactar un texto que sea modificable desde algun TXT, y en el mismo insertar campos para que sean tranformados e impresos.
 
Algo como por ejemplo:
 
Sr. Cliente:    <RAZON_SOCIAL>
Deuda Total:  <IMPORTE>
 
 
Hay alguna clase que me ayude a armar esto ?
Actualmente estoy modificando el texto por programacion, pero me resulta muy engorroso pues cada vez que hay que modificar el TXT tengo que recompilar y no es practico.
 
 
Graciasssssssss
 
      Pablo J. Pereyra
   Córdoba  -  Argentina
 pjpereyra@...
 ICQ: 34806442

#214 De: "ggvigo" <ggvigo@...>
Fecha: Vie, 7 de Oct, 2005 3:14 pm
Asunto: Uso de Vo2Ado en CAVO 2.7b
ggvigo
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Estimados amigos,

Nuevamente recurro a su experiencia, para conseguir informacion (sobre
VO2ADO) y si fuera posible, algo de codigo, para poder manejar tablas
creadas en SQLServer 2000.

Actualmente he realizado la conexion entre VO2ADO y SQLServer, pero no
puedo realizar un Seek (el proveedor no lo admite) y no puedo
conseguir informacion que me sirva para solucionar y aclarar algunos
conceptos. Estoy Trabajando con CAVO 2.7b y VO2ADO (para CAVO 2.7b)

Saludos cordiales,

GVigo

#213 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Jue, 6 de Oct, 2005 1:25 pm
Asunto: RE: bBrowser y uso de controles.
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Gracias Martín.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Martin La Battaglia
Enviado el: Jueves, 06 de Octubre de 2005 09:18 a.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] bBrowser y uso de controles.

 

Gerardo: Si se puede hacer, fijate el ejemplo que viene con el bBrowser. se llama bBrowser – bComboEdit y este en el directorio Samples del directorio de instalación del bBrowser (generalmente CAVO25/bBrowser).

 

Saludos

 

Martin La Battaglia

Cao Sistemas

(02262) 43-2200 Int. 19

Necochea - Buenos Aires

 

-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Miércoles, 05 de Octubre de 2005 07:55 a.m.
Para: guvoaII@...
Asunto: [guvoaII] bBrowser y uso de controles.

 

En la librería Right Sle hay un ejemplo de SLE con un botón a la derecha que abre un browse para seleccionar un código. Se elige y el valor se lo asigna al SLE.

 

Se puede hacer esto dentro de un bBrowse ?

Que una celda tenga un botón a la derecha y dispare un ventana de selección?

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

 

 


--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.9/118 - Release Date: 03/10/2005


--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.11/121 - Release Date: 06/10/2005


#212 De: "Piazza Sistemas" <soporte@...>
Fecha: Jue, 6 de Oct, 2005 12:19 pm
Asunto: Imprimir factura con ReportPro (!!!)
psi_sistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Nuevamente muchas gracias Gerardo. Anda perfecto!
----- Original Message -----
Sent: Wednesday, October 05, 2005 9:56 PM
Subject: RE: [guvoaII] Imprimir factura con ReportPro

Es la única forma que tiene el Report para hacer las facturas.

 

Cuando tengas los 300 gerardos mandamelos.

Bueno, de alguna forma me las tengo que rebuscar.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina


#211 De: "Martin La Battaglia" <mlabattaglia@...>
Fecha: Jue, 6 de Oct, 2005 12:17 pm
Asunto: RE: bBrowser y uso de controles.
martin_labat...
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Gerardo: Si se puede hacer, fijate el ejemplo que viene con el bBrowser. se llama bBrowserbComboEdit y este en el directorio Samples del directorio de instalación del bBrowser (generalmente CAVO25/bBrowser).

 

Saludos

 

Martin La Battaglia

Cao Sistemas

(02262) 43-2200 Int. 19

Necochea - Buenos Aires

 

-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Miércoles, 05 de Octubre de 2005 07:55 a.m.
Para: guvoaII@...
Asunto: [guvoaII] bBrowser y uso de controles.

 

En la librería Right Sle hay un ejemplo de SLE con un botón a la derecha que abre un browse para seleccionar un código. Se elige y el valor se lo asigna al SLE.

 

Se puede hacer esto dentro de un bBrowse ?

Que una celda tenga un botón a la derecha y dispare un ventana de selección?

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

 

 


--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.9/118 - Release Date: 03/10/2005


--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.11/121 - Release Date: 06/10/2005


#210 De: Antonio Walter Mensching <antoniowaltermensching@...>
Fecha: Jue, 6 de Oct, 2005 2:13 am
Asunto: RE: Error VO 26
antoniowalte...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gerardo y/o muchachos:

El error persiste.
No se que hacer
Tenia varios proyectos modificados en los ultimos dias y no guarde ninguno
Estoy casi loco.
Mil Gracias
Por favor si es que puede ser otra cosa.
 
Antonio Walter Mensching
Villa Ocampo-Santa Fe-Argentina

"Gerardo J. Biagiotti" <gjbiagiotti@...> escribió:

Te adjunto la .DLL que te falla.

Renombrá la actual y copia el adjunto.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Antonio Walter Mensching
Enviado el: Miércoles, 05 de Octubre de 2005 10:31 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Error VO 26

 

Estimados muchachos:

Tengo un problema que nunca me ha ocurrido a ejecutar vo 26 me aparece una ventana en la cual adjunto, tampoco puedo relizar el Repository Reindex

por que me da el mismo error.

Les agradeceria mucho si alguien le ha ocurrido algo asi y/o tienen alguna solucion a este tema.

Desde ya muchas gracias

Antonio Walter Mensching

 


1GB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
Abrí tu cuenta aquí


1GB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
Abrí tu cuenta aquí

#209 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Jue, 6 de Oct, 2005 12:56 am
Asunto: RE: Imprimir factura con ReportPro
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Son Gerardos (GB) que cotizan más que los Euros.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Juan Francolino
Enviado el: Miércoles, 05 de Octubre de 2005 08:07 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] Imprimir factura con ReportPro

 

Estimado Fernando,

 

Eso tiene precio.

 

Recorda que la tarifa de Gerardo son 300.

 

Actualmente no se si son Euros, Dolares o pesos.

 

Un abrazo,

 

Juan

 


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 06:42 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Imprimir factura con ReportPro

Gracias Gerardo! Pero... tiene password!!!!!!!!!!

----- Original Message -----

Sent: Wednesday, October 05, 2005 6:29 PM

Subject: RE: [guvoaII] Imprimir factura con ReportPro

 

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 

 


#208 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Jue, 6 de Oct, 2005 12:56 am
Asunto: RE: Imprimir factura con ReportPro
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Es la única forma que tiene el Report para hacer las facturas.

 

Cuando tengas los 300 gerardos mandamelos.

Bueno, de alguna forma me las tengo que rebuscar.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 09:16 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Imprimir factura con ReportPro

 

Muchas gracias Gerardo, estoy trabajando en el reporte y según veo va a quedar perfecto.

 

Ahora un pequeña observación: ¿No es muy rebuscado? Yo pensaba que se podía hacer la impresión del original y a través de cierto proceso imprimir la copia en base al original, pero parece que no se puede.

 

Un abrazo!

 

P.D.: Francolino: No levantés la perdiz! que me parece que los Gerardos subieron la cotización.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

----- Original Message -----

Sent: Wednesday, October 05, 2005 7:34 PM

Subject: RE: [guvoaII] Imprimir factura con ReportPro

 

Perdón.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 06:42 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Imprimir factura con ReportPro

 

Gracias Gerardo! Pero... tiene password!!!!!!!!!!

----- Original Message -----

Sent: Wednesday, October 05, 2005 6:29 PM

Subject: RE: [guvoaII] Imprimir factura con ReportPro

 

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 

 

 


#207 De: "Piazza Sistemas" <soporte@...>
Fecha: Jue, 6 de Oct, 2005 12:16 am
Asunto: Re: Imprimir factura con ReportPro
psi_sistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Muchas gracias Gerardo, estoy trabajando en el reporte y según veo va a quedar perfecto.
 
Ahora un pequeña observación: ¿No es muy rebuscado? Yo pensaba que se podía hacer la impresión del original y a través de cierto proceso imprimir la copia en base al original, pero parece que no se puede.
 
Un abrazo!
 
P.D.: Francolino: No levantés la perdiz! que me parece que los Gerardos subieron la cotización.
 
--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...
----- Original Message -----
Sent: Wednesday, October 05, 2005 7:34 PM
Subject: RE: [guvoaII] Imprimir factura con ReportPro

Perdón.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 06:42 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Imprimir factura con ReportPro

 

Gracias Gerardo! Pero... tiene password!!!!!!!!!!

----- Original Message -----

Sent: Wednesday, October 05, 2005 6:29 PM

Subject: RE: [guvoaII] Imprimir factura con ReportPro

 

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 

 


#206 De: "Piazza Sistemas" <soporte@...>
Fecha: Mié, 5 de Oct, 2005 11:14 pm
Asunto: Re: Imprimir factura con ReportPro
psi_sistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Este Gerardo, te muestra el dulce y cuando vas a agarrarlo... saca la mano!
----- Original Message -----
Sent: Wednesday, October 05, 2005 8:06 PM
Subject: RE: [guvoaII] Imprimir factura con ReportPro

Estimado Fernando,
 
Eso tiene precio.
 
Recorda que la tarifa de Gerardo son 300.
 
Actualmente no se si son Euros, Dolares o pesos.
 
Un abrazo,
 
Juan


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 06:42 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Imprimir factura con ReportPro

Gracias Gerardo! Pero... tiene password!!!!!!!!!!
----- Original Message -----
Sent: Wednesday, October 05, 2005 6:29 PM
Subject: RE: [guvoaII] Imprimir factura con ReportPro

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 


#205 De: "Juan Francolino" <francolino@...>
Fecha: Mié, 5 de Oct, 2005 11:06 pm
Asunto: RE: Imprimir factura con ReportPro
francolino
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Estimado Fernando,
 
Eso tiene precio.
 
Recorda que la tarifa de Gerardo son 300.
 
Actualmente no se si son Euros, Dolares o pesos.
 
Un abrazo,
 
Juan


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 06:42 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Imprimir factura con ReportPro

Gracias Gerardo! Pero... tiene password!!!!!!!!!!
----- Original Message -----
Sent: Wednesday, October 05, 2005 6:29 PM
Subject: RE: [guvoaII] Imprimir factura con ReportPro

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 


#204 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mié, 5 de Oct, 2005 10:34 pm
Asunto: RE: Imprimir factura con ReportPro
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Perdón.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 06:42 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Imprimir factura con ReportPro

 

Gracias Gerardo! Pero... tiene password!!!!!!!!!!

----- Original Message -----

Sent: Wednesday, October 05, 2005 6:29 PM

Subject: RE: [guvoaII] Imprimir factura con ReportPro

 

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 

 


#203 De: "Piazza Sistemas" <soporte@...>
Fecha: Mié, 5 de Oct, 2005 9:42 pm
Asunto: Re: Imprimir factura con ReportPro
psi_sistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gracias Gerardo! Pero... tiene password!!!!!!!!!!
----- Original Message -----
Sent: Wednesday, October 05, 2005 6:29 PM
Subject: RE: [guvoaII] Imprimir factura con ReportPro

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 


#202 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mié, 5 de Oct, 2005 9:29 pm
Asunto: RE: Imprimir factura con ReportPro
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Te adjunto un .rpt que uso para emitir dos facturas (original-duplicado) en hoja oficio.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Piazza Sistemas
Enviado el: Miércoles, 05 de Octubre de 2005 05:41 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Imprimir factura con ReportPro

 

Hola amigos.

 

Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.

Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.

 

He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.

 

Como es la manera correcta de hacerlo?

 

Hasta luego.

 

--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

 


#201 De: "Piazza Sistemas" <soporte@...>
Fecha: Mié, 5 de Oct, 2005 8:41 pm
Asunto: Imprimir factura con ReportPro
psi_sistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola amigos.
 
Necesito imprimir el contenido de un formulario de factura con el esquema maestro/detalle.
Son 2 formularios (original/duplicado) en una hoja tamaño oficio y cada uno tiene los 3 cuerpos normales: (1) Fecha/Datos Cliente/Condición Venta, (2) Detalle de artículos (varios renglones) y (3) el final con los importes y observaciones.
 
He intentado hacerlo como si fuera impresión de etiquetas pero cuando quiero imprimir el detalle de articulos se descontrola todo.
 
Como es la manera correcta de hacerlo?
 
Hasta luego.
 
--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...

#200 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mié, 5 de Oct, 2005 2:14 pm
Asunto: RE: Error VO 26
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Te adjunto la .DLL que te falla.

Renombrá la actual y copia el adjunto.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Antonio Walter Mensching
Enviado el: Miércoles, 05 de Octubre de 2005 10:31 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Error VO 26

 

Estimados muchachos:

Tengo un problema que nunca me ha ocurrido a ejecutar vo 26 me aparece una ventana en la cual adjunto, tampoco puedo relizar el Repository Reindex

por que me da el mismo error.

Les agradeceria mucho si alguien le ha ocurrido algo asi y/o tienen alguna solucion a este tema.

Desde ya muchas gracias

Antonio Walter Mensching

 


1GB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
Abrí tu cuenta aquí


#199 De: Antonio Walter Mensching <antoniowaltermensching@...>
Fecha: Mié, 5 de Oct, 2005 1:30 pm
Asunto: Error VO 26
antoniowalte...
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Estimados muchachos:

Tengo un problema que nunca me ha ocurrido a ejecutar vo 26 me aparece una ventana en la cual adjunto, tampoco puedo relizar el Repository Reindex

por que me da el mismo error.

Les agradeceria mucho si alguien le ha ocurrido algo asi y/o tienen alguna solucion a este tema.

Desde ya muchas gracias

Antonio Walter Mensching

 


1GB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
Abrí tu cuenta aquí

#198 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mié, 5 de Oct, 2005 10:54 am
Asunto: bBrowser y uso de controles.
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

En la librería Right Sle hay un ejemplo de SLE con un botón a la derecha que abre un browse para seleccionar un código. Se elige y el valor se lo asigna al SLE.

 

Se puede hacer esto dentro de un bBrowse ?

Que una celda tenga un botón a la derecha y dispare un ventana de selección?

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

 


#197 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mar, 4 de Oct, 2005 7:44 pm
Asunto: RV: Números a Letras.
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Muchachos Gustavo Biasone me hizo notar un par de errores en la función que envié esta mañana, y ya está corregida.

Es bueno saber que en la lista hay gente atenta a todo lo que pasa.

Pido perdón por el error y adjunto la rutina modificada.

Les voy a pedir a quienes la adopten que me informen de cualquier error que encuentren.

Gracias.

 

FUNCTION MontoLetras(nNumeroaLetras) AS STRING

//Autor: Gerardo J. Biagiotti

//Fecha: 04/10/2005

//Lugar: Marcos Juárez (CBA) Argentina

//mail : gjbiagiotti@...

 

//El presente convierte numeros en letras

//La lectura la realiza de derecha a izquierda,

//primero con el valor entero y luego los decimales.

 

            LOCAL vUnidad,vDecena,vCentena,vDecena1,vDecena2 AS ARRAY

            LOCAL cMonto,cValorEntero,cValor AS STRING

            LOCAL cCadena1,cCadena2 AS STRING

            LOCAL nValorEntero,nValor AS USUAL

            LOCAL nPosicionMiles,nLargo,nToma3nPosicion AS INT

 

            IF nNumeroaLetras=0

                        RETURN "Cero."

            ENDIF

 

   vUnidad ={"uno","dos","tres","cuatro","cinco","seis","siete","ocho","nueve"}

 

            vDecena ={"diez","veinte","treinta","cuarenta","cincuenta",;

             "sesenta","setenta","ochenta","noventa"}

 

            vDecena1={"once","doce","trece","catorce","quince",;

             "dieciseis","diecisiete","dieciocho","diecinueve"}

 

            vDecena2={"veintiuno","veintidós","veintitres","veinticuatro",;

             "veinticinco","veintiseis","veintisiete","veintiocho","veintinueve"}

 

   vCentena={"ciento","doscientos","trescientos","cuatrocientos",;

             "quinientos","seiscientos","setecientos","ochocientos","novecientos"}

 

            lSalida := FALSE

            nValorDecimales := 0

            cMonto  := ""

 

            DO WHILE !lSalida

                        IF Integer(nNumeroaLetras)<>nNumeroaLetras .AND. nValorDecimales=0  //decimales

                                   nValorDecimales:= nNumeroaLetras-Integer(nNumeroaLetras)

                                   nValorEntero   := Val(Right(Str(nValorDecimales),LENNUM(nValorDecimales)-2))

                           cValorEntero   := LTrim(Str(nValorEntero))

                                   nLargo         := Len(LTrim(Str(nValorEntero)))

                                   nPosicionMiles := 0  //de derecha a izquierda cuenta posiciones de a 3 números.

                                   nToma3         := nLargo

                                   IF nValorEntero>1

                                               cMonto := " centavos"

                                   ELSE

                                               cMonto := " centavo"

                                   ENDIF

                        ELSE

                                   nValorEntero   := Integer(nNumeroaLetras)

                        cValorEntero   := LTrim(Str(nValorEntero))

                                   nLargo         := Len(LTrim(Str(nValorEntero)))

                                   nPosicionMiles := 0  //de derecha a izquierda cuenta posiciones de a 3 números.

                                   nToma3         := nLargo

                                   lSalida := TRUE

                                   IF nValorDecimales>0 .AND. nValorEntero>0

                                               cMonto=" con "+cMonto

                                   ENDIF

                        ENDIF

 

                        DO WHILE TRUE

                                   IF nToma3<1

                                               EXIT

                                   ENDIF

                                   cValor := ""

                                   FOR nLazo=1 UPTO 3

                                    IF nToma3>=1

                                                           cValor=SubStr(cValorEntero,nToma3,1)+cValor

                                               nToma3-=1

                                      ENDIF

                                   NEXT

                                   nPosicionMiles++

 

                                   DO CASE

                                               CASE nPosicionMiles=2 //desde 1000 a 999.999

                                                           cMonto=" mil "+cMonto

                                               CASE nPosicionMiles=3 //desde 1.000.000 a 999.999.999.999

                                                           IF nValorEntero>=1000000 .AND. nValorEntero<=1999999

                                                                       cMonto=" millón "+cMonto

                                                           ELSE

                                                                       cMonto=" millones "+cMonto

                                                           ENDIF

                                               CASE nPosicionMiles=4 //desde 1.000.000.000.000 a ......

                                                           IF nValorEntero>=1000000000000 .AND. nValorEntero<=1999999999999

                                                                       cMonto=" billón "+cMonto

                                                           ELSE

                                                                       cMonto=" billones "+cMonto

                                                           ENDIF

                                   ENDCASE

 

                                   nValor := Val(cValor)

                                   nLargo := Len(cValor)

 

                                   IF nLargo=1

                                               IF nValor>0

                                                           IF nValor=1

                                                                       cMonto="un"+cMonto

                                                           ELSE

                                                                       cMonto=vUnidad[nValor]+cMonto

                                                           ENDIF

                                               ENDIF

                                   ELSE

                                               IF Val(Right(cValor,2))>0

                                                           IF nValor=1

                                                                       cMonto="un"+cMonto

                                                           ELSEIF Val(Right(cValor,2))>=11 .AND. Val(Right(cValor,2))<=19

                                                                       cMonto=vDecena1[Val(Right(cValor,2))-10]+" "+cMonto

                                                           ELSEIF Val(Right(cValor,2))>=21 .AND. Val(Right(cValor,2))<=29

                                                                       cMonto=vDecena2[Val(Right(cValor,2))-20]+" "+cMonto

                                                           ELSE

                                                                       cMonto=IIF(Val(Left(Right(cValor,2),1))>0,vDecena[Val(Left(Right(cValor,2),1))],"")+;

                                                                                               IIF(Val(Left(Right(cValor,2),1))>0 .AND. Val(Right(cValor,1))>0," y ","")+;

                                                                                               IIF(Val(Right(cValor,1))>0,vUnidad[Val(Right(cValor,1))],"")+cMonto

                                                           ENDIF

                                               ENDIF

                                               IF nLargo=3

                                                           IF nValor=100

                                                                                   cMonto="cien "+cMonto

                                                           ELSEIF Val(Left(cValor,1))>0

                                                                       cMonto=vCentena[Val(Left(cValor,1))]+" "+cMonto

                                                           ENDIF

                                               ENDIF

                                   ENDIF

                        ENDDO

            ENDDO

 

            //Pone el primer caracter en mayúsculas.

            nPosicion:=At(" ",cMonto)

            cCadena1 :=Left(cMonto,nPosicion)

            cCadena2 :=Right(cMonto,Len(cMonto)-nPosicion)

            cCadena1 :=Proper(cCadena1)

            cMonto   :=cCadena1+cCadena2+"."

 

RETURN(cMonto)

 

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...



#196 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mar, 4 de Oct, 2005 2:35 pm
Asunto: RE: Números a Letras.
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Gracias Bondadoso, también a Pablo Pereyra y Horacio Biloni que me enviaron sus rutinas a mi privado.

Pero debido a la urgencia que tenía tuve que ponerme a diseñar la rutina de conversión.

Esta rutina permite convertir a texto cualquier cifra numérica con cualquier cantidad de decimales.

Si a alguno le interesa estas características se las adjunto:

 

 

 

FUNCTION MontoLetras(nNumeroaLetras) AS STRING

//El presente convierte números en letras

//La lectura la realiza de derecha a izquierda,

//primero los decimales y luego el valor entero.

 

            LOCAL vUnidad,vDecena,vCentena,vDecena1,vDecena2 AS ARRAY

            LOCAL cMonto,cValorEntero,cValor AS STRING

            LOCAL cCadena1,cCadena2 AS STRING

            LOCAL nValorEntero,nValor AS USUAL

            LOCAL nPosicionMiles,nLargo,nToma3nPosicion AS INT

 

            IF nNumeroaLetras=0

                        RETURN "Cero."

            ENDIF

 

   vUnidad ={"uno","dos","tres","cuatro","cinco","seis","siete","ocho","nueve"}

 

            vDecena ={"diez","veinte","treinta","cuarenta","cincuenta",;

             "sesenta","setenta","ochenta","noventa"}

 

            vDecena1={"once","doce","trece","catorce","quince",;

             "dieciseis","diecisiete","dieciocho","diecinueve"}

 

            vDecena2={"veintiuno","veintidós","veintitres","veinticuatro",;

             "veinticinco","veintiseis","veintisiete","veintiocho","veintinueve"}

 

   vCentena={"ciento","doscientos","trescientos","cuatrocientos",;

             "quinientos","seiscientos","setecientos","ochocientos","novecientos"}

 

            lSalida := FALSE

            nValorDecimales := 0

            cMonto  := ""

 

            DO WHILE !lSalida

                        IF Integer(nNumeroaLetras)<>nNumeroaLetras .AND. nValorDecimales=0  //decimales

                                   nValorDecimales:= nNumeroaLetras-Integer(nNumeroaLetras)

                                   nValorEntero   := Val(Right(Str(nValorDecimales),LENNUM(nValorDecimales)-2))

                           cValorEntero   := LTrim(Str(nValorEntero))

                                   nLargo         := Len(LTrim(Str(nValorEntero)))

                                   nPosicionMiles := 0  //de derecha a izquierda cuenta posiciones de a 3 números.

                                   nToma3         := nLargo

                                   cMonto         := " centavos"

                        ELSE

                                   nValorEntero   := Integer(nNumeroaLetras)

                        cValorEntero   := LTrim(Str(nValorEntero))

                                   nLargo         := Len(LTrim(Str(nValorEntero)))

                                   nPosicionMiles := 0  //de derecha a izquierda cuenta posiciones de a 3 números.

                                   nToma3         := nLargo

                                   lSalida := TRUE

                                   IF nValorDecimales>0 .AND. nValorEntero>0

                                               cMonto=" con "+cMonto

                                   ENDIF

                        ENDIF

 

            DO WHILE TRUE

                        IF nToma3<1

                                   EXIT

                        ENDIF

                        cValor := ""

                        FOR nLazo=1 UPTO 3

                           IF nToma3>=1

                                               cValor=SubStr(cValorEntero,nToma3,1)+cValor

                                    nToma3-=1

                           ENDIF

                        NEXT

                        nPosicionMiles++

 

                        DO CASE

                                   CASE nPosicionMiles=2 //desde 1000 a 999.999

                                               cMonto=" mil "+cMonto

                                   CASE nPosicionMiles=3 //desde 1.000.000 a 999.999.999.999

                                               IF nValorEntero>=1000000 .AND. nValorEntero<=1999999

                                                           cMonto=" millón "+cMonto

                                               ELSE

                                                           cMonto=" millones "+cMonto

                                               ENDIF

                                   CASE nPosicionMiles=4 //desde 1.000.000.000.000 a ......

                                               IF nValorEntero>=1000000000000 .AND. nValorEntero<=1999999999999

                                                           cMonto=" billón "+cMonto

                                               ELSE

                                                           cMonto=" billones "+cMonto

                                               ENDIF

                        ENDCASE

 

                        nValor := Val(cValor)

                        nLargo := Len(cValor)

 

                        IF nLargo=1

                                   IF nValor>0

                                               IF nPosicionMiles=2 .AND. nValor=1

                                                                       cMonto="Un"+cMonto

                                               ELSE

                                                           cMonto=vUnidad[nValor]+cMonto

                                               ENDIF

                                   ENDIF

                        ELSE

                                   IF Val(Right(cValor,2))>0

                                               IF Val(Right(cValor,2))>=11 .AND. Val(Right(cValor,2))<=19

                                                           cMonto=vDecena1[Val(Right(cValor,2))-10]+" "+cMonto

                                               ELSEIF Val(Right(cValor,2))>=21 .AND. Val(Right(cValor,2))<=29

                                                           cMonto=vDecena2[Val(Right(cValor,2))-20]+" "+cMonto

                                               ELSE

                                                           IF nLargo=2

                                                                       cMonto=IIF(Val(Left(cValor,1))>0,vDecena[Val(Left(cValor,1))]+" y ","")+;

                                                                                               IIF(Val(Right(cValor,1))>0,vUnidad[Val(Right(cValor,1))],"")+cMonto

                                                           ELSE

                                                                       cMonto=IIF(Val(SubStr(cValor,2,1))>0,vDecena[Val(SubStr(cValor,2,1))]+" y ","")+;

                                                                                               IIF(Val(Right(cValor,1))>0,vUnidad[Val(Right(cValor,1))],"")+cMonto

                                                           ENDIF

                                               ENDIF

                                   ENDIF

                                   IF nLargo=3

                                               IF nValor=100

                                                           IF nPosicionMiles=1

                                                                       cMonto="Cien "+cMonto

                                                           ENDIF

                                                           IF nPosicionMiles=2

                                                                       cMonto="Cien mil "+cMonto

                                                           ENDIF

                                               ENDIF

                                               IF Val(Left(cValor,1))>0

                                                           cMonto=vCentena[Val(Left(cValor,1))]+" "+cMonto

                                               ENDIF

                                   ENDIF

                        ENDIF

            ENDDO

            ENDDO

 

            //Pone el primer caracter en mayúsculas.

            nPosicion:=At(" ",cMonto)

            cCadena1 :=Left(cMonto,nPosicion)

            cCadena2 :=Right(cMonto,Len(cMonto)-nPosicion)

            cCadena1 :=Proper(cCadena1)

            cMonto   :=cCadena1+cCadena2+"."

 

RETURN(cMonto)

 

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...


De: guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti
Enviado el: Lunes, 03 de Octubre de 2005 10:17 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Números a Letras.

 

Podría alguien pasarme la rutina que convierte números a texto escrito?

La que tengo hecha en clipper no anda bien en VO y necesito solucionarlo enseguida.

Gracias.

 

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
         gjbiagiotti@...
         gjbiagiotti@...

 

 


#195 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mar, 4 de Oct, 2005 10:03 am
Asunto: RE: OT: Botón Derecho o Tecla Suprimir
gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Yo tuve el mismo problema con un archivo, solo ese.
Al posicionar el cursor sobre el archivo hacía ese efecto que comentás.
Lo borré desde una ventana del MS-DOS.

Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina

Mail:  gjbiagiotti@...
MSN: gerardo_biagiotti@...
          gjbiagiotti@...
          gjbiagiotti@...
-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...] En nombre
de lsantibanez72@...
Enviado el: Martes, 04 de Octubre de 2005 01:17 a.m.
Para: guvoaII@...
Asunto: [guvoaII] OT: Botón Derecho o Tecla Suprimir

Hola, saludos a todos. Algo muy raro me está pasando. Abro el explorador
y trato de eliminar un archivo .EXE, le hago click con el mouse, y pulse
la tecla SUPR (suprimir) y el explorador desaparece y también los íconos
del escritorio, y sólo queda el fondo de pantalla, después algo hace el
disco duro y comienza a restaurarse los íconos, pero el explorador no vuelve
y a veces aparece el mensaje que indica "Debe restaurar el escritorio".
Bastante raro, volví a colocar el explorador, fuí al mismo archivo y le
hice click con el botón derecho (para ver el menu desplegable) y vuelve
a ocurrir lo mismo.
Pero con los otros archivos no pasa. Sólo con lo EXE. Algo está impidiendo
que elimine los archivos con extensión EXE, revise el equipo y no tiene
virus o al menos lo que me indica el MacAfee.
Tengo Win 2000 Professional servipak 4. ¿Alguna recomendación?.

Atte.

Larry Santibáñez Flores




Enlaces de Yahoo! Grupos

#194 De: lsantibanez72@...
Fecha: Mar, 4 de Oct, 2005 4:16 am
Asunto: OT: Botón Derecho o Tecla Suprimir
lsantibanez73
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola, saludos a todos. Algo muy raro me está pasando. Abro el explorador
y trato de eliminar un archivo .EXE, le hago click con el mouse, y pulse
la tecla SUPR (suprimir) y el explorador desaparece y también los íconos
del escritorio, y sólo queda el fondo de pantalla, después algo hace el
disco duro y comienza a restaurarse los íconos, pero el explorador no vuelve
y a veces aparece el mensaje que indica "Debe restaurar el escritorio".
Bastante raro, volví a colocar el explorador, fuí al mismo archivo y le
hice click con el botón derecho (para ver el menu desplegable) y vuelve
a ocurrir lo mismo.
Pero con los otros archivos no pasa. Sólo con lo EXE. Algo está impidiendo
que elimine los archivos con extensión EXE, revise el equipo y no tiene
virus o al menos lo que me indica el MacAfee.
Tengo Win 2000 Professional servipak 4. ¿Alguna recomendación?.

Atte.

Larry Santibáñez Flores

#193 De: Bondadoso Paladin <solitariobon@...>
Fecha: Lun, 3 de Oct, 2005 3:30 pm
Asunto: RE: Números a Letras.
solitariobon
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Prueba esta, creo que va bastante bien

FUNCTION Num2Letras(curNumero, blnO_Final) //AS STRING
LOCAL dblCentimos AS FLOAT
LOCAL lngContDec AS LONGINT
LOCAL lngContCent AS LONGINT
LOCAL lngContMil AS LONGINT
LOCAL lngContMillon AS LONGINT
LOCAL strNumLetras AS STRING
LOCAL astrNumero AS ARRAY
LOCAL astrDecenas AS ARRAY
LOCAL astrCentenas AS ARRAY
LOCAL blnNegativo AS LOGIC
LOCAL blnPlural AS LOGIC
LOCAL NroEnLetras AS STRING

     Default(@blnO_Final, TRUE)

     IF Integer(curNumero) == 0
         strNumLetras := "CERO"
     END IF


     astrNumero := {"", "UN", "DOS", "TRES", "CUATRO",
"CINCO", "SEIS", "SIETE",;
                    "OCHO", "NUEVE", "DIEZ", "ONCE",
"DOCE", "TRECE", "CATORCE",;
                    "QUINCE", "DIECISEIS",
"DIECISIETE", "DIECIOCHO", "DIECINUEVE",;
                    "VEINTE"}

     astrDecenas := {"", "", "VEINTI", "TREINTA",
"CUARENTA", "CINCUENTA", "SESENTA",;
                     "SETENTA", "OCHENTA", "NOVENTA",
"CIEN"}

     astrCentenas := {"", "CIENTO", "DOSCIENTOS",
"TRESCIENTOS",;
                     "CUATROCIENTOS", "QUINIENTOS",
"SEISCIENTOS", "SETECIENTOS",;
                     "OCHOCIENTOS", "NOVECIENTOS"}

     IF curNumero < 0
         blnNegativo := TRUE
         curNumero := Abs(curNumero)
     END IF
     IF Integer(curNumero) <> curNumero
         dblCentimos := Abs(curNumero -
Integer(curNumero))
         curNumero := Integer(curNumero)
     END IF
     WHILE curNumero >= 1000000
         lngContMillon +=1
         curNumero -= 1000000
     END
     WHILE curNumero >= 1000
         lngContMil += 1
         curNumero -= 1000
     END

     WHILE curNumero >= 100
         lngContCent +=1
         curNumero -= 100
     END

     IF !(curNumero > 10 .And. curNumero <= 20)
         WHILE curNumero >= 10
             lngContDec +=1
             curNumero  -= 10
         END
     END IF

     IF lngContMillon > 0
         IF lngContMillon >= 1  // si el número es
>1000000 usa recursividad
             strNumLetras := Num2Letras(lngContMillon,
FALSE)
             IF !blnPlural
            	 blnPlural := (lngContMillon > 1)
             ENDIF
             lngContMillon := 0
         END IF
         strNumLetras := AllTrim(strNumLetras) +
astrNumero[lngContMillon+1] + " MILLON" +;
                         iif(blnPlural, "ES ", " ")
     END IF

     IF lngContMil > 0
        IF lngContMil >= 1 // si el número es >100000
usa recursividad
           strNumLetras := strNumLetras +
Num2Letras(lngContMil, FALSE)
             lngContMil := 0
         END IF
         strNumLetras := AllTrim(strNumLetras) +
astrNumero[lngContMil+1] + " MIL "
     END IF

     IF lngContCent > 0
         IF lngContCent == 1 .And. lngContDec == 0
.And. curNumero == 0
             strNumLetras += "CIEN"
         ELSE
             strNumLetras +=
astrCentenas[lngContCent+1] + " "
         END IF
     END IF
     IF lngContDec >= 1
         IF lngContDec == 1
             strNumLetras += astrNumero[10+1]
         ELSE
             strNumLetras += astrDecenas[lngContDec+1]
         END IF

         IF lngContDec >= 3 .And. curNumero > 0
             strNumLetras += " Y "
         END IF
     ELSE
         IF curNumero >= 0 .And. curNumero <= 20
             strNumLetras += astrNumero[curNumero+1]
             IF curNumero == 1.And.blnO_Final
                 strNumLetras += "O"
             END IF
             IF dblCentimos > 0
                 strNumLetras := AllTrim(strNumLetras)
+ " CON " + Num2Letras(Round(dblCentimos*100,0),
FALSE)
             END IF
             NroEnLetras := AllTrim(strNumLetras) //+ "
" + cModena
		     IF SubStr(NroEnLetras, 1, 7) == "UN MIL "
		    	 NroEnLetras := SubStr(NroEnLetras,4)
		     ENDIF
             RETURN NroEnLetras
         END IF
     END IF

     IF curNumero > 0
         strNumLetras := strNumLetras +
astrNumero[curNumero+1]
         IF curNumero == 1.And.blnO_Final
             strNumLetras := strNumLetras + "O"
         END IF
     END IF

     IF dblCentimos > 0
        strNumLetras := strNumLetras + " CON " +
Num2Letras(Round(dblCentimos*100,0), FALSE)
     END IF
     NroEnLetras := AllTrim(IIf(blnNegativo, "(" +
strNumLetras + ")", strNumLetras)) //+ " " + cModena
     IF SubStr(NroEnLetras, 1, 7) == "UN MIL "
    	 NroEnLetras := SubStr(NroEnLetras,4)
     ENDIF

RETURN NroEnLetras


  --- "Gerardo J. Biagiotti"
<gjbiagiotti@...> escribió:

> Podría alguien pasarme la rutina que convierte
> números a texto escrito?
>
> La que tengo hecha en clipper no anda bien en VO y
> necesito solucionarlo
> enseguida.
>
> Gracias.
>
>
>
> Gerardo J. Biagiotti
> Analista de Sistemas
> (2580) Marcos Juárez
> Córdoba - Argentina
>
> Mail:  gjbiagiotti@...
> MSN: gerardo_biagiotti@...
>          gjbiagiotti@...
>          gjbiagiotti@...
>
>
>
>




______________________________________________
Renovamos el Correo Yahoo!
Nuevos servicios, más seguridad
http://correo.yahoo.es

Mensajes 193 - 222 de 2836   Más reciente  |  < Más reciente  |  Más antiguo >  |  Más antiguo
Avanzado

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