Ayuda con formulario PDF
Tengo que crear un formulario en PDF donde han de aparecer campos autonuméricos (de esos que tienen una numeración nueva cada vez que se abre el documento), campos editables, campos desplegables (donde puedas escoger entre varias opciones), y campos numéricos muestren un valor en función del campo desplegable anterior.
Además debe aparecer algún campo del tipo sumatorio.
Para finalizar, dicho documento al imprimirse debe poder autoenviarse junto con todos los datos a una dirección de correo electrónico.
No sé como realizarlo y necesitaría un poco de ayuda, como qué programa puedo utilizar para generar dicho documento.
Muchas gracias por la ayuda.
Además debe aparecer algún campo del tipo sumatorio.
Para finalizar, dicho documento al imprimirse debe poder autoenviarse junto con todos los datos a una dirección de correo electrónico.
No sé como realizarlo y necesitaría un poco de ayuda, como qué programa puedo utilizar para generar dicho documento.
Muchas gracias por la ayuda.
1 Respuesta
Respuesta de red2
1
Esta secuencia descrita te indica como crear el pdf y como almacenarlo si lo deseas (es ASP):
'Dim crExportOptions As ExportOptions
'Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
'Dim Fname As String
'''Crea el Informe
''crReportDocument = New ReportDocument
'''//********************************************
'''// Carga el Reporte
'' crReportDocument.Load(Ruta)
'crReportDocument.SetParameterValue("hasta", CInt(pcfinal))
'crReportDocument.SetParameterValue("desde", CInt(pcinicial))
'''//********************************************
'''// Asocia el conjunto de datos con el reporte
'crReportDocument.SetDataSource(Dsorigen)
'''//********************************************
'''// Configura la Informacion de Conexion del Reporte preparado para exportar
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.ServerName = Servidor
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.UserID = Login
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.Password = Password
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.DatabaseName = NomBD '"bdemp20"
'''//********************************************
'''// Directorio a donde va a exportar
'Fname = Server.MapPath("exports\" & cNomb_Report & ".pdf")
'''//********************************************
'''// Configura la opcion de Exportar: PDF,EXEL etc.
'crDiskFileDestinationOptions = New DiskFileDestinationOptions
'crDiskFileDestinationOptions.DiskFileName = Fname
'crExportOptions = crReportDocument.ExportOptions
'With crExportOptions
' .DestinationOptions = crDiskFileDestinationOptions
' .ExportDestinationType = ExportDestinationType.DiskFile
' .ExportFormatType = ExportFormatType.PortableDocFormat
'End With
'''//********************************************
'''// Exporta el Reporte
'crReportDocument.Export()
'crReportDocument.Close()
'''//********************************************
'''// Redirecciona
''Response.Clear()
'Response.ContentType = "application/pdf"
'Response.Redirect(Fname)
''Response.WriteFile(Server.MapPath("exports\rptCuentas_contables.pdf"))
''Response.WriteFile(Server.MapPath("exports\rptCuentas_contables.pdf"), IO.FileMode.Open, IO.FileAccess.ReadWrite)
'Dim crExportOptions As ExportOptions
'Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
'Dim Fname As String
'''Crea el Informe
''crReportDocument = New ReportDocument
'''//********************************************
'''// Carga el Reporte
'' crReportDocument.Load(Ruta)
'crReportDocument.SetParameterValue("hasta", CInt(pcfinal))
'crReportDocument.SetParameterValue("desde", CInt(pcinicial))
'''//********************************************
'''// Asocia el conjunto de datos con el reporte
'crReportDocument.SetDataSource(Dsorigen)
'''//********************************************
'''// Configura la Informacion de Conexion del Reporte preparado para exportar
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.ServerName = Servidor
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.UserID = Login
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.Password = Password
'crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.DatabaseName = NomBD '"bdemp20"
'''//********************************************
'''// Directorio a donde va a exportar
'Fname = Server.MapPath("exports\" & cNomb_Report & ".pdf")
'''//********************************************
'''// Configura la opcion de Exportar: PDF,EXEL etc.
'crDiskFileDestinationOptions = New DiskFileDestinationOptions
'crDiskFileDestinationOptions.DiskFileName = Fname
'crExportOptions = crReportDocument.ExportOptions
'With crExportOptions
' .DestinationOptions = crDiskFileDestinationOptions
' .ExportDestinationType = ExportDestinationType.DiskFile
' .ExportFormatType = ExportFormatType.PortableDocFormat
'End With
'''//********************************************
'''// Exporta el Reporte
'crReportDocument.Export()
'crReportDocument.Close()
'''//********************************************
'''// Redirecciona
''Response.Clear()
'Response.ContentType = "application/pdf"
'Response.Redirect(Fname)
''Response.WriteFile(Server.MapPath("exports\rptCuentas_contables.pdf"))
''Response.WriteFile(Server.MapPath("exports\rptCuentas_contables.pdf"), IO.FileMode.Open, IO.FileAccess.ReadWrite)
