campo-sirio/cg/cg3200a.uml

#include "cg3200.h"

TOOLBAR "topbar" 0 0 0 2

#include <printbar.h>

ENDPAGE

PAGE "Stampa Mastrini" 0 0 0 2

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 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 15 1 ""
  FLAGS "D"
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 1 2 "Data di stampa  "
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 51 2 "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 NONE
END

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

NUMBER F_GRUPPOINI 3
BEGIN
  PROMPT 1 4 "Dal Conto       "
  GROUP 9
END

NUMBER F_CONTOINI_CONTO 3 
BEGIN
  PROMPT 22 4 ""
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CONTO CONTO 
  OUTPUT F_TIPOCF_INI TMCF
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
  GROUP 9
END

NUMBER F_SOTTOCINI_CONTO 6
BEGIN
  PROMPT 29 4 ""
  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
  CHECKTYPE NORMAL
  GROUP 1 9
END

STRING F_DESCRINI_CONTO 50
BEGIN
  PROMPT 1 5 "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 29 4 ""
  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 "Partita IVA" PAIV
  OUTPUT F_SOTTOCINI_CLIENTE CODCF
  OUTPUT F_DESCRINI_CLIENTE RAGSOC
  OUTPUT F_PAIVINI_CLIENTE PAIV
  MESSAGE COPY,F_SOTTOCINI_CONTO
  GROUP 2 9
END

STRING F_PAIVINI_CLIENTE 12
BEGIN
  PROMPT 43 4 "Partita IVA "
  USE LF_CLIFO KEY 5
  CHECKTYPE NORMAL               
  WARNING "Cliente inesistente o mancante"
  INPUT TIPOCF "C"
  INPUT PAIV F_PAIVINI_CLIENTE
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_SOTTOCINI_CLIENTE
  GROUP 2 9
END

STRING F_DESCRINI_CLIENTE 50
BEGIN
  PROMPT 1 5 "Ragione sociale "
  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
  CHECKTYPE NORMAL
  GROUP 2 9
END

NUMBER F_SOTTOCINI_FORN 6
BEGIN
  PROMPT 29 4 ""
  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 "Partita IVA" PAIV
  OUTPUT F_SOTTOCINI_FORN CODCF
  OUTPUT F_DESCRINI_FORN RAGSOC
  OUTPUT F_PAIVINI_FORN PAIV
  GROUP 3 9
  MESSAGE COPY,F_SOTTOCINI_CONTO
END

STRING F_PAIVINI_FORN 12
BEGIN
  PROMPT 43 4 "Partita IVA "
  USE LF_CLIFO KEY 5
  CHECKTYPE NORMAL               
  WARNING "Fornitore inesistente o mancante"
  INPUT TIPOCF "F"
  INPUT PAIV F_PAIVINI_FORN
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_SOTTOCINI_FORN
  GROUP 3 9
END

STRING F_DESCRINI_FORN 50
BEGIN
  PROMPT 1 5 "Ragione Sociale "
  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
  CHECKTYPE NORMAL
  GROUP 3 9
END
             
LIST F_TIPOCF_FINE 25
BEGIN
  PROMPT 1 6 "Ricerca         "
  ITEM " |Gruppo/conto/sottoconto"
  MESSAGE HIDE,5@|HIDE,6@|SHOW,4@
  ITEM "C|Clienti"
  MESSAGE HIDE,4@|HIDE,6@|SHOW,5@
  ITEM "F|Fornitori"
  MESSAGE HIDE,4@|HIDE,5@|SHOW,6@
END
             
NUMBER F_GRUPPOFINE 3
BEGIN
  PROMPT 1 7 "Al Conto        "
  GROUP 9
END

NUMBER F_CONTOFINE_CONTO 3
BEGIN
  PROMPT 22 7 ""
  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
  DISPLAY "Tipo" TMCF
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CONTO CONTO
  OUTPUT F_TIPOCF_FINE TMCF
  CHECKTYPE NORMAL                    
  VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
  WARNING "Conto inesistente o mancante"
  GROUP 9
END


NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
  PROMPT 29 7 ""
  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
  CHECKTYPE NORMAL
  WARNING "Sottoconto inesistente o mancante"
  GROUP 4 9
END

STRING F_DESCRFINE_CONTO 50
BEGIN
  PROMPT 1 8 "Descrizione     "
  USE LF_PCON KEY 2
  CHECKTYPE NORMAL
  INPUT DESCR F_DESCRFINE_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 29 7 ""
  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 "Partita IVA" PAIV
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  OUTPUT F_SOTTOCFINE_CLIENTE CODCF
  OUTPUT F_DESCRFINE_CLIENTE RAGSOC
  OUTPUT F_PAIVFINE_CLIENTE PAIV
  MESSAGE COPY,F_SOTTOCFINE_CONTO
  GROUP 5 9
END

STRING F_PAIVFINE_CLIENTE 12
BEGIN
  PROMPT 43 7 "Partita IVA "
  USE LF_CLIFO KEY 5
  CHECKTYPE NORMAL               
  WARNING "Cliente inesistente o mancante"
  INPUT TIPOCF "C"
  INPUT PAIV F_PAIVFINE_CLIENTE
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_SOTTOCFINE_CLIENTE
  GROUP 5 9
END

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

NUMBER F_SOTTOCFINE_FORN 6
BEGIN
  PROMPT 29 7 ""
  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 "Partita IVA" PAIV
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT F_SOTTOCFINE_FORN CODCF
  OUTPUT F_DESCRFINE_FORN RAGSOC
  OUTPUT F_PAIVFINE_FORN PAIV
  MESSAGE COPY,F_SOTTOCFINE_CONTO
  GROUP 6 9
END

STRING F_PAIVFINE_FORN 12
BEGIN
  PROMPT 43 7 "Partita IVA "
  USE LF_CLIFO KEY 5
  CHECKTYPE NORMAL               
  WARNING "Cliente inesistente o mancante"
  INPUT TIPOCF "F"
  INPUT PAIV F_PAIVFINE_CLIENTE
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_SOTTOCFINE_FORN
  GROUP 6 9
END

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

TEXT 96
BEGIN
  PROMPT 1 9 "Dalla data competenza"
END

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

TEXT 98
BEGIN
  PROMPT 1 9 "Dalla data operazione "
END

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

DATE F_DATAINI 
BEGIN
  PROMPT 26 9 ""
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 9 ""
END

BOOLEAN F_STAMPATOTIVA
BEGIN
  PROMPT 1 10 "Stampa totali documenti IVA"
  GROUP 8
END
  
BOOLEAN F_STAMPAPROGRE
BEGIN
  PROMPT 40 10 "Stampa progressivi attuali"
  GROUP 8
END

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

BOOLEAN F_SORTDESC
BEGIN
  PROMPT 40 11 "Stampa ordinata per descrizione"
  GROUP 8
END

RADIOBUTTON F_NUMCARAT 1 31
BEGIN
  PROMPT 1 11 ""
  ITEM "1|Stampa Normale (132 crt.)"  
    MESSAGE HIDE,F_SALDO_DES
  ITEM "2|Stampa Estesa  (198 crt.)"
    MESSAGE SHOW,F_SALDO_DES
END

RADIOBUTTON F_SALDO_DES 1 38
BEGIN
  PROMPT 40 11 ""
  ITEM "1|Stampa saldi progressivi"
  ITEM "2|Stampa saldo scalare"
  ITEM "3|Stampa descrizione contropartite"
END

BOOL F_NOT_STAMPA_CONT
BEGIN
  PROMPT 1 14 "Non stampare le contropartita"
END

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

LIST F_SELEZ_STAMPA 34
BEGIN
  PROMPT 1 16 "Selezione mastrini  "
  ITEM "1|Movimentati nel periodo"
  ITEM "2|Con saldo diverso da 0"
  ITEM "3|Tutti"
END

LIST F_NUMMAST 10
BEGIN
  PROMPT 1 17 "Mastrini per pagina "
  ITEM "1|Uno"
  ITEM "2|Due"
  ITEM "3|Continua"
END

BOOLEAN F_SEPARATOR
BEGIN
  PROMPT 40 17 "Non stampare il separatore delle migliaia"
  GROUP 8
END

BOOLEAN F_ST_CONTSEP
BEGIN
  PROMPT 1 19 "Stampa contabilit<69> separata"
  MODULE NP
END

BUTTON F_MEMORIZZA 18 2
BEGIN
  PROMPT -11 -1 "~Memorizza scelte"
END

ENDPAGE

PAGE "Parametri" -1 -1 78 20

SPREADSHEET F_SCELTE 
BEGIN
  PROMPT 0 1 ""
  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."
END

ENDPAGE

ENDMASK

PAGE "Scelte" -1 -1 68 14

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 (TMCF="C")
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI_CLIENTE
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO          
  DISPLAY "Tipo" TMCF
  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 (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
  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
  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
  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
  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
  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
  GROUP 1
END

STRING F_DESCRINI_CONTO 50
BEGIN
  PROMPT 1 3 "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

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 (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 (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
  GROUP 5
  MESSAGE COPY,F_SOTTOCFINE_CONTO
END

STRING F_DESCRFINE_CLIENTE 50
BEGIN
  PROMPT 1 5 "Cliente      "
  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
  WARNING "Sottoconto inesistente o mancante"
  GROUP 4
END

STRING F_DESCRFINE_CONTO 50
BEGIN
  PROMPT 1 5 "Descrizione  "
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCRFINE_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 28 6 "Alla data "
END

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

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

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

LIST F_SELEZ_STAMPA 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

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