From c1e3743c6b2bcbca9988e95ccf2a89e942c0e927 Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 25 Jul 1997 10:59:59 +0000
Subject: [PATCH] Causale di riga su riga separata. Codici di causale a 6
 caratteri

git-svn-id: svn://10.65.10.50/trunk@4915 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 mg/mg4100.frm | 52 +++++++++++++++++++++++++++++++++------------------
 1 file changed, 34 insertions(+), 18 deletions(-)

diff --git a/mg/mg4100.frm b/mg/mg4100.frm
index f846ec3a3..ba8a40376 100755
--- a/mg/mg4100.frm
+++ b/mg/mg4100.frm
@@ -3,6 +3,7 @@ JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
 JOIN %CAU TO 110 INTO CODTAB==CODCAUS
 JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART 
 JOIN LF_DOC TO LF_MOVMAG INTO PROVV==DOCPROVV ANNO==ANNODOC CODNUM==CODNUM NDOC==NUMDOC
+JOIN %CAU TO 111 ALIAS 500 INTO CODTAB==CAUS
 
 JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
 JOIN LF_UMART TO LF_ANAMAG  ALIAS 249 INTO CODART==CODART 
@@ -98,11 +99,11 @@ BEGIN
   PROMPT  35 5 "Descrizione articolo"
 END
 
-STRINGA 105 
-BEGIN
-  KEY "caus"
-  PROMPT  74 5 "Causale"
-END
+//STRINGA 105 
+//BEGIN
+//  KEY "caus"
+//  PROMPT  74 5 "Causale"
+//END
 
 STRINGA 105 
 BEGIN
@@ -151,7 +152,7 @@ SECTION BODY ODD 1
     NUMERO 1 
     BEGIN
       KEY "numreg"
-      PROMPT  1 1 ""
+      PROMPT  1 1 "Registrazione "
       FIELD LF_MOVMAG->NUMREG
       PICTURE "#####"
       MESSAGE RESET,10
@@ -160,25 +161,25 @@ SECTION BODY ODD 1
     DATA 2 8
     BEGIN
       KEY "datacomp"
-      PROMPT  10 1 ""
+      PROMPT  24 1 ""
       FIELD LF_MOVMAG->DATACOMP
     END
     STRINGA 3 40
       BEGIN
       KEY "descr mov"
-      PROMPT  20 1 ""
+      PROMPT  34 1 ""
       FIELD LF_MOVMAG->DESCR
     END
-    STRINGA 4 22
+    STRINGA 4 24
       BEGIN
       KEY " CAUS mov"
-      PROMPT  10 2 "Causale movimento "
+      PROMPT  4 2 "Causale movimento "
       FIELD LF_MOVMAG->CODCAUS
     END
-    STRINGA 5 20
+    STRINGA 5 50
     BEGIN
       KEY " DESCR CAUS"
-      PROMPT  32 2 ""
+      PROMPT  30 2 ""
       FIELD %CAU->S0
     END
 
@@ -198,6 +199,21 @@ SECTION BODY ODD 1
     END
 
     SECTION RIGHE_MOV 3 1 1 FILE LF_RMOVMAG GROUP NUMREG
+      SECTION CAUS_RIGA 1 1 1 STREXPR LF_RMOVMAG->CAUS!=""
+        STRINGA 4 24
+          BEGIN
+          KEY " CAUS mov"
+          PROMPT  10 1 "Causale riga      "
+          FIELD LF_RMOVMAG->CAUS
+        END
+        STRINGA 5 50
+        BEGIN
+          KEY " DESCR CAUS"
+          PROMPT  34 1 ""
+          FIELD 500@->S0
+        END
+      END
+
       STRINGA 101 3
       BEGIN
         KEY ""
@@ -225,12 +241,12 @@ SECTION BODY ODD 1
         FIELD LF_ANAMAG->DESCR
       END
 
-      STRINGA 105 4
-      BEGIN
-        KEY "CAUS"
-        PROMPT  77 1 ""
-        FIELD LF_RMOVMAG->CAUS
-      END
+      //STRINGA 105 4
+      //BEGIN
+      //  KEY "CAUS"
+      //  PROMPT  77 1 ""
+      //  FIELD LF_RMOVMAG->CAUS
+      //END
 
       STRINGA 105 20
       BEGIN