Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
enti pubblici in fornitori


git-svn-id: svn://10.65.10.50/branches/R_10_00@21522 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg0200.h

@@ -165,7 +165,8 @@
 #define F_BANP												311
 #define F_DIPPUBB											312
 #define F_ENTE												313
-#define F_INDENTE											314
+#define F_DESENTE                     314
+#define F_INDENTE											315
 
 #define F_IBAN_STATO									101
 #define F_IBAN_CHECK									102

cg/cg0200a.uml

@@ -966,18 +966,38 @@ BEGIN
   GROUP 4
 END
 
-STRING F_ENTE 50
+STRING F_ENTE 4
 BEGIN
-  PROMPT 2 17 "Ente          "
+  PROMPT 2 17 "Ente pubblico  "
   FIELD ENTE
+  USE %ENP
+  INPUT CODTAB F_ENTE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_ENTE CODTAB
+  OUTPUT F_DESENTE S0
+  OUTPUT F_INDENTE S1
+  CHECKTYPE NORMAL
+  GROUP 4 40
+END
+
+STRING F_DESENTE 50
+BEGIN
+  PROMPT 25 17 ""
+  USE %ENP KEY 2
+  INPUT S0 F_DESENTE
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_ENTE
+  CHECKTYPE NORMAL
   GROUP 4 40
 END
 
 STRING F_INDENTE 50
 BEGIN
-  PROMPT 2 18 "Indirizzo ente"
-  FIELD INDENTE
-  GROUP 4 40
+  PROMPT 2 18 "Indirizzo ente "
+  FLAGS "D"
+  GROUP 4
 END
 
 ENDPAGE

cg/cgmenu.men

@@ -36,6 +36,7 @@ Item_10 = "Valute", "ba3 -0 %val", ""
 Item_11 = "Lingue", "ba3 -0 %lng", ""
 Item_12 = "Versamenti ed interessi IVA", "ba3 -0 %ver", ""
 Item_13 = "Profili estratto conto", "sc3 -0", ""
+Item_14 = "Enti pubblici", "ba3 -0 %enp", ""
 
 [CGMENU_006]
 Caption = "Stampa tabelle studio"

cg/cgtbenp.h

@@ -0,0 +1,10 @@
+
+
+//campi maschera cgtbenp.msk
+
+#define F_CODICE		101
+#define F_DESCR         102
+#define F_INDIRIZZO	103
+
+
+

cg/cgtbenp.uml

@@ -0,0 +1,53 @@
+#include "cgtbenp.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Tabella Enti Pubblici" 0 2 0 0
+
+GROUPBOX DLG_NULL 75 7
+BEGIN
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
+STRING F_CODICE 4
+BEGIN
+PROMPT 2 2 "Codice      "
+HELP "Codice ente pubblico"
+FIELD CODTAB
+FLAGS "UZ"
+KEY 1
+USE %ENP 
+INPUT CODTAB F_CODICE
+DISPLAY "Codice" CODTAB
+DISPLAY "Descrizione @50" S0
+OUTPUT F_CODICE CODTAB
+OUTPUT F_DESCR S0
+OUTPUT F_INDIRIZZO S1
+CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50
+BEGIN
+PROMPT 2 4 "Descrizione "
+HELP "Descrizione ente pubblico"
+FIELD S0
+KEY 2
+USE %ENP KEY 2
+INPUT S0 F_DESCR
+DISPLAY "Descrizione @50" S0
+DISPLAY "Codice" CODTAB
+COPY OUTPUT F_CODICE
+CHECKTYPE REQUIRED
+END
+
+STRING F_INDIRIZZO 50
+BEGIN
+PROMPT 2 5 "Indirizzo   "
+FIELD S1
+END
+
+ENDPAGE
+ENDMASK

cg/f20.dir

@@ -1,3 +1,3 @@
 20
 0
-$clifo|0|0|838|0|Clienti/Fornitori|||
+$clifo|0|0|742|0|Clienti/Fornitori|||

cg/f20.trr

@@ -1,5 +1,5 @@
 20
-61
+60
 TIPOCF|1|1|0|Tipo <C>liente <F>ornitore
 CODCF|3|6|0|Codice
 RAGSOC|1|50|0|Ragione sociale
@@ -59,8 +59,7 @@ VALINTRA|1|3|0|Codice Valuta Intracomunitaria
 CODCFASS|3|6|0|Codice cliente (fornitori) o fornitore (clienti) associato
 CODCFFATT|3|6|0|Codice cliente (fornitore) cui fatturare
 DIPPUBB|8|1|0|Dipendente Pubblico
-ENTE|1|50|0|Ente di appartenenza (Dipendente Pubblico)
-INDENTE|1|50|0|Indirizzo ente (Dipendente Pubblico)
+ENTE|1|4|0|Codice ente pubblico di appartenenza (Dipendente Pubblico)
 6
 TIPOCF+CODCF| 
 TIPOCF+UPPER(RAGSOC)|X