From 1bcfd5b941daf95be41eecdff2c502e883666b39 Mon Sep 17 00:00:00 2001 From: alex Date: Mon, 21 Aug 1995 16:44:21 +0000 Subject: [PATCH] Modifiche alle tabelle git-svn-id: svn://10.65.10.50/trunk@1721 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/batbacr.uml | 345 +++++++++++++++++++++++++------------------------ ve/batbcaa.uml | 104 +++++++-------- ve/batbcra.uml | 101 +++++++-------- ve/batbmag.h | 14 ++ ve/batbmag.uml | 341 +++++++++++++++++++++++++++++++++--------------- ve/batbnum.uml | 82 ++++++------ ve/batbrfa.h | 18 +-- ve/batbrfa.uml | 162 ++++++++++++++--------- ve/batbtag.uml | 2 +- ve/batbtip.uml | 2 +- ve/batbtri.uml | 3 +- 11 files changed, 680 insertions(+), 494 deletions(-) diff --git a/ve/batbacr.uml b/ve/batbacr.uml index 673b77f0f..b9e52869d 100755 --- a/ve/batbacr.uml +++ b/ve/batbacr.uml @@ -1,172 +1,173 @@ -#include "BATBACR.H" -#define LF_ANAMAG 47 //ANAGRAFICA DI MAGAZZINO -#define LF_PCON 19 //PIANO DEI CONTI - - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Archivio costi e ricavi " -1 -1 78 8 - - -LISTBOX F_TIPO 8 -BEGIN - PROMPT 3 3 "Tipo lavoro " - FIELD %ACR->S0 - ITEM "1|Ricavi " - MESSAGE SHOW, F_CODGRUPPOR - MESSAGE HIDE, F_CODGRUPPOC - MESSAGE SHOW, F_CODCONTOR - MESSAGE HIDE, F_CODCONTOC - MESSAGE SHOW, F_CODSTCONTOR - MESSAGE HIDE, F_CODSTCONTOC - ITEM "2|Costi " - MESSAGE SHOW, F_CODGRUPPOC - MESSAGE HIDE, F_CODGRUPPOR - MESSAGE SHOW, F_CODCONTOC - MESSAGE HIDE, F_CODCONTOR - MESSAGE SHOW, F_CODSTCONTOC - MESSAGE HIDE, F_CODSTCONTOR - FLAG "R" -END - -STRING F_CODCATCON 3 -BEGIN - PROMPT 3 5 "Codice categoria contabile " - FIELD %ACR->CODTAB - KEY 1 - FLAG "U" - USE %CCO // CATEGORIE CONTABILI C/F - - INPUT CODTAB F_CODCATCON - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_CODCATCON CODTAB - OUTPUT F_CODCATCON S0 - CHECKTYPE REQUIRED -END - - -STRING F_CODART 20 -BEGIN - PROMPT 3 7 "Codice articolo " - FIELD %ACR->S1 - USE LF_ANAMAG KEY 1 - FLAG "R" - INPUT CODART F_CODART - - DISPLAY "Codice articolo" CODART - DISPLAY "Descrizione@30" DESCR - OUTPUT F_CODART CODART - OUTPUT F_DESART DESCR - -END - -STRING F_DESART 30 -BEGIN - PROMPT 19 9 "" - FIELD %ACR->S2 - FLAG "U" - - USE LF_ANAMAG KEY 2 - INPUT DESCR F_DESART - DISPLAY "Codice articolo" CODART - DISPLAY "Descrizione@30" DESCR - OUTPUT F_CODART CODART - OUTPUT F_DESART DESCR - -END - -NUMBER F_CODGRUPPOR 3 -BEGIN - PROMPT 3 11 "Codice conto ricavo " - FIELD %ACR->S3 - END - -NUMBER F_CODCONTOR 3 -BEGIN - PROMPT 30 11 "" - FIELD %ACR->S4 - USE LF_PCON SELECT INDBIL="4" - INPUT GRUPPO F_CODGRUPPOR - INPUT CONTO F_CODCONTOR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOR GRUPPO - OUTPUT F_CODCONTOR CONTO - ADD RUN CG0 -0 - END - -NUMBER F_CODSTCONTOR 6 -BEGIN - PROMPT 39 11 "" - FIELD %ACR->S5 - USE LF_PCON - INPUT GRUPPO F_CODGRUPPOR - INPUT CONTO F_CODCONTOR - INPUT SOTTOCONTO F_CODSTCONTOR - - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOR GRUPPO - OUTPUT F_CODCONTOR CONTO - OUTPUT F_CODSTCONTOR SOTTOCONTO - OUTPUT F_DESSTCONTO DESCR - ADD RUN CG0 -0 -END - -NUMBER F_CODGRUPPOC 3 -BEGIN - PROMPT 3 11 "Codice conto costo " - FIELD %ACR->S3 - END - -NUMBER F_CODCONTOC 3 -BEGIN - PROMPT 30 11 "" - FIELD %ACR->S4 - USE LF_PCON SELECT INDBIL="3" - INPUT GRUPPO F_CODGRUPPOC - INPUT CONTO F_CODCONTOC - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOC GRUPPO - OUTPUT F_CODCONTOC CONTO - ADD RUN CG0 -0 - END - -NUMBER F_CODSTCONTOC 6 -BEGIN - PROMPT 39 11 "" - FIELD %ACR->S5 - USE LF_PCON - INPUT GRUPPO F_CODGRUPPOC - INPUT CONTO F_CODCONTOC - INPUT SOTTOCONTO F_CODSTCONTOC - - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOC GRUPPO - OUTPUT F_CODCONTOC CONTO - OUTPUT F_CODSTCONTOC SOTTOCONTO - OUTPUT F_DESSTCONTO DESCR - ADD RUN CG0 -0 -END - -STRING F_DESSTCONTO 50 -BEGIN - PROMPT 24 13 "" - FLAG "D" -END - -ENDPAGE - - -ENDMASK +#include "BATBACR.H" +#define LF_ANAMAG 47 //ANAGRAFICA DI MAGAZZINO +#define LF_PCON 19 //PIANO DEI CONTI + + +TOOLBAR "" 0 20 60 2 + #include +ENDPAGE + +PAGE "Archivio costi e ricavi " -1 -1 78 8 + + +LISTBOX F_TIPO 8 +BEGIN + PROMPT 3 3 "Tipo lavoro " + FIELD %ACR->S0 + ITEM "1|Ricavi " + MESSAGE SHOW, F_CODGRUPPOR + MESSAGE HIDE, F_CODGRUPPOC + MESSAGE SHOW, F_CODCONTOR + MESSAGE HIDE, F_CODCONTOC + MESSAGE SHOW, F_CODSTCONTOR + MESSAGE HIDE, F_CODSTCONTOC + ITEM "2|Costi " + MESSAGE SHOW, F_CODGRUPPOC + MESSAGE HIDE, F_CODGRUPPOR + MESSAGE SHOW, F_CODCONTOC + MESSAGE HIDE, F_CODCONTOR + MESSAGE SHOW, F_CODSTCONTOC + MESSAGE HIDE, F_CODSTCONTOR + FLAG "R" +END + +STRING F_CODCATCON 3 +BEGIN + PROMPT 3 5 "Codice categoria contabile " + FIELD %ACR->CODTAB[1,3] + KEY 1 + FLAG "U" + USE %CCO // CATEGORIE CONTABILI C/F + + INPUT CODTAB F_CODCATCON + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_CODCATCON CODTAB + OUTPUT F_CODCATCON S0 + CHECKTYPE REQUIRED +END + + +STRING F_CODART 20 +BEGIN + PROMPT 3 7 "Codice articolo " + FIELD %ACR->CODTAB[4,24] + KEY 1 + USE LF_ANAMAG KEY 1 + FLAG "R" + INPUT CODART F_CODART + + DISPLAY "Codice articolo" CODART + DISPLAY "Descrizione@30" DESCR + OUTPUT F_CODART CODART + OUTPUT F_DESART DESCR + +END + +STRING F_DESART 30 +BEGIN + PROMPT 19 9 "" + FIELD %ACR->S2 + FLAG "U" + + USE LF_ANAMAG KEY 2 + INPUT DESCR F_DESART + DISPLAY "Codice articolo" CODART + DISPLAY "Descrizione@30" DESCR + OUTPUT F_CODART CODART + OUTPUT F_DESART DESCR + +END + +NUMBER F_CODGRUPPOR 3 +BEGIN + PROMPT 3 11 "Codice conto ricavo " + FIELD %ACR->S3 + END + +NUMBER F_CODCONTOR 3 +BEGIN + PROMPT 30 11 "" + FIELD %ACR->S4 + USE LF_PCON SELECT INDBIL="4" + INPUT GRUPPO F_CODGRUPPOR + INPUT CONTO F_CODCONTOR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODGRUPPOR GRUPPO + OUTPUT F_CODCONTOR CONTO + ADD RUN CG0 -0 + END + +NUMBER F_CODSTCONTOR 6 +BEGIN + PROMPT 39 11 "" + FIELD %ACR->S5 + USE LF_PCON + INPUT GRUPPO F_CODGRUPPOR + INPUT CONTO F_CODCONTOR + INPUT SOTTOCONTO F_CODSTCONTOR + + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODGRUPPOR GRUPPO + OUTPUT F_CODCONTOR CONTO + OUTPUT F_CODSTCONTOR SOTTOCONTO + OUTPUT F_DESSTCONTO DESCR + ADD RUN CG0 -0 +END + +NUMBER F_CODGRUPPOC 3 +BEGIN + PROMPT 3 11 "Codice conto costo " + FIELD %ACR->S3 + END + +NUMBER F_CODCONTOC 3 +BEGIN + PROMPT 30 11 "" + FIELD %ACR->S4 + USE LF_PCON SELECT INDBIL="3" + INPUT GRUPPO F_CODGRUPPOC + INPUT CONTO F_CODCONTOC + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODGRUPPOC GRUPPO + OUTPUT F_CODCONTOC CONTO + ADD RUN CG0 -0 + END + +NUMBER F_CODSTCONTOC 6 +BEGIN + PROMPT 39 11 "" + FIELD %ACR->S5 + USE LF_PCON + INPUT GRUPPO F_CODGRUPPOC + INPUT CONTO F_CODCONTOC + INPUT SOTTOCONTO F_CODSTCONTOC + + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODGRUPPOC GRUPPO + OUTPUT F_CODCONTOC CONTO + OUTPUT F_CODSTCONTOC SOTTOCONTO + OUTPUT F_DESSTCONTO DESCR + ADD RUN CG0 -0 +END + +STRING F_DESSTCONTO 50 +BEGIN + PROMPT 24 13 "" + FLAG "D" +END + +ENDPAGE + + +ENDMASK diff --git a/ve/batbcaa.uml b/ve/batbcaa.uml index 59cf6f56e..31c09ec59 100755 --- a/ve/batbcaa.uml +++ b/ve/batbcaa.uml @@ -7,96 +7,92 @@ ENDPAGE PAGE "Tabella categoria acquisti articoli " 11 60 14 -STRING F_CODICE 3 +STRING F_CODICE 3 BEGIN PROMPT 3 3 "Codice tabella " - FIELD CAA->CODTAB + FIELD CAA->CODTAB KEY 1 - USE CAA - + USE CAA + FLAG "U" INPUT CODTAB F_CODICE - + DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40 " S0 - - OUTPUT F_CODICE CODTAB + DISPLAY "Descrizione@30 " S0 + + OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED - + CHECKTYPE REQUIRED + END - -STRING F_DESCR 40 + +STRING F_DESCR 30 BEGIN - PROMPT 3 5 "Descrizione " + PROMPT 3 5 "Descrizione " FIELD CAA->S0 KEY 2 - USE CAA KEY 2 + USE CAA KEY 2 INPUT S0 F_DESCR - + DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40 " S0 - - OUTPUT F_CODICE CODTAB + DISPLAY "Descrizione@30 " S0 + + OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED - + CHECKTYPE REQUIRED + END -STRING F_CODCON 2 +STRING F_CODCON 3 BEGIN - PROMPT 3 7 "Codice conto " + PROMPT 3 7 "Codice conto " FIELD CAA->S1 - USE LF_PCON -// CHECKTYPE REQUIRED FLAG "R" - +END + +STRING F_CODCON1 3 +BEGIN + PROMPT 25 7 "" + FIELD CAA->S2 + USE LF_PCON SELECT INDBIL=3 + FLAG "R" INPUT GRUPPO F_CODCON INPUT CONTO F_CODCON1 - INPUT SOTTOCONTO F_CODCON2 - DISPLAY "Gruppo " GRUPPO DISPLAY "Conto " CONTO - DISPLAY "Sottoconto " SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - - OUTPUT F_CODCON GRUPPO - OUTPUT F_CODCON1 CONTO - OUTPUT F_CODCON2 SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCON GRUPPO + OUTPUT F_CODCON1 CONTO OUTPUT F_DESCR1 DESCR -// KEY 1 -END - - - -STRING F_CODCON1 2 -BEGIN - PROMPT 23 7 "" - FIELD CAA->S2 -// CHECKTYPE REQUIRED - + ADD RUN CG0 -0 END STRING F_CODCON2 6 BEGIN - PROMPT 28 7 "" + PROMPT 34 7 "" FIELD CAA->S3 -// CHECKTYPE REQUIRED - + USE LF_PCON SELECT INDBIL=3 + FLAG "R" + INPUT GRUPPO F_CODCON + INPUT CONTO F_CODCON1 + INPUT SOTTOCONTO F_CODCON2 + DISPLAY "Gruppo " GRUPPO + DISPLAY "Conto " CONTO + DISPLAY "Sottoconto " SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCON GRUPPO + OUTPUT F_CODCON1 CONTO + OUTPUT F_CODCON2 SOTTOCONTO + OUTPUT F_DESCR1 DESCR + ADD RUN CG0 -0 END STRING F_DESCR1 50 BEGIN - PROMPT 10 9 "" + PROMPT 18 9 "" FLAG "D" END -GROUPBOX DLG_NULL 65 11 -BEGIN - PROMPT 1 1 "" - FLAG "R" -END - ENDPAGE diff --git a/ve/batbcra.uml b/ve/batbcra.uml index 5c51c806c..a173556e0 100755 --- a/ve/batbcra.uml +++ b/ve/batbcra.uml @@ -8,93 +8,92 @@ ENDPAGE PAGE "Tabella categoria ricavi articoli " 11 60 14 -STRING F_CODICE 3 +STRING F_CODICE 3 BEGIN PROMPT 3 3 "Codice tabella " - FIELD CRA->CODTAB + FIELD CRA->CODTAB KEY 1 - USE CRA - + USE CRA + FLAG "U" INPUT CODTAB F_CODICE - + DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40 " S0 - - OUTPUT F_CODICE CODTAB + DISPLAY "Descrizione@30 " S0 + + OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED END - -STRING F_DESCR 40 + +STRING F_DESCR 30 BEGIN - PROMPT 3 5 "Descrizione " + PROMPT 3 5 "Descrizione " FIELD CRA->S0 KEY 2 - USE CRA KEY 2 + USE CRA KEY 2 INPUT S0 F_DESCR - + DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40 " S0 - - OUTPUT F_CODICE CODTAB + DISPLAY "Descrizione@30 " S0 + + OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED - + CHECKTYPE REQUIRED + END -STRING F_CODCON 2 +STRING F_CODCON 3 BEGIN - PROMPT 3 7 "Codice conto " + PROMPT 3 7 "Codice conto " FIELD CRA->S1 - USE LF_PCON -// CHECKTYPE REQUIRED FLAG "R" - +END + +STRING F_CODCON1 3 +BEGIN + PROMPT 25 7 "" + FIELD CRA->S2 + USE LF_PCON SELECT INDBIL="4" + FLAG "R" INPUT GRUPPO F_CODCON INPUT CONTO F_CODCON1 - INPUT SOTTOCONTO F_CODCON2 - DISPLAY "Gruppo " GRUPPO DISPLAY "Conto " CONTO - DISPLAY "Sottoconto " SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - - OUTPUT F_CODCON GRUPPO - OUTPUT F_CODCON1 CONTO - OUTPUT F_CODCON2 SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCON GRUPPO + OUTPUT F_CODCON1 CONTO OUTPUT F_DESCR1 DESCR -// KEY 1 -END - -STRING F_CODCON1 2 -BEGIN - PROMPT 23 7 "" - FIELD CRA->S2 -// CHECKTYPE REQUIRED - + ADD RUN CG0 -0 END STRING F_CODCON2 6 BEGIN - PROMPT 28 7 "" + PROMPT 34 7 "" FIELD CRA->S3 -// CHECKTYPE REQUIRED - + USE LF_PCON SELECT INDBIL="4" + FLAG "R" + INPUT GRUPPO F_CODCON + INPUT CONTO F_CODCON1 + INPUT SOTTOCONTO F_CODCON2 + DISPLAY "Gruppo " GRUPPO + DISPLAY "Conto " CONTO + DISPLAY "Sottoconto " SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCON GRUPPO + OUTPUT F_CODCON1 CONTO + OUTPUT F_CODCON2 SOTTOCONTO + OUTPUT F_DESCR1 DESCR + ADD RUN CG0 -0 + END STRING F_DESCR1 50 BEGIN - PROMPT 10 9 "" + PROMPT 18 9 "" FLAG "D" END -GROUPBOX DLG_NULL 68 11 -BEGIN - PROMPT 1 1 "" - FLAG "R" -END - ENDPAGE diff --git a/ve/batbmag.h b/ve/batbmag.h index 115000539..62c65a606 100755 --- a/ve/batbmag.h +++ b/ve/batbmag.h @@ -1,9 +1,13 @@ #define F_CODICE 101 #define F_DESCR 102 +#define F_CODDEP 123 +#define F_DESDEP 124 #define F_IND 103 #define F_LOC 104 #define F_CAP 105 #define F_PROV 106 +#define F_CIV 127 +#define F_COM 128 #define F_NATMAG 107 #define F_CODMAGSTA 108 #define F_CODLGIOR 109 @@ -20,3 +24,13 @@ #define F_STARIS 120 #define F_LUNGMOD 121 #define F_INTDITTA 122 +#define H_CODICE 125 +#define H_DESCR 126 +#define F_DITTA 127 +#define F_UNLOC 128 +#define H_IND 129 +#define H_CIV 130 +#define H_CAP 131 +#define H_COM 132 +#define H_LOC 133 +#define H_PROV 134 diff --git a/ve/batbmag.uml b/ve/batbmag.uml index 33ffb728c..3cdf6172d 100755 --- a/ve/batbmag.uml +++ b/ve/batbmag.uml @@ -1,5 +1,6 @@ #include "BATBMAG.h" -#define LF_COMUNI 13 +#include +#include TOOLBAR "" 0 20 60 2 #include @@ -7,101 +8,220 @@ ENDPAGE PAGE "Gestione magazzini" 11 60 14 -STRING F_CODICE 6 +NUMBER F_DITTA 5 BEGIN - PROMPT 2 2 "Codice del magazzino " - FIELD MAG->CODTAB - KEY 1 - USE MAG - - FLAG "U" - INPUT CODTAB F_CODICE - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@50 " S0 - DISPLAY "Indirizzo@25 " S1 - DISPLAY "Località@25 " S2 - DISPLAY "Prov." S7 - DISPLAY "C.A.P." S6 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - OUTPUT F_IND S1 - OUTPUT F_LOC S2 - OUTPUT F_CAP S6 - OUTPUT F_PROV S7 - CHECKTYPE REQUIRED - + PROMPT 0 0 "" + FLAGS "FGH" END +STRING F_CODICE 3 +BEGIN + PROMPT 2 1 "Codice magazzino " + FIELD CODTAB[1,3] + KEY 1 + USE MAG SELECT CODTAB ?= "???" + FLAG "U" + INPUT CODTAB F_CODICE + DISPLAY "Codice " CODTAB[1,3] + DISPLAY "Denominazione mag.@50 " S0 + OUTPUT F_CODICE CODTAB[1,3] + OUTPUT H_DESCR S0 + MESSAGE COPY,H_CODICE +END + +STRING F_CODDEP 2 +BEGIN + PROMPT 28 1 "Codice deposito " + FIELD CODTAB[4,5] + FLAGS "U" + KEY 1 + USE MAG + INPUT CODTAB[1,3] F_CODICE + INPUT CODTAB[4,5] F_CODDEP + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + DISPLAY "Denominazione dep.@50" S0 + OUTPUT F_CODICE CODTAB[1,3] + OUTPUT F_CODDEP CODTAB[4,5] + OUTPUT F_DESDEP S0 + MESSAGE SHOW,F_DESCR|HIDE,H_DESCR|SHOW,F_DESDEP + MESSAGE EMPTY HIDE,F_DESCR|SHOW,H_DESCR|HIDE,F_DESDEP + VALIDATE AUTOEXIT_FUNC 2 F_CODICE F_CODDEP + GROUP GR_SEARCH +END + +STRING H_CODICE 3 +BEGIN + FLAGS "H" + COPY USE F_CODICE + INPUT CODTAB F_CODICE + COPY DISPLAY F_CODICE + OUTPUT F_DESCR S0 + CHECKTYPE NORMAL +END STRING F_DESCR 50 BEGIN - PROMPT 2 4 "Descrizione " - FIELD MAG->S0 + PROMPT 2 3 "Denominazione mag. " + FLAGS "D" +END + +STRING F_DESDEP 50 +BEGIN + PROMPT 2 4 "Denominazione dep. " + FIELD S0 + USE MAG KEY 2 + KEY 2 + INPUT S0 F_DESDEP + DISPLAY "Denominazione dep.@50" S0 + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + COPY OUTPUT F_CODDEP + MESSAGE K_TAB,F_CODDEP + CHECKTYPE REQUIRED + WARNING "Manca la denominazione" +END + +STRING H_DESCR 50 +BEGIN + PROMPT 2 3 "Denominazione mag. " + FIELD S0 KEY 2 USE MAG KEY 2 - - INPUT S0 F_DESCR - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@50 " S0 - DISPLAY "Indirizzo@25 " S1 - DISPLAY "Località@25 " S2 - DISPLAY "Prov." S7 - DISPLAY "C.A.P." S6 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - OUTPUT F_IND S1 - OUTPUT F_LOC S2 - OUTPUT F_CAP S6 - OUTPUT F_PROV S7 + INPUT S0 H_DESCR + DISPLAY "Denominazione mag.@50" S0 + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + COPY OUTPUT F_CODDEP + OUTPUT H_DESCR S0 + MESSAGE K_TAB,F_CODDEP CHECKTYPE REQUIRED - -END - -STRING F_IND 40 -BEGIN - PROMPT 2 6 "Indirizzo " - FIELD MAG->S1 + WARNING "Manca la denominazione dell'istituto" END -STRING F_LOC 25 +GROUPBOX DLG_NULL 72 5 BEGIN - PROMPT 2 8 "Località " - FIELD MAG->S2 + PROMPT 4 6 "Unita' locale" +END + +NUMBER F_UNLOC 3 +BEGIN + PROMPT 6 7 "Codice " + FIELD I1 + USE LF_UNLOC KEY 1 + JOIN LF_COMUNI INTO COM=COMULC STATO=="" + INPUT CODDITTA F_DITTA SELECT + INPUT CODULC F_UNLOC + DISPLAY "Unita' Locale" CODULC + DISPLAY "Indirizzo@35" INDULC + DISPLAY "N." CIVULC + DISPLAY "C.A.P." CAPULC + DISPLAY "Comune@50" LF_COMUNI->DENCOM + DISPLAY "Provincia" LF_COMUNI->PROVCOM + OUTPUT H_COM COMULC + OUTPUT F_UNLOC CODULC + OUTPUT H_IND INDULC + OUTPUT H_CIV CIVULC + OUTPUT H_CAP CAPULC + OUTPUT H_LOC LF_COMUNI->DENCOM + OUTPUT H_PROV LF_COMUNI->PROVCOM + CHECKTYPE NORMAL +END + +STRING H_COM 4 +BEGIN + PROMPT 30 7 "Comune " + FLAGS "D" +END + +STRING H_CAP 5 +BEGIN + PROMPT 44 7 "C.A.P. " + FLAGS "D" +END + +STRING H_PROV 2 +BEGIN + PROMPT 60 7 "Provincia " + FLAGS "D" +END + +STRING H_IND 35 +BEGIN + PROMPT 6 8 "Indirizzo " + FLAGS "D" +END + +STRING H_CIV 10 +BEGIN + PROMPT 60 8 "N. " + FLAGS "D" +END + +STRING H_LOC 50 +BEGIN + PROMPT 6 9 "Comune " + FLAGS "D" +END + +GROUPBOX DLG_NULL 72 6 +BEGIN + PROMPT 4 11 "Sede magazzino/deposito" +END + +STRING F_IND 35 +BEGIN + PROMPT 6 12 "Indirizzo " + FIELD S2 +END + +STRING F_CIV 10 +BEGIN + PROMPT 60 12 "N. " + FIELD S7 +END + +STRING F_COM 4 +BEGIN + PROMPT 6 13 "Codice comune " + FLAGS "U" + FIELD S5 USE LF_COMUNI - INPUT CAPCOM F_CAP - INPUT DENCOM F_LOC - DISPLAY "Comune@50" DENCOM - DISPLAY "C.A.P." CAPCOM - DISPLAY "Provincia" PROVCOM - OUTPUT F_LOC DENCOM - OUTPUT F_CAP CAPCOM - OUTPUT F_PROV PROVCOM + INPUT STATO "" + INPUT COM F_COM + OUTPUT F_COM COM + OUTPUT F_LOC DENCOM + OUTPUT F_PROV PROVCOM + OUTPUT F_CAP CAPCOM + CHECKTYPE NORMAL + WARNING "Comune assente" + ADD RUN ba4 -0 +END +STRING F_LOC 50 +BEGIN + PROMPT 6 14 "Comune " + USE LF_COMUNI KEY 2 + INPUT DENCOM F_LOC + COPY OUTPUT F_COM + CHECKTYPE NORMAL +END + +STRING F_PROV 2 +BEGIN + PROMPT 6 15 "Provincia " + FLAGS "D" END STRING F_CAP 5 BEGIN - PROMPT 41 8 "C.A.P. " - FIELD MAG->S6 - USE LF_COMUNI KEY 3 - INPUT CAPCOM F_CAP - DISPLAY "Comune@50" DENCOM - DISPLAY "C.A.P." CAPCOM - DISPLAY "Provincia" PROVCOM - OUTPUT F_LOC DENCOM - OUTPUT F_CAP CAPCOM - OUTPUT F_PROV PROVCOM -END - -STRING F_PROV 5 -BEGIN - PROMPT 58 8 "Prov. " - FIELD MAG->S7 + PROMPT 60 15 "C.A.P. " + FIELD S3 END LISTBOX F_NATMAG 51 BEGIN -PROMPT 2 11 "Natura del magazzino " +PROMPT 2 17 "Natura del magazzino " FIELD MAG->I1 ITEM "1|Proprietà dell'azienda " ITEM "2|Materiale nostro in lavorazione presso terzi" @@ -110,33 +230,52 @@ ITEM "4|Materiale di terzi, in lavorazione presso l'azienda " ITEM "5|Materiale di terzi, in deposito presso l'azienda " END -STRING F_CODMAGSTA 6 -BEGIN - PROMPT 2 13 "Codice magazzino sul quale stampare i movimenti " - FIELD MAG->I1 -END - -STRING F_CODLGIOR 6 -BEGIN - PROMPT 2 15 "Codice libro giornale " - FIELD MAG->I2 -END - - -GROUPBOX DLG_NULL 75 11 -BEGIN - PROMPT 0 0 "" - FLAG "R" -END ENDPAGE PAGE "Gestione magazzini" 11 60 14 -STRING F_CODLUNICO 6 +NUMBER F_ANNO 4 BEGIN - PROMPT 2 2 "Codice libro unico di studio " - FIELD MAG->I3 + PROMPT 0 0 "" + FLAGS "AH" +END + +STRING F_CODMAGSTA 3 +BEGIN + PROMPT 2 2 "Codice magazzino sul quale stampare i movimenti " + FIELD S6 + USE MAG SELECT CODTAB ?= "???" + INPUT CODTAB[1,3] F_CODMAGSTA + DISPLAY "Codice " CODTAB + DISPLAY "Denominazione mag.@50 " S0 + OUTPUT F_CODMAGSTA CODTAB[1,3] +END + +STRING F_CODLGIOR 3 +BEGIN + PROMPT 2 3 "Codice libro giornale " + FIELD S8 + USE REG + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODLGIOR + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Giornale" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODLGIOR CODTAB[5,7] +END + +STRING F_CODLUNICO 3 +BEGIN + PROMPT 40 3 "Codice libro unico di studio " + FIELD S9 + USE %LBU + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODLUNICO + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Libro" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODLUNICO CODTAB[5,7] END BOOLEAN F_GESTGIA @@ -144,13 +283,13 @@ BEGIN PROMPT 2 4 "Gestione giacenze in più depositi " FIELD MAG->B0 END - + BOOLEAN F_STALDIS BEGIN PROMPT 2 6 "Stampa libri distinti per classe fiscale articoli " FIELD MAG->B1 END - + NUMBER F_FREQSTA 2 BEGIN PROMPT 2 7 "Frequenza stampa movimenti " @@ -176,7 +315,7 @@ BEGIN END DATE F_ULTCORR -BEGIN +BEGIN PROMPT 58 11 "" FIELD MAG->D0 END @@ -188,12 +327,12 @@ BEGIN END DATE F_ULTPREC -BEGIN +BEGIN PROMPT 58 12 "" FIELD MAG->D1 END -TEXT 140 +TEXT 140 BEGIN PROMPT 2 14 "Parametri di stampa :" END @@ -215,7 +354,7 @@ BEGIN PROMPT 2 17 "Lunghezza modulo " FIELD MAG->I7 END - + ENDPAGE diff --git a/ve/batbnum.uml b/ve/batbnum.uml index e0d08c0d4..363e44604 100755 --- a/ve/batbnum.uml +++ b/ve/batbnum.uml @@ -20,7 +20,7 @@ PAGE "Numerazione documenti" -1 -1 60 14 // FLAG "R" END - STRING F_CODTAB 2 + STRING F_CODTAB 4 BEGIN PROMPT 2 2 "Codice numerazione " FIELD CODTAB @@ -112,15 +112,15 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 PROMPT 2 2 "Tipi di documento validi per la numerazione" END - STRING F_TIPODOC1 2 + STRING F_TIPODOC1 4 BEGIN PROMPT 2 4 "" USE %TIP INPUT CODTAB F_TIPODOC1 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC1 TIP->CODTAB - OUTPUT F_DESDOC1 TIP->S0 + OUTPUT F_TIPODOC1 CODTAB + OUTPUT F_DESDOC1 S0 HELP "Tipo di documento 1" FIELD S2[1,4] CHECKTYPE NORMAL @@ -128,19 +128,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC1 40 BEGIN - PROMPT 10 4 "" + PROMPT 12 4 "" FLAG "D" END - STRING F_TIPODOC2 2 + STRING F_TIPODOC2 4 BEGIN PROMPT 2 5 "" USE %TIP INPUT CODTAB F_TIPODOC2 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC2 TIP->CODTAB - OUTPUT F_DESDOC2 TIP->S0 + OUTPUT F_TIPODOC2 CODTAB + OUTPUT F_DESDOC2 S0 HELP "Tipo di documento 2" FIELD S2[5,8] CHECKTYPE NORMAL @@ -148,19 +148,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC2 40 BEGIN - PROMPT 10 5 "" + PROMPT 12 5 "" FLAG "D" END - STRING F_TIPODOC3 2 + STRING F_TIPODOC3 4 BEGIN PROMPT 2 6 "" USE %TIP INPUT CODTAB F_TIPODOC3 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC3 TIP->CODTAB - OUTPUT F_DESDOC3 TIP->S0 + OUTPUT F_TIPODOC3 CODTAB + OUTPUT F_DESDOC3 S0 HELP "Tipo di documento 3" FIELD S2[9,12] CHECKTYPE NORMAL @@ -168,19 +168,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC3 40 BEGIN - PROMPT 10 6 "" + PROMPT 12 6 "" FLAG "D" END - STRING F_TIPODOC4 2 + STRING F_TIPODOC4 4 BEGIN PROMPT 2 7 "" USE %TIP INPUT CODTAB F_TIPODOC4 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC4 TIP->CODTAB - OUTPUT F_DESDOC4 TIP->S0 + OUTPUT F_TIPODOC4 CODTAB + OUTPUT F_DESDOC4 S0 HELP "Tipo di documento 4" FIELD S2[13,16] CHECKTYPE NORMAL @@ -188,19 +188,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC4 40 BEGIN - PROMPT 10 7 "" + PROMPT 12 7 "" FLAG "D" END - STRING F_TIPODOC5 2 + STRING F_TIPODOC5 4 BEGIN PROMPT 2 8 "" USE %TIP INPUT CODTAB F_TIPODOC5 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC5 TIP->CODTAB - OUTPUT F_DESDOC5 TIP->S0 + OUTPUT F_TIPODOC5 CODTAB + OUTPUT F_DESDOC5 S0 HELP "Tipo di documento 5" FIELD S2[17,20] CHECKTYPE NORMAL @@ -208,19 +208,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC5 40 BEGIN - PROMPT 10 8 "" + PROMPT 12 8 "" FLAG "D" END - STRING F_TIPODOC6 2 + STRING F_TIPODOC6 4 BEGIN PROMPT 2 9 "" USE %TIP INPUT CODTAB F_TIPODOC6 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC6 TIP->CODTAB - OUTPUT F_DESDOC6 TIP->S0 + OUTPUT F_TIPODOC6 CODTAB + OUTPUT F_DESDOC6 S0 HELP "Tipo di documento 6" FIELD S2[21,24] CHECKTYPE NORMAL @@ -228,19 +228,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC6 40 BEGIN - PROMPT 10 9 "" + PROMPT 12 9 "" FLAG "D" END - STRING F_TIPODOC7 2 + STRING F_TIPODOC7 4 BEGIN PROMPT 2 10 "" USE %TIP INPUT CODTAB F_TIPODOC7 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC7 TIP->CODTAB - OUTPUT F_DESDOC7 TIP->S0 + OUTPUT F_TIPODOC7 CODTAB + OUTPUT F_DESDOC7 S0 HELP "Tipo di documento 7" FIELD S2[25,28] CHECKTYPE NORMAL @@ -248,19 +248,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC7 40 BEGIN - PROMPT 10 10 "" + PROMPT 12 10 "" FLAG "D" END - STRING F_TIPODOC8 2 + STRING F_TIPODOC8 4 BEGIN PROMPT 2 11 "" USE %TIP INPUT CODTAB F_TIPODOC8 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC8 TIP->CODTAB - OUTPUT F_DESDOC8 TIP->S0 + OUTPUT F_TIPODOC8 CODTAB + OUTPUT F_DESDOC8 S0 HELP "Tipo di documento 8" FIELD S2[29,32] CHECKTYPE NORMAL @@ -268,19 +268,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC8 40 BEGIN - PROMPT 10 11 "" + PROMPT 12 11 "" FLAG "D" END - STRING F_TIPODOC9 2 + STRING F_TIPODOC9 4 BEGIN PROMPT 2 12 "" USE %TIP INPUT CODTAB F_TIPODOC9 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC9 TIP->CODTAB - OUTPUT F_DESDOC9 TIP->S0 + OUTPUT F_TIPODOC9 CODTAB + OUTPUT F_DESDOC9 S0 HELP "Tipo di documento 9" FIELD S2[32,36] CHECKTYPE NORMAL @@ -288,19 +288,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC9 40 BEGIN - PROMPT 10 12 "" + PROMPT 12 12 "" FLAG "D" END - STRING F_TIPODOC10 2 + STRING F_TIPODOC10 4 BEGIN PROMPT 2 13 "" USE %TIP INPUT CODTAB F_TIPODOC10 DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC10 TIP->CODTAB - OUTPUT F_DESDOC10 TIP->S0 + OUTPUT F_TIPODOC10 CODTAB + OUTPUT F_DESDOC10 S0 HELP "Tipo di documento 10" FIELD S2[37,40] CHECKTYPE NORMAL @@ -308,7 +308,7 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14 STRING F_DESDOC10 40 BEGIN - PROMPT 10 13 "" + PROMPT 12 13 "" FLAG "D" END diff --git a/ve/batbrfa.h b/ve/batbrfa.h index 422ae3727..f8f15b499 100755 --- a/ve/batbrfa.h +++ b/ve/batbrfa.h @@ -1,8 +1,10 @@ -#define FLD_TABRFA_CODTAB 100 -#define FLD_TABRFA_S0 101 -#define FLD_TABRFA_I0 102 -#define FLD_TABRFA_S7 103 -#define FLD_TABRFA_S8 104 -#define FLD_TABRFA_R0 105 -#define FLD_TABRFA_R1 106 -#define FLD_TABRFA_R2 107 +#define FLD_TABRFA_CODTAB 100 +#define FLD_TABRFA_S0 101 +#define FLD_TABRFA_I0 102 +#define FLD_TABRFA_S7 103 +#define FLD_TABRFA_S8 104 +#define FLD_TABRFA_R0 105 +#define FLD_TABRFA_R1 106 +#define FLD_TABRFA_R2 107 +#define FLD_DESCFA 108 + \ No newline at end of file diff --git a/ve/batbrfa.uml b/ve/batbrfa.uml index 3bf5f9920..0e23c1a6e 100755 --- a/ve/batbrfa.uml +++ b/ve/batbrfa.uml @@ -1,64 +1,98 @@ -#include "batbrfa.h" - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Raggruppamento forniture magazzino" -1 -1 78 9 - -NUMBER FLD_TABRFA_CODTAB 5 -BEGIN - PROMPT 2 1 "Codice " - FIELD %FAL->CODTAB - USE %RFA - CHECKTYPE REQUIRED - INPUT CODTAB FLD_TABRFA_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT FLD_TABRFA_CODTAB CODTAB - OUTPUT FLD_TABRFA_S0 S0 - KEY 1 - FLAGS "Z" -END - -STRING FLD_TABRFA_S0 50 -BEGIN - PROMPT 2 3 "Descrizione " - FIELD %RFA->S0 - USE %RFA KEY 2 - CHECKTYPE REQUIRED - WARNING "Manca la descrizione" - INPUT S0 FLD_TABRFA_S0 - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT FLD_TABRFA_CODTAB - KEY 2 -END - -STRING FLD_TABRFA_S7 2 -BEGIN - PROMPT 2 5 "UM " - FIELD %RFA->S7 -END - -STRING FLD_TABRFA_S8 1 -BEGIN - PROMPT 2 5 "CLFIS " - FIELD %RFA->S8 -END - -NUMBER FLD_TABRFA_R0 9 -BEGIN - PROMPT 2 7 "RIC " - FIELD %RFA->R0 -END - -NUMBER FLD_TABRFA_I0 1 -BEGIN - PROMPT 2 9 "TC " - FIELD %RFA->I0 -END - -ENDPAGE - -ENDMASK +#include "batbrfa.h" + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Raggruppamento fiscali articoli" -1 -1 78 9 + +STRING FLD_TABRFA_CODTAB 5 +BEGIN + PROMPT 2 1 "Codice " + FIELD CODTAB + USE RFA + CHECKTYPE REQUIRED + INPUT CODTAB FLD_TABRFA_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT FLD_TABRFA_CODTAB CODTAB + OUTPUT FLD_TABRFA_S0 S0 + KEY 1 + FLAGS "U" +END + +STRING FLD_TABRFA_S0 30 +BEGIN + PROMPT 2 3 "Descrizione " + FIELD S0 + USE RFA KEY 2 + CHECKTYPE REQUIRED + WARNING "Manca la descrizione" + INPUT S0 FLD_TABRFA_S0 + DISPLAY "Descrizione@30" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT FLD_TABRFA_CODTAB + KEY 2 +END + +STRING FLD_TABRFA_S7 2 +BEGIN + PROMPT 2 5 "Unita' di misura " + FIELD S7 +END + +STRING FLD_TABRFA_S8 1 +BEGIN + PROMPT 2 7 "Classe fiscale " + FIELD S8 + USE ASF + INPUT CODTAB FLD_TABRFA_S8 + DISPLAY "Cl. Fisc." CODTAB + DISPLAY "Descrizione@30" S0 + OUTPUT FLD_TABRFA_S8 CODTAB + OUTPUT FLD_DESCFA S0 + CHECKTYPE NORMAL +END + +STRING FLD_DESCFA 30 +BEGIN + PROMPT 25 7 "" + FLAG "D" +END + +NUMBER FLD_TABRFA_R0 6 2 +BEGIN + PROMPT 2 9 "Perc. ricarico medio " + FIELD R0 +END + +NUMBER FLD_TABRFA_R1 12 2 +BEGIN + PROMPT 2 11 "Costo minimo " + FIELD R1 +END + +NUMBER FLD_TABRFA_R2 12 2 +BEGIN + PROMPT 45 11 "massimo " + FIELD R2 +END + +LIST FLD_TABRFA_I0 1 30 +BEGIN + PROMPT 2 13 "Tipo costo " + FIELD I0 + HELP "Inserire il tipo di costo" + ITEM "1|Costo medio annuale" + ITEM "2|Costo ultimi 3 mesi" + ITEM "3|Costo ultimo" + ITEM "4|Costo standard" + ITEM "5|Maggiore ultimi due costi" + ITEM "6|Costo massimo d'acquisto" + ITEM "7|Costo minimo d'acquisto" +END + +ENDPAGE + +ENDMASK + \ No newline at end of file diff --git a/ve/batbtag.uml b/ve/batbtag.uml index 448d19a29..3cc60072e 100755 --- a/ve/batbtag.uml +++ b/ve/batbtag.uml @@ -11,7 +11,7 @@ BEGIN PROMPT 3 4 "Codice della tabella " USE TAG FIELD TAG->CODTAB - + FLAGS "U" CHECKTYPE REQUIRED INPUT CODTAB F_CODICE diff --git a/ve/batbtip.uml b/ve/batbtip.uml index 2dd62af16..cfaf75218 100755 --- a/ve/batbtip.uml +++ b/ve/batbtip.uml @@ -14,7 +14,7 @@ PAGE "Tabella tipi di documento" -1 -1 60 14 // FLAG "R" END - STRING F_CODTAB 2 + STRING F_CODTAB 4 BEGIN PROMPT 2 2 "Codice tipo di documento " FIELD CODTAB diff --git a/ve/batbtri.uml b/ve/batbtri.uml index efdd7fb91..330340b32 100755 --- a/ve/batbtri.uml +++ b/ve/batbtri.uml @@ -10,10 +10,11 @@ ENDPAGE PAGE "Tipo di riga" -1 -1 60 14 - STRING F_CODICE 2 + STRING F_CODICE 4 BEGIN PROMPT 2 2 "Codice " FIELD CODTAB + FLAGS "U" USE %TRI INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB