campo-sirio/ba/ba5200a.uml

#include "ba5200a.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Registri" -1 -1 78 18

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta       "
  FLAGS "FRDG"
  KEY 1
  FIELD CODDITTA
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_ATTIVITA CODATTPREV
  CHECKTYPE NORMAL
  MESSAGE COPY,18@
  MESSAGE FALSE COPY,18@
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 20 1 ""
  FLAGS "DG"
  MESSAGE COPY,19@
  MESSAGE FALSE COPY,19@
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 2 "Anno        "
  HELP "Anno a cui fa riferimento il registro"
  FIELD ANNO
  FLAGS "GAZ"
  KEY 1
  GROUP 1
  USE LF_TABREG
  INPUT ANNO F_ANNO
  INPUT CODREG F_CODICE
  DISPLAY "Anno" ANNO
  DISPLAY "Codice" CODREG
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Tipo" TIPO
  OUTPUT F_CODICE CODREG
  OUTPUT F_ANNO ANNO
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED  
  MESSAGE COPY,20@
  MESSAGE FALSE COPY,20@
END

STRING F_CODICE 3
BEGIN
  PROMPT 49 2 "Codice registro   "
  Help "Codice del registro"
  FIELD CODREG
  USE LF_TABREG
  COPY ALL F_ANNO
  FLAGS "GUZ"
  KEY 1
  GROUP 1
  CHECKTYPE REQUIRED 
  MESSAGE COPY,21@
END

STRING F_DESCR 50
BEGIN
  PROMPT 1 3 "Descrizione        "
  FIELD DESCR
  KEY 2
  GROUP 1
  USE LF_TABREG KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Anno" ANNO
  DISPLAY "Codice" CODREG
  DISPLAY "Tipo" TIPO
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED 
  MESSAGE COPY,22@
  HELP "Descrizione del registro"
  WARNING "La descrizione e' obbligatoria"
END 

NUMBER F_CODLIB 2
BEGIN
  PROMPT 1 5 "Codice libro      "
  FIELD CODLIB
  FLAGS "Z"
  GROUP 1
  USE %ITL
  INPUT CODTAB F_CODLIB
  DISPLAY "Codice libro" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODLIB CODTAB 
  OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
  HELP "Codice del libro sociale a cui fa riferimento il registro"
END

LIST F_TIPO 1 28
BEGIN
  PROMPT 30 5 "Tipo "
  HELP "Tipo di registro"
  FIELD TIPO
  FLAGS "G"
  GROUP 1 GR_MODIFY_PROTECTED
//  ITEM "1|1) Vendite"
//    MESSAGE HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,2@|SHOW,F_PRINTER|SHOW,F_CONFIG
//  ITEM "2|2) Acquisti"
//    MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,3@|SHOW,F_PRINTER|SHOW,F_CONFIG
//  ITEM "3|3) Libro IVA riepilogativo"
//    MESSAGE HIDE,2@|HIDE,3@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,4@|SHOW,F_PRINTER|SHOW,F_CONFIG
//  ITEM "4|4) Libro Incassi e pagamenti"
//  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,5@|SHOW,F_PRINTER|SHOW,F_CONFIG
//  ITEM "5|5) Libro Giornale"
//    MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,6@|SHOW,F_PRINTER|SHOW,F_CONFIG
// ITEM "6|6) Libri Sociali"
//    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,7@|SHOW,F_PRINTER|SHOW,F_CONFIG
  ITEM "7|7) Libro Cespiti"
    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,9@|HIDE,10@|SHOW,8@|HIDE,F_PRINTER|SHOW,F_CODLBU|HIDE,F_CONFIG
  ITEM "8|8) Libro Inventari"
    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,10@|SHOW,9@|SHOW,F_PRINTER|SHOW,F_CONFIG
//  ITEM "9|9) Libro delle Procedure"
//    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@|SHOW,F_PRINTER|SHOW,F_CONFIG
END

STRING F_CONSPRESSO 50
BEGIN
  PROMPT 1 7 "Conservato presso "
  HELP "Luogo dove verra' conservato il registro"
  FIELD CONSERV
  GROUP 1
END

STRING F_ATTIVITA 5
BEGIN
  PROMPT 1 9 "Codice attivita   "
  FIELD CODATT
  FLAGS "URZ"
  GROUP 2 3 4
  USE LF_ATTIV
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODATT F_ATTIVITA
  DISPLAY "Codice" CODATT
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ATTIVITA CODATT
  HELP "Codice dell'attivita' della ditta"
  CHECKTYPE REQUIRED
  WARNING "Attivita' non prevista per questa ditta"
  ADD RUN ba4 -4
END

NUMBER F_CODGRUP 2
BEGIN
  PROMPT 1 9 "Codice Gruppo     "
  FLAGS "URZ"
  GROUP 8 
  USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA)
  JOIN LF_TABGR TO LF_DITCB INTO G0CGR=CBCGR
  FIELD CODGR
  INPUT CBCGR F_CODGRUP 
  //DISPLAY "Codice Specie" CBCSP
  DISPLAY "Codice Gruppo" CBCGR
  DISPLAY "Data inizio esercizio" CBDTI
  DISPLAY "Data fine esercizio" CBDTF
  DISPLAY "Descrizione@50" LF_TABGR->G0DCT
  OUTPUT F_CODGRUP CBCGR
  //OUTPUT F_CODSPEC CBCSP
  OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT 
  HELP "Codice Gruppo"
  WARNING "Codice Gruppo non previsto per questa ditta"
END

STRING F_CODGRUPDESCR 60 45
BEGIN
  PROMPT 24 9 ""
  GROUP 8 
  FLAG "D"
END

STRING F_CODSPEC 4
BEGIN
  PROMPT 1 10 "Codice Specie   "
  FLAGS "URZ"
  GROUP 8 
  USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA)
  JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP
  FIELD CODSP
  INPUT CBCSP F_CODSPEC 
  INPUT CBCGR F_CODGRUP 
  DISPLAY "Codice Gruppo" CBCGR
  DISPLAY "Codice Specie" CBCSP
  DISPLAY "Data inizio esercizio" CBDTI
  DISPLAY "Data fine esercizio" CBDTF
  DISPLAY "Descrizione@50" LF_TABAT->TADCT
  OUTPUT F_CODGRUP CBCGR
  OUTPUT F_CODSPEC CBCSP
  OUTPUT F_CODSPECDESCR LF_TABAT->TADCT 
  WARNING "Codice Specie non previsto per questa ditta"
END


STRING F_CODSPECDESCR 60 45
BEGIN
  PROMPT 24 10 ""
  GROUP 8 
  FLAG "D"
END

NUMBER F_CODULC 3
BEGIN
  PROMPT 35 9 "Unita' locale           "
  FLAGS "R"
  GROUP 2 3 4 5 6 7 10
  FIELD CODULC
  USE LF_UNLOC
    JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODULC F_CODULC
  DISPLAY "Codice" CODDITTA
  DISPLAY "Un.Loc" CODULC
  DISPLAY "Localita'@50" LF_COMUNI->DENCOM
  DISPLAY "Indirizzo@35" INDULC
  DISPLAY "N.ro civico@35" CIVULC
  OUTPUT F_CODULC CODULC
  HELP "Codice dell'unita' locale della ditta"
  WARNING "Unita' locale non prevista per questa ditta"
  CHECKTYPE NORMAL
  ADD RUN ba4 -3
END 
 
NUMBER F_PAGSTAMP 5
BEGIN
  PROMPT 1 12 "Pagine stampate   "
  HELP "Numero di pagine gia' stampate"
  FIELD PAGST
  FLAGS "R"
  GROUP 1
END

NUMBER F_PAGNUM 5
BEGIN
  PROMPT 35 12 "Pagine numerate       "
  HELP "numero di pagine di cui e' stata stampata la numerazione"
  FIELD PAGNUM
  FLAGS "R"
  GROUP 1
END

DATE F_DATAVID
BEGIN
  PROMPT 1 13 "Data vidimazione  "
  HELP "Data di vidimazione del registro"
  FIELD DATAVID
  GROUP 1
END

DATE F_DATASCAD
BEGIN
  PROMPT 35 13 "Data scadenza    "
  HELP "Data fino a cui rimane in vigore il registro"
  FIELD DATASCAD
  GROUP 1
END

STRING F_CODLBU 3
BEGIN
  PROMPT 1 15 "Cod. libro unico  "
  FIELD CODLBU
  HELP "Codice del libro unico a cui fa riferimento"
  FLAGS "UZ"
  GROUP 2 3 4 8
  USE %LBU
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_CODLBU
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_CODLBU CODTAB[5,7]
  WARNING "Libro unico assente"
  CHECKTYPE NORMAL
  VALIDATE NOT_EMPTY_CHECK_FIELD
END 

BOOLEAN F_CONFIG
BEGIN
  PROMPT 1 17 "Stampante configurata"
END

BUTTON F_PRINTER 30 2
BEGIN
  PROMPT 40 17 "Configurazione ~stampante"
END

ENDPAGE

PAGE "Opzioni" -1 -1 78 18

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 1 "Ditta       "
  FLAGS "DR"
  GROUP 18
END

STRING DLG_NULL 50
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
  GROUP 19
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 1 2 "Anno        "
  FLAGS "DP"
  GROUP 20
END

STRING DLG_NULL 3
BEGIN
  PROMPT 49 2 "Codice registro   "
  FLAGS "D"
  GROUP 21
END

STRING DLG_NULL 50
BEGIN
  PROMPT 1 3 "Descrizione        "
  GROUP 22
  FLAGS "D"
END 

BOOLEAN F_REGSOSP
BEGIN
  PROMPT 1 5 "Registro in sospensione "
  FIELD REGSOS
  GROUP 2 3
  HELP "Indicare se il registro e' in sospensione d'imposta"
END
       
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
BEGIN
  PROMPT 46 5 "Stampa credito anno precedente"
  HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente"
  FIELD STCREDPREC
  GROUP 3
END

BOOLEAN F_CORRISP                         
BEGIN
  PROMPT 46 5 "Registro corrispettivi"
  HELP "Indicare se si tratta di registro dei corrispettivi"
  FIELD REGCORR
  GROUP 2
END

LIST F_TIPO_DESC_COSTI_RICAVI 1 10
BEGIN
  PROMPT 1 5 "Tipo descrizione costi/ricavi "
  HELP "Livello a cui stampare la descrizione costi/ricavi"
  FIELD TIPODCR
  GROUP 5
  ITEM "1|Gruppo"
  ITEM "2|Conto"
END

NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
BEGIN
  PROMPT 1 5 "Ultima riga stampata "
  FIELD ULTRIGAST
  HELP "Ultimo numero della riga stampata"
  FLAGS "R"
  GROUP 5 6
END

BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
BEGIN
  PROMPT 1 7 "Stampa indirizzi completi"
  HELP "Indicare se stampare gli indirizzi completi"
  FIELD INDCOMPL
  GROUP 2 3
END

LIST F_FREQUENZA_STAMPA 1 16
BEGIN
  PROMPT 1 7 "Stampa reg. riepilogativo "
  HELP "Intervallo per fare il riepilogo"
  FIELD FREQSTRIEP
  GROUP 4
  ITEM "M|Mensile"
  ITEM "T|Trimestrale"
END

NUMBER F_PROG_DARE 15
BEGIN
  PROMPT 1 7 "Progressivo dare     "
  HELP "Progressivo dare del giornale"
  FIELD PROGDARE
  PICTURE "."
  FLAGS "R"
  GROUP 6
END

NUMBER F_TOT_INCASSI 15
BEGIN
  PROMPT 1 7 "Totale incassi "
  HELP "Progressivo degli incassi effettuati"
  FIELD TOTINC                      
  FLAGS "R"
  PICTURE "."
  GROUP 5
END

BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
BEGIN
  PROMPT 46 7 "Stampa riepilogo liquidazione"
  FIELD RIEPLIQ
  GROUP 2 3 4
  HELP "Indicare se stampare il  riepilogo IVA delle aliquote utilizzate"
  MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE
  MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE
END

NUMBER F_TOT_PAGAMENTI 15
BEGIN
  PROMPT 42 7 "Totale pagamenti "
  HELP "Progressivo dei pagamenti effettuati"
  FIELD TOTPAG
  FLAGS "R"
  PICTURE "."
  GROUP 5
END
     
BOOLEAN F_STAMPA_LIQUIDAZIONE
BEGIN
  PROMPT 1 9 "Stampa liquidazione"
  FIELD STLIQ
  GROUP 2 3 4
  HELP "Indicare se stampare a fine periodo la liquidazione"
END

NUMBER F_PROG_AVERE 15
BEGIN
  PROMPT 1 9 "Progressivo avere    "
  HELP "Progressivo avere del giornale"
  FIELD PROGAVERE           
  FLAGS "R"
  PICTURE "."
  GROUP 6
END

BOOLEAN F_STAMPA_COSTI_RICAVI
BEGIN
  PROMPT 42 9 "Stampa costi/ricavi su libro cronologico "
  FIELD STCOSRIC
  GROUP 5
END
       
BOOLEAN F_VENTIL
BEGIN
  PROMPT 46 9 "Attivita' con ventilazione"
  HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
  FIELD VENT
  GROUP 3
END

LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN
  PROMPT 1 11 "Mese stampa ultima liquidazione "
  HELP "Mese in cui e' stata stampata l'ultima liquidazione"
  FIELD MESEULLIQ
  FLAGS "M"
  ITEM "00|Nessuno" 
  ITEM "13|Annuale"
  GROUP 2 3 4
END

BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
BEGIN
  PROMPT 1 11 "Stampa sullo stesso registro"
  HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
  FIELD STESSOREG
  GROUP 6
END

NUMBER F_ULTIMO_NUM_PROT 7
BEGIN
  PROMPT 1 13 "Ultimo numero di protocollo     "
  FIELD ULTPROT
  FLAGS "R"
  GROUP 2 3
  HELP "Ultimo numero di protocollo"
END

DATE F_ULTIMA_DATA_DI_REGISTR
BEGIN
  PROMPT 1 15 "Ultima data di registrazione    "
  HELP "Date dell'ultima registrazione stampata"
  FIELD ULTDATAREG
  GROUP 2 3 5 6
END

DATE F_ULTIMA_DATA_DI_STAMPA
BEGIN
  PROMPT 1 17 "Ultima data di stampa           "
  HELP "Data dell'ultima stampa effettuata"
  FIELD ULTDATAST
END

BOOLEAN F_STAMPA_INTESTAZIONE
BEGIN
  PROMPT 46 17 "Stampa intestazione ditta"
  HELP "Indicare se stampare l'intestazione della ditta"
  FIELD STINTDITTA
  GROUP 1
END

LISTBOX F_DENS_STAMPA 15
BEGIN
  PROMPT 1, 18 "Densita' di stampa        "
  FIELD DENSSTA
  GROUP 8
  ITEM "0| Normale"
  ITEM "1| Elite"
  ITEM "2| Compresso"
  HELP "Indicare la densita' di stampa" 
END

BOOLEAN F_MOD_12
BEGIN
  PROMPT 46 18 "Modulo 12"
  HELP "Indicare se impiegare il modulo 12"
  FIELD MOD12
  GROUP 8
END

BOOLEAN F_STAMPA_BILINV
BEGIN
  PROMPT 1 6 "Stampa bilancio dopo inventario"
  HELP "Indicare se stampare il bilancio dopo l'inventario" 
  FIELD BILINV 
  GROUP 9
END
           
LISTBOX F_STAMPA_INT 25
BEGIN
  PROMPT 1 7 "Stampa intestazione        "
  HELP "Indicare se stampare intestazione" 
  FIELD STINT 
  ITEM "1| No"
  ITEM "2| Su tutte le pagine"
  ITEM "3| Solo sulla prima pagina"
  GROUP 9
END

BOOLEAN F_PROSPVAR
BEGIN
  PROMPT 1 8 "Stampa con prospetto di variazione"
  HELP "Indicare se stampare il prospetto di variazione" 
  FIELD PROSPVAR 
  GROUP 9
END

LISTBOX F_CLIFOR 25
BEGIN
  PROMPT 1 9 "Stampa clienti fornitori   "
  HELP "Indicare se stampare i clienti fornitori" 
  FIELD CLIFOR 
  ITEM "1| No"
  ITEM "2| Si"
  ITEM "3| Stampa con indirizzo"
  GROUP 9
END

BOOLEAN F_ST1COL
BEGIN
  PROMPT 1 10 "Stampa ad una colonna"
  HELP "Indicare se effettuare una stampa ad una colonna" 
  FIELD ST1COL 
  GROUP 9
END

STRING F_PROFST 2
BEGIN
  PROMPT 1 11 "Codice profilo di stampa   "
  HELP "Indicare il codice del profilo di stampa" 
  FIELD PROFST
  GROUP 9
END

STRING F_CODANST 2
BEGIN
  PROMPT 1 13 "Dati ultima stampa: Codice Analisi              "
  HELP "Indicare se stampare il prospetto di variazione" 
  FIELD CODANST 
  GROUP 9
END

NUMBER F_DATASTAB 4
BEGIN
  PROMPT 1 14 "Dati ultima stampa: Anno di Bilancio          "
  HELP "Indicare se stampare il prospetto di variazione" 
  FIELD DATASTAB 
  GROUP 9
END

STRING F_CODPDBST 2
BEGIN
  PROMPT 1 15 "Dati ultima stampa: Codice Periodo Bilancio     "
  HELP "Indicare se stampare il prospetto di variazione" 
  FIELD CODPDBST 
  GROUP 9
END

ENDPAGE

ENDMASK