From 84dc43a34b6a6ee38c3cb39cd3c7d38fc7045b72 Mon Sep 17 00:00:00 2001 From: alex Date: Fri, 11 Aug 1995 10:51:45 +0000 Subject: [PATCH] MOdifiche alle tabelle git-svn-id: svn://10.65.10.50/trunk@1704 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/batbacr.h | 21 ++-- ve/batbacr.uml | 318 ++++++++++++++++++++++++++----------------------- ve/batbnum.h | 28 +++++ ve/batbnum.uml | 254 ++++++++++++++++++++------------------- ve/batbrfa.h | 8 ++ ve/batbrfa.uml | 64 ++++++++++ ve/batbtip.uml | 6 +- ve/batbtri.uml | 6 +- 8 files changed, 420 insertions(+), 285 deletions(-) create mode 100755 ve/batbnum.h create mode 100755 ve/batbrfa.h create mode 100755 ve/batbrfa.uml diff --git a/ve/batbacr.h b/ve/batbacr.h index 21b04a467..a388073bb 100755 --- a/ve/batbacr.h +++ b/ve/batbacr.h @@ -1,11 +1,12 @@ -#define F_TIPO 101 -#define F_CODCATCON 102 -#define F_CODART 103 -#define F_CODCATCON1 104 -#define F_CODCATCON2 110 -#define F_CODART1 105 -#define F_CODCONCONT1 106 -#define F_CODCONCONT2 107 -#define F_CODCONCONT3 108 -#define F_CODCONCONT4 109 +#define F_TIPO 101 +#define F_CODCATCON 102 +#define F_CODART 103 +#define F_DESART 104 +#define F_CODGRUPPOR 105 +#define F_CODCONTOR 106 +#define F_CODSTCONTOR 107 +#define F_CODGRUPPOC 108 +#define F_CODCONTOC 109 +#define F_CODSTCONTOC 110 +#define F_DESSTCONTO 111 diff --git a/ve/batbacr.uml b/ve/batbacr.uml index d4ab22a68..673b77f0f 100755 --- a/ve/batbacr.uml +++ b/ve/batbacr.uml @@ -1,146 +1,172 @@ -#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 " 11 60 14 - - -LISTBOX F_TIPO 8 -BEGIN - PROMPT 3 3 "Tipo lavoro " - FIELD ACR->S0 - ITEM "1|Ricavi " - MESSAGE SHOW, F_CODCATCON - MESSAGE HIDE, F_CODCATCON1 - ITEM "2|Costi " - MESSAGE HIDE, F_CODCATCON - MESSAGE SHOW, F_CODCATCON1 - FLAG "R" -END - -STRING F_CODCATCON 3 -BEGIN - PROMPT 3 5 "Codice categoria contabile " - FIELD ACR->CODTAB - KEY 1 - FLAG "U" - USE CRA // CATEGORIE RICAVI ARTICOLI - - INPUT CODTAB F_CODCATCON - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_CODCATCON CODTAB - OUTPUT F_CODCATCON2 S0 - CHECKTYPE REQUIRED - MESSAGE COPY , F_CODCATCON1 -END - -STRING F_CODCATCON1 3 -BEGIN - PROMPT 3 5 "Codice categoria contabile " - FIELD ACR->CODTAB - KEY 1 - FLAG "U" - USE CAA // CATEGORIE ACQUISTI ARTICOLI - - INPUT CODTAB F_CODCATCON1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_CODCATCON1 CODTAB - OUTPUT F_CODCATCON2 S0 - CHECKTYPE REQUIRED - MESSAGE COPY , F_CODCATCON -END - - -STRING F_CODCATCON2 40 -BEGIN - PROMPT 19 6 "" - FLAG "D" -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_CODART1 DESCR - -END - -STRING F_CODART1 30 -BEGIN - PROMPT 19 8 "" - FIELD ACR->S2 - FLAG "U" - - USE LF_ANAMAG KEY 2 - INPUT DESCR F_CODART1 - DISPLAY "Codice articolo" CODART - DISPLAY "Descrizione@30" DESCR - OUTPUT F_CODART CODART - OUTPUT F_CODART1 DESCR - -END - -NUMBER F_CODCONCONT1 2 -BEGIN - PROMPT 3 9 "Codice conto contabile " - FIELD ACR->S3 - USE LF_PCON - INPUT GRUPPO F_CODCONCONT1 - INPUT CONTO F_CODCONCONT2 - INPUT SOTTOCONTO F_CODCONCONT3 - - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODCONCONT1 GRUPPO - OUTPUT F_CODCONCONT2 CONTO - OUTPUT F_CODCONCONT3 SOTTOCONTO - OUTPUT F_CODCONCONT4 DESCR -END - -NUMBER F_CODCONCONT2 2 -BEGIN - PROMPT 34 9 "" - FIELD ACR->S4 - END - -NUMBER F_CODCONCONT3 6 -BEGIN - PROMPT 42 9 "" - FIELD ACR->S5 - FLAG "R" - END - -STRING F_CODCONCONT4 50 -BEGIN - PROMPT 10 10 "" - FLAG "D" -END - -GROUPBOX DLG_NULL 70 13 -BEGIN - PROMPT 0 0 "" - FLAG "R" -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 + 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 diff --git a/ve/batbnum.h b/ve/batbnum.h new file mode 100755 index 000000000..1e931e199 --- /dev/null +++ b/ve/batbnum.h @@ -0,0 +1,28 @@ +#define F_CODTAB 101 +#define F_DESNUM 102 +#define F_ULTNUM 103 +#define F_ULTNUMPROV 104 +#define F_PREFISSO 105 +#define F_SUFFISSO 106 +#define F_ULTDATA 107 +#define F_ANNO 108 +#define F_TIPODOC1 110 +#define F_DESDOC1 111 +#define F_TIPODOC2 112 +#define F_DESDOC2 113 +#define F_TIPODOC3 114 +#define F_DESDOC3 115 +#define F_TIPODOC4 116 +#define F_DESDOC4 117 +#define F_TIPODOC5 118 +#define F_DESDOC5 119 +#define F_TIPODOC6 120 +#define F_DESDOC6 121 +#define F_TIPODOC7 122 +#define F_DESDOC7 123 +#define F_TIPODOC8 124 +#define F_DESDOC8 125 +#define F_TIPODOC9 126 +#define F_DESDOC9 127 +#define F_TIPODOC10 128 +#define F_DESDOC10 129 diff --git a/ve/batbnum.uml b/ve/batbnum.uml index bff03fa9e..e0d08c0d4 100755 --- a/ve/batbnum.uml +++ b/ve/batbnum.uml @@ -6,7 +6,7 @@ TOOLBAR "" 0 20 60 2 ENDPAGE -PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14 +PAGE "Numerazione documenti" -1 -1 60 14 GROUPBOX DLG_NULL 84 4 BEGIN @@ -20,12 +20,12 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14 // FLAG "R" END - STRING F_CODTAB 4 + STRING F_CODTAB 2 BEGIN PROMPT 2 2 "Codice numerazione " FIELD CODTAB - HELP "Codice numerazione" - USE NUM + HELP "Codice numerazione" + USE %NUM CHECKTYPE REQUIRED INPUT CODTAB F_CODTAB DISPLAY "Codice" CODTAB @@ -40,8 +40,8 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14 BEGIN PROMPT 2 3 "Descrizione numerazione " FIELD S0 - HELP "Descrizione numerazione" - USE NUM + HELP "Descrizione numerazione" + USE %NUM KEY 2 CHECKTYPE REQUIRED INPUT S0 F_DESNUM DISPLAY "Codice" CODTAB @@ -51,14 +51,14 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14 KEY 2 END - NUMBER F_ULTNUM 7 0 + NUMBER F_ULTNUM 6 0 BEGIN PROMPT 2 6 "Numero ultimo documento emesso " FIELD I0 FLAG "R" END - NUMBER F_ULTNUMPROV 7 0 + NUMBER F_ULTNUMPROV 6 0 BEGIN PROMPT 2 7 "Numero ultimo documento creato " FIELD I1 @@ -87,221 +87,229 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14 BEGIN PROMPT 2 14 "Anno d'esercizio " FIELD S8 + HELP "Anno d'esercizio " + USE ESC + CHECKTYPE REQUIRED + INPUT CODTAB F_ANNO + DISPLAY "Anno d'esercizio" CODTAB + DISPLAY "Data inizio esercizio" D0 + DISPLAY "Data fine esercizio" D1 + OUTPUT F_ANNO CODTAB END ENDPAGE -PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14 - +PAGE "Numerazioni documenti pag.2" -1 -1 60 14 + GROUPBOX DLG_NULL 64 15 BEGIN PROMPT 1 1 "" // FLAG "R" END - TEXT DLG_NULL - BEGIN - PROMPT 2 2 "Tipi di documento validi per la numerazione" - END - - STRING F_TIPODOC1 4 + TEXT DLG_NULL + BEGIN + PROMPT 2 2 "Tipi di documento validi per la numerazione" + END + + STRING F_TIPODOC1 2 BEGIN PROMPT 2 4 "" - USE TIP - INPUT CODTAB F_TIPODOC1 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC1 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC1 TIP->CODTAB OUTPUT F_DESDOC1 TIP->S0 - HELP "Tipo di documento 1" + HELP "Tipo di documento 1" FIELD S2[1,4] CHECKTYPE NORMAL END - STRING F_DESDOC1 40 - BEGIN - PROMPT 10 4 "" - FLAG "D" - END + STRING F_DESDOC1 40 + BEGIN + PROMPT 10 4 "" + FLAG "D" + END - STRING F_TIPODOC2 4 + STRING F_TIPODOC2 2 BEGIN PROMPT 2 5 "" - USE TIP - INPUT CODTAB F_TIPODOC2 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC2 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC2 TIP->CODTAB OUTPUT F_DESDOC2 TIP->S0 - HELP "Tipo di documento 2" + HELP "Tipo di documento 2" FIELD S2[5,8] CHECKTYPE NORMAL END - STRING F_DESDOC2 40 - BEGIN - PROMPT 10 5 "" - FLAG "D" - END - - STRING F_TIPODOC3 4 + STRING F_DESDOC2 40 + BEGIN + PROMPT 10 5 "" + FLAG "D" + END + + STRING F_TIPODOC3 2 BEGIN PROMPT 2 6 "" - USE TIP - INPUT CODTAB F_TIPODOC3 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC3 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC3 TIP->CODTAB OUTPUT F_DESDOC3 TIP->S0 - HELP "Tipo di documento 3" + HELP "Tipo di documento 3" FIELD S2[9,12] CHECKTYPE NORMAL END - STRING F_DESDOC3 40 - BEGIN - PROMPT 10 6 "" - FLAG "D" - END - - STRING F_TIPODOC4 4 + STRING F_DESDOC3 40 + BEGIN + PROMPT 10 6 "" + FLAG "D" + END + + STRING F_TIPODOC4 2 BEGIN PROMPT 2 7 "" - USE TIP - INPUT CODTAB F_TIPODOC4 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC4 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC4 TIP->CODTAB OUTPUT F_DESDOC4 TIP->S0 - HELP "Tipo di documento 4" + HELP "Tipo di documento 4" FIELD S2[13,16] CHECKTYPE NORMAL END - STRING F_DESDOC4 40 - BEGIN - PROMPT 10 7 "" - FLAG "D" - END - - STRING F_TIPODOC5 4 + STRING F_DESDOC4 40 + BEGIN + PROMPT 10 7 "" + FLAG "D" + END + + STRING F_TIPODOC5 2 BEGIN PROMPT 2 8 "" - USE TIP - INPUT CODTAB F_TIPODOC5 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC5 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC5 TIP->CODTAB OUTPUT F_DESDOC5 TIP->S0 - HELP "Tipo di documento 5" + HELP "Tipo di documento 5" FIELD S2[17,20] CHECKTYPE NORMAL END - STRING F_DESDOC5 40 - BEGIN - PROMPT 10 8 "" - FLAG "D" - END - - STRING F_TIPODOC6 4 + STRING F_DESDOC5 40 + BEGIN + PROMPT 10 8 "" + FLAG "D" + END + + STRING F_TIPODOC6 2 BEGIN PROMPT 2 9 "" - USE TIP - INPUT CODTAB F_TIPODOC6 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC6 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC6 TIP->CODTAB OUTPUT F_DESDOC6 TIP->S0 - HELP "Tipo di documento 6" + HELP "Tipo di documento 6" FIELD S2[21,24] CHECKTYPE NORMAL END - STRING F_DESDOC6 40 - BEGIN - PROMPT 10 9 "" - FLAG "D" - END - - STRING F_TIPODOC7 4 + STRING F_DESDOC6 40 + BEGIN + PROMPT 10 9 "" + FLAG "D" + END + + STRING F_TIPODOC7 2 BEGIN PROMPT 2 10 "" - USE TIP - INPUT CODTAB F_TIPODOC7 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC7 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC7 TIP->CODTAB OUTPUT F_DESDOC7 TIP->S0 - HELP "Tipo di documento 7" + HELP "Tipo di documento 7" FIELD S2[25,28] CHECKTYPE NORMAL END - STRING F_DESDOC7 40 - BEGIN - PROMPT 10 10 "" - FLAG "D" - END - - STRING F_TIPODOC8 4 + STRING F_DESDOC7 40 + BEGIN + PROMPT 10 10 "" + FLAG "D" + END + + STRING F_TIPODOC8 2 BEGIN PROMPT 2 11 "" - USE TIP - INPUT CODTAB F_TIPODOC8 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC8 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC8 TIP->CODTAB OUTPUT F_DESDOC8 TIP->S0 - HELP "Tipo di documento 8" + HELP "Tipo di documento 8" FIELD S2[29,32] CHECKTYPE NORMAL END - STRING F_DESDOC8 40 - BEGIN - PROMPT 10 11 "" - FLAG "D" - END - - STRING F_TIPODOC9 4 + STRING F_DESDOC8 40 + BEGIN + PROMPT 10 11 "" + FLAG "D" + END + + STRING F_TIPODOC9 2 BEGIN PROMPT 2 12 "" - USE TIP - INPUT CODTAB F_TIPODOC9 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC9 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC9 TIP->CODTAB OUTPUT F_DESDOC9 TIP->S0 - HELP "Tipo di documento 9" + HELP "Tipo di documento 9" FIELD S2[32,36] CHECKTYPE NORMAL END - STRING F_DESDOC9 40 - BEGIN - PROMPT 10 12 "" - FLAG "D" - END - - STRING F_TIPODOC10 4 + STRING F_DESDOC9 40 + BEGIN + PROMPT 10 12 "" + FLAG "D" + END + + STRING F_TIPODOC10 2 BEGIN PROMPT 2 13 "" - USE TIP - INPUT CODTAB F_TIPODOC10 - DISPLAY "Codice" CODTAB + USE %TIP + INPUT CODTAB F_TIPODOC10 + DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_TIPODOC10 TIP->CODTAB OUTPUT F_DESDOC10 TIP->S0 - HELP "Tipo di documento 10" + HELP "Tipo di documento 10" FIELD S2[37,40] CHECKTYPE NORMAL END - STRING F_DESDOC10 40 - BEGIN - PROMPT 10 13 "" - FLAG "D" - END + STRING F_DESDOC10 40 + BEGIN + PROMPT 10 13 "" + FLAG "D" + END ENDMASK diff --git a/ve/batbrfa.h b/ve/batbrfa.h new file mode 100755 index 000000000..422ae3727 --- /dev/null +++ b/ve/batbrfa.h @@ -0,0 +1,8 @@ +#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 diff --git a/ve/batbrfa.uml b/ve/batbrfa.uml new file mode 100755 index 000000000..3bf5f9920 --- /dev/null +++ b/ve/batbrfa.uml @@ -0,0 +1,64 @@ +#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 diff --git a/ve/batbtip.uml b/ve/batbtip.uml index a28f13503..2dd62af16 100755 --- a/ve/batbtip.uml +++ b/ve/batbtip.uml @@ -14,12 +14,12 @@ PAGE "Tabella tipi di documento" -1 -1 60 14 // FLAG "R" END - STRING F_CODTAB 4 + STRING F_CODTAB 2 BEGIN PROMPT 2 2 "Codice tipo di documento " FIELD CODTAB HELP "Codice tipo documento" - USE TIP + USE %TIP CHECKTYPE REQUIRED INPUT CODTAB F_CODTAB DISPLAY "Codice" CODTAB @@ -35,7 +35,7 @@ PAGE "Tabella tipi di documento" -1 -1 60 14 PROMPT 2 4 "Descrizione tipo documento " FIELD S0 HELP "Descrizione tipo documento" - USE TIP + USE %TIP KEY 2 CHECKTYPE REQUIRED INPUT S0 F_DESNUM DISPLAY "Codice" CODTAB diff --git a/ve/batbtri.uml b/ve/batbtri.uml index 341aba227..efdd7fb91 100755 --- a/ve/batbtri.uml +++ b/ve/batbtri.uml @@ -8,13 +8,13 @@ ENDPAGE #define F_DESCR 102 #define F_PROFILO 103 -PAGE "Tabella tipi di riga" -1 -1 60 14 +PAGE "Tipo di riga" -1 -1 60 14 STRING F_CODICE 2 BEGIN PROMPT 2 2 "Codice " FIELD CODTAB - USE TRI + USE %TRI INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 @@ -28,7 +28,7 @@ PAGE "Tabella tipi di riga" -1 -1 60 14 BEGIN PROMPT 2 4 "Descrizione " FIELD S0 - USE TRI + USE %TRI KEY 2 INPUT S0 F_DESCR COPY DISPLAY F_CODICE COPY OUTPUT F_CODICE