5004d5b41b
Files correlati : Ricompilazione Demo : [ ] Commento : 0000830: schermate da allineare Descrizione i bottoni sono ancora vecchio stile, in fondo alla videate in: ricerca soci, stampe anagrafiche, stampa codici iva, stampa codici attività, tutte le stampe tabelle ministeriali,visualizzazione liquidazione richiesta parametri. git-svn-id: svn://10.65.10.50/trunk@17596 c028cbd2-c16b-5b4b-a496-9718f37d4682
302 lines
6.2 KiB
Plaintext
Executable File
302 lines
6.2 KiB
Plaintext
Executable File
#include "ba3300.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa fogli libri bollati" 0 0 0 2
|
|
|
|
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
|
|
|
|
STRING F_STATO 2
|
|
BEGIN
|
|
PROMPT 2 6 "Stato "
|
|
HELP "Codice dello stato cui si riferisce la partita IVA"
|
|
FLAGS "U"
|
|
USE %SCE
|
|
INPUT CODTAB F_STATO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_STATO CODTAB
|
|
CHECKTYPE NORMAL
|
|
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
|