Modifica alle anagrafiche di windows :

Aggiunta la tabella Uffici unici delle entrate (%UUE)


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

ba/bastuue.uml

@@ -0,0 +1,41 @@
+#include "ba3200.h"
+
+PAGE "Stampa uffici concessione" -1 -1 50 8
+
+NUMBER F_INIZIO1 3
+BEGIN
+  PROMPT 3 1 "Da codice  "
+  USE %UUE
+  INPUT CODTAB F_INIZIO1
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Dizione@30" S0
+  OUTPUT F_INIZIO1 CODTAB
+  FIELD CODTAB
+  GROUP 1
+  FLAGS "RZ"
+END
+
+NUMBER F_FINE1 3
+BEGIN
+  PROMPT 3 3 "A codice   "
+  COPY USE F_INIZIO1
+  INPUT CODTAB F_FINE1
+  COPY DISPLAY F_INIZIO1
+  OUTPUT F_FINE1 CODTAB
+  FIELD CODTAB
+  GROUP 2
+  FLAGS "RZ"
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK

ba/batbuue.h

@@ -0,0 +1,8 @@
+#define F_CODICE 100
+#define F_DIZIONE 101
+#define F_INDIRIZZO 102
+#define F_CIV 103
+#define F_CODCOM 104
+#define F_DENCOM 105
+#define F_PROVCOM 109
+#define F_CAP 106

ba/batbuue.rpt

@@ -0,0 +1,15 @@
+[Headers]
+132
+Tabella concessioni
+1|@2g%s|Codice
+1|@10g%s|Descrizione ufficio concessioni
+1|@62g%s|Indirizzo ufficio
+1|@99g%s|N. civico
+1|@111g%s|Comune
+
+[Rows]
+1|CODTAB|@2g@6,ls
+1|S0|@10g@50,ls
+1|S1|@62g@35,ls
+1|S3|@99g@10,ls
+1|S7|@111g@6,ls

ba/batbuue.uml

@@ -0,0 +1,88 @@
+#include "batbuue.h"
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Uffici concessioni" -1 -1 78 19
+
+NUMBER F_CODICE 3
+BEGIN
+  PROMPT 3 1 "Codice         "
+  FIELD CODTAB
+  FLAGS "Z"
+  KEY 1
+  USE %UUE
+  INPUT CODTAB F_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Dizione@50" S0
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_DIZIONE S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DIZIONE 30
+BEGIN
+  PROMPT 3 3 "Dizione        "
+  FIELD S0
+  KEY 2
+  USE %UUE KEY 2
+  INPUT S0 F_DIZIONE
+  DISPLAY "Dizione@50" S0
+  DISPLAY "Codice" CODTAB
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_DIZIONE S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_INDIRIZZO 35
+BEGIN
+  PROMPT 3 5 "Indirizzo      "
+  FIELD S1
+END
+
+STRING F_CIV 5
+BEGIN
+  PROMPT 56 5 "N."
+  FIELD S3
+END
+
+STRING F_CODCOM 4
+BEGIN
+  PROMPT 3 7 "Codice comune  "
+  FIELD S6
+  FLAGS "U"
+  USE LF_COMUNI KEY 1
+  INPUT STATO ""
+  INPUT COM F_CODCOM
+#include <comdcod.h>
+  OUTPUT F_CODCOM COM
+  OUTPUT F_DENCOM DENCOM
+  OUTPUT F_PROVCOM PROVCOM
+  OUTPUT F_CAP CAPCOM
+  CHECKTYPE REQUIRED
+  WARNING "Comune non presente"
+END
+
+STRING F_DENCOM 50
+BEGIN
+  PROMPT 3 9 "Denominazione  "
+  FLAGS "D"
+END
+
+STRING F_PROVCOM 2
+BEGIN
+  PROMPT 3 11 "Provincia      "
+  FLAGS "D"
+END
+
+STRING F_CAP 5
+BEGIN
+  PROMPT 56 11 "CAP    "
+  FIELD S7
+END
+
+ENDPAGE
+ENDMASK