Paso de parametros con el R&R
Posted: Thu Feb 01, 2007 11:15 pm
Hola:
Necesito ayuda para pasar parametros (encabezado de reportes)
en R&R.
ya generé la variable empresa con el riparam("nombre") dentro del reporte e inserté el campo empresa
pero no se como mandar el parámetro
tengo la variable public nombre="CASTA" en el menu.prg
mando llamar el reporte con la funcion
Mostrar2("FACTURA", cruta, "D")
FUNCTION Mostrar2(repname, xRutadbf, tipsal)
local oRRw
local xRutaryr:=".\R&R\"
local xReport:=repname+".RRW"
local xPagIni:=1
local xPagFin:=999
// local xRutadbf:=".\Datos"
local xCopias:=1
local xPrev:=tipsal
local xSalida:=" "
local lquery:=.f.
local xPrint:="REPORTES"
local xRutarun:=".\Runtime\RRWRUN /T"
Local cPath :=(CurDrive() + ":\" + GetCurDir() + "\Datos")
oRRw:= RRWNEW():NEW("",xRutaryr+xReport,xPagIni,xPagFin,xRutadbf)
oRRw:SetPrinter("REPORTES")
oRRw:SetMaster(xRutadbf)
oRRw:SetCop( xCopias )
oRRw:SetOutPut(xPrev,xSalida,xPrint)
oRRw:Print(xRutarun)
oRRw:End()
Return nil
Necesito ayuda para pasar parametros (encabezado de reportes)
en R&R.
ya generé la variable empresa con el riparam("nombre") dentro del reporte e inserté el campo empresa
pero no se como mandar el parámetro
tengo la variable public nombre="CASTA" en el menu.prg
mando llamar el reporte con la funcion
Mostrar2("FACTURA", cruta, "D")
FUNCTION Mostrar2(repname, xRutadbf, tipsal)
local oRRw
local xRutaryr:=".\R&R\"
local xReport:=repname+".RRW"
local xPagIni:=1
local xPagFin:=999
// local xRutadbf:=".\Datos"
local xCopias:=1
local xPrev:=tipsal
local xSalida:=" "
local lquery:=.f.
local xPrint:="REPORTES"
local xRutarun:=".\Runtime\RRWRUN /T"
Local cPath :=(CurDrive() + ":\" + GetCurDir() + "\Datos")
oRRw:= RRWNEW():NEW("",xRutaryr+xReport,xPagIni,xPagFin,xRutadbf)
oRRw:SetPrinter("REPORTES")
oRRw:SetMaster(xRutadbf)
oRRw:SetCop( xCopias )
oRRw:SetOutPut(xPrev,xSalida,xPrint)
oRRw:Print(xRutarun)
oRRw:End()
Return nil