From 1788e94036954aace8341258259d95745d5e2f79 Mon Sep 17 00:00:00 2001 From: augusto Date: Fri, 23 May 1997 15:15:36 +0000 Subject: [PATCH] Rifiniture git-svn-id: svn://10.65.10.50/trunk@4403 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- mg/batbcau.uml | 2 +- mg/batbgca.uml | 3 ++- mg/batbgcg.uml | 3 ++- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/mg/batbcau.uml b/mg/batbcau.uml index 2ad3dfeb2..7fb04e628 100755 --- a/mg/batbcau.uml +++ b/mg/batbcau.uml @@ -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 diff --git a/mg/batbgca.uml b/mg/batbgca.uml index d32193104..c45080dd8 100755 --- a/mg/batbgca.uml +++ b/mg/batbgca.uml @@ -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 diff --git a/mg/batbgcg.uml b/mg/batbgcg.uml index 495277d20..891d36bd8 100755 --- a/mg/batbgcg.uml +++ b/mg/batbgcg.uml @@ -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