Alquien tiene TxtPreview o TXTVIEW

Alquien tiene TxtPreview o TXTVIEW

Postby ruben Dario » Sun Dec 07, 2014 8:42 pm

Saludos
Alquien tiene TxtPreview o TXTVIEW

Gracias
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1067
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Alquien tiene TxtPreview o TXTVIEW

Postby Antonio Linares » Sun Dec 07, 2014 10:11 pm

Ruben,

Si lo que quieres es visualizar un texto puedes hacer:

MemoEdit( @cTexto, cTitulo ) --> lModificado
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Alquien tiene TxtPreview o TXTVIEW

Postby Antonio Linares » Sun Dec 07, 2014 10:15 pm

Si quieres fonts y textos de distintos tamaños, etc, puedes usar un control RichEdit.

FiveWin proporciona un editor ya construido, usando:

function RichEdit( cText, cTitle, nTop, nLeft, nBottom, nRight )

Si lo que deseas es editar código fuente, puedes hacer:

SourceEdit( @cSource, cTitle, nClrBack ) --> lCambiado
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Alquien tiene TxtPreview o TXTVIEW

Postby ruben Dario » Sun Dec 07, 2014 11:58 pm

Gracias Antonio

Tengo una aplicación con reportes elaborados con TDosPrn(), y requiero visualizarlo , ya que tiene otros recursos como pasarlos a PDF etc, mientras emigro todo a Eysareport.

Gracias
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1067
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Alquien tiene TxtPreview o TXTVIEW

Postby MauroArevalo » Mon Dec 08, 2014 6:23 pm

Ruben:

Utilizo la Tdosprn y este es codigo que utilizo para hacer al previsualizacion:

Code: Select all  Expand view

PROC IMPDOSPla                              //Catalogo Plan de Cuentas

Local RepDos, i, oBase, Campo1,Campo2,Campo3,Campo4,Campo5,Campo6

DataBase oBase
   oBase:bEof := NIL
   Pub:FHEHA:=Pub:Gfec  
   HAIDY() //Rutina personal
   Empres:=ALLTRIM(Pub:NOMEMP)
   Identi:=("Nit: "+TRANSFORM((VAL(Pub:NITEMP)),"999,999,999")+"-"+Pub:DIGEMP)
   Report:="CATALAGO PLAN DE CUENTAS"
   Filtro:=("Filtro: "+Pub:FILTMENS)
   FecRep:="Fecha Reporte: "+Pub:HEHA+" "+TIME()+SPAC(32)+OemToAnsi("Página: ")

   REPDOS oRepDos HEADER Empres,Identi,Report,Filtro,FecRep+STR(Pub:Pagina,4)  PREVIEW CONDENSED CAPTION Pub:MimpDo
      ADD COLUMN TO oRepDos TITLE "CODIGO"   DATA OemToAnsi(SUBS(Campo1:=oBase:HMCODIGO,1,10)) SIZE  10
      ADD COLUMN TO oRepDos TITLE "NOMBRE DE LA CUENTA"    DATA OemToAnsi(Campo2:=oBase:HMCUENTA) SIZE  35
      ADD COLUMN TO oRepDos TITLE "AUXILI"      DATA OemToAnsi(Campo3:=oBase:HMN)+SPAC(5)   SIZE  6    
      ADD COLUMN TO oRepDos TITLE "SB-AUX"      DATA OemToAnsi(Campo4:=oBase:HMX)+SPAC(5)   SIZE  6
      ADD COLUMN TO oRepDos TITLE "COSTOS"      DATA OemToAnsi(Campo5:=oBase:HMC)+SPAC(5)   SIZE  6
      ADD COLUMN TO oRepDos TITLE "A x I "      DATA OemToAnsi(Campo6:=oBase:HMI)+SPAC(5)   SIZE  6
      oRepDos:bSkip :={||oBase:Skip()}
      oRepDos:bWhile:={||!oBase:Eof()}  
   ACTIVATE REPDOS oRepDos
oBase:Close()

RETURN NIL
 
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
User avatar
MauroArevalo
 
Posts: 107
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia

Re: Alquien tiene TxtPreview o TXTVIEW

Postby ruben Dario » Mon Dec 08, 2014 7:28 pm

Mauro Gracias
El Llamado de TDosPrn():New( .t. ) , lo haces atravez de la clase Repdos. En realidad no nonocia estea clase
Que haces en la Rutina HAIDY()

La Clase REPDOS no la tengo, Tu sabes la direccion para descargarla o me la puedes facilitar.

Gracias
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1067
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Alquien tiene TxtPreview o TXTVIEW

Postby karinha » Wed Dec 10, 2014 11:53 am

Envia un correo a Carlos Sincuir,

csincuir@tecnisistemas.com

www.tecnisistemas.com

Guatemala.

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Alquien tiene TxtPreview o TXTVIEW

Postby Antonio Linares » Wed Dec 10, 2014 12:04 pm

Ruben,

Si la consigues publica por favor el enlace aqui y la guardamos en bitbucket :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Alquien tiene TxtPreview o TXTVIEW

Postby karinha » Wed Dec 10, 2014 1:17 pm

Acá tien una excelente idéia de Pablo César del PcToledo, está en otra lengua, mas talvez sea posible converter:

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=15702

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Alquien tiene TxtPreview o TXTVIEW

Postby ruben Dario » Wed Dec 10, 2014 2:52 pm

Antonio
Ya la consegui

Aqui esta el enlace del TXTVIEW

[url]
https://www.dropbox.com/s/9k2cmy4y9io6a ... W.PRG?dl=0
[/url]
Last edited by ruben Dario on Thu Dec 11, 2014 7:18 pm, edited 1 time in total.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1067
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Alquien tiene TxtPreview o TXTVIEW

Postby karinha » Wed Dec 10, 2014 3:09 pm

Ruben, Repdos.prg ya está disponible:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29797

Muchas gracias a Mauro.

saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Alquien tiene TxtPreview o TXTVIEW

Postby csincuir » Wed Dec 10, 2014 3:44 pm

Gracias a Mauro, ya esta colocado el link para descargar la TRepDos, ya que yo no encontraba el ejemplo que tenia de la clase y luego subirla en algun sitio.
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29797

Por otro lado, por si alguno esta interesado, tengo otra clase parecida a la TRepDos, solo que es para Excel, "TRepXls", con la que hago reportes del tipo columnas (igual que la TReport), y hasta logre hacer ya una opción de crear agrupaciones (GROUP), de un solo nivel.

Si les interesa, preparo el ejemplo y la clase y la coloco para que la puedan probar, y de repente agregarle mas funcionalidades.

Saludos cordiales,

Carlos.
csincuir
 
Posts: 407
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Re: Alquien tiene TxtPreview o TXTVIEW

Postby ruben Dario » Wed Dec 10, 2014 3:47 pm

csincuir wrote:Gracias a Mauro, ya esta colocado el link para descargar la TRepDos, ya que yo no encontraba el ejemplo que tenia de la clase y luego subirla en algun sitio.
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29797

Por otro lado, por si alguno esta interesado, tengo otra clase parecida a la TRepDos, solo que es para Excel, "TRepXls", con la que hago reportes del tipo columnas (igual que la TReport), y hasta logre hacer ya una opción de crear agrupaciones (GROUP), de un solo nivel.

Si les interesa, preparo el ejemplo y la clase y la coloco para que la puedan probar, y de repente agregarle mas funcionalidades.

Saludos cordiales,

Carlos.


Claro Me gustaria ver tu clase, TRepXls , la puedes colocar el link
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1067
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Alquien tiene TxtPreview o TXTVIEW

Postby csincuir » Wed Dec 10, 2014 3:50 pm

Ruben,
Dame el día de hoy para hacer el ejemplo, y si puedo coloco hoy el link, o a mas tardar mañana.

Saludos.

Carlos.
csincuir
 
Posts: 407
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Re: Alquien tiene TxtPreview o TXTVIEW

Postby Antonio Linares » Thu Dec 11, 2014 1:56 pm

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 38 guests