Fatturazione elettronica B2B: programmi

di Anonimizzato21468 il 27 ott 2018, 10:10

814 risposte

814 Risposte - Pagina 2

/
Anonimizzato21468
Utente anonimizzato
28 ott 2018, 11:31
(10) togliere firma p7m.
Il modo più semplice che ho trovato fino ad ora (gratuito) è usare openssl.exe e lanciarlo così
```
   rigadicomando:='cms -verify -in "'+i_infile+'" -inform DER -noverify -outform DER -signer "'+certificato+'" -out "'+i_outfile+'"';
```
/
Anonimizzato21396
Utente anonimizzato
28 ott 2018, 12:22
A me interesserebbe sapere cosa hai usato per xml2pdf. Edocengine?

Anonimizzato21468

Utente anonimizzato

28 ott 2018, 16:19

f3rr0 ha scritto:
A me interesserebbe sapere cosa hai usato per xml2pdf. Edocengine?

Anche. non è difficile, ecco un frammento



function g_xmltopdf(i_form:TObject;i_nomexml:string;i_nomexsl:string;i_nomepdf:string;i_openaftercreate:boolean=true):string;
var
   myXMLDocument1:  TXMLDocument;
   myXSLPageProducer1: TXSLPageProducer;
   mymemo1:tmemo;
   myHTMLViewer1 :THTMLViewer;
   mygtHtmlViewInterface1: TgtHtmlViewInterface;
   mygtPDFEngine1: TgtPDFEngine;

begin
   result:='';
  (...)
   mymemo1                 := TMemo.Create(nil);
   myXMLDocument1          := TXMLDocument.Create(TForm(i_form));
   myXSLPageProducer1      := TXSLPageProducer.Create(TForm(i_form));
   myhtmlviewer1           := Thtmlviewer.Create(tform(i_form));
   mygtHtmlViewInterface1  := TgtHtmlViewInterface.Create(tform(i_form));
   mygtPDFEngine1          := TgtPDFEngine.Create(TForm(i_form));

   myMemo1.WordWrap := False;

   mygtPDFEngine1.FileExtension := 'pdf';
   mygtPDFEngine1.FileDescription := 'Adobe PDF Files';
   mygtPDFEngine1.InputXRes := 96;
   mygtPDFEngine1.InputYRes := 96;
   mygtPDFEngine1.ReferencePoint := rpBand;
   mygtPDFEngine1.FontEncoding := feWinAnsiEncoding;

   mygtHtmlViewInterface1.Engine := mygtPDFEngine1;
   mygtHtmlViewInterface1.DoBeginDoc := True;
   mygtHtmlViewInterface1.DoEndDoc := True;

   myhtmlviewer1.Parent := TForm(i_form);
   myhtmlviewer1.Left := 802;
   myhtmlviewer1.Top := 104;
   myhtmlviewer1.Width := 652;
   myhtmlviewer1.Height := 107;
   myhtmlviewer1.TabOrder := 14;
   myhtmlviewer1.BorderStyle := htFocused;
   myhtmlviewer1.Visible := False;
   myhtmlviewer1.HistoryMaxCount := 0;
   myhtmlviewer1.DefFontName := 'Times New Roman';
   myhtmlviewer1.DefPreFontName := 'Courier New';
   myhtmlviewer1.NoSelect := False;
   myhtmlviewer1.CharSet := DEFAULT_CHARSET;
   myhtmlviewer1.PrintMarginLeft := 2.000000000000000000;
   myhtmlviewer1.PrintMarginRight := 2.000000000000000000;
   myhtmlviewer1.PrintMarginTop := 2.000000000000000000;
   myhtmlviewer1.PrintMarginBottom := 2.000000000000000000;
   myhtmlviewer1.PrintScale := 1.000000000000000000;

   try
       myXMLDocument1.Active := False;
       myXSLPageProducer1.FileName := i_nomexsl;
       myXMLDocument1.FileName := i_nomexml;
       myXSLPageProducer1.XMLData := myXMLDocument1;
       myXMLDocument1.Active := True;
       mymemo1.Text := myXSLPageProducer1.Content;
       myXMLDocument1.Active := False;

       myHTMLViewer1.LoadFromString(mymemo1.Text);

       mygtHtmlViewInterface1.Engine := mygtPDFEngine1;
       mygtPDFEngine1.Preferences.OpenAfterCreate:=i_openaftercreate;
       mygtPDFEngine1.Preferences.ShowSetupDialog := false;
       mygtPDFEngine1.FileName := i_nomepdf;
       mygtHtmlViewInterface1.RenderDocument(myHTMLViewer1);

  except
       on E: Exception do
           loggaNow('ECCEZIONE 2710: '+E.Message);
  end;
   if FileExists(i_nomepdf) then
       result:=i_nomepdf;
  mymemo1.Free;
  myXMLDocument1.Free;
  myXSLPageProducer1.free;
  myhtmlviewer1.Free;
  mygtHtmlViewInterface1.Free;
  mygtPDFEngine1.Free;
end;

/
Anonimizzato21396
Utente anonimizzato
29 ott 2018, 12:03
Ecco appunto, non è la codifica il mio problema, ma il fatto che non ho quei componenti e l'azienda non me li acquista nemmeno se piango in aramaico
/
Anonimizzato22355
Utente anonimizzato
29 ott 2018, 19:36
Io ho copiato da Mastering Delphi 6 questa procedura : DomToTree
Crea un tree view dal file xml
se qualcuno non ha il libro...

procedure TFwps.creatree(nomefile: string);
begin
if FileExists(nomefile) then begin
xmldocument1.LoadFromFile(nomefile);
treeview1.items.clear;
domtotree(XMLdocument1.DocumentElement, nil);
treeview1.fullexpand;
end;
end;

procedure TFwps.domtotree(xmlnode: ixmlnode; treenode: ttreeNode);
var
i:integer;
newtreenode: ttreenode;
nodetext: string;
attrnode: ixmlnode;
begin
if not (xmlnode.nodetype=ntelement) then begin
exit;
end;
nodetext:=xmlnode.nodename;
if xmlnode.istextelement then begin
nodetext:=nodetext+' = '+xmlnode.nodevalue;
end;
newtreenode:=treeview1.items.addchild(treenode,nodetext);
for i:=0 to xmlnode.attributenodes.count -1 do begin
attrnode:=xmlnode.attributenodes.nodes~~[I]~~;
treeview1.items.addchild(newtreenode,'['+attrnode.NodeName+' = "'+attrnode.Text+'"]');
end;
if xmlnode.haschildnodes then begin
for i:=0 to xmlnode.childnodes.count -1 do begin
domtotree(xmlnode.childnodes.nodes, newtreenode);
end;
end;
end;
/
Anonimizzato24798
Utente anonimizzato
30 ott 2018, 07:30
+m2+ ha scritto:
(2) XML2PDF
xml2pdf.exe "z:\ce\ilbelfile.xml" "s:\ilmiofogliodistile.xsl" "c:\temp\dovevoglioilpdf.pdf"
Ciao, il programmino è bello e funziona sia riga di comando, sia con exe.
Se ci fosse da generate il pdf in massivo si può fare in modalità silent print? Senza che di chieda:
conversione eseguita apro il file ? Sarebbe interessante così cacci dentro questo PDF nell'XML...
/
Anonimizzato21468
Utente anonimizzato
30 ott 2018, 09:11
daspa ha scritto:
+m2+ ha scritto:
(2) XML2PDF
xml2pdf.exe "z:\ce\ilbelfile.xml" "s:\ilmiofogliodistile.xsl" "c:\temp\dovevoglioilpdf.pdf"
Ciao, il programmino è bello e funziona sia riga di comando, sia con exe.
Se ci fosse da generate il pdf in massivo si può fare in modalità silent print? Senza che di chieda:
conversione eseguita apro il file ? Sarebbe interessante così cacci dentro questo PDF nell'XML...
posso fare quello che voglio.
tra l'altro uno dei vari altri programmelli è proprio "metti l'allegato dentro lo XML" (è il (4) ).

Essenzialmente devo fare un parserino per verificare che non ci sia già, per qualche motivo, un allegato, diciamo una mezz'ora di lavoro.
Nel pomeriggio se trovo il tempo.
/
Anonimizzato21468
Utente anonimizzato
30 ott 2018, 17:57
Ho aggiornato xml2pdf
https://www.iprogrammatori.it/forum-programmazione/programmatori/fatturazione-elettronica-b2b-programmi-t36534.html#p8610134

per "iniettare" il PDF direttamente dentro l'XML
(non molto testato, per la verità, comunque vabbè, è un dimostrativo)
/
Anonimizzato24798
Utente anonimizzato
30 ott 2018, 18:33
Ciao +m2+, funzionaaa! Bravissimo!!
Si può sempre usarlo in modalità silent con riga di comando ??
/
Anonimizzato21468
Utente anonimizzato
30 ott 2018, 20:42
daspa ha scritto:
Ciao +m2+, funzionaaa! Bravissimo!!
Si può sempre usarlo in modalità silent con riga di comando ??
Domani
/
Anonimizzato21468
Utente anonimizzato
31 ott 2018, 12:18
+m2+ ha scritto:
daspa ha scritto:
Ciao +m2+, funzionaaa! Bravissimo!!
Si può sempre usarlo in modalità silent con riga di comando ??
Domani
Aggiornato, conversione in PDF "nascosta"
https://www.iprogrammatori.it/forum-programmazione/programmatori/fatturazione-elettronica-b2b-programmi-t36534.html#p8610134
/
Anonimizzato24798
Utente anonimizzato
31 ott 2018, 12:32
Funzionaa! Bravissimo +M2+! Funziona anche a riga di comando ??
Grazie
/
Anonimizzato21468
Utente anonimizzato
31 ott 2018, 13:29
Prova
/
Anonimizzato24798
Utente anonimizzato
31 ott 2018, 17:06
Devo avere le istruzioni per la riga di comando:
xml2pdf.exe "z:\ce\ilbelfile.xml" "s:\ilmiofogliodistile.xsl" "c:\temp\dovevoglioilpdf.pdf" = questo va

ma ci vuole un altro parametro x iniettare il pdf dentro xml
xml2pdf.exe "H:\programmitest\IT00000000000_00043.xml" "H:\programmitest\fatturaordinaria_v1.2.1.xsl" "H:\programmitest\IT00000000000_000431.pdf" "S:\prontoperinvioPEC\IT00000000000_00043.xml"
/
Anonimizzato21468
Utente anonimizzato
31 ott 2018, 17:34
daspa ha scritto:
Devo avere le istruzioni per la riga di comando:
xml2pdf.exe "z:\ce\ilbelfile.xml" "s:\ilmiofogliodistile.xsl" "c:\temp\dovevoglioilpdf.pdf" = questo va

ma ci vuole un altro parametro x iniettare il pdf dentro xml
xml2pdf.exe "H:\programmitest\IT00000000000_00043.xml" "H:\programmitest\fatturaordinaria_v1.2.1.xsl" "H:\programmitest\IT00000000000_000431.pdf" "S:\prontoperinvioPEC\IT00000000000_00043.xml"
fatto.
Attenzione tipicamente NON sovrascrive mai (o almeno non dovrebbe)

Devi accedere o registrarti per scrivere nel forum

814 risposte

Fatturazione elettronica B2B: programmi

814 Risposte - Pagina 2

Chi siamo

Link utili

Contatti