campo-sirio/cg/cgp1100a.uml

#include "cgp1100.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_PRINT 16 2
BEGIN
  PROMPT -13 -11 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON F_MEMORIZZA 16 2
BEGIN
  PROMPT -23 -11 "~Memorizza scelte"
END

BUTTON DLG_QUIT 16 2
BEGIN
  PROMPT -33 -11 ""
END

ENDPAGE

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 "Codice esercizio     "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice 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"
//  ADD RUN cg0 -5 esc
  ADD NONE
END

LIST F_TIPOCF_INI 25
BEGIN
  PROMPT 4 4 "Ricerca           "
  ITEM " |Gruppo/conto/sottoconto"
  MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|RESET,1@|SHOW,1@|RESET,F_GRUPPOINI
  ITEM "C|Clienti"
  MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|RESET,2@|SHOW,2@|RESET,F_GRUPPOINI
  ITEM "F|Fornitori"
  MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|RESET,3@|SHOW,3@|RESET,F_GRUPPOINI
END

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

NUMBER F_CONTOINI_CONTO 3 
BEGIN
  PROMPT 41 5 ""
  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_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CONTO CONTO 
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
//  MESSAGE DIRTY,F_SOTTOCINI_CONTO
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
  GROUP 1 9
END

NUMBER F_CONTOINI_CLIENTE 3 
BEGIN
  PROMPT 41 5 ""
  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_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CLIENTE CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CLIENTE
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCINI_CLIENTE
  MESSAGE COPY,F_CONTOINI_CONTO
  GROUP 2  9
END

NUMBER F_CONTOINI_FORN 3 
BEGIN
  PROMPT 41 5 ""
  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_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_FORN CONTO         
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_FORN
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCINI_FORN
  MESSAGE COPY,F_CONTOINI_CONTO
  GROUP 3   9                   
END

NUMBER F_SOTTOCINI_CONTO 6
BEGIN
  PROMPT 48 5 ""
  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_SOTTOCINI_CONTO SOTTOCONTO
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CONTO CONTO
  OUTPUT F_DESCRINI_CONTO DESCR
  CHECKTYPE NORMAL
  GROUP 1 9
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 9
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
  GROUP 2 9
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 9
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 9
  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_SOTTOCINI_FORN
  MESSAGE COPY,F_DESCRINI_CONTO
  CHECKTYPE NORMAL
  GROUP 3 9
END
             
LIST F_TIPOCF_FINE 25
BEGIN
  PROMPT 4 7 "Ricerca           "
  ITEM " |Gruppo/conto/sottoconto"
  MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|RESET,4@|SHOW,4@|RESET,F_GRUPPOFINE
  ITEM "C|Clienti"
  MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|RESET,5@|SHOW,5@|RESET,F_GRUPPOFINE
  ITEM "F|Fornitori"
  MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|RESET,6@|SHOW,6@|RESET,F_GRUPPOFINE
END
             
NUMBER F_GRUPPOFINE 3
BEGIN
  PROMPT 4 8 "A  Gruppo - Conto - Sottoconto "
  GROUP 9
END

NUMBER F_CONTOFINE_CONTO 3
BEGIN
  PROMPT 41 8 ""
  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_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CONTO CONTO
  CHECKTYPE NORMAL                    
  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
  WARNING "Conto inesistente o mancante"
//  MESSAGE DIRTY,F_SOTTOCFINE_CONTO
  GROUP 4 9
END

NUMBER F_CONTOFINE_CLIENTE 3
BEGIN
  PROMPT 41 8 ""
  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_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CLIENTE CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CLIENTE
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE
  MESSAGE COPY,F_CONTOFINE_CONTO
  GROUP 5 9
END

NUMBER F_CONTOFINE_FORN 3
BEGIN
  PROMPT 41 8 ""
  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_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_FORN CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_FORN
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCFINE_FORN
  MESSAGE COPY,F_CONTOFINE_CONTO
  GROUP 6 9
END

NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
  PROMPT 48 8 ""
  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_SOTTOCFINE_CONTO SOTTOCONTO
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CONTO CONTO
  OUTPUT F_DESCRFINE_CONTO DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto inesistente o mancante"
  GROUP 4 9
END

STRING F_DESCRFINE_CONTO 50
BEGIN
  PROMPT 4 9 "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
  GROUP 4 9
END

NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN
  PROMPT 48 8 ""
  USE LF_CLIFO
  CHECKTYPE NORMAL               
  WARNING "Cliente inesistente o mancante"
  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
  GROUP 5 9
END

STRING F_DESCRFINE_CLIENTE 50
BEGIN
  PROMPT 4 9 "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
  GROUP 5 9
END 

NUMBER F_SOTTOCFINE_FORN 6
BEGIN
  PROMPT 48 8 ""
  USE LF_CLIFO
  CHECKTYPE NORMAL
  WARNING "Fornitore inesistente o mancante"
  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
  MESSAGE COPY,F_SOTTOCFINE_CONTO
  GROUP 6 9
END

STRING F_DESCRFINE_FORN 50
BEGIN
  PROMPT 4 9 "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_SOTTOCFINE_FORN
  MESSAGE COPY,F_DESCRFINE_CONTO
  GROUP 6 9
END

DATE F_DATAINI 
BEGIN
  PROMPT 26 11 ""
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 11 ""
END

BOOLEAN F_MOVCAS
BEGIN
  PROMPT 4 12 "Stampa movimenti di cassa"
END

NUMBER F_CDC 7
BEGIN
  PROMPT 44 12 "Centro di costo "
  USE CDC
  FLAGS "UZ"
  INPUT CODTAB F_CDC
  DISPLAY "Codice@7" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CDC CODTAB
  CHECKTYPE NORMAL
END

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

BOOLEAN F_STAMPAMOVPROV
BEGIN
  PROMPT 4 14 "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

ENDPAGE

PAGE "Parametri" -1 -1 78 20

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 10
BEGIN
  PROMPT 4 6 "Numero mastrini per pagina "
  ITEM "1|Uno"
  ITEM "2|Due"
  ITEM "3|Continua"
END

SPREADSHEET F_SCELTE 
BEGIN
  PROMPT 0 8 ""
  ITEM "Anno"
  ITEM "Tipo@4"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc."
  ITEM "Tipo@4"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc."
  ITEM "Dal@10"
  ITEM "Al@10"
  ITEM "Stampa numerazione"
  ITEM "Progr."
  ITEM "Totali IVA"
  ITEM "Tipo stampa"
  ITEM "Provv."
  ITEM "Mov.cassa"
  ITEM "Centro di costo"
END

ENDPAGE

ENDMASK

PAGE "Scelte" -1 -1 68 15

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 1 "Esercizio    "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE NORMAL
  FLAGS "Z"
  ADD NONE
END

LIST F_TIPOCF_INI 25
BEGIN
  PROMPT 1 2 "Dal conto    "
  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 44 2 ""
END

NUMBER F_CONTOINI_CLIENTE 3 
BEGIN
  PROMPT 50 2 ""
  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_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CLIENTE CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CLIENTE
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCINI_CLIENTE
  MESSAGE COPY,F_CONTOINI_CONTO
  GROUP 2  
END

NUMBER F_CONTOINI_FORN 3 
BEGIN
  PROMPT 50 2 ""
  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_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_FORN CONTO         
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_FORN
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCINI_FORN
  MESSAGE COPY,F_CONTOINI_CONTO
  GROUP 3                      
END

NUMBER F_CONTOINI_CONTO 3 
BEGIN
  PROMPT 50 2 ""
  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_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CONTO CONTO
//  OUTPUT F_DESCRINI_CONTO DESCR
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCINI_CONTO
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
  GROUP 1
END

NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN
  PROMPT 58 2 ""
  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
  FLAGS "R"
  GROUP 2
  MESSAGE COPY,F_SOTTOCINI_CONTO
END

STRING F_DESCRINI_CLIENTE 50
BEGIN
  PROMPT 1 3 "Cliente      "
  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 58 2 ""
  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 1 3 "Fornitore    "
  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_SOTTOCINI_FORN
  MESSAGE COPY,F_DESCRINI_CONTO
  CHECKTYPE NORMAL
  GROUP 3
END
           
NUMBER F_SOTTOCINI_CONTO 6
BEGIN
  PROMPT 58 2 ""
  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_SOTTOCINI_CONTO SOTTOCONTO
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CONTO CONTO
  OUTPUT F_DESCRINI_CONTO DESCR
  CHECKTYPE NORMAL
  FLAGS "R"
  GROUP 1
END

STRING F_DESCRINI_CONTO 50
BEGIN
  PROMPT 1 3 "Descrizione  "
//  FIELD LF_PCON->DESCR
  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

LIST F_TIPOCF_FINE 25
BEGIN
  PROMPT 1 4 "Al conto     "
  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 44 4 "" 
END

NUMBER F_CONTOFINE_CLIENTE 3
BEGIN
  PROMPT 50 4 ""
  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_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CLIENTE CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CLIENTE
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE
  MESSAGE COPY,F_CONTOFINE_CONTO
  GROUP 5
END

NUMBER F_CONTOFINE_FORN 3
BEGIN
  PROMPT 50 4 ""
  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_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_FORN CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_FORN
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCFINE_FORN
  MESSAGE COPY,F_CONTOFINE_CONTO
  GROUP 6
END

NUMBER F_CONTOFINE_CONTO 3
BEGIN
  PROMPT 50 4 ""
  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_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CONTO CONTO
  CHECKTYPE NORMAL                    
  WARNING "Conto inesistente o mancante"
  MESSAGE DIRTY,F_SOTTOCFINE_CONTO
  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
  GROUP 4
END

NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN
  PROMPT 58 4 ""
  USE LF_CLIFO
  CHECKTYPE NORMAL               
  WARNING "Cliente inesistente o mancante"
  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
  FLAGS "R"
  GROUP 5
  MESSAGE COPY,F_SOTTOCFINE_CONTO
END

STRING F_DESCRFINE_CLIENTE 50
BEGIN
  PROMPT 1 5 "Cliente      "
//  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 "Codice" CODCF
  COPY OUTPUT F_SOTTOCFINE_CLIENTE
  MESSAGE COPY,F_DESCRFINE_CONTO
  CHECKTYPE NORMAL
  GROUP 5
END 

NUMBER F_SOTTOCFINE_FORN 6
BEGIN
  PROMPT 58 4 ""
  USE LF_CLIFO
  CHECKTYPE NORMAL
  WARNING "Fornitore inesistente o mancante"
  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
  MESSAGE COPY,F_SOTTOCFINE_CONTO
  GROUP 6
END

STRING F_DESCRFINE_FORN 50
BEGIN
  PROMPT 1 5 "Fornitore    "
  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_SOTTOCFINE_FORN
  MESSAGE COPY,F_DESCRFINE_CONTO
  GROUP 6
END

NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
  PROMPT 58 4 ""
  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_SOTTOCFINE_CONTO SOTTOCONTO
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CONTO CONTO
  OUTPUT F_DESCRFINE_CONTO DESCR
  CHECKTYPE NORMAL
  FLAGS "R"
  WARNING "Sottoconto inesistente o mancante"
  GROUP 4
END

STRING F_DESCRFINE_CONTO 50
BEGIN
  PROMPT 1 5 "Descrizione  "
// FIELD LF_PCON->DESCR
  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_SOTTOCFINE_CONTO
  CHECKTYPE NORMAL
  GROUP 4
END

DATE F_DATAINI 
BEGIN
  PROMPT 1 6 "Dalla data   "
END

DATE F_DATAFINE
BEGIN
  PROMPT 44 6 "Alla data "
END

BOOLEAN F_STAMPATOTIVA
BEGIN
  PROMPT 1 7 "Stampa totali documenti IVA"
END
  
BOOLEAN F_STAMPAPROGRE
BEGIN
  PROMPT 38 7 "Stampa progressivi attuali"
END

BOOLEAN F_STAMPAMOVPROV
BEGIN
  PROMPT 1 8 "Stampa movimenti provvisori"
END

LIST F_STAMPANUM 15
BEGIN
  PROMPT 1 9 "Stampa numerazione   "
  ITEM "1|Operazione"
  ITEM "2|Riga giornale"
  ITEM "3|Nessuna"
END

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

BOOLEAN F_MOVCAS
BEGIN
  PROMPT 1 11 "Stampa movimenti di cassa"
END

NUMBER F_CDC 7
BEGIN
  PROMPT 1 12 "Centro di costo "
  USE CDC
  INPUT CODTAB F_CDC
  DISPLAY "Codice@7" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CDC CODTAB
  CHECKTYPE NORMAL
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END


BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK