campo-sirio/ba/batbreg.uml

#include "ba3100.h"
#include "batbreg.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"
  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 CODTAB[1,4]
  FLAGS "AZ"
  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  
  MESSAGE COPY,20@
  MESSAGE FALSE COPY,20@
END

STRING F_CODICE 3
BEGIN
  PROMPT 49 2 "Codice registro   "
  Help "Codice del registro"
  FIELD CODTAB[5,7]
  FLAGS "U"
  KEY 1
  GROUP 1
  COPY ALL F_ANNO
  CHECKTYPE REQUIRED 
  MESSAGE COPY,21@
END

STRING F_DESCR 50
BEGIN
  PROMPT 1 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 
  MESSAGE COPY,22@
  HELP "Descrizione del registro"
  WARNING "La descrizione e' obbligatoria"
END 

STRING F_CODLIB 2
BEGIN
  PROMPT 1 5 "Codice libro      "
  FIELD S7
  FLAGS "R"
  GROUP 1
  USE %ITL
  INPUT CODTAB F_CODLIB
  DISPLAY "Codice libro@R" 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 26
BEGIN
  PROMPT 30 5 "Tipo "
  HELP "Tipo di registro"
  FIELD I0
  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@
  ITEM "2|2) Acquisti"
    MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,3@
  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@
//  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@
  ITEM "5|5) Libro Giornale"
    MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,6@
  ITEM "6|6) Libri Sociali"
    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,7@
  ITEM "7|7) Libro Cespiti"
    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,9@|HIDE,10@|SHOW,8@
  ITEM "8|8) Libro Inventari"
    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,10@|SHOW,9@
  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@
END

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

STRING F_ATTIVITA 5
BEGIN
  PROMPT 1 9 "Codice attivita   "
  FIELD REG->S8
  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"
END

NUMBER F_CODULC 3
BEGIN
  PROMPT 35 9 "Unita' locale           "
  FLAGS "R"
  GROUP 2 3 4 5 6 7 10
  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 "Codice dell'unita' locale della ditta"
  WARNING "Unita' locale non prevista per questa ditta"
  CHECKTYPE NORMAL
END 
 
NUMBER F_PAGSTAMP 5
BEGIN
  PROMPT 1 11 "Pagine stampate   "
  HELP "Numero di pagine gia' stampate"
  FIELD I1
  FLAGS "R"
  GROUP 1
END

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

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

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

STRING F_CODLBU 3
BEGIN
  PROMPT 1 15 "Cod. libro unico  "
  HELP "Codice del libro unico a cui fa riferimento"
  GROUP 2 3 4
  FIELD S6
  USE %LBU
  INPUT CODTAB[1,4] F_ANNO SELECT
  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]
  ADD RUN ba3 -4
  CHECKTYPE NORMAL
  WARNING "Libro unico assente"
END 
 
ENDPAGE

PAGE "Registri pag.2" -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 B1
  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 B4
  GROUP 3
END

BOOLEAN F_CORRISP                         
BEGIN
  PROMPT 46 5 "Registro corrispettivi"
  HELP "Indicare se si tratta di registro dei corrispettivi"
  FIELD B0
  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 I3
  GROUP 5
  ITEM "1|Gruppo"
  ITEM "2|Conto"
END

NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
BEGIN
  PROMPT 1 5 "Ultima riga stampata "
  FIELD I6
  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 B5
  GROUP 2 3
END

LIST F_FREQUENZA_STAMPA 1 16
BEGIN
  PROMPT 1 7 "Stampa registro riepilogativo   "
  HELP "Intervallo per fare il riepilogo"
  FIELD S9
  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 R1
  PICTURE "."
  FLAGS "R"
  GROUP 6
END

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

BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
BEGIN
  PROMPT 46 7 "Stampa riepilogo liquidazione"
  FIELD B6
  GROUP 2 3
  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 R1
  FLAGS "R"
  PICTURE "."
  GROUP 5
END
		 
BOOLEAN F_STAMPA_LIQUIDAZIONE
BEGIN
  PROMPT 1 9 "Stampa liquidazione"
  FIELD B7
  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 R2           
  FLAGS "R"
  PICTURE "."
  GROUP 6
END

BOOLEAN F_STAMPA_COSTI_RICAVI
BEGIN
  PROMPT 42 9 "Stampa costi/ricavi su libro cronologico "
  FIELD B2
  GROUP 5
END
	     
BOOLEAN F_VENTIL
BEGIN
  PROMPT 46 9 "Attivita' con ventilazione"
  HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
  FIELD B3
  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 I4
  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 B8
  GROUP 6
END

NUMBER F_ULTIMO_NUM_PROT 7
BEGIN
  PROMPT 1 13 "Ultimo numero di protocollo     "
  FIELD I5
  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 D2
  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 D3
END

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

ENDPAGE

ENDMASK