diff --git a/ve/velib04f.cpp b/ve/velib04f.cpp
index 499e87b88..070a6e9e2 100755
--- a/ve/velib04f.cpp
+++ b/ve/velib04f.cpp
@@ -354,6 +354,7 @@ bool TContabilizzazione_analitica::elabora(const TDocumento& doc, long numreg_cg
   TDate datareg, datacomp;
   int annoes = 0;
   TString descr;
+  bool dare = true;
 
   if (numreg_cg > 0)
   {
@@ -362,11 +363,17 @@ bool TContabilizzazione_analitica::elabora(const TDocumento& doc, long numreg_cg
     datacomp = mov_cg.get_date(MOV_DATACOMP);
     annoes = mov_cg.get_int(MOV_ANNOES);
     descr = mov_cg.get(MOV_DESCR);
+    TCausale & caus = (TCausale &) doc2caus(doc);
+    dare = !(caus.sezione_clifo() == 'D');
+
   }
   else
   {
     datareg = datacomp = TDate(TODAY);
     annoes = datareg.year();
+    dare = doc.get_char(DOC_TIPOCF) == 'F';
+    if (doc.is_nota_credito())
+      dare= !dare;
   }
 
   const int decimals = TCurrency::get_firm_dec();
@@ -401,9 +408,6 @@ bool TContabilizzazione_analitica::elabora(const TDocumento& doc, long numreg_cg
 
     if (can_write)
     {
-      bool dare = doc.get_char(DOC_TIPOCF) == 'F';
-      if (doc.is_nota_credito())
-        dare= !dare;
       const char sezione = dare ? 'D' : 'A';
 
       TImporto totdoc;