campo-sirio/cg/cgp3100a.uml

#include "cgp3100.h"

TOOLBAR "" 0 20 0 2

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

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

BUTTON DLG_QUIT 18 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  
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA 
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
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 NONE
END

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

NUMBER F_CONTOINI_CONTO 3 
BEGIN
  PROMPT 41 5 ""
  USE LF_PCON SELECT SOTTOCONTO==""
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "C/F" TMCF
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI_CONTO CONTO 
  OUTPUT F_DESCRINI_CONTO DESCR
  CHECKTYPE SEARCH
  WARNING "Conto inesistente o mancante"
  GROUP 9
END


STRING F_DESCRINI_CONTO 50
BEGIN
  PROMPT 4 6 "Descrizione       "
  USE LF_PCON KEY 2 SELECT SOTTOCONTO==""
  CHECKTYPE SEARCH
  INPUT DESCR F_DESCRINI_CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "C/F" TMCF
  COPY OUTPUT F_CONTOINI_CONTO
  GROUP 9
END

NUMBER F_GRUPPOFINE 3
BEGIN
  PROMPT 4 8 "A  Gruppo - Conto "
  GROUP 9
END

NUMBER F_CONTOFINE_CONTO 3
BEGIN
  PROMPT 41 8 ""
  USE LF_PCON SELECT SOTTOCONTO==""
  INPUT GRUPPO F_GRUPPOFINE
  INPUT CONTO F_CONTOFINE_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "C/F" TMCF
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOFINE GRUPPO
  OUTPUT F_CONTOFINE_CONTO CONTO
  OUTPUT F_DESCRFINE_CONTO DESCR
  CHECKTYPE SEARCH
  WARNING "Conto inesistente o mancante"
  GROUP 4 9
END

STRING F_DESCRFINE_CONTO 50
BEGIN
  PROMPT 4 9 "Descrizione       "
  USE LF_PCON KEY 2
  CHECKTYPE SEARCH
  INPUT DESCR F_DESCRINI_CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "C/F" TMCF
  COPY OUTPUT F_CONTOFINE_CONTO
  GROUP 4 9
END

DATE F_DATAINI 
BEGIN
  PROMPT 26 11 ""
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 11 ""
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

BOOLEAN F_SEPARATOR
BEGIN
  PROMPT 4 14 "Non stampare il separatore delle migliaia"
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 "Gr."
  ITEM "Co."
  ITEM "Gr."
  ITEM "Co."
  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 13

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

NUMBER F_GRUPPOINI 3
BEGIN
  PROMPT 44 2 ""
END

NUMBER F_CONTOINI_CONTO 3 
BEGIN
  PROMPT 50 2 ""
  USE LF_PCON SELECT (SOTTOCONTO="")
  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 SEARCH
  WARNING "Conto inesistente o mancante"
  GROUP 1
END
           
STRING F_DESCRINI_CONTO 50
BEGIN
  PROMPT 1 3 "Descrizione  "
  USE LF_PCON KEY 2 SELECT (SOTTOCONTO=="")
  INPUT DESCR F_DESCRINI_CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_CONTOINI_CONTO
  CHECKTYPE SEARCH
  GROUP 1
END

             
NUMBER F_GRUPPOFINE 3
BEGIN
  PROMPT 44 4 "" 
END

NUMBER F_CONTOFINE_CONTO 3
BEGIN
  PROMPT 50 4 ""
  USE LF_PCON SELECT (SOTTOCONTO=="")
  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 SEARCH
  WARNING "Conto 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 SELECT (SOTTOCONTO=="")
  INPUT DESCR F_DESCRINI_CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  COPY OUTPUT F_CONTOFINE_CONTO
  CHECKTYPE SEARCH
  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

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