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

@@ -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

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

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

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