asp-pdf

mar
17 de Mayo del 2005
no encuentro codigo para crear de un formulario asp para pasr los datos a pdf directamente
sabe alguien como se hace?
graciassssssss

Max
17 de Mayo del 2005
Si necesitas pasar los datos a una plantilla en PDF, primero debes haber definido los campos en PDF, luego y mediante ASP le pasas los valores, este es un ejemplo de como lo hago yo.

Set Comprobante = Server.CreateObject("APToolkit.Object")
file_inS = Server.MapPath("../pdf/COMPROBANTE_TRANSACCION.pdf") 'PLANTILLA

P = Comprobante.OpenInputFile(file_inS)
if P <> 0 then
response.write("Error al rescatar la plantilla para la generacin del Comprobante" & file_in)
response.end
end if

file_link_S = "../pdf/tmp/" & "COMPTC-" & nro_transaccion & ".PDF" ' ARCHIVO DE SALIDA

FnameS = Comprobante.GetUniqueFileName()
file_out_S = Server.MapPath(file_link_S)
R = Comprobante.OpenOutputFile (file_out_S)

if R <> 0 then
response.write("Error al generar el archivo de salida para el Comprobante de Transaccin" & file_out_S )
response.end
end if

'LLENA ENCABEZADO Y TOTALES DEL DOCUMENTO

Comprobante.SetFormFieldData "txNroTransac", NroTra, 64
Comprobante.SetFormFieldData "txNombre1", Nombre, 64
Comprobante.SetFormFieldData "txFecha", rsComp("FECHA_TRANSACCION_TC"), 64
Comprobante.SetFormFieldData "txTipoTar", rsComp("desc_tipo_tarjeta"), 64
Comprobante.SetFormFieldData "txNroTar", rsComp("NUMSER_VIAPAGO"), 64
Comprobante.SetFormFieldData "txVcto", rsComp("Vcto"), 64
Comprobante.SetFormFieldData "txNroCuotas", rsComp("NRO_CUOTAS_TC"), 64
Comprobante.SetFormFieldData "txTotalUF", formatnumber(rsComp("MONTO_CARGO_UF"),4), 64
Comprobante.SetFormFieldData "txTotalP", formatnumber(rsComp("MONTO_CARGO_PESOS"),0), 64
Comprobante.SetFormFieldData "txCargo", formatnumber(rsComp("MONTO_CARGO_PESOS"),0), 64
Comprobante.SetFormFieldData "txCodAuto", rsComp("CODIGO_AUTORIZACION_TC"), 64
Comprobante.SetFormFieldData "txValorUF", formatnumber(rsComp("VALOR_UF"),2), 64
Comprobante.SetFormFieldData "txUsuario", rsComp("USUARIO"), 64

SET rsComp = rsComp.NextRecordset

'LLENA DETALLE DEL DOCUMENTO
i=1
do while not rsComp.EOF
Comprobante.SetFormFieldData "txtPoliza" & trim(i), rsComp("DESC_RAMO") & "-" & rsComp("POLIZA_POL"), 64
Comprobante.SetFormFieldData "txCobertura" & trim(i), rsComp("Cobertura"), 64
Comprobante.SetFormFieldData "txNroRec" & trim(i), rsComp("FOLIO_RECIBO"), 64
Comprobante.SetFormFieldData "txMontoUF" & trim(i), formatnumber(rsComp("prima_bruta_uf_recibo"),4), 64
Comprobante.SetFormFieldData "txMontoP" & trim(i), formatnumber(rsComp("Monto_P"),0), 64
i=i+1
rsComp.MoveNext
loop


Comprobante.FlattenRemainingFormFields = True
Comprobante.CopyForm 0, 0
Comprobante.ResetFormFields

Comprobante.CloseOutputFile
Comprobante.CloseInputFile

Con esto reemplazas los campos definidos en tu plantilla por los valores de las variables y los guardas en un nuevo documento PDF (file_out_S).

Ahora si deseas levantar el PDF, utiliza el siguiente codigo:

<embed width="100%" height="100%" src=" <%=file_link_S %>" fullscreen="yes"></embed>


espero que te sirva.


Chao