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

modifiche alle tabelle di Pg

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3610 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-09-17 16:16:26 +00:00
parent 40137908ec
commit d1870008ba
13 changed files with 302 additions and 140 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ve/batbgmc.h
View File

@ -2,18 +2,16 @@
#define F_DESGRU 102 #define F_DESGRU 102
#define F_CODSGR 103 #define F_CODSGR 103
#define F_DESSGR 104 #define F_DESSGR 104
#define F_CODAGGDOC 105 #define H_CODGRU 105
#define F_CODAGGOMA 106 #define H_DESGRU 106
#define F_CODAGGSCO 107 #define F_CODIVARIF 107
#define H_CODGRU 108 #define F_CODIVARIF1 108
#define H_DESGRU 109 #define F_GRUPPOA 109
#define F_CODIVARIF 110 #define F_CONTOA 110
#define F_GRUPPOA 111 #define F_SOTTOCA 111
#define F_CONTOA 112 #define F_DESCRA 112
#define F_SOTTOCA 113 #define F_GRUPPOV 113
#define F_DESCRA 114 #define F_CONTOV 114
#define F_GRUPPOV 115 #define F_SOTTOCV 115
#define F_CONTOV 116 #define F_DESCRV 116
#define F_SOTTOCV 117
#define F_DESCRV 118

167
ve/batbgmc.uml
View File

@ -100,97 +100,60 @@ BEGIN
WARNING "Manca la descrizione del gruppo" WARNING "Manca la descrizione del gruppo"
END END
STRING F_CODAGGDOC 2
BEGIN
PROMPT 2 8 "Codice aggiornamento documenti "
FIELD S4
END
STRING F_CODAGGOMA 2
BEGIN
PROMPT 2 9 "Codice aggiornamento omaggi "
FIELD S5
END
STRING F_CODAGGSCO 2
BEGIN
PROMPT 2 10 "Codice aggiornamento sconti "
FIELD S6
END
STRING F_CODIVARIF 4 STRING F_CODIVARIF 4
BEGIN BEGIN
PROMPT 2 11 "Codice iva di riferimento " PROMPT 2 8 "Codice IVA "
FIELD S7 FIELD S7
USE %IVA USE %IVA
INPUT CODTAB F_CODIVARIF INPUT CODTAB F_CODIVARIF
DISPLAY "Codice IVA" CODTAB DISPLAY "Codice IVA" CODTAB
DISPLAY "Aliquota" R0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODIVARIF CODTAB OUTPUT F_CODIVARIF CODTAB
OUTPUT F_CODIVARIF1 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_GRUPPOA 3 STRING F_CODIVARIF1 50
BEGIN BEGIN
PROMPT 2 13 "Conto d'acquisto " PROMPT 25 8 ""
FIELD I0 USE %IVA KEY 2
END INPUT S0 F_CODIVARIF1
DISPLAY "Descrizione@50" S0
NUMBER F_CONTOA 3 DISPLAY "Codice " CODTAB
BEGIN OUTPUT F_CODIVARIF CODTAB
PROMPT 24 13 "" OUTPUT F_CODIVARIF1 S0
FIELD I1 CHECKTYPE NORMAL
END
NUMBER F_SOTTOCA 6
BEGIN
PROMPT 29 13 ""
FIELD I2
USE LF_PCON
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOCA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOCA SOTTOCONTO
OUTPUT F_DESCRA DESCR
CHECKTYPE NORMAL
END
STRING F_DESCRA 50
BEGIN
PROMPT 19 14 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCA
END END
NUMBER F_GRUPPOV 3 NUMBER F_GRUPPOV 3
BEGIN BEGIN
PROMPT 2 15 "Conto di vendita " PROMPT 2 10 "Conto vendita "
FIELD I3 FIELD I3
END END
NUMBER F_CONTOV 3 NUMBER F_CONTOV 3
BEGIN BEGIN
PROMPT 24 15 "" PROMPT 22 10 ""
FIELD I4 FIELD I4
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_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END END
NUMBER F_SOTTOCV 6 NUMBER F_SOTTOCV 6
BEGIN BEGIN
PROMPT 29 15 "" PROMPT 30 10 ""
FIELD I5 FIELD I5
USE LF_PCON USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV INPUT SOTTOCONTO F_SOTTOCV
@ -203,19 +166,87 @@ BEGIN
OUTPUT F_SOTTOCV SOTTOCONTO OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END END
STRING F_DESCRV 50 STRING F_DESCRV 50
BEGIN BEGIN
PROMPT 19 16 "" PROMPT 17 11 ""
FLAG "U" FLAG "U"
USE LF_PCON KEY 2 USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRV INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV COPY OUTPUT F_SOTTOCV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 13 "Conto acquisti "
FIELD I0
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 13 ""
FIELD I1
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_SOTTOCA 6
BEGIN
PROMPT 30 13 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOCA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOCA SOTTOCONTO
OUTPUT F_DESCRA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRA 50
BEGIN
PROMPT 17 14 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END END
ENDPAGE ENDPAGE

87
ve/batbnum.uml
View File

@ -79,7 +79,7 @@ ENDPAGE
PAGE "Tipi documento validi" -1 -1 60 14 PAGE "Tipi documento validi" -1 -1 60 14
GROUPBOX DLG_NULL 64 15 GROUPBOX DLG_NULL 70 15
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
// FLAG "R" // FLAG "R"
@ -105,11 +105,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESDOC1 40 STRING F_DESDOC1 50
BEGIN BEGIN
PROMPT 12 4 "" PROMPT 12 4 ""
FLAG "D" USE %TIP KEY 2
END INPUT S0 F_DESDOC1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_TIPODOC1 CODTAB
OUTPUT F_DESDOC1 S0
HELP "Tipo di documento 1"
CHECKTYPE NORMAL
END
STRING F_TIPODOC2 4 STRING F_TIPODOC2 4
BEGIN BEGIN
@ -126,11 +133,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESDOC2 40 STRING F_DESDOC2 50
BEGIN BEGIN
PROMPT 12 6 "" PROMPT 12 6 ""
FLAG "D" USE %TIP KEY 2
END INPUT S0 F_DESDOC2
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_TIPODOC2 CODTAB
OUTPUT F_DESDOC2 S0
HELP "Tipo di documento 2"
CHECKTYPE NORMAL
END
STRING F_TIPODOC3 4 STRING F_TIPODOC3 4
BEGIN BEGIN
@ -147,11 +161,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESDOC3 40 STRING F_DESDOC3 50
BEGIN BEGIN
PROMPT 12 8 "" PROMPT 12 8 ""
FLAG "D" USE %TIP KEY 2
END INPUT S0 F_DESDOC3
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_TIPODOC3 CODTAB
OUTPUT F_DESDOC3 S0
HELP "Tipo di documento 3"
CHECKTYPE NORMAL
END
STRING F_TIPODOC4 4 STRING F_TIPODOC4 4
BEGIN BEGIN
@ -168,11 +189,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESDOC4 40 STRING F_DESDOC4 50
BEGIN BEGIN
PROMPT 12 10 "" PROMPT 12 10 ""
FLAG "D" USE %TIP KEY 2
END INPUT S0 F_DESDOC4
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_TIPODOC4 CODTAB
OUTPUT F_DESDOC4 S0
HELP "Tipo di documento 4"
CHECKTYPE NORMAL
END
STRING F_TIPODOC5 4 STRING F_TIPODOC5 4
BEGIN BEGIN
@ -189,10 +217,17 @@ PAGE "Tipi documento validi" -1 -1 60 14
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESDOC5 40 STRING F_DESDOC5 50
BEGIN BEGIN
PROMPT 12 12 "" PROMPT 12 12 ""
FLAG "D" USE %TIP KEY 2
END INPUT S0 F_DESDOC5
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_TIPODOC5 CODTAB
OUTPUT F_DESDOC5 S0
HELP "Tipo di documento 5"
CHECKTYPE NORMAL
END
ENDMASK ENDMASK

6
ve/batbprs.rpt
View File

@ -9,7 +9,8 @@ Tabella prestazioni
1|@68g%s|IVA 1|@68g%s|IVA
1|@74g%s|Valuta 1|@74g%s|Valuta
1|@82g%s|Prezzo 1|@82g%s|Prezzo
1|@97g%s|UM 1|@97g%s|Q.ta
1|@112g%s|UM
2|@16g%s|Cod. Conto 2|@16g%s|Cod. Conto
2|@36g%s|Descrizione conto 2|@36g%s|Descrizione conto
[Rows] [Rows]
@ -18,7 +19,8 @@ Tabella prestazioni
1|S3|@68g@4s 1|S3|@68g@4s
1|S4|@74g@4s 1|S4|@74g@4s
1|R0|@82g@13n 1|R0|@82g@13n
1|S7|@97g@2s 1|R1|@97g@13n
1|S7|@112g@2s
2|I0|@16g@3n 2|I0|@16g@3n
2|I1|@21g@3n 2|I1|@21g@3n
2|I2|@26g@7n 2|I2|@26g@7n

50
ve/batbprs.uml
View File

@ -59,7 +59,13 @@ END
STRING F_CODASSFIS1 50 STRING F_CODASSFIS1 50
BEGIN BEGIN
PROMPT 25 7 "" PROMPT 25 7 ""
FLAG "D" USE %IVA KEY 2
INPUT S0 F_CODASSFIS1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL
END END
STRING F_CODDIV 4 STRING F_CODDIV 4
@ -79,7 +85,13 @@ END
STRING F_CODDIV1 50 STRING F_CODDIV1 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAG "D" USE %VAL KEY 2
INPUT S0 F_CODDIV1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
CHECKTYPE NORMAL
END END
LISTBOX F_CAMPI 15 LISTBOX F_CAMPI 15
@ -89,7 +101,7 @@ BEGIN
ITEM "Q|Qta prezzo " ITEM "Q|Qta prezzo "
MESSAGE ENABLE,F_QTA MESSAGE ENABLE,F_QTA
ITEM "V|Valore " ITEM "V|Valore "
MESSAGE CLEAR,F_QTA MESSAGE "1",F_QTA|DISABLE,F_QTA
END END
NUMBER F_PREZZO 15 3 NUMBER F_PREZZO 15 3
@ -145,7 +157,8 @@ NUMBER F_SOTTOV 6
BEGIN BEGIN
PROMPT 30 14 "" PROMPT 30 14 ""
FIELD I2 FIELD I2
USE LF_PCON USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV SELECT INPUT GRUPPO F_GRUPPOV SELECT
INPUT CONTO F_CONTOV SELECT INPUT CONTO F_CONTOV SELECT
INPUT SOTTOCONTO F_SOTTOV INPUT SOTTOCONTO F_SOTTOV
@ -165,7 +178,18 @@ END
STRING F_DESCRCONTOV 50 STRING F_DESCRCONTOV 50
BEGIN BEGIN
PROMPT 17 15 "" PROMPT 17 15 ""
FLAG "D" FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END END
NUMBER F_GRUPPOA 3 NUMBER F_GRUPPOA 3
@ -196,7 +220,8 @@ NUMBER F_SOTTOA 6
BEGIN BEGIN
PROMPT 30 16 "" PROMPT 30 16 ""
FIELD I5 FIELD I5
USE LF_PCON USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOA SELECT INPUT GRUPPO F_GRUPPOA SELECT
INPUT CONTO F_CONTOA SELECT INPUT CONTO F_CONTOA SELECT
INPUT SOTTOCONTO F_SOTTOA INPUT SOTTOCONTO F_SOTTOA
@ -216,7 +241,18 @@ END
STRING F_DESCRCONTOA 50 STRING F_DESCRCONTOA 50
BEGIN BEGIN
PROMPT 17 17 "" PROMPT 17 17 ""
FLAG "D" FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END END
ENDMASK ENDMASK

54
ve/batbspp.uml
View File

@ -59,7 +59,13 @@ END
STRING F_CODASSFIS1 50 STRING F_CODASSFIS1 50
BEGIN BEGIN
PROMPT 25 7 "" PROMPT 25 7 ""
FLAG "D" USE %IVA KEY 2
INPUT S0 F_CODASSFIS1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL
END END
STRING F_CODDIV 4 STRING F_CODDIV 4
@ -79,7 +85,13 @@ END
STRING F_CODDIV1 50 STRING F_CODDIV1 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAG "D" USE %VAL KEY 2
INPUT S0 F_CODDIV1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
CHECKTYPE NORMAL
END END
LISTBOX F_CAMPI 15 LISTBOX F_CAMPI 15
@ -89,7 +101,7 @@ BEGIN
ITEM "Q|Qta prezzo " ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@ MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
ITEM "V|Valore " ITEM "V|Valore "
MESSAGE SHOW,1@|CLEAR,2@|HIDE,3@|RESET,3@ MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@
ITEM "P|Percentuale " ITEM "P|Percentuale "
MESSAGE SHOW,3@|HIDE,1@|RESET,1@ MESSAGE SHOW,3@|HIDE,1@|RESET,1@
END END
@ -147,7 +159,13 @@ END
STRING F_NCAMPOCAL1 50 STRING F_NCAMPOCAL1 50
BEGIN BEGIN
PROMPT 17 13 "" PROMPT 17 13 ""
FLAG "D" USE %FRD
INPUT S0 F_NCAMPOCAL1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_NCAMPOCAL CODTAB
OUTPUT F_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3 GROUP 3
END END
@ -199,8 +217,19 @@ END
STRING F_DESCRCONTOV 50 STRING F_DESCRCONTOV 50
BEGIN BEGIN
PROMPT 17 16 "" PROMPT 17 16 ""
FLAG "D" FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END END
NUMBER F_GRUPPOA 3 NUMBER F_GRUPPOA 3
@ -252,7 +281,18 @@ END
STRING F_DESCRCONTOA 50 STRING F_DESCRCONTOA 50
BEGIN BEGIN
PROMPT 17 18 "" PROMPT 17 18 ""
FLAG "D" FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END END
ENDMASK ENDMASK

9
ve/batbtip.h
View File

@ -1,7 +1,8 @@
#define F_CODTAB 101 #define F_CODTAB 101
#define F_DESNUM 102 #define F_DESNUM 102
#define F_RIFERIMENTO 103 #define F_PROFILO 103
#define F_PROFILO 104 #define F_PSTAMPA 104
#define F_PSTAMPA 105 #define F_CODCAUS 105
#define F_CODCAUS 106 #define F_DESCAUS 106
#define F_NCOPIE 107 #define F_NCOPIE 107
#define F_RIFERIMENTO 108

6
ve/batbtip.rpt
View File

@ -1,11 +1,11 @@
[Headers] [Headers]
132 132
Tabella Formule documento Tabella Tipi documento
1|@2g%s|Cod. 1|@2g%s|Cod.
1|@7g%s|Descrizione 1|@7g%s|Descrizione
1|@58g%s|Riferimento 1|@58g%s|Riferimento
1|@109g%s|Pr.doc. 1|@109g%s|Pr. doc.
1|@118g%s|Pr.st. 1|@118g%s|Pr. st.
1|@127g%s|Caus. 1|@127g%s|Caus.
[Rows] [Rows]
1|CODTAB|@2g@4s 1|CODTAB|@2g@4s

19
ve/batbtip.uml
View File

@ -45,8 +45,9 @@ END
STRING F_RIFERIMENTO 50 STRING F_RIFERIMENTO 50
BEGIN BEGIN
PROMPT 2 6 "Riferimento " PROMPT 2 6 "Riferimento "
FIELD S1 FIELD S1
CHECKTYPE NORMAL
END END
STRING F_PROFILO 8 STRING F_PROFILO 8
@ -73,13 +74,27 @@ END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 2 11 "Codice causale " PROMPT 2 12 "Codice causale "
FIELD S6 FIELD S6
USE LF_CAUSALI USE LF_CAUSALI
INPUT CODCAUS F_CODCAUS INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCAUS CODCAUS OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCAUS DESCR
CHECKTYPE NORMAL
END
STRING F_DESCAUS 50
BEGIN
PROMPT 2 13 "Descrizione causale "
FLAG "U"
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
OUTPUT F_DESCAUS DESCR
OUTPUT F_CODCAUS CODCAUS
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END

1
ve/batbtri.rpt
View File

@ -13,3 +13,4 @@ Tabella Tipo riga documento
4|S7|S|Spese 4|S7|S|Spese
4|S7|C|Sconti 4|S7|C|Sconti
4|S7|D|Descrizioni 4|S7|D|Descrizioni
4|S7|P|Prestazioni

3
ve/bollac.src
View File

@ -209,12 +209,13 @@ NCOLS=10
10=FR_CODIVA 10=FR_CODIVA
[RIGHE] [RIGHE]
NTIPIRIGA=5 NTIPIRIGA=6
1=01 1=01
2=02 2=02
3=03 3=03
4=04 4=04
5=05 5=05
6=06
[HANDLERS] [HANDLERS]
NHANDLER=0 NHANDLER=0

12
ve/ve0300a.src
View File

@ -1122,10 +1122,10 @@ X=2
Y=0 Y=0
FIELDNAME=CODVETT1 FIELDNAME=CODVETT1
MSKID=F_CODVETT1 MSKID=F_CODVETT1
TYPE=T_NUMERO TYPE=T_STRINGA
PROMPT="Vettore 1' " PROMPT="Vettore 1' "
SIZE=5 SIZE=5
FLAG=Z FLAG=ZU
USE=%VET USE=%VET
INPUT=CODTAB F_CODVETT1 INPUT=CODTAB F_CODVETT1
DISPLAY="Codice" CODTAB~"Descrizione@50" S0 DISPLAY="Codice" CODTAB~"Descrizione@50" S0
@ -1154,10 +1154,10 @@ X=2
Y=1 Y=1
FIELDNAME=CODVETT2 FIELDNAME=CODVETT2
MSKID=F_CODVETT2 MSKID=F_CODVETT2
TYPE=T_NUMERO TYPE=T_STRINGA
PROMPT="Vettore 2' " PROMPT="Vettore 2' "
SIZE=5 SIZE=5
FLAG=Z FLAG=ZU
USE=%VET USE=%VET
INPUT=CODTAB F_CODVETT2 INPUT=CODTAB F_CODVETT2
DISPLAY="Codice" CODTAB~"Descrizione@50" S0 DISPLAY="Codice" CODTAB~"Descrizione@50" S0
@ -1186,10 +1186,10 @@ X=2
Y=2 Y=2
FIELDNAME=CODVETT3 FIELDNAME=CODVETT3
MSKID=F_CODVETT3 MSKID=F_CODVETT3
TYPE=T_NUMERO TYPE=T_STRINGA
PROMPT="Vettore 3' " PROMPT="Vettore 3' "
SIZE=5 SIZE=5
FLAG=Z FLAG=ZU
USE=%VET USE=%VET
INPUT=CODTAB F_CODVETT3 INPUT=CODTAB F_CODVETT3
DISPLAY="Codice" CODTAB~"Descrizione@50" S0 DISPLAY="Codice" CODTAB~"Descrizione@50" S0

2
ve/verig.uml
View File

@ -397,6 +397,7 @@ ENDIF
DISPLAY "Descrizione@50" %UMS->S0 DISPLAY "Descrizione@50" %UMS->S0
OUTPUT FR_UMQTA UM OUTPUT FR_UMQTA UM
FIELD UMQTA FIELD UMQTA
FLAG "U"
IFDEF(CH_UMQTA) IFDEF(CH_UMQTA)
CHECKTYPE CH_UMQTA CHECKTYPE CH_UMQTA
ELSEIF ELSEIF
@ -419,6 +420,7 @@ ENDIF
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT FR_UMQTASP CODTAB OUTPUT FR_UMQTASP CODTAB
FIELD UMQTA FIELD UMQTA
FLAG "U"
IFDEF(CH_UMQTASP) IFDEF(CH_UMQTASP)
CHECKTYPE CH_UMQTASP CHECKTYPE CH_UMQTASP
ELSEIF ELSEIF