diff --git a/cg/cg5200a.uml b/cg/cg5200a.uml index 430e8ede9..d3972bf08 100755 --- a/cg/cg5200a.uml +++ b/cg/cg5200a.uml @@ -47,11 +47,10 @@ NUMBER F_GRUPPO 3 BEGIN PROMPT 26 3 "Gruppo " HELP "Codice del conto da visualizzare" - WARNING "Gruppo inesistente" FLAGS "R" KEY 1 FIELD GRUPPO - USE LF_PCON KEY 1 SELECT CONTO="" + USE LF_PCON SELECT CONTO="" INPUT GRUPPO F_GRUPPO DISPLAY "Gruppo" GRUPPO DISPLAY "Descrizione@50" DESCR @@ -59,14 +58,15 @@ BEGIN OUTPUT F_DESCR_CONTO DESCR CHECKTYPE REQUIRED VALIDATE CHECK_FIELD F_GRUPPO + WARNING "Gruppo inesistente" END NUMBER F_CONTO 3 BEGIN PROMPT 40 3 "Conto " HELP "Codice del conto da visualizzare" - WARNING "Conto inesistente" - USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") + //USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") + USE LF_PCON SELECT SOTTOCONTO="" FIELD CONTO FLAGS "R" KEY 1 @@ -82,14 +82,15 @@ BEGIN OUTPUT F_DESCR_CONTO DESCR CHECKTYPE NORMAL VALIDATE CHECK_FIELD F_CONTO - WARNING "Conto inesistente o mancante" + WARNING "Conto inesistente" END NUMBER F_SOTTOCONTO 6 BEGIN PROMPT 54 3 "Sottoconto " HELP "Codice del conto da visualizzare" - USE LF_PCON SELECT SOTTOCONTO!="" + //USE LF_PCON SELECT SOTTOCONTO!="" + USE LF_PCON FIELD SOTTOCONTO FLAGS "R" KEY 1 @@ -106,7 +107,7 @@ BEGIN OUTPUT F_DESCR_CONTO DESCR CHECKTYPE NORMAL VALIDATE CHECK_FIELD F_SOTTOCONTO - WARNING "Conto inesistente" + WARNING "Sottoconto inesistente" GROUP 1 END