Corretta formattazione

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

cg/cg4700a.uml

@@ -1,103 +1,103 @@
-#include "cg4700.h"
-
-TOOLBAR "" 0 20 0 2
-
-BUTTON DLG_SAVEREC 8 2
-BEGIN
-PROMPT -14 -1 "~Registra"
-MESSAGE EXIT,K_SAVE
-END
-
-BUTTON DLG_FINDREC 8 2
-BEGIN
-PROMPT -24 -1 "Ri~cerca"
-MESSAGE EXIT,K_F9
-END
-
-BUTTON DLG_CANCEL 8 2
-BEGIN
-PROMPT -34 -1 ""
-MESSAGE EXIT,K_ESC
-END
-
-BUTTON DLG_QUIT 8 2
-BEGIN
-PROMPT -44 -1 ""
-MESSAGE EXIT,K_QUIT
-END
-
-ENDPAGE
-
-PAGE "Gestione acconti di Dicembre" -1 -1 78 15
-
-NUMBER F_CODDITTA 5
-BEGIN
-  PROMPT 1 1 "Ditta "
-  FIELD CODTAB[1,5]
-  FLAGS "ZFR"
-  KEY 1
-  USE LF_NDITTE KEY 1
-  INPUT CODDITTA F_CODDITTA
-  DISPLAY "Ditta" CODDITTA
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_CODDITTA CODDITTA
-  OUTPUT F_RAGSOC RAGSOC
-  CHECKTYPE FORCED
-  WARNING "Ditta assente"
-END
-
-STRING F_RAGSOC 50
-BEGIN                   
-  PROMPT 16 1 "Rag.Soc "
-  KEY 1
-  USE LF_NDITTE KEY 2
-  INPUT RAGSOC F_RAGSOC   
-  DISPLAY "Ragione sociale@50" RAGSOC
-  DISPLAY "Ditta" CODDITTA
-  COPY OUTPUT F_CODDITTA 
-  WARNING "Ditta assente"
-  CHECKTYPE NORMAL
-END
-
-NUMBER F_ANNO 4
-BEGIN
-  PROMPT 1 3 "Anno liquidazione      " 
-  HELP "Introdurre l'anno liquidazione"
-  FIELD CODTAB[6,9]
-  CHECKTYPE REQUIRED
-  KEY 1
-  USE %LIA 
-  JOIN LF_NDITTE TO %LIA INTO CODDITTA=CODTAB[1,5]
-  INPUT CODTAB[1,5] F_CODDITTA
-  INPUT CODTAB[6,9] F_ANNO
-  DISPLAY "Ditta" CODTAB[1,5]
-  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
-  DISPLAY "Anno" CODTAB[6,9]
-  OUTPUT F_CODDITTA CODTAB[1,5]
-  OUTPUT F_ANNO CODTAB[6,9]
-  VALIDATE FIXLEN_FUNC 4
-END
-  
-NUMBER F_ACCONTO 15
-BEGIN
-  PROMPT 1 7 "Acconto dovuto         "
-  HELP "Introdurre l'acconto dovuto"
-  PICTURE "."
-  FLAGS "R"
-  FIELD R4
-  NUM_CALC ROUND(#THIS_FIELD,-3)
-END
-
-NUMBER F_CREDITO 15
-BEGIN
-  PROMPT 1 9 "Credito utilizzato     "
-  HELP "Introdurre il credito utilizzato"
-  PICTURE "."
-  FLAGS "R"
-  FIELD R6
-  NUM_CALC ROUND(#THIS_FIELD,-3)
-END
-
-ENDPAGE
-
-ENDMASK
+#include "cg4700.h"
+
+TOOLBAR "" 0 20 0 2
+
+BUTTON DLG_SAVEREC 8 2
+BEGIN
+PROMPT -14 -1 "~Registra"
+MESSAGE EXIT,K_SAVE
+END
+
+BUTTON DLG_FINDREC 8 2
+BEGIN
+PROMPT -24 -1 "Ri~cerca"
+MESSAGE EXIT,K_F9
+END
+
+BUTTON DLG_CANCEL 8 2
+BEGIN
+PROMPT -34 -1 ""
+MESSAGE EXIT,K_ESC
+END
+
+BUTTON DLG_QUIT 8 2
+BEGIN
+PROMPT -44 -1 ""
+MESSAGE EXIT,K_QUIT
+END
+
+ENDPAGE
+
+PAGE "Gestione acconti di Dicembre" -1 -1 78 15
+
+NUMBER F_CODDITTA 5
+BEGIN
+  PROMPT 1 1 "Ditta "
+  FIELD CODTAB[1,5]
+  FLAGS "ZFR"
+  KEY 1
+  USE LF_NDITTE KEY 1
+  INPUT CODDITTA F_CODDITTA
+  DISPLAY "Ditta" CODDITTA
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_CODDITTA CODDITTA
+  OUTPUT F_RAGSOC RAGSOC
+  CHECKTYPE FORCED
+  WARNING "Ditta assente"
+END
+
+STRING F_RAGSOC 50
+BEGIN                   
+  PROMPT 16 1 "Rag.Soc "
+  KEY 1
+  USE LF_NDITTE KEY 2
+  INPUT RAGSOC F_RAGSOC   
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Ditta" CODDITTA
+  COPY OUTPUT F_CODDITTA 
+  WARNING "Ditta assente"
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 1 3 "Anno liquidazione      " 
+  HELP "Introdurre l'anno liquidazione"
+  FIELD CODTAB[6,9]
+  CHECKTYPE REQUIRED
+  KEY 1
+  USE %LIA 
+  JOIN LF_NDITTE TO %LIA INTO CODDITTA=CODTAB[1,5]
+  INPUT CODTAB[1,5] F_CODDITTA
+  INPUT CODTAB[6,9] F_ANNO
+  DISPLAY "Ditta" CODTAB[1,5]
+  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
+  DISPLAY "Anno" CODTAB[6,9]
+  OUTPUT F_CODDITTA CODTAB[1,5]
+  OUTPUT F_ANNO CODTAB[6,9]
+  VALIDATE FIXLEN_FUNC 4
+END
+  
+NUMBER F_ACCONTO 15
+BEGIN
+  PROMPT 1 7 "Acconto dovuto         "
+  HELP "Introdurre l'acconto dovuto"
+  PICTURE "."
+  FLAGS "R"
+  FIELD R4
+  NUM_CALC ROUND(#THIS_FIELD,-3)
+END
+
+NUMBER F_CREDITO 15
+BEGIN
+  PROMPT 1 9 "Credito utilizzato     "
+  HELP "Introdurre il credito utilizzato"
+  PICTURE "."
+  FLAGS "R"
+  FIELD R6
+  NUM_CALC ROUND(#THIS_FIELD,-3)
+END
+
+ENDPAGE
+
+ENDMASK