diff --git a/ca/ca2200a.uml b/ca/ca2200a.uml index f36b5bcb2..1707be1e5 100755 --- a/ca/ca2200a.uml +++ b/ca/ca2200a.uml @@ -90,7 +90,7 @@ PAGE "Riga Commesse" -1 -1 78 15 STRING F_CODCAUS 3 BEGIN - PROMPT 1 1 "Causale " + PROMPT 1 0 "Causale " USE LF_CAUSALI SELECT MOVIND!="" CHECKTYPE REQUIRED INPUT CODCAUS F_CODCAUS @@ -104,7 +104,7 @@ END STRING F_DESCAUS 50 BEGIN - PROMPT 17 1 "" + PROMPT 23 0 "" USE LF_CAUSALI KEY 2 SELECT MOVIND!="" INPUT DESCR F_DESCAUS DISPLAY "Descrizione@50" DESCR @@ -113,76 +113,90 @@ BEGIN ADD RUN cg0 -4 END +//Non cancellare GROUP 1 dai 12 campi successivi, pena la comparsa di campi inutili e perniciosi nella +//maschera di riga STRING S_CDC1 20 BEGIN PROMPT 1 2 "Cms1 " FLAGS "B" + GROUP 1 END STRING S_CDC2 20 BEGIN PROMPT 1 3 "Cms2 " FLAGS "B" + GROUP 1 END STRING S_CDC3 20 BEGIN PROMPT 1 4 "Cms3 " FLAGS "B" + GROUP 1 END STRING S_CDC4 20 BEGIN PROMPT 1 5 "Cms4 " FLAGS "B" + GROUP 1 END STRING S_CDC5 20 BEGIN PROMPT 1 6 "Cms5 " FLAGS "B" + GROUP 1 END STRING S_CDC6 20 BEGIN PROMPT 1 7 "Cms6 " FLAGS "B" + GROUP 1 END STRING S_CDC7 20 BEGIN PROMPT 1 8 "Cms7 " FLAGS "B" + GROUP 1 END STRING S_CDC8 20 BEGIN PROMPT 1 9 "Cms8 " FLAGS "B" + GROUP 1 END STRING S_CDC9 20 BEGIN PROMPT 1 10 "Cms9 " FLAGS "B" + GROUP 1 END STRING S_CDC10 20 BEGIN PROMPT 1 11 "Cms10 " FLAGS "B" + GROUP 1 END STRING S_CDC11 20 BEGIN PROMPT 1 12 "Cms11 " FLAGS "B" + GROUP 1 END STRING S_CDC12 20 BEGIN PROMPT 1 13 "Cms12 " FLAGS "B" + GROUP 1 END BUTTON DLG_OK 10 2