root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni sulle tabelle di Pg

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3609 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-09-17 16:13:35 +00:00
parent b2d3d0b29c
commit 40137908ec
24 changed files with 344 additions and 213 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/bastage.uml
View File

@ -6,7 +6,6 @@ BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE AGE USE AGE
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -20,7 +19,6 @@ BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1

10
ba/bastzon.uml
View File

@ -5,9 +5,9 @@ STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
USE %ZON USE ZON
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -19,8 +19,8 @@ STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1

4
ba/batbabe.rpt
View File

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

18
ba/batbabe.uml
View File

@ -8,30 +8,36 @@ ENDPAGE
PAGE "Tabella Aspetto dei Beni" -1 -1 78 8 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 BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB FIELD CODTAB
FLAGS "UZ" FLAGS "U"
KEY 1 KEY 1
USE %ABE USE %ABE
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCR 30 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0 FIELD S0
KEY 2 KEY 2
USE %ABE KEY 2 USE %ABE KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODICE COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED

16
ba/batbage.rpt
View File

@ -1,10 +1,20 @@
[Headers] [Headers]
80 132
Tabella Agenti Tabella Agenti
1|@3g%s|Codice 1|@3g%s|Codice
1|@14g%s|Descrizione 1|@14g%s|Descrizione
1|@68g%s|Provvigione vendite da
1|@107g%s|Provvigione
[Rows] [Rows]
1|CODTAB|@3g@5,ls 1|CODTAB|@3g@5s
1|S0|@14g@30,ls 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

10
ba/batbage.uml
View File

@ -8,6 +8,12 @@ ENDPAGE
PAGE "Tabella Codici Agenti" -1 -1 78 8 PAGE "Tabella Codici Agenti" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 5 STRING F_CODICE 5
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
@ -39,7 +45,7 @@ END
LIST F_TIPOPERC 33 LIST F_TIPOPERC 33
BEGIN BEGIN
FIELD S6 FIELD S6
PROMPT 4 6 "Provvigione vendite da " PROMPT 4 8 "Provvigione vendite da "
ITEM " |Configurazione ditta" ITEM " |Configurazione ditta"
ITEM "V|Categoria vendita" ITEM "V|Categoria vendita"
ITEM "A|Agenti " ITEM "A|Agenti "
@ -49,7 +55,7 @@ END
NUMBER F_PROVV 5 2 NUMBER F_PROVV 5 2
BEGIN BEGIN
PROMPT 4 8 "Provvigione " PROMPT 4 10 "Provvigione "
HELP "Percentuale di provvigione della categoria" HELP "Percentuale di provvigione della categoria"
FIELD R0 FIELD R0
END END

12
ba/batbcco.rpt
View File

@ -1,10 +1,18 @@
[Headers] [Headers]
80 132
Tabella Categorie contabili Tabella Categorie contabili
1|@3g%s|Codice 1|@3g%s|Codice
1|@14g%s|Descrizione 1|@14g%s|Descrizione
1|@68g%s|Conto di vendita
1|@88g%s|Conto di acquisto
[Rows] [Rows]
1|CODTAB|@3g@2,ls 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

137
ba/batbcco.uml
View File

@ -34,7 +34,7 @@ STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria contabile" HELP "Descrizione della categoria contabile"
FIELD LF_TABCOM->S0 FIELD S0
KEY 2 KEY 2
USE CCO KEY 2 USE CCO KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
@ -46,67 +46,35 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END 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 NUMBER F_GRUPPOV 3
BEGIN BEGIN
PROMPT 2 11 "Conto di vendita " PROMPT 2 8 "Conto di vendita "
FIELD I3 FIELD I3
END END
NUMBER F_CONTOV 3 NUMBER F_CONTOV 3
BEGIN BEGIN
PROMPT 26 11 "" PROMPT 26 8 ""
FIELD I4 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 END
NUMBER F_SOTTOCV 6 NUMBER F_SOTTOCV 6
BEGIN BEGIN
PROMPT 31 11 "" PROMPT 33 8 ""
FIELD I5 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 GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV INPUT SOTTOCONTO F_SOTTOCV
@ -119,19 +87,86 @@ BEGIN
OUTPUT F_SOTTOCV SOTTOCONTO OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END END
STRING F_DESCRV 50 STRING F_DESCRV 50
BEGIN BEGIN
PROMPT 21 12 "" PROMPT 21 9 ""
FLAG "U" 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 INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV 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 END
ENDPAGE ENDPAGE

2
ba/batbcfi.rpt
View File

@ -6,5 +6,5 @@ Tabella Categorie Finanziarie
[Rows] [Rows]
1|CODTAB|@3g@2,ls 1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls 1|S0|@14g@50,ls

10
ba/batbcfi.uml
View File

@ -8,6 +8,12 @@ ENDPAGE
PAGE "Tabella Categorie Finanziarie" -1 -1 78 8 PAGE "Tabella Categorie Finanziarie" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
@ -15,7 +21,7 @@ BEGIN
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %CFI USE %CFI
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" S0
@ -24,7 +30,7 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCR 30 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione della categoria fiinanziaria" HELP "Descrizione della categoria fiinanziaria"

2
ba/batbctr.rpt
View File

@ -6,5 +6,5 @@ Tabella Causali di Trasporto
[Rows] [Rows]
1|CODTAB|@3g@3,ls 1|CODTAB|@3g@3,ls
1|S0|@14g@30,ls 1|S0|@14g@50,ls

16
ba/batbctr.uml
View File

@ -8,30 +8,36 @@ ENDPAGE
PAGE "Tabella Causali di Trasporto" -1 -1 78 8 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 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB FIELD CODTAB
FLAGS "UZ" FLAGS "U"
KEY 1 KEY 1
USE %CTR USE %CTR
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCR 30 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0 FIELD S0
KEY 2 KEY 2
USE %CTR KEY 2 USE %CTR KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODICE COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED

27
ba/batbcve.rpt
View File

@ -1,16 +1,23 @@
[Headers] [Headers]
132 132
Tabella Categorie Vendita Tabella Categorie Vendita
1|@3g%s|Codice 1|@78g%s|Conto cliente
1|@14g%s|Descrizione 1|@93g%s|Conto di vendita
1|@46g%s|Provvigione 2|@3g%s|Codice
1|@60g%s|Gruppo 2|@14g%s|Descrizione
1|@68g%s|Conto 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] [Rows]
1|CODTAB|@3g@2,ls 1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls 1|S0|@14g@50,ls
1|R0|@46g@5,ls 1|R0|@66g@5,rpn|##,@@
1|I0|@60g@2,ls 1|I1|@78g@3n
1|I1|@68g@2,ls 1|I2|@85g@3n
1|I3|@93g@3n
1|I4|@100g@3n
1|I5|@106g@6n

29
ba/batbcve.uml
View File

@ -40,7 +40,7 @@ STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria di vendita" HELP "Descrizione della categoria di vendita"
FIELD LF_TABCOM->S0 FIELD S0
KEY 2 KEY 2
USE CVE KEY 2 USE CVE KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
@ -62,7 +62,7 @@ NUMBER F_PROVV 5 2
BEGIN BEGIN
PROMPT 2 8 "Provvigione " PROMPT 2 8 "Provvigione "
HELP "Percentuale di provvigione della categoria" HELP "Percentuale di provvigione della categoria"
FIELD LF_TABCOM->R0 FIELD R0
END END
NUMBER F_GRUPPO 3 NUMBER F_GRUPPO 3
@ -106,19 +106,32 @@ NUMBER F_GRUPPOV 3
BEGIN BEGIN
PROMPT 2 13 "Conto di vendita " PROMPT 2 13 "Conto di vendita "
FIELD I3 FIELD I3
CHECKTYPE NORMAL
END END
NUMBER F_CONTOV 3 NUMBER F_CONTOV 3
BEGIN BEGIN
PROMPT 26 13 "" PROMPT 26 13 ""
FIELD I4 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 END
NUMBER F_SOTTOCV 6 NUMBER F_SOTTOCV 6
BEGIN BEGIN
PROMPT 31 13 "" PROMPT 33 13 ""
FIELD I5 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 GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV INPUT SOTTOCONTO F_SOTTOCV
@ -131,19 +144,25 @@ BEGIN
OUTPUT F_SOTTOCV SOTTOCONTO OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END END
STRING F_DESCRV 50 STRING F_DESCRV 50
BEGIN BEGIN
PROMPT 21 14 "" PROMPT 21 14 ""
FLAG "U" 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 INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV COPY OUTPUT F_SOTTOCV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END END
ENDPAGE ENDPAGE

2
ba/batbleg.rpt
View File

@ -6,5 +6,5 @@ Tabella Legali per contenzioso
[Rows] [Rows]
1|CODTAB|@3g@2,ls 1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls 1|S0|@14g@50,ls

2
ba/batbmsp.rpt
View File

@ -6,5 +6,5 @@ Tabella Modalita' di spedizione
[Rows] [Rows]
1|CODTAB|@3g@2,ls 1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls 1|S0|@14g@50,ls

2
ba/batbndo.rpt
View File

@ -6,5 +6,5 @@ Tabella Note Documento
[Rows] [Rows]
1|CODTAB|@3g@2,ls 1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls 1|S0|@14g@50,ls

3
ba/batbnot.h
View File

@ -1,11 +1,8 @@
// campi maschera batb%not.msk // campi maschera batb%not.msk
#define F_CODICE 101 #define F_CODICE 101
#define F_DEST 102 #define F_DEST 102
#define F_BLOCCA 103 #define F_BLOCCA 103
#define F_DOCUM 104

16
ba/batbnot.rpt
View File

@ -1,14 +1,12 @@
[Headers] [Headers]
80 80
Tabella Note Cliente Tabella Note cliente
1|@3g%s|Codice 1|@2g%s|Codice
1|@14g%s|Destinazione 1|@10g%s|Descrizione
1|@52g%s|Blocca Immissione 1|@62g%s|Blocca immissione
1|@72g%s|Documento
[Rows] [Rows]
1|CODTAB|@3g@2,ls 1|CODTAB|@2g@2s
1|S0|@14g@30,ls 1|S0|@10g@50,ls
1|B0|@52g@2,ls 1|B0|@62g@2f
1|B1|@72g@2,ls

11
ba/batbnot.uml
View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE ENDPAGE
PAGE "Tabella Codici Note Cliente" -1 -1 78 8 PAGE "Tabella Note cliente" -1 -1 78 8
GROUPBOX DLG_NULL 75 7 GROUPBOX DLG_NULL 75 7
BEGIN BEGIN
@ -26,11 +26,9 @@ INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@50" S0 DISPLAY "Destinazione@50" S0
DISPLAY "Blocca immissione" B0 DISPLAY "Blocca immissione" B0
DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0 OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0 OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM B1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -48,7 +46,6 @@ DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0 OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0 OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM B1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 2 KEY 2
END END
@ -60,11 +57,5 @@ HELP "Indicare se bloccare l'inserimento del documento"
FIELD LF_TABCOM->B0 FIELD LF_TABCOM->B0
END END
BOOLEAN F_DOCUM
BEGIN
PROMPT 4 10 "Documento "
FIELD LF_TABCOM->B1
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
ba/batbpor.rpt
View File

@ -6,5 +6,5 @@ Tabella Modalita' di spedizione
[Rows] [Rows]
1|CODTAB|@3g@3,ls 1|CODTAB|@3g@3,ls
1|S0|@14g@30,ls 1|S0|@14g@50,ls

5
ba/batbvet.h
View File

@ -1,5 +1,3 @@
// campi maschera batb%vet.msk // campi maschera batb%vet.msk
#define F_CODVETT 101 #define F_CODVETT 101
@ -16,6 +14,9 @@
#define F_DENNAZ 112 #define F_DENNAZ 112
#define F_CODCOM 113 #define F_CODCOM 113
#define F_DENCOM 114 #define F_DENCOM 114
#define F_NUM 115
#define F_PFAX 116
#define F_PTELEX 117

36
ba/batbvet.rpt
View File

@ -1,5 +1,5 @@
[Relations] [Relations]
LF_COMUNI;STATO=S8|COM=S9 13;STATO=S8|COM=S9
%STA;CODTAB=S8;1;0;200 %STA;CODTAB=S8;1;0;200
[Headers] [Headers]
@ -8,26 +8,30 @@ Tabella vettori
1|@2g%s|Codice vettore 1|@2g%s|Codice vettore
1|@18g%s|Ragione sociale 1|@18g%s|Ragione sociale
1|@70g%s|Indirizzo 1|@70g%s|Indirizzo
1|@110g%s|N.civico
2|@2g%s|C.A.P. 2|@2g%s|C.A.P.
2|@10g%s|Localita' 2|@10g%s|Localita'
2|@33g%s|Comune 2|@47g%s|Comune
2|@85g%s|Provincia 2|@99g%s|Pr.
2|@98g%s|Stato 2|@103g%s|Stato
3|@2g%s|Telefono 3|@2g%s|Telefono
3|@30g%s|Fax 3|@40g%s|Fax
3|@60g%s|Telex 3|@80g%s|Telex
[Rows] [Rows]
1|CODTAB|@2g@14n 1|CODTAB|@2g@8s
1|S0|@18g@50,ls 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|S7|@2g@5,ls
2|S5|@10g@20,ls 2|S1[46,70]|@10g@35,ls
2|LF_COMUNI->DENCOM|@33g@50,ls 2|13->DENCOM|@47g@50,ls
2|LF_COMUNI->PROVCOM|@85g@2,ls 2|13->PROVCOM|@99g@2,ls
2|-200->S0|@98g@50,ls 2|-200->S0|@103g@25,ls
3|S6|@2g@5,ls 3|S5[1,10]|@2g@10,ls
3|S2|@10g@15,ls 3|S3|@12g@20,ls
3|S3|@30g@15,ls 3|S5[11,20]|@40g@10,ls
3|S4|@60g@15,ls 3|S4|@51g@20,ls
3|S2[1,10]|@80g@10,ls
3|S2[11,30]|@91g@20,ls

183
ba/batbvet.uml
View File

@ -1,15 +1,21 @@
#include "batbvet.h" #include "batbvet.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Vettori" -1 -1 78 15 PAGE "Vettori" -1 -1 78 15
NUMBER F_CODVETT 5 GROUPBOX DLG_NULL 75 7
BEGIN BEGIN
PROMPT 4 1 "Codice vettore " PROMPT 1 0 ""
FIELD LF_TABCOM->CODTAB FLAGS "R"
END
STRING F_CODVETT 5
BEGIN
PROMPT 2 2 "Codice vettore "
FIELD CODTAB
HELP "Codice del vettore" HELP "Codice del vettore"
FLAGS "RZU" FLAGS "RZU"
USE %VET USE %VET
@ -20,14 +26,13 @@ DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0 OUTPUT F_RAGSO S0
KEY 1 KEY 1
END END
STRING F_RAGSO 50 STRING F_RAGSO 50
BEGIN BEGIN
PROMPT 4 3 "Ragione sociale " PROMPT 2 4 "Ragione sociale "
HELP "Ragione sociale del vettore" HELP "Ragione sociale del vettore"
FIELD LF_TABCOM->S0 FIELD S0
FLAGS "U"
USE %VET KEY 2 USE %VET KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT S0 F_RAGSO INPUT S0 F_RAGSO
@ -36,69 +41,54 @@ DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0 OUTPUT F_RAGSO S0
KEY 2 KEY 2
END END
STRING F_IND 50 GROUPBOX DLG_NULL 75 6
BEGIN 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" HELP "Indirizzo di residenza del vettore"
FIELD LF_TABCOM->S1 FIELD S1[1,35]
FLAGS "U" END
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 STRING F_CAP 5
BEGIN BEGIN
PROMPT 4 6 "C.A.P. " PROMPT 50 9 "C.A.P."
HELP "C.A.P. di residenza del vettore" HELP "C.A.P. di residenza del vettore"
FIELD LF_TABCOM->S7 FIELD S7
END
STRING F_LOCALITA 20
BEGIN
PROMPT 32 6 "Localita' "
HELP "Localita' di residenza del vettore"
FIELD LF_TABCOM->S5
END END
STRING F_PROV 2 STRING F_PROV 2
BEGIN BEGIN
PROMPT 64 6 "Provincia " PROMPT 65 9 "Pr."
FLAGS "D" FLAGS "D"
HELP "Provincia di residenza del vettore" HELP "Provincia di residenza del vettore"
END 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 STRING F_CODCOM 4
BEGIN BEGIN
PROMPT 4 8 "Comune " PROMPT 2 10 "Comune "
HELP "Codice comune di residenza del vettore" HELP "Codice comune di residenza del vettore"
FIELD LF_TABCOM->S9 FIELD S9
USE LF_COMUNI USE LF_COMUNI
INPUT STATO F_CODNAZ INPUT STATO F_CODNAZ
INPUT COM F_CODCOM INPUT COM F_CODCOM
@ -115,9 +105,9 @@ CHECKTYPE NORMAL
WARNING "Comune assente" WARNING "Comune assente"
END END
STRING F_DENCOM 50 30 STRING F_DENCOM 50
BEGIN BEGIN
PROMPT 32 8 "" PROMPT 20 10 ""
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM INPUT DENCOM F_DENCOM
DISPLAY "Comune@50" DENCOM DISPLAY "Comune@50" DENCOM
@ -127,37 +117,86 @@ COPY OUTPUT F_CODCOM
HELP "Nome del comune del vettore" HELP "Nome del comune del vettore"
END END
STRING F_PTEL 5 NUMBER F_CODNAZ 3
BEGIN 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" HELP "Prefisso telefonico del vettore"
FIELD LF_TABCOM->S6 FIELD S5[1,10]
FLAGS "U" FLAGS "U"
END END
STRING F_TEL 15 STRING F_TEL 20
BEGIN BEGIN
PROMPT 31 10 "" PROMPT 30 14 ""
HELP "Numero telefonico del vettore" HELP "Numero telefonico del vettore"
FIELD LF_TABCOM->S2 FIELD S3
FLAGS "U" FLAGS "U"
END END
STRING F_FAX 15 STRING F_PFAX 10
BEGIN BEGIN
PROMPT 4 11 "Fax " PROMPT 2 15 "Fax "
HELP "Numero di Fax del vettore" HELP "Numero di Fax del vettore"
FIELD LF_TABCOM->S3 FIELD S5[11,20]
FLAGS "U" FLAGS "U"
END END
STRING F_TELEX 15 STRING F_FAX 20
BEGIN BEGIN
PROMPT 4 12 "Telex " PROMPT 30 15 ""
HELP "Numero di Telex del vettore" HELP "Numero di Fax del vettore"
FIELD LF_TABCOM->S4 FIELD S4
FLAGS "U" 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 ENDPAGE