187 lines
3.5 KiB
Plaintext
Executable File
187 lines
3.5 KiB
Plaintext
Executable File
#include "ba3300.h"
|
|
|
|
PAGE "Stampa fogli libro bollato" -1 -1 76 20
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 3 3 "Anno Riferimento "
|
|
HELP "Anno a cui si riferisce il bollato"
|
|
USE REG
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
INPUT CODTAB[5,7] F_CODICE
|
|
DISPLAY "Anno " CODTAB[1,4]
|
|
DISPLAY "Codice Registro" 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"
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 2 "Ditta "
|
|
FLAGS "DFR"
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_CODICE 3
|
|
BEGIN
|
|
PROMPT 3 4 "Codice Registro "
|
|
HELP "Codice del registro da numerare"
|
|
FLAGS "UZ"
|
|
COPY ALL F_ANNO
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
WARNING "Registro assente"
|
|
END
|
|
|
|
STRING F_REGISTRO 50
|
|
BEGIN
|
|
PROMPT 3 6 "Registro "
|
|
HELP "Descrizione del registro da numerare"
|
|
USE REG KEY 2
|
|
INPUT S0 F_REGISTRO
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Anno " CODTAB[1,4]
|
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
|
DISPLAY "Tipo" I0
|
|
COPY OUTPUT F_CODICE
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Registro assente"
|
|
END
|
|
|
|
STRING F_RAGSOC 60 50
|
|
BEGIN
|
|
PROMPT 3 7 "Ragione sociale "
|
|
HELP "Ragione sociale dell'intestatario del registro"
|
|
END
|
|
|
|
STRING F_INDIRIZZO 35
|
|
BEGIN
|
|
PROMPT 3 8 "Indirizzo "
|
|
HELP "Indirizzo dell'intestatario del registro"
|
|
END
|
|
|
|
STRING F_CIV 10
|
|
BEGIN
|
|
PROMPT 51 8 "N.civico "
|
|
HELP "Numero civico dell'intestatario del registro"
|
|
END
|
|
|
|
STRING F_CAP 5
|
|
BEGIN
|
|
PROMPT 3 9 "CAP "
|
|
HELP "CAP del comune dell'intestatario del registro"
|
|
END
|
|
|
|
STRING F_CODCOM 4
|
|
BEGIN
|
|
PROMPT 15 9 "Comune "
|
|
HELP "Codice del comune dell'intestatario del registro"
|
|
END
|
|
|
|
STRING F_COM 28
|
|
BEGIN
|
|
PROMPT 29 9 ""
|
|
HELP "Nome del comune dell'intestatario del registro"
|
|
END
|
|
|
|
STRING F_PROV 5
|
|
BEGIN
|
|
PROMPT 60 9 "Prov."
|
|
HELP "Provincia dell'intestatario del registro"
|
|
END
|
|
|
|
LIST F_STATO 18
|
|
BEGIN
|
|
PROMPT 3 10 "Stato "
|
|
FIELD LF_ANAG->STATOPAIV
|
|
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_COFI 16
|
|
BEGIN
|
|
PROMPT 3 11 "Codice fiscale "
|
|
HELP "Codice fiscale dell'intestatario del registro"
|
|
VALIDATE CF_FUNC F_STATO
|
|
WARNING "Codice fiscale errato"
|
|
END
|
|
|
|
STRING F_PAIV 12
|
|
BEGIN
|
|
PROMPT 44 11 "Partita I.V.A "
|
|
HELP "Partita IVA dell'intestatario del registro"
|
|
VALIDATE PI_FUNC F_STATO
|
|
WARNING "Partita IVA errata"
|
|
END
|
|
|
|
NUMBER F_NPAGINI 6
|
|
BEGIN
|
|
PROMPT 3 12 "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 3 13 "Numero pagina finale "
|
|
HELP "Numero dell'ultima pagina da numerare"
|
|
FLAGS "R"
|
|
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
|
|
WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
|
|
END
|
|
|
|
BOOLEAN F_PRIMO
|
|
BEGIN
|
|
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
|
|
HELP "Indicare se iniziare la numerazione nel secondo foglio"
|
|
END
|
|
|
|
LIST F_TIPOST 7
|
|
BEGIN
|
|
PROMPT 3 15 "Tipo di stampa "
|
|
HELP "Larghezza del foglio"
|
|
ITEM "0|132"
|
|
ITEM "1|132 c."
|
|
ITEM "2|198"
|
|
END
|
|
|
|
NUMBER F_LUNG 2
|
|
BEGIN
|
|
PROMPT 3 16 "Numero di righe "
|
|
HELP "Lunghezza del foglio"
|
|
FLAGS "R"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|