[GUFA] Visor PDF

2007-10-05 Por tema Carlos A. Cuevas 
Lo que yo preciso es buscar en archivos pdf. Los archivos ya los tengo
generados.

Lo que quiero es ver si es posible buscar atributos de un archivo pdf, como
ser propietario o buscar una cadena de texto en todos los archivos PDF que
tengo en un directorio.

 

Atte. Carlos 

 

De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Luis Dalmasso
Enviado el: viernes, 05 de octubre de 2007 17:06
Para: GUFA List Member
Asunto: [GUFA] Visor PDF

 

a bueno... vos pablo la queres linda, que haga todo pero que no consuma..,
buscando una mas feita pero gratis tenes el
http://sourceforge.net/projects/ghostscript/   con ghostscript podes hacer
lo que queras con los pdf pero vas a tener que lidiar algunas horas, nada
recomendable pero gratis

El día 5/10/07, PabloC <[EMAIL PROTECTED]> escribió: 

Funciona muy bien, pero OJO que no es free


Saludos
PabloC

- Original Message - 

From: Carlos A. Cuevas <mailto:[EMAIL PROTECTED]>  

To: GUFA List <mailto:GUFA@mug.org.ar>  Member 

Sent: Friday, October 05, 2007 3:42 PM

Subject: [GUFA] Visor PDF


 

gracias

 

De: GUFA@mug.org.ar [mailto: GUFA@mug.org.ar <mailto:GUFA@mug.org.ar> ] En
nombre de Luis Dalmasso
Enviado el: viernes, 05 de octubre de 2007 13:05
Para: GUFA List Member
Asunto: [GUFA] Visor PDF

 

para tu suerte si existe hay una herramienta que se llama pdf2word, permite
trabajar en modo batch y con muchas opciones desde la linea de comando seria
(extraido de la ayuda)

Usage: PDF2RTF [Option]  []
-f  : First page to be converted
-l  : Last page to be converted
-z   : Set zoom ratio when conversion, the range is from 50 to
200 
-b : Space between characters
-q   : Exit after converting
-m   : Run without window
-r   : Overwrite an existing destination file without prompting
to confirm 
-h or -? : Print usage information
-i   : PDF file will be converted
-o  : RTF file will be generated

For example : 
PDF2RTF -i c:\a.pdf
PDF2RTF -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 5 -l 8 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -m -r -b 50 -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf 
 

de esta manera covertirias a RTF temporariamente tus pdf buscas el texto y
luego eliminas

 

Saludos

Luis Dalmasso

 

 

 

2007/10/5, Carlos A. Cuevas <[EMAIL PROTECTED]>:

Hola

  Tengo una carpeta que tiene una cantidad grande de archivos pdf.

  Lo que quiero conseguir alguna utilidad para poder buscar en los
contenidos de los archivos pdf.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto: GUFA@mug.org.ar <mailto:GUFA@mug.org.ar> ] En
nombre de Gustavo Señoriño
Enviado el: Viernes, 05 de Octubre de 2007 11:21
Para: GUFA List Member
Asunto: [GUFA] Form con Botones Variable

 

Muchas Gracias Estela!! Lo voy a probar...

 

- Original Message - 

From: Estela Lázaro <mailto:[EMAIL PROTECTED]>  

To: GUFA <mailto:GUFA@mug.org.ar>  List Member 

Sent: Thursday, October 04, 2007 8:37 PM

Subject: [GUFA] Form con Botones Variable

 

Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos, creo
una clase con sus métodos y agrego el control por programa, en el ejemplo
que te paso es un textbox vos tendrías que basarlo en un command, algo así: 

 

Define Class MiText1 As TextBox

 Procedure InteractiveChange
  Thisform.lcambia=.T.
 Endproc

 

 Procedure RightClick
  This.Parent.Parent.RightClick()
 Endproc

 

 Procedure LostFocus
  Thisform.lcambia=.F.
 Endproc

 

 Procedure Valid
  Local llretval,cpo,colP,colV,colT,estacol
  llretval=.T.
  If Thisform.lcambia
   If This.Value<0
=Messagebox("No puede ser negativo")
llretval=.F.
   Endif 
  Endif
  Return llretval
 Endproc


 Procedure Click
  This.SetFocus

 Endproc

 


Enddefine

y en el form agrego el control, acá es una columna en la grilla con el
textbox basado en la clase anterior, el tuyo debe ser menos complicado, te
lo paso igual por si te sirve:

 

i=8 &&thisform.pgf.pg2.grdlist.ColumnCount 

j=0
bacolor1=200 &&arranca con RGB(200,250,255)
bacolor2=300

SELECT quintero
go top 
DO WHILE !EOF()
  Thisform.pgf.pg2.grdlist.ColumnCount=i+1
  bacolor2=bacolor2-50
  IF bacolor2<0
   bacolor2=250
   bacolor1=bacolor1-50
  endif
  j=j+1
  i=i+1 
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.Caption='In
g "+ALLTRIM(LEFT(quintero.nombre,20))+"'"
  &cpo1
*!*   cpo1="Thisform.pgf.pg2.grdlist.Column
"+ALLTRIM(STR(i))+".ControlSource='_ctmp_liqui.quinI"+ALLTRIM(STR(j))+"'"
*!*   &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Width=60"
  &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".ReadOnly=.f."
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".InputMask='99.9
9 '"
  &cpo1

 
cpo1="Thisform.pg

[GUFA] Visor PDF

2007-10-05 Por tema PabloC 
Yo no, yo no lo necesitaba, ya lo tengo :-D

Saludos
PabloC
  - Original Message - 
  From: Luis Dalmasso 
  To: GUFA List Member 
  Sent: Friday, October 05, 2007 5:05 PM
  Subject: [GUFA] Visor PDF


  a bueno... vos pablo la queres linda, que haga todo pero que no consuma.., 
buscando una mas feita pero gratis tenes el 
http://sourceforge.net/projects/ghostscript/   con ghostscript podes hacer lo 
que queras con los pdf pero vas a tener que lidiar algunas horas, nada 
recomendable pero gratis


  El día 5/10/07, PabloC <[EMAIL PROTECTED]> escribió: 
Funciona muy bien, pero OJO que no es free

Saludos
PabloC
  - Original Message - 
  From: Carlos A. Cuevas 
  To: GUFA List Member 
  Sent: Friday, October 05, 2007 3:42 PM
  Subject: [GUFA] Visor PDF

   
  gracias



  De: GUFA@mug.org.ar [mailto: [EMAIL PROTECTED] En nombre de Luis Dalmasso
  Enviado el: viernes, 05 de octubre de 2007 13:05
  Para: GUFA List Member
  Asunto: [GUFA] Visor PDF



  para tu suerte si existe hay una herramienta que se llama pdf2word, 
permite trabajar en modo batch y con muchas opciones desde la linea de comando 
seria (extraido de la ayuda)

  Usage: PDF2RTF [Option]  []
  -f  : First page to be converted
  -l  : Last page to be converted
  -z   : Set zoom ratio when conversion, the range is from 50 
to 200 
  -b : Space between characters
  -q   : Exit after converting
  -m   : Run without window
  -r   : Overwrite an existing destination file without 
prompting to confirm 
  -h or -? : Print usage information
  -i   : PDF file will be converted
  -o  : RTF file will be generated

  For example : 
  PDF2RTF -i c:\a.pdf
  PDF2RTF -i c:\a.pdf -o c:\a.rtf
  PDF2RTF -q -f 5 -l 8 -i c:\a.pdf -o c:\a.rtf
  PDF2RTF -q -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
  PDF2RTF -q -m -r -b 50 -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf 
   

  de esta manera covertirias a RTF temporariamente tus pdf buscas el texto 
y luego eliminas



  Saludos

  Luis Dalmasso







  2007/10/5, Carlos A. Cuevas <[EMAIL PROTECTED]>:

Hola

  Tengo una carpeta que tiene una cantidad grande de archivos pdf.

  Lo que quiero conseguir alguna utilidad para poder buscar en los 
contenidos de los archivos pdf.



Atte. Carlos



De: GUFA@mug.org.ar [mailto: [EMAIL PROTECTED] En nombre de Gustavo 
Señoriño
Enviado el: Viernes, 05 de Octubre de 2007 11:21
Para: GUFA List Member
Asunto: [GUFA] Form con Botones Variable



Muchas Gracias Estela!! Lo voy a probar...



  - Original Message - 

  From: Estela Lázaro 

  To: GUFA List Member 

  Sent: Thursday, October 04, 2007 8:37 PM

  Subject: [GUFA] Form con Botones Variable



  Hola, yo que todavía ando con el vfp7 para la mayoría de mis 
proyectos, creo una clase con sus métodos y agrego el control por programa, en 
el ejemplo que te paso es un textbox vos tendrías que basarlo en un command, 
algo así: 



  Define Class MiText1 As TextBox

   Procedure InteractiveChange
Thisform.lcambia=.T.
   Endproc



   Procedure RightClick
This.Parent.Parent.RightClick()
   Endproc



   Procedure LostFocus
Thisform.lcambia=.F.
   Endproc



   Procedure Valid
Local llretval,cpo,colP,colV,colT,estacol
llretval=.T.
If Thisform.lcambia
 If This.Value<0
  =Messagebox("No puede ser negativo")
  llretval=.F.
 Endif 
Endif
Return llretval
   Endproc


   Procedure Click
This.SetFocus

   Endproc




  Enddefine

  y en el form agrego el control, acá es una columna en la grilla con 
el textbox basado en la clase anterior, el tuyo debe ser menos complicado, te 
lo paso igual por si te sirve:



  i=8 &&thisform.pgf.pg2.grdlist.ColumnCount 

  j=0
  bacolor1=200 &&arranca con RGB(200,250,255)
  bacolor2=300

  SELECT quintero
  go top 
  DO WHILE !EOF()
Thisform.pgf.pg2.grdlist.ColumnCount=i+1
bacolor2=bacolor2-50
IF bacolor2<0
 bacolor2=250
 bacolor1=bacolor1-50
endif
j=j+1
i=i+1 

cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.Caption='Ing 
"+ALLTRIM(LEFT(quintero.nombre,20))+"'"
&cpo1
  *!*   cpo1="Thisform.pgf.pg2.grdlist.Column 
"+ALLTRIM(STR(i))+".ControlSource='_ctmp_liqui.quinI"+ALLTRIM(STR(j))+"'"
  *!*   &cpo1

[GUFA] Visor PDF

2007-10-05 Por tema Luis Dalmasso 
a bueno... vos pablo la queres linda, que haga todo pero que no consuma..,
buscando una mas feita pero gratis tenes el
http://sourceforge.net/projects/ghostscript/  con ghostscript podes hacer lo
que queras con los pdf pero vas a tener que lidiar algunas horas, nada
recomendable pero gratis

El día 5/10/07, PabloC <[EMAIL PROTECTED]> escribió:
>
>  Funciona muy bien, pero OJO que no es free
>
> Saludos
> PabloC
>
> - Original Message -
> *From:* Carlos A. Cuevas <[EMAIL PROTECTED]>
> *To:* GUFA List Member 
> *Sent:* Friday, October 05, 2007 3:42 PM
> *Subject:* [GUFA] Visor PDF
>
>
>
> gracias
>
>
>
> *De:* GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] *En nombre de *Luis
> Dalmasso
> *Enviado el:* viernes, 05 de octubre de 2007 13:05
> *Para:* GUFA List Member
> *Asunto:* [GUFA] Visor PDF
>
>
>
> para tu suerte si existe hay una herramienta que se llama pdf2word,
> permite trabajar en modo batch y con muchas opciones desde la linea de
> comando seria (extraido de la ayuda)
>
> Usage: PDF2RTF [Option]  []
> -f  : First page to be converted
> -l  : Last page to be converted
> -z   : Set zoom ratio when conversion, the range is from 50 to
> 200
> -b : Space between characters
> -q   : Exit after converting
> -m   : Run without window
> -r   : Overwrite an existing destination file without
> prompting to confirm
> -h or -? : Print usage information
> -i   : PDF file will be converted
> -o  : RTF file will be generated
>
> For example :
> PDF2RTF -i c:\a.pdf
> PDF2RTF -i c:\a.pdf -o c:\a.rtf
> PDF2RTF -q -f 5 -l 8 -i c:\a.pdf -o c:\a.rtf
> PDF2RTF -q -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
> PDF2RTF -q -m -r -b 50 -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
>
>
> de esta manera covertirias a RTF temporariamente tus pdf buscas el texto y
> luego eliminas
>
>
>
> Saludos
>
> Luis Dalmasso
>
>
>
>
>
>
>
> 2007/10/5, Carlos A. Cuevas <[EMAIL PROTECTED]>:
>
>   Hola
>
>   Tengo una carpeta que tiene una cantidad grande de archivos pdf.
>
>   Lo que quiero conseguir alguna utilidad para poder buscar en los
> contenidos de los archivos pdf.
>
>
>
> Atte. Carlos
>
>
>
> *De:* GUFA@mug.org.ar [mailto: [EMAIL PROTECTED] *En nombre de *Gustavo
> Señoriño
> *Enviado el:* Viernes, 05 de Octubre de 2007 11:21
> *Para:* GUFA List Member
> *Asunto:* [GUFA] Form con Botones Variable
>
>
>
> Muchas Gracias Estela!! Lo voy a probar...
>
>
>
>  - Original Message -
>
> *From:* Estela Lázaro <[EMAIL PROTECTED]>
>
> *To:* GUFA List Member 
>
> *Sent:* Thursday, October 04, 2007 8:37 PM
>
> *Subject:* [GUFA] Form con Botones Variable
>
>
>
> Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos,
> creo una clase con sus métodos y agrego el control por programa, en el
> ejemplo que te paso es un textbox vos tendrías que basarlo en un command,
> algo así:
>
>
>
> Define Class MiText1 As TextBox
>
>  Procedure InteractiveChange
>   Thisform.lcambia=.T.
>  Endproc
>
>
>
>  Procedure RightClick
>   This.Parent.Parent.RightClick()
>  Endproc
>
>
>
>  Procedure LostFocus
>   Thisform.lcambia=.F.
>  Endproc
>
>
>
>  Procedure Valid
>   Local llretval,cpo,colP,colV,colT,estacol
>   llretval=.T.
>   If Thisform.lcambia
>If This.Value<0
> =Messagebox("No puede ser negativo")
> llretval=.F.
>Endif
>   Endif
>   Return llretval
>  Endproc
>
>
>  Procedure Click
>   This.SetFocus
>
>  Endproc
>
>
>
>
> Enddefine
>
> y en el form agrego el control, acá es una columna en la grilla con el
> textbox basado en la clase anterior, el tuyo debe ser menos complicado, te
> lo paso igual por si te sirve:
>
>
>
> i=8 &&thisform.pgf.pg2.grdlist.ColumnCount
>
> j=0
> bacolor1=200 &&arranca con RGB(200,250,255)
> bacolor2=300
>
> SELECT quintero
> go top
> DO WHILE !EOF()
>   Thisform.pgf.pg2.grdlist.ColumnCount=i+1
>   bacolor2=bacolor2-50
>   IF bacolor2<0
>bacolor2=250
>bacolor1=bacolor1-50
>   endif
>   j=j+1
>   i=i+1
>   
> cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.Caption='Ing
> "+ALLTRIM(LEFT(quintero.nombre,20))+"'"
>   &cpo1
> *!*   
> cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".ControlSource='_ctmp_liqui.quinI"+ALLTRIM(STR(j))+"'"
> *!*   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Width=60"
>

[GUFA] Visor PDF

2007-10-05 Por tema PabloC 
Funciona muy bien, pero OJO que no es free

Saludos
PabloC
  - Original Message - 
  From: Carlos A. Cuevas 
  To: GUFA List Member 
  Sent: Friday, October 05, 2007 3:42 PM
  Subject: [GUFA] Visor PDF


  gracias

   

  De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Luis Dalmasso
  Enviado el: viernes, 05 de octubre de 2007 13:05
  Para: GUFA List Member
  Asunto: [GUFA] Visor PDF

   

  para tu suerte si existe hay una herramienta que se llama pdf2word, permite 
trabajar en modo batch y con muchas opciones desde la linea de comando seria 
(extraido de la ayuda)

  Usage: PDF2RTF [Option]  []
  -f  : First page to be converted
  -l  : Last page to be converted
  -z   : Set zoom ratio when conversion, the range is from 50 to 
200 
  -b : Space between characters
  -q   : Exit after converting
  -m   : Run without window
  -r   : Overwrite an existing destination file without prompting 
to confirm 
  -h or -? : Print usage information
  -i   : PDF file will be converted
  -o  : RTF file will be generated

  For example : 
  PDF2RTF -i c:\a.pdf
  PDF2RTF -i c:\a.pdf -o c:\a.rtf
  PDF2RTF -q -f 5 -l 8 -i c:\a.pdf -o c:\a.rtf
  PDF2RTF -q -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
  PDF2RTF -q -m -r -b 50 -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf 
   

  de esta manera covertirias a RTF temporariamente tus pdf buscas el texto y 
luego eliminas

   

  Saludos

  Luis Dalmasso

   

   

   

  2007/10/5, Carlos A. Cuevas <[EMAIL PROTECTED]>:

Hola

  Tengo una carpeta que tiene una cantidad grande de archivos pdf.

  Lo que quiero conseguir alguna utilidad para poder buscar en los 
contenidos de los archivos pdf.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto: [EMAIL PROTECTED] En nombre de Gustavo Señoriño
Enviado el: Viernes, 05 de Octubre de 2007 11:21
Para: GUFA List Member
Asunto: [GUFA] Form con Botones Variable

 

Muchas Gracias Estela!! Lo voy a probar...

 

  - Original Message - 

  From: Estela Lázaro 

  To: GUFA List Member 

  Sent: Thursday, October 04, 2007 8:37 PM

  Subject: [GUFA] Form con Botones Variable

   

  Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos, 
creo una clase con sus métodos y agrego el control por programa, en el ejemplo 
que te paso es un textbox vos tendrías que basarlo en un command, algo así: 

   

  Define Class MiText1 As TextBox

   Procedure InteractiveChange
Thisform.lcambia=.T.
   Endproc

   

   Procedure RightClick
This.Parent.Parent.RightClick()
   Endproc

   

   Procedure LostFocus
Thisform.lcambia=.F.
   Endproc

   

   Procedure Valid
Local llretval,cpo,colP,colV,colT,estacol
llretval=.T.
If Thisform.lcambia
 If This.Value<0
  =Messagebox("No puede ser negativo")
  llretval=.F.
 Endif 
Endif
Return llretval
   Endproc


   Procedure Click
This.SetFocus

   Endproc

   


  Enddefine

  y en el form agrego el control, acá es una columna en la grilla con el 
textbox basado en la clase anterior, el tuyo debe ser menos complicado, te lo 
paso igual por si te sirve:

   

  i=8 &&thisform.pgf.pg2.grdlist.ColumnCount 

  j=0
  bacolor1=200 &&arranca con RGB(200,250,255)
  bacolor2=300

  SELECT quintero
  go top 
  DO WHILE !EOF()
Thisform.pgf.pg2.grdlist.ColumnCount=i+1
bacolor2=bacolor2-50
IF bacolor2<0
 bacolor2=250
 bacolor1=bacolor1-50
endif
j=j+1
i=i+1 

cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.Caption='Ing 
"+ALLTRIM(LEFT(quintero.nombre,20))+"'"
&cpo1
  *!*   cpo1="Thisform.pgf.pg2.grdlist.Column 
"+ALLTRIM(STR(i))+".ControlSource='_ctmp_liqui.quinI"+ALLTRIM(STR(j))+"'"
  *!*   &cpo1
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Width=60"
&cpo1
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".ReadOnly=.f."
&cpo1

cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".InputMask='99.99 '"
&cpo1


cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".AddObject('TextI','MiText1')"
&cpo1
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".CurrentControl 
='TextI'" 
&cpo1
  *  
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".BackColor=RGB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255)"
cpo1="thisform.pgf.pg2.grd

[GUFA] Visor PDF

2007-10-05 Por tema Carlos A. Cuevas 
gracias

 

De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Luis Dalmasso
Enviado el: viernes, 05 de octubre de 2007 13:05
Para: GUFA List Member
Asunto: [GUFA] Visor PDF

 

para tu suerte si existe hay una herramienta que se llama pdf2word, permite
trabajar en modo batch y con muchas opciones desde la linea de comando seria
(extraido de la ayuda)

Usage: PDF2RTF [Option]  []
-f  : First page to be converted
-l  : Last page to be converted
-z   : Set zoom ratio when conversion, the range is from 50 to
200 
-b : Space between characters
-q   : Exit after converting
-m   : Run without window
-r   : Overwrite an existing destination file without prompting
to confirm 
-h or -? : Print usage information
-i   : PDF file will be converted
-o  : RTF file will be generated

For example : 
PDF2RTF -i c:\a.pdf
PDF2RTF -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 5 -l 8 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -m -r -b 50 -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf 
 

de esta manera covertirias a RTF temporariamente tus pdf buscas el texto y
luego eliminas

 

Saludos

Luis Dalmasso

 

 

 

2007/10/5, Carlos A. Cuevas <[EMAIL PROTECTED]>:

Hola

  Tengo una carpeta que tiene una cantidad grande de archivos pdf.

  Lo que quiero conseguir alguna utilidad para poder buscar en los
contenidos de los archivos pdf.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto: GUFA@mug.org.ar <mailto:GUFA@mug.org.ar> ] En
nombre de Gustavo Señoriño
Enviado el: Viernes, 05 de Octubre de 2007 11:21
Para: GUFA List Member
Asunto: [GUFA] Form con Botones Variable

 

Muchas Gracias Estela!! Lo voy a probar...

 

- Original Message - 

From: Estela Lázaro <mailto:[EMAIL PROTECTED]>  

To: GUFA <mailto:GUFA@mug.org.ar>  List Member 

Sent: Thursday, October 04, 2007 8:37 PM

Subject: [GUFA] Form con Botones Variable

 

Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos, creo
una clase con sus métodos y agrego el control por programa, en el ejemplo
que te paso es un textbox vos tendrías que basarlo en un command, algo así: 

 

Define Class MiText1 As TextBox

 Procedure InteractiveChange
  Thisform.lcambia=.T.
 Endproc

 

 Procedure RightClick
  This.Parent.Parent.RightClick()
 Endproc

 

 Procedure LostFocus
  Thisform.lcambia=.F.
 Endproc

 

 Procedure Valid
  Local llretval,cpo,colP,colV,colT,estacol
  llretval=.T.
  If Thisform.lcambia
   If This.Value<0
=Messagebox("No puede ser negativo")
llretval=.F.
   Endif 
  Endif
  Return llretval
 Endproc


 Procedure Click
  This.SetFocus

 Endproc

 


Enddefine

y en el form agrego el control, acá es una columna en la grilla con el
textbox basado en la clase anterior, el tuyo debe ser menos complicado, te
lo paso igual por si te sirve:

 

i=8 &&thisform.pgf.pg2.grdlist.ColumnCount 

j=0
bacolor1=200 &&arranca con RGB(200,250,255)
bacolor2=300

SELECT quintero
go top 
DO WHILE !EOF()
  Thisform.pgf.pg2.grdlist.ColumnCount=i+1
  bacolor2=bacolor2-50
  IF bacolor2<0
   bacolor2=250
   bacolor1=bacolor1-50
  endif
  j=j+1
  i=i+1 
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.Caption='In
g "+ALLTRIM(LEFT(quintero.nombre,20))+"'"
  &cpo1
*!*   cpo1="Thisform.pgf.pg2.grdlist.Column
"+ALLTRIM(STR(i))+".ControlSource='_ctmp_liqui.quinI"+ALLTRIM(STR(j))+"'"
*!*   &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Width=60"
  &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".ReadOnly=.f."
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".InputMask='99.9
9 '"
  &cpo1

 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".AddObject('TextI','
MiText1')"
  &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".CurrentControl
='TextI'" 
  &cpo1
*
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".BackColor=RGB("+ALL
TRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255)"
  cpo1="thisform.pgf.pg2.grdlist.Column
"+ALLTRIM(STR(i))+".DynamicBackColor='IIF(ALLTRIM(_ctmp_liqui.lote)="+;
 
'"Totales"'+",RGB(209,168,255),RGB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(
bacolor2))+",255))'" 
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.BackColor=R
GB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255)"
  &cpo1
  cpo1="
Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.ReadOnly=.f."
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI

[GUFA] Visor PDF

2007-10-05 Por tema Luis Dalmasso 
para tu suerte si existe hay una herramienta que se llama pdf2word, permite
trabajar en modo batch y con muchas opciones desde la linea de comando seria
(extraido de la ayuda)
Usage: PDF2RTF [Option]  []
-f  : First page to be converted
-l  : Last page to be converted
-z   : Set zoom ratio when conversion, the range is from 50 to
200
-b : Space between characters
-q   : Exit after converting
-m   : Run without window
-r   : Overwrite an existing destination file without prompting
to confirm
-h or -? : Print usage information
-i   : PDF file will be converted
-o  : RTF file will be generated

For example :
PDF2RTF -i c:\a.pdf
PDF2RTF -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 5 -l 8 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -m -r -b 50 -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf

de esta manera covertirias a RTF temporariamente tus pdf buscas el texto y
luego eliminas

Saludos
Luis Dalmasso



2007/10/5, Carlos A. Cuevas <[EMAIL PROTECTED]>:

>  Hola
>
>   Tengo una carpeta que tiene una cantidad grande de archivos pdf.
>
>   Lo que quiero conseguir alguna utilidad para poder buscar en los
> contenidos de los archivos pdf.
>
>
>
> Atte. Carlos
>
>
>
> *De:* GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] *En nombre de *Gustavo
> Señoriño
> *Enviado el:* Viernes, 05 de Octubre de 2007 11:21
> *Para:* GUFA List Member
> *Asunto:* [GUFA] Form con Botones Variable
>
>
>
> Muchas Gracias Estela!! Lo voy a probar...
>
>
>
>  - Original Message -
>
> *From:* Estela Lázaro <[EMAIL PROTECTED]>
>
> *To:* GUFA List Member 
>
> *Sent:* Thursday, October 04, 2007 8:37 PM
>
> *Subject:* [GUFA] Form con Botones Variable
>
>
>
> Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos,
> creo una clase con sus métodos y agrego el control por programa, en el
> ejemplo que te paso es un textbox vos tendrías que basarlo en un command,
> algo así:
>
>
>
> Define Class MiText1 As TextBox
>
>  Procedure InteractiveChange
>   Thisform.lcambia=.T.
>  Endproc
>
>
>
>  Procedure RightClick
>   This.Parent.Parent.RightClick()
>  Endproc
>
>
>
>  Procedure LostFocus
>   Thisform.lcambia=.F.
>  Endproc
>
>
>
>  Procedure Valid
>   Local llretval,cpo,colP,colV,colT,estacol
>   llretval=.T.
>   If Thisform.lcambia
>If This.Value<0
> =Messagebox("No puede ser negativo")
> llretval=.F.
>Endif
>   Endif
>   Return llretval
>  Endproc
>
>
>  Procedure Click
>   This.SetFocus
>
>  Endproc
>
>
>
>
> Enddefine
>
> y en el form agrego el control, acá es una columna en la grilla con el
> textbox basado en la clase anterior, el tuyo debe ser menos complicado, te
> lo paso igual por si te sirve:
>
>
>
> i=8 &&thisform.pgf.pg2.grdlist.ColumnCount
>
> j=0
> bacolor1=200 &&arranca con RGB(200,250,255)
> bacolor2=300
>
> SELECT quintero
> go top
> DO WHILE !EOF()
>   Thisform.pgf.pg2.grdlist.ColumnCount=i+1
>   bacolor2=bacolor2-50
>   IF bacolor2<0
>bacolor2=250
>bacolor1=bacolor1-50
>   endif
>   j=j+1
>   i=i+1
>   
> cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.Caption='Ing
> "+ALLTRIM(LEFT(quintero.nombre,20))+"'"
>   &cpo1
> *!*   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".ControlSource='_ctmp_liqui.quinI"+ALLTRIM(STR(j))+"'"
> *!*   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Width=60"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".ReadOnly=.f."
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".InputMask='
> 99.99'"
>   &cpo1
>
>   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".AddObject('TextI','MiText1')"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".CurrentControl
> ='TextI'"
>   &cpo1
> *  cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".BackColor=RGB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255)"
>   cpo1="thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".DynamicBackColor='IIF(ALLTRIM(_ctmp_liqui.lote)="+;
>
>   
> '"Totales"'+",RGB(209,168,255),RGB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255))'"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".Header1.BackColor=RGB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255)"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".TextI.ReadOnly=.f."
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".TextI.Enabled=.t."
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Format='kz'"
>   &cpo1
>   cpo1="T hisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".TextI.BorderStyle=0"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".TextI.Format='kz'"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.Value=0"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(STR(i))+".TextI.InputMask='99.99'"
>   &cpo1
>   cpo1="Thisform.pgf.pg2.grdlist.Column
> "+ALLTRIM(S

[GUFA] Visor PDF

2007-10-05 Por tema Carlos A. Cuevas 
Hola

  Tengo una carpeta que tiene una cantidad grande de archivos pdf.

  Lo que quiero conseguir alguna utilidad para poder buscar en los
contenidos de los archivos pdf.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Gustavo Señoriño
Enviado el: Viernes, 05 de Octubre de 2007 11:21
Para: GUFA List Member
Asunto: [GUFA] Form con Botones Variable

 

Muchas Gracias Estela!! Lo voy a probar...

 

- Original Message - 

From: Estela Lázaro   

To: GUFA List Member   

Sent: Thursday, October 04, 2007 8:37 PM

Subject: [GUFA] Form con Botones Variable

 

Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos, creo
una clase con sus métodos y agrego el control por programa, en el ejemplo
que te paso es un textbox vos tendrías que basarlo en un command, algo así:

 

Define Class MiText1 As TextBox

 Procedure InteractiveChange
  Thisform.lcambia=.T.
 Endproc

 

 Procedure RightClick
  This.Parent.Parent.RightClick()
 Endproc

 

 Procedure LostFocus
  Thisform.lcambia=.F.
 Endproc

 

 Procedure Valid
  Local llretval,cpo,colP,colV,colT,estacol
  llretval=.T.
  If Thisform.lcambia
   If This.Value<0
=Messagebox("No puede ser negativo")
llretval=.F.
   Endif
  Endif
  Return llretval
 Endproc


 Procedure Click
  This.SetFocus

 Endproc

 


Enddefine

y en el form agrego el control, acá es una columna en la grilla con el
textbox basado en la clase anterior, el tuyo debe ser menos complicado, te
lo paso igual por si te sirve:

 

i=8 &&thisform.pgf.pg2.grdlist.ColumnCount 

j=0
bacolor1=200 &&arranca con RGB(200,250,255)
bacolor2=300

SELECT quintero
go top 
DO WHILE !EOF()
  Thisform.pgf.pg2.grdlist.ColumnCount=i+1
  bacolor2=bacolor2-50
  IF bacolor2<0
   bacolor2=250
   bacolor1=bacolor1-50
  endif
  j=j+1
  i=i+1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.Caption='In
g "+ALLTRIM(LEFT(quintero.nombre,20))+"'"
  &cpo1
*!*
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".ControlSource='_ctm
p_liqui.quinI"+ALLTRIM(STR(j))+"'"
*!*   &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Width=60"
  &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".ReadOnly=.f."
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".InputMask='99.9
9'"
  &cpo1

 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".AddObject('TextI','
MiText1')"
  &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".CurrentControl
='TextI'"
  &cpo1
*
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".BackColor=RGB("+ALL
TRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255)"
 
cpo1="thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".DynamicBackColor='I
IF(ALLTRIM(_ctmp_liqui.lote)="+;
 
'"Totales"'+",RGB(209,168,255),RGB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(
bacolor2))+",255))'"
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Header1.BackColor=R
GB("+ALLTRIM(STR(bacolor1))+","+ALLTRIM(STR(bacolor2))+",255)"
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.ReadOnly=.f."
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.Enabled=.t."
  &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".Format='kz'"
  &cpo1
  cpo1="T
hisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.BorderStyle=0"
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.Format='kz'"
  &cpo1
  cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.Value=0"
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.InputMask='99
.99'"
  &cpo1
 
cpo1="Thisform.pgf.pg2.grdlist.Column"+ALLTRIM(STR(i))+".TextI.Visible=.t."
  &cpo1
skip

enddo

 

Cualquier cosa, avisame.

 

Estela


Ricardo Aidelman <[EMAIL PROTECTED]> escribió:

Suponiendo que lo estas ejecutando desde un form, agregá el método
Thisform.MiFuncion, con el siguiente código:


AEvents( laEvents, 0 )
loObj = laEvents[ 1 ]

ExecScript( loObj.cCommand )


Y utilizá BindEvent() para atrapar el click de cada boton


*
Do While !Eof("mitabla")

cNombre = mitabla.nombre
nTop = mitabla.top
nLeft = mitabla.left
cCommand = mitabla.comando

* simulemos el contenido del campo memo de tu tabla

TEXT To lcCommand NoShow TextMerge
Try

Create Cursor MiCursor ( UnCampo C(10) )
For i = 1 To 10
Insert Into MiCursor Values ( Sys(2015) )
Endfor

Browse Last

=Messagebox( "Ya ejecute el codigo" )

Error "Esto es a propósito"

=Messagebox( "Esto no se ejecuta" )

Catch To oErr
=Messagebox( "Se produjo un error" + Chr(13) + oErr.Message
)

Finally
If Used( "MiCursor" )
Use In MiCursor
Endif
Endtry
ENDTEXT

Thisform.AddObject(cNombre, "CommandButton")

loObj = Thisform.&cNombre
loObj.Top = nTop
loObj.Left = nLeft
AddProperty( loObj, "cCommand", lcCommand )
loObj.Visible = .T.

Bindevent( loObj, "Click", Thisform, "MiFuncion" )

Enddo