Patch level : 12.0 676

Files correlati     : ve0.exe ve1.exe ve5.exe ve6.exe vemenu.men ve0200d.msk vetbprs.msk vetbspp.msk
Commento            :

Aggiunto codice quadro e codice tri

src/ve/vetbprs.h

@@ -19,7 +19,12 @@
 #define PRS_DESCRCONTOA   119
 #define PRS_CAMPI         120
 #define PRS_QTA           121
-#define PRS_SEZIONE    122
+#define PRS_SEZIONE				122
+#define PRS_CODCAUS770		123
+#define PRS_CODQUA				124
+#define PRS_CODTRB				125
+#define PRS_CODTRB1				126
+
 #define PRS_CDC_V1        131
 #define PRS_CDC_A1        151
 

src/ve/vetbprs.uml

@@ -295,6 +295,61 @@ BEGIN
   ADD RUN CG0 -0
 END
 
+STRING PRS_CODTRB 4
+BEGIN
+PROMPT 2 20  "Cod. tributo   "
+FIELD S10
+FLAG "U"
+USE %TRB
+INPUT CODTAB  PRS_CODTRB
+DISPLAY "Codice " CODTAB
+DISPLAY "Descrizione@50" S0
+OUTPUT PRS_CODTRB CODTAB
+OUTPUT PRS_CODTRB1 S0
+CHECKTYPE NORMAL
+END
+
+STRING PRS_CODTRB1 50 22
+BEGIN
+PROMPT 25 20 ""
+USE %TRB KEY 2
+INPUT S0  PRS_CODTRB1
+DISPLAY "Descrizione@50" S0
+DISPLAY "Codice " CODTAB
+OUTPUT PRS_CODTRB CODTAB
+OUTPUT PRS_CODTRB1 S0
+CHECKTYPE NORMAL
+END
+
+NUMBER PRS_CODCAUS770 2
+BEGIN
+  PROMPT 2 21 "Caus. 770 "
+  USE %CA7 SELECT I0==#PRS_CODTRB
+  INPUT CODTAB PRS_CODCAUS770
+  DISPLAY "Cod.caus." CODTAB
+  DISPLAY "Cod.trib." I0
+  DISPLAY "Art.bil." I3
+  DISPLAY "Quadro "  S1
+  DISPLAY "Descrizione @60" S0
+  OUTPUT PRS_CODCAUS770  CODTAB
+  FIELD I6
+  FLAGS "Z"
+	MODULE 77
+  CHECKTYPE NORMAL
+END
+
+LISTBOX PRS_CODQUA 2 10
+BEGIN
+  PROMPT 20 21 "Quadro    "
+  HELP "Inserire il codice quadro"
+  ITEM "|"          
+  ITEM "LA|Quadro LA"          
+  ITEM "SF|Quadro SF"                     
+  ITEM "SG|Quadro SG"                    
+  WARNING "Manca il codice quadro"
+	FIELD S12
+END
+
 LISTBOX PRS_SEZIONE 6
 BEGIN
   PROMPT 2 23 "Sezione per cooperative "

src/ve/vetbspp.h

@@ -38,6 +38,8 @@
 #define SPP_CDC_A3      142
 #define SPP_CDC_A4      143
 
+#define SPP_CODQUA			160
+
 #ifndef __VETBANAL_H
 #include "vetbanal.h"
 #endif

src/ve/vetbspp.uml

@@ -366,7 +366,6 @@ BEGIN
   CHECKTYPE NORMAL
 END
 
-
 NUMBER SPP_CODCAUS770 2
 BEGIN
   PROMPT 2 21 "Caus. 770 "
@@ -380,12 +379,25 @@ BEGIN
   OUTPUT SPP_CODCAUS770  CODTAB
   FIELD I6
   FLAGS "Z"
+	MODULE 77
   CHECKTYPE NORMAL
 END
 
+LISTBOX SPP_CODQUA 2 10
+BEGIN
+  PROMPT 20 21 "Quadro    "
+  HELP "Inserire il codice quadro"
+  ITEM "|"          
+  ITEM "LA|Quadro LA"          
+  ITEM "SF|Quadro SF"                     
+  ITEM "SG|Quadro SG"                    
+  WARNING "Manca il codice quadro"
+	FIELD S12
+END
+
 LISTBOX SPP_SEZIONE 6
 BEGIN
-  PROMPT 25 21 "Sezione per cooperative "
+  PROMPT 45 21 "Sezione per cooperative "
   FIELD S11[5,5]
   ITEM "D|Dare"
   ITEM "A|Avere"