Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@17397 c028cbd2-c16b-5b4b-a496-9718f37d4682

lv/lv0300a.h

@@ -14,6 +14,9 @@
 #define F_DOCDOT           208
 #define F_TIPORIGDOT       209
 #define F_TIPORIGDTMP      210
+#define F_DESCRTR1         211
+#define F_DESCRTR2         212
+
 
 #define S_CODNUM_RIT       101
 #define S_TIPODOC_RIT      102

lv/lv0300a.uml

@@ -135,27 +135,52 @@ END
 STRING F_TIPORIGDOT 4
 BEGIN
   PROMPT 2 18 "Codice "
-  USE %TIP
+  FLAGS "U"
-  CHECKTYPE REQUIRED
+  USE %TRI
   INPUT CODTAB F_TIPORIGDOT
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_TIPORIGDOT CODTAB
+  OUTPUT F_DESCRTR1 S0
+  CHECKTYPE REQUIRED
   FIELD TIPORIGDOT
-  FLAGS "UZ"
+END
+
+STRING F_DESCRTR1 50
+BEGIN
+  PROMPT 16 18 ""
+  USE %TRI KEY 2
+  INPUT S0 F_DESCRTR1
+  COPY DISPLAY F_TIPORIGDOT
+  COPY OUTPUT F_TIPORIGDOT
+  CHECKTYPE REQUIRED
 END
 
 STRING F_TIPORIGDTMP 4
 BEGIN
   PROMPT 2 19 "Codice "
-  USE %TIP
+  FLAGS "U"
-  CHECKTYPE REQUIRED
+  USE %TRI
   INPUT CODTAB F_TIPORIGDTMP
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_TIPORIGDTMP CODTAB
+  OUTPUT F_DESCRTR2 S0
+  CHECKTYPE NORMAL
   FIELD TIPORIGDTMP
-  FLAGS "UZ"
+  STR_EXPR #F_TIPORIGDOT!=#F_TIPORIGDTMP
+  WARNING "I due tipi riga devono essere diversi"
+END
+
+STRING F_DESCRTR2 50
+BEGIN
+  PROMPT 16 19 ""
+  USE %TRI KEY 2
+  INPUT S0 F_DESCRTR2
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_TIPORIGDTMP
+  CHECKTYPE NORMAL
 END
 
 ENDPAGE

ve/vetbtri.uml

@@ -35,7 +35,8 @@ PAGE "Tipo di riga" 0 0 0 0
       FIELD S0
       USE %TRI KEY 2
       INPUT S0 F_DESCR
-      COPY DISPLAY F_CODICE
+      DISPLAY "Descrizione@50" S0
+      DISPLAY "Codice" CODTAB
       COPY OUTPUT F_CODICE
       CHECKTYPE REQUIRED
       KEY 2