From fdcd32b259e4a553ba284b0be96ea1270cae2803 Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 27 Jun 1996 09:58:42 +0000
Subject: [PATCH] Modificati alcuni campi a video, corrette le chiamate alle
 ricerche.

git-svn-id: svn://10.65.10.50/trunk@3114 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ve/ve2400.uml | 224 +++++++++++++++++++++++++-------------------------
 1 file changed, 112 insertions(+), 112 deletions(-)

diff --git a/ve/ve2400.uml b/ve/ve2400.uml
index ea35ac61e..b01d7b81a 100755
--- a/ve/ve2400.uml
+++ b/ve/ve2400.uml
@@ -5,15 +5,21 @@ TOOLBAR "" 0 20 60 2
  #include <toolbar.h>
 ENDPAGE
 
-PAGE "Gestione anagrafica di magazzino " 0 0 70 20
+PAGE "Pagina 1" 0 0 70 20
+
+GROUPBOX DLG_NULL 71 5
+BEGIN
+  PROMPT 0 0 ""
+//FLAG "R"
+END
 
 STRING F_CODART 20
 BEGIN
     PROMPT 2 1 "Codice art.   "
-    FIELD LF_ANAGR->CODART
+    FIELD LF_ANAMAG->CODART
     KEY 1
     FLAG "U"
-    USE LF_ANAGR
+    USE LF_ANAMAG
     INPUT CODART F_CODART
     DISPLAY "Codice@20" CODART
     DISPLAY "Descrizione@50" DESCR
@@ -25,47 +31,40 @@ END
 STRING F_TIPO 1
 BEGIN
     PROMPT 42 1  "Tipo "
-    FIELD LF_ANAGR->TIPO
+    FIELD LF_ANAMAG->TIPO
 END
 
 STRING F_DESCR 50
 BEGIN
     PROMPT 2 3 "Descrizione   "
-    FIELD LF_ANAGR->DESCR
+    FIELD LF_ANAMAG->DESCR
     KEY 2
-    USE LF_ANAGR KEY 2
+    USE LF_ANAMAG KEY 2
     INPUT DESCR F_DESCR
     DISPLAY "Codice@20" CODART
     DISPLAY "Descrizione@50" DESCR
     OUTPUT F_CODART CODART
     OUTPUT F_DESCR DESCR
-
     CHECKTYPE REQUIRED
 END
 
-GROUPBOX DLG_NULL 71 5
-BEGIN
-  PROMPT 0 0 ""
-//FLAG "R"
-END
-
 STRING F_GRMERC1 3
 BEGIN
     PROMPT 1 5 "Gruppo merc. 1 "
-    FIELD LF_ANAGR->GRMERC1[1,3]
+    FIELD LF_ANAMAG->GRMERC1[1,3]
     GROUP 1
     FLAG "U"
 END
 
 STRING F_GRMERC1B 2
 BEGIN
-                PROMPT 21 5 ""
-        FIELD LF_ANAGR->GRMERC1[4,5]
-                GROUP 1
-                FLAG "U"
+    PROMPT 21 5 ""
+    FIELD LF_ANAMAG->GRMERC1[4,5]
+    GROUP 1
+    FLAG "U"
     MESSAGE EMPTY CLEAR,2@
     MESSAGE ENABLE,2@
-    USE %GMC
+    USE GMC
     INPUT CODTAB[1,3] F_GRMERC1
     INPUT CODTAB[4,5] F_GRMERC1B
     DISPLAY "Codice" CODTAB
@@ -80,7 +79,7 @@ STRING F_GRMERC1D 50
 BEGIN
     PROMPT 26 5 ""
     GROUP 1
-    USE %GMC KEY 2
+    USE GMC KEY 2
     INPUT S0 F_GRMERC1D
     DISPLAY "Codice" CODTAB
     DISPLAY "Descrizione@50" S0
@@ -92,21 +91,21 @@ END
 STRING F_GRMERC2 3
 BEGIN
     PROMPT 1 6 "Gruppo merc. 2 "
-    FIELD LF_ANAGR->GRMERC2[1,3]
+    FIELD LF_ANAMAG->GRMERC2[1,3]
     GROUP 2
                 FLAG "U"
 END
 
 STRING F_GRMERC2B 2
 BEGIN
-                PROMPT 21 6 ""
-        FIELD LF_ANAGR->GRMERC2[4,5]
-                GROUP 2
-                FLAG "U"
+    PROMPT 21 6 ""
+    FIELD LF_ANAMAG->GRMERC2[4,5]
+    GROUP 2
+    FLAG "U"
     MESSAGE EMPTY CLEAR,3@
     MESSAGE ENABLE,3@
     NUM_EXPR (#F_GRMERC2=="")||(#F_GRMERC2!=#F_GRMERC1)
-    USE %GMC
+    USE GMC
     INPUT CODTAB[1,3] F_GRMERC2
     INPUT CODTAB[4,5] F_GRMERC2B
     DISPLAY "Codice" CODTAB
@@ -121,7 +120,7 @@ STRING F_GRMERC2D 50
 BEGIN
     PROMPT 26 6 ""
     GROUP 2
-    USE %GMC KEY 2
+    USE GMC KEY 2
     INPUT S0 F_GRMERC2D
     DISPLAY "Codice" CODTAB
     DISPLAY "Descrizione@50" S0
@@ -133,19 +132,19 @@ END
 STRING F_GRMERC3 3
 BEGIN
     PROMPT 1 7 "Gruppo merc. 3 "
-    FIELD LF_ANAGR->GRMERC3[1,3]
+    FIELD LF_ANAMAG->GRMERC3[1,3]
     GROUP 3
-                FLAG "U"
+    FLAG "U"
 END
 
 STRING F_GRMERC3B 2
 BEGIN
-                PROMPT 21 7 ""
-        FIELD LF_ANAGR->GRMERC3[4,5]
-                GROUP 3
-                FLAG "U"
+    PROMPT 21 7 ""
+    FIELD LF_ANAMAG->GRMERC3[4,5]
+    GROUP 3
+    FLAG "U"
     NUM_EXPR (#F_GRMERC3=="")||((#F_GRMERC3!=#F_GRMERC1)&&(#F_GRMERC3!=#F_GRMERC2))
-    USE %GMC
+    USE GMC
     INPUT CODTAB[1,3] F_GRMERC3
     INPUT CODTAB[4,5] F_GRMERC3B
     DISPLAY "Codice" CODTAB
@@ -160,7 +159,7 @@ STRING F_GRMERC3D 50
 BEGIN
     PROMPT 26 7 ""
     GROUP 3
-    USE %GMC KEY 2
+    USE GMC KEY 2
     INPUT S0 F_GRMERC3D
     DISPLAY "Codice" CODTAB
     DISPLAY "Descrizione@50" S0
@@ -178,12 +177,12 @@ END
 
 STRING F_CATCONA 3
 BEGIN
-   PROMPT 1 12 "Categoria conto acquisti "
-   FIELD LF_ANAGR->CATCONA
-         GROUP 11
-         MESSAGE CLEAR,12@
-         MESSAGE EMPTY ENABLE,12@
-         FLAG "UZ"
+   PROMPT 1 13 "Categoria conto acquisti "
+   FIELD LF_ANAMAG->CATCONA
+   GROUP 11
+   MESSAGE CLEAR,12@
+   MESSAGE EMPTY ENABLE,12@
+   FLAG "UZ"
    USE CAA
    INPUT CODTAB F_CATCONA
    DISPLAY "Codice" CODTAB
@@ -198,9 +197,9 @@ END
 
 STRING F_CATCONA1 40
 BEGIN
-    PROMPT 36 12 ""
-    FLAG "D"
-                GROUP 11
+   PROMPT 36 13 ""
+   FLAG "D"
+   GROUP 11
    USE CAA KEY 2
    INPUT S0 F_CATCONA1
    DISPLAY "Descrizione@50" S0
@@ -213,25 +212,25 @@ END
 
 STRING F_GRUPPOA 2
 BEGIN
-   PROMPT 1 13 "Conto d'acquisto "
-   FIELD LF_ANAGR->GRUPPOA
-                GROUP 12
-                MESSAGE CLEAR,11@
-                MESSAGE EMPTY ENABLE,11@
+   PROMPT 1 14 "Conto d'acquisto "
+   FIELD LF_ANAMAG->GRUPPOA
+   GROUP 12
+   MESSAGE CLEAR,11@
+   MESSAGE EMPTY ENABLE,11@
 END
 
 STRING F_CONTOA 2
 BEGIN
-    PROMPT  22 13 ""
-    FIELD LF_ANAGR->CONTOA
-                GROUP 12
+    PROMPT  22 14 ""
+    FIELD LF_ANAMAG->CONTOA
+    GROUP 12
 END
 
 STRING F_SOTTOCA 6
 BEGIN
-    PROMPT  26 13 ""
-    FIELD LF_ANAGR->SOTTOCA
-                GROUP 12
+   PROMPT  26 14 ""
+   FIELD LF_ANAMAG->SOTTOCA
+   GROUP 12
    USE LF_PCON
    INPUT GRUPPO F_GRUPPOA
    INPUT CONTO  F_CONTOA
@@ -244,14 +243,14 @@ BEGIN
    OUTPUT F_CONTOA  CONTO
    OUTPUT F_SOTTOCA SOTTOCONTO
    OUTPUT F_DESCRA  DESCR
-         CHECKTYPE NORMAL
+   CHECKTYPE NORMAL
 END
 
 STRING F_DESCRA 40
 BEGIN
-    PROMPT  36 13 ""
-    FLAG "D"
-                GROUP 12
+   PROMPT  36 14 ""
+   FLAG "D"
+   GROUP 12
    USE LF_PCON KEY 2
    INPUT DESCR F_DESCRA
    DISPLAY "Descrizione@50" DESCR
@@ -265,12 +264,12 @@ END
 
 STRING F_CATCONV 3
 BEGIN
-   PROMPT 1 14 "Categoria conto vendite  "
-   FIELD LF_ANAGR->CATCONV
+   PROMPT 1 15 "Categoria conto vendite  "
+   FIELD LF_ANAMAG->CATCONV
    GROUP 21
-         MESSAGE CLEAR,22@
-         MESSAGE EMPTY ENABLE,22@
-         FLAG "UZ"
+   MESSAGE CLEAR,22@
+   MESSAGE EMPTY ENABLE,22@
+   FLAG "UZ"
    USE CRA
    INPUT CODTAB F_CATCONV
    DISPLAY "Codice" CODTAB
@@ -285,8 +284,8 @@ END
 
 STRING F_CATCONV1 40
 BEGIN
-    PROMPT 36 14 ""
-    FLAG "D"
+   PROMPT 36 15 ""
+   FLAG "D"
    GROUP 21
    USE CRA KEY 2
    INPUT S0 F_CATCONV1
@@ -300,24 +299,24 @@ END
 
 STRING F_GRUPPOV 2
 BEGIN
-   PROMPT 1 15 "Conto di vendita "
-   FIELD LF_ANAGR->GRUPPOV
+   PROMPT 1 16 "Conto di vendita "
+   FIELD LF_ANAMAG->GRUPPOV
    GROUP 22
-                MESSAGE CLEAR,21@
-                MESSAGE EMPTY ENABLE,21@
+   MESSAGE CLEAR,21@
+   MESSAGE EMPTY ENABLE,21@
 END
 
 STRING F_CONTOV 2
 BEGIN
-    PROMPT  22 15 ""
-    FIELD LF_ANAGR->CONTOV
+   PROMPT  22 16 ""
+   FIELD LF_ANAMAG->CONTOV
    GROUP 22
 END
 
 STRING F_SOTTOCV 6
 BEGIN
-    PROMPT  26 15 ""
-    FIELD LF_ANAGR->SOTTOCV
+   PROMPT  26 16 ""
+   FIELD LF_ANAMAG->SOTTOCV
    GROUP 22
    USE LF_PCON
    INPUT GRUPPO F_GRUPPOV
@@ -331,13 +330,13 @@ BEGIN
    OUTPUT F_CONTOV CONTO
    OUTPUT F_SOTTOCV SOTTOCONTO
    OUTPUT F_DESCRV  DESCR
-         CHECKTYPE NORMAL
+   CHECKTYPE NORMAL
 END
 
 STRING F_DESCRV 40
 BEGIN
-    PROMPT  36 15 ""
-    FLAG "D"
+   PROMPT  36 16 ""
+   FLAG "D"
    GROUP 22
    USE LF_PCON KEY 2
    INPUT DESCR F_DESCRV
@@ -350,59 +349,53 @@ END
 
 STRING F_UMP 3
 BEGIN
-    PROMPT  1 16 "U.M. peso        "
-    FIELD LF_ANAGR->UMP
+    PROMPT  1 17 "U.M. peso        "
+    FIELD LF_ANAMAG->UMP
 END
 
 NUMBER F_PESO 15 5
 BEGIN
-    PROMPT 30 16 "Peso  "
-    FIELD LF_ANAGR->PESO
+    PROMPT 30 17 "Peso  "
+    FIELD LF_ANAMAG->PESO
 END
 
 STRING F_CLASSDOG 10
 BEGIN
-    PROMPT  1 17 "Classe doganale  "
-    FIELD LF_ANAGR->CLASSDOG
+    PROMPT  1 18 "Classe doganale  "
+    FIELD LF_ANAMAG->CLASSDOG
     FLAG "UZ"
-        USE %CLD
-        INPUT CODTAB F_CLASSDOG
-        DISPLAY "Codice" CODTAB
-        DISPLAY "Descrizione@50" S0
-        OUTPUT F_CLASSDOG CODTAB
-        OUTPUT F_CLASSDOG1 S0
-        CHECKTYPE NORMAL
+    USE %CLD
+    INPUT CODTAB F_CLASSDOG
+    DISPLAY "Codice" CODTAB
+    DISPLAY "Descrizione@50" S0
+    OUTPUT F_CLASSDOG CODTAB
+    OUTPUT F_CLASSDOG1 S0
+    CHECKTYPE NORMAL
 END
 
 STRING F_CLASSDOG1 40
 BEGIN
-    PROMPT  36 17 ""
+    PROMPT  36 18 ""
     FLAG "D"
-        USE %CLD KEY 2
-        INPUT S0 F_CLASSDOG1
-        DISPLAY "Descrizione@50" S0
-        DISPLAY "Codice" CODTAB
-        OUTPUT F_CLASSDOG CODTAB
-        OUTPUT F_CLASSDOG1 S0
 END
 
 ENDPAGE
 
 
 
-PAGE "Gestione anagrafica di magazzino " 0 0 70 20
+PAGE "Pagina 2 " 0 0 70 20
 
 STRING F_CODIVA 4
 BEGIN
     PROMPT  2 1 "Codice IVA       "
-    FIELD LF_ANAGR->CODIVA
+    FIELD LF_ANAMAG->CODIVA
     USE %IVA
     INPUT CODTAB  F_CODIVA
     DISPLAY "Codice " CODTAB
     DISPLAY "Descrizione@40" S0
     OUTPUT F_CODIVA CODTAB
     OUTPUT F_CODIVA1 S0
-                CHECKTYPE NORMAL
+    CHECKTYPE NORMAL
 END
 
 STRING F_CODIVA1 40
@@ -416,17 +409,17 @@ BEGIN
     OUTPUT F_CODIVA1 S0
 END
 
-LISTBOX F_TIPOCF 1
+LISTBOX F_TIPOCF 20
 BEGIN
     PROMPT  0 0 ""
     FLAG "H"
-    ITEM "F|"
+    ITEM "F|Fornitore"
 END
 
 NUMBER F_CODFORN 6
 BEGIN
     PROMPT  2 2 "Codice fornitore "
-    FIELD LF_ANAGR->CODFORN
+    FIELD LF_ANAMAG->CODFORN
     USE LF_CLIFO
     INPUT TIPOCF  F_TIPOCF SELECT
     INPUT CODCF   F_CODFORN
@@ -439,7 +432,7 @@ END
 NUMBER F_COSTSTD 18 0
 BEGIN
     PROMPT  37 2 "Costo standard  "
-    FIELD LF_ANAGR->COSTSTD
+    FIELD LF_ANAMAG->COSTSTD
 END
 
 STRING F_CODFORN1 50
@@ -457,21 +450,26 @@ END
 BOOLEAN F_ARTFIS
 BEGIN
     PROMPT  2 4 "Articolo fiscale  "
-    FIELD LF_ANAGR->ARTFIS
+    FIELD LF_ANAMAG->ARTFIS
+    MESSAGE TRUE ENABLE,23@
+    MESSAGE FALSE DISABLE,23@
 END
 
 STRING F_RAGGFIS 5
 BEGIN
     PROMPT  2 5 "Raggrupp. fiscale  "
-    FIELD LF_ANAGR->RAGGFIS
+    FIELD LF_ANAMAG->RAGGFIS
     USE %RFA
+    JOIN %ASF ALIAS 200 INTO CODTAB=S8 
     INPUT CODTAB F_RAGGFIS
     DISPLAY "Codice " CODTAB
     DISPLAY "Descrizione@40" S0
     OUTPUT F_RAGGFIS CODTAB
     OUTPUT F_RAGGFIS1 S0
     OUTPUT F_CLASSEFIS S8
+    OUTPUT F_CLASSEFIS1 -200->S0
     CHECKTYPE NORMAL
+    GROUP 23
 END
 
 STRING F_RAGGFIS1 40
@@ -483,7 +481,7 @@ END
 STRING F_CLASSEFIS 1
 BEGIN
     PROMPT  2 6 "Classe fiscale         "
-    FIELD LF_ANAGR->CLASSEFIS
+    FIELD LF_ANAMAG->CLASSEFIS
     USE %ASF
     INPUT CODTAB F_CLASSEFIS
     DISPLAY "Codice " CODTAB
@@ -491,6 +489,7 @@ BEGIN
     OUTPUT F_CLASSEFIS CODTAB
     OUTPUT F_CLASSEFIS1 S0
     CHECKTYPE NORMAL
+    GROUP 23
 END
 
 STRING F_CLASSEFIS1 40
@@ -502,7 +501,7 @@ END
 BOOLEAN F_ARTPROD
 BEGIN
    PROMPT 2 7 "Articolo di produzione "
-   FIELD LF_ANAGR->ARTPROD
+   FIELD LF_ANAMAG->ARTPROD
 END
 
 SPREADSHEET F_SHEET1 71 5
@@ -514,7 +513,7 @@ END
 
 SPREADSHEET F_SHEET2 71 5
 BEGIN
-     PROMPT 2 13 ""
+     PROMPT 2 14 ""
      ITEM "Cod. art.@20"
      ITEM "Tipo@10"
 END
@@ -523,6 +522,7 @@ ENDPAGE
 
 ENDMASK
 
- #include "VE2400A.UML"
- #include "VE2400B.UML"
- #include "VE2400C.UML"
+ #include "ve2400a.uml"
+ #include "ve2400b.uml"
+ #include "ve2400c.uml"
+