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

4
ba/batbasf.uml
View File

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

88
ba/batbcco.uml
View File

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

88
ba/batbcfi.uml
View File

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

1
ba/batbcve.h
View File

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

178
ba/batbcve.uml
View File

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

88
ba/batblis.uml
View File

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

20
ba/batblng.uml
View File

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

10
ba/batbmsp.uml
View File

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

8
ba/batbndo.uml
View File

@ -8,7 +8,13 @@ ENDPAGE
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
PROMPT 4 2 "Codice "
HELP "Codice note documento"

122
ba/batbnot.uml
View File

@ -1,52 +1,70 @@
#include "batbnot.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Codici Note Cliente" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice note del cliente"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %NOT
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@30" S0
DISPLAY "Blocca immobili" B0
DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM B1
CHECKTYPE REQUIRED
END
STRING F_DEST 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della nota del cliente"
FIELD LF_TABCOM->S0
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
#include "batbnot.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Codici Note Cliente" -1 -1 78 8
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice note del cliente"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %NOT
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@30" S0
DISPLAY "Blocca immobili" B0
DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM B1
CHECKTYPE REQUIRED
END
STRING F_DEST 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della nota del cliente"
FIELD LF_TABCOM->S0
USE %NOT KEY 2
INPUT S0 F_DEST
DISPLAY "Destinazione@30" S0
DISPLAY "Codice" CODTAB
DISPLAY "Blocca immobili" B0
DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM B1
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"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Spese da addebitare" -1 -1 78 8
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice delle spese da addebitare"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %SAD
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @20" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 20
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione delle spese da addebitare"
FIELD LF_TABCOM->S0
KEY 2
USE %SAD KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @20" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK
#include "batbsad.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Spese da addebitare" -1 -1 78 8
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice delle spese da addebitare"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %SAD
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @20" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 20
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione delle spese da addebitare"
FIELD LF_TABCOM->S0
KEY 2
USE %SAD KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @20" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

80
ba/batbstt.uml
View File

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

88
ba/batbtit.uml
View File

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

88
ba/batbzon.uml
View File

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