Saludos al Forum
Hola.
Tengo un reporte ya hecho , pero requiero aumentar dos tablas mas, como lo puedo hacer, cuando el reporte lo hgo de nuevo si me coloca las tablas nuevas , pero este ya existe.
Hola.
Tengo un reporte ya hecho , pero requiero aumentar dos tablas mas, como lo puedo hacer, cuando el reporte lo hgo de nuevo si me coloca las tablas nuevas , pero este ya existe.
oDati := "oDatos"
aQrys := {}
for i = 1 to len(mQrys)
aadd( aQrys, { oDati ,BdQrys[i] } )
oDati := "oDatos"+alltrim(str(i))
Next
with object oFrP //este codigo funciona pero se maneja el MAKEDATASET
for xx := 1 to len( aQrys )
cVar :="oDataset"+strzero(xx,2)
&cVar := oClone( aQrys[xx,2] ) //antes oClone
:SetUserDataSet( aQrys[xx,1] ,;
mysqlfield1( &cVar ) ,; //mysqlfield1( &cVar ) ,;
{|| bs_naveg02(&cVar,"P",oApp:rt) } ,;
{|| bs_naveg02(&cVar,"S",oApp:rt) } ,;
{|| bs_naveg02(&cVar,"A",oApp:rt) } ,;
{|| &cVar:EOF() } ,;
{ | aField | bs_mostda12(&cVar,aField," "," ",oApp:rt) } ) // se modifico para ADO
next
end with
lShowCustName := .t.
nAction := 0
nArc := ".\REPS\" + alltrim(MODUL)+".fr3"
IF FILE (nArc)
oFrP:LoadFromFile(nArc) //Aqui cargo el reporte si ya existe
endif
def_Varfastr(oFrP,GRUPO,MODUL)
def_Desigfasr(oFrP)