Corretti errori tabelle libro unico
git-svn-id: svn://10.65.10.50/trunk@984 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
e74b2efa88
commit
500260ae16
@ -48,9 +48,9 @@ BEGIN
|
|||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
SPREADSHEET F_FIELDS 44 7
|
SPREADSHEET F_FIELDS 0 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 15 4 ""
|
PROMPT 1 4 ""
|
||||||
ITEM "Nome@10"
|
ITEM "Nome@10"
|
||||||
ITEM "Tipo"
|
ITEM "Tipo"
|
||||||
ITEM "Lunghezza"
|
ITEM "Lunghezza"
|
||||||
|
|||||||
1
ba/ba2.h
1
ba/ba2.h
@ -4,6 +4,7 @@
|
|||||||
int ba2100(int argc, char* argv[]);
|
int ba2100(int argc, char* argv[]);
|
||||||
int ba2200(int argc, char* argv[]);
|
int ba2200(int argc, char* argv[]);
|
||||||
int ba2300(int argc, char* argv[]);
|
int ba2300(int argc, char* argv[]);
|
||||||
|
int ba2400(int argc, char* argv[]);
|
||||||
|
|
||||||
#endif // __BA2_H
|
#endif // __BA2_H
|
||||||
|
|
||||||
|
|||||||
@ -54,3 +54,9 @@ MENUBAR MENU_BAR(2)
|
|||||||
|
|
||||||
MENU MENU_BAR(2)
|
MENU MENU_BAR(2)
|
||||||
SUBMENU MENU_FILE "~File"
|
SUBMENU MENU_FILE "~File"
|
||||||
|
|
||||||
|
MENUBAR MENU_BAR(3)
|
||||||
|
|
||||||
|
MENU MENU_BAR(3)
|
||||||
|
SUBMENU MENU_FILE "~File"
|
||||||
|
|
||||||
|
|||||||
14
ba/ba2100.h
14
ba/ba2100.h
@ -24,6 +24,20 @@
|
|||||||
#define F_GROUP10 140
|
#define F_GROUP10 140
|
||||||
#define F_GROUP11 141
|
#define F_GROUP11 141
|
||||||
#define F_GROUP12 142
|
#define F_GROUP12 142
|
||||||
|
#define F_GROUP13 143
|
||||||
|
#define F_GROUP14 144
|
||||||
|
#define F_GROUP15 145
|
||||||
|
#define F_GROUP16 146
|
||||||
|
#define F_GROUP17 147
|
||||||
|
#define F_GROUP18 148
|
||||||
|
#define F_GROUP19 149
|
||||||
|
#define F_GROUP20 150
|
||||||
|
#define F_GROUP21 151
|
||||||
|
#define F_GROUP22 152
|
||||||
|
#define F_GROUP23 153
|
||||||
|
#define F_GROUP24 154
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#define F_ITEMS 200
|
#define F_ITEMS 200
|
||||||
#define F_DECIMALS 206
|
#define F_DECIMALS 206
|
||||||
|
|||||||
@ -117,7 +117,7 @@ BEGIN
|
|||||||
GROUP 7
|
GROUP 7
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX F_GROUP 78 3
|
GROUPBOX F_GROUP 78 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 9 "Gruppi di stampa"
|
PROMPT 1 9 "Gruppi di stampa"
|
||||||
GROUP 7
|
GROUP 7
|
||||||
@ -195,9 +195,81 @@ BEGIN
|
|||||||
GROUP 7
|
GROUP 7
|
||||||
END
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP13
|
||||||
|
BEGIN
|
||||||
|
PROMPT 4 11 "13"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP14
|
||||||
|
BEGIN
|
||||||
|
PROMPT 10 11 "14"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 16 11 "15"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP16
|
||||||
|
BEGIN
|
||||||
|
PROMPT 22 11 "16"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP17
|
||||||
|
BEGIN
|
||||||
|
PROMPT 28 11 "17"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP18
|
||||||
|
BEGIN
|
||||||
|
PROMPT 34 11 "18"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP19
|
||||||
|
BEGIN
|
||||||
|
PROMPT 40 11 "19"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP20
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 11 "20"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP21
|
||||||
|
BEGIN
|
||||||
|
PROMPT 52 11 "21"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP22
|
||||||
|
BEGIN
|
||||||
|
PROMPT 58 11 "22"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP23
|
||||||
|
BEGIN
|
||||||
|
PROMPT 64 11 "23"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_GROUP24
|
||||||
|
BEGIN
|
||||||
|
PROMPT 70 11 "24"
|
||||||
|
GROUP 7
|
||||||
|
END
|
||||||
|
|
||||||
SPREADSHEET F_ITEMS
|
SPREADSHEET F_ITEMS
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 12 "Spreadsheet"
|
PROMPT 0 13 "Spreadsheet"
|
||||||
ITEM "Codice@8"
|
ITEM "Codice@8"
|
||||||
ITEM "Testo@32"
|
ITEM "Testo@32"
|
||||||
ITEM "Messaggio@80"
|
ITEM "Messaggio@80"
|
||||||
|
|||||||
351
ba/batbinl.uml
351
ba/batbinl.uml
@ -1,174 +1,177 @@
|
|||||||
#include "batbinl.h"
|
#include "batbinl.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Anno esercizio "
|
PROMPT 1 1 "Anno esercizio "
|
||||||
FLAGS "AZ"
|
FLAGS "AZ"
|
||||||
FIELD CODTAB[1,4]
|
FIELD CODTAB[1,4]
|
||||||
USE %LBU
|
USE %LBU
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[5,7] F_CODLIB
|
INPUT CODTAB[5,7] F_CODLIB
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_CODLIB CODTAB[5,7]
|
OUTPUT F_CODLIB CODTAB[5,7]
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODLIB 3
|
STRING F_CODLIB 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 28 1 "Libro "
|
PROMPT 28 1 "Libro "
|
||||||
FLAGS "UZ"
|
FLAGS "UZ"
|
||||||
FIELD CODTAB[5,7]
|
FIELD CODTAB[5,7]
|
||||||
COPY ALL F_ANNO
|
COPY ALL F_ANNO
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_INDEX 7
|
NUMBER F_INDEX 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 1 "Num. registrazione "
|
PROMPT 42 1 "Num. registrazione "
|
||||||
FLAGS "Z"
|
FLAGS "Z"
|
||||||
FIELD CODTAB[8,14]
|
FIELD CODTAB[8,14]
|
||||||
USE %INL
|
USE %INL
|
||||||
COPY INPUT F_ANNO
|
COPY INPUT F_ANNO
|
||||||
INPUT CODTAB[8,14] F_INDEX
|
INPUT CODTAB[8,14] F_INDEX
|
||||||
COPY DISPLAY F_ANNO
|
COPY DISPLAY F_ANNO
|
||||||
DISPLAY "Indice@7" CODTAB[8,14]
|
DISPLAY "Indice@7" CODTAB[8,14]
|
||||||
COPY OUTPUT F_ANNO
|
COPY OUTPUT F_ANNO
|
||||||
OUTPUT F_INDEX CODTAB[8,14]
|
OUTPUT F_INDEX CODTAB[8,14]
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNOREG 4
|
NUMBER F_ANNOREG 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Anno registrazione "
|
PROMPT 1 2 "Anno registrazione "
|
||||||
FIELD I0
|
FIELD I0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_MESE 2 10
|
LIST F_MESE 2 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 2 "Mese registrazione "
|
PROMPT 42 2 "Mese registrazione "
|
||||||
FIELD I1
|
FIELD I1
|
||||||
FLAGS "M"
|
FLAGS "M"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PINI_LU 5 5
|
NUMBER F_PINI_LU 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 3 "Numero pagina iniziale registro unico "
|
PROMPT 1 3 "Numero pagina iniziale registro unico "
|
||||||
FIELD I2
|
FIELD I2
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
MESSAGE DIRTY,F_PFIN_LU
|
MESSAGE DIRTY,F_PFIN_LU
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PFIN_LU 5
|
NUMBER F_PFIN_LU 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Numero pagina finale registro unico "
|
PROMPT 1 4 "Numero pagina finale registro unico "
|
||||||
FIELD I3
|
FIELD I3
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
|
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Inserire un numero di pagina superiore a quella iniziale"
|
WARNING "Inserire un numero di pagina superiore a quella iniziale"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_DITTA 5
|
NUMBER F_DITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 6 "Codice ditta "
|
PROMPT 1 6 "Codice ditta "
|
||||||
FIELD I4
|
FIELD I4
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
USE LF_NDITTE
|
USE LF_NDITTE
|
||||||
INPUT CODDITTA F_DITTA
|
INPUT CODDITTA F_DITTA
|
||||||
DISPLAY "Codice ditta" CODDITTA
|
DISPLAY "Codice ditta" CODDITTA
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_DITTA CODDITTA
|
OUTPUT F_DITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REUIRED
|
||||||
WARNING "E' necessario specificare un codice ditta valido"
|
WARNING "E' necessario specificare un codice ditta valido"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Ragione sociale "
|
PROMPT 1 7 "Ragione sociale "
|
||||||
USE LF_NDITTE KEY 2
|
USE LF_NDITTE KEY 2
|
||||||
INPUT RAGSOC F_RAGSOC
|
INPUT RAGSOC F_RAGSOC
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice ditta" CODDITTA
|
DISPLAY "Codice ditta" CODDITTA
|
||||||
COPY OUTPUT F_DITTA
|
COPY OUTPUT F_DITTA
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODREG 3
|
STRING F_CODREG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 8 "Codice registro "
|
PROMPT 1 8 "Codice registro "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
USE REG
|
USE REG
|
||||||
FLAGS "UZ"
|
FLAGS "UZ"
|
||||||
INPUT CODTAB[1,4] F_ANNOREG
|
INPUT CODTAB[1,4] F_ANNOREG
|
||||||
INPUT CODTAB[5,7] F_CODREG
|
INPUT CODTAB[5,7] F_CODREG
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice" CODTAB[5,7]
|
DISPLAY "Codice" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_ANNOREG CODTAB[1,4]
|
OUTPUT F_ANNOREG CODTAB[1,4]
|
||||||
OUTPUT F_CODREG CODTAB[5,7]
|
OUTPUT F_CODREG CODTAB[5,7]
|
||||||
OUTPUT F_DESCREG S0
|
OUTPUT F_DESCREG S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE REQUIRED
|
||||||
END
|
VALIDATE NOT_EMPTY_CHECK_FIELD
|
||||||
|
END
|
||||||
STRING F_DESCREG 50 50
|
|
||||||
BEGIN
|
STRING F_DESCREG 50
|
||||||
PROMPT 1 9 "Descrizione "
|
BEGIN
|
||||||
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
PROMPT 1 9 "Descrizione "
|
||||||
INPUT S0 F_DESCREG
|
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
||||||
DISPLAY "Descrizione@50" S0
|
INPUT S0 F_DESCREG
|
||||||
DISPLAY "Codice registro" CODTAB[5,7]
|
DISPLAY "Descrizione@50" S0
|
||||||
COPY OUTPUT F_CODREG
|
DISPLAY "Codice registro" CODTAB[5,7]
|
||||||
CHECKTYPE NORMAL
|
COPY OUTPUT F_CODREG
|
||||||
END
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
NUMBER F_PINI_RU 5
|
|
||||||
BEGIN
|
NUMBER F_PINI_RU 5
|
||||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
BEGIN
|
||||||
FIELD I5
|
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||||
FLAGS "R"
|
FIELD I5
|
||||||
END
|
FLAGS "R"
|
||||||
|
END
|
||||||
NUMBER F_PFIN_RU 5
|
|
||||||
BEGIN
|
NUMBER F_PFIN_RU 5
|
||||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
BEGIN
|
||||||
FIELD I6
|
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||||
FLAGS "R"
|
FIELD I6
|
||||||
END
|
FLAGS "R"
|
||||||
|
END
|
||||||
STRING F_CODVID 3 3
|
|
||||||
BEGIN
|
STRING F_CODVID 3
|
||||||
PROMPT 1 14 "Codice vidimazione "
|
BEGIN
|
||||||
FIELD S1
|
PROMPT 1 14 "Codice vidimazione "
|
||||||
END
|
FIELD S1
|
||||||
|
END
|
||||||
BOOLEAN F_STAMPATO
|
|
||||||
BEGIN
|
BOOLEAN F_STAMPATO
|
||||||
PROMPT 1 16 "Stampato su bollato "
|
BEGIN
|
||||||
FIELD B0
|
PROMPT 1 16 "Stampato su bollato "
|
||||||
END
|
FIELD B0
|
||||||
|
END
|
||||||
BOOLEAN F_PANN_LU
|
|
||||||
BEGIN
|
BOOLEAN F_PANN_LU
|
||||||
PROMPT 36 16 "Pagine libro unico annullate"
|
BEGIN
|
||||||
FIELD B1
|
PROMPT 36 16 "Pagine libro unico annullate"
|
||||||
END
|
FIELD B1
|
||||||
|
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
|
||||||
ENDPAGE
|
MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG
|
||||||
|
END
|
||||||
ENDMASK
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
@ -49,10 +49,24 @@ BEGIN
|
|||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
KEY 2
|
KEY 2
|
||||||
END
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODTABLIB 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 3 3 "Codice libro "
|
||||||
|
FIELD I3
|
||||||
|
FLAGS "Z"
|
||||||
|
USE %ITL
|
||||||
|
INPUT CODTAB F_CODTABLIB
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_CODTABLIB CODTAB
|
||||||
|
OUTPUT F_DESCRLBU S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
LIST F_ULT_MESE_STAMP 2 12
|
LIST F_ULT_MESE_STAMP 2 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 3 "Ultimo mese stampa "
|
PROMPT 3 5 "Ultimo mese stampa "
|
||||||
FIELD I0
|
FIELD I0
|
||||||
ITEM " |Nessuno"
|
ITEM " |Nessuno"
|
||||||
FLAGS "M"
|
FLAGS "M"
|
||||||
@ -60,13 +74,13 @@ END
|
|||||||
|
|
||||||
NUMBER F_ULT_PAG 5
|
NUMBER F_ULT_PAG 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 55 3 "Ultima pagina "
|
PROMPT 55 5 "Ultima pagina "
|
||||||
FIELD I1
|
FIELD I1
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_TIPOA 10
|
LIST F_TIPOA 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 4 "Tipo persona "
|
PROMPT 3 6 "Tipo persona "
|
||||||
FIELD S2
|
FIELD S2
|
||||||
ITEM "F|Fisica"
|
ITEM "F|Fisica"
|
||||||
ITEM "G|Giuridica"
|
ITEM "G|Giuridica"
|
||||||
@ -74,7 +88,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_CODANAGR 5
|
NUMBER F_CODANAGR 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 55 4 "Codice "
|
PROMPT 55 6 "Codice "
|
||||||
FIELD I4
|
FIELD I4
|
||||||
USE LF_ANAG
|
USE LF_ANAG
|
||||||
INPUT TIPOA F_TIPOA SELECT
|
INPUT TIPOA F_TIPOA SELECT
|
||||||
@ -90,7 +104,7 @@ END
|
|||||||
|
|
||||||
STRING F_TIPOANAGR 50
|
STRING F_TIPOANAGR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 5 "Tipo anagrafico "
|
PROMPT 3 7 "Tipo anagrafico "
|
||||||
USE LF_ANAG KEY 2
|
USE LF_ANAG KEY 2
|
||||||
INPUT TIPOA F_TIPOA SELECT
|
INPUT TIPOA F_TIPOA SELECT
|
||||||
INPUT RAGSOC F_TIPOANAGR
|
INPUT RAGSOC F_TIPOANAGR
|
||||||
@ -101,31 +115,6 @@ BEGIN
|
|||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODTABLIB 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 3 6 "Codice libro "
|
|
||||||
FIELD I3
|
|
||||||
FLAGS "Z"
|
|
||||||
USE %ITL
|
|
||||||
INPUT CODTAB F_CODTABLIB
|
|
||||||
DISPLAY "Codice" CODTAB
|
|
||||||
DISPLAY "Descrizione@50" S0
|
|
||||||
OUTPUT F_CODTABLIB CODTAB
|
|
||||||
OUTPUT F_DESCR S0
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_DESCR 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 3 7 "Descrizione "
|
|
||||||
USE %ITL KEY 2
|
|
||||||
INPUT S0 F_DESCR
|
|
||||||
DISPLAY "Descrizione@50" S0
|
|
||||||
DISPLAY "Codice" CODTAB
|
|
||||||
COPY OUTPUT F_CODTABLIB
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_CONSPRESSO 40
|
STRING F_CONSPRESSO 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 8 "Conservato presso "
|
PROMPT 3 8 "Conservato presso "
|
||||||
@ -164,7 +153,7 @@ END
|
|||||||
|
|
||||||
BOOLEAN F_STAMPAINDCOMP
|
BOOLEAN F_STAMPAINDCOMP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 14 "Stampa l' indirizzo completo della ditta"
|
PROMPT 3 14 "Stampa l'indirizzo completo della ditta"
|
||||||
FIELD B1
|
FIELD B1
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|||||||
@ -225,6 +225,7 @@ BEGIN
|
|||||||
OUTPUT F_ANNO CODTAB[1,4]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_CODLBU CODTAB[5,7]
|
OUTPUT F_CODLBU CODTAB[5,7]
|
||||||
WARNING "Libro unico assente"
|
WARNING "Libro unico assente"
|
||||||
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user