FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour pasar parametro a rpreview
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
pasar parametro a rpreview
Posted: Sat Nov 25, 2017 12:30 PM

Quisiera pasar como parámetro a rpreview.prg el email del cliente. Tengo fwh 1509

¿Alguien sabe podría echarme una mano?

Muchas Gracias

Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: pasar parametro a rpreview
Posted: Sat Nov 25, 2017 04:53 PM
Garbi:

Una forma sencilla es que crees una variable de memoria:

En el PRG que envía la dirección de correo

Code (fw): Select all Collapse
MEMVAR cMail
FUNCTION MAIN()
......
......

cMail := "Ladirección.mx"
RETURN(.T.)


Y en el RPreview.Prg
Code (fw): Select all Collapse
MEMVAR cMail
FUNCTION RPreview( oDevice )
       MsgInfo(cMail)
RETURN(.T:)


Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Re: pasar parametro a rpreview
Posted: Mon Nov 27, 2017 09:33 AM

Gracias.
En vez de memvar he usado variables publicas y ha funcionado perfectamente.

Ay la vejez, mira que parezco novato.

Muchas Gracias.

Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: pasar parametro a rpreview
Posted: Mon Nov 27, 2017 06:41 PM

Garbi

, así pasa cuando sucede

Saludos

:D:D

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion