From 1dd375f09831e8f4e6c5a1dbbbc6f908981d8a77 Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 23 May 1997 08:43:20 +0000
Subject: [PATCH] Correzione MI6211 (riportata anche sulla stampa solleciti),
 relativa alla ricerca sul codice lingua.

git-svn-id: svn://10.65.10.50/trunk@4379 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 sc/sc2100a.uml | 20 ++++++++++----------
 sc/sc2400a.uml | 18 ++++++++++++------
 2 files changed, 22 insertions(+), 16 deletions(-)

diff --git a/sc/sc2100a.uml b/sc/sc2100a.uml
index 859fbacf2..ae3bb0790 100755
--- a/sc/sc2100a.uml
+++ b/sc/sc2100a.uml
@@ -47,16 +47,16 @@ STRING F_LINPROF 1
 BEGIN
   PROMPT 19 3 ""
   FLAGS "U"
-/*  
-  USE %LNG
-  INPUT CODTAB F_LINPROF
-  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@50" S0
-  OUTPUT F_LINPROF CODTAB
-  CHECKTYPE NORMAL
-  WARNING "Codice lingua errato"
-*/  
-  COPY ALL F_CODPROF
+  USE LF_FORM
+  INPUT TIPOPROF BASE_EC_PROFILE
+  INPUT CODPROF[1,4] F_CODPROF
+  INPUT CODPROF[5,5] F_LINPROF
+  DISPLAY "Codice" CODPROF[1,4]
+  DISPLAY "Lingua" CODPROF[5,5]
+  DISPLAY "Descrizione@50" DESC
+  OUTPUT F_CODPROF CODPROF[1,4]
+  OUTPUT F_LINPROF CODPROF[5,5]
+  OUTPUT F_DESPROF DESC
   CHECKTYPE NORMAL
   WARNING "Codice profilo o lingua errato"
 END
diff --git a/sc/sc2400a.uml b/sc/sc2400a.uml
index 714d273af..cd4324c02 100755
--- a/sc/sc2400a.uml
+++ b/sc/sc2400a.uml
@@ -46,13 +46,19 @@ END
 STRING F_LINPROF 1
 BEGIN
   PROMPT 19 3 ""
-  USE %LNG
-  INPUT CODTAB F_LINPROF
-  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@50" S0
-  OUTPUT F_LINPROF CODTAB
+  FLAGS "U"
+  USE LF_FORM
+  INPUT TIPOPROF BASE_EC_PROFILE
+  INPUT CODPROF[1,4] F_CODPROF
+  INPUT CODPROF[5,5] F_LINPROF
+  DISPLAY "Codice" CODPROF[1,4]
+  DISPLAY "Lingua" CODPROF[5,5]
+  DISPLAY "Descrizione@50" DESC
+  OUTPUT F_CODPROF CODPROF[1,4]
+  OUTPUT F_LINPROF CODPROF[5,5]
+  OUTPUT F_DESPROF DESC
   CHECKTYPE NORMAL
-  WARNING "Codice lingua errato"
+  WARNING "Codice profilo o lingua errato"
 END
 
 STRING F_DESPROF 50 40