modifiche alle tabelle di Pg
git-svn-id: svn://10.65.10.50/trunk@3610 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
40137908ec
commit
d1870008ba
26
ve/batbgmc.h
26
ve/batbgmc.h
@ -2,18 +2,16 @@
|
||||
#define F_DESGRU 102
|
||||
#define F_CODSGR 103
|
||||
#define F_DESSGR 104
|
||||
#define F_CODAGGDOC 105
|
||||
#define F_CODAGGOMA 106
|
||||
#define F_CODAGGSCO 107
|
||||
#define H_CODGRU 108
|
||||
#define H_DESGRU 109
|
||||
#define F_CODIVARIF 110
|
||||
#define F_GRUPPOA 111
|
||||
#define F_CONTOA 112
|
||||
#define F_SOTTOCA 113
|
||||
#define F_DESCRA 114
|
||||
#define F_GRUPPOV 115
|
||||
#define F_CONTOV 116
|
||||
#define F_SOTTOCV 117
|
||||
#define F_DESCRV 118
|
||||
#define H_CODGRU 105
|
||||
#define H_DESGRU 106
|
||||
#define F_CODIVARIF 107
|
||||
#define F_CODIVARIF1 108
|
||||
#define F_GRUPPOA 109
|
||||
#define F_CONTOA 110
|
||||
#define F_SOTTOCA 111
|
||||
#define F_DESCRA 112
|
||||
#define F_GRUPPOV 113
|
||||
#define F_CONTOV 114
|
||||
#define F_SOTTOCV 115
|
||||
#define F_DESCRV 116
|
||||
|
||||
|
167
ve/batbgmc.uml
167
ve/batbgmc.uml
@ -100,97 +100,60 @@ BEGIN
|
||||
WARNING "Manca la descrizione del gruppo"
|
||||
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
|
||||
BEGIN
|
||||
PROMPT 2 11 "Codice iva di riferimento "
|
||||
PROMPT 2 8 "Codice IVA "
|
||||
FIELD S7
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODIVARIF
|
||||
DISPLAY "Codice IVA" CODTAB
|
||||
DISPLAY "Aliquota" R0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODIVARIF CODTAB
|
||||
OUTPUT F_CODIVARIF1 S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPOA 3
|
||||
STRING F_CODIVARIF1 50
|
||||
BEGIN
|
||||
PROMPT 2 13 "Conto d'acquisto "
|
||||
FIELD I0
|
||||
END
|
||||
|
||||
NUMBER F_CONTOA 3
|
||||
BEGIN
|
||||
PROMPT 24 13 ""
|
||||
FIELD I1
|
||||
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
|
||||
PROMPT 25 8 ""
|
||||
USE %IVA KEY 2
|
||||
INPUT S0 F_CODIVARIF1
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
OUTPUT F_CODIVARIF CODTAB
|
||||
OUTPUT F_CODIVARIF1 S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPOV 3
|
||||
BEGIN
|
||||
PROMPT 2 15 "Conto di vendita "
|
||||
PROMPT 2 10 "Conto vendita "
|
||||
FIELD I3
|
||||
END
|
||||
|
||||
NUMBER F_CONTOV 3
|
||||
BEGIN
|
||||
PROMPT 24 15 ""
|
||||
FIELD I4
|
||||
PROMPT 22 10 ""
|
||||
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
|
||||
|
||||
NUMBER F_SOTTOCV 6
|
||||
BEGIN
|
||||
PROMPT 29 15 ""
|
||||
PROMPT 30 10 ""
|
||||
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 CONTO F_CONTOV
|
||||
INPUT SOTTOCONTO F_SOTTOCV
|
||||
@ -203,19 +166,87 @@ BEGIN
|
||||
OUTPUT F_SOTTOCV SOTTOCONTO
|
||||
OUTPUT F_DESCRV DESCR
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Sottoconto errato"
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_DESCRV 50
|
||||
BEGIN
|
||||
PROMPT 19 16 ""
|
||||
PROMPT 17 11 ""
|
||||
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
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
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
|
||||
|
||||
ENDPAGE
|
||||
|
@ -79,7 +79,7 @@ ENDPAGE
|
||||
|
||||
PAGE "Tipi documento validi" -1 -1 60 14
|
||||
|
||||
GROUPBOX DLG_NULL 64 15
|
||||
GROUPBOX DLG_NULL 70 15
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
// FLAG "R"
|
||||
@ -105,11 +105,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC1 40
|
||||
BEGIN
|
||||
PROMPT 12 4 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC1 50
|
||||
BEGIN
|
||||
PROMPT 12 4 ""
|
||||
USE %TIP KEY 2
|
||||
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
|
||||
BEGIN
|
||||
@ -126,11 +133,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC2 40
|
||||
BEGIN
|
||||
PROMPT 12 6 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC2 50
|
||||
BEGIN
|
||||
PROMPT 12 6 ""
|
||||
USE %TIP KEY 2
|
||||
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
|
||||
BEGIN
|
||||
@ -147,11 +161,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC3 40
|
||||
BEGIN
|
||||
PROMPT 12 8 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC3 50
|
||||
BEGIN
|
||||
PROMPT 12 8 ""
|
||||
USE %TIP KEY 2
|
||||
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
|
||||
BEGIN
|
||||
@ -168,11 +189,18 @@ PAGE "Tipi documento validi" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC4 40
|
||||
BEGIN
|
||||
PROMPT 12 10 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC4 50
|
||||
BEGIN
|
||||
PROMPT 12 10 ""
|
||||
USE %TIP KEY 2
|
||||
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
|
||||
BEGIN
|
||||
@ -189,10 +217,17 @@ PAGE "Tipi documento validi" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC5 40
|
||||
BEGIN
|
||||
PROMPT 12 12 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC5 50
|
||||
BEGIN
|
||||
PROMPT 12 12 ""
|
||||
USE %TIP KEY 2
|
||||
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
|
||||
|
@ -9,7 +9,8 @@ Tabella prestazioni
|
||||
1|@68g%s|IVA
|
||||
1|@74g%s|Valuta
|
||||
1|@82g%s|Prezzo
|
||||
1|@97g%s|UM
|
||||
1|@97g%s|Q.ta
|
||||
1|@112g%s|UM
|
||||
2|@16g%s|Cod. Conto
|
||||
2|@36g%s|Descrizione conto
|
||||
[Rows]
|
||||
@ -18,7 +19,8 @@ Tabella prestazioni
|
||||
1|S3|@68g@4s
|
||||
1|S4|@74g@4s
|
||||
1|R0|@82g@13n
|
||||
1|S7|@97g@2s
|
||||
1|R1|@97g@13n
|
||||
1|S7|@112g@2s
|
||||
2|I0|@16g@3n
|
||||
2|I1|@21g@3n
|
||||
2|I2|@26g@7n
|
||||
|
@ -59,7 +59,13 @@ END
|
||||
STRING F_CODASSFIS1 50
|
||||
BEGIN
|
||||
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
|
||||
|
||||
STRING F_CODDIV 4
|
||||
@ -79,7 +85,13 @@ END
|
||||
STRING F_CODDIV1 50
|
||||
BEGIN
|
||||
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
|
||||
|
||||
LISTBOX F_CAMPI 15
|
||||
@ -89,7 +101,7 @@ BEGIN
|
||||
ITEM "Q|Qta prezzo "
|
||||
MESSAGE ENABLE,F_QTA
|
||||
ITEM "V|Valore "
|
||||
MESSAGE CLEAR,F_QTA
|
||||
MESSAGE "1",F_QTA|DISABLE,F_QTA
|
||||
END
|
||||
|
||||
NUMBER F_PREZZO 15 3
|
||||
@ -145,7 +157,8 @@ NUMBER F_SOTTOV 6
|
||||
BEGIN
|
||||
PROMPT 30 14 ""
|
||||
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 CONTO F_CONTOV SELECT
|
||||
INPUT SOTTOCONTO F_SOTTOV
|
||||
@ -165,7 +178,18 @@ END
|
||||
STRING F_DESCRCONTOV 50
|
||||
BEGIN
|
||||
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
|
||||
|
||||
NUMBER F_GRUPPOA 3
|
||||
@ -196,7 +220,8 @@ NUMBER F_SOTTOA 6
|
||||
BEGIN
|
||||
PROMPT 30 16 ""
|
||||
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 CONTO F_CONTOA SELECT
|
||||
INPUT SOTTOCONTO F_SOTTOA
|
||||
@ -216,7 +241,18 @@ END
|
||||
STRING F_DESCRCONTOA 50
|
||||
BEGIN
|
||||
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
|
||||
|
||||
ENDMASK
|
||||
|
@ -59,7 +59,13 @@ END
|
||||
STRING F_CODASSFIS1 50
|
||||
BEGIN
|
||||
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
|
||||
|
||||
STRING F_CODDIV 4
|
||||
@ -79,7 +85,13 @@ END
|
||||
STRING F_CODDIV1 50
|
||||
BEGIN
|
||||
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
|
||||
|
||||
LISTBOX F_CAMPI 15
|
||||
@ -89,7 +101,7 @@ BEGIN
|
||||
ITEM "Q|Qta prezzo "
|
||||
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
|
||||
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 "
|
||||
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
|
||||
END
|
||||
@ -147,7 +159,13 @@ END
|
||||
STRING F_NCAMPOCAL1 50
|
||||
BEGIN
|
||||
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
|
||||
END
|
||||
|
||||
@ -199,8 +217,19 @@ END
|
||||
|
||||
STRING F_DESCRCONTOV 50
|
||||
BEGIN
|
||||
PROMPT 17 16 ""
|
||||
FLAG "D"
|
||||
PROMPT 17 16 ""
|
||||
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
|
||||
|
||||
NUMBER F_GRUPPOA 3
|
||||
@ -252,7 +281,18 @@ END
|
||||
STRING F_DESCRCONTOA 50
|
||||
BEGIN
|
||||
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
|
||||
|
||||
ENDMASK
|
||||
|
@ -1,7 +1,8 @@
|
||||
#define F_CODTAB 101
|
||||
#define F_DESNUM 102
|
||||
#define F_RIFERIMENTO 103
|
||||
#define F_PROFILO 104
|
||||
#define F_PSTAMPA 105
|
||||
#define F_CODCAUS 106
|
||||
#define F_PROFILO 103
|
||||
#define F_PSTAMPA 104
|
||||
#define F_CODCAUS 105
|
||||
#define F_DESCAUS 106
|
||||
#define F_NCOPIE 107
|
||||
#define F_RIFERIMENTO 108
|
||||
|
@ -1,11 +1,11 @@
|
||||
[Headers]
|
||||
132
|
||||
Tabella Formule documento
|
||||
Tabella Tipi documento
|
||||
1|@2g%s|Cod.
|
||||
1|@7g%s|Descrizione
|
||||
1|@58g%s|Riferimento
|
||||
1|@109g%s|Pr.doc.
|
||||
1|@118g%s|Pr.st.
|
||||
1|@109g%s|Pr. doc.
|
||||
1|@118g%s|Pr. st.
|
||||
1|@127g%s|Caus.
|
||||
[Rows]
|
||||
1|CODTAB|@2g@4s
|
||||
|
@ -45,8 +45,9 @@ END
|
||||
|
||||
STRING F_RIFERIMENTO 50
|
||||
BEGIN
|
||||
PROMPT 2 6 "Riferimento "
|
||||
PROMPT 2 6 "Riferimento "
|
||||
FIELD S1
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_PROFILO 8
|
||||
@ -73,13 +74,27 @@ END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 2 11 "Codice causale "
|
||||
PROMPT 2 12 "Codice causale "
|
||||
FIELD S6
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_CODCAUS
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
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
|
||||
END
|
||||
|
||||
|
@ -13,3 +13,4 @@ Tabella Tipo riga documento
|
||||
4|S7|S|Spese
|
||||
4|S7|C|Sconti
|
||||
4|S7|D|Descrizioni
|
||||
4|S7|P|Prestazioni
|
||||
|
@ -209,12 +209,13 @@ NCOLS=10
|
||||
10=FR_CODIVA
|
||||
|
||||
[RIGHE]
|
||||
NTIPIRIGA=5
|
||||
NTIPIRIGA=6
|
||||
1=01
|
||||
2=02
|
||||
3=03
|
||||
4=04
|
||||
5=05
|
||||
6=06
|
||||
|
||||
[HANDLERS]
|
||||
NHANDLER=0
|
||||
|
@ -1122,10 +1122,10 @@ X=2
|
||||
Y=0
|
||||
FIELDNAME=CODVETT1
|
||||
MSKID=F_CODVETT1
|
||||
TYPE=T_NUMERO
|
||||
TYPE=T_STRINGA
|
||||
PROMPT="Vettore 1' "
|
||||
SIZE=5
|
||||
FLAG=Z
|
||||
FLAG=ZU
|
||||
USE=%VET
|
||||
INPUT=CODTAB F_CODVETT1
|
||||
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
|
||||
@ -1154,10 +1154,10 @@ X=2
|
||||
Y=1
|
||||
FIELDNAME=CODVETT2
|
||||
MSKID=F_CODVETT2
|
||||
TYPE=T_NUMERO
|
||||
TYPE=T_STRINGA
|
||||
PROMPT="Vettore 2' "
|
||||
SIZE=5
|
||||
FLAG=Z
|
||||
FLAG=ZU
|
||||
USE=%VET
|
||||
INPUT=CODTAB F_CODVETT2
|
||||
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
|
||||
@ -1186,10 +1186,10 @@ X=2
|
||||
Y=2
|
||||
FIELDNAME=CODVETT3
|
||||
MSKID=F_CODVETT3
|
||||
TYPE=T_NUMERO
|
||||
TYPE=T_STRINGA
|
||||
PROMPT="Vettore 3' "
|
||||
SIZE=5
|
||||
FLAG=Z
|
||||
FLAG=ZU
|
||||
USE=%VET
|
||||
INPUT=CODTAB F_CODVETT3
|
||||
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
|
||||
|
@ -397,6 +397,7 @@ ENDIF
|
||||
DISPLAY "Descrizione@50" %UMS->S0
|
||||
OUTPUT FR_UMQTA UM
|
||||
FIELD UMQTA
|
||||
FLAG "U"
|
||||
IFDEF(CH_UMQTA)
|
||||
CHECKTYPE CH_UMQTA
|
||||
ELSEIF
|
||||
@ -419,6 +420,7 @@ ENDIF
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FR_UMQTASP CODTAB
|
||||
FIELD UMQTA
|
||||
FLAG "U"
|
||||
IFDEF(CH_UMQTASP)
|
||||
CHECKTYPE CH_UMQTASP
|
||||
ELSEIF
|
||||
|
Loading…
x
Reference in New Issue
Block a user