pasar parametro a rpreview

pasar parametro a rpreview

Postby Garbi » 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
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: pasar parametro a rpreview

Postby Armando » Sat Nov 25, 2017 4: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: Select all  Expand view

MEMVAR cMail
FUNCTION MAIN()
......
......

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


Y en el RPreview.Prg
Code: Select all  Expand view

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
User avatar
Armando
 
Posts: 3049
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: pasar parametro a rpreview

Postby Garbi » Mon Nov 27, 2017 9: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
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: pasar parametro a rpreview

Postby Armando » Mon Nov 27, 2017 6:41 pm

Garbi

:D , así pasa cuando sucede :D

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
User avatar
Armando
 
Posts: 3049
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 10 guests