FiveTech Software tech support forums

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

Manuel Aranda wrote:Hola Carlos, si me pasas la plantilla la adapto y la metemos en el ejemplo anterior.

Manuel Aranda wrote:Hola Carlos, si me pasas la plantilla la adapto y la metemos en el ejemplo anterior.

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  Expand view

****************************************************
 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 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 )

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 los campos. 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á.