From 18099c9d9a54a960087027fed345236095cf2684 Mon Sep 17 00:00:00 2001 From: nik Date: Mon, 10 Oct 1994 17:07:15 +0000 Subject: [PATCH] Ultime modifiche da Parma git-svn-id: svn://10.65.10.50/trunk@341 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg3200a.uml | 490 +++++++++++++++++-------------------------------- 1 file changed, 168 insertions(+), 322 deletions(-) diff --git a/cg/cg3200a.uml b/cg/cg3200a.uml index e9afdaea3..593d8fc31 100755 --- a/cg/cg3200a.uml +++ b/cg/cg3200a.uml @@ -1,18 +1,19 @@ #include "cg3200.h" -PAGE "Mastrini" -1 -1 78 20 +PAGE "" -1 -1 78 20 + NUMBER F_CODDITTA 5 BEGIN PROMPT 4 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA DISPLAY "Ragione sociale @50" RAGSOC OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC + OUTPUT F_RAGSOC RAGSOC END STRING F_RAGSOC 50 @@ -57,422 +58,268 @@ BEGIN FLAGS "RZ" END -LIST F_RICERCA 25 +LIST F_TIPOCF 25 BEGIN PROMPT 4 4 "Ricerca " - ITEM "C|Clienti" + ITEM " |Gruppo/conto/sottoconto" MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@ + ITEM "C|Clienti" + MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@ ITEM "F|Fornitori" - MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@ - ITEM "P|Gruppo/conto/sottoconto" - MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@ + MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@ END NUMBER F_GRUPPOINI 3 BEGIN PROMPT 4 5 "Da Gruppo - Conto - Sottoconto " - USE LF_CLIFO SELECT TIPOCF="C" -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI - DISPLAY "Tipo" TIPOCF - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOINI GRUPPO - OUTPUT F_CONTOINI CONTO - OUTPUT F_SOTTOCONTOINI CODCF - OUTPUT F_DESCRINI RAGSOC - FLAGS "R" - GROUP 1 END NUMBER F_CONTOINI 3 BEGIN PROMPT 41 5 "" - COPY USE F_GRUPPOINI -// CHECKTYPE NORMAL + USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") + CHECKTYPE NORMAL INPUT GRUPPO F_GRUPPOINI INPUT CONTO F_CONTOINI - DISPLAY "Tipo" TIPOCF DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Descrizione@50" DESCR + OUTPUT F_TIPOCF TMCF OUTPUT F_GRUPPOINI GRUPPO OUTPUT F_CONTOINI CONTO - OUTPUT F_SOTTOCONTOINI CODCF - OUTPUT F_DESCRINI RAGSOC + OUTPUT F_DESCRINI_CONTO DESCR + FLAGS "R" + WARNING "Conto inesistente o mancante" + MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN +END + +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 + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOINI GRUPPO + OUTPUT F_CONTOINI CONTO + OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO + OUTPUT F_DESCRINI_CONTO DESCR FLAGS "R" GROUP 1 END -NUMBER F_SOTTOCONTOINI 6 +STRING F_DESCRINI_CONTO 50 BEGIN - PROMPT 47 5 "" - COPY USE F_GRUPPOINI -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI - INPUT CONTO F_CONTOINI - INPUT CODCF F_SOTTOCONTOINI - DISPLAY "Tipo" TIPOCF + PROMPT 4 6 "Descrizione " + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRINI_CONTO + DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOINI GRUPPO - OUTPUT F_CONTOINI CONTO - OUTPUT F_SOTTOCONTOINI CODCF - OUTPUT F_DESCRINI RAGSOC - FLAGS "R" - GROUP 1 -END - -STRING F_DESCRINI 50 -BEGIN - PROMPT 4 6 "Ragione sociale " - FLAGS "D" + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCINI_CONTO + CHECKTYPE NORMAL GROUP 1 END NUMBER F_GRUPPOFINE 3 BEGIN PROMPT 4 7 "A Gruppo - Conto - Sottoconto " - COPY USE F_GRUPPOINI -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOFINE - DISPLAY "Tipo" TIPOCF - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOFINE GRUPPO - OUTPUT F_CONTOFINE CONTO - OUTPUT F_SOTTOCONTOFINE CODCF - OUTPUT F_DESCRFINE RAGSOC - FLAGS "R" - GROUP 1 END NUMBER F_CONTOFINE 3 BEGIN PROMPT 41 7 "" - COPY USE F_GRUPPOINI -// CHECKTYPE NORMAL + USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") + CHECKTYPE NORMAL INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE - DISPLAY "Tipo" TIPOCF DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Descrizione@50" DESCR + OUTPUT F_TIPOCF TMCF OUTPUT F_GRUPPOFINE GRUPPO OUTPUT F_CONTOFINE CONTO - OUTPUT F_SOTTOCONTOFINE CODCF - OUTPUT F_DESCRFINE RAGSOC + OUTPUT F_DESCRFINE_CONTO DESCR FLAGS "R" - GROUP 1 + WARNING "Conto inesistente o mancante" + MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN END -NUMBER F_SOTTOCONTOFINE 6 +NUMBER F_SOTTOCFINE_CONTO 6 BEGIN - PROMPT 47 7 "" - COPY USE F_GRUPPOINI -// CHECKTYPE NORMAL + PROMPT 48 7 "" + USE LF_PCON SELECT SOTTOCONTO!="" + CHECKTYPE NORMAL INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE - INPUT CODCF F_SOTTOCONTOFINE - DISPLAY "Tipo" TIPOCF + INPUT SOTTOCONTO F_SOTTOCFINE_CONTO DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR OUTPUT F_GRUPPOFINE GRUPPO OUTPUT F_CONTOFINE CONTO - OUTPUT F_SOTTOCONTOFINE CODCF - OUTPUT F_DESCRFINE RAGSOC + OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO + OUTPUT F_DESCRFINE_CONTO DESCR FLAGS "R" GROUP 1 END -STRING F_DESCRFINE 50 +STRING F_DESCRFINE_CONTO 50 BEGIN - PROMPT 4 8 "Ragione sociale " - FLAGS "D" + PROMPT 4 8 "Descrizione " + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRINI_CONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCINI_CONTO + CHECKTYPE NORMAL GROUP 1 END -NUMBER F_GRUPPOINI2 3 +NUMBER F_SOTTOCINI_CLIENTE 6 BEGIN - PROMPT 4 5 "Da Gruppo - Conto - Sottoconto " - USE LF_CLIFO SELECT TIPOCF="F" -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI2 - DISPLAY "Tipo" TIPOCF + PROMPT 48 5 "" + USE LF_CLIFO + CHECKTYPE NORMAL + INPUT TIPOCF "C" + INPUT CODCF F_SOTTOCINI_CLIENTE + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOINI2 GRUPPO - OUTPUT F_CONTOINI2 CONTO - OUTPUT F_SOTTOCONTOINI2 CODCF - OUTPUT F_DESCRINI2 RAGSOC + OUTPUT F_SOTTOCINI_CLIENTE CODCF + OUTPUT F_DESCRINI_CLIENTE RAGSOC + MESSAGE COPY,F_SOTTOCINI_CONTO FLAGS "R" GROUP 2 - MESSAGE COPY,F_GRUPPOINI END -NUMBER F_CONTOINI2 3 +STRING F_DESCRINI_CLIENTE 50 BEGIN - PROMPT 41 5 "" - COPY USE F_GRUPPOINI2 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI2 - INPUT CONTO F_CONTOINI2 - DISPLAY "Tipo" TIPOCF + PROMPT 4 6 "Ragione sociale C " + FIELD LF_CLIFO->RAGSOC + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC F_DESCRINI_CLIENTE + DISPLAY "Ragione Sociale Cliente@50" RAGSOC + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Codice" CODCF + COPY OUTPUT F_SOTTOCINI_CLIENTE + MESSAGE COPY,F_DESCRINI_CONTO + CHECKTYPE NORMAL + GROUP 2 +END + +NUMBER F_SOTTOCFINE_CLIENTE 6 +BEGIN + PROMPT 48 7 "" + USE LF_CLIFO + CHECKTYPE NORMAL + INPUT TIPOCF "C" + INPUT CODCF F_SOTTOCFINE_CLIENTE + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOINI2 GRUPPO - OUTPUT F_CONTOINI2 CONTO - OUTPUT F_SOTTOCONTOINI2 CODCF - OUTPUT F_DESCRINI2 RAGSOC + OUTPUT F_SOTTOCFINE_CLIENTE CODCF + OUTPUT F_DESCRFINE_CLIENTE RAGSOC + MESSAGE COPY,F_SOTTOCFINE_CONTO FLAGS "R" GROUP 2 - MESSAGE COPY,F_CONTOINI END -NUMBER F_SOTTOCONTOINI2 6 +STRING F_DESCRFINE_CLIENTE 50 BEGIN - PROMPT 47 5 "" - COPY USE F_GRUPPOINI2 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI2 - INPUT CONTO F_CONTOINI2 - INPUT CODCF F_SOTTOCONTOINI2 - DISPLAY "Tipo" TIPOCF + PROMPT 4 8 "Ragione sociale C " + FIELD LF_CLIFO->RAGSOC + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC F_DESCRFINE_CLIENTE + DISPLAY "Ragione Sociale Cliente@50" RAGSOC DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO + DISPLAY "Conto" CONTO DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOINI2 GRUPPO - OUTPUT F_CONTOINI2 CONTO - OUTPUT F_SOTTOCONTOINI2 CODCF - OUTPUT F_DESCRINI2 RAGSOC - FLAGS "R" - GROUP 2 - MESSAGE COPY,F_SOTTOCONTOINI -END - -STRING F_DESCRINI2 50 -BEGIN - PROMPT 4 6 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -NUMBER F_GRUPPOFINE2 3 -BEGIN - PROMPT 4 7 "A Gruppo - Conto - Sottoconto " - COPY USE F_GRUPPOINI2 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOFINE2 - DISPLAY "Tipo" TIPOCF - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOFINE2 GRUPPO - OUTPUT F_CONTOFINE2 CONTO - OUTPUT F_SOTTOCONTOFINE2 CODCF - OUTPUT F_DESCRFINE2 RAGSOC - FLAGS "R" - GROUP 2 - MESSAGE COPY,F_GRUPPOFINE -END - -NUMBER F_CONTOFINE2 3 -BEGIN - PROMPT 41 7 "" - COPY USE F_GRUPPOINI2 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOFINE2 - INPUT CONTO F_CONTOFINE2 - DISPLAY "Tipo" TIPOCF - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOFINE2 GRUPPO - OUTPUT F_CONTOFINE2 CONTO - OUTPUT F_SOTTOCONTOFINE2 CODCF - OUTPUT F_DESCRFINE2 RAGSOC - FLAGS "R" - GROUP 2 - MESSAGE COPY,F_CONTOFINE -END - -NUMBER F_SOTTOCONTOFINE2 6 -BEGIN - PROMPT 47 7 "" - COPY USE F_GRUPPOINI2 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOFINE2 - INPUT CONTO F_CONTOFINE2 - INPUT CODCF F_SOTTOCONTOFINE2 - DISPLAY "Tipo" TIPOCF - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Codice" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_GRUPPOFINE2 GRUPPO - OUTPUT F_CONTOFINE2 CONTO - OUTPUT F_SOTTOCONTOFINE2 CODCF - OUTPUT F_DESCRFINE2 RAGSOC - FLAGS "R" - GROUP 2 - MESSAGE COPY,F_SOTTOCONTOFINE -END - -STRING F_DESCRFINE2 50 -BEGIN - PROMPT 4 8 "Ragione sociale " - FLAGS "D" + COPY OUTPUT F_SOTTOCFINE_CLIENTE + MESSAGE COPY,F_DESCRFINE_CONTO + CHECKTYPE NORMAL GROUP 2 END -NUMBER F_GRUPPOINI3 3 +NUMBER F_SOTTOCINI_FORN 6 BEGIN - PROMPT 4 5 "Da Gruppo - Conto - Sottoconto " - USE LF_PCON -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI3 + PROMPT 48 5 "" + USE LF_CLIFO + CHECKTYPE NORMAL + INPUT TIPOCF "F" + INPUT CODCF F_SOTTOCINI_FORN + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOINI3 GRUPPO - OUTPUT F_CONTOINI3 CONTO - OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO - OUTPUT F_DESCRINI3 DESCR + OUTPUT F_SOTTOCINI_FORN CODCF + OUTPUT F_DESCRINI_FORN RAGSOC FLAGS "R" GROUP 3 - MESSAGE COPY,F_GRUPPOINI + MESSAGE COPY,F_SOTTOCINI_CONTO END -NUMBER F_CONTOINI3 3 +STRING F_DESCRINI_FORN 50 BEGIN - PROMPT 41 5 "" - COPY USE F_GRUPPOINI3 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI3 - INPUT CONTO F_CONTOINI3 + PROMPT 4 6 "Ragione Sociale F " + USE LF_CLIFO KEY 2 + INPUT TIPOCF "F" + INPUT RAGSOC F_DESCRINI_FORN + DISPLAY "Ragione Sociale Fornitore@50" RAGSOC DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOINI3 GRUPPO - OUTPUT F_CONTOINI3 CONTO - OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO - OUTPUT F_DESCRINI3 DESCR - FLAGS "R" + DISPLAY "Codice" CODCF + COPY OUTPUT F_DESCRINI_CONTO + MESSAGE COPY,F_DESCRINI_CONTO + CHECKTYPE NORMAL GROUP 3 - MESSAGE COPY,F_CONTOINI END -NUMBER F_SOTTOCONTOINI3 6 +NUMBER F_SOTTOCFINE_FORN 6 BEGIN - PROMPT 47 5 "" - COPY USE F_GRUPPOINI3 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOINI3 - INPUT CONTO F_CONTOINI3 - INPUT SOTTOCONTO F_SOTTOCONTOINI3 + PROMPT 48 7 "" + USE LF_CLIFO + CHECKTYPE NORMAL + INPUT TIPOCF "F" + INPUT CODCF F_SOTTOCFINE_FORN + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOINI3 GRUPPO - OUTPUT F_CONTOINI3 CONTO - OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO - OUTPUT F_DESCRINI3 DESCR + OUTPUT F_SOTTOCFINE_FORN CODCF + OUTPUT F_DESCRFINE_FORN RAGSOC FLAGS "R" GROUP 3 - MESSAGE COPY,F_SOTTOCONTOINI + MESSAGE COPY,F_SOTTOCFINE_CONTO END -STRING F_DESCRINI3 50 +STRING F_DESCRFINE_FORN 50 BEGIN - PROMPT 4 6 "Descrizione " - FLAGS "D" - GROUP 3 -END - -NUMBER F_GRUPPOFINE3 3 -BEGIN - PROMPT 4 7 "A Gruppo - Conto - Sottoconto " - COPY USE F_GRUPPOINI3 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOFINE3 + PROMPT 4 8 "Ragione Sociale F " + USE LF_CLIFO KEY 2 + INPUT TIPOCF "F" + INPUT RAGSOC F_DESCRFINE_FORN + DISPLAY "Ragione Sociale Fornitore@50" RAGSOC DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOFINE3 GRUPPO - OUTPUT F_CONTOFINE3 CONTO - OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO - OUTPUT F_DESCRFINE3 DESCR - FLAGS "R" - GROUP 3 - MESSAGE COPY,F_GRUPPOFINE -END - -NUMBER F_CONTOFINE3 3 -BEGIN - PROMPT 41 7 "" - COPY USE F_GRUPPOFINE3 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOFINE3 - INPUT CONTO F_CONTOFINE3 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOFINE3 GRUPPO - OUTPUT F_CONTOFINE3 CONTO - OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO - OUTPUT F_DESCRFINE3 DESCR - FLAGS "R" - GROUP 3 - MESSAGE COPY,F_CONTOFINE -END - -NUMBER F_SOTTOCONTOFINE3 6 -BEGIN - PROMPT 47 7 "" - COPY USE F_GRUPPOFINE3 -// CHECKTYPE NORMAL - INPUT GRUPPO F_GRUPPOFINE3 - INPUT CONTO F_CONTOFINE3 - INPUT SOTTOCONTO F_SOTTOCONTOFINE3 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOFINE3 GRUPPO - OUTPUT F_CONTOFINE3 CONTO - OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO - OUTPUT F_DESCRFINE3 DESCR - FLAGS "R" - GROUP 3 - MESSAGE COPY,F_SOTTOCONTOFINE -END - -STRING F_DESCRFINE3 50 -BEGIN - PROMPT 4 8 "Descrizione " - FLAGS "D" + DISPLAY "Codice" CODCF + COPY OUTPUT F_DESCRFINE_CONTO + MESSAGE COPY,F_DESCRFINE_CONTO + CHECKTYPE NORMAL GROUP 3 END @@ -557,10 +404,9 @@ BEGIN ITEM "2|Due" END -BUTTON DLG_PRINT 9 2 +BUTTON DLG_OK 9 2 BEGIN - PROMPT -12 -1 "~Stampa" - MESSAGE EXIT,K_ENTER + PROMPT -12 -1 "" END BUTTON DLG_QUIT 9 2