campo-sirio/cg/cg3200a.uml

#include "cg3200.h"

PAGE "Stampa Mastrini" -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

TEXT 96
BEGIN
  PROMPT 4 10 "Dalla data competenza"
END

TEXT 97
BEGIN
  PROMPT 40 10 "Alla data competenza "
END

TEXT 98
BEGIN
  PROMPT 4 10 "Dalla data operazione "
END

TEXT 99
BEGIN
  PROMPT 40 10 "Alla data operazione  "
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" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE NORMAL
  MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97
  MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99
  FLAGS "RZ"
END

LIST F_TIPOCF 25
BEGIN
  PROMPT 4 4 "Ricerca           "
  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,2@|RESET,1@|RESET,2@|SHOW,3@    
END

NUMBER F_GRUPPOINI 3
BEGIN
  PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
END

NUMBER F_CONTOINI 3 
BEGIN
  PROMPT 41 5 ""
  USE LF_PCON SELECT SOTTOCONTO=""
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI CONTO
  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!=""
  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

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
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCINI_CONTO
  CHECKTYPE NORMAL
  GROUP 1
END

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
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  OUTPUT F_SOTTOCINI_CLIENTE CODCF
  OUTPUT F_DESCRINI_CLIENTE RAGSOC
  MESSAGE COPY,F_SOTTOCINI_CONTO
  FLAGS "R"
  GROUP 2
END

STRING F_DESCRINI_CLIENTE 50
BEGIN
  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_SOTTOCINI_FORN 6
BEGIN
  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
  OUTPUT F_SOTTOCINI_FORN CODCF
  OUTPUT F_DESCRINI_FORN RAGSOC
  FLAGS "R"
  GROUP 3
  MESSAGE COPY,F_SOTTOCINI_CONTO
END

STRING F_DESCRINI_FORN 50
BEGIN
  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 "Codice" CODCF
  COPY OUTPUT F_DESCRINI_CONTO
  MESSAGE COPY,F_DESCRINI_CONTO
  CHECKTYPE NORMAL
  GROUP 3
END

NUMBER F_GRUPPOFINE 3
BEGIN
  PROMPT 4 7 "A  Gruppo - Conto - Sottoconto "
END

NUMBER F_CONTOFINE 3
BEGIN
  PROMPT 41 7 ""
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE CONTO
  OUTPUT F_DESCRFINE_CONTO DESCR
  FLAGS "R"
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
END

NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
  PROMPT 48 7 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE
  INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE CONTO
  OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
  OUTPUT F_DESCRFINE_CONTO DESCR
  FLAGS "R"
  GROUP 1
END

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_SOTTOCFINE_CONTO
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN
  PROMPT 48 5 ""
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_SOTTOCINI_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  OUTPUT F_SOTTOCINI_CLIENTE CODCF
  OUTPUT F_DESCRINI_CLIENTE RAGSOC
  MESSAGE COPY,F_SOTTOCINI_CONTO
  FLAGS "R"
  GROUP 2
END

STRING F_DESCRINI_CLIENTE 50
BEGIN
  PROMPT 4 6 "Ragione sociale   "
  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
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_SOTTOCINI_CLIENTE
  MESSAGE COPY,F_DESCRINI_CONTO
  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 
  OUTPUT F_SOTTOCFINE_CLIENTE CODCF
  OUTPUT F_DESCRFINE_CLIENTE RAGSOC
  MESSAGE COPY,F_SOTTOCFINE_CONTO
  FLAGS "R"
  GROUP 2
END

STRING F_DESCRFINE_CLIENTE 50
BEGIN
  PROMPT 4 8 "Ragione sociale   "
  FIELD LF_CLIFO->RAGSOC
  CHECKTYPE NORMAL
  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 "Codice" CODCF
  COPY OUTPUT F_SOTTOCFINE_CLIENTE
  MESSAGE COPY,F_DESCRFINE_CONTO
  CHECKTYPE NORMAL
  GROUP 2
END 

NUMBER F_SOTTOCINI_FORN 6
BEGIN
  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
  OUTPUT F_SOTTOCINI_FORN CODCF
  OUTPUT F_DESCRINI_FORN RAGSOC
  FLAGS "R"
  GROUP 3
  MESSAGE COPY,F_SOTTOCINI_CONTO
END

STRING F_DESCRINI_FORN 50
BEGIN
  PROMPT 4 6 "Ragione Sociale   "
  USE LF_CLIFO KEY 2
  CHECKTYPE NORMAL
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCRINI_FORN
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DESCRINI_CONTO
  MESSAGE COPY,F_DESCRINI_CONTO
  CHECKTYPE NORMAL
  GROUP 3
END

NUMBER F_SOTTOCFINE_FORN 6
BEGIN
  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
  OUTPUT F_SOTTOCFINE_FORN CODCF
  OUTPUT F_DESCRFINE_FORN RAGSOC
  FLAGS "R"
  GROUP 3
  MESSAGE COPY,F_SOTTOCFINE_CONTO
END

STRING F_DESCRFINE_FORN 50
BEGIN
  PROMPT 4 8 "Ragione Sociale   "
  USE LF_CLIFO KEY 2
  CHECKTYPE NORMAL
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCRFINE_FORN
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DESCRFINE_CONTO
  MESSAGE COPY,F_DESCRFINE_CONTO
  CHECKTYPE NORMAL
  GROUP 3
END

DATE F_DATAINI 
BEGIN
  PROMPT 26 10 ""
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 10 ""
END

BOOLEAN F_STAMPATOTIVA
BEGIN
  PROMPT 4 12 "Stampa totali documenti IVA"
END
  
BOOLEAN F_STAMPAPROGRE
BEGIN
  PROMPT 44 12 "Stampa progressivi attuali"
END

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

LIST F_STAMPANUM 15
BEGIN
  PROMPT 4 15 "Stampa numerazione "
  ITEM "1|Operazione"
  ITEM "2|Riga giornale"
  ITEM "3|Nessuna"
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_PRINT 9 2
BEGIN
	PROMPT -12 -1 "~Stampa"
	MESSAGE EXIT,K_ENTER
END

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


ENDPAGE

ENDMASK