From 4f99dae39a86e5ee010f2626168d3bb18245f0ce Mon Sep 17 00:00:00 2001 From: alex Date: Wed, 23 Aug 1995 16:48:45 +0000 Subject: [PATCH] gcvs Correzioni alle tabelle dell'ilaria git-svn-id: svn://10.65.10.50/trunk@1731 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/batbclr.uml | 15 +++- ba/batbcve.uml | 202 ++++++++++++++++++++++++------------------------- ba/batbleg.uml | 10 +-- ba/batblng.uml | 196 ++++++++++++++++++++++++----------------------- ba/batbmsp.uml | 10 +-- ba/batbndo.uml | 10 +-- ba/batbnot.uml | 140 +++++++++++++++++----------------- ba/batbpor.uml | 94 ++++++++++++----------- ba/batbsta.uml | 16 ++-- ba/batbval.uml | 18 +++-- ba/batbzon.uml | 94 ++++++++++++----------- 11 files changed, 422 insertions(+), 383 deletions(-) diff --git a/ba/batbclr.uml b/ba/batbclr.uml index 13acb2d34..e5a58a5cd 100755 --- a/ba/batbclr.uml +++ b/ba/batbclr.uml @@ -8,9 +8,15 @@ ENDPAGE PAGE "Ulteriore classificazione" -1 -1 78 13 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + STRING F_CODICERATA 1 BEGIN - PROMPT 4 1 "Codice " + PROMPT 2 2 "Codice " HELP "Codice della rata dell'ulteriore classificazione" FIELD %CLR->CODTAB[1,1] SHEET "Cod|Descrizione@60" @@ -29,7 +35,7 @@ END STRING F_CODICEALFA 1 BEGIN - PROMPT 20 1 "" + PROMPT 18 2 "" FIELD %CLR->CODTAB[2,2] KEY 1 USE %CLR @@ -47,7 +53,7 @@ END STRING F_DESCR 50 BEGIN - PROMPT 4 3 "Descrizione " + PROMPT 2 4 "Descrizione " FIELD %CLR->S0 USE %CLR KEY 2 INPUT S0 F_DESCR @@ -63,3 +69,6 @@ END ENDPAGE ENDMASK + + + diff --git a/ba/batbcve.uml b/ba/batbcve.uml index 56b1c2604..5084d84f6 100755 --- a/ba/batbcve.uml +++ b/ba/batbcve.uml @@ -1,101 +1,101 @@ -#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 +#include "batbcve.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Categorie di vendita " -1 -1 78 8 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + 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 @50" 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 50 +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 @50" 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 8 "Provvigione " + HELP "Percentuale di provvigione della categoria" + FIELD LF_TABCOM->R0 +END + +NUMBER F_GRUPPO 3 +BEGIN + PROMPT 4 10 "Gruppo " + HELP "Gruppo del piano dei conti della categoria" + FIELD I1 +END + +NUMBER F_CONTO 3 +BEGIN + PROMPT 25 10 "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 12 "" + FLAGS "D" + CHECKTYPE NORMAL +END + +ENDPAGE +ENDMASK diff --git a/ba/batbleg.uml b/ba/batbleg.uml index 5fd0733d0..693c53ff2 100755 --- a/ba/batbleg.uml +++ b/ba/batbleg.uml @@ -8,9 +8,9 @@ ENDPAGE PAGE "Tabella Codici Legali" -1 -1 78 8 -GROUPBOX DLG_NULL 78 5 +GROUPBOX DLG_NULL 75 7 BEGIN - PROMPT 1 1 "" + PROMPT 1 0 "" FLAGS "R" END @@ -24,13 +24,13 @@ KEY 1 USE %LEG INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 +DISPLAY "Descrizione @50" S0 OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END -STRING F_DESCR 30 +STRING F_DESCR 50 BEGIN PROMPT 4 4 "Descrizione " HELP "Descrizione del codice legale" @@ -39,7 +39,7 @@ KEY 2 USE %LEG KEY 2 INPUT CODTAB F_CODICE INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 +DISPLAY "Descrizione @50" S0 DISPLAY "Codice" CODTAB OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 diff --git a/ba/batblng.uml b/ba/batblng.uml index 2c5e1ab69..ee15af1ab 100755 --- a/ba/batblng.uml +++ b/ba/batblng.uml @@ -1,95 +1,101 @@ -#include "batblng.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella lingue" -1 -1 78 8 - -STRING F_CODICE 1 -BEGIN - PROMPT 2 2 "Codice " - FIELD CODTAB - FLAGS "U" - KEY 1 - USE %LNG - 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 2 3 "Descrizione " - FIELD LF_TABCOM->S0 - KEY 2 - USE %LNG KEY 2 - INPUT S0 F_DESCR - DISPLAY "Descrizione @50" S0 - DISPLAY "Codice" CODTAB - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 5 "Formato data" -END - -LIST F_DATA 3 20 -BEGIN - PROMPT 2 6 "Ordine data " - ITEM "GMA|Giorno-Mese-Anno" - ITEM "MGA|Mese-Giorno-Anno" - ITEM "AMG|Anno-Mese-Giorno" - FIELD S7[1,3] -END - -STRING F_DATASEP 1 -BEGIN - PROMPT 44 6 "Separatore data " - FIELD S7[4,4] -END - - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 9 "Formato valuta" -END - -LIST F_MIGLIAIA 1 14 -BEGIN - PROMPT 2 10 "Separatore migliaia " - ITEM ".|Punto (.)" MESSAGE "I",F_DECIMALI - ITEM ",|Virgola (,)" MESSAGE "E",F_DECIMALI - FIELD S8 -END - -LIST F_DECIMALI 1 14 -BEGIN - PROMPT 44 10 "Separatore decimali " - ITEM "I|Virgola (,)" - ITEM "E|Punto (.)" - FLAGS "D" -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batblng.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella lingue" -1 -1 78 8 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 1 +BEGIN + PROMPT 2 2 "Codice " + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %LNG + 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 2 4 "Descrizione " + FIELD LF_TABCOM->S0 + KEY 2 + USE %LNG KEY 2 + INPUT S0 F_DESCR + DISPLAY "Descrizione @50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +GROUPBOX DLG_NULL 75 3 +BEGIN + PROMPT 1 7 "Formato data" +END + +LIST F_DATA 3 20 +BEGIN + PROMPT 2 8 "Ordine data " + ITEM "GMA|Giorno-Mese-Anno" + ITEM "MGA|Mese-Giorno-Anno" + ITEM "AMG|Anno-Mese-Giorno" + FIELD S7[1,3] +END + +STRING F_DATASEP 1 +BEGIN + PROMPT 40 8 "Separatore data " + FIELD S7[4,4] +END + + +GROUPBOX DLG_NULL 75 3 +BEGIN + PROMPT 1 10 "Formato valuta" +END + +LIST F_MIGLIAIA 1 14 +BEGIN + PROMPT 2 11 "Separatore migliaia " + ITEM ".|Punto (.)" MESSAGE "I",F_DECIMALI + ITEM ",|Virgola (,)" MESSAGE "E",F_DECIMALI + FIELD S8 +END + +LIST F_DECIMALI 1 14 +BEGIN + PROMPT 40 11 "Separatore decimali " + ITEM "I|Virgola (,)" + ITEM "E|Punto (.)" + FLAGS "D" +END + +ENDPAGE +ENDMASK + + + + + + + + + + + + diff --git a/ba/batbmsp.uml b/ba/batbmsp.uml index 7037c8a52..4264c3f5b 100755 --- a/ba/batbmsp.uml +++ b/ba/batbmsp.uml @@ -8,9 +8,9 @@ ENDPAGE PAGE "Modalita' di Spedizione" -1 -1 78 8 -GROUPBOX DLG_NULL 78 5 +GROUPBOX DLG_NULL 75 7 BEGIN - PROMPT 1 1 "" + PROMPT 1 0 "" FLAGS "R" END @@ -24,13 +24,13 @@ KEY 1 USE %MSP INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 +DISPLAY "Descrizione @50" S0 OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END -STRING F_DESCR 30 +STRING F_DESCR 50 BEGIN PROMPT 4 4 "Descrizione " HELP "Descrizione della modalit… di spedizione" @@ -39,7 +39,7 @@ KEY 2 USE %MSP KEY 2 INPUT CODTAB F_CODICE INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 +DISPLAY "Descrizione @50" S0 DISPLAY "Codice" CODTAB OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 diff --git a/ba/batbndo.uml b/ba/batbndo.uml index b2ee28534..596981c1b 100755 --- a/ba/batbndo.uml +++ b/ba/batbndo.uml @@ -8,9 +8,9 @@ ENDPAGE PAGE "Tabella Note Documento" -1 -1 78 8 -GROUPBOX DLG_NULL 78 5 +GROUPBOX DLG_NULL 75 7 BEGIN - PROMPT 1 1 "" + PROMPT 1 0 "" FLAGS "R" END @@ -24,13 +24,13 @@ BEGIN USE %NDO INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @30" S0 + DISPLAY "Descrizione @50" S0 OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END -STRING F_DESCR 30 +STRING F_DESCR 50 BEGIN PROMPT 4 4 "Descrizione " HELP "Descrizione nota documento" @@ -39,7 +39,7 @@ BEGIN USE %NDO KEY 2 INPUT CODTAB F_CODICE INPUT S0 F_DESCR - DISPLAY "Descrizione @30" S0 + DISPLAY "Descrizione @50" S0 DISPLAY "Codice" CODTAB OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 diff --git a/ba/batbnot.uml b/ba/batbnot.uml index 763caba32..c174153c6 100755 --- a/ba/batbnot.uml +++ b/ba/batbnot.uml @@ -1,70 +1,70 @@ -#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 +#include "batbnot.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Note Cliente" -1 -1 78 8 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + 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@50" 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 50 +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@50" 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 8 "Blocca immissione " +HELP "Indicare se bloccare l'inserimento del documento" +FIELD LF_TABCOM->B0 +END + +BOOLEAN F_DOCUM +BEGIN +PROMPT 4 10 "Documento " +FIELD LF_TABCOM->B1 +END + +ENDPAGE +ENDMASK diff --git a/ba/batbpor.uml b/ba/batbpor.uml index d4f483952..400bf1791 100755 --- a/ba/batbpor.uml +++ b/ba/batbpor.uml @@ -1,44 +1,50 @@ -#include "batbpor.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Modalita' di consegna" -1 -1 78 8 - -STRING F_CODICE 3 -BEGIN -PROMPT 4 2 "Codice " -HELP "Codice della modalit… di consegna" -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %POR -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 modalit… di consegna" -FIELD LF_TABCOM->S0 -KEY 2 -USE %POR 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 "batbpor.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Modalita' di consegna" -1 -1 78 8 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice della modalit… di consegna" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %POR +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 della modalit… di consegna" +FIELD LF_TABCOM->S0 +KEY 2 +USE %POR 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/batbsta.uml b/ba/batbsta.uml index cc33fecf2..6193ec22b 100755 --- a/ba/batbsta.uml +++ b/ba/batbsta.uml @@ -8,9 +8,15 @@ ENDPAGE PAGE "Stati esteri" -1 -1 78 13 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + STRING FLD_TABSTA_CODTAB 3 BEGIN - PROMPT 3 1 "Codice " + PROMPT 2 2 "Codice " FIELD %STA->CODTAB FLAGS "RZ" KEY 1 @@ -26,7 +32,7 @@ END STRING FLD_TABSTA_S0 50 BEGIN - PROMPT 3 3 "Denominazione " + PROMPT 2 4 "Denominazione " FIELD %STA->S0 KEY 2 USE %STA KEY 2 @@ -41,7 +47,7 @@ END STRING FLD_TABSTA_S7 3 BEGIN - PROMPT 3 5 "Valuta " + PROMPT 2 8 "Valuta " FIELD %STA->S7 FLAGS "U" USE %VAL @@ -56,13 +62,13 @@ END STRING FLD_TABSTA_S7_TABVAL_S0 50 BEGIN - PROMPT 17 7 "" + PROMPT 24 8 "" FLAGS "D" END STRING FLD_TABSTA_S2 10 BEGIN - PROMPT 3 9 "Nazionalita' " + PROMPT 2 11 "Nazionalita' " FIELD %STA->S2 HELP "Nazionalita' corrispondente a questo stato" END diff --git a/ba/batbval.uml b/ba/batbval.uml index 2b66ae810..7c9abc477 100755 --- a/ba/batbval.uml +++ b/ba/batbval.uml @@ -8,9 +8,15 @@ ENDPAGE PAGE "Valute" -1 -1 78 12 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + STRING FLD_TABVAL_CODTAB 3 BEGIN - PROMPT 3 1 "Codice " + PROMPT 2 2 "Codice " FIELD LF_TABCOM->CODTAB FLAGS "UZ" KEY 1 @@ -24,9 +30,9 @@ BEGIN CHECKTYPE REQUIRED END -STRING FLD_TABVAL_S0 25 +STRING FLD_TABVAL_S0 50 BEGIN - PROMPT 3 3 "Descrizione " + PROMPT 2 4 "Descrizione " FIELD LF_TABCOM->S0 KEY 2 USE %VAL KEY 2 @@ -41,7 +47,7 @@ END NUMBER FLD_TABVAL_R0 15 5 BEGIN - PROMPT 3 5 "Cambio " + PROMPT 2 7 "Cambio " FIELD LF_TABCOM->R10 PICTURE ".5" FLAGS "R" @@ -49,14 +55,14 @@ END DATE FLD_TABVAL_D0 BEGIN - PROMPT 3 7 "Data " + PROMPT 2 9 "Data " FIELD LF_TABCOM->D0 HELP "Data di ultimo aggiornamento" END NUMBER FLD_DECSVAL_I0 1 BEGIN - PROMPT 3 9 "Decimali " + PROMPT 2 11 "Decimali " FIELD LF_TABCOM->I0 HELP "Numero di decimali da utilizzare per l'arrotondamento" END diff --git a/ba/batbzon.uml b/ba/batbzon.uml index 167cdc4e9..105dde0d7 100755 --- a/ba/batbzon.uml +++ b/ba/batbzon.uml @@ -1,44 +1,50 @@ -#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 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 2 +BEGIN +PROMPT 2 2 "Codice " +HELP "Codice della zona" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %ZON +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 2 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 @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK