Corretti errori ricerche

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

cg/cg2100b.uml

@@ -21,7 +21,7 @@ BEGIN
   INPUT CODDITTA F_CODDITTA
   DISPLAY "Codice" CODDITTA
   OUTPUT F_RAGSOC RAGSOC
-  CHECKTYPE REQUIRED
+  CHECKTYPE NORMAL
 END
 
 STRING F_RAGSOC 50
@@ -43,6 +43,7 @@ BEGIN
   PROMPT 1 3 "Data operazione         "
   HELP "Data in cui viene effettuata l'operazione"
   FIELD DATAREG
+  CHECKTYPE REQUIRED
 END
 
 
@@ -51,13 +52,14 @@ BEGIN
   PROMPT 1 4 "Data di competenza      "
   HELP "Data di competenza dell'operazione"
   FIELD DATACOMP
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_ANNOES 4
 BEGIN
   PROMPT 56 4 "Esercizio     "
   FIELD ANNOES
-  FLAGS "DRZ"
+  FLAGS "DZ"
 END
 
 STRING F_CODCAUS 3

cg/cg2100c.uml

@@ -31,7 +31,7 @@ BEGIN
   USE LF_NDITTE KEY 1
   INPUT CODDITTA F_CODDITTA
   OUTPUT F_RAGSOC RAGSOC
-  CHECKTYPE REQUIRED
+  CHECKTYPE NORMAL
 END
 
 STRING F_RAGSOC 50
@@ -55,6 +55,7 @@ BEGIN
   HELP "Data in cui viene registrata l'operazione"
   FIELD LF_MOV->DATAREG
   MESSAGE COPY,H_DATAREG|COPY,F_ANNOIVA,7,10
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_ANNOIVA 4
@@ -69,6 +70,7 @@ BEGIN
   PROMPT 1 4 "Data competenza "
   HELP "Data di competenza dell'operazione"
   FIELD LF_MOV->DATACOMP
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_ANNOES 4

cg/cg21cg.uml

@@ -11,6 +11,7 @@ BEGIN
 	HELP "Codice della descrizione aggiuntiva della riga"
 	FLAGS "UZ"
 	USE %DPN
+	INPUT CODTAB 108
 	DISPLAY "Codice" CODTAB
 	DISPLAY "Descrizione@50" S0
 	OUTPUT 108 CODTAB

cg/cg5400a.uml

@@ -6,8 +6,7 @@ NUMBER F_FIRM 5
 BEGIN
   PROMPT 4 1 "Ditta     "
   FLAGS "RF"
-  USE LF_NDITTE KEY 1
+  USE LF_NDITTE
-  CHECKTYPE NORMAL
   INPUT CODDITTA F_FIRM
   DISPLAY "Codice" CODDITTA
   DISPLAY "Ragione sociale @50" RAGSOC
@@ -15,6 +14,8 @@ BEGIN
   OUTPUT F_DFIRM RAGSOC
   HELP "Codice della ditta da cui prelevare i dati"
   WARNING "Ditta assente"
+  CHECKTYPE REQUIRED
+  MESSAGE DIRTY,F_REG
 END
 
 STRING F_DFIRM 50