From 4fd99c1437270c1c9ceb10acda0608fbf6017386 Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 31 Jul 1997 09:53:14 +0000
Subject: [PATCH] Corretto campo codclio/codfor e condv

git-svn-id: svn://10.65.10.50/trunk@4990 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 mg/mg1100.uml | 114 +++++++++++++++++++-------------------------------
 1 file changed, 42 insertions(+), 72 deletions(-)

diff --git a/mg/mg1100.uml b/mg/mg1100.uml
index ec80042df..b6499c058 100755
--- a/mg/mg1100.uml
+++ b/mg/mg1100.uml
@@ -124,9 +124,8 @@ BEGIN
   OUPUT F_CODNUM CODNUM
   OUPUT F_NUMDOC NDOC
   OUPUT F_ANNODOC ANNO
-  OUPUT F_TIPOCF TIPOCF
-//  OUPUT F_CODCLI CODCF
-//  OUPUT F_CODFOR CODCF
+//  OUPUT F_TIPOCF TIPOCF
+//  OUPUT F_CODCF CODCF
   OUPUT F_CODCAUS CAUSMAG1
   CHECKTYPE NORMAL
 
@@ -177,72 +176,51 @@ BEGIN
   GROUP G_DEFMOV
 END
 
-LISTBOX F_TIPOCF  10
+LISTBOX F_TIPOCF  20
 BEGIN 
-  PROMPT 2  9 "Relativo a       "
+  PROMPT 2  9 "Movimento        "
+  FLAGS "G"
   FIELD TIPOCF
-  ITEM " |Nessuno"
-  MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|RESET,F_CODCF|HIDE,F_RAGSOC
-  ITEM "C|Cliente"
-  MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
-  ITEM "F|Fornitore"
-  MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
+  ITEM " |interno"
+  MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|HIDE,F_RAGSOC|RESET,F_CODCF|HIDE,F_CODCF
+  ITEM "C|relativo a cliente"
+  MESSAGE SHOW,F_CODCF|SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
+  ITEM "F|relativo a fornitore"
+  MESSAGE SHOW,F_CODCF|HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
 
   GROUP G_DEFMOV
 END
 
-// campi per READ/WRITE su archivio (e ricerca utente)
-NUMBER F_CODCLI 6
-BEGIN 
-  PROMPT 2 10 "Codice cliente   "
-  FLAGS "U"
-  FIELD CODCF
-  USE LF_CLIFO
-  INPUT TIPOCF  F_TIPOCF SELECT
-  INPUT CODCF   F_CODCLI
-  DISPLAY "Codice " CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_CODCF CODCF
-  MESSAGE EMPTY RESET,F_CODCF
-  CHECKTYPE NORMAL
-  GROUP G_DEFMOV
-END
-
-// campi per READ/WRITE su archivio (e ricerca utente)
-NUMBER  F_CODFOR  6
-BEGIN 
-  FLAGS "U"
-  PROMPT 2 10 "Codice fornitore "
-  FIELD CODCF
-  USE LF_CLIFO
-  INPUT TIPOCF  F_TIPOCF SELECT
-  INPUT CODCF   F_CODFOR
-  DISPLAY "Codice " CODCF
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_CODCF CODCF
-  MESSAGE EMPTY RESET,F_CODCF
-  CHECKTYPE NORMAL
-  GROUP G_DEFMOV
-END
-
-// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
-// agisce anche quando l'utente non entra in gioco (settaggio da LISTINO...)
+// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
 NUMBER F_CODCF  6
 BEGIN 
-  FLAGS "U"
-  FLAGS "HG"
-  PROMPT 0 1 ""
+//  FLAGS "UHG"
+  FIELD CODCF
+  PROMPT 19 10 ""
   USE LF_CLIFO
-  INPUT TIPOCF  F_TIPOCF SELECT
+  INPUT TIPOCF  F_TIPOCF 
   INPUT CODCF   F_CODCF
+  DISPLAY "Codice " CODCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_CODCF CODCF
+//  OUTPUT F_CODCLI CODCF
+//  OUTPUT F_CODFOR CODCF
   OUTPUT F_RAGSOC RAGSOC
-//  OUTPUT F_CODCF CODCF
-  OUTPUT F_CODCLI CODCF
-  OUTPUT F_CODFOR CODCF
   CHECKTYPE NORMAL
-//MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
 END
 
+TEXT F_CODCLI
+BEGIN 
+  PROMPT 2 10 "Codice cliente   "
+END
+
+TEXT F_CODFOR 
+BEGIN 
+  PROMPT 2 10 "Codice fornitore "
+END
+
+
+// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
 STRING F_RAGSOC 50 40
 BEGIN
   PROMPT 30 10 ""
@@ -261,30 +239,25 @@ BEGIN
   PROMPT 2  12 "Condizione di vendita "
   ITEM " |Nessuna"
   MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
-  MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
-  MESSAGE ENABLE,F_TIPOCF
+  MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|RESET,F_CODOFF
+  MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF|ENABLE,F_TIPOCF
   ITEM "L|Listino"
   MESSAGE ENABLE,F_CATVEN
   MESSAGE SHOW,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
-  MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
-  MESSAGE CLEAR,F_TIPOCF
+  MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF|ENABLE,F_TIPOCF
   ITEM "C|Contratto"
   MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
   MESSAGE HIDE,F_CODLIST|SHOW,F_CODCONTR|HIDE,F_CODOFF
-  MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
-  MESSAGE ENABLE,F_TIPOCF
+  MESSAGE RESET,F_CODLIST|RESET,F_CODOFF|DISABLE,F_TIPOCF
   ITEM "O|Offerta"
   MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
   MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|SHOW,F_CODOFF
-  MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
-  MESSAGE CLEAR,F_TIPOCF
+  MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|ENABLE,F_TIPOCF
 
 //  GROUP G_DEFMOV
 END
 
 
-
-
 STRING F_CATVEN 2
 BEGIN
   FLAGS "DU"
@@ -313,10 +286,8 @@ BEGIN
   DISPLAY "Descr.@30" DESCR
 
   OUTPUT F_CATVEN CATVEN
-  OUTPUT F_TIPOCF TIPOCF 
-  OUTPUT F_CODCF CODCF 
   OUTPUT F_CODLIST COD
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 
 //  GROUP G_DEFMOV
 END
@@ -336,11 +307,11 @@ BEGIN
   DISPLAY "Cod Cli/For" CODCF
   DISPLAY "Codice" COD
   DISPLAY "Descr.@30" DESCR
-  OUTPUT F_TIPOCF TIPOCF 
   OUTPUT F_CODCF CODCF 
+  OUTPUT F_TIPOCF TIPOCF 
   OUTPUT F_CODCONTR COD 
 
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 //  GROUP G_DEFMOV
 END
 
@@ -355,9 +326,8 @@ BEGIN
   INPUT COD F_CODOFF
   DISPLAY "Codice" COD
   DISPLAY "Descr.@30" DESCR
-  OUTPUT F_CODCF CODCF 
   OUTPUT F_CODOFF COD 
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 //  GROUP G_DEFMOV
 END