root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modifiche alle tabella

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3537 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-09-06 16:22:55 +00:00
parent a1eb75d817
commit e5d57a12bf
5 changed files with 217 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ve/batbprs.h
View File

@ -6,7 +6,11 @@
#define F_CODDIV1 106 #define F_CODDIV1 106
#define F_PREZZO 107 #define F_PREZZO 107
#define F_UM 108 #define F_UM 108
#define F_GRUPPO 109 #define F_GRUPPOV 109
#define F_CONTO 110 #define F_CONTOV 110
#define F_SOTTO 111 #define F_SOTTOV 111
#define F_DESCRCONTO 112 #define F_DESCRCONTOV 112
#define F_GRUPPOA 113
#define F_CONTOA 114
#define F_SOTTOA 115
#define F_DESCRCONTOA 116

116
ve/batbprs.uml
View File

@ -15,7 +15,7 @@ END
STRING F_CODICE 8 STRING F_CODICE 8
BEGIN BEGIN
PROMPT 2 2 "Cod. tabella " PROMPT 2 2 "Cod. tabella "
FIELD SPP->CODTAB FIELD CODTAB
KEY 1 KEY 1
USE PRS USE PRS
FLAGS "U" FLAGS "U"
@ -31,14 +31,13 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
FIELD SPP->S0 FIELD S0
KEY 2 KEY 2
USE SPP KEY 2 USE PRS KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione@50 " S0 DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
OUTPUT F_CODICE CODTAB COPY OUTPUT F_CODICE
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -46,12 +45,12 @@ END
STRING F_CODASSFIS 4 STRING F_CODASSFIS 4
BEGIN BEGIN
PROMPT 2 7 "Codice IVA " PROMPT 2 7 "Codice IVA "
FIELD SPP->S3 FIELD S3
FLAGS "U" FLAGS "U"
USE %IVA USE %IVA
INPUT CODTAB F_CODASSFIS INPUT CODTAB F_CODASSFIS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "D2escrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODASSFIS CODTAB OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0 OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -66,7 +65,7 @@ END
STRING F_CODDIV 4 STRING F_CODDIV 4
BEGIN BEGIN
PROMPT 2 8 "Codice valuta " PROMPT 2 8 "Codice valuta "
FIELD SPP->S4 FIELD S4
FLAGS "U" FLAGS "U"
USE %VAL USE %VAL
INPUT CODTAB F_CODDIV INPUT CODTAB F_CODDIV
@ -86,7 +85,7 @@ END
NUMBER F_PREZZO 13 2 NUMBER F_PREZZO 13 2
BEGIN BEGIN
PROMPT 2 10 "Prezzo " PROMPT 2 10 "Prezzo "
FIELD SPP->R0 FIELD R0
END END
STRING F_UM 2 STRING F_UM 2
@ -102,52 +101,105 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_GRUPPO 3 NUMBER F_GRUPPOV 3
BEGIN BEGIN
PROMPT 2 12 "Codice conto " PROMPT 2 12 "Conto vendita "
FIELD SPP->I0 FIELD I0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CONTO 3 NUMBER F_CONTOV 3
BEGIN BEGIN
PROMPT 20 12 "" PROMPT 22 12 ""
FIELD SPP->I1 FIELD I1
USE LF_PCON USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTO INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN CG0 -0 ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END END
NUMBER F_SOTTO 6 NUMBER F_SOTTOV 6
BEGIN BEGIN
PROMPT 28 12 "" PROMPT 30 12 ""
FIELD SPP->I2 FIELD I2
USE LF_PCON USE LF_PCON
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPOV SELECT
INPUT CONTO F_CONTO INPUT CONTO F_CONTOV SELECT
INPUT SOTTOCONTO F_SOTTO INPUT SOTTOCONTO F_SOTTOV
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTO SOTTOCONTO OUTPUT F_SOTTOV SOTTOCONTO
OUTPUT F_DESCRCONTO DESCR OUTPUT F_DESCRCONTOV DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0 ADD RUN CG0 -0
END END
STRING F_DESCRCONTO 50 STRING F_DESCRCONTOV 50
BEGIN BEGIN
PROMPT 15 14 "" PROMPT 17 13 ""
FLAG "D"
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 14 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 14 ""
FIELD I4
USE LF_PCON SELECT INDBIL=="3"
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 14 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOA SELECT
INPUT CONTO F_CONTOA SELECT
INPUT SOTTOCONTO F_SOTTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOA SOTTOCONTO
OUTPUT F_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 15 ""
FLAG "D" FLAG "D"
END END

12
ve/batbspp.h
View File

@ -9,9 +9,13 @@
#define F_NCAMPOCAL 109 #define F_NCAMPOCAL 109
#define F_NCAMPOCAL1 110 #define F_NCAMPOCAL1 110
#define F_PERCENTUALE 111 #define F_PERCENTUALE 111
#define F_GRUPPO 112 #define F_GRUPPOV 112
#define F_CONTO 113 #define F_CONTOV 113
#define F_SOTTO 114 #define F_SOTTOV 114
#define F_DESCRCONTO 115 #define F_DESCRCONTOV 115
#define F_CAMPI 116 #define F_CAMPI 116
#define F_UM 117 #define F_UM 117
#define F_GRUPPOA 118
#define F_CONTOA 119
#define F_SOTTOA 120
#define F_DESCRCONTOA 121

140
ve/batbspp.uml
View File

@ -15,7 +15,7 @@ END
STRING F_CODICE 8 STRING F_CODICE 8
BEGIN BEGIN
PROMPT 2 2 "Cod. tabella " PROMPT 2 2 "Cod. tabella "
FIELD SPP->CODTAB FIELD CODTAB
KEY 1 KEY 1
USE SPP USE SPP
FLAGS "U" FLAGS "U"
@ -31,14 +31,13 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
FIELD SPP->S0 FIELD S0
KEY 2 KEY 2
USE SPP KEY 2 USE SPP KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione@50 " S0 DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
OUTPUT F_CODICE CODTAB COPY OUTPUT F_CODICE
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -46,12 +45,12 @@ END
STRING F_CODASSFIS 4 STRING F_CODASSFIS 4
BEGIN BEGIN
PROMPT 2 7 "Codice IVA " PROMPT 2 7 "Codice IVA "
FIELD SPP->S3 FIELD S3
FLAG "U" FLAG "U"
USE %IVA USE %IVA
INPUT CODTAB F_CODASSFIS INPUT CODTAB F_CODASSFIS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "D2escrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODASSFIS CODTAB OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0 OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -66,7 +65,7 @@ END
STRING F_CODDIV 4 STRING F_CODDIV 4
BEGIN BEGIN
PROMPT 2 8 "Codice valuta " PROMPT 2 8 "Codice valuta "
FIELD SPP->S4 FIELD S4
FLAG "U" FLAG "U"
USE %VAL USE %VAL
INPUT CODTAB F_CODDIV INPUT CODTAB F_CODDIV
@ -85,26 +84,28 @@ END
LISTBOX F_CAMPI 15 LISTBOX F_CAMPI 15
BEGIN BEGIN
PROMPT 2 10 "Campo da proporre " PROMPT 2 10 "Campo default "
FIELD SPP->S6 FIELD S6
ITEM "Q|Qta prezzo " ITEM "Q|Qta prezzo "
MESSAGE HIDE,F_PERCENTUALE|SHOW,F_PREZZO|SHOW,F_QTA|ENABLE,F_QTA|RESET,F_PERCENTUALE|RESET,F_QTA|SHOW,F_UM MESSAGE SHOW,1@|ENABLE,2@|RESET,2@|HIDE,3@|RESET,3@
ITEM "V|Valore " ITEM "V|Valore "
MESSAGE HIDE,F_PERCENTUALE|SHOW,F_PREZZO|SHOW,F_QTA|"1",F_QTA|DISABLE,F_QTA|RESET,F_PERCENTUALE|SHOW,F_UM MESSAGE SHOW,1@|"1",F_QTA|DISABLE,2@|HIDE,3@|RESET,3@
ITEM "P|Percentuale " ITEM "P|Percentuale "
MESSAGE HIDE,F_PREZZO|SHOW,F_PERCENTUALE|HIDE,F_QTA|RESET,F_PREZZO|RESET,F_QTA|HIDE,F_UM MESSAGE SHOW,3@|HIDE,1@|RESET,1@
END END
NUMBER F_PREZZO 13 2 NUMBER F_PREZZO 13 2
BEGIN BEGIN
PROMPT 2 11 "Prezzo " PROMPT 2 11 "Prezzo "
FIELD SPP->R0 FIELD R0
GROUP 1
END END
NUMBER F_QTA 13 2 NUMBER F_QTA 13 2
BEGIN BEGIN
PROMPT 35 11 "Quantita' " PROMPT 35 11 "Quantita' "
FIELD SPP->R1 FIELD R1
GROUP 1 2
END END
STRING F_UM 2 STRING F_UM 2
@ -118,18 +119,20 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB OUTPUT F_UM CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP 1
END END
NUMBER F_PERCENTUALE 5 2 NUMBER F_PERCENTUALE 5 2
BEGIN BEGIN
PROMPT 2 11 "Percentuale " PROMPT 2 11 "Percentuale "
FIELD SPP->R2 FIELD R2
GROUP 3
END END
STRING F_NCAMPOCAL 10 STRING F_NCAMPOCAL 10
BEGIN BEGIN
PROMPT 2 13 "Formula Doc. " PROMPT 2 12 "Formula Doc. "
FIELD SPP->S5 FIELD S5
FLAG "U" FLAG "U"
USE %FRD USE %FRD
INPUT CODTAB F_NCAMPOCAL INPUT CODTAB F_NCAMPOCAL
@ -138,60 +141,115 @@ BEGIN
OUTPUT F_NCAMPOCAL CODTAB OUTPUT F_NCAMPOCAL CODTAB
OUTPUT F_NCAMPOCAL1 S0 OUTPUT F_NCAMPOCAL1 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP 3
END END
STRING F_NCAMPOCAL1 50 STRING F_NCAMPOCAL1 50
BEGIN BEGIN
PROMPT 15 14 "" PROMPT 17 13 ""
FLAG "D" FLAG "D"
GROUP 3
END END
NUMBER F_GRUPPO 3 NUMBER F_GRUPPOV 3
BEGIN BEGIN
PROMPT 2 16 "Codice conto " PROMPT 2 15 "Conto vendita "
FIELD SPP->I0 FIELD I0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CONTO 3 NUMBER F_CONTOV 3
BEGIN BEGIN
PROMPT 20 16 "" PROMPT 22 15 ""
FIELD SPP->I1 FIELD I1
USE LF_PCON USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTO INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN CG0 -0 ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END END
NUMBER F_SOTTO 6 NUMBER F_SOTTOV 6
BEGIN BEGIN
PROMPT 28 16 "" PROMPT 30 15 ""
FIELD SPP->I2 FIELD I2
USE LF_PCON USE LF_PCON
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPOV SELECT
INPUT CONTO F_CONTO INPUT CONTO F_CONTOV SELECT
INPUT SOTTOCONTO F_SOTTO INPUT SOTTOCONTO F_SOTTOV
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTO SOTTOCONTO OUTPUT F_SOTTOV SOTTOCONTO
OUTPUT F_DESCRCONTO DESCR OUTPUT F_DESCRCONTOV DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0 ADD RUN CG0 -0
END END
STRING F_DESCRCONTO 50 STRING F_DESCRCONTOV 50
BEGIN BEGIN
PROMPT 15 17 "" PROMPT 17 16 ""
FLAG "D"
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 17 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 17 ""
FIELD I4
USE LF_PCON SELECT INDBIL=="3"
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 17 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOA SELECT
INPUT CONTO F_CONTOA SELECT
INPUT SOTTOCONTO F_SOTTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOA SOTTOCONTO
OUTPUT F_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 18 ""
FLAG "D" FLAG "D"
END END

12
ve/batbtri.uml
View File

@ -39,13 +39,15 @@ PAGE "Tipo di riga" -1 -1 60 14
KEY 2 KEY 2
END END
LIST F_TPR 12 LIST F_TPR 16
BEGIN BEGIN
PROMPT 2 8 "Tipo " PROMPT 2 8 "Tipo "
ITEMS "M|Merce" ITEMS "M|<M>erce"
ITEMS "S|Spese" ITEMS "S|<S>pese"
ITEMS "C|Sconti" ITEMS "P|<P>restazioni"
ITEMS "D|Descrizioni" ITEMS "C|S<c>onti"
ITEMS "O|<O>maggi"
ITEMS "D|<D>escrizioni"
FIELD S7 FIELD S7
END END