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
This commit is contained in:
angelo
parent
6d6de98bad
commit
c02fbdf979
42
ba/bastabe.uml
Executable file
42
ba/bastabe.uml
Executable file
@ -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
|
||||
42
ba/bastctr.uml
Executable file
42
ba/bastctr.uml
Executable file
@ -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
|
||||
@ -37,7 +37,7 @@ END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -3 ""
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
7
ba/batbabe.h
Executable file
7
ba/batbabe.h
Executable file
@ -0,0 +1,7 @@
|
||||
|
||||
// campi maschera batb%abe.msk
|
||||
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
|
||||
|
||||
10
ba/batbabe.rpt
Executable file
10
ba/batbabe.rpt
Executable file
@ -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
|
||||
|
||||
43
ba/batbabe.uml
Executable file
43
ba/batbabe.uml
Executable file
@ -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
|
||||
|
||||
|
||||
7
ba/batbctr.h
Executable file
7
ba/batbctr.h
Executable file
@ -0,0 +1,7 @@
|
||||
|
||||
// campi maschera batb%ctr.msk
|
||||
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
|
||||
|
||||
10
ba/batbctr.rpt
Executable file
10
ba/batbctr.rpt
Executable file
@ -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
|
||||
|
||||
43
ba/batbctr.uml
Executable file
43
ba/batbctr.uml
Executable file
@ -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
|
||||
|
||||
|
||||
12
ba/batbvet.h
12
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
|
||||
|
||||
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
116
ba/batbvet.uml
116
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 "
|
||||
HELP "Residenza del vettore"
|
||||
PROMPT 4 5 "Indirizzo "
|
||||
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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user