Muchas gracias Manuel,Manuel Aranda wrote:Un pequeño aporte: El documento PDF de domiciliación que ha facilitado Manuel para fusionarlo con nuestros datos. Espero os sea de utilidad.
http://www.ge.tt/21mzjFw/v/0?c
Lo que tengo ahora es un PDF.Manuel Aranda wrote:Hola Carlos, si me pasas la plantilla la adapto y la metemos en el ejemplo anterior.
Lo ha sacado de aquí.Manuel Aranda wrote:Hola Carlos, si me pasas la plantilla la adapto y la metemos en el ejemplo anterior.
) Antes de nada, muchísimas gracias por tu generosidad, me acabas de ahorrar un mucho trabajo.Manuel Aranda wrote:He modificado el ejemplo anterior para que contemple tambien el modelo CORE. Aquí está el enlace para descargar.
http://www.ge.tt/8lsQKTw/v/0?c
Estoy seguro que el código es optimizable con la clase XML, pues ya veis como genero el fichero XML, quizá de una forma poco ortodoxa, pero es como se me ha ocurrido hacerlo con los conocimientos que tengo. A ver si alguien se anima a portar el ejemplo utilizando la clase XML.
Modificar un archivo PDF es muy sencillo con la edición profesional de Acrobat Reader. Se pueden asignar y modificar campos en un momento y tener listo un formulario sin tener que tocar nada de código. En fín, que nos salimos del tema del hilo.
Code: Select all
****************************************************
FUNCTION FusionPDF(cFicheroPDF,cFicheroXML,c)
*****************************************************
Local aDbf := {}
Local nHandle
Local nAreaAnterior:=Select()
Local cSalida:="salida"+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+ ".pdf"
Local n:= 1
local oXml := mxmlNewXML()
local oDoc := mxmlNewElement( oXml, "xfdf" )
local oFields , xDato
mxmlElementSetAttr( oDoc, "xmlns", 'http://ns.adobe.com/xfdf/' )
mxmlElementSetAttr( oDoc, "xml:space",'preserve' )
oFields := mxmlNewElement( oDoc, "fields" )
while n < 101
xDato := mxmlNewElement( oFields, 'field' )
mxmlElementSetAttr( xDato, 'name', 'c'+alltrim(str(n,3)) )
xDato := mxmlNewElement( xDato, "value" )
mxmlNewText(xDato, 0, c[n] )
n++
end while
oFields := mxmlNewElement( oDoc, "f" )
mxmlElementSetAttr( oFields, "href" , 'SEPA2.PDF')
mxmlSaveFile( oXML, "datos.xml", MXML_NO_CALLBACK )
//
COPY FILE &cFicheroPDF TO "entrada.pdf"
// COPY FILE &cFicheroXML TO "datos.xml"
//
WaitRun("pdftk.exe entrada.pdf fill_form datos.xml output "+ cSalida,0 )
//
ShellExecute( ,"open", cSalida,,,1 )
//
// ERASE (cFicheroXML)
//
RETURN NIL
@elvira, puedes descargarte esta aplicación del Banco Sabadell en :elvira wrote:Amigos,
Muchísimas gracias por compartir sus experiencias
Entiendo que debemos tener la norma core, porque el b2b es exclusivamente entre empresas, de modo que cuando hay un particular o consumidor no sirve.
¿Alguno tiene un ejemplo del archivo core en formato texto?. No lo encuentro.
Muy agradecida
Hice una única prueba deprisa y corriendo y no me di cuenta que tenía la posibilidad de escoger el modelo modificado.Manuel Aranda wrote:Hola Carlos, esa es una de las razones por las que he puesto dos versiones de cada modelo, una respetando el modelo original y la otra modificada precisamente para quitar el recuadro del logotipo y reorganizar un poco _. La mayoría de los modelos oficiales no son más que una guia para el usuario con toda la información que ha de contener el formulario. Yo por mi parte voy a usar la versión modificada, que para eso me la he currao.
De todas formas, si lo que quieres es usar el modelo original sin el recuadro del logotipo, sólo tienes que editar el PDF con Acrobat Reader Profesional o cualquier otro editor de PDF y con la herramienta "retocar objeto " lo eliminas y ya está.