campo-sirio/cg/cg3200a.uml

#include "cg3200.h"

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
	DISPLAY "Ragione sociale @50" RAGSOC
	OUTPUT F_CODDITTA CODDITTA 
        OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 4 2 "Ragione sociale   "
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 47 1 "Anno esercizio       "
  HELP "Inserire un anno esercizio presente nella tabella oppure niente: in quest'ultimo caso non e' possibile fare il controllo competenza esercizio"
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Anno Esercizio@50" CODTAB
  OUTPUT F_ANNO CODTAB
  CHECKTYPE NORMAL
END

LIST F_RICERCA 25
BEGIN
  PROMPT 4 4 "Ricerca           "
  ITEM "C|Clienti"
  MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
  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@
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
  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
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI CONTO
  OUTPUT F_SOTTOCONTOINI CODCF
  OUTPUT F_DESCRINI RAGSOC
  FLAGS "R"
  GROUP 1
END

NUMBER F_SOTTOCONTOINI 6
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
  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"
  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
  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
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE CONTO
  OUTPUT F_SOTTOCONTOFINE CODCF
  OUTPUT F_DESCRFINE RAGSOC
  FLAGS "R"
  GROUP 1
END

NUMBER F_SOTTOCONTOFINE 6
BEGIN
  PROMPT 47 7 ""
  COPY USE F_GRUPPOINI
//  CHECKTYPE NORMAL
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE
  INPUT CODCF F_SOTTOCONTOFINE
  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

STRING F_DESCRFINE 50
BEGIN
  PROMPT 4 8 "Ragione sociale   "
  FLAGS "D"
  GROUP 1
END

NUMBER F_GRUPPOINI2 3
BEGIN
  PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
  USE LF_CLIFO SELECT TIPOCF="F"
//  CHECKTYPE NORMAL
  INPUT GRUPPO F_GRUPPOINI2
  DISPLAY "Tipo" TIPOCF
  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
  FLAGS "R"
  GROUP 2
  MESSAGE COPY,F_GRUPPOINI
END

NUMBER F_CONTOINI2 3 
BEGIN
  PROMPT 41 5 ""
  COPY USE F_GRUPPOINI2
//  CHECKTYPE NORMAL
  INPUT GRUPPO F_GRUPPOINI2
  INPUT CONTO F_CONTOINI2
  DISPLAY "Tipo" TIPOCF
  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
  FLAGS "R"
  GROUP 2
  MESSAGE COPY,F_CONTOINI
END

NUMBER F_SOTTOCONTOINI2 6
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
  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
  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"
  GROUP 2
END 

NUMBER F_GRUPPOINI3 3
BEGIN
  PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
  USE LF_PCON 
//  CHECKTYPE NORMAL
  INPUT GRUPPO F_GRUPPOINI3
  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"
  GROUP 3
  MESSAGE COPY,F_GRUPPOINI
END

NUMBER F_CONTOINI3 3 
BEGIN
  PROMPT 41 5 ""
  COPY USE F_GRUPPOINI3
//  CHECKTYPE NORMAL
  INPUT GRUPPO F_GRUPPOINI3
  INPUT CONTO F_CONTOINI3
  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"
  GROUP 3
  MESSAGE COPY,F_CONTOINI
END

NUMBER F_SOTTOCONTOINI3 6
BEGIN
  PROMPT 47 5 ""
  COPY USE F_GRUPPOINI3
//  CHECKTYPE NORMAL
  INPUT GRUPPO F_GRUPPOINI3
  INPUT CONTO F_CONTOINI3
  INPUT SOTTOCONTO F_SOTTOCONTOINI3
  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"
  GROUP 3
  MESSAGE COPY,F_SOTTOCONTOINI
END

STRING F_DESCRINI3 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
  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"
  GROUP 3
END

DATE F_DATAINI 
BEGIN
  PROMPT 4 10 "Data inizio       "
END

DATE F_DATAFINE
BEGIN
  PROMPT 51 10 "Data fine  "
END
  
BOOLEAN F_COMPESE
BEGIN
  PROMPT 4 12 "Controllo competenza esercizio"
END

BOOLEAN F_STAMPAPROGRE
BEGIN
  PROMPT 44 12 "Stampa progressivi attuali"
END

BOOLEAN F_STAMPATOTIVA
BEGIN
  PROMPT 4 13 "Stampa totali documenti IVA"
END

BOOLEAN F_STAMPAMOVPROV
BEGIN
  PROMPT 44 13 "Stampa movimenti provvisori"
END

LIST F_STAMPANUM 15
BEGIN
  PROMPT 4 15 "Stampa numerazione "
  ITEM "1|Registrazione"
  ITEM "2|Riga giornale"
END

LIST F_TIPOSTAMPA 34
BEGIN
  PROMPT 4 16 "Tipo stampa        "
  ITEM "1|Mastrini movimentati nel periodo"
  ITEM "2|Mastrini con saldi diversi da 0"
  ITEM "3|Completa"
END


BOOLEAN F_MEMORIZZA
BEGIN
  PROMPT 4 17 "Memorizza scelte"
END

BUTTON DLG_OK 9 2
BEGIN
	PROMPT -12 -1  ""
END

BUTTON DLG_QUIT 9 2
BEGIN
	PROMPT -22 -1 ""
END

ENDPAGE

PAGE "" -1 -1 60 10

LIST F_NUMCARAT 10
BEGIN
  PROMPT 4 2 "Numero caratteri           "
  ITEM "1|132 crt."
  ITEM "2|198 crt."
END

LIST F_FORMATO 23
BEGIN
  PROMPT 4 4 "Formato modulo di stampa   "
  ITEM "66|11 pollici (27,94 cm)"
  ITEM "72|12 pollici (30,48 cm)"
END

LIST F_NUMMAST 5
BEGIN
  PROMPT 4 6 "Numero mastrini per pagina "
  ITEM "1|Uno"
  ITEM "2|Due"
END

BUTTON DLG_OK 9 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
	PROMPT -22 -1 ""
END


ENDPAGE

ENDMASK