From 87b15df3d524ef8fb1de7b4d3a78a9edc5f9b78a Mon Sep 17 00:00:00 2001
From: cris <cris@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 23 Apr 2002 13:05:41 +0000
Subject: [PATCH] Patch level         : 1.7 244 Files correlati     : ve2.exe
 batbprs.msk ve2400.msk vearea.men vestpci.msk vetbpci.rpt vetbpci.msk
 Ricompilazione Demo : [ ] Commento            : aggiunta tabella piano dei
 conti industriale

git-svn-id: svn://10.65.10.50/trunk@10179 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ve/vestpci.uml | 81 ++++++++++++++++++++++++++++++++++++++++++++++++++
 ve/vetbpci.h   |  6 ++++
 ve/vetbpci.rpt | 13 ++++++++
 ve/vetbpci.uml | 78 ++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 178 insertions(+)
 create mode 100755 ve/vestpci.uml
 create mode 100755 ve/vetbpci.h
 create mode 100755 ve/vetbpci.rpt
 create mode 100755 ve/vetbpci.uml

diff --git a/ve/vestpci.uml b/ve/vestpci.uml
new file mode 100755
index 000000000..6889f1e7c
--- /dev/null
+++ b/ve/vestpci.uml
@@ -0,0 +1,81 @@
+#include "../ba/ba3200.h"
+
+PAGE "Stampa Tabella Piano dei conti indutriale" -1 -1 58 8
+
+NUMBER F_INIZIO1 3
+BEGIN
+  PROMPT 2 2 "Da codice "
+  USE PCI
+  INPUT CODTAB[1,3] F_INIZIO1
+  INPUT CODTAB[4,6] F_INIZIO2
+  INPUT CODTAB[7,12] F_INIZIO3
+  DISPLAY "Gruppo" CODTAB[1,3]
+  DISPLAY "Conto" CODTAB[4,6]
+  DISPLAY "Sottoconto" CODTAB[7,12]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_INIZIO1 CODTAB[1,3]
+  OUTPUT F_INIZIO2 CODTAB[4,6]
+  OUTPUT F_INIZIO3 CODTAB[7,12]
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
+NUMBER F_INIZIO2 3
+BEGIN
+  PROMPT 19 2 ""
+  COPY ALL F_INIZIO1
+  GROUP 1
+END
+
+NUMBER F_INIZIO3 6
+BEGIN
+  PROMPT 26 2 ""
+  COPY ALL F_INIZIO1
+  GROUP 1
+END
+
+NUMBER F_FINE1 3
+BEGIN
+  PROMPT 2 3 "A codice  "
+  USE PCI
+  INPUT CODTAB[1,3] F_FINE1
+  INPUT CODTAB[4,6] F_FINE2
+  INPUT CODTAB[7,12] F_FINE3
+  DISPLAY "Gruppo" CODTAB[1,3]
+  DISPLAY "Conto" CODTAB[4,6]
+  DISPLAY "Sottoconto" CODTAB[7,12]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_FINE1 CODTAB[1,3]
+  OUTPUT F_FINE2 CODTAB[4,6]
+  OUTPUT F_FINE3 CODTAB[7,12]
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+NUMBER F_FINE2 3
+BEGIN
+  PROMPT 19 3 ""
+  COPY ALL F_FINE1
+  GROUP 2
+END
+
+NUMBER F_FINE3 6
+BEGIN
+  PROMPT 26 3 ""
+  COPY ALL F_FINE1
+  GROUP 2
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK
diff --git a/ve/vetbpci.h b/ve/vetbpci.h
new file mode 100755
index 000000000..d601173bc
--- /dev/null
+++ b/ve/vetbpci.h
@@ -0,0 +1,6 @@
+//campi maschera vetbpci
+
+#define F_CODICE1                              101
+#define F_CODICE2                              102
+#define F_CODICE3                              103
+#define F_DESCR                                104
diff --git a/ve/vetbpci.rpt b/ve/vetbpci.rpt
new file mode 100755
index 000000000..8652aeb81
--- /dev/null
+++ b/ve/vetbpci.rpt
@@ -0,0 +1,13 @@
+[Headers]
+132
+Tabella Piano conti industriale
+1|@2g%s|Gruppo
+1|@9g%s|Conto
+1|@15g%s|Sottoc.
+1|@23g%s|Descrizione
+
+[Rows]
+1|CODTAB[1,3]|@2g@3s
+1|CODTAB[4,6]|@9g@3s
+1|CODTAB[7,12]|@15g@6s
+1|S0|@23g@50,ls
diff --git a/ve/vetbpci.uml b/ve/vetbpci.uml
new file mode 100755
index 000000000..de73124e5
--- /dev/null
+++ b/ve/vetbpci.uml
@@ -0,0 +1,78 @@
+#include "vetbpci.h"
+
+TOOLBAR "" 0 -3 0 3
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Tabella piano dei conti industriale" -1 -1 78 18
+
+GROUPBOX DLG_NULL 75 8
+BEGIN
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
+NUMBER F_CODICE1 3
+BEGIN
+  PROMPT 2 2 "Gruppo      "
+  USE PCI
+  FIELD CODTAB[1,3]
+  KEY 1
+  INPUT CODTAB[1,3] F_CODICE1
+  INPUT CODTAB[4,6] F_CODICE2
+  INPUT CODTAB[7,12] F_CODICE3
+  DISPLAY "Gruppo" CODTAB[1,3]
+  DISPLAY "Conto" CODTAB[4,6]
+  DISPLAY "Sottoconto" CODTAB[7,12]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODICE1 CODTAB[1,3]
+  OUTPUT F_CODICE2 CODTAB[4,6]
+  OUTPUT F_CODICE3 CODTAB[7,12]
+  OUTPUT F_DESCR S0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_CODICE2 3
+BEGIN
+  PROMPT 2 3 "Conto       "
+  USE PCI
+  FIELD CODTAB[4,6]
+  KEY 1
+  COPY INPUT F_CODICE1
+  COPY DISPLAY F_CODICE1
+  COPY OUTPUT F_CODICE1
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_CODICE3 6
+BEGIN
+  PROMPT 2 4 "Sottoconto  "
+  USE PCI
+  FIELD CODTAB[7,12]
+  KEY 1
+  COPY INPUT F_CODICE1
+  COPY DISPLAY F_CODICE1
+  COPY OUTPUT F_CODICE1
+  CHECKTYPE NORMAL
+END
+
+STRING F_DESCR 50
+BEGIN
+  PROMPT 2 6 "Descrizione "
+  FIELD S0
+  KEY 2
+  USE PCI KEY 2
+  INPUT S0 F_DESCR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Gruppo" CODTAB[1,3]
+  DISPLAY "Conto" CODTAB[4,6]
+  DISPLAY "Sottoconto" CODTAB[7,12]
+  COPY OUTPUT F_CODICE1
+  CHECKTYPE REQUIRED
+  WARNING "Manca la descrizione"
+END
+
+ENDPAGE
+
+ENDMASK