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

Correzioni alle tabelle per la gestione vendite

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1717 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-08-21 15:57:47 +00:00
parent d6047bf5b8
commit caa9881850
16 changed files with 601 additions and 540 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

180
ba/bastclr.uml
View File

@ -1,90 +1,90 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa classificazione rate" -1 -1 50 8 PAGE "Stampa classificazione rate" -1 -1 50 8
STRING F_INIZIO1 1 STRING F_INIZIO1 1
BEGIN BEGIN
PROMPT 4 1 "Da Codice " PROMPT 4 1 "Da Codice "
HELP "Codice della rata dell'ulteriore classificazione" HELP "Codice della rata dell'ulteriore classificazione"
FIELD CODTAB[1,1] FIELD CODTAB[1,1]
SHEET "Cod|Descrizione@60" SHEET "Cod|Descrizione@60"
INPUT F_INIZIO1 INPUT F_INIZIO1
OUTPUT F_INIZIO1 OUTPUT F_INIZIO1
ITEM " |Tutte" ITEM " |Tutte"
ITEM "1|Rimessa diretta o contanti" ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
ITEM "5|Paghero'" ITEM "5|Paghero'"
ITEM "6|Lettera di accredito" ITEM "6|Lettera di accredito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Altro pagamento" ITEM "8|Altro pagamento"
GROUP 1 GROUP 1
END END
STRING F_INIZIO2 1 STRING F_INIZIO2 1
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
FIELD CODTAB[2,2] FIELD CODTAB[2,2]
KEY 1 KEY 1
USE %CLR USE %CLR
INPUT CODTAB[1,1] F_INIZIO1 INPUT CODTAB[1,1] F_INIZIO1
INPUT CODTAB[2,2] F_INIZIO2 INPUT CODTAB[2,2] F_INIZIO2
DISPLAY "Tipo pagamento" CODTAB[1,1] DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2] DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,1] OUTPUT F_INIZIO1 CODTAB[1,1]
OUTPUT F_INIZIO2 CODTAB[2,2] OUTPUT F_INIZIO2 CODTAB[2,2]
HELP "Codice dell' ulteriore classificazione" HELP "Codice dell' ulteriore classificazione"
GROUP 1 GROUP 1
END END
STRING F_FINE1 1 STRING F_FINE1 1
BEGIN BEGIN
PROMPT 4 3 "Da Codice " PROMPT 4 3 "Da Codice "
HELP "Codice della rata dell'ulteriore classificazione" HELP "Codice della rata dell'ulteriore classificazione"
FIELD CODTAB[1,1] FIELD CODTAB[1,1]
SHEET "Cod|Descrizione@60" SHEET "Cod|Descrizione@60"
INPUT F_FINE1 INPUT F_FINE1
OUTPUT F_FINE1 OUTPUT F_FINE1
ITEM " |Tutte" ITEM " |Tutte"
ITEM "1|Rimessa diretta o contanti" ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
ITEM "5|Paghero'" ITEM "5|Paghero'"
ITEM "6|Lettera di accredito" ITEM "6|Lettera di accredito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Altro pagamento" ITEM "8|Altro pagamento"
GROUP 2 GROUP 2
END END
STRING F_FINE2 1 STRING F_FINE2 1
BEGIN BEGIN
PROMPT 20 3 "" PROMPT 20 3 ""
FIELD CODTAB[2,2] FIELD CODTAB[2,2]
KEY 1 KEY 1
COPY USE F_INIZIO2 COPY USE F_INIZIO2
INPUT CODTAB[1,1] F_FINE1 INPUT CODTAB[1,1] F_FINE1
INPUT CODTAB[2,2] F_FINE2 INPUT CODTAB[2,2] F_FINE2
DISPLAY "Tipo pagamento" CODTAB[1,1] DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2] DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB[1,1] OUTPUT F_FINE1 CODTAB[1,1]
OUTPUT F_FINE2 CODTAB[2,2] OUTPUT F_FINE2 CODTAB[2,2]
HELP "Codice dell' ulteriore classificazione" HELP "Codice dell' ulteriore classificazione"
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

4
ba/batbasf.uml
View File

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

88
ba/batbcco.uml
View File

@ -1,44 +1,44 @@
#include "batbcco.h" #include "batbcco.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8 PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice della categoria contabile" HELP "Codice della categoria contabile"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %CCO USE %CCO
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" 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 30
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione della categoria contabile" HELP "Descrizione della categoria contabile"
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %CCO KEY 2 USE %CCO KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

88
ba/batbcfi.uml
View File

@ -1,44 +1,44 @@
#include "batbcfi.h" #include "batbcfi.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Categorie Finanziarie" -1 -1 78 8 PAGE "Tabella Categorie Finanziarie" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice della categoria finanziaria" HELP "Codice della categoria finanziaria"
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
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 30
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione della categoria fiinanziaria" HELP "Descrizione della categoria fiinanziaria"
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %CFI KEY 2 USE %CFI KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

1
ba/batbcve.h
View File

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

178
ba/batbcve.uml
View File

@ -1,77 +1,101 @@
#include "batbcve.h" #include "batbcve.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Categorie di vendita " -1 -1 78 8 PAGE "Categorie di vendita " -1 -1 78 8
STRING F_CODICE 2 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 1 1 ""
HELP "Codice della categoria di vendita" FLAGS "R"
FIELD CODTAB END
FLAGS "U"
KEY 1 STRING F_CODICE 2
USE %CVE BEGIN
INPUT CODTAB F_CODICE PROMPT 4 2 "Codice "
DISPLAY "Codice" CODTAB HELP "Codice della categoria di vendita"
DISPLAY "Descrizione @30" S0 FIELD CODTAB
DISPLAY "Provvigione" R0 FLAGS "U"
DISPLAY "Gruppo" I1 KEY 1
DISPLAY "Conto" I2 USE %CVE
OUTPUT F_CODICE CODTAB INPUT CODTAB F_CODICE
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
OUTPUT F_PROVV R0 DISPLAY "Descrizione @30" S0
OUTPUT F_GRUPPO I1 DISPLAY "Provvigione" R0
OUTPUT F_CONTO I2 DISPLAY "Gruppo" I1
CHECKTYPE REQUIRED DISPLAY "Conto" I2
END OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
STRING F_DESCR 30 OUTPUT F_PROVV R0
BEGIN OUTPUT F_GRUPPO I1
PROMPT 4 4 "Descrizione " OUTPUT F_CONTO I2
HELP "Descrizione della categoria di vendita" CHECKTYPE REQUIRED
FIELD LF_TABCOM->S0 END
KEY 2
USE %CVE KEY 2 STRING F_DESCR 30
INPUT CODTAB F_CODICE BEGIN
INPUT S0 F_DESCR PROMPT 4 4 "Descrizione "
DISPLAY "Descrizione @30" S0 HELP "Descrizione della categoria di vendita"
DISPLAY "Codice" CODTAB FIELD LF_TABCOM->S0
DISPLAY "Provvigione" R0 KEY 2
DISPLAY "Gruppo" I1 USE %CVE KEY 2
DISPLAY "Conto" I2 INPUT CODTAB F_CODICE
OUTPUT F_CODICE CODTAB INPUT S0 F_DESCR
OUTPUT F_DESCR S0 DISPLAY "Descrizione @30" S0
OUTPUT F_PROVV R0 DISPLAY "Codice" CODTAB
OUTPUT F_GRUPPO I1 DISPLAY "Provvigione" R0
OUTPUT F_CONTO I2 DISPLAY "Gruppo" I1
CHECKTYPE REQUIRED DISPLAY "Conto" I2
END OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
NUMBER F_PROVV 5 2 OUTPUT F_PROVV R0
BEGIN OUTPUT F_GRUPPO I1
PROMPT 4 6 "Provvigione " OUTPUT F_CONTO I2
HELP "Percentuale di provvigione della categoria" CHECKTYPE REQUIRED
FIELD LF_TABCOM->R0 END
END
NUMBER F_PROVV 6 2
NUMBER F_GRUPPO 2 BEGIN
BEGIN PROMPT 4 6 "Provvigione "
PROMPT 30 6 "Gruppo " HELP "Percentuale di provvigione della categoria"
HELP "Gurppo del piano dei conti della categoria" FIELD LF_TABCOM->R0
FIELD LF_TABCOM->I1 END
END
NUMBER F_GRUPPO 3
NUMBER F_CONTO 2 BEGIN
BEGIN PROMPT 4 8 "Gruppo "
PROMPT 43 6 "Conto " HELP "Gruppo del piano dei conti della categoria"
HELP "Conto del piano dei conti della categoria" FIELD I1
FIELD LF_TABCOM->I2 END
END
NUMBER F_CONTO 3
ENDPAGE BEGIN
ENDMASK PROMPT 25 8 "Conto "
HELP "Conto del piano dei conti della categoria"
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
ENDMASK

10
ba/batbleg.uml
View File

@ -8,14 +8,20 @@ ENDPAGE
PAGE "Tabella Codici Legali" -1 -1 78 8 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 BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice di riconoscimento codici legali" HELP "Codice di riconoscimento codici legali"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %LEG USE %LEG
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" S0

88
ba/batblis.uml
View File

@ -1,44 +1,44 @@
#include "batblis.h" #include "batblis.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Listino" -1 -1 78 8 PAGE "Tabella Codici Listino" -1 -1 78 8
STRING F_CODICE 5 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
Help "Codice listino" Help "Codice listino"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %LIS USE %LIS
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" 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 50 STRING F_DESCR 30
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione listino" HELP "Descrizione listino"
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %LIS KEY 2 USE %LIS KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

20
ba/batblng.uml
View File

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

10
ba/batbmsp.uml
View File

@ -8,14 +8,20 @@ ENDPAGE
PAGE "Modalita' di Spedizione" -1 -1 78 8 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 BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice della modalit… di spedizione" HELP "Codice della modalit… di spedizione"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %MSP USE %MSP
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" S0

8
ba/batbndo.uml
View File

@ -8,7 +8,13 @@ ENDPAGE
PAGE "Tabella Note Documento" -1 -1 78 8 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 BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice note documento" HELP "Codice note documento"

122
ba/batbnot.uml
View File

@ -1,52 +1,70 @@
#include "batbnot.h" #include "batbnot.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Note Cliente" -1 -1 78 8 PAGE "Tabella Codici Note Cliente" -1 -1 78 8
STRING F_CODICE 2 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 1 1 ""
HELP "Codice note del cliente" FLAGS "R"
FIELD CODTAB END
FLAGS "U"
KEY 1 STRING F_CODICE 2
USE %NOT BEGIN
INPUT CODTAB F_CODICE PROMPT 4 2 "Codice "
DISPLAY "Codice" CODTAB HELP "Codice note del cliente"
DISPLAY "Destinazione@30" S0 FIELD CODTAB
DISPLAY "Blocca immobili" B0 FLAGS "U"
DISPLAY "Documento" B1 KEY 1
OUTPUT F_CODICE CODTAB USE %NOT
OUTPUT F_DEST S0 INPUT CODTAB F_CODICE
OUTPUT F_BLOCCA B0 DISPLAY "Codice" CODTAB
OUTPUT F_DOCUM B1 DISPLAY "Destinazione@30" S0
CHECKTYPE REQUIRED DISPLAY "Blocca immobili" B0
END DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB
STRING F_DEST 30 OUTPUT F_DEST S0
BEGIN OUTPUT F_BLOCCA B0
PROMPT 4 4 "Descrizione " OUTPUT F_DOCUM B1
HELP "Descrizione della nota del cliente" CHECKTYPE REQUIRED
FIELD LF_TABCOM->S0 END
END
STRING F_DEST 30
BOOLEAN F_BLOCCA BEGIN
BEGIN PROMPT 4 4 "Descrizione "
PROMPT 4 6 "Blocca immissione " HELP "Descrizione della nota del cliente"
HELP "Indicare se bloccare l'inserimento del documento" FIELD LF_TABCOM->S0
FIELD LF_TABCOM->B0 USE %NOT KEY 2
END INPUT S0 F_DEST
DISPLAY "Destinazione@30" S0
BOOLEAN F_DOCUM DISPLAY "Codice" CODTAB
BEGIN DISPLAY "Blocca immobili" B0
PROMPT 4 8 "Documento " DISPLAY "Documento" B1
FIELD LF_TABCOM->B1 OUTPUT F_CODICE CODTAB
END OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0
ENDPAGE OUTPUT F_DOCUM B1
ENDMASK CHECKTYPE REQUIRED
KEY 2
END
BOOLEAN F_BLOCCA
BEGIN
PROMPT 4 6 "Blocca immissione "
HELP "Indicare se bloccare l'inserimento del documento"
FIELD LF_TABCOM->B0
END
BOOLEAN F_DOCUM
BEGIN
PROMPT 4 8 "Documento "
FIELD LF_TABCOM->B1
END
ENDPAGE
ENDMASK

88
ba/batbsad.uml
View File

@ -1,44 +1,44 @@
#include "batbsad.h" #include "batbsad.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Spese da addebitare" -1 -1 78 8 PAGE "Tabella Spese da addebitare" -1 -1 78 8
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice delle spese da addebitare" HELP "Codice delle spese da addebitare"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %SAD USE %SAD
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @20" S0 DISPLAY "Descrizione @20" 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 20 STRING F_DESCR 20
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione delle spese da addebitare" HELP "Descrizione delle spese da addebitare"
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %SAD KEY 2 USE %SAD KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @20" S0 DISPLAY "Descrizione @20" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

80
ba/batbstt.uml
View File

@ -1,40 +1,40 @@
#include "batbstt.h" #include "batbstt.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Codici statistici" -1 -1 78 7 PAGE "Codici statistici" -1 -1 78 7
STRING FLD_TABSTT_CODTAB 7 STRING FLD_TABSTT_CODTAB 7
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD %STT->CODTAB FIELD %STT->CODTAB
HELP "Codice statistico" HELP "Codice statistico"
USE %STT USE %STT
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABSTT_CODTAB INPUT CODTAB FLD_TABSTT_CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABSTT_CODTAB CODTAB OUTPUT FLD_TABSTT_CODTAB CODTAB
OUTPUT FLD_TABSTT_S0 S0 OUTPUT FLD_TABSTT_S0 S0
KEY 1 KEY 1
END END
STRING FLD_TABSTT_S0 40 STRING FLD_TABSTT_S0 40
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
FIELD %STT->S0 FIELD %STT->S0
HELP "Descrizione del codice statistico" HELP "Descrizione del codice statistico"
USE %STT KEY 2 USE %STT KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT S0 FLD_TABSTT_S0 INPUT S0 FLD_TABSTT_S0
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT FLD_TABSTT_CODTAB CODTAB OUTPUT FLD_TABSTT_CODTAB CODTAB
OUTPUT FLD_TABSTT_S0 S0 OUTPUT FLD_TABSTT_S0 S0
KEY 2 KEY 2
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

88
ba/batbtit.uml
View File

@ -1,44 +1,44 @@
#include "batbtit.h" #include "batbtit.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Titoli Onorifici" -1 -1 78 8 PAGE "Tabella Titoli Onorifici" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice titolo onorifico" HELP "Codice titolo onorifico"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %TIT USE %TIT
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" 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 30
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione titolo onorifico" HELP "Descrizione titolo onorifico"
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %TIT KEY 2 USE %TIT KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

88
ba/batbzon.uml
View File

@ -1,44 +1,44 @@
#include "batbzon.h" #include "batbzon.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Zona" -1 -1 78 8 PAGE "Tabella Codici Zona" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice della zona" HELP "Codice della zona"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %ZON USE %ZON
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" 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 30
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione della zona" HELP "Descrizione della zona"
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %ZON KEY 2 USE %ZON KEY 2
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0 DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK