From 85f383244a94370094e6cdb1af5707d3abe4ee7d Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 29 Jul 2009 14:41:12 +0000
Subject: [PATCH] Patch level         : 10.0 396 Files correlati     :
 Ricompilazione Demo : [ ] Commento

Bug : 0001420

Aggiungere nella tabella vettori n.iscrizione albo, numero di telefono e partiva iva


git-svn-id: svn://10.65.10.50/trunk@19163 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cgtbvet.h   |  3 +++
 cg/cgtbvet.uml | 43 ++++++++++++++++++++++++++++++++-----------
 2 files changed, 35 insertions(+), 11 deletions(-)

diff --git a/cg/cgtbvet.h b/cg/cgtbvet.h
index d67538a6d..9b4af34da 100755
--- a/cg/cgtbvet.h
+++ b/cg/cgtbvet.h
@@ -17,6 +17,9 @@
 #define F_NUM                                115
 #define F_PFAX                               116
 #define F_PTELEX                             117
+#define F_STATOPAIV                          118
+#define F_PAIV                               119
+#define F_ALBO                               120
 
 
 
diff --git a/cg/cgtbvet.uml b/cg/cgtbvet.uml
index 313c3c6af..1f26b3046 100755
--- a/cg/cgtbvet.uml
+++ b/cg/cgtbvet.uml
@@ -6,9 +6,9 @@ ENDPAGE
 
 PAGE "Vettori" 0 2 0 0
 
-GROUPBOX DLG_NULL 75 7
+GROUPBOX DLG_NULL 75 5
 BEGIN
- PROMPT 1 0 ""
+ PROMPT 1 1 ""
  FLAGS "R"
 END
 
@@ -43,7 +43,22 @@ OUTPUT F_RAGSO S0
 KEY 2
 END
 
-GROUPBOX DLG_NULL 75 6
+STRING F_STATOPAIV 2
+BEGIN
+  PROMPT 50 50 "Partita IVA "
+  FLAGS "H"
+END
+
+STRING F_PAIV 12
+BEGIN
+  PROMPT 2 6 "Partita IVA "
+  FIELD S3[21,32]
+  HELP "Partita IVA del cliente/fornitore"
+  VALIDATE PI_FUNC  F_STATOPAIV
+  CHECKTYPE NORMAL
+END
+
+GROUPBOX DLG_NULL 75 7
 BEGIN
  PROMPT 1 7 "Recapito"
  FLAGS "R"
@@ -144,15 +159,21 @@ HELP "Nome dello stato del vettore"
 COPY OUTPUT F_CODNAZ
 END
 
+STRING F_ALBO 15
+BEGIN
+ PROMPT 2 12 "N.ro iscr.all'albo"
+ FIELD S3[33,48]
+END
+
 GROUPBOX DLG_NULL 75 5
 BEGIN
- PROMPT 1 13 "Numeri telefonici"
+ PROMPT 1 14 "Numeri telefonici"
  FLAGS "R"
 END
 
 STRING F_PTEL 10
 BEGIN
-PROMPT 2 14 "Telefono  "
+PROMPT 2 15 "Telefono  "
 HELP "Prefisso telefonico del vettore"
 FIELD S5[1,10]
 FLAGS "U"
@@ -160,15 +181,15 @@ END
 
 STRING F_TEL 20
 BEGIN
-PROMPT 30 14 ""
+PROMPT 30 15 ""
 HELP "Numero telefonico del vettore"
-FIELD S3
+FIELD S3[1,20]
 FLAGS "U"
 END
 
 STRING F_PFAX 10
 BEGIN
-PROMPT 2 15 "Fax       "
+PROMPT 2 16 "Fax       "
 HELP "Numero di Fax del vettore"
 FIELD S5[11,20]
 FLAGS "U"
@@ -176,7 +197,7 @@ END
 
 STRING F_FAX 20
 BEGIN
-PROMPT 30 15 ""
+PROMPT 30 16 ""
 HELP "Numero di Fax del vettore"
 FIELD S4
 FLAGS "U"
@@ -184,7 +205,7 @@ END
 
 STRING F_PTELEX 10
 BEGIN
-PROMPT 2 16 "Telex     "
+PROMPT 2 17 "Telex     "
 HELP "Numero di Telex del vettore"
 FIELD S2[1,10]
 FLAGS "U"
@@ -192,7 +213,7 @@ END
 
 STRING F_TELEX 20
 BEGIN
-PROMPT 30 16 ""
+PROMPT 30 17 ""
 HELP "Numero di Telex del vettore"
 FIELD S2[11,30]
 FLAGS "U"