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

Patch level :10.0 nopatch

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunta tabella della 3.2 (in attesa di modifiche, questo è un segnaposto)


git-svn-id: svn://10.65.10.50/trunk@18125 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-01-27 14:28:25 +00:00
parent 028c6580ad
commit d399e0a999
2 changed files with 164 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ve/vetbcmt.h Executable file
View File

@ -0,0 +1,8 @@
#define F_DESCR 101
#define F_DESCR1 102
#define F_CODCON 103
#define F_CODCON1 104
#define F_CODCON2 105
#define F_CODRIC 106
#define F_CODRIC1 107
#define F_CODRIC2 108

156
ve/vetbcmt.uml Executable file
View File

@ -0,0 +1,156 @@
#include "vetbcmt.h"
TOOLBAR "topbar" 0 0 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Conti ricavo dei materiali" 0 0 0 0
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
NUMBER F_CODRIC 3
BEGIN
PROMPT 2 1 "Conto ricavi "
FIELD CODTAB[1,3]
USE CMT KEY 2
FLAGS "Z"
INPUT CODTAB[1,3] F_CODRIC
INPUT CODTAB[4,6] F_CODRIC1
INPUT CODTAB[7,12] F_CODRIC2
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODRIC CODTAB[1,3]
OUTPUT F_CODRIC1 CODTAB[4,6]
OUTPUT F_CODRIC2 CODTAB[7,12]
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODRIC1 3
BEGIN
PROMPT 25 1 ""
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_CODRIC
INPUT CONTO F_CODRIC1
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODRIC GRUPPO
OUTPUT F_CODRIC1 CONTO
FIELD CODTAB[4,6]
CHECKTYPE NORMAL
KEY 1
FLAGS "Z"
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_CODRIC2 6
BEGIN
PROMPT 33 1 ""
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_CODRIC
INPUT CONTO F_CODRIC1
INPUT SOTTOCONTO F_CODRIC2
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODRIC GRUPPO
OUTPUT F_CODRIC1 CONTO
OUTPUT F_CODRIC2 SOTTOCONTO
WARNING "Sottoconto errato"
FIELD CODTAB[7,12]
CHECKTYPE NORMAL
FLAGS "Z"
KEY 1
END
STRING F_DESCR 50
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
KEY 2
USE CMT KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_CODRIC
CHECKTYPE REQUIRED
END
NUMBER F_CODCON 3
BEGIN
PROMPT 2 5 "Conto materiali "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER F_CODCON1 3
BEGIN
PROMPT 25 5 ""
FIELD I1
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_CODCON2 6
BEGIN
PROMPT 33 5 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_CODCON2 SOTTOCONTO
OUTPUT F_DESCR1 DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCR1 50
BEGIN
PROMPT 2 7 "Descrizione "
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_DESCR1
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_CODCON2
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK