#include "ba3300.h"

TOOLBAR "TOOLBAR" 0 19 0 3

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 "~Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

ENDPAGE

PAGE "Stampa fogli libri bollati" -1 -1 78 20

GROUPBOX DLG_NULL 77 9
BEGIN
   PROMPT 1 1 "Dati intestatario libro bollato"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 2 "Codice     "
  HELP "Codice della ditta da selezionare"
  FLAGS "R"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice@10" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  WARNING "Ditta assente"
  MESSAGE ENABLE,3@
  MESSAGE EMPTY DISABLE,3@
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 3 "Rag. Soc.  "
  USE LF_NDITTE KEY 2
  HELP "Ragione sociale dell'intestatario del libro bollato"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@10" CODDITTA
  COPY OUTPUT F_CODDITTA
  CHECKTYPE SEARCH
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Inserire la ragione sociale"
END

STRING F_INDIRIZZO 35
BEGIN
  PROMPT 2 4 "Indirizzo  "
  HELP "Indirizzo dell'intestatario"
END

STRING F_CIV 10
BEGIN
  PROMPT 50 4 "N.ro "
  HELP "Numero civico dell'intestatario"
END 

STRING F_CAP 5
BEGIN
  PROMPT 2 5 "CAP        "
  HELP "CAP dell'intestatario"
END 

STRING F_CODCOM 4
BEGIN
  PROMPT 21 5 "Comune "
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM F_CODCOM
#include <comdcod.h>
  OUTPUT F_CODCOM COM
  OUTPUT F_COM DENCOM
  OUTPUT F_PROV PROVCOM
  OUTPUT F_CAP CAPCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  HELP "Codice del comune dell'intestatario"
END

STRING F_COM 50 28
BEGIN
  PROMPT 35 5 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_COM
#include <comdden.h>
  COPY OUTPUT F_CODCOM
  CHECKTYPE NORMAL
  HELP "Denominazione comune dell'intestatario"
END

STRING F_PROV 5
BEGIN
  PROMPT 66 5 "Prov."
  HELP "Provincia dell'intestatario"
END
                       
LIST F_STATO 20
BEGIN
  PROMPT 2 6 "Stato      "
  HELP "Codice dello stato cui si riferisce la partita IVA"
  ITEM "  |Italia o extra CEE"
  ITEM "BE|Belgio"
  ITEM "DE|Germania"
  ITEM "DK|Danimarca"
  ITEM "EL|Grecia"
  ITEM "ES|Spagna"
  ITEM "FR|Francia"
  ITEM "GB|Gran Bretagna"
  ITEM "IE|Irlanda"
  ITEM "IT|Italia"
  ITEM "LU|Lussemburgo"
  ITEM "NL|Olanda"
  ITEM "PT|Portogallo"
END

STRING F_PAIV 12
BEGIN
  PROMPT 2 7 "Part. IVA  "
  HELP "Partita IVA dell'intestatario"
  VALIDATE PI_FUNC F_STATO
END

STRING F_COFI 16
BEGIN
  PROMPT 2 8 "Cod. fisc. "
  FLAGS "U"
  HELP "Codice fiscale dell'intestatario"
  VALIDATE CF_FUNC F_STATO
  WARNING "Codice fiscale errato"
END

GROUPBOX DLG_NULL 77 7
BEGIN
   PROMPT 1 10 "Dati registro"
END

LIST F_TIPOREG 1 25
BEGIN
  PROMPT 2 11 "Tipo        "
  HELP "Tipo registro da stampare"
  ITEM "1|Vendite"
  MESSAGE HIDE,2@|SHOW,1@
  ITEM "2|Acquisti"
  MESSAGE HIDE,2@|SHOW,1@
  ITEM "3|Libro IVA riepilogativo"
  MESSAGE HIDE,2@|SHOW,1@
  // ITEM "4|Libro incassi e pagamenti"
  ITEM "5|Libro giornale"
  MESSAGE HIDE,2@|SHOW,1@
  ITEM "6|Libri sociali"
  MESSAGE HIDE,2@|SHOW,1@
  ITEM "7|Libro cespiti"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "8|Libro inventari"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "9|Libro procedure"
  MESSAGE HIDE,2@|SHOW,1@
  GROUP 3
END

LIST F_TIPOREGCOM 1 25
BEGIN
  PROMPT 2 11 "Tipo        "
  FLAGS "H"
  HELP "Tipo registro da stampare"
  ITEM "1|Vendite"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "2|Acquisti"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "3|Libro IVA riepilogativo"
  MESSAGE HIDE,1@|SHOW,2@
  // ITEM "4|Libro incassi e pagamenti"
  ITEM "5|Libro giornale"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "6|Libri sociali"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "7|Libro cespiti"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "8|Libro inventari"
  MESSAGE HIDE,1@|SHOW,2@
  ITEM "9|Libro procedure"
  MESSAGE HIDE,1@|SHOW,2@
  GROUP 4
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 12 "Anno rifer. "
  HELP "Anno a cui si riferisce il bollato"
  USE REG SELECT I0=#F_TIPOREG
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_CODICE
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Cod. reg." CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" I0
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_CODICE CODTAB[5,7]
  OUTPUT F_REGISTRO S0
  FLAGS "Z"
  CHECKTYPE SEARCH
  GROUP 1 3
END

STRING F_CODICE 3
BEGIN
  PROMPT 21 12 "Codice "
  HELP "Codice del registro da numerare"
  FLAGS "UZ"
  //COPY ALL F_ANNO
  USE REG SELECT I0=#F_TIPOREG
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_CODICE
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Cod. reg." CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" I0
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_CODICE CODTAB[5,7]
  OUTPUT F_REGISTRO S0
  CHECKTYPE NORMAL
  WARNING "Registro assente"
  GROUP 1 3
END

NUMBER F_ANNOREG 4
BEGIN
  PROMPT 2 12 "Anno rifer. "
  HELP "Anno a cui si riferisce il bollato"
  USE LF_TABREG SELECT TIPO=#F_TIPOREG
  INPUT CODDITTA F_CODDITTA
  INPUT ANNO F_ANNOREG
  INPUT CODREG F_CODICEREG
  DISPLAY "Anno " ANNO
  DISPLAY "Cod. reg." CODREG
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ANNOREG ANNO
  OUTPUT F_CODICEREG CODREG
  OUTPUT F_REGISTRO DESCR
  FLAGS "ZH"
  CHECKTYPE SEARCH
  GROUP 2 4
END


STRING F_CODICEREG 3
BEGIN
  PROMPT 21 12 "Codice "
  HELP "Codice del registro da numerare"
  FLAGS "UZH"
  //COPY ALL F_ANNOREG
  USE LF_TABREG SELECT TIPO=#F_TIPOREG
  INPUT CODDITTA F_CODDITTA
  INPUT ANNO F_ANNOREG
  INPUT CODREG F_CODICEREG
  DISPLAY "Anno " ANNO
  DISPLAY "Cod. reg." CODREG
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ANNOREG ANNO
  OUTPUT F_CODICEREG CODREG
  OUTPUT F_REGISTRO DESCR
  CHECKTYPE NORMAL
  WARNING "Registro assente"
  GROUP 2 4
END

STRING F_REGISTRO 50
BEGIN
  PROMPT 2 13 "Descrizione "
  HELP "Descrizione del registro da numerare"
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Inserire la descrizione del registro"
END

NUMBER F_NPAGINI 6
BEGIN
  PROMPT 2 14 "Numero pagina iniziale "
  HELP "Numero della prima pagina da numerare"
  FLAGS "R"
  NUM_EXPR {#THIS_FIELD >= 0}
  WARNING "Numero pagina iniziale errato: non puo' essere negativo"
END

NUMBER F_NPAGFI 6
BEGIN
  PROMPT 42 14 "Numero pagina finale "
  HELP "Numero dell'ultima pagina da numerare"
  FLAGS "R"
  NUM_EXPR {#THIS_FIELD>=(#F_NPAGINI+2)}
  WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale + 2"
END

BOOLEAN F_PRIMO
BEGIN
  PROMPT 2 15 "Inizio numerazione dopo primo foglio "
  HELP "Indicare se iniziare la numerazione nel secondo foglio"
END

NUMBER F_ANNOSTAMPA 4
BEGIN
   PROMPT 42 15 "Anno per numerazione pagina "
   HELP "Indicare l'anno se si vuole la numerazione pagine con indicazione anno"
END

ENDPAGE

ENDMASK