campo-sirio/ba/batbreg.uml

#include "ba3100.h"
#include "batbreg.h"
//
// I campi della tabella usate in più registri con significati diversi
// sono gestiti con messaggi a gruppi (GRP_NOxx e GRP_SOLOxxx ...)
// che azzerano i campi duplicati, impedendono il salvataggio su archivio
//
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 "GAZ"
  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]
  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_CODICE CODTAB[5,7]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_DESCR S0
//  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 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_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 S7
  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 I0
  FLAGS "G"
  GROUP 1 GR_MODIFY_PROTECTED
  ITEM "1|1) Vendite"
    MESSAGE HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_VENDITE@
    MESSAGE "",GRP_SOLOGIORNMAG@
  ITEM "2|2) Acquisti"
    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_ACQUISTI@
    MESSAGE "",GRP_SOLOGIORNMAG@
  ITEM "3|3) Libro IVA riepilogativo"
    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_RIEPIVA@
    MESSAGE "",GRP_SOLOGIORNMAG@
//    ITEM "4|4) Libro Incassi e pagamenti"
//    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INCASSI@
  ITEM "5|5) Libro Giornale"
    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_GIORNALE@
    MESSAGE "",GRP_SOLOGIORNMAG@|"",F_ATTIVITA
  ITEM "6|6) Libri Sociali"
    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_LSOCIALI@
    MESSAGE "",GRP_SOLOGIORNMAG@|"",F_ATTIVITA
//  ITEM "7|7) Libro Cespiti"
//    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_CESPITI@|"",F_ATTIVITA
//  ITEM "8|8) Libro Inventari"
//    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INVENTARI@|"",F_ATTIVITA
  ITEM "9|9) Giornale di magazzino"
    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|SHOW,GRP_GIORNMAG@
    MESSAGE "",GRP_NOGIORNMAG@|"",F_ATTIVITA
END

STRING F_CONSPRESSO 50
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 S8
  FLAGS "URZ"
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
  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_CODULC 3
BEGIN
  PROMPT 35 9 "Unita' locale           "
  FLAGS "R"
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA  GRP_INCASSI  GRP_GIORNALE  GRP_LSOCIALI GRP_GIORNMAG
  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
  ADD RUN ba4 -3
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  "
  FIELD S6
  HELP "Codice del libro unico a cui fa riferimento"
  FLAGS "UZ"
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
  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 B1
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
  HELP "Indicare se il registro e' in sospensione d'imposta"
  MESSAGE TRUE ENABLE,F_REGSOSPEXT
  MESSAGE FALSE CLEAR,F_REGSOSPEXT
END

LIST F_REGSOSPEXT 15
BEGIN
  PROMPT 29 5 ""
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
  FLAGS "D"
  FIELD I9
  ITEM "1|Normale"
  ITEM "2|Volume d'affari"
  ITEM "3|Liquidazione"
END

BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
BEGIN
  PROMPT 48 5 "Stampa credito anno precedente"
  HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente"
  FIELD B4
  GROUP GRP_ACQUISTI GRP_NOGIORNMAG
END

BOOLEAN F_CORRISP
BEGIN
  PROMPT 48 5 "Registro corrispettivi"
  HELP "Indicare se si tratta di registro dei corrispettivi"
  FIELD B0
  GROUP GRP_VENDITE
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 GRP_INCASSI GRP_NOGIORNMAG
  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 GRP_INCASSI GRP_GIORNALE   GRP_NOGIORNMAG
END

BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
BEGIN
  PROMPT 1 7 "Stampa indirizzi completi"
  HELP "Indicare se stampare gli indirizzi completi"
  FIELD B5
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
END

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

CURRENCY F_PROG_DARE 18
BEGIN
  PROMPT 1 7 "Progressivo dare     "
  HELP "Progressivo dare del giornale"
  FIELD R1
  GROUP GRP_GIORNALE GRP_SOLOGIORNALE
END

CURRENCY F_TOT_INCASSI 18
BEGIN
  PROMPT 1 7 "Totale incassi "
  HELP "Progressivo degli incassi effettuati"
  FIELD R0
  GROUP GRP_INCASSI
END

BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
BEGIN
  PROMPT 48 7 "Stampa riepilogo liquidazione"
  FIELD B6
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
  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

CURRENCY F_TOT_PAGAMENTI 18
BEGIN
  PROMPT 42 7 "Totale pagamenti "
  HELP "Progressivo dei pagamenti effettuati"
  FIELD R1
  GROUP GRP_INCASSI GRP_NOGIORNALE
END

BOOLEAN F_STAMPA_LIQUIDAZIONE
BEGIN
  PROMPT 1 9 "Stampa liquidazione"
  FIELD B7
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
  HELP "Indicare se stampare a fine periodo la liquidazione"
END

BOOLEAN F_STAMPA_PLAFONDS
BEGIN
  PROMPT 48 9 "Stampa plafonds "
  FIELD S10
  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
END

CURRENCY F_PROG_AVERE 18
BEGIN
  PROMPT 1 9 "Progressivo avere    "
  HELP "Progressivo avere del giornale"
  FIELD R2
  PICTURE "."
  GROUP GRP_GIORNALE GRP_SOLOGIORNALE
END

BOOLEAN F_STAMPA_COSTI_RICAVI
BEGIN
  PROMPT 42 9 "Stampa costi/ricavi su libro cronologico "
  FIELD B2
  GROUP GRP_INCASSI GRP_NOGIORNMAG
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 GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
END

BOOLEAN F_VENTIL
BEGIN
  PROMPT 48 11 "Attivita' con ventilazione"
  HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
  FIELD B3
  GROUP GRP_ACQUISTI  GRP_NOGIORNMAG
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 GRP_GIORNALE
END

NUMBER F_ULTIMO_NUM_PROT 7
BEGIN
  PROMPT 1 13 "Ultimo numero di protocollo     "
  FIELD I5
  FLAGS "R"
  GROUP GRP_VENDITE GRP_ACQUISTI
  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 GRP_VENDITE GRP_ACQUISTI GRP_INCASSI  GRP_GIORNALE
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

NUMBER F_FREQSTA 2
BEGIN
  FLAGS "U"
  PROMPT 2 6 "Frequenza di stampa "
  FIELD I3
  NUM_EXPR #F_FREQ<=31
  WARNING "La frequenza di stampa può arrivare fino a 31 giorni"
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END

BOOLEAN F_STARAGG
BEGIN
  PROMPT 2 7 "Stampa giornale raggruppato"
  FIELD B1
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END

BOOLEAN F_STARAGGMAG
BEGIN
  PROMPT 2 8 "Raggruppo i magazzini"
  FIELD B2
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END

BOOLEAN F_STACLAFIS
BEGIN
  PROMPT 2 9 "Raggruppo per classe fiscale articoli "
  FIELD B3
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END


BOOLEAN F_STAFISART
BEGIN
  PROMPT 2 10 "Raggruppo per gruppo fiscale articoli "
  FIELD B4
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END

BOOLEAN F_STAFISCAU
BEGIN
  PROMPT 2 11 "Raggruppo per gruppo causali  "
  FIELD B5
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END


NUMBER F_PAGULTPREC 3
BEGIN
  PROMPT 2 12 "Pagina e ultima stampa esercizio precedente  "
  FIELD I6
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END

DATE F_ULTPREC
BEGIN
  PROMPT 2 13 "Data ultima stampa esercizio precedente      "
  FIELD D4
  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
END

ENDPAGE

ENDMASK