From e5d57a12bf27e11c29cba44d7cfabb405d622d6a Mon Sep 17 00:00:00 2001 From: alex Date: Fri, 6 Sep 1996 16:22:55 +0000 Subject: [PATCH] Modifiche alle tabella git-svn-id: svn://10.65.10.50/trunk@3537 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/batbprs.h | 12 ++-- ve/batbprs.uml | 126 ++++++++++++++++++++++++++++------------ ve/batbspp.h | 12 ++-- ve/batbspp.uml | 152 ++++++++++++++++++++++++++++++++++--------------- ve/batbtri.uml | 12 ++-- 5 files changed, 217 insertions(+), 97 deletions(-) diff --git a/ve/batbprs.h b/ve/batbprs.h index 364c877e0..2453dcd1a 100755 --- a/ve/batbprs.h +++ b/ve/batbprs.h @@ -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 diff --git a/ve/batbprs.uml b/ve/batbprs.uml index 44c5832ee..d5f61327d 100755 --- a/ve/batbprs.uml +++ b/ve/batbprs.uml @@ -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 diff --git a/ve/batbspp.h b/ve/batbspp.h index 185969aa1..b0e414650 100755 --- a/ve/batbspp.h +++ b/ve/batbspp.h @@ -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 diff --git a/ve/batbspp.uml b/ve/batbspp.uml index e428f262c..efb2d164c 100755 --- a/ve/batbspp.uml +++ b/ve/batbspp.uml @@ -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 diff --git a/ve/batbtri.uml b/ve/batbtri.uml index 7512dd54a..1e89805cd 100755 --- a/ve/batbtri.uml +++ b/ve/batbtri.uml @@ -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|erce" + ITEMS "S|pese" + ITEMS "P|

restazioni" + ITEMS "C|Sonti" + ITEMS "O|maggi" + ITEMS "D|escrizioni" FIELD S7 END