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 11 "Dalla data competenza"
END

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

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

TEXT 99
BEGIN
  PROMPT 40 11 "Alla data operazione  "
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 47 1 "Anno esercizio       "
  HELP "Anno esercizio di cui stampare i mastrini"
  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_INI 25
BEGIN
  PROMPT 4 4 "Ricerca           "
  HELP "Indicare il tipo di mastrini da stamapare"
  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 "
  HELP "Codice conto da cui iniziare la stampa"
END

NUMBER F_CONTOINI_CONTO 3 
BEGIN
  PROMPT 41 5 ""
  HELP "Codice conto da cui iniziare la stampa"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  //OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CONTO CONTO 
  //OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
  //OUTPUT F_DESCRINI_CONTO DESCR
  FLAGS "R"    
  //CHECKTYPE NORMAL
  //WARNING "Conto inesistente o mancante"
  //MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
  GROUP 1
END

NUMBER F_CONTOINI_CLIENTE 3 
BEGIN
  PROMPT 41 5 ""
  HELP "Codice conto da cui iniziare la stampa"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI_CLIENTE
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  //OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CLIENTE CONTO
  //OUTPUT F_SOTTOCINI_CLIENTE SOTTOCONTO
  //OUTPUT F_DESCRINI_CLIENTE DESCR
  FLAGS "R"       
  //CHECKTYPE NORMAL
  //WARNING "Conto inesistente o mancante"
  //MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
  GROUP 2  
  MESSAGE COPY,F_CONTOINI_CONTO
END

NUMBER F_CONTOINI_FORN 3 
BEGIN
  PROMPT 41 5 ""
  HELP "Codice conto da cui iniziare la stampa"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI_FORN
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  //OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_FORN CONTO         
  //OUTPUT F_SOTTOCINI_FORN SOTTOCONTO
  //OUTPUT F_DESCRINI_FORN DESCR
  FLAGS "R"       
  //CHECKTYPE NORMAL
  //WARNING "Conto inesistente o mancante"
  //MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
  GROUP 3                      
  MESSAGE COPY,F_CONTOINI_CONTO
END

NUMBER F_SOTTOCINI_CONTO 6
BEGIN
  PROMPT 48 5 ""
  HELP "Codice conto da cui iniziare la stampa"
  USE LF_PCON //SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI_CONTO
  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 CONTO
  OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
  //OUTPUT F_DESCRINI_CONTO DESCR
  FLAGS "R"       
  //CHECKTYPE NORMAL
  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
  GROUP 1
END

NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN
  PROMPT 48 5 ""
  HELP "Codice conto da cui iniziare la stampa"
  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 "
  HELP "Codice conto da cui iniziare la stampa"
  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 ""
  HELP "Codice conto da cui iniziare la stampa"
  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 "
  HELP "Codice conto da cui iniziare la stampa"
  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
             
LIST F_TIPOCF_FINE 25
BEGIN
  PROMPT 4 7 "Ricerca           "
  HELP "Indicare il tipo di mastrini da stamapare"
  ITEM " |Gruppo/conto/sottoconto"
  MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
  ITEM "C|Clienti"
  MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|SHOW,5@
  ITEM "F|Fornitori"
  MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@    
END
             
NUMBER F_GRUPPOFINE 3
BEGIN
  PROMPT 4 8 "A  Gruppo - Conto - Sottoconto "
END

NUMBER F_CONTOFINE_CONTO 3
BEGIN
  PROMPT 41 8 ""
  HELP "Codice conto a cui terminare la stampa"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  //OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CONTO CONTO
  //OUTPUT F_DESCRFINE_CONTO DESCR
  FLAGS "R"       
  //CHECKTYPE NORMAL
  //WARNING "Conto inesistente o mancante"
  //MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
  GROUP 4
END

NUMBER F_CONTOFINE_CLIENTE 3
BEGIN
  PROMPT 41 8 ""
  HELP "Codice conto a cui terminare la stampa"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE_CLIENTE
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  //OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CLIENTE CONTO
  //OUTPUT F_DESCRFINE_CLIENTE DESCR
  FLAGS "R"       
  //CHECKTYPE NORMAL
  //WARNING "Conto inesistente o mancante"
  //MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
  MESSAGE COPY,F_CONTOFINE_CONTO
  GROUP 5
END

NUMBER F_CONTOFINE_FORN 3
BEGIN
  PROMPT 41 8 ""
  HELP "Codice conto a cui terminare la stampa"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE_FORN
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  //OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_FORN CONTO
  //OUTPUT F_DESCRFINE_FORN DESCR
  FLAGS "R"       
  //CHECKTYPE NORMAL
  //WARNING "Conto inesistente o mancante"
  //MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
  MESSAGE COPY,F_CONTOFINE_CONTO
  GROUP 6
END

NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
  PROMPT 48 8 ""
  HELP "Codice conto a cui terminare la stampa"
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE_CONTO
  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 CONTO
  OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
  //OUTPUT F_DESCRFINE_CONTO DESCR
  FLAGS "R"       
  //CHECKTYPE NORMAL
  GROUP 4
END

STRING F_DESCRFINE_CONTO 50
BEGIN
  PROMPT 4 9 "Descrizione       "
  HELP "Codice conto a cui terminare la stampa"
  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
  GROUP 4
END

NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN
  PROMPT 48 8 ""
  HELP "Codice conto a cui terminare la stampa"
  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 5
END

STRING F_DESCRFINE_CLIENTE 50
BEGIN
  PROMPT 4 9 "Ragione sociale   "
  HELP "Codice conto a cui terminare la stampa"
  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
  GROUP 5
END 

NUMBER F_SOTTOCFINE_FORN 6
BEGIN
  PROMPT 48 8 ""
  HELP "Codice conto a cui terminare la stampa"
  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 6
  MESSAGE COPY,F_SOTTOCFINE_CONTO
END

STRING F_DESCRFINE_FORN 50
BEGIN
  PROMPT 4 9 "Ragione Sociale   "
  HELP "Codice conto a cui terminare la stampa"
  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
  GROUP 6
END

DATE F_DATAINI 
BEGIN
  PROMPT 26 11 ""
  HELP "Data da cui iniziare la stampa"
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 11 ""
  HELP "Data a cui terminare la stampa"
END

BOOLEAN F_STAMPATOTIVA
BEGIN
  PROMPT 4 12 "Stampa totali documenti IVA"
  HELP "Inidcare se stampare un totale per ogni tipo di doc. IVA"
END
  
BOOLEAN F_STAMPAPROGRE
BEGIN
  PROMPT 44 12 "Stampa progressivi attuali"
  HELP "Indcare se stampare dati attuali a fondo pagina"
END

BOOLEAN F_STAMPAMOVPROV
BEGIN
  PROMPT 4 13 "Stampa movimenti provvisori"
  HELP "Indicare se stampare movimenti provvisori"
END

LIST F_STAMPANUM 15
BEGIN
  PROMPT 4 15 "Stampa numerazione "
  HELP "Indicare il tipo di numerazione da stampare"
  ITEM "1|Operazione"
  ITEM "2|Riga giornale"
  ITEM "3|Nessuna"
END

LIST F_TIPOSTAMPA 34
BEGIN
  PROMPT 4 16 "Tipo stampa        "
  HELP "Indicare il tipo di stampa da ottenere"
  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"
  HELP "Indicare se riproporre le scelte effettuate"
END

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

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

ENDPAGE

PAGE "Stampa Mastrini" -1 -1 60 10

LIST F_NUMCARAT 10
BEGIN
  PROMPT 4 2 "Numero caratteri           "
  HELP "Indicare il numero di caratteri del foglio di stampa (larghezza)"
  ITEM "1|132 crt."
  ITEM "2|198 crt."
END

LIST F_FORMATO 23
BEGIN
  PROMPT 4 4 "Formato modulo di stampa   "
  HELP "Indicare l'altezza del 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 "
  HELP "Indicare il numero di mastrini contenuti in una 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