problema vb6 + crystal report 7 - Subreportes

[Alexander]

Holas y Buenos dias desde Peru...

Estoy haciendo un reporte en crystal report 7, dicho reporte tiene otros 2
sub reportes, y al momento de llamar al reporte me vuelve a pedir los
parametros pero solo de los subreportes, lo raro es que se los estoy
enviando como lo veran lineas mas abajo

Dim reprem
Dim repdes
Dim repapo
CrystalReport1.WindowShowGroupTree = True
CrystalReport1.WindowShowPrintSetupBtn = True
CrystalReport1.WindowShowPrintBtn = True
CrystalReport1.WindowTitle = "Boleta de Pago"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.ReportFileName = gdrvruta & "reportes\plel32a.rpt"
CrystalReport1.StoredProcParam(0) = gStrIdempresa
CrystalReport1.StoredProcParam(1) = Trim(txtidano.Text)
CrystalReport1.StoredProcParam(2) = Trim(txtidmes.Text)
CrystalReport1.StoredProcParam(3) = "3"
CrystalReport1.StoredProcParam(4) = Trim(txtidanexoini.Text)
CrystalReport1.StoredProcParam(5) = Trim(txtidanexofin.Text)
CrystalReport1.StoredProcParam(6) = Trim(txttboleta1.Text)
CrystalReport1.StoredProcParam(7) = Trim(txttboleta2.Text)
CrystalReport1.Formulas(1) = "empresa= '" & rstempo.Fields("empresa") & "'"
CrystalReport1.Formulas(2) = "direccion= '" & rstempo.Fields("direccion") &
"'"
CrystalReport1.Formulas(3) = "ruc= '" & rstempo.Fields("ruc") & "'"
reprem = CrystalReport1.GetNthSubreportName(0)
CrystalReport1.SubreportToChange = reprem
CrystalReport1.StoredProcParam(0) = gStrIdempresa
CrystalReport1.StoredProcParam(1) = Trim(txtidano.Text)
CrystalReport1.StoredProcParam(2) = Trim(txtidmes.Text)
CrystalReport1.StoredProcParam(3) = "3"
CrystalReport1.StoredProcParam(4) = Trim(txtidanexoini.Text)
CrystalReport1.StoredProcParam(5) = Trim(txtidanexofin.Text)
CrystalReport1.StoredProcParam(6) = Trim(txttboleta1.Text)
CrystalReport1.StoredProcParam(7) = Trim(txttboleta2.Text)
repdes = CrystalReport1.GetNthSubreportName(1)
CrystalReport1.SubreportToChange = repdes
CrystalReport1.StoredProcParam(0) = gStrIdempresa
CrystalReport1.StoredProcParam(1) = Trim(txtidano.Text)
CrystalReport1.StoredProcParam(2) = Trim(txtidmes.Text)
CrystalReport1.StoredProcParam(3) = "3"
CrystalReport1.StoredProcParam(4) = Trim(txtidanexoini.Text)
CrystalReport1.StoredProcParam(5) = Trim(txtidanexofin.Text)
CrystalReport1.StoredProcParam(6) = Trim(txttboleta1.Text)
CrystalReport1.StoredProcParam(7) = Trim(txttboleta2.Text)
repapo = CrystalReport1.GetNthSubreportName(2)
CrystalReport1.SubreportToChange = repapo
CrystalReport1.StoredProcParam(0) = gStrIdempresa
CrystalReport1.StoredProcParam(1) = Trim(txtidano.Text)
CrystalReport1.StoredProcParam(2) = Trim(txtidmes.Text)
CrystalReport1.StoredProcParam(3) = "3"
CrystalReport1.StoredProcParam(4) = Trim(txtidanexoini.Text)
CrystalReport1.StoredProcParam(5) = Trim(txtidanexofin.Text)
CrystalReport1.StoredProcParam(6) = Trim(txttboleta1.Text)
CrystalReport1.StoredProcParam(7) = Trim(txttboleta2.Text)
CrystalReport1.SubreportToChange = ""
CrystalReport1.Action = 1

Ya no se como resolver este problemita, por favor ayuda urgenteeeeee.

saludos

Alex.

[423]

Hola:
por lo general yo suelo definir en el mismo reporte los parametros para los
sub-reportes (click derecho opc Change SunReports Links) y listo no deberia
de tener problemas.

Salu2
Eduardo Valencia Z. (Lima - Perú)
"Alexander" <a_ve...@hotmail.com> escribió en el mensaje
news:ujy4z8Vd...@TK2MSFTNGP03.phx.gbl...