diff --git a/cg/cg3200a.uml b/cg/cg3200a.uml index 593d8fc31..9c22ce632 100755 --- a/cg/cg3200a.uml +++ b/cg/cg3200a.uml @@ -24,22 +24,22 @@ END TEXT 96 BEGIN - PROMPT 4 10 "Dalla data competenza " + PROMPT 4 10 "Dalla data competenza" END TEXT 97 BEGIN - PROMPT 40 10 "Alla data competenza " + PROMPT 40 10 "Alla data competenza " END TEXT 98 BEGIN - PROMPT 4 10 "Dalla data operazione " + PROMPT 4 10 "Dalla data operazione " END TEXT 99 BEGIN - PROMPT 40 10 "Alla data operazione " + PROMPT 40 10 "Alla data operazione " END NUMBER F_ANNO 4 @@ -77,8 +77,7 @@ END NUMBER F_CONTOINI 3 BEGIN PROMPT 41 5 "" - USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") - CHECKTYPE NORMAL + USE LF_PCON SELECT SOTTOCONTO="" INPUT GRUPPO F_GRUPPOINI INPUT CONTO F_CONTOINI DISPLAY "Gruppo" GRUPPO @@ -97,7 +96,6 @@ NUMBER F_SOTTOCINI_CONTO 6 BEGIN PROMPT 48 5 "" USE LF_PCON SELECT SOTTOCONTO!="" - CHECKTYPE NORMAL INPUT GRUPPO F_GRUPPOINI INPUT CONTO F_CONTOINI INPUT SOTTOCONTO F_SOTTOCINI_CONTO @@ -117,6 +115,7 @@ STRING F_DESCRINI_CONTO 50 BEGIN PROMPT 4 6 "Descrizione " USE LF_PCON KEY 2 + CHECKTYPE NORMAL INPUT DESCR F_DESCRINI_CONTO DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO @@ -136,7 +135,6 @@ NUMBER F_CONTOFINE 3 BEGIN PROMPT 41 7 "" USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") - CHECKTYPE NORMAL INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE DISPLAY "Gruppo" GRUPPO @@ -155,7 +153,6 @@ NUMBER F_SOTTOCFINE_CONTO 6 BEGIN PROMPT 48 7 "" USE LF_PCON SELECT SOTTOCONTO!="" - CHECKTYPE NORMAL INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE INPUT SOTTOCONTO F_SOTTOCFINE_CONTO @@ -175,12 +172,13 @@ STRING F_DESCRFINE_CONTO 50 BEGIN PROMPT 4 8 "Descrizione " USE LF_PCON KEY 2 + CHECKTYPE NORMAL INPUT DESCR F_DESCRINI_CONTO DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOCINI_CONTO + COPY OUTPUT F_SOTTOCFINE_CONTO CHECKTYPE NORMAL GROUP 1 END @@ -189,7 +187,6 @@ NUMBER F_SOTTOCINI_CLIENTE 6 BEGIN PROMPT 48 5 "" USE LF_CLIFO - CHECKTYPE NORMAL INPUT TIPOCF "C" INPUT CODCF F_SOTTOCINI_CLIENTE DISPLAY "Codice" CODCF @@ -208,6 +205,7 @@ BEGIN PROMPT 4 6 "Ragione sociale C " FIELD LF_CLIFO->RAGSOC USE LF_CLIFO KEY 2 + CHECKTYPE NORMAL INPUT TIPOCF "C" INPUT RAGSOC F_DESCRINI_CLIENTE DISPLAY "Ragione Sociale Cliente@50" RAGSOC @@ -216,7 +214,6 @@ BEGIN DISPLAY "Codice" CODCF COPY OUTPUT F_SOTTOCINI_CLIENTE MESSAGE COPY,F_DESCRINI_CONTO - CHECKTYPE NORMAL GROUP 2 END @@ -242,6 +239,7 @@ STRING F_DESCRFINE_CLIENTE 50 BEGIN PROMPT 4 8 "Ragione sociale C " FIELD LF_CLIFO->RAGSOC + CHECKTYPE NORMAL USE LF_CLIFO KEY 2 INPUT TIPOCF "C" INPUT RAGSOC F_DESCRFINE_CLIENTE @@ -277,6 +275,7 @@ STRING F_DESCRINI_FORN 50 BEGIN PROMPT 4 6 "Ragione Sociale F " USE LF_CLIFO KEY 2 + CHECKTYPE NORMAL INPUT TIPOCF "F" INPUT RAGSOC F_DESCRINI_FORN DISPLAY "Ragione Sociale Fornitore@50" RAGSOC @@ -311,6 +310,7 @@ STRING F_DESCRFINE_FORN 50 BEGIN PROMPT 4 8 "Ragione Sociale F " USE LF_CLIFO KEY 2 + CHECKTYPE NORMAL INPUT TIPOCF "F" INPUT RAGSOC F_DESCRFINE_FORN DISPLAY "Ragione Sociale Fornitore@50" RAGSOC @@ -418,10 +418,3 @@ END ENDPAGE ENDMASK - - - - - - -