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

Rifiniture

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4403 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-05-23 15:15:36 +00:00
parent e0c79c109e
commit 1788e94036
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mg/batbcau.uml
View File

@ -275,7 +275,7 @@ NUMBER F_SUMSIGN 4 0
BEGIN
PROMPT 2 18 "Somma segni "
FLAGS "DG"
NUM_CALC ((#F_SGNGIAC-#F_SGNRIM)-(#F_SGNACQ+#F_SGNENTR)+(#F_SGNVEN+#F_SGNUSC)+(#F_SGNACL-#F_SGNINCL)+(#F_SGNPRODF-#F_SGNPRODC))
NUM_CALC ((#F_SGNGIAC-#F_SGNRIM)-(#F_SGNACQ+#F_SGNENTR)+(#F_SGNVEN+#F_SGNUSC)+(#F_SGNACL-#F_SGNINCL)+(#F_SGNPRODF-#F_SGNPRODC)+#F_SGNSCAR)
MESSAGE COPY,F_CHECKER
END

3
mg/batbgca.uml
View File

@ -54,12 +54,13 @@ END
STRING F_CODGROUP 23
BEGIN
FLAGS "U"
PROMPT 22 6 "Codice del gruppo "
FIELD CODTAB[2,25]
KEY 1
USE GCA
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_CODLIV
INPUT CODTAB[1,1] F_CODLIV SELECT
INPUT CODTAB[2,25] F_CODGROUP
DISPLAY "N." CODTAB[1,1]
DISPLAY "Parte@20 " 500@->S0

3
mg/batbgcg.uml
View File

@ -46,12 +46,13 @@ END
STRING F_CODGROUP 23
BEGIN
FLAGS "U"
PROMPT 22 6 "Codice del gruppo "
FIELD CODTAB[2,25]
KEY 1
USE GCG
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_CODLIV
INPUT CODTAB[1,1] F_CODLIV SELECT
INPUT CODTAB[2,25] F_CODGROUP
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0