Corretta tabella vettori.

Aggiunta tabella aspetto dei beni.
Aggiunta tabella causale di trasporto.


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

ba/bastabe.uml

@@ -0,0 +1,42 @@
+#include "ba3200.h"
+
+PAGE "Stampa Aspetto dei Beni" -1 -1 50 8
+STRING F_INIZIO1 3
+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 %ABE
+INPUT CODTAB F_INIZIO1
+DISPLAY "Codice" CODTAB
+DISPLAY "Descrizione@30" S0
+OUTPUT F_INIZIO1 CODTAB
+GROUP 1
+END
+
+STRING F_FINE1 3
+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
+OUTPUT F_FINE1 CODTAB
+GROUP 2
+END
+
+BUTTON DLG_OK 8 2
+BEGIN
+PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 8 2
+BEGIN
+PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK

ba/bastctr.uml

@@ -0,0 +1,42 @@
+#include "ba3200.h"
+
+PAGE "Stampa Causali di Trasporto" -1 -1 50 8
+STRING F_INIZIO1 3
+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 %CTR
+INPUT CODTAB F_INIZIO1
+DISPLAY "Codice" CODTAB
+DISPLAY "Descrizione@30" S0
+OUTPUT F_INIZIO1 CODTAB
+GROUP 1
+END
+
+STRING F_FINE1 3
+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
+OUTPUT F_FINE1 CODTAB
+GROUP 2
+END
+
+BUTTON DLG_OK 8 2
+BEGIN
+PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 8 2
+BEGIN
+PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK

ba/bastvet.uml

@@ -37,7 +37,7 @@ END
 
 BUTTON DLG_QUIT 8 2
 BEGIN
-PROMPT -22 -3 ""
+PROMPT -22 -1 ""
 END
 
 ENDPAGE

ba/batbabe.h

@@ -0,0 +1,7 @@
+
+//      campi maschera batb%abe.msk
+
+#define F_CODICE                            101
+#define F_DESCR                             102
+
+

ba/batbabe.rpt

@@ -0,0 +1,10 @@
+[Headers]
+80
+Tabella Aspetto dei Beni
+1|@3g%s|Codice
+1|@14g%s|Descrizione
+
+[Rows]
+1|CODTAB|@3g@3,ls
+1|S0|@14g@30,ls
+

ba/batbabe.uml

@@ -0,0 +1,43 @@
+#include "batbabe.h"
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Tabella Aspetto dei Beni" -1 -1 78 8
+
+STRING F_CODICE 3
+BEGIN
+  PROMPT 4 2 "Codice      "
+  FIELD CODTAB
+  FLAGS "UZ"
+  KEY 1
+  USE %ABE
+  INPUT CODTAB F_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione @30" S0
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_DESCR S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 30
+BEGIN
+  PROMPT 4 4 "Descrizione "
+  FIELD LF_TABCOM->S0
+  KEY 2
+  USE %ABE KEY 2
+  INPUT CODTAB F_CODICE
+  INPUT S0 F_DESCR
+  DISPLAY "Descrizione @30" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODICE
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+ENDMASK
+
+

ba/batbctr.h

@@ -0,0 +1,7 @@
+
+//      campi maschera batb%ctr.msk
+
+#define F_CODICE                            101
+#define F_DESCR                             102
+
+

ba/batbctr.rpt

@@ -0,0 +1,10 @@
+[Headers]
+80
+Tabella Causali di Trasporto
+1|@3g%s|Codice
+1|@14g%s|Descrizione
+
+[Rows]
+1|CODTAB|@3g@3,ls
+1|S0|@14g@30,ls
+

ba/batbctr.uml

@@ -0,0 +1,43 @@
+#include "batbctr.h"
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Tabella Causali di Trasporto" -1 -1 78 8
+
+STRING F_CODICE 3
+BEGIN
+  PROMPT 4 2 "Codice      "
+  FIELD CODTAB
+  FLAGS "UZ"
+  KEY 1
+  USE %CTR
+  INPUT CODTAB F_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione @30" S0
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_DESCR S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 30
+BEGIN
+  PROMPT 4 4 "Descrizione "
+  FIELD LF_TABCOM->S0
+  KEY 2
+  USE %CTR KEY 2
+  INPUT CODTAB F_CODICE
+  INPUT S0 F_DESCR
+  DISPLAY "Descrizione @30" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODICE
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+ENDMASK
+
+

ba/batbvet.h

@@ -4,8 +4,18 @@
 
 #define F_CODVETT                            101
 #define F_RAGSO                              102
-#define F_RESI                               103
+#define F_IND                                103
 #define F_TEL                                104
+#define F_PTEL                               105
+#define F_FAX                                106
+#define F_TELEX                              107
+#define F_CAP                                108
+#define F_LOCALITA                           109
+#define F_PROV                               110
+#define F_CODNAZ                             111
+#define F_DENNAZ                             112
+#define F_CODCOM                             113
+#define F_DENCOM                             114
 
 
 

ba/batbvet.rpt

@@ -1,13 +1,33 @@
+[Relations]
+LF_COMUNI,STATO=S8|COM=S9
+%STA,CODTAB=S8
+
 [Headers]
 132
 Tabella vettori
 1|@2g%s|Codice vettore
 1|@18g%s|Ragione sociale
 1|@70g%s|Indirizzo
-1|@110g%s|Telefono
+2|@2g%s|C.A.P.
+2|@10g%s|Localita'
+2|@33g%s|Comune
+2|@85g%s|Provincia
+2|@98g%s|Stato
+3|@2g%s|Telefono
+3|@30g%s|Fax
+3|@60g%s|Telex
+
 
 [Rows]
 1|CODTAB|@2g@14n
 1|S0|@18g@50,ls
 1|S1|@70g@40,ls
-1|S2|@110g@15,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|%STA->S0|@98g@50,ls
+3|S6|@2g@5,ls
+3|S2|@10g@15,ls
+3|S3|@30g@15,ls
+3|S4|@60g@15,ls

ba/batbvet.uml

@@ -11,7 +11,7 @@ BEGIN
 PROMPT 4 1 "Codice vettore  "
 FIELD LF_TABCOM->CODTAB
 HELP "Codice del vettore"
-FLAGS "RZ"
+FLAGS "RZU"
 USE %VET
 CHECKTYPE REQUIRED
 INPUT CODTAB F_CODVETT
@@ -38,22 +38,128 @@ OUTPUT F_RAGSO S0
 KEY 2
 END 
 
-STRING F_RESI 50
+STRING F_IND 50
 BEGIN
-PROMPT 4 5 "Residenza       "
+PROMPT 4 5 "Indirizzo       "
-HELP "Residenza del vettore"
+HELP "Indirizzo di residenza del vettore"
 FIELD LF_TABCOM->S1
 FLAGS "U"
 END 
 
+STRING F_CAP 5
+BEGIN
+PROMPT 4 6 "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
+END
+
+STRING F_PROV 2
+BEGIN
+PROMPT 64 6 "Provincia "
+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          "
+HELP "Codice comune di residenza del vettore"
+FIELD LF_TABCOM->S9
+USE LF_COMUNI
+INPUT STATO F_CODNAZ
+INPUT COM F_CODCOM
+DISPLAY "Stato" STATO
+DISPLAY "Cod. comune" COM
+DISPLAY "Den. comune@50" DENCOM
+OUTPUT F_CODNAZ STATO
+OUTPUT F_CODCOM COM
+OUTPUT F_DENCOM DENCOM
+OUTPUT F_CAP CAPCOM
+OUTPUT F_PROV PROVCOM
+MESSAGE K_TAB,F_CODNAZ
+CHECKTYPE NORMAL
+WARNING "Comune assente"
+END
+
+STRING F_DENCOM 50 30
+BEGIN
+PROMPT 32 8 ""
+USE LF_COMUNI KEY 2
+INPUT DENCOM F_DENCOM
+DISPLAY "Comune@50" DENCOM
+DISPLAY "Stato" STATO
+DISPLAY "Codice" COM
+COPY OUTPUT F_CODCOM
+HELP "Nome del comune del vettore"
+END
+
+STRING F_PTEL 5
+BEGIN
+PROMPT 4 10 "Telefono        "
+HELP "Prefisso telefonico del vettore"
+FIELD LF_TABCOM->S6
+FLAGS "U"
+END 
+
 STRING F_TEL 15
 BEGIN
-PROMPT 4 7 "Telefono        "
+PROMPT 31 10 ""
 HELP "Numero telefonico del vettore"
 FIELD LF_TABCOM->S2
 FLAGS "U"
 END 
 
+STRING F_FAX 15
+BEGIN
+PROMPT 4 11 "Fax             "
+HELP "Numero di Fax del vettore"
+FIELD LF_TABCOM->S3
+FLAGS "U"
+END 
+
+STRING F_TELEX 15
+BEGIN
+PROMPT 4 12 "Telex           "
+HELP "Numero di Telex del vettore"
+FIELD LF_TABCOM->S4
+FLAGS "U"
+END 
+
+
 ENDPAGE
 
 ENDMASK