Correzioni sulle tabelle di Pg

git-svn-id: svn://10.65.10.50/trunk@3609 c028cbd2-c16b-5b4b-a496-9718f37d4682
1996-09-17 16:13:35 +00:00 · 1996-09-17 16:13:35 +00:00 · 40137908ec
commit 40137908ec
parent b2d3d0b29c
24 changed files with 344 additions and 213 deletions
--- a/ba/bastage.uml
+++ b/ba/bastage.uml
@ -6,7 +6,6 @@ BEGIN
 PROMPT 2 1 "Da codice "
 FLAGS "U"
 HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
-FIELD LF_TABCOM->CODTAB
 USE AGE
 INPUT CODTAB F_INIZIO1
 DISPLAY "Codice" CODTAB
@ -20,7 +19,6 @@ BEGIN
 PROMPT 2 3 "A codice  "
 FLAGS "U"
 HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
-FIELD LF_TABCOM->CODTAB
 COPY USE F_INIZIO1
 INPUT CODTAB F_FINE1
 COPY DISPLAY F_INIZIO1
--- a/ba/bastzon.uml
+++ b/ba/bastzon.uml
@ -5,9 +5,9 @@ STRING F_INIZIO1 3
 BEGIN
  PROMPT 2 1 "Da codice "
  FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
-        FIELD LF_TABCOM->CODTAB
-  USE %ZON
+  HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD CODTAB
+  USE ZON
  INPUT CODTAB F_INIZIO1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
@ -19,8 +19,8 @@ STRING F_FINE1 3
 BEGIN
  PROMPT 2 3 "A codice  "
  FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
-        FIELD LF_TABCOM->CODTAB
+  HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD CODTAB
  COPY USE F_INIZIO1
  INPUT CODTAB F_FINE1
  COPY DISPLAY F_INIZIO1
--- a/ba/batbabe.rpt
+++ b/ba/batbabe.rpt
@ -1,10 +1,10 @@
 [Headers]
 80
-Tabella Aspetto dei Beni
+Tabella Aspetto dei beni
 1|@3g%s|Codice
 1|@14g%s|Descrizione

 [Rows]
 1|CODTAB|@3g@3,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls

--- a/ba/batbabe.uml
+++ b/ba/batbabe.uml
@ -8,30 +8,36 @@ ENDPAGE

 PAGE "Tabella Aspetto dei Beni" -1 -1 78 8

-STRING F_CODICE 2
+GROUPBOX DLG_NULL 75 7
+BEGIN
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
+STRING F_CODICE 3
 BEGIN
  PROMPT 4 2 "Codice      "
  FIELD CODTAB
-  FLAGS "UZ"
+  FLAGS "U"
  KEY 1
  USE %ABE
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione @30" S0
+  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
 END

-STRING F_DESCR 30
+STRING F_DESCR 50
 BEGIN
  PROMPT 4 4 "Descrizione "
-  FIELD LF_TABCOM->S0
+  FIELD S0
  KEY 2
  USE %ABE KEY 2
  INPUT CODTAB F_CODICE
  INPUT S0 F_DESCR
-  DISPLAY "Descrizione @30" S0
+  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
--- a/ba/batbage.rpt
+++ b/ba/batbage.rpt
@ -1,10 +1,20 @@
 [Headers]
-80
+132
 Tabella Agenti
 1|@3g%s|Codice
 1|@14g%s|Descrizione
+1|@68g%s|Provvigione vendite da
+1|@107g%s|Provvigione

 [Rows]
-1|CODTAB|@3g@5,ls
-1|S0|@14g@30,ls
+1|CODTAB|@3g@5s
+1|S0|@14g@50,ls
+1|S6|@68g@35t
+1|R0|@107g@5,rpn|##,@@

+[Translations]
+5|S6| |Configurazione ditta
+5|S6|V|Categoria vendita
+5|S6|A|Agenti
+5|S6|C|Clienti
+5|S6|L|Condizioni di vendita
--- a/ba/batbage.uml
+++ b/ba/batbage.uml
@ -8,6 +8,12 @@ ENDPAGE

 PAGE "Tabella Codici Agenti" -1 -1 78 8

+GROUPBOX DLG_NULL 75 7
+BEGIN
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
 STRING F_CODICE 5
 BEGIN
  PROMPT 4 2 "Codice      "
@ -39,7 +45,7 @@ END
 LIST F_TIPOPERC 33
 BEGIN
  FIELD S6
-  PROMPT 4 6 "Provvigione vendite da       "
+  PROMPT 4 8 "Provvigione vendite da       "
  ITEM " |Configurazione ditta"
  ITEM "V|Categoria vendita"
  ITEM "A|Agenti "
@ -49,7 +55,7 @@ END

 NUMBER F_PROVV 5 2
 BEGIN
-  PROMPT 4 8 "Provvigione "
+  PROMPT 4 10 "Provvigione "
  HELP "Percentuale di provvigione della categoria"
  FIELD R0
 END
--- a/ba/batbcco.rpt
+++ b/ba/batbcco.rpt
@ -1,10 +1,18 @@
 [Headers]
-80
+132
 Tabella Categorie contabili
 1|@3g%s|Codice
 1|@14g%s|Descrizione
+1|@68g%s|Conto di vendita
+1|@88g%s|Conto di acquisto

 [Rows]
 1|CODTAB|@3g@2,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls
+1|I3|@68g@3n
+1|I4|@73g@3n
+1|I5|@78g@6n
+1|I0|@88g@3n
+1|I1|@93g@3n
+1|I2|@98g@6n

--- a/ba/batbcco.uml
+++ b/ba/batbcco.uml
@ -34,7 +34,7 @@ STRING F_DESCR 50
 BEGIN
  PROMPT 2 4 "Descrizione "
  HELP "Descrizione della categoria contabile"
-  FIELD LF_TABCOM->S0
+  FIELD S0
  KEY 2
  USE CCO KEY 2
  INPUT CODTAB F_CODICE
@ -46,67 +46,35 @@ BEGIN
  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   "
+  PROMPT 2 8 "Conto di vendita   "
  FIELD I3
 END

 NUMBER F_CONTOV 3
 BEGIN
-  PROMPT  26 11 ""
+  PROMPT  26 8 ""
  FIELD I4
+  USE LF_PCON SELECT INDBIL=="4"
+  INPUT GRUPPO      F_GRUPPOV
+  INPUT CONTO       F_CONTOV
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_GRUPPOV  GRUPPO
+  OUTPUT F_CONTOV  CONTO
+  CHECKTYPE NORMAL
+  ADD RUN CG0 -0
+  WARNING "Il conto deve essere un ricavo"
 END

 NUMBER F_SOTTOCV 6
 BEGIN
-  PROMPT  31 11 ""
+  PROMPT  33 8 ""
  FIELD I5
-  USE LF_PCON
+  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
+  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO F_GRUPPOV
  INPUT CONTO  F_CONTOV
  INPUT SOTTOCONTO F_SOTTOCV
@ -119,19 +87,86 @@ BEGIN
  OUTPUT F_SOTTOCV SOTTOCONTO
  OUTPUT F_DESCRV  DESCR
  CHECKTYPE NORMAL
+  WARNING "Sottoconto errato"
+  ADD RUN CG0 -0
 END

 STRING F_DESCRV 50
 BEGIN
-  PROMPT  21 12 ""
+  PROMPT  21 9 ""
  FLAG "U"
-  USE LF_PCON KEY 2
+  USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
+  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT DESCR F_DESCRV
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCV
+  WARNING "Il conto deve essere un ricavo"
+  ADD RUN CG0 -0
+END
+
+NUMBER F_GRUPPOA 3
+BEGIN
+   PROMPT 2  11 "Conto d'acquisto   "
+   FIELD I0
+END
+
+NUMBER F_CONTOA 3
+BEGIN
+  PROMPT  26 11 ""
+  FIELD I1
+  USE LF_PCON SELECT INDBIL=="3"
+  INPUT GRUPPO      F_GRUPPOA
+  INPUT CONTO       F_CONTOA
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_GRUPPOA  GRUPPO
+  OUTPUT F_CONTOA  CONTO
+  CHECKTYPE NORMAL
+  WARNING "Il conto deve essere un costo"
+  ADD RUN CG0 -0
+END
+
+NUMBER F_SOTTOCA 6
+BEGIN
+  PROMPT  33 11 ""
+  FIELD I2
+  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
+  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
+  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
+  WARNING "Sottoconto errato"
+  ADD RUN CG0 -0
+END
+
+STRING F_DESCRA 50
+BEGIN
+  PROMPT  21 12 ""
+  FLAG "U"
+  USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
+  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
+  INPUT DESCR F_DESCRA
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto"  CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_SOTTOCA
+  CHECKTYPE NORMAL
+  WARNING "Il conto deve essere un ricavo"
+  ADD RUN CG0 -0
 END

 ENDPAGE
--- a/ba/batbcfi.rpt
+++ b/ba/batbcfi.rpt
@ -6,5 +6,5 @@ Tabella Categorie Finanziarie

 [Rows]
 1|CODTAB|@3g@2,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls

--- a/ba/batbcfi.uml
+++ b/ba/batbcfi.uml
@ -8,6 +8,12 @@ ENDPAGE

 PAGE "Tabella Categorie Finanziarie" -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      "
@ -15,7 +21,7 @@ BEGIN
  FIELD CODTAB
  FLAGS "U"
  KEY 1
-  USE %CFI 
+  USE %CFI
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @30" S0
@ -24,7 +30,7 @@ BEGIN
  CHECKTYPE REQUIRED
 END

-STRING F_DESCR 30
+STRING F_DESCR 50
 BEGIN
  PROMPT 4 4 "Descrizione "
  HELP "Descrizione della categoria fiinanziaria"
--- a/ba/batbctr.rpt
+++ b/ba/batbctr.rpt
@ -6,5 +6,5 @@ Tabella Causali di Trasporto

 [Rows]
 1|CODTAB|@3g@3,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls

--- a/ba/batbctr.uml
+++ b/ba/batbctr.uml
@ -8,30 +8,36 @@ ENDPAGE

 PAGE "Tabella Causali di Trasporto" -1 -1 78 8

+GROUPBOX DLG_NULL 75 7
+BEGIN
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
 STRING F_CODICE 3
 BEGIN
  PROMPT 4 2 "Codice      "
  FIELD CODTAB
-  FLAGS "UZ"
+  FLAGS "U"
  KEY 1
  USE %CTR
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione @30" S0
+  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
 END

-STRING F_DESCR 30
+STRING F_DESCR 50
 BEGIN
  PROMPT 4 4 "Descrizione "
-  FIELD LF_TABCOM->S0
+  FIELD S0
  KEY 2
  USE %CTR KEY 2
  INPUT CODTAB F_CODICE
  INPUT S0 F_DESCR
-  DISPLAY "Descrizione @30" S0
+  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
--- a/ba/batbcve.rpt
+++ b/ba/batbcve.rpt
@ -1,16 +1,23 @@
 [Headers]
 132
 Tabella Categorie Vendita
-1|@3g%s|Codice
-1|@14g%s|Descrizione
-1|@46g%s|Provvigione
-1|@60g%s|Gruppo
-1|@68g%s|Conto
+1|@78g%s|Conto cliente
+1|@93g%s|Conto di vendita
+2|@3g%s|Codice
+2|@14g%s|Descrizione
+2|@66g%s|Provvigione
+2|@78g%s|Gruppo
+2|@85g%s|Conto
+2|@93g%s|Gruppo
+2|@100g%s|Conto
+2|@106g%s|Sottoconto

 [Rows]
 1|CODTAB|@3g@2,ls
-1|S0|@14g@30,ls
-1|R0|@46g@5,ls
-1|I0|@60g@2,ls
-1|I1|@68g@2,ls
-
+1|S0|@14g@50,ls
+1|R0|@66g@5,rpn|##,@@
+1|I1|@78g@3n
+1|I2|@85g@3n
+1|I3|@93g@3n
+1|I4|@100g@3n
+1|I5|@106g@6n
--- a/ba/batbcve.uml
+++ b/ba/batbcve.uml
@ -40,7 +40,7 @@ STRING F_DESCR 50
 BEGIN
  PROMPT 2 4 "Descrizione "
  HELP "Descrizione della categoria di vendita"
-  FIELD LF_TABCOM->S0
+  FIELD S0
  KEY 2
  USE CVE KEY 2
  INPUT CODTAB F_CODICE
@ -62,7 +62,7 @@ NUMBER F_PROVV 5 2
 BEGIN
  PROMPT 2 8 "Provvigione        "
  HELP "Percentuale di provvigione della categoria"
-  FIELD LF_TABCOM->R0
+  FIELD R0
 END

 NUMBER F_GRUPPO 3
@ -106,19 +106,32 @@ NUMBER F_GRUPPOV 3
 BEGIN
   PROMPT 2 13 "Conto di vendita   "
   FIELD I3
+   CHECKTYPE NORMAL
 END

 NUMBER F_CONTOV 3
 BEGIN
   PROMPT  26 13 ""
   FIELD I4
+   USE LF_PCON SELECT INDBIL=="4"
+   INPUT GRUPPO      F_GRUPPOV
+   INPUT CONTO       F_CONTOV
+   DISPLAY "Gruppo" GRUPPO
+   DISPLAY "Conto" CONTO
+   DISPLAY "Descrizione@50" DESCR
+   OUTPUT F_GRUPPOV  GRUPPO
+   OUTPUT F_CONTOV  CONTO
+   CHECKTYPE NORMAL
+   ADD RUN CG0 -0
+   WARNING "Il conto deve essere un ricavo"
 END

 NUMBER F_SOTTOCV 6
 BEGIN
-   PROMPT  31 13 ""
+   PROMPT  33 13 ""
   FIELD I5
-   USE LF_PCON
+   USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
+   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   INPUT GRUPPO F_GRUPPOV
   INPUT CONTO  F_CONTOV
   INPUT SOTTOCONTO F_SOTTOCV
@ -131,19 +144,25 @@ BEGIN
   OUTPUT F_SOTTOCV SOTTOCONTO
   OUTPUT F_DESCRV  DESCR
   CHECKTYPE NORMAL
+   WARNING "Sottoconto errato"
+   ADD RUN CG0 -0
 END

 STRING F_DESCRV 50
 BEGIN
   PROMPT  21 14 ""
   FLAG "U"
-   USE LF_PCON KEY 2
+   USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
+   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   INPUT DESCR F_DESCRV
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCV
+   CHECKTYPE NORMAL
+   WARNING "Il conto deve essere un ricavo"
+   ADD RUN CG0 -0
 END

 ENDPAGE
--- a/ba/batbleg.rpt
+++ b/ba/batbleg.rpt
@ -6,5 +6,5 @@ Tabella Legali per contenzioso

 [Rows]
 1|CODTAB|@3g@2,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls

--- a/ba/batbmsp.rpt
+++ b/ba/batbmsp.rpt
@ -6,5 +6,5 @@ Tabella Modalita' di spedizione

 [Rows]
 1|CODTAB|@3g@2,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls

--- a/ba/batbndo.rpt
+++ b/ba/batbndo.rpt
@ -6,5 +6,5 @@ Tabella Note Documento

 [Rows]
 1|CODTAB|@3g@2,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls

--- a/ba/batbnot.h
+++ b/ba/batbnot.h
@ -1,11 +1,8 @@
-
-
 //      campi maschera batb%not.msk

 #define F_CODICE                            101
 #define F_DEST                              102
 #define F_BLOCCA                            103
-#define F_DOCUM                             104



--- a/ba/batbnot.rpt
+++ b/ba/batbnot.rpt
@ -1,14 +1,12 @@
 [Headers]
 80
-Tabella Note Cliente
-1|@3g%s|Codice
-1|@14g%s|Destinazione
-1|@52g%s|Blocca Immissione
-1|@72g%s|Documento
+Tabella Note cliente
+1|@2g%s|Codice
+1|@10g%s|Descrizione
+1|@62g%s|Blocca immissione

 [Rows]
-1|CODTAB|@3g@2,ls
-1|S0|@14g@30,ls
-1|B0|@52g@2,ls
-1|B1|@72g@2,ls
+1|CODTAB|@2g@2s
+1|S0|@10g@50,ls
+1|B0|@62g@2f

--- a/ba/batbnot.uml
+++ b/ba/batbnot.uml
@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2

 ENDPAGE

-PAGE "Tabella Codici Note Cliente" -1 -1 78 8
+PAGE "Tabella Note cliente" -1 -1 78 8

 GROUPBOX DLG_NULL 75 7
 BEGIN
@ -26,11 +26,9 @@ INPUT CODTAB F_CODICE
 DISPLAY "Codice" CODTAB
 DISPLAY "Destinazione@50" S0
 DISPLAY "Blocca immissione" B0
-DISPLAY "Documento"    B1
 OUTPUT F_CODICE CODTAB
 OUTPUT F_DEST S0
 OUTPUT F_BLOCCA B0
-OUTPUT F_DOCUM  B1
 CHECKTYPE REQUIRED
 END

@ -48,7 +46,6 @@ DISPLAY "Documento"    B1
 OUTPUT F_CODICE CODTAB
 OUTPUT F_DEST S0
 OUTPUT F_BLOCCA B0
-OUTPUT F_DOCUM  B1
 CHECKTYPE REQUIRED
 KEY 2
 END
@ -60,11 +57,5 @@ HELP "Indicare se bloccare l'inserimento del documento"
 FIELD LF_TABCOM->B0
 END

-BOOLEAN F_DOCUM
-BEGIN
-PROMPT 4 10 "Documento        "
-FIELD LF_TABCOM->B1
-END
-
 ENDPAGE
 ENDMASK
--- a/ba/batbpor.rpt
+++ b/ba/batbpor.rpt
@ -6,5 +6,5 @@ Tabella Modalita' di spedizione

 [Rows]
 1|CODTAB|@3g@3,ls
-1|S0|@14g@30,ls
+1|S0|@14g@50,ls

--- a/ba/batbvet.h
+++ b/ba/batbvet.h
@ -1,5 +1,3 @@
-
-
 //      campi maschera batb%vet.msk

 #define F_CODVETT                            101
@ -16,6 +14,9 @@
 #define F_DENNAZ                             112
 #define F_CODCOM                             113
 #define F_DENCOM                             114
+#define F_NUM                                115
+#define F_PFAX                               116
+#define F_PTELEX                             117



--- a/ba/batbvet.rpt
+++ b/ba/batbvet.rpt
@ -1,5 +1,5 @@
 [Relations]
-LF_COMUNI;STATO=S8|COM=S9
+13;STATO=S8|COM=S9
 %STA;CODTAB=S8;1;0;200

 [Headers]
@ -8,26 +8,30 @@ Tabella vettori
 1|@2g%s|Codice vettore
 1|@18g%s|Ragione sociale
 1|@70g%s|Indirizzo
+1|@110g%s|N.civico
 2|@2g%s|C.A.P.
 2|@10g%s|Localita'
-2|@33g%s|Comune
-2|@85g%s|Provincia
-2|@98g%s|Stato
+2|@47g%s|Comune
+2|@99g%s|Pr.
+2|@103g%s|Stato
 3|@2g%s|Telefono
-3|@30g%s|Fax
-3|@60g%s|Telex
+3|@40g%s|Fax
+3|@80g%s|Telex


 [Rows]
-1|CODTAB|@2g@14n
+1|CODTAB|@2g@8s
 1|S0|@18g@50,ls
-1|S1|@70g@40,ls
+1|S1[1,35]|@70g@35,ls
+1|S1[36,45]|@110g@10,ls
 2|S7|@2g@5,ls
-2|S5|@10g@20,ls
-2|LF_COMUNI->DENCOM|@33g@50,ls
-2|LF_COMUNI->PROVCOM|@85g@2,ls
-2|-200->S0|@98g@50,ls
-3|S6|@2g@5,ls
-3|S2|@10g@15,ls
-3|S3|@30g@15,ls
-3|S4|@60g@15,ls
+2|S1[46,70]|@10g@35,ls
+2|13->DENCOM|@47g@50,ls
+2|13->PROVCOM|@99g@2,ls
+2|-200->S0|@103g@25,ls
+3|S5[1,10]|@2g@10,ls
+3|S3|@12g@20,ls
+3|S5[11,20]|@40g@10,ls
+3|S4|@51g@20,ls
+3|S2[1,10]|@80g@10,ls
+3|S2[11,30]|@91g@20,ls
--- a/ba/batbvet.uml
+++ b/ba/batbvet.uml
@ -1,15 +1,21 @@
 #include "batbvet.h"

-TOOLBAR "" 0 20 0 2 
+TOOLBAR "" 0 20 0 2
 #include <toolbar.h>
 ENDPAGE

 PAGE "Vettori" -1 -1 78 15

-NUMBER F_CODVETT 5
+GROUPBOX DLG_NULL 75 7
 BEGIN
-PROMPT 4 1 "Codice vettore  "
-FIELD LF_TABCOM->CODTAB
+ PROMPT 1 0 ""
+ FLAGS "R"
+END
+
+STRING F_CODVETT 5
+BEGIN
+PROMPT 2 2 "Codice vettore  "
+FIELD CODTAB
 HELP "Codice del vettore"
 FLAGS "RZU"
 USE %VET
@ -20,14 +26,13 @@ DISPLAY "Ragione sociale@50" S0
 OUTPUT F_CODVETT CODTAB
 OUTPUT F_RAGSO S0
 KEY 1
-END 
+END

 STRING F_RAGSO 50
 BEGIN
-PROMPT 4 3 "Ragione sociale "
+PROMPT 2 4 "Ragione sociale "
 HELP "Ragione sociale del vettore"
-FIELD LF_TABCOM->S0
-FLAGS "U"
+FIELD S0
 USE %VET KEY 2
 CHECKTYPE REQUIRED
 INPUT S0 F_RAGSO
@ -36,69 +41,54 @@ DISPLAY "Ragione sociale@50" S0
 OUTPUT F_CODVETT CODTAB
 OUTPUT F_RAGSO S0
 KEY 2
-END 
+END

-STRING F_IND 50
+GROUPBOX DLG_NULL 75 6
 BEGIN
-PROMPT 4 5 "Indirizzo       "
+ PROMPT 1 7 "Recapito"
+ FLAGS "R"
+END
+
+STRING F_IND 35
+BEGIN
+PROMPT 2 8 "Indirizzo"
 HELP "Indirizzo di residenza del vettore"
-FIELD LF_TABCOM->S1
-FLAGS "U"
-END 
+FIELD S1[1,35]
+END
+
+STRING F_NUM 10
+BEGIN
+PROMPT 58 8 "N."
+HELP "Numero civico del vettore"
+FIELD S1[36,45]
+END
+
+STRING F_LOCALITA 35
+BEGIN
+PROMPT 2 9 "Localita'"
+HELP "Localita' di residenza del vettore"
+FIELD S1[46,70]
+END

 STRING F_CAP 5
 BEGIN
-PROMPT 4 6 "C.A.P.          "
+PROMPT 50 9 "C.A.P."
 HELP "C.A.P. di residenza del vettore"
-FIELD LF_TABCOM->S7
-END
-
-STRING F_LOCALITA 20
-BEGIN
-PROMPT 32 6 "Localita' "
-HELP "Localita' di residenza del vettore"
-FIELD LF_TABCOM->S5
+FIELD S7
 END

 STRING F_PROV 2
 BEGIN
-PROMPT 64 6 "Provincia "
+PROMPT 65 9 "Pr."
 FLAGS "D"
 HELP "Provincia di residenza del vettore"
 END

-NUMBER F_CODNAZ 3
-BEGIN
-PROMPT 4 7 "Stato           "
-HELP "Codice nazione di residenza del vettore"
-FIELD LF_TABCOM->S8
-FLAGS "RZ"
-USE %STA
-INPUT CODTAB F_CODNAZ
-DISPLAY "Codice" CODTAB
-DISPLAY "Denominazione@50" S0
-OUTPUT F_CODNAZ CODTAB
-OUTPUT F_DENNAZ S0
-CHECKTYPE NORMAL
-WARNING "Stato assente"
-END
-
-STRING F_DENNAZ 50 30
-BEGIN
-PROMPT 32 7 ""
-USE %STA KEY 2
-INPUT S0 F_DENNAZ
-DISPLAY "Stato@50" S0
-DISPLAY "Codice" CODTAB
-HELP "Nome dello stato del vettore"
-COPY OUTPUT F_CODNAZ
-END
-
 STRING F_CODCOM 4
 BEGIN
-PROMPT 4 8 "Comune          "
+PROMPT 2 10 "Comune   "
 HELP "Codice comune di residenza del vettore"
-FIELD LF_TABCOM->S9
+FIELD S9
 USE LF_COMUNI
 INPUT STATO F_CODNAZ
 INPUT COM F_CODCOM
@ -115,9 +105,9 @@ CHECKTYPE NORMAL
 WARNING "Comune assente"
 END

-STRING F_DENCOM 50 30
+STRING F_DENCOM 50
 BEGIN
-PROMPT 32 8 ""
+PROMPT 20 10 ""
 USE LF_COMUNI KEY 2
 INPUT DENCOM F_DENCOM
 DISPLAY "Comune@50" DENCOM
@ -127,37 +117,86 @@ COPY OUTPUT F_CODCOM
 HELP "Nome del comune del vettore"
 END

-STRING F_PTEL 5
+NUMBER F_CODNAZ 3
 BEGIN
-PROMPT 4 10 "Telefono        "
+PROMPT 2 11 "Stato    "
+HELP "Codice nazione di residenza del vettore"
+FIELD S8
+FLAGS "RZ"
+USE %STA
+INPUT CODTAB F_CODNAZ
+DISPLAY "Codice" CODTAB
+DISPLAY "Denominazione@50" S0
+OUTPUT F_CODNAZ CODTAB
+OUTPUT F_DENNAZ S0
+CHECKTYPE NORMAL
+WARNING "Stato assente"
+END
+
+STRING F_DENNAZ 50
+BEGIN
+PROMPT 20 11 ""
+USE %STA KEY 2
+INPUT S0 F_DENNAZ
+DISPLAY "Stato@50" S0
+DISPLAY "Codice" CODTAB
+HELP "Nome dello stato del vettore"
+COPY OUTPUT F_CODNAZ
+END
+
+GROUPBOX DLG_NULL 75 5
+BEGIN
+ PROMPT 1 13 "Numeri telefonici"
+ FLAGS "R"
+END
+
+STRING F_PTEL 10
+BEGIN
+PROMPT 2 14 "Telefono  "
 HELP "Prefisso telefonico del vettore"
-FIELD LF_TABCOM->S6
+FIELD S5[1,10]
 FLAGS "U"
-END 
+END

-STRING F_TEL 15
+STRING F_TEL 20
 BEGIN
-PROMPT 31 10 ""
+PROMPT 30 14 ""
 HELP "Numero telefonico del vettore"
-FIELD LF_TABCOM->S2
+FIELD S3
 FLAGS "U"
-END 
+END

-STRING F_FAX 15
+STRING F_PFAX 10
 BEGIN
-PROMPT 4 11 "Fax             "
+PROMPT 2 15 "Fax       "
 HELP "Numero di Fax del vettore"
-FIELD LF_TABCOM->S3
+FIELD S5[11,20]
 FLAGS "U"
-END 
+END

-STRING F_TELEX 15
+STRING F_FAX 20
 BEGIN
-PROMPT 4 12 "Telex           "
-HELP "Numero di Telex del vettore"
-FIELD LF_TABCOM->S4
+PROMPT 30 15 ""
+HELP "Numero di Fax del vettore"
+FIELD S4
 FLAGS "U"
-END 
+END
+
+STRING F_PTELEX 10
+BEGIN
+PROMPT 2 16 "Telex     "
+HELP "Numero di Telex del vettore"
+FIELD S2[1,10]
+FLAGS "U"
+END
+
+STRING F_TELEX 20
+BEGIN
+PROMPT 30 16 ""
+HELP "Numero di Telex del vettore"
+FIELD S2[11,30]
+FLAGS "U"
+END


 ENDPAGE