Corretta la gestione dei codici di capozona

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

pr/pr0500a.h

@@ -30,3 +30,4 @@
 #define F_CODALTPR3                         128
 #define F_CODALTPR4                         129
 
+#define G_CAPOZONA  1

pr/pr0500a.uml

@@ -76,8 +76,11 @@ BEGIN
   PROMPT 2 6 "Tipo agente    "
   FIELD TIPO
   ITEM "A|Agente"
+  MESSAGE CLEAR,G_CAPOZONA@
   ITEM "C|Capozona"
+  MESSAGE ENABLE,G_CAPOZONA@
   ITEM "S|Subagente"
+  MESSAGE ENABLE,G_CAPOZONA@
 END
 
 GROUPBOX DLG_NULL 80 4
@@ -91,7 +94,8 @@ BEGIN
   PROMPT 2 8 "Cod. capozona  "
   FIELD CODCAPO
   FLAGS "UZ"
-  USE LF_AGENTI
+
+  USE LF_AGENTI SELECT TIPO=="C"
   INPUT CODAGE F_CODCAPO
   DISPLAY "Codice@8R" CODAGE
   DISPLAY "Descrizione@50" RAGSOC
@@ -100,6 +104,7 @@ BEGIN
   CHECKTYPE NORMAL
   MESSAGE EMPTY CLEAR,F_PERCCAPO
   MESSAGE ENABLE,F_PERCCAPO
+  GROUP G_CAPOZONA
 END
 
 STRING F_DESCRCAPO 50
@@ -120,6 +125,7 @@ BEGIN
   FIELD PERCCAPO
   NUM_EXPR {(#F_PERCCAPO>=0.0)&&(#F_PERCCAPO<100.0)}
   WARNING "Inserire una percentuale tra 0 e 100"
+  GROUP G_CAPOZONA
 END
 
 NUMBER F_PERCFATT 6 2