Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


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

lv/lv0400.h

@@ -0,0 +1,4 @@
+#define F_CODCF       101
+#define F_RAGSOC_CLI  102
+#define F_CODCONT     103  
+#define F_DES_CODCONT 104

lv/lv0400a.uml

@@ -0,0 +1,56 @@
+#include "lv0400.h"
+
+TOOLBAR "" 0 0 0 2
+#include "Relapbar.h"
+ENDPAGE
+
+PAGE "Contratti" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 6
+BEGIN
+	PROMPT 0 4 "@bContratti"
+END
+
+NUMBER F_CODCF 6
+BEGIN
+  PROMPT 2 5 "Cliente   " 
+  FIELD CODCF
+  FLAGS "U"
+  KEY 1
+  USE LF_CLIFO 
+  INPUT TIPOCF "C"
+  INPUT CODCF F_CODCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  OUTPUT F_CODCF CODCF
+  OUTPUT F_RAGSOC_CLI RAGSOC
+  CHECKTYPE REQUIRED  
+END
+
+STRING F_RAGSOC_CLI 50
+BEGIN
+  PROMPT 20 5 ""
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "C"
+  INPUT RAGSOC F_RAGSOC
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  COPY OUTPUT F_CODCF
+  CHECKTYPE REQUIRED  
+END
+
+NUMBER F_CODCONT 6
+BEGIN
+  PROMPT 2 6 "Contratto N."
+  USE LF_LVCONDV
+  FLAGS "U"
+  FIELD CODCONT
+  KEY 1
+  
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DES_CODCONT 50
+BEGIN
+  PROMPT 20 6 ""
+END

lv/lv0500a.uml

@@ -54,7 +54,7 @@ BEGIN
   FLAGS "D"
 END
 
-STRING F_CODCONT 3
+NUMBER F_CODCONT 6
 BEGIN
   PROMPT 2 6 "Contratto N."
   FLAGS "BU"