Patch level : 12.0 no-patch

Files correlati     : fp
Commento            : Vincolato al modulo RS l'esportazione della fattura nell'XML
This commit is contained in:
Mattia Tollari 2018-08-01 14:30:43 +02:00
parent f4eda260e8
commit eeec3674ff
2 changed files with 24 additions and 33 deletions

View File

@ -76,6 +76,7 @@ BOOLEAN F_ESPORTADOC
BEGIN
PROMPT 2 12 "Allega pdf documento nell'XML"
FLAGS "D"
MODULE RS
END
STRING F_FLDDEST 300 50

View File

@ -1425,43 +1425,33 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
remove(paf2600f); // Cancella eventuali allegati
long nprogr = 0; // Numero di file allegati
// Se abilitato stampo il documento e lo allego
if (_allegafattura)
TFilename rep;
if (_allegafattura && dongle().active(RSAUT) && doc.tipo().main_print_profile(rep, 2))
{
//ve1 - 2 FPA 2017 D 202 P D / uADMIN
TFilename rep;
int filter = dongle().active(RSAUT) ? 2 : 1;
while (filter > 0 && !doc.tipo().main_print_profile(rep, filter))
filter--;
if (filter > 0)
{
// Costruisco la chiamata
TString commandline = "ve1 -";
if (filter == 2)
commandline << 2; // Esiste il nuovo report :-)
else
commandline << 0; // Esiste il vecchio form :-(
//ve1 -2 {CODNUM} {ANNO} {PROVV} {NDOC}(-{ANDOC}) {TIPO_ELABORAZIONE} {TIPO_STAMPA}
commandline << ' ' << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC) << " X P"; // X: stampa su disco, P: provvisorio
TExternal_app interattivo(commandline);
if (interattivo.run() != NOERR)
// Costruisco la chiamata
static TString commandline;
commandline.cut(0) << "ve1 -2 " << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC) << " X P"; // X: stampa su disco, P: provvisorio
TExternal_app interattivo(commandline);
if (interattivo.run() != NOERR)
{
TString msgerr = "Fallita generazione PDF documento ";
msgerr << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC);
error_box(msgerr);
}
else
{
TFilename pdf; pdf.tempdir();
pdf << SLASH << doc.get(DOC_ANNO) << '_' << doc.get(DOC_CODNUM) << '_' << doc.get(DOC_NDOC) << ".pdf";
if (!pdf.exist() && !yesno_box("Attenzione! Non è stato possibile creare il pdf, continuare?"))
{
TString msgerr = "Fallita generazione PDF documento ";
msgerr << doc.get(DOC_CODNUM) << ' ' << doc.get(DOC_ANNO)
<< ' ' << doc.get(DOC_PROVV) << ' ' << doc.get(DOC_NDOC);
error_box(msgerr);
}
else
{
TFilename pdf; pdf.tempdir();
pdf << SLASH << doc.get(DOC_ANNO) << '_' << doc.get(DOC_CODNUM) << '_' << doc.get(DOC_NDOC) << ".pdf";
if (!pdf.exist() && !yesno_box("Attenzione! Non è stato possibile creare il pdf, continuare?"))
{
return false;
}
if (!add_row_alleg(pdf, nprogr, paf2600f))
return false;
return false;
}
if (!add_row_alleg(pdf, nprogr, paf2600f))
return false;
}
}