Aggiunti campi per la gestione del conto acquisti/vendite

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

ba/batbcco.h

@@ -1,8 +1,16 @@
 
 //      campi maschera batb%cco.msk
 
-#define F_CODICE                            101
+#define F_CODICE      101
-#define F_DESCR                             102
+#define F_DESCR       102
+#define F_GRUPPOA     103
+#define F_CONTOA      104
+#define F_SOTTOCA     105
+#define F_DESCRA      106
+#define F_GRUPPOV     107
+#define F_CONTOV      108
+#define F_SOTTOCV     109
+#define F_DESCRV      110
 
 
 

ba/batbcco.uml

@@ -8,9 +8,15 @@ ENDPAGE
 
 PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
 
+GROUPBOX DLG_NULL 75 7
+BEGIN
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
 STRING F_CODICE 2
 BEGIN
-PROMPT 4 2 "Codice      "
+PROMPT 2 2 "Codice      "
 HELP "Codice della categoria contabile"
 FIELD CODTAB
 FLAGS "U"
@@ -24,9 +30,9 @@ OUTPUT F_DESCR S0
 CHECKTYPE REQUIRED
 END
 
-STRING F_DESCR 30
+STRING F_DESCR 50
 BEGIN
-PROMPT 4 4 "Descrizione "
+PROMPT 2 4 "Descrizione "
 HELP "Descrizione della categoria contabile"
 FIELD LF_TABCOM->S0
 KEY 2
@@ -40,5 +46,93 @@ OUTPUT F_DESCR S0
 CHECKTYPE REQUIRED
 END
 
+NUMBER F_GRUPPOA 3
+BEGIN
+   PROMPT 2  8 "Conto d'acquisto   "
+   FIELD I0
+END
+
+NUMBER F_CONTOA 3
+BEGIN
+    PROMPT  26 8 ""
+    FIELD I1
+END
+
+NUMBER F_SOTTOCA 6
+BEGIN
+   PROMPT  31 8 ""
+   FIELD I2
+   USE LF_PCON
+   INPUT GRUPPO F_GRUPPOA
+   INPUT CONTO  F_CONTOA
+   INPUT SOTTOCONTO F_SOTTOCA
+   DISPLAY "Gruppo" GRUPPO
+   DISPLAY "Conto"  CONTO
+   DISPLAY "Sottoconto" SOTTOCONTO
+   DISPLAY "Descrizione@50" DESCR
+   OUTPUT F_GRUPPOA GRUPPO
+   OUTPUT F_CONTOA  CONTO
+   OUTPUT F_SOTTOCA SOTTOCONTO
+   OUTPUT F_DESCRA  DESCR
+   CHECKTYPE NORMAL
+END
+
+STRING F_DESCRA 50
+BEGIN
+   PROMPT  21 9 ""
+   FLAG "U"
+   USE LF_PCON KEY 2
+   INPUT DESCR F_DESCRA
+   DISPLAY "Descrizione@50" DESCR
+   DISPLAY "Gruppo" GRUPPO
+   DISPLAY "Conto"  CONTO
+   DISPLAY "Sottoconto" SOTTOCONTO
+   COPY OUTPUT F_SOTTOCA
+END
+
+NUMBER F_GRUPPOV 3
+BEGIN
+   PROMPT 2 11 "Conto di vendita   "
+   FIELD I3
+END
+
+NUMBER F_CONTOV 3
+BEGIN
+   PROMPT  26 11 ""
+   FIELD I4
+END
+
+NUMBER F_SOTTOCV 6
+BEGIN
+   PROMPT  31 11 ""
+   FIELD I5
+   USE LF_PCON
+   INPUT GRUPPO F_GRUPPOV
+   INPUT CONTO  F_CONTOV
+   INPUT SOTTOCONTO F_SOTTOCV
+   DISPLAY "Gruppo" GRUPPO
+   DISPLAY "Conto"  CONTO
+   DISPLAY "Sottoconto" SOTTOCONTO
+   DISPLAY "Descrizione@50" DESCR
+   OUTPUT F_GRUPPOV GRUPPO
+   OUTPUT F_CONTOV CONTO
+   OUTPUT F_SOTTOCV SOTTOCONTO
+   OUTPUT F_DESCRV  DESCR
+   CHECKTYPE NORMAL
+END
+
+STRING F_DESCRV 50
+BEGIN
+   PROMPT  21 12 ""
+   FLAG "U"
+   USE LF_PCON KEY 2
+   INPUT DESCR F_DESCRV
+   DISPLAY "Descrizione@50" DESCR
+   DISPLAY "Gruppo" GRUPPO
+   DISPLAY "Conto"  CONTO
+   DISPLAY "Sottoconto" SOTTOCONTO
+   COPY OUTPUT F_SOTTOCV
+END
+
 ENDPAGE
 ENDMASK

ba/batbcve.h

@@ -2,12 +2,16 @@
 
 //      campi maschera batb%cve.msk
 
-#define F_CODICE                            101
+#define F_CODICE      101
-#define F_DESCR                             102
+#define F_DESCR       102
-#define F_PROVV                             103
+#define F_PROVV       103
-#define F_GRUPPO                            104
+#define F_GRUPPO      104
-#define F_CONTO                             105
+#define F_CONTO       105
-#define F_DESCONTO                          106
+#define F_DESCONTO    106
+#define F_GRUPPOV     107
+#define F_CONTOV      108
+#define F_SOTTOCV     109
+#define F_DESCRV      110
 
 
 

ba/batbcve.uml

@@ -16,7 +16,7 @@ END
 
 STRING F_CODICE 2
 BEGIN
-  PROMPT 4 2 "Codice      "
+  PROMPT 2 2 "Codice      "
   HELP "Codice della categoria di vendita"
   FIELD CODTAB
   FLAGS "U"
@@ -38,7 +38,7 @@ END
 
 STRING F_DESCR 50
 BEGIN
-  PROMPT 4 4 "Descrizione "
+  PROMPT 2 4 "Descrizione "
   HELP "Descrizione della categoria di vendita"
   FIELD LF_TABCOM->S0
   KEY 2
@@ -60,21 +60,21 @@ END
 
 NUMBER F_PROVV 5 2
 BEGIN
-  PROMPT 4 8 "Provvigione "
+  PROMPT 2 8 "Provvigione        "
   HELP "Percentuale di provvigione della categoria"
   FIELD LF_TABCOM->R0
 END
 
 NUMBER F_GRUPPO 3
 BEGIN
-  PROMPT 4 10 "Gruppo      "
+  PROMPT 2 10 "Conto Cliente      "
   HELP "Gruppo del piano dei conti della categoria"
   FIELD I1
 END
 
 NUMBER F_CONTO 3
 BEGIN
-  PROMPT 25 10 "Conto "
+  PROMPT 26 10 ""
   HELP "Conto del piano dei conti della categoria"
   FIELD I2
   USE LF_PCON SELECT TMCF="C"
@@ -92,9 +92,58 @@ END
 
 STRING F_DESCONTO 50
 BEGIN
-  PROMPT 16 12 ""
+  PROMPT 21 11 ""
-  FLAGS "D"
+  FLAG "U"
-  CHECKTYPE NORMAL
+  USE LF_PCON KEY 2 SELECT TMCF="C"
+  INPUT DESCR F_DESCONTO
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto"  CONTO
+  COPY OUTPUT F_CONTO
+END
+
+NUMBER F_GRUPPOV 3
+BEGIN
+   PROMPT 2 13 "Conto di vendita   "
+   FIELD I3
+END
+
+NUMBER F_CONTOV 3
+BEGIN
+   PROMPT  26 13 ""
+   FIELD I4
+END
+
+NUMBER F_SOTTOCV 6
+BEGIN
+   PROMPT  31 13 ""
+   FIELD I5
+   USE LF_PCON
+   INPUT GRUPPO F_GRUPPOV
+   INPUT CONTO  F_CONTOV
+   INPUT SOTTOCONTO F_SOTTOCV
+   DISPLAY "Gruppo" GRUPPO
+   DISPLAY "Conto"  CONTO
+   DISPLAY "Sottoconto" SOTTOCONTO
+   DISPLAY "Descrizione@50" DESCR
+   OUTPUT F_GRUPPOV GRUPPO
+   OUTPUT F_CONTOV CONTO
+   OUTPUT F_SOTTOCV SOTTOCONTO
+   OUTPUT F_DESCRV  DESCR
+   CHECKTYPE NORMAL
+END
+
+STRING F_DESCRV 50
+BEGIN
+   PROMPT  21 14 ""
+   FLAG "U"
+   USE LF_PCON KEY 2
+   INPUT DESCR F_DESCRV
+   DISPLAY "Descrizione@50" DESCR
+   DISPLAY "Gruppo" GRUPPO
+   DISPLAY "Conto"  CONTO
+   DISPLAY "Sottoconto" SOTTOCONTO
+   COPY OUTPUT F_SOTTOCV
 END
 
 ENDPAGE