diff --git a/ba/ba6100a.uml b/ba/ba6100a.uml
index e755ab74f..112b79a4f 100755
--- a/ba/ba6100a.uml
+++ b/ba/ba6100a.uml
@@ -19,7 +19,7 @@ END
 
 RADIOBUTTON RDB_BA6_SORT 25
 BEGIN
- 	PROMPT 3 6 "Ordinamento"
+	PROMPT 3 6 "Ordinamento"
 	HELP "Selezionare il tipo di ordinamento dei record stampati"
 	ITEM "1|per Codice"
 	MESSAGE DISABLE,5@|ENABLE,4@|RESET,5@
@@ -98,6 +98,7 @@ STRING FLD_ANF_RAGSOCTO 50 29
 BEGIN
 	PROMPT 34 8 ""
 	COPY USE FLD_ANF_RAGSOCFR
+	INPUT TIPOA "F"
 	INPUT RAGSOC FLD_ANF_RAGSOCTO
 	COPY DISPLAY FLD_ANF_RAGSOCFR
 	OUTPUT FLD_ANF_RAGSOCTO RAGSOC
@@ -149,6 +150,7 @@ STRING FLD_ANG_RAGSOCTO 50 29
 BEGIN
 	PROMPT 34 8 ""
 	COPY USE FLD_ANG_RAGSOCFR
+	INPUT TIPOA "G"
 	INPUT RAGSOC FLD_ANG_RAGSOCTO
 	COPY DISPLAY FLD_ANG_RAGSOCFR
 	OUTPUT FLD_ANG_RAGSOCTO RAGSOC