From caa988185016f19100a096aef0bd45f6592ce7a8 Mon Sep 17 00:00:00 2001 From: alex Date: Mon, 21 Aug 1995 15:57:47 +0000 Subject: [PATCH] Correzioni alle tabelle per la gestione vendite git-svn-id: svn://10.65.10.50/trunk@1717 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/bastclr.uml | 180 ++++++++++++++++++++++++------------------------- ba/batbasf.uml | 4 +- ba/batbcco.uml | 88 ++++++++++++------------ ba/batbcfi.uml | 88 ++++++++++++------------ ba/batbcve.h | 1 + ba/batbcve.uml | 178 +++++++++++++++++++++++++++--------------------- ba/batbleg.uml | 10 ++- ba/batblis.uml | 88 ++++++++++++------------ ba/batblng.uml | 20 +++--- ba/batbmsp.uml | 10 ++- ba/batbndo.uml | 8 ++- ba/batbnot.uml | 122 +++++++++++++++++++-------------- ba/batbsad.uml | 88 ++++++++++++------------ ba/batbstt.uml | 80 +++++++++++----------- ba/batbtit.uml | 88 ++++++++++++------------ ba/batbzon.uml | 88 ++++++++++++------------ 16 files changed, 601 insertions(+), 540 deletions(-) diff --git a/ba/bastclr.uml b/ba/bastclr.uml index ed28a4508..4fab7d3fa 100755 --- a/ba/bastclr.uml +++ b/ba/bastclr.uml @@ -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 diff --git a/ba/batbasf.uml b/ba/batbasf.uml index 889729860..88ab85d6d 100755 --- a/ba/batbasf.uml +++ b/ba/batbasf.uml @@ -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" diff --git a/ba/batbcco.uml b/ba/batbcco.uml index 1b0ff35e7..6a42ae267 100755 --- a/ba/batbcco.uml +++ b/ba/batbcco.uml @@ -1,44 +1,44 @@ -#include "batbcco.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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 diff --git a/ba/batbcfi.uml b/ba/batbcfi.uml index 6d219c6ec..0b35fd6ed 100755 --- a/ba/batbcfi.uml +++ b/ba/batbcfi.uml @@ -1,44 +1,44 @@ -#include "batbcfi.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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 diff --git a/ba/batbcve.h b/ba/batbcve.h index 5d22e4190..8642d0d21 100755 --- a/ba/batbcve.h +++ b/ba/batbcve.h @@ -7,6 +7,7 @@ #define F_PROVV 103 #define F_GRUPPO 104 #define F_CONTO 105 +#define F_DESCONTO 106 diff --git a/ba/batbcve.uml b/ba/batbcve.uml index eb6b89b63..56b1c2604 100755 --- a/ba/batbcve.uml +++ b/ba/batbcve.uml @@ -1,77 +1,101 @@ -#include "batbcve.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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 diff --git a/ba/batbleg.uml b/ba/batbleg.uml index bcf4d3783..5fd0733d0 100755 --- a/ba/batbleg.uml +++ b/ba/batbleg.uml @@ -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 diff --git a/ba/batblis.uml b/ba/batblis.uml index 6a0757713..f0d3b29e8 100755 --- a/ba/batblis.uml +++ b/ba/batblis.uml @@ -1,44 +1,44 @@ -#include "batblis.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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 diff --git a/ba/batblng.uml b/ba/batblng.uml index 721260123..2c5e1ab69 100755 --- a/ba/batblng.uml +++ b/ba/batblng.uml @@ -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 diff --git a/ba/batbmsp.uml b/ba/batbmsp.uml index 44649a058..7037c8a52 100755 --- a/ba/batbmsp.uml +++ b/ba/batbmsp.uml @@ -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 diff --git a/ba/batbndo.uml b/ba/batbndo.uml index 2b56c60d7..b2ee28534 100755 --- a/ba/batbndo.uml +++ b/ba/batbndo.uml @@ -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" diff --git a/ba/batbnot.uml b/ba/batbnot.uml index e78163da4..763caba32 100755 --- a/ba/batbnot.uml +++ b/ba/batbnot.uml @@ -1,52 +1,70 @@ -#include "batbnot.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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 diff --git a/ba/batbsad.uml b/ba/batbsad.uml index 1299f5485..979106b17 100755 --- a/ba/batbsad.uml +++ b/ba/batbsad.uml @@ -1,44 +1,44 @@ -#include "batbsad.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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 diff --git a/ba/batbstt.uml b/ba/batbstt.uml index 4e1914d67..31f647e56 100755 --- a/ba/batbstt.uml +++ b/ba/batbstt.uml @@ -1,40 +1,40 @@ -#include "batbstt.h" - -TOOLBAR "" 0 20 0 2 -#include -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 +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 diff --git a/ba/batbtit.uml b/ba/batbtit.uml index 797328475..cdb2e218a 100755 --- a/ba/batbtit.uml +++ b/ba/batbtit.uml @@ -1,44 +1,44 @@ -#include "batbtit.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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 diff --git a/ba/batbzon.uml b/ba/batbzon.uml index 443514edf..167cdc4e9 100755 --- a/ba/batbzon.uml +++ b/ba/batbzon.uml @@ -1,44 +1,44 @@ -#include "batbzon.h" - -TOOLBAR "" 0 20 0 2 - -#include - -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 + +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