Correzioni alle tabelle per la gestione vendite

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

ba/batbasf.uml

@@ -8,7 +8,7 @@ ENDPAGE
 
 PAGE "Codici assoggettamento fiscale" -1 -1 78 8
 
-NUMBER F_CODICE 4
+STRING F_CODICE 1
 BEGIN
 PROMPT 4 2 "Codice      "
 HELP "Codice di assoggettamento fiscale"
@@ -24,7 +24,7 @@ OUTPUT F_DESCR S0
 CHECKTYPE REQUIRED
 END
 
-STRING F_DESCR 50
+STRING F_DESCR 30
 BEGIN
 PROMPT 4 4 "Descrizione "
 HELP "Descrizione dell'assoggettamento fiscale"

ba/batbcve.h

@@ -7,6 +7,7 @@
 #define F_PROVV                             103
 #define F_GRUPPO                            104
 #define F_CONTO                             105
+#define F_DESCONTO                          106
 
 
 

ba/batbcve.uml

@@ -8,6 +8,12 @@ ENDPAGE
 
 PAGE "Categorie di vendita " -1 -1 78 8
 
+GROUPBOX DLG_NULL 78 5
+BEGIN
+ PROMPT 1 1 ""
+ FLAGS "R"
+END
+
 STRING F_CODICE 2
 BEGIN
   PROMPT 4 2 "Codice      "
@@ -52,25 +58,43 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-NUMBER F_PROVV 5 2
+NUMBER F_PROVV 6 2
 BEGIN
         PROMPT 4 6 "Provvigione "
         HELP "Percentuale di provvigione della categoria"
   FIELD LF_TABCOM->R0
 END
 
-NUMBER F_GRUPPO 2
+NUMBER F_GRUPPO 3
 BEGIN
-  PROMPT 30 6 "Gruppo "
+  PROMPT 4 8 "Gruppo      "
-  HELP "Gurppo del piano dei conti della categoria"
+  HELP "Gruppo del piano dei conti della categoria"
-	FIELD LF_TABCOM->I1
+        FIELD I1
 END
 
-NUMBER F_CONTO 2
+NUMBER F_CONTO 3
 BEGIN
-  PROMPT 43 6 "Conto "
+  PROMPT 25 8 "Conto "
   HELP "Conto del piano dei conti della categoria"
-	FIELD LF_TABCOM->I2
+        FIELD I2
+  USE LF_PCON SELECT TMCF="C"
+  INPUT GRUPPO F_GRUPPO
+  INPUT CONTO F_CONTO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_GRUPPO GRUPPO
+  OUTPUT F_CONTO CONTO
+  OUTPUT F_DESCONTO DESCR
+  ADD RUN CG0 -0
+  CHECKTYPE NORMAL
+END
+
+STRING F_DESCONTO 50
+BEGIN
+  PROMPT 16 10 ""
+  FLAGS "D"
+  CHECKTYPE NORMAL
 END
 
 ENDPAGE

ba/batbleg.uml

@@ -8,7 +8,13 @@ ENDPAGE
 
 PAGE "Tabella Codici Legali" -1 -1 78 8
 
-STRING F_CODICE 2
+GROUPBOX DLG_NULL 78 5
+BEGIN 
+ PROMPT 1 1 ""
+ FLAGS "R"
+END 
+
+STRING F_CODICE 3
 BEGIN
 PROMPT 4 2 "Codice      "
 HELP "Codice di riconoscimento codici legali"

ba/batblis.uml

@@ -8,7 +8,7 @@ ENDPAGE
 
 PAGE "Tabella Codici Listino" -1 -1 78 8
 
-STRING F_CODICE 5
+STRING F_CODICE 2
 BEGIN
 PROMPT 4 2 "Codice      "
 Help "Codice listino"
@@ -24,7 +24,7 @@ OUTPUT F_DESCR S0
 CHECKTYPE REQUIRED
 END
 
-STRING F_DESCR 50
+STRING F_DESCR 30
 BEGIN
 PROMPT 4 4 "Descrizione "
 HELP "Descrizione listino"

ba/batblng.uml

@@ -39,10 +39,10 @@ END
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 5 "@bFormato data"
+  PROMPT 1 5 "Formato data"
 END
 
-LIST F_DATA 3 18
+LIST F_DATA 3 20
 BEGIN
   PROMPT 2 6 "Ordine data         "
   ITEM "GMA|Giorno-Mese-Anno"
@@ -53,14 +53,14 @@ END
 
 STRING F_DATASEP 1
 BEGIN
-  PROMPT 42 6 "Separatore data     "
+  PROMPT 44 6 "Separatore data     "
   FIELD S7[4,4]
 END
 
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 9 "@bFormato valuta"
+  PROMPT 1 9 "Formato valuta"
 END
 
 LIST F_MIGLIAIA 1 14
@@ -73,7 +73,7 @@ END
 
 LIST F_DECIMALI 1 14
 BEGIN
-  PROMPT 42 10 "Separatore decimali "
+  PROMPT 44 10 "Separatore decimali "
   ITEM "I|Virgola (,)"
   ITEM "E|Punto   (.)"
   FLAGS "D"

ba/batbmsp.uml

@@ -8,7 +8,13 @@ ENDPAGE
 
 PAGE "Modalita' di Spedizione" -1 -1 78 8
 
-STRING F_CODICE 2
+GROUPBOX DLG_NULL 78 5
+BEGIN
+ PROMPT 1 1 ""
+ FLAGS "R"
+END
+
+STRING F_CODICE 3
 BEGIN
 PROMPT 4 2 "Codice      "
 HELP "Codice della modalit… di spedizione"

ba/batbndo.uml

@@ -8,7 +8,13 @@ ENDPAGE
 
 PAGE "Tabella Note Documento" -1 -1 78 8
 
-STRING F_CODICE 2
+GROUPBOX DLG_NULL 78 5
+BEGIN
+ PROMPT 1 1 ""
+ FLAGS "R"
+END
+
+STRING F_CODICE 3
 BEGIN
   PROMPT 4 2 "Codice      "
   HELP "Codice note documento"

ba/batbnot.uml

@@ -8,6 +8,12 @@ ENDPAGE
 
 PAGE "Tabella Codici Note Cliente" -1 -1 78 8
 
+GROUPBOX DLG_NULL 78 5
+BEGIN
+ PROMPT 1 1 ""
+ FLAGS "R"
+END
+
 STRING F_CODICE 2
 BEGIN
 PROMPT 4 2 "Codice          "
@@ -33,6 +39,18 @@ BEGIN
 PROMPT 4 4 "Descrizione     "
 HELP "Descrizione della nota del cliente"
 FIELD LF_TABCOM->S0
+USE %NOT KEY 2
+INPUT S0 F_DEST
+DISPLAY "Destinazione@30" S0
+DISPLAY "Codice" CODTAB
+DISPLAY "Blocca immobili" B0
+DISPLAY "Documento"    B1
+OUTPUT F_CODICE CODTAB
+OUTPUT F_DEST S0
+OUTPUT F_BLOCCA B0
+OUTPUT F_DOCUM  B1
+CHECKTYPE REQUIRED
+KEY 2
 END
 
 BOOLEAN F_BLOCCA