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

Cambiate le tabelle dei gruppi merceologici, raggruppamenti fiscali

Browse Source 
e anagrafica magazzino: ora tutti hanno i conti di acquisti e vendite.


git-svn-id: svn://10.65.10.50/trunk@3401 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-08-17 07:07:06 +00:00
parent bf07aaa89e
commit 05adf278ef
5 changed files with 305 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ve/batbgmc.h
View File

@ -8,4 +8,12 @@
#define H_CODGRU 108 #define H_CODGRU 108
#define H_DESGRU 109 #define H_DESGRU 109
#define F_CODIVARIF 110 #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

93
ve/batbgmc.uml
View File

@ -30,7 +30,7 @@ END
STRING F_CODSGR 2 STRING F_CODSGR 2
BEGIN BEGIN
PROMPT 30 2 "Codice sottogruppo " PROMPT 35 2 "Codice sottogruppo "
FIELD CODTAB[4,5] FIELD CODTAB[4,5]
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
@ -69,7 +69,7 @@ END
STRING F_DESSGR 50 STRING F_DESSGR 50
BEGIN BEGIN
PROMPT 2 5 "Descrizione sottogruppo " PROMPT 2 5 "Descrizione sottogruppo"
FIELD S0 FIELD S0
USE GMC KEY 2 USE GMC KEY 2
KEY 2 KEY 2
@ -130,8 +130,95 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
ENDPAGE NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 13 "Conto d'acquisto"
FIELD I0
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 23 13 ""
FIELD I1
END
NUMBER F_SOTTOCA 6
BEGIN
PROMPT 28 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 18 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
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 15 "Conto di vendita"
FIELD I3
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 23 15 ""
FIELD I4
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 28 15 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
END
STRING F_DESCRV 50
BEGIN
PROMPT 18 16 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
END
ENDPAGE
ENDMASK ENDMASK

9
ve/batbrfa.h
View File

@ -8,3 +8,12 @@
#define FLD_TABRFA_R2 107 #define FLD_TABRFA_R2 107
#define FLD_DESCFA 108 #define FLD_DESCFA 108
#define FLD_TABRFA_S9 109 #define FLD_TABRFA_S9 109
#define F_GRUPPOA 110
#define F_CONTOA 111
#define F_SOTTOCA 112
#define F_DESCRA 113
#define F_GRUPPOV 114
#define F_CONTOV 115
#define F_SOTTOCV 116
#define F_DESCRV 117
#define FLD_DESIVA 118

176
ve/batbrfa.uml
View File

@ -7,13 +7,13 @@ ENDPAGE
PAGE "Raggruppamento fiscali articoli" -1 -1 78 9 PAGE "Raggruppamento fiscali articoli" -1 -1 78 9
GROUPBOX DLG_NULL 75 7 GROUPBOX DLG_NULL 75 7
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
FLAGS "R" FLAGS "R"
END END
STRING FLD_TABRFA_CODTAB 5 STRING FLD_TABRFA_CODTAB 5
BEGIN BEGIN
PROMPT 2 2 "Codice " PROMPT 2 2 "Codice "
FIELD CODTAB FIELD CODTAB
USE %RFA USE %RFA
@ -25,10 +25,10 @@ BEGIN
OUTPUT FLD_TABRFA_S0 S0 OUTPUT FLD_TABRFA_S0 S0
KEY 1 KEY 1
FLAGS "U" FLAGS "U"
END END
STRING FLD_TABRFA_S0 50 STRING FLD_TABRFA_S0 50
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
FIELD S0 FIELD S0
USE %RFA KEY 2 USE %RFA KEY 2
@ -39,17 +39,24 @@ BEGIN
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABRFA_CODTAB COPY OUTPUT FLD_TABRFA_CODTAB
KEY 2 KEY 2
END END
STRING FLD_TABRFA_S7 2 STRING FLD_TABRFA_S7 2
BEGIN BEGIN
PROMPT 2 8 "Unita' di misura " PROMPT 2 8 "Unita' di misura "
FIELD S7 FIELD S7
END FLAG "U"
USE %UMS
INPUT CODTAB FLD_TABRFA_S7
DISPLAY "U.M. " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TABRFA_S7 CODTAB
WARNING "Unita' di misura errata"
END
STRING FLD_TABRFA_S8 1 STRING FLD_TABRFA_S8 1
BEGIN BEGIN
PROMPT 2 10 "Classe fiscale " PROMPT 2 9 "Classe fiscale "
FIELD S8 FIELD S8
USE %ASF USE %ASF
INPUT CODTAB FLD_TABRFA_S8 INPUT CODTAB FLD_TABRFA_S8
@ -58,35 +65,60 @@ BEGIN
OUTPUT FLD_TABRFA_S8 CODTAB OUTPUT FLD_TABRFA_S8 CODTAB
OUTPUT FLD_DESCFA S0 OUTPUT FLD_DESCFA S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING FLD_DESCFA 30 STRING FLD_DESCFA 50
BEGIN BEGIN
PROMPT 25 10 "" PROMPT 29 9 ""
USE %ASF KEY 2
INPUT S0 FLD_DESCFA
DISPLAY "Descrizione@50" S0
DISPLAY "Cl. Fisc." CODTAB
OUTPUT FLD_TABRFA_S8 CODTAB
OUTPUT FLD_DESCFA S0
CHECKTYPE NORMAL
END
STRING FLD_TABRFA_S9 4
BEGIN
PROMPT 2 10 "Cod.IVA riferimento"
FIELD S9
USE %IVA
INPUT CODTAB FLD_TABRFA_S9
DISPLAY "Codice IVA" CODTAB
DISPLAY "Aliquota" R0
OUTPUT FLD_TABRFA_S9 CODTAB
OUTPUT FLD_DESIVA S0
CHECKTYPE NORMAL
END
STRING FLD_DESIVA 50
BEGIN
PROMPT 29 10 ""
FLAG "D" FLAG "D"
END END
NUMBER FLD_TABRFA_R0 6 2 NUMBER FLD_TABRFA_R0 6 2
BEGIN BEGIN
PROMPT 2 12 "Perc. ricarico medio " PROMPT 2 11 "% di ricarico medio"
FIELD R0 FIELD R0
END END
NUMBER FLD_TABRFA_R1 12 2 NUMBER FLD_TABRFA_R1 12 2
BEGIN BEGIN
PROMPT 2 14 "Costo minimo " PROMPT 2 12 "Costo minimo "
FIELD R1 FIELD R1
END END
NUMBER FLD_TABRFA_R2 12 2 NUMBER FLD_TABRFA_R2 12 2
BEGIN BEGIN
PROMPT 45 14 "massimo " PROMPT 40 12 "massimo "
FIELD R2 FIELD R2
END END
LIST FLD_TABRFA_I0 1 30 LIST FLD_TABRFA_I0 1 30
BEGIN BEGIN
PROMPT 2 16 "Tipo costo " PROMPT 2 13 "Tipo costo "
FIELD I0 FIELD I0
HELP "Inserire il tipo di costo" HELP "Inserire il tipo di costo"
ITEM "1|Costo medio annuale" ITEM "1|Costo medio annuale"
@ -96,20 +128,96 @@ BEGIN
ITEM "5|Maggiore ultimi due costi" ITEM "5|Maggiore ultimi due costi"
ITEM "6|Costo massimo d'acquisto" ITEM "6|Costo massimo d'acquisto"
ITEM "7|Costo minimo d'acquisto" ITEM "7|Costo minimo d'acquisto"
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 14 "Conto d'acquisto "
FIELD I0
END END
STRING FLD_TABRFA_S8 4 NUMBER F_CONTOA 3
BEGIN BEGIN
PROMPT 2 10 "Codice IVA riferimento" PROMPT 26 14 ""
FIELD S9 FIELD I1
USE %IVA END
INPUT CODTAB FLD_TABRFA_S9
DISPLAY "Codice IVA" CODTAB NUMBER F_SOTTOCA 6
DISPLAY "Aliquota" R0 BEGIN
OUTPUT F_CODIVARIF CODTAB PROMPT 31 14 ""
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 CHECKTYPE NORMAL
END END
STRING F_DESCRA 50
BEGIN
PROMPT 21 15 ""
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
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 16 "Conto di vendita "
FIELD I3
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 26 16 ""
FIELD I4
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 31 16 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
END
STRING F_DESCRV 50
BEGIN
PROMPT 21 17 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

12
ve/ve2400.uml
View File

@ -175,7 +175,7 @@ BEGIN
COPY OUTPUT F_CATCONA COPY OUTPUT F_CATCONA
END END
STRING F_GRUPPOA 2 NUMBER F_GRUPPOA 3
BEGIN BEGIN
PROMPT 1 15 "Conto d'acquisto " PROMPT 1 15 "Conto d'acquisto "
FIELD LF_ANAMAG->GRUPPOA FIELD LF_ANAMAG->GRUPPOA
@ -184,14 +184,14 @@ BEGIN
MESSAGE EMPTY ENABLE,11@ MESSAGE EMPTY ENABLE,11@
END END
STRING F_CONTOA 2 NUMBER F_CONTOA 3
BEGIN BEGIN
PROMPT 22 15 "" PROMPT 22 15 ""
FIELD LF_ANAMAG->CONTOA FIELD LF_ANAMAG->CONTOA
GROUP 12 GROUP 12
END END
STRING F_SOTTOCA 6 NUMBER F_SOTTOCA 6
BEGIN BEGIN
PROMPT 26 15 "" PROMPT 26 15 ""
FIELD LF_ANAMAG->SOTTOCA FIELD LF_ANAMAG->SOTTOCA
@ -262,7 +262,7 @@ BEGIN
COPY OUTPUT F_CATCONV COPY OUTPUT F_CATCONV
END END
STRING F_GRUPPOV 2 NUMBER F_GRUPPOV 3
BEGIN BEGIN
PROMPT 1 17 "Conto di vendita " PROMPT 1 17 "Conto di vendita "
FIELD LF_ANAMAG->GRUPPOV FIELD LF_ANAMAG->GRUPPOV
@ -271,14 +271,14 @@ BEGIN
MESSAGE EMPTY ENABLE,21@ MESSAGE EMPTY ENABLE,21@
END END
STRING F_CONTOV 2 NUMBER F_CONTOV 3
BEGIN BEGIN
PROMPT 22 17 "" PROMPT 22 17 ""
FIELD LF_ANAMAG->CONTOV FIELD LF_ANAMAG->CONTOV
GROUP 22 GROUP 22
END END
STRING F_SOTTOCV 6 NUMBER F_SOTTOCV 6
BEGIN BEGIN
PROMPT 26 17 "" PROMPT 26 17 ""
FIELD LF_ANAMAG->SOTTOCV FIELD LF_ANAMAG->SOTTOCV