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_PREZZO 107
#define F_UM 108
#define F_GRUPPO 109
#define F_CONTO 110
#define F_SOTTO 111
#define F_DESCRCONTO 112
#define F_GRUPPOV 109
#define F_CONTOV 110
#define F_SOTTOV 111
#define F_DESCRCONTOV 112
#define F_GRUPPOA 113
#define F_CONTOA 114
#define F_SOTTOA 115
#define F_DESCRCONTOA 116

126
ve/batbprs.uml
View File

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

12
ve/batbspp.h
View File

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

152
ve/batbspp.uml
View File

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

12
ve/batbtri.uml
View File

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