Corretto errore MI4090

git-svn-id: svn://10.65.10.50/trunk@744 c028cbd2-c16b-5b4b-a496-9718f37d4682
1994-12-07 16:28:19 +00:00 · 1994-12-07 16:28:19 +00:00 · 7660622eb7
commit 7660622eb7
parent 49cc098a5a
9 changed files with 245 additions and 257 deletions
--- a/cg/cg0500a.uml
+++ b/cg/cg0500a.uml
@ -19,7 +19,7 @@ BEGIN
  HELP "Codice identificativo della causale"
  FIELD LF_CAUSALI->CODCAUS
  KEY 1
-  FLAGS "U"
+  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_COD_CAUS
  DISPLAY "Codice" CODCAUS
@ -94,7 +94,7 @@ BEGIN
  OUTPUT F_CORRISP B0
  WARNING "Registro assente o non compatibile col tipo documento"
  CHECKTYPE NORMAL
-  FLAGS "DU"
+  FLAGS "DUZ"
 END

 // Questo rimane quasi sempre nascosto
@ -248,7 +248,7 @@ STRING F_COD_CAUS_IM 3
 BEGIN
  PROMPT 34 8 "Codice causale per l'incasso immediato "
  HELP "Codice causale nel caso di incasso immediato"
-  FLAGS "U"
+  FLAGS "UZ"
  FIELD LF_CAUSALI->CODCAUSIM
  COPY USE F_COD_CAUS
  INPUT CODCAUS F_COD_CAUS_IM
--- a/cg/cg1500a.uml
+++ b/cg/cg1500a.uml
@ -39,8 +39,8 @@ BEGIN
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  //CHECKTYPE NORMAL
-  //MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97  //se il campo e' vuoto manda questi messaggi
-  //MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99  //se invece e' pieno manda questi
+  //MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97 
+  //MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99
  FLAGS "RZ"
 END

--- a/cg/cg3100a.uml
+++ b/cg/cg3100a.uml
@ -95,35 +95,21 @@ END

 DATE F_DATAINI
 BEGIN
-<<<<<<< cg3100a.uml
-     PROMPT 19 11 "Stampa mov. dalla data "
-     HELP "Data da cui iniziare la stampa"
-=======
     PROMPT 16 11 "Stampa mov. dalla data "
-     //HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
->>>>>>> 1.12
+     HELP "Data da cui iniziare la stampa"
     GROUP 3
 END

 DATE F_DATAFIN
 BEGIN
-<<<<<<< cg3100a.uml
-    PROMPT 55 11 "alla data "
-    HELP "Data fino a cui stampare i movimenti"
-=======
    PROMPT 52 11 "alla data "
->>>>>>> 1.12
+    HELP "Data fino a cui stampare i movimenti"
    GROUP 3
 END

 NUMBER F_NUMEROINI 7
 BEGIN
-<<<<<<< cg3100a.uml
-    PROMPT 19 12 "Stampa mov. dal numero "
-    HELP "Numero del movimento da cui iniziare la stampa"
-=======
    PROMPT 16 12 "Stampa mov. dal numero "
->>>>>>> 1.12
    USE LF_MOV KEY 1
    INPUT NUMREG F_NUMEROINI
    DISPLAY "Numero@6" NUMREG 
@ -135,16 +121,12 @@ BEGIN
    CHECKTYPE NORMAL 
    FLAGS "R"
    GROUP 2
+    HELP "Numero del movimento da cui iniziare la stampa"
 END

 NUMBER F_NUMEROFIN 7
 BEGIN
-<<<<<<< cg3100a.uml
-    PROMPT 55 12 "al numero "
-    HELP "Numero del movimenti fino cui fare la stampa"
-=======
    PROMPT 52 12 "al numero "
->>>>>>> 1.12
    COPY USE F_NUMEROINI
    INPUT NUMREG F_NUMEROFIN
    COPY DISPLAY F_NUMEROINI
@ -154,6 +136,7 @@ BEGIN
    NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
    WARNING "Limite superiore errato"
    GROUP 2
+    HELP "Numero del movimenti fino cui fare la stampa"
 END

 STRING F_CAUSALEINI 3
@ -164,7 +147,7 @@ BEGIN
    DISPLAY "Codice causale" CODCAUS
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CAUSALEINI CODCAUS
-    FLAGS "UR"
+    FLAGS "UZ"
    HELP "Causale di inizio stampa: vuoto = inizio archivio"
 END

@ -176,7 +159,7 @@ BEGIN
    DISPLAY "Codice causale" CODCAUS
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CAUSALEFIN CODCAUS
-    FLAGS "UR"
+    FLAGS "UZ"
    HELP "Causale di fine stampa: vuoto = fine archivio"
 END

@ -190,7 +173,7 @@ BEGIN
  DISPLAY "Cod. registro iva" CODTAB[5,7]
  DISPLAY "Descrizione@40" S0
  OUTPUT F_REGISTROINI CODTAB[5,7]
-  FLAGS "UR"
+  FLAGS "UZ"
  //CHECKTYPE NORMAL
  HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
 END
@ -205,7 +188,7 @@ BEGIN
    DISPLAY "Cod. registro iva" CODTAB[5,7]
    DISPLAY "Descrizione@40" S0
    OUTPUT F_REGISTROFIN CODTAB[5,7]
-    FLAGS "UR"
+    FLAGS "UZ"
    //CHECKTYPE NORMAL
    HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
 END
--- a/cg/cg3400a.uml
+++ b/cg/cg3400a.uml
@ -21,7 +21,7 @@ BEGIN
 //    OUTPUT DATA_A D1
 //    CHECKTYPE NORMAL
    WARNING "Registro inesistente"
-    FLAGS "U"
+    FLAGS "UZ"
 END

 NUMBER ANNO_ESER 4
--- a/cg/cg4400a.uml
+++ b/cg/cg4400a.uml
@ -96,7 +96,7 @@ BEGIN
  OUTPUT ANNO CODTAB[1,4] 
  OUTPUT CODICE_LIBRO CODTAB[5,7]
  //CHECKTYPE NORMAL
-  FLAGS "UR"
+  FLAGS "UZ"
  GROUP 1
 END

@ -113,7 +113,7 @@ BEGIN
  OUTPUT ANNO CODTAB[1,4] 
  OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7]
  //CHECKTYPE NORMAL
-  FLAGS "UR"
+  FLAGS "UZ"
  GROUP 1
 END

@ -208,7 +208,7 @@ BEGIN
  OUTPUT ANNO CODTAB[1,4] 
  OUTPUT CODICE_LIBRO_IVA CODTAB[5,7]
  //CHECKTYPE NORMAL
-  FLAGS "UR"
+  FLAGS "UZ"
  GROUP 2
 END

--- a/cg/cg4600a.uml
+++ b/cg/cg4600a.uml
@ -27,6 +27,7 @@ BEGIN
  PROMPT 2 4 "Codice causale chiusura "
  HELP "Codice causale che genera il movimento di chiusura"
  USE LF_CAUSALI KEY 1
+  FLAGS "UZ"
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione @50" DESCR
  OUTPUT F_CHIUSURA CODCAUS
@ -39,6 +40,7 @@ BEGIN
  PROMPT 2 5 "Codice causale apertura "
  HELP "Codice causale che genera il movimento di apertura"
  COPY USE F_CHIUSURA
+  FLAGS "UZ"
  COPY DISPLAY F_CHIUSURA
  OUTPUT F_APERTURA CODCAUS
  INPUT  CODCAUS F_APERTURA
--- a/cg/cg5000a.uml
+++ b/cg/cg5000a.uml
@ -110,12 +110,14 @@ BEGIN
 	PROMPT 3 9 "Codice IVA per ricavi misti agenzie di viaggio              "
        HELP "Codice IVA per scorporo operazioni con l'esetero per agenzie di viaggio"
 	USE %IVA
+	FLAGS "U"
 	INPUT CODTAB FLD_CODAGV
 	DISPLAY "Codice" CODTAB
 	DISPLAY "Descrizione@50" S0
 	OUTPUT FLD_CODAGV CODTAB
 	CHECKTYPE NORMAL
 	FIELD CodAgv
+        VALIDATE ZEROFILL_FUNC 2
 END

 GROUPBOX DLG_NULL 74 4
--- a/cg/cg5100a.uml
+++ b/cg/cg5100a.uml
@ -141,7 +141,7 @@ STRING FLD_CODLIC 3
 BEGIN
  PROMPT 1 2 "Codice libro incassi/pagamenti "
  HELP "Indicare il codice del libro degli incassi/pagamenti"
-	USE %REG SELECT I0=5
+  USE REG SELECT I0=5
  INPUT CODTAB[1,4] FLD_ANLIIV SELECT
  INPUT  CODTAB[5,7] FLD_CODLIC
  DISPLAY "Anno" CODTAB[1,4]
@ -149,6 +149,7 @@ BEGIN
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_CODLIC CODTAB[5,7]
  CHECKTYPE NORMAL
+  FLAGS "UZ"
  FIELD CodLic
 END

@ -177,7 +178,7 @@ BEGIN
  OUTPUT FLD_DCOCACH DESCR
  CHECKTYPE NORMAL
  ADD RUN cg0 -4
-	FLAGS "U"
+  FLAGS "UZ"
  FIELD CoCaCh
 END

@ -198,7 +199,7 @@ STRING FLD_COCAAP 3
 BEGIN
  PROMPT 1 5 "Codice causale apertura        "
  HELP "Codice della causale di apertura che generera' il movimento"
-	FLAGS "U"
+  FLAGS "UZ"
  USE LF_CAUSALI SELECT MOVAP="A" 
  INPUT CODCAUS FLD_COCAAP        
  COPY DISPLAY FLD_COCACH
@ -636,7 +637,7 @@ STRING FLD_RRCCRA 3
 BEGIN
 	PROMPT 3 6 "Causale ratei    "
  HELP "Codice causale dei ratei per movimento di contabilita'"
-	FLAGS "U"
+	FLAGS "UZ"
 	USE LF_CAUSALI
 	INPUT  CODCAUS FLD_RRCCRA       
 	COPY DISPLAY FLD_COCACH
@ -663,7 +664,7 @@ STRING FLD_RRCCRI 3
 BEGIN
 	PROMPT 3 8 "Causale risconti "
  HELP "Codice causale dei risconti per movimento di contabilita'"
-	FLAGS "U"
+	FLAGS "UZ"
 	COPY USE FLD_RRCCRA
 	INPUT  CODCAUS FLD_RRCCRI       
 	COPY DISPLAY FLD_COCACH
--- a/cg/cg5400a.uml
+++ b/cg/cg5400a.uml
@ -33,7 +33,7 @@ END
 STRING F_REG 3
 BEGIN
  PROMPT 4 3 "Registro  "
-  FLAGS "U"
+  FLAGS "UZ"
  USE REG SELECT I0<6
  INPUT CODTAB[1,4] F_YEAR
  INPUT CODTAB[5,7] F_REG