From 7317ae1319abfb557acc618b549407d5d0cc8c90 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 14 Oct 1996 10:24:04 +0000
Subject: [PATCH] Aggiunta select sulle ditte

git-svn-id: svn://10.65.10.50/trunk@3772 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba5200a.uml | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/ba/ba5200a.uml b/ba/ba5200a.uml
index ad51148e3..56fc01cb2 100755
--- a/ba/ba5200a.uml
+++ b/ba/ba5200a.uml
@@ -43,6 +43,7 @@ BEGIN
   KEY 1
   GROUP 1
   USE LF_TABREG
+  INPUT CODDITTA F_CODDITTA SELECT
   INPUT ANNO F_ANNO
   INPUT CODREG F_CODICE
   DISPLAY "Anno" ANNO
@@ -56,7 +57,7 @@ BEGIN
   MESSAGE COPY,20@
   MESSAGE FALSE COPY,20@
 END
-    
+
 STRING F_CODICE 3
 BEGIN
   PROMPT 49 2 "Codice registro   "
@@ -77,7 +78,7 @@ BEGIN
   FIELD DESCR
   KEY 2
   GROUP 1
-  USE LF_TABREG KEY 2
+  USE LF_TABREG KEY 2 SELECT CODDITTA==#F_CODDITTA
   INPUT DESCR F_DESCR
   DISPLAY "Descrizione @50" DESCR
   DISPLAY "Anno" ANNO
@@ -141,15 +142,15 @@ BEGIN
   GROUP 1
 END
 
-DATE F_DTI    
-BEGIN    
+DATE F_DTI
+BEGIN
   PROMPT 1 8 "Data inizio eser. "
   FIELD DATAINES
   GROUP 8
 END
 
 DATE F_DTF
-BEGIN  
+BEGIN
   PROMPT 40 8 "Data fine eser.    "
   FIELD DATAFIES
   GROUP 8
@@ -204,10 +205,10 @@ BEGIN
   USE LF_DITCB KEY 1 SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO)
   JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP
   JOIN LF_TABGR TO LF_DITCB INTO G0CGR=CBCGR
-  FIELD CODSP 
+  FIELD CODSP
   INPUT CBCDD F_CODDITTA SELECT
   INPUT CBDTI F_DTI
-  INPUT CBDTF F_DTF 
+  INPUT CBDTF F_DTF
   INPUT CBCGR F_CODGRUP
   INPUT CBCSP F_CODSPEC
   DISPLAY "Codice Gruppo" CBCGR
@@ -221,7 +222,7 @@ BEGIN
   OUTPUT F_CODSPEC CBCSP
   OUTPUT F_CODSPECDESCR LF_TABAT->TADCT
   OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT
-  WARNING "Codice Specie non previsto per questa ditta"  
+  WARNING "Codice Specie non previsto per questa ditta"
   CHECKTYPE NORMAL
 END