diff --git a/sc/sc0100p.h b/sc/sc0100p.h
index de175c8b0..9fb1f5b6b 100755
--- a/sc/sc0100p.h
+++ b/sc/sc0100p.h
@@ -1,37 +1,38 @@
-#ifndef __SC0100_H
-#define __SC0100_H
-
-#define E_CODDITTA 301
-#define E_RAGSOC 302
-#define E_DATAREG 303
-#define E_DOCUMENTO 304
-#define E_TIPOMOV 305
-#define E_DESCR 306
-#define E_DATADOC 307
-#define E_NUMDOC 308
-#define E_CLIFO 309
-#define E_CLIENTE 310
-#define E_RAGSOCCLIENTE 311
-#define E_STATOPAIV 312
-#define E_PIVACLIENTE 313
-#define E_COFICLIENTE 314
-#define E_FORNITORE 315
-#define E_RAGSOCFORNITORE 316
-#define E_PIVAFORNITORE 317
-#define E_COFIFORNITORE 318
-
-#define E_TOTALE 319
-#define E_CODPAG 320
-#define E_DESPAG 321
-#define E_ANNORIF 322
-#define E_NUMRIF 323
-#define E_DESCAGG 324
-#define E_SEZIONE 325              
-#define E_TOTDOCVAl 326
-#define E_VALUTA 327
-#define E_DATACAMBIO 328
-#define E_CAMBIO 329
-#define E_TOTDOCVAL 330
-#define E_IMPOSTE 331
-
-#endif
+#ifndef __SC0100_H
+#define __SC0100_H
+
+#define E_CODDITTA 301
+#define E_RAGSOC 302
+#define E_DATAREG 303
+#define E_DOCUMENTO 304
+#define E_TIPOMOV 305
+#define E_DESCR 306
+#define E_DATADOC 307
+#define E_NUMDOC 308
+#define E_CLIFO 309
+#define E_CLIENTE 310
+#define E_RAGSOCCLIENTE 311
+#define E_STATOPAIV 312
+#define E_PIVACLIENTE 313
+#define E_COFICLIENTE 314
+#define E_FORNITORE 315
+#define E_RAGSOCFORNITORE 316
+#define E_PIVAFORNITORE 317
+#define E_COFIFORNITORE 318
+
+#define E_TOTALE 319
+#define E_CODPAG 320
+#define E_DESPAG 321
+#define E_ANNORIF 322
+#define E_NUMRIF 323
+#define E_DESCAGG 324
+#define E_SEZIONE 325              
+#define E_TOTDOCVAl 326
+#define E_VALUTA 327
+#define E_DATACAMBIO 328
+#define E_CAMBIO 329
+#define E_TOTDOCVAL 330
+#define E_IMPOSTE 331
+#define E_CODCAUS 332
+#define E_CAUDES  333
+#endif
diff --git a/sc/sc0100p.uml b/sc/sc0100p.uml
index bb88ddd31..b360b0dbf 100755
--- a/sc/sc0100p.uml
+++ b/sc/sc0100p.uml
@@ -83,9 +83,31 @@ BEGIN
   FIELD LF_PARTITE->TIPOMOV
 END
 
+STRING E_CODCAUS 3
+BEGIN
+  PROMPT 1 6 "Codice causale  "
+  FLAGS "UZ"
+  FIELD LF_PARTITE->CODCAUS
+  USE LF_CAUSALI SELECT TIPOMOV==#E_TIPOMOV
+  INPUT CODCAUS E_CODCAUS
+  DISPLAY "Codice causale" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT E_CODCAUS CODCAUS 
+  OUTPUT E_CAUDES DESCR
+  CHECKTYPE NORMAL
+  MESSAGE EMPTY CLEAR,E_CAUDES
+  ADD RUN cg0 -4
+END
+
+STRING E_CAUDES 50
+BEGIN
+  FLAGS "D"
+  PROMPT 25 6 ""
+END
+
 STRING E_DESCAGG 5
 BEGIN
-  PROMPT 1 6 "Descrizione     "
+  PROMPT 1 7 "Descrizione     "
   FLAGS "UZ"
   USE %DPN
   INPUT CODTAB E_DESCAGG
@@ -98,7 +120,7 @@ END
 
 STRING E_DESCR 50
 BEGIN
-  PROMPT 25 6 ""
+  PROMPT 25 7 ""
   FIELD LF_PARTITE->DESCR
   USE %DPN KEY 2
   INPUT S0 E_DESCR
@@ -119,7 +141,7 @@ END
 
 NUMBER E_CLIENTE 6
 BEGIN
-  PROMPT 1 8 "Cliente      "
+  PROMPT 1 8 "Cliente         "
   FIELD LF_PARTITE->SOTTOCONTO 
   FLAGS "DG"
   GROUP 1
diff --git a/sc/sc0101.cpp b/sc/sc0101.cpp
index e8f5b7042..499b55b79 100755
--- a/sc/sc0101.cpp
+++ b/sc/sc0101.cpp
@@ -775,6 +775,7 @@ void TFattura_mask::write_scadenze() const
     partita.put(PART_SEZ,       get(E_SEZIONE));        
     partita.put(PART_IMPTOTDOC, get(E_TOTALE));
     partita.put(PART_IMPTOTVAL, get(E_TOTDOCVAL));
+    partita.put(PART_CODCAUS,   get(E_CODCAUS));
     
     cambio.put(partita);
     const bool in_valuta = cambio.in_valuta();