Parametro para informe
Publicado por Victor L (47 intervenciones) el 30/12/2002 01:50:31
Tengo la siguiente rutina:
CrystalReport.WindowState = crptMaximized
CrystalReport.Destination = crptToWindow
CrystalReport.Formulas(0) = "Dia= """ & Format(Date, "dd") & """"
CrystalReport.Formulas(1) = "Mes= """ & Format(Date, "mmmm") & """"
CrystalReport.Formulas(2) = "Año= """ & Format(Date, "yy") & """"
'CrystalReport.Formulas(3) = "Son= 'xNumLetra'"
**** CrystalReport.Formulas(3) = "Son= " & xNumLetra & "" ****
CrystalReport.WindowTitle = "Presentación Preliminar"
CrystalReport.DataFiles(0) = Conecta
CrystalReport.ReportFileName = LeePath("Report") + "\vtadirecta.rpt"
CrystalReport.SelectionFormula = ""
CrystalReport.Action = 1
X = vacia_formulas(CrystalReport, 4)
pero donde está con ***, no me muestra nada en el reporte pero si le paso solo texto lo hace ¿ a que se debe ?
necesito pasarle el valor de la funcion de NumerosLetras para las facturas pero no me resulta..
Ojala me ayuden.
Gracias
CrystalReport.WindowState = crptMaximized
CrystalReport.Destination = crptToWindow
CrystalReport.Formulas(0) = "Dia= """ & Format(Date, "dd") & """"
CrystalReport.Formulas(1) = "Mes= """ & Format(Date, "mmmm") & """"
CrystalReport.Formulas(2) = "Año= """ & Format(Date, "yy") & """"
'CrystalReport.Formulas(3) = "Son= 'xNumLetra'"
**** CrystalReport.Formulas(3) = "Son= " & xNumLetra & "" ****
CrystalReport.WindowTitle = "Presentación Preliminar"
CrystalReport.DataFiles(0) = Conecta
CrystalReport.ReportFileName = LeePath("Report") + "\vtadirecta.rpt"
CrystalReport.SelectionFormula = ""
CrystalReport.Action = 1
X = vacia_formulas(CrystalReport, 4)
pero donde está con ***, no me muestra nada en el reporte pero si le paso solo texto lo hace ¿ a que se debe ?
necesito pasarle el valor de la funcion de NumerosLetras para las facturas pero no me resulta..
Ojala me ayuden.
Gracias
Valora esta pregunta


0