Aggiunti campi per la gestione del conto acquisti/vendite

git-svn-id: svn://10.65.10.50/trunk@3402 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-08-17 07:14:46 +00:00
parent 05adf278ef
commit b4b0dbddbb
4 changed files with 174 additions and 19 deletions

View File

@ -1,8 +1,16 @@
// campi maschera batb%cco.msk
#define F_CODICE 101
#define F_DESCR 102
#define F_CODICE 101
#define F_DESCR 102
#define F_GRUPPOA 103
#define F_CONTOA 104
#define F_SOTTOCA 105
#define F_DESCRA 106
#define F_GRUPPOV 107
#define F_CONTOV 108
#define F_SOTTOCV 109
#define F_DESCRV 110

View File

@ -8,9 +8,15 @@ ENDPAGE
PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
PROMPT 2 2 "Codice "
HELP "Codice della categoria contabile"
FIELD CODTAB
FLAGS "U"
@ -24,9 +30,9 @@ OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria contabile"
FIELD LF_TABCOM->S0
KEY 2
@ -40,5 +46,93 @@ OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 8 "Conto d'acquisto "
FIELD I0
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 26 8 ""
FIELD I1
END
NUMBER F_SOTTOCA 6
BEGIN
PROMPT 31 8 ""
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 21 9 ""
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 11 "Conto di vendita "
FIELD I3
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 26 11 ""
FIELD I4
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 31 11 ""
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 12 ""
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

View File

@ -2,12 +2,16 @@
// campi maschera batb%cve.msk
#define F_CODICE 101
#define F_DESCR 102
#define F_PROVV 103
#define F_GRUPPO 104
#define F_CONTO 105
#define F_DESCONTO 106
#define F_CODICE 101
#define F_DESCR 102
#define F_PROVV 103
#define F_GRUPPO 104
#define F_CONTO 105
#define F_DESCONTO 106
#define F_GRUPPOV 107
#define F_CONTOV 108
#define F_SOTTOCV 109
#define F_DESCRV 110

View File

@ -16,7 +16,7 @@ END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
PROMPT 2 2 "Codice "
HELP "Codice della categoria di vendita"
FIELD CODTAB
FLAGS "U"
@ -38,7 +38,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria di vendita"
FIELD LF_TABCOM->S0
KEY 2
@ -60,21 +60,21 @@ END
NUMBER F_PROVV 5 2
BEGIN
PROMPT 4 8 "Provvigione "
PROMPT 2 8 "Provvigione "
HELP "Percentuale di provvigione della categoria"
FIELD LF_TABCOM->R0
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 4 10 "Gruppo "
PROMPT 2 10 "Conto Cliente "
HELP "Gruppo del piano dei conti della categoria"
FIELD I1
END
NUMBER F_CONTO 3
BEGIN
PROMPT 25 10 "Conto "
PROMPT 26 10 ""
HELP "Conto del piano dei conti della categoria"
FIELD I2
USE LF_PCON SELECT TMCF="C"
@ -92,9 +92,58 @@ END
STRING F_DESCONTO 50
BEGIN
PROMPT 16 12 ""
FLAGS "D"
CHECKTYPE NORMAL
PROMPT 21 11 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT TMCF="C"
INPUT DESCR F_DESCONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
COPY OUTPUT F_CONTO
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 13 "Conto di vendita "
FIELD I3
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 26 13 ""
FIELD I4
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 31 13 ""
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 14 ""
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