Abbassato lo sheet per rendere visibili i campi della valuta

git-svn-id: svn://10.65.10.50/trunk@339 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg2100b.uml

@@ -136,9 +136,42 @@ BEGIN
   COPY OUTPUT F_CODCAUS
 END
 
+STRING F_VALUTA 3
+BEGIN
+  PROMPT 1 9 "Valuta "
+  FIELD LF_MOV->CODVAL
+  FLAGS "U"
+  GROUP 3
+  USE %VAL
+  INPUT CODTAB F_VALUTA
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Nome@50" S0
+  DISPLAY "Cambio@15" R10
+  DISPLAY "Ultimo aggiornamento" D0
+  OUTPUT F_VALUTA CODTAB
+  OUTPUT F_CAMBIO R10
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_CAMBIO 15 5
+BEGIN
+  PROMPT 20 9 "Cambio "
+  FIELD LF_MOV->CAMBIO
+  FLAGS "RU"
+  GROUP 3
+  PICTURE ".5"
+END
+
+BOOLEAN F_VISVAL
+BEGIN
+  PROMPT 47 9 "Visualizza importi in valuta"
+  GROUP 3
+END
+
+
 SPREADSHEET F_SHEETCG
 BEGIN
-  PROMPT 0 9 ""
+  PROMPT 0 10 ""
   ITEM "Dare@15"
   ITEM "Avere@15"
   ITEM " @1"