#include "batbreg.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Registri" -1 -1 78 18

NUMBER F_CODDITTA 5
BEGIN
  FLAGS "FRH"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 1 "Anno              "
  FIELD CODTAB[1,4]
  FLAGS "AP"
  KEY 1
  GROUP 1
  USE REG
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_CODICE
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione @50" S0
  DISPLAY "Tipo" I0
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_CODICE CODTAB[5,7]
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_CODICE 3 3
BEGIN
  PROMPT 4 2 "Codice registro   "
  FIELD CODTAB[5,7]
  FLAGS "U"
  KEY 1
  GROUP 1
  COPY USE F_ANNO
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione @50" S0
  DISPLAY "Tipo" I0
  COPY OUTPUT F_ANNO
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50 50
BEGIN
  PROMPT 4 3 "Descrizione       "
  FIELD S0
  KEY 2
  GROUP 1
  USE REG KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @50" S0
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Tipo" I0
  COPY OUTPUT F_ANNO
  CHECKTYPE REQUIRED
END

NUMBER F_CODLIB 2
BEGIN
  PROMPT 4 5 "Codice libro      "
  FIELD S7
  FLAGS "R"
  GROUP 1
  USE %ITL
  INPUT S0 F_DESCR
  INPUT CODTAB F_CODLIB
  DISPLAY "Codice libro" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_DESCR S0
  OUTPUT F_CODLIB CODTAB  
  CHECHTYPE NORMAL
  HELP "Inserire il codice del libro"
END

LIST F_TIPO 26
BEGIN
  PROMPT 30 5 "Tipo "
  FIELD I0
  GROUP 1 30
  ITEM "1|Vendite"
  MESSAGE HIDE,3@|HIDE,5@|HIDE,6@|SHOW,2@|SHOW,4@
  ITEM "2|Acquisti"
  MESSAGE HIDE,2@|SHOW,3@|HIDE,5@|HIDE,6@|SHOW,4@
  ITEM "3|Libro IVA riepilogativo"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,5@|HIDE,6@|SHOW,4@
  ITEM "4|Libro Incassi e pagamenti"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,6@|SHOW,5@
  ITEM "5|Libro Giornale"
  MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|SHOW,6@
  ITEM "6|Libri Sociali"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|SHOW,8@
  ITEM "7|Libro Cespiti"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@
  ITEM "8|Libro Inventari"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@
  ITEM "9|Libro delle Procedure"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|SHOW,8@
END

STRING F_CONSPRESSO 40
BEGIN
  PROMPT 4 7 "Conservato presso "
  FIELD S1
  GROUP 1
END

STRING F_ATTIVITA 5
BEGIN
  PROMPT 4 9 "Codice attivita   "
  FIELD REG->S8
  FLAGS "URZ"
  GROUP 4
  USE LF_ATTIV 
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODATT F_ATTIVITA
  DISPLAY "Codice" CODATT
  DISPLAY "Descrizione@40" DESCR
  OUTPUT F_ATTIVITA CODATT
  HELP "Introdurre il codice dell' attivita'"
  CHECKTYPE REQUIRED
  WARNING "Attivita' non prevista per questa ditta"
END

NUMBER F_CODULC 3
BEGIN
  PROMPT 35 9 "Unita' locale           "
  FLAGS "R"
  GROUP 4
  FIELD I7
  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 "Inserire il codice dell'unita' locale"
  WARNING "Unita' locale non prevista per questa ditta"
  CHECKTYPE NORMAL
END  
  
NUMBER F_PAGSTAMP 5
BEGIN
  PROMPT 4 11 "Pagine stampate   "
  FIELD I1
  FLAGS "R"
  GROUP 1
END

NUMBER F_PAGNUM 5
BEGIN
  PROMPT 35 11 "Pagine numerate       "
  FIELD I2
  FLAGS "R"
  GROUP 1
END

DATE F_DATAVID
BEGIN
  PROMPT 4 13 "Data vidimazione  "
  FIELD D0
  GROUP 1
END

DATE F_DATASCAD
BEGIN
  PROMPT 35 13 "Data scadenza    "
  FIELD D1
  GROUP 1
END

STRING F_CODLBU 3
BEGIN
  PROMPT 4 15 "Cod. libro unico  "
  GROUP 4
  FIELD S8
  USE %LBU
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_CODLBU
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice libro unico" CODTAB[5,7]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_CODLBU CODTAB[5,7]
  CHECKTYPE NORMAL
  WARNING "Libro unico assente"
END  
  
ENDPAGE

PAGE "Registri pag.2" -1 -1 78 18

BOOLEAN F_STAMPA_COSTI_RICAVI
BEGIN
  PROMPT 2 2 "Stampa costi/ricavi su libro cronologico "
  FIELD B2
  GROUP 5
END
              
LIST F_FREQUENZA_STAMPA 1 16
BEGIN
  PROMPT 2 2 "Stampa reg.riepilogativo "
  FIELD S9
  GROUP 4
  ITEM "M|Mensile"
  ITEM "T|Trimestrale"
END

BOOLEAN F_VENTIL
BEGIN
  PROMPT 2 2 "Attivita' con ventilazione"
  FIELD B3
  GROUP 3
END

BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
BEGIN
  PROMPT 2 2 "Stampa sullo stesso registro"
  FIELD B8
  GROUP 6
END

BOOLEAN F_REGSOSP
BEGIN
  PROMPT 2 4 "Registro in sospensione "
  FIELD B1
  GROUP 2 3 
  HELP "Indicare se il registro e' in sospensione d'imposta"
END
                          
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
BEGIN
  PROMPT 46 4 "Stampa credito anno precedente"
  FIELD B4
  GROUP 3
END

BOOLEAN F_CORRISP                          
BEGIN
  PROMPT 46 4 "Registro corrispettivi"
  FIELD B0
  GROUP 2
END

LIST F_TIPO_DESC_COSTI_RICAVI 1 10
BEGIN
  PROMPT 2 4 "Tipo descrizione costi/ricavi "
  FIELD I3
  GROUP 5
  ITEM "1|Gruppo"
  ITEM "2|Conto"
END

NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
BEGIN
  PROMPT 44 4 "Ultimo numero riga stamp."
  FIELD I6
  FLAGS "R"
  GROUP 5 6
END

BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
BEGIN
  PROMPT 2 6 "Stampa indirizzi completi"
  FIELD B5
  GROUP 2 3
END

NUMBER F_PROG_DARE 15
BEGIN
  PROMPT 2 6 "Progressivo dare               "
  FIELD R1
  PICTURE "."
  FLAGS "R"
  GROUP 6
END

NUMBER F_TOT_INCASSI 15
BEGIN
  PROMPT 2 6 "Totale incassi "
  FIELD R0                       
  FLAGS "R"
  PICTURE "."
  GROUP 5
END

BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
BEGIN
  PROMPT 46 6 "Stampa riepilogo liquidazione"
  FIELD B6
  GROUP 2 3
  HELP "Stampa 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 44 6 "Totale pagamenti "
  FIELD R1
  FLAGS "R"
  PICTURE "."
  GROUP 5
END
                  
BOOLEAN F_STAMPA_LIQUIDAZIONE
BEGIN
  PROMPT 2 8 "Stampa liquidazione"
  FIELD B7
  GROUP 2 3 4
  HELP "Stampa a fine periodo la liquidazione"
END

NUMBER F_PROG_AVERE 15
BEGIN
  PROMPT 2 8 "Progressivo avere              "
  FIELD R2            
  FLAGS "R"
  PICTURE "."
  GROUP 6
END

LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN
  PROMPT 2 10 "Mese stampa ultima liquidazione "
  FIELD I4 
  FLAGS "M"  
  ITEM "13|Annuale"
  GROUP 2 3 4
END

NUMBER F_ULTIMO_NUM_PROT 7
BEGIN
  PROMPT 2 12 "Ultimo numero di protocollo     "
  FIELD I5
  FLAGS "R"
  GROUP 2 3
  HELP "Inserire ultimo numero di protocollo"
END

BOOLEAN F_STAMPA_INTESTAZIONE
BEGIN
  PROMPT 2 12 "Stampa intestazione ditta sul libro"
  FIELD B9
  GROUP 1
END

DATE F_ULTIMA_DATA_DI_REGISTR
BEGIN
  PROMPT 2 14 "Ultima data di registrazione    "
  FIELD D2
  GROUP 2 3 5 6
END

DATE F_ULTIMA_DATA_DI_STAMPA
BEGIN
  PROMPT 2 16 "Ultima data di stampa           "
  FIELD D3
  GROUP 2 3 5 6 8
END

ENDPAGE

ENDMASK