diff --git a/ve/batbcaa.uml b/ve/batbcaa.uml index 31c09ec59..e7fc85530 100755 --- a/ve/batbcaa.uml +++ b/ve/batbcaa.uml @@ -1,99 +1,105 @@ -#include "BATBCAA.H" -#define LF_PCON 19 //PIANO DEI CONTI - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Tabella categoria acquisti articoli " 11 60 14 - -STRING F_CODICE 3 -BEGIN - PROMPT 3 3 "Codice tabella " - FIELD CAA->CODTAB - KEY 1 - USE CAA - - FLAG "U" - 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 3 5 "Descrizione " - FIELD CAA->S0 - KEY 2 - USE CAA KEY 2 - INPUT S0 F_DESCR - - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@30 " S0 - - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED - -END - -STRING F_CODCON 3 -BEGIN - PROMPT 3 7 "Codice conto " - FIELD CAA->S1 - 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 - DISPLAY "Gruppo " GRUPPO - DISPLAY "Conto " CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODCON GRUPPO - OUTPUT F_CODCON1 CONTO - OUTPUT F_DESCR1 DESCR - ADD RUN CG0 -0 -END - -STRING F_CODCON2 6 -BEGIN - PROMPT 34 7 "" - FIELD CAA->S3 - 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 18 9 "" - FLAG "D" -END - -ENDPAGE - - -ENDMASK +#include "BATBCAA.H" +#define LF_PCON 19 //PIANO DEI CONTI + +TOOLBAR "" 0 20 60 2 + #include +ENDPAGE + +PAGE "Tabella categoria acquisti articoli " 11 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN + PROMPT 2 2 "Cod. Tabella " + FIELD CAA->CODTAB + KEY 1 + USE CAA + + FLAG "U" + 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 CAA->S0 + KEY 2 + USE CAA KEY 2 + INPUT S0 F_DESCR + + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50 " S0 + + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED + +END + +STRING F_CODCON 3 +BEGIN + PROMPT 2 8 "Codice conto " + FIELD CAA->S1 + FLAG "R" +END + +STRING F_CODCON1 3 +BEGIN + PROMPT 25 8 "" + FIELD CAA->S2 + USE LF_PCON SELECT INDBIL=3 + FLAG "R" + INPUT GRUPPO F_CODCON + INPUT CONTO F_CODCON1 + DISPLAY "Gruppo " GRUPPO + DISPLAY "Conto " CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCON GRUPPO + OUTPUT F_CODCON1 CONTO + OUTPUT F_DESCR1 DESCR + ADD RUN CG0 -0 +END + +STRING F_CODCON2 6 +BEGIN + PROMPT 34 8 "" + FIELD CAA->S3 + 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 17 10 "" + FLAG "D" +END + +ENDPAGE + + +ENDMASK diff --git a/ve/batbcra.uml b/ve/batbcra.uml index a173556e0..8ad15f8eb 100755 --- a/ve/batbcra.uml +++ b/ve/batbcra.uml @@ -1,100 +1,106 @@ -#include "BATBCRA.H" -#define LF_PCON 19 //PIANO DEI CONTI - - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Tabella categoria ricavi articoli " 11 60 14 - -STRING F_CODICE 3 -BEGIN - PROMPT 3 3 "Codice tabella " - FIELD CRA->CODTAB - KEY 1 - USE CRA - - FLAG "U" - 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 3 5 "Descrizione " - FIELD CRA->S0 - KEY 2 - USE CRA KEY 2 - INPUT S0 F_DESCR - - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@30 " S0 - - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED - -END - -STRING F_CODCON 3 -BEGIN - PROMPT 3 7 "Codice conto " - FIELD CRA->S1 - 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 - DISPLAY "Gruppo " GRUPPO - DISPLAY "Conto " CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODCON GRUPPO - OUTPUT F_CODCON1 CONTO - OUTPUT F_DESCR1 DESCR - ADD RUN CG0 -0 -END - -STRING F_CODCON2 6 -BEGIN - PROMPT 34 7 "" - FIELD CRA->S3 - 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 18 9 "" - FLAG "D" -END - -ENDPAGE - - -ENDMASK +#include "BATBCRA.H" +#define LF_PCON 19 //PIANO DEI CONTI + + +TOOLBAR "" 0 20 60 2 + #include +ENDPAGE + +PAGE "Tabella categoria ricavi articoli " 11 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN + PROMPT 2 2 "Cod. Tabella " + FIELD CRA->CODTAB + KEY 1 + USE CRA + + FLAG "U" + 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 CRA->S0 + KEY 2 + USE CRA KEY 2 + INPUT S0 F_DESCR + + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50 " S0 + + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED + +END + +STRING F_CODCON 3 +BEGIN + PROMPT 2 8 "Codice conto " + FIELD CRA->S1 + FLAG "R" +END + +STRING F_CODCON1 3 +BEGIN + PROMPT 25 8 "" + FIELD CRA->S2 + USE LF_PCON SELECT INDBIL="4" + FLAG "R" + INPUT GRUPPO F_CODCON + INPUT CONTO F_CODCON1 + DISPLAY "Gruppo " GRUPPO + DISPLAY "Conto " CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCON GRUPPO + OUTPUT F_CODCON1 CONTO + OUTPUT F_DESCR1 DESCR + ADD RUN CG0 -0 +END + +STRING F_CODCON2 6 +BEGIN + PROMPT 34 8 "" + FIELD CRA->S3 + 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 17 10 "" + FLAG "D" +END + +ENDPAGE + + +ENDMASK diff --git a/ve/batbgmc.h b/ve/batbgmc.h index 4feed1b46..5b5006315 100755 --- a/ve/batbgmc.h +++ b/ve/batbgmc.h @@ -1,6 +1,10 @@ -#define F_CODICE1 101 -#define F_CODICE2 102 -#define F_TIPO 103 -#define F_DESCR 104 - +#define F_CODGRU 101 +#define F_DESGRU 102 +#define F_CODSGR 103 +#define F_DESSGR 104 +#define F_CODAGGDOC 105 +#define F_CODAGGOMA 106 +#define F_CODAGGSCO 107 +#define H_CODGRU 108 +#define H_DESGRU 109 diff --git a/ve/batbgmc.uml b/ve/batbgmc.uml index b723eac7c..460575794 100755 --- a/ve/batbgmc.uml +++ b/ve/batbgmc.uml @@ -1,58 +1,122 @@ -#include "BATBGMC.h" +#include "batbgmc.h" TOOLBAR "" 0 20 60 2 - #include +#include ENDPAGE -PAGE "Gruppi merceologici " 11 60 14 +PAGE "Tabella gruppi merceologici " 11 60 14 -STRING F_CODICE1 3 +GROUPBOX DLG_NULL 75 7 BEGIN - PROMPT 4 4 "Codice merceologico " - FIELD %GMC->CODTAB[1,3] - KEY 1 + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODGRU 3 +BEGIN + PROMPT 2 2 "Codice gruppo " FLAG "U" -END - -STRING F_CODICE2 2 -BEGIN - PROMPT 32 4 "" - FIELD %GMC->CODTAB[4,5] + FIELD CODTAB[1,3] KEY 1 - USE %GMC - FLAG "UR" - INPUT CODTAB[1,3] F_CODICE1 - INPUT CODTAB[4,5] F_CODICE2 - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE1 CODTAB[1,3] - OUTPUT F_CODICE2 CODTAB[4,5] - OUTPUT F_DESCR S0 + USE GMC SELECT CODTAB[4,5]=="" + INPUT CODTAB F_CODGRU + DISPLAY "Gruppo" CODTAB[1,3] + DISPLAY "Descrizione gruppo@50" S0 + OUTPUT F_CODGRU CODTAB[1,3] + OUTPUT H_DESGRU S0 + MESSAGE COPY,H_CODGRU + +END + +STRING F_CODSGR 2 +BEGIN + PROMPT 30 2 "Codice sottogruppo " + FIELD CODTAB[4,5] + FLAGS "U" + KEY 1 + USE GMC + INPUT CODTAB[1,3] F_CODGRU + INPUT CODTAB[4,5] F_CODSGR + DISPLAY "Codice gruppo" CODTAB[1,3] + DISPLAY "Codice sottogruppo" CODTAB[4,5] + DISPLAY "Descrizione sottogruppo@50" S0 + OUTPUT F_CODGRU CODTAB[1,3] + OUTPUT F_CODSGR CODTAB[4,5] + OUTPUT F_DESSGR S0 + MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR + MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR + VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR + GROUP GR_SEARCH +END + +STRING H_CODGRU 3 +BEGIN + FLAGS "H" + COPY USE F_CODGRU + INPUT CODTAB F_CODGRU + COPY DISPLAY F_CODGRU + OUTPUT F_DESGRU S0 CHECKTYPE NORMAL - VALIDATE AUTOEXIT_FUNC 1 F_CODICE1 END -STRING F_DESCR 50 +STRING F_DESGRU 50 BEGIN - PROMPT 4 6 "Descrizione " - FIELD %GMC->S0 + PROMPT 2 4 "Descrizione gruppo " + FLAGS "D" +END + +STRING F_DESSGR 50 +BEGIN + PROMPT 2 8 "Descrizione sottogruppo " + FIELD S0 + USE GMC KEY 2 KEY 2 - USE %GMC KEY 2 - INPUT S0 F_DESCR - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE1 CODTAB[1,3] - OUTPUT F_CODICE2 CODTAB[4,5] - OUTPUT F_DESCR S0 + INPUT S0 F_DESSGR + DISPLAY "Descrizione sottogruppo@50" S0 + DISPLAY "Codice gruppo" CODTAB[1,3] + DISPLAY "Codice sottogruppo" CODTAB[4,5] + COPY OUTPUT F_CODSGR + MESSAGE K_TAB,F_CODSGR CHECKTYPE REQUIRED + WARNING "Manca la descrizione" END -GROUPBOX DLG_NULL 70 7 +STRING H_DESGRU 50 BEGIN - PROMPT 3 2 "" - FLAG "R" + PROMPT 2 4 "Descrizione gruppo " + FIELD S0 + KEY 2 + USE GMC KEY 2 + INPUT S0 H_DESGRU + DISPLAY "Descrizione gruppo@50" S0 + DISPLAY "Codice gruppo" CODTAB[1,3] + DISPLAY "Codice sottogruppo" CODTAB[4,5] + COPY OUTPUT F_CODSGR + OUTPUT H_DESGRU S0 + MESSAGE K_TAB,F_CODSGR + CHECKTYPE REQUIRED + WARNING "Manca la descrizione del gruppo" +END + +STRING F_CODAGGDOC 2 +BEGIN + PROMPT 2 8 "Codice aggiornamento documenti " + FIELD LIC->S4 +END + +STRING F_CODAGGOMA 2 +BEGIN + PROMPT 2 9 "Codice aggiornamento omaggi " + FIELD LIC->S5 +END + +STRING F_CODAGGSCO 2 +BEGIN + PROMPT 2 10 "Codice aggiornamento sconti " + FIELD LIC->S6 END ENDPAGE + ENDMASK diff --git a/ve/batbimb.uml b/ve/batbimb.uml index e8d0db347..efa99f3fb 100755 --- a/ve/batbimb.uml +++ b/ve/batbimb.uml @@ -6,10 +6,15 @@ ENDPAGE PAGE "Gestione imballi" 11 60 14 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END STRING F_CODICE 5 BEGIN - PROMPT 4 4 "Codice dell'imballaggio " + PROMPT 2 2 "Cod. Imballaggio " FIELD IMB->CODTAB KEY 1 @@ -18,7 +23,7 @@ BEGIN FLAG "R" INPUT CODTAB F_CODICE DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@30 " S0 + DISPLAY "Descrizione@50 " S0 DISPLAY "lunghezza " R0 DISPLAY "altezza " R1 DISPLAY "spessore " R2 @@ -33,16 +38,16 @@ BEGIN END -STRING F_DESCR 30 +STRING F_DESCR 50 BEGIN - PROMPT 4 6 "Descrizione " + PROMPT 2 4 "Descrizione " FIELD IMB->S0 KEY 2 USE IMB KEY 2 INPUT S0 F_DESCR DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@20 " S0 + DISPLAY "Descrizione@50 " S0 DISPLAY "lunghezza " R0 DISPLAY "altezza " R1 DISPLAY "spessore " R2 @@ -58,7 +63,7 @@ END NUMBER F_DIMX 6 2 BEGIN - PROMPT 4 8 "Lunghezza " + PROMPT 2 8 "Lunghezza " FIELD IMB->R0 END @@ -70,25 +75,17 @@ END NUMBER F_DIMZ 6 2 BEGIN - PROMPT 45 8 "Spessore " + PROMPT 46 8 "Spessore " FIELD IMB->R2 END NUMBER F_PESO 6 2 BEGIN - PROMPT 4 10 "Peso " + PROMPT 2 10 "Peso " HELP "Indicare la tara" FIELD IMB->R3 END -GROUPBOX DLG_NULL 68 10 -BEGIN - PROMPT 1 2 "" - FLAG "R" -END - - - ENDPAGE ENDMASK diff --git a/ve/batbmag.uml b/ve/batbmag.uml index 3cdf6172d..bc18ac64f 100755 --- a/ve/batbmag.uml +++ b/ve/batbmag.uml @@ -8,6 +8,12 @@ ENDPAGE PAGE "Gestione magazzini" 11 60 14 +GROUPBOX DLG_NULL 75 6 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + NUMBER F_DITTA 5 BEGIN PROMPT 0 0 "" @@ -16,10 +22,10 @@ END STRING F_CODICE 3 BEGIN - PROMPT 2 1 "Codice magazzino " + PROMPT 2 2 "Codice magazzino " FIELD CODTAB[1,3] KEY 1 - USE MAG SELECT CODTAB ?= "???" + USE MAG SELECT CODTAB[4,5]=="" FLAG "U" INPUT CODTAB F_CODICE DISPLAY "Codice " CODTAB[1,3] @@ -31,7 +37,7 @@ END STRING F_CODDEP 2 BEGIN - PROMPT 28 1 "Codice deposito " + PROMPT 28 2 "Codice deposito " FIELD CODTAB[4,5] FLAGS "U" KEY 1 @@ -96,7 +102,7 @@ BEGIN OUTPUT H_DESCR S0 MESSAGE K_TAB,F_CODDEP CHECKTYPE REQUIRED - WARNING "Manca la denominazione dell'istituto" + WARNING "Manca la denominazione del magazzino" END GROUPBOX DLG_NULL 72 5 diff --git a/ve/batbnum.uml b/ve/batbnum.uml index 363e44604..40192be77 100755 --- a/ve/batbnum.uml +++ b/ve/batbnum.uml @@ -2,30 +2,24 @@ TOOLBAR "" 0 20 60 2 - #include "toolbar.h" +#include "toolbar.h" ENDPAGE -PAGE "Numerazione documenti" -1 -1 60 14 +PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14 - GROUPBOX DLG_NULL 84 4 + GROUPBOX DLG_NULL 75 7 BEGIN - PROMPT 1 1 "" - // FLAG "R" - END - - GROUPBOX DLG_NULL 84 13 - BEGIN - PROMPT 1 5 "" - // FLAG "R" + PROMPT 1 0 "" + FLAG "R" END STRING F_CODTAB 4 BEGIN - PROMPT 2 2 "Codice numerazione " + PROMPT 2 2 "Cod. numerazione " FIELD CODTAB - HELP "Codice numerazione" - USE %NUM + HELP "Codice numerazione" + USE NUM CHECKTYPE REQUIRED INPUT CODTAB F_CODTAB DISPLAY "Codice" CODTAB @@ -36,12 +30,12 @@ PAGE "Numerazione documenti" -1 -1 60 14 FLAG "UZ" END - STRING F_DESNUM 40 + STRING F_DESNUM 50 BEGIN - PROMPT 2 3 "Descrizione numerazione " + PROMPT 2 4 "Descrizione " FIELD S0 - HELP "Descrizione numerazione" - USE %NUM KEY 2 + HELP "Descrizione numerazione" + USE NUM CHECKTYPE REQUIRED INPUT S0 F_DESNUM DISPLAY "Codice" CODTAB @@ -51,265 +45,251 @@ PAGE "Numerazione documenti" -1 -1 60 14 KEY 2 END - NUMBER F_ULTNUM 6 0 + NUMBER F_ULTNUM 7 0 BEGIN - PROMPT 2 6 "Numero ultimo documento emesso " + PROMPT 2 7 "Numero ultimo documento emesso " FIELD I0 FLAG "R" END - NUMBER F_ULTNUMPROV 6 0 + NUMBER F_ULTNUMPROV 7 0 BEGIN - PROMPT 2 7 "Numero ultimo documento creato " + PROMPT 2 8 "Numero ultimo documento creato " FIELD I1 FLAG "R" END DATE F_ULTDATA BEGIN - PROMPT 2 9 "Data emissione ultimo documento " + PROMPT 2 10 "Data emissione ultimo documento " FIELD D0 END STRING F_PREFISSO 7 BEGIN - PROMPT 2 11 "Prefisso numerazione " + PROMPT 2 12 "Prefisso numerazione " FIELD S6 END STRING F_SUFFISSO 7 BEGIN - PROMPT 2 12 "Suffisso numerazione " + PROMPT 2 13 "Suffisso numerazione " FIELD S7 END STRING F_ANNO 4 BEGIN - PROMPT 2 14 "Anno d'esercizio " + PROMPT 2 15 "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 "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 - +PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14 + + TEXT DLG_NULL + BEGIN + PROMPT 2 2 "Tipi di documento validi per la numerazione" + END + STRING F_TIPODOC1 4 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 CODTAB - OUTPUT F_DESDOC1 S0 - HELP "Tipo di documento 1" + OUTPUT F_TIPODOC1 TIP->CODTAB + OUTPUT F_DESDOC1 TIP->S0 + HELP "Tipo di documento 1" FIELD S2[1,4] CHECKTYPE NORMAL END - STRING F_DESDOC1 40 - BEGIN - PROMPT 12 4 "" - FLAG "D" - END + STRING F_DESDOC1 50 + BEGIN + PROMPT 10 4 "" + FLAG "D" + END STRING F_TIPODOC2 4 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 CODTAB - OUTPUT F_DESDOC2 S0 - HELP "Tipo di documento 2" + OUTPUT F_TIPODOC2 TIP->CODTAB + OUTPUT F_DESDOC2 TIP->S0 + HELP "Tipo di documento 2" FIELD S2[5,8] CHECKTYPE NORMAL END - STRING F_DESDOC2 40 - BEGIN - PROMPT 12 5 "" - FLAG "D" - END - + STRING F_DESDOC2 50 + BEGIN + PROMPT 10 5 "" + FLAG "D" + END + STRING F_TIPODOC3 4 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 CODTAB - OUTPUT F_DESDOC3 S0 - HELP "Tipo di documento 3" + OUTPUT F_TIPODOC3 TIP->CODTAB + OUTPUT F_DESDOC3 TIP->S0 + HELP "Tipo di documento 3" FIELD S2[9,12] CHECKTYPE NORMAL END - STRING F_DESDOC3 40 - BEGIN - PROMPT 12 6 "" - FLAG "D" - END - + STRING F_DESDOC3 50 + BEGIN + PROMPT 10 6 "" + FLAG "D" + END + STRING F_TIPODOC4 4 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 CODTAB - OUTPUT F_DESDOC4 S0 - HELP "Tipo di documento 4" + OUTPUT F_TIPODOC4 TIP->CODTAB + OUTPUT F_DESDOC4 TIP->S0 + HELP "Tipo di documento 4" FIELD S2[13,16] CHECKTYPE NORMAL END - STRING F_DESDOC4 40 - BEGIN - PROMPT 12 7 "" - FLAG "D" - END - + STRING F_DESDOC4 50 + BEGIN + PROMPT 10 7 "" + FLAG "D" + END + STRING F_TIPODOC5 4 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 CODTAB - OUTPUT F_DESDOC5 S0 - HELP "Tipo di documento 5" + OUTPUT F_TIPODOC5 TIP->CODTAB + OUTPUT F_DESDOC5 TIP->S0 + HELP "Tipo di documento 5" FIELD S2[17,20] CHECKTYPE NORMAL END - STRING F_DESDOC5 40 - BEGIN - PROMPT 12 8 "" - FLAG "D" - END - + STRING F_DESDOC5 50 + BEGIN + PROMPT 10 8 "" + FLAG "D" + END + STRING F_TIPODOC6 4 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 CODTAB - OUTPUT F_DESDOC6 S0 - HELP "Tipo di documento 6" + OUTPUT F_TIPODOC6 TIP->CODTAB + OUTPUT F_DESDOC6 TIP->S0 + HELP "Tipo di documento 6" FIELD S2[21,24] CHECKTYPE NORMAL END - STRING F_DESDOC6 40 - BEGIN - PROMPT 12 9 "" - FLAG "D" - END - + STRING F_DESDOC6 50 + BEGIN + PROMPT 10 9 "" + FLAG "D" + END + STRING F_TIPODOC7 4 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 CODTAB - OUTPUT F_DESDOC7 S0 - HELP "Tipo di documento 7" + OUTPUT F_TIPODOC7 TIP->CODTAB + OUTPUT F_DESDOC7 TIP->S0 + HELP "Tipo di documento 7" FIELD S2[25,28] CHECKTYPE NORMAL END - STRING F_DESDOC7 40 - BEGIN - PROMPT 12 10 "" - FLAG "D" - END - + STRING F_DESDOC7 50 + BEGIN + PROMPT 10 10 "" + FLAG "D" + END + STRING F_TIPODOC8 4 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 CODTAB - OUTPUT F_DESDOC8 S0 - HELP "Tipo di documento 8" + OUTPUT F_TIPODOC8 TIP->CODTAB + OUTPUT F_DESDOC8 TIP->S0 + HELP "Tipo di documento 8" FIELD S2[29,32] CHECKTYPE NORMAL END - STRING F_DESDOC8 40 - BEGIN - PROMPT 12 11 "" - FLAG "D" - END - + STRING F_DESDOC8 50 + BEGIN + PROMPT 10 11 "" + FLAG "D" + END + STRING F_TIPODOC9 4 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 CODTAB - OUTPUT F_DESDOC9 S0 - HELP "Tipo di documento 9" + OUTPUT F_TIPODOC9 TIP->CODTAB + OUTPUT F_DESDOC9 TIP->S0 + HELP "Tipo di documento 9" FIELD S2[32,36] CHECKTYPE NORMAL END - STRING F_DESDOC9 40 - BEGIN - PROMPT 12 12 "" - FLAG "D" - END - + STRING F_DESDOC9 50 + BEGIN + PROMPT 10 12 "" + FLAG "D" + END + STRING F_TIPODOC10 4 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 CODTAB - OUTPUT F_DESDOC10 S0 - HELP "Tipo di documento 10" + OUTPUT F_TIPODOC10 TIP->CODTAB + OUTPUT F_DESDOC10 TIP->S0 + HELP "Tipo di documento 10" FIELD S2[37,40] CHECKTYPE NORMAL END - STRING F_DESDOC10 40 - BEGIN - PROMPT 12 13 "" - FLAG "D" - END + STRING F_DESDOC10 50 + BEGIN + PROMPT 10 13 "" + FLAG "D" + END ENDMASK diff --git a/ve/batbrfa.h b/ve/batbrfa.h index f8f15b499..c3c9af8a0 100755 --- a/ve/batbrfa.h +++ b/ve/batbrfa.h @@ -1,10 +1,9 @@ -#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 +#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 diff --git a/ve/batbrfa.uml b/ve/batbrfa.uml index 0e23c1a6e..ebd7f5fb5 100755 --- a/ve/batbrfa.uml +++ b/ve/batbrfa.uml @@ -6,9 +6,15 @@ ENDPAGE PAGE "Raggruppamento fiscali articoli" -1 -1 78 9 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + STRING FLD_TABRFA_CODTAB 5 BEGIN - PROMPT 2 1 "Codice " + PROMPT 2 2 "Codice " FIELD CODTAB USE RFA CHECKTYPE REQUIRED @@ -21,15 +27,15 @@ BEGIN FLAGS "U" END -STRING FLD_TABRFA_S0 30 +STRING FLD_TABRFA_S0 50 BEGIN - PROMPT 2 3 "Descrizione " + PROMPT 2 4 "Descrizione " FIELD S0 USE RFA KEY 2 CHECKTYPE REQUIRED WARNING "Manca la descrizione" INPUT S0 FLD_TABRFA_S0 - DISPLAY "Descrizione@30" S0 + DISPLAY "Descrizione@50" S0 DISPLAY "Codice" CODTAB COPY OUTPUT FLD_TABRFA_CODTAB KEY 2 @@ -37,13 +43,13 @@ END STRING FLD_TABRFA_S7 2 BEGIN - PROMPT 2 5 "Unita' di misura " + PROMPT 2 8 "Unita' di misura " FIELD S7 END STRING FLD_TABRFA_S8 1 BEGIN - PROMPT 2 7 "Classe fiscale " + PROMPT 2 10 "Classe fiscale " FIELD S8 USE ASF INPUT CODTAB FLD_TABRFA_S8 @@ -56,31 +62,31 @@ END STRING FLD_DESCFA 30 BEGIN - PROMPT 25 7 "" + PROMPT 25 10 "" FLAG "D" END NUMBER FLD_TABRFA_R0 6 2 BEGIN - PROMPT 2 9 "Perc. ricarico medio " + PROMPT 2 12 "Perc. ricarico medio " FIELD R0 END NUMBER FLD_TABRFA_R1 12 2 BEGIN - PROMPT 2 11 "Costo minimo " + PROMPT 2 14 "Costo minimo " FIELD R1 END NUMBER FLD_TABRFA_R2 12 2 BEGIN - PROMPT 45 11 "massimo " + PROMPT 45 14 "massimo " FIELD R2 END LIST FLD_TABRFA_I0 1 30 BEGIN - PROMPT 2 13 "Tipo costo " + PROMPT 2 16 "Tipo costo " FIELD I0 HELP "Inserire il tipo di costo" ITEM "1|Costo medio annuale" @@ -95,4 +101,3 @@ END ENDPAGE ENDMASK - \ No newline at end of file diff --git a/ve/batbspp.h b/ve/batbspp.h index ca7f74533..c6c1c8c3c 100755 --- a/ve/batbspp.h +++ b/ve/batbspp.h @@ -21,6 +21,6 @@ #define F_CONTO 119 #define F_SOTTO 120 #define F_DESCRCONTO 121 - #define F_CODMOVCOM 123 #define F_CODMOVCOM1 124 +#define F_CAMPI 125 diff --git a/ve/batbspp.uml b/ve/batbspp.uml index 2e319560d..92cc8cf22 100755 --- a/ve/batbspp.uml +++ b/ve/batbspp.uml @@ -1,20 +1,24 @@ -#include "BATBSPP.H" -#define LF_PCON 19 +#include "batbspp.h" TOOLBAR "" 0 20 60 2 - #include +#include ENDPAGE PAGE "Tabella spese e prestazioni " 11 60 14 -STRING F_CODICE 3 +GROUPBOX DLG_NULL 75 7 BEGIN - PROMPT 3 1 "Cod. tabella " - FIELD SPP->CODTAB + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN + PROMPT 2 2 "Cod. tabella " + FIELD SPP->CODTAB KEY 1 - USE SPP + USE SPP FLAG "U" - INPUT CODTAB F_CODICE DISPLAY "Codice " CODTAB DISPLAY "Descrizione@50 " S0 @@ -22,18 +26,17 @@ BEGIN OUTPUT F_DESCR S0 CHECKTYPE REQUIRED END - + STRING F_DESCR 50 BEGIN - PROMPT 3 2 "Descrizione " + PROMPT 2 4 "Descrizione " FIELD SPP->S0 KEY 2 USE SPP KEY 2 - INPUT S0 F_DESCR - DISPLAY "Codice " CODTAB DISPLAY "Descrizione@50 " S0 + DISPLAY "Codice " CODTAB OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0 CHECKTYPE REQUIRED @@ -42,181 +45,194 @@ END STRING F_CODASSFIS 4 BEGIN - PROMPT 3 4 "Codice assogg. fiscale " + PROMPT 2 7 "Codice IVA " FIELD SPP->S1[1,4] USE %IVA INPUT CODTAB F_CODASSFIS DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@30" S0 + DISPLAY "D2escrizione@50" S0 OUTPUT F_CODASSFIS CODTAB OUTPUT F_CODASSFIS1 S0 - END -STRING F_CODASSFIS1 30 +STRING F_CODASSFIS1 50 BEGIN - PROMPT 35 4 "" + PROMPT 25 7 "" FLAG "D" END -STRING F_CODDIV 3 +STRING F_CODDIV 4 BEGIN - PROMPT 3 5 "Codice divisa " + PROMPT 2 8 "Codice valuta " FIELD SPP->S1[5,7] - USE CVA + USE VAL INPUT CODTAB F_CODDIV DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@30" S0 + DISPLAY "Descrizione@50" S0 OUTPUT F_CODDIV CODTAB OUTPUT F_CODDIV1 S0 - END -STRING F_CODDIV1 30 +STRING F_CODDIV1 50 BEGIN - PROMPT 30 5 "" + PROMPT 25 8 "" FLAG "D" END +LISTBOX F_CAMPI 15 +BEGIN + PROMPT 2 10 "Campo da proporre " + FIELD SPP->S6 + ITEM "Q|Qta prezzo " + MESSAGE HIDE,F_VALORE|HIDE,F_PERCENTUALE|SHOW,F_PREZZO + ITEM "V|Valore " + MESSAGE HIDE,F_PREZZO|HIDE,F_PERCENTUALE|SHOW,F_VALORE + ITEM "P|Percentuale " + MESSAGE HIDE,F_PREZZO|HIDE,F_VALORE|SHOW,F_PERCENTUALE +END + NUMBER F_PREZZO 13 2 BEGIN - PROMPT 3 6 "Prezzo " + PROMPT 50 10 "Prezzo " FIELD SPP->R0 END NUMBER F_VALORE 13 2 BEGIN - PROMPT 30 6 "Valore " - FIELD SPP->R1 -END - -STRING F_NCAMPOCAL 2 -BEGIN - PROMPT 3 7 "N° campo di calcolo " - FIELD SPP->I0 -END - -STRING F_NCAMPOCAL1 20 -BEGIN - PROMPT 29 7 "" - FLAG "D" + PROMPT 50 10 "Valore " + FIELD SPP->R0 END NUMBER F_PERCENTUALE 5 2 BEGIN - PROMPT 51 7 "Percentuale " - FIELD SPP->R2 + PROMPT 50 10 "Percentuale " + FIELD SPP->R0 +END + +STRING F_NCAMPOCAL 2 +BEGIN + PROMPT 2 12 "N. calcolo " + FIELD SPP->I0 +END + +STRING F_NCAMPOCAL1 50 +BEGIN + PROMPT 25 12 "" + FLAG "D" END LISTBOX F_TIPO 8 BEGIN - PROMPT 3 8 "Tipo spesa " + PROMPT 2 14 "Tipo spesa " FIELD SPP->S1[9] - ITEM "0|Spesa " - ITEM "1|Merce " + ITEM "S|Spesa " + ITEM "M|Merce " END BOOLEAN F_INCASSO BEGIN - PROMPT 3 10 "Spesa da incassare su prima rata " + PROMPT 2 16 "Spesa da incassare su prima rata " FIELD SPP->B0 END BOOLEAN F_STAMPA BEGIN - PROMPT 3 11 "Stampa riga su corpo documento " + PROMPT 2 17 "Stampa riga su corpo documento " FIELD SPP->B1 END +ENDPAGE + +PAGE "Tabella spese e prestazioni " 11 60 14 + STRING F_CODTABAGG 2 BEGIN - PROMPT 3 13 "Codice tabella agg. piede " - FIELD SPP->S1[11,12] + PROMPT 2 2 "N. agg. piede " + FIELD SPP->S1[11,12] END -STRING F_CODTABAGG1 20 +STRING F_CODTABAGG1 50 BEGIN - PROMPT 40 13 "" + PROMPT 25 2 "" FLAG "D" END STRING F_NCAMPOAUTOM 2 BEGIN - PROMPT 3 14 "Num. campo calcolo spese autom. " - FIELD SPP->S1[14,15] + PROMPT 2 4 "N. calcolo spese " + FIELD SPP->S1[14,15] END -STRING F_NCAMPOAUTOM1 15 +STRING F_NCAMPOAUTOM1 50 BEGIN - PROMPT 40 14 "" + PROMPT 25 4 "" FLAG "D" END STRING F_SEGNO 1 BEGIN - PROMPT 57 14 "Segno " + PROMPT 2 6 "Segno " FIELD SPP->S1[17] END -STRING F_GRUPPO 2 +NUMBER F_GRUPPO 3 BEGIN - PROMPT 3 15 "Conto di ric./costo " - FIELD SPP->S2 + PROMPT 2 8 "Conto ric./costo " + FIELD SPP->S2 + END + +NUMBER F_CONTO 3 +BEGIN + PROMPT 28 8 "" + FIELD SPP->S3 + USE LF_PCON SELECT (INDBIL="3")||(INDBIL="4") + 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 + ADD RUN CG0 -0 + END + +NUMBER F_SOTTO 6 +BEGIN + PROMPT 38 8 "" + FIELD SPP->S4 USE LF_PCON INPUT GRUPPO F_GRUPPO INPUT CONTO F_CONTO INPUT SOTTOCONTO F_SOTTO - DISPLAY "Gruppo " GRUPPO - DISPLAY "Conto " CONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Descrizione@50" DESCR - - OUTPUT F_GRUPPO GRUPPO - OUTPUT F_CONTO CONTO - OUTPUT F_SOTTO SOTTOCONTO - OUTPUT F_DESCRCONTO DESCR - CHECKTYPE REQUIRED + OUTPUT F_GRUPPO GRUPPO + OUTPUT F_CONTO CONTO + OUTPUT F_SOTTO SOTTOCONTO + OUTPUT F_DESCRCONTO DESCR + ADD RUN CG0 -0 END -STRING F_CONTO 2 +STRING F_DESCRCONTO 50 BEGIN - PROMPT 29 15 "" - FIELD SPP->S3 -END - -STRING F_SOTTO 6 -BEGIN - PROMPT 33 15 "" - FIELD SPP->S4 -END - -STRING F_DESCRCONTO 35 -BEGIN - PROMPT 41 15 "" + PROMPT 25 10 "" FLAG "D" END - -STRING F_CODMOVCOM 2 +STRING F_CODMOVCOM 3 BEGIN - PROMPT 3 16 "Codice movimento commessa " - FIELD SPP->S1[19,20] + PROMPT 2 12 "Mov. commessa " + FIELD SPP->S1[19,20] END -STRING F_CODMOVCOM1 30 +STRING F_CODMOVCOM1 50 BEGIN - PROMPT 40 16 "" + PROMPT 25 12 "" FLAG "D" END - -GROUPBOX DLG_NULL 73 4 -BEGIN - PROMPT 0 0 "" - FLAG "R" -END - ENDPAGE - ENDMASK diff --git a/ve/batbtip.uml b/ve/batbtip.uml index cfaf75218..b34ca5803 100755 --- a/ve/batbtip.uml +++ b/ve/batbtip.uml @@ -1,65 +1,65 @@ -#include "ve4.h" - -TOOLBAR "" 0 20 60 2 - - #include "toolbar.h" - -ENDPAGE - -PAGE "Tabella tipi di documento" -1 -1 60 14 - - GROUPBOX DLG_NULL 84 10 - BEGIN - PROMPT 1 1 "" - // FLAG "R" - END - - STRING F_CODTAB 4 - BEGIN - PROMPT 2 2 "Codice tipo di documento " - FIELD CODTAB - HELP "Codice tipo documento" - USE %TIP - CHECKTYPE REQUIRED - INPUT CODTAB F_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODTAB CODTAB - OUTPUT F_DESNUM S0 - KEY 1 - FLAG "UZ" - END - - STRING F_DESNUM 40 - BEGIN - PROMPT 2 4 "Descrizione tipo documento " - FIELD S0 - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - CHECKTYPE REQUIRED - INPUT S0 F_DESNUM - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODTAB CODTAB - OUTPUT F_DESNUM S0 - KEY 2 - END - - STRING F_PROFILO 8 - BEGIN - PROMPT 11 6 "Profilo documento " - FIELD S4 - FLAG "U" - END - - STRING F_PSTAMPA 8 - BEGIN - PROMPT 4 8 "Profilo stampa documento " - FIELD S5 - FLAG "U" - END - -ENDPAGE - -ENDMASK - +#include "ve4.h" + +TOOLBAR "" 0 20 60 2 + + #include "toolbar.h" + +ENDPAGE + +PAGE "Tabella tipi di documento" -1 -1 60 14 + + GROUPBOX DLG_NULL 75 7 + BEGIN + PROMPT 1 0 "" + FLAG "R" + END + + STRING F_CODTAB 4 + BEGIN + PROMPT 2 2 "Cod. tipo docum. " + FIELD CODTAB + HELP "Codice tipo documento" + USE %TIP + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESNUM S0 + KEY 1 + FLAG "UZ" + END + + STRING F_DESNUM 50 + BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DESNUM + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESNUM S0 + KEY 2 + END + + STRING F_PROFILO 8 + BEGIN + PROMPT 2 8 "Profilo documento " + FIELD S4 + FLAG "U" + END + + STRING F_PSTAMPA 8 + BEGIN + PROMPT 2 10 "Profilo stampa documento " + FIELD S5 + FLAG "U" + END + +ENDPAGE + +ENDMASK + diff --git a/ve/batbtri.uml b/ve/batbtri.uml index 330340b32..dcf147a33 100755 --- a/ve/batbtri.uml +++ b/ve/batbtri.uml @@ -1,48 +1,54 @@ -TOOLBAR "" 0 20 60 2 - - #include "toolbar.h" - -ENDPAGE - -#define F_CODICE 101 -#define F_DESCR 102 -#define F_PROFILO 103 - -PAGE "Tipo di riga" -1 -1 60 14 - - STRING F_CODICE 4 - BEGIN - PROMPT 2 2 "Codice " - FIELD CODTAB - FLAGS "U" - USE %TRI - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED - KEY 1 - END - - STRING F_DESCR 30 - BEGIN - PROMPT 2 4 "Descrizione " - FIELD S0 - USE %TRI KEY 2 - INPUT S0 F_DESCR - COPY DISPLAY F_CODICE - COPY OUTPUT F_CODICE - CHECKTYPE REQUIRED - KEY 2 - END - - STRING f_PROFILO 8 - BEGIN - PROMPT 2 6 "Profilo " - CHECKTYPE REQUIRED - FIELD S4 - END - -END -ENDMASK +TOOLBAR "" 0 20 60 2 + + #include "toolbar.h" + +ENDPAGE + +#define F_CODICE 101 +#define F_DESCR 102 +#define F_PROFILO 103 + +PAGE "Tipo di riga" -1 -1 60 14 + + GROUPBOX DLG_NULL 75 7 + BEGIN + PROMPT 1 0 "" + FLAGS "R" + END + + STRING F_CODICE 4 + BEGIN + PROMPT 2 2 "Codice " + FIELD CODTAB + FLAGS "U" + USE %TRI + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED + KEY 1 + END + + STRING F_DESCR 50 + BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + USE %TRI KEY 2 + INPUT S0 F_DESCR + COPY DISPLAY F_CODICE + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED + KEY 2 + END + + STRING f_PROFILO 8 + BEGIN + PROMPT 2 8 "Profilo " + CHECKTYPE REQUIRED + FIELD S4 + END + +END +ENDMASK diff --git a/ve/batbubi.uml b/ve/batbubi.uml index e3df2460a..f3fb47789 100755 --- a/ve/batbubi.uml +++ b/ve/batbubi.uml @@ -6,10 +6,15 @@ ENDPAGE PAGE "Ubicazioni " 11 60 14 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END STRING F_CODICE 10 BEGIN - PROMPT 4 4 "Codice ubicazione " + PROMPT 2 2 "Cod. Ubicazione " FIELD UBI->CODTAB KEY 1 USE UBI @@ -17,7 +22,7 @@ BEGIN FLAG "R" INPUT CODTAB F_CODICE DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40" S0 + DISPLAY "Descrizione@50" S0 DISPLAY "Piano " S6 DISPLAY "Corridoio " S7 DISPLAY "Fila " S8 @@ -34,15 +39,15 @@ BEGIN END -STRING F_DESCR 40 +STRING F_DESCR 50 BEGIN - PROMPT 4 6 "Descrizione " + PROMPT 2 4 "Descrizione " FIELD UBI->S0 KEY 2 USE UBI KEY 2 INPUT S0 F_DESCR DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40" S0 + DISPLAY "Descrizione@50" S0 DISPLAY "Piano " S6 DISPLAY "Corridoio " S7 DISPLAY "Fila " S8 @@ -61,42 +66,34 @@ END STRING F_PIANO 4 BEGIN - PROMPT 4 8 "Piano " + PROMPT 2 8 "Piano " FIELD UBI->S6 END STRING F_CORRIDOIO 4 BEGIN - PROMPT 28 8 "Corridoio " + PROMPT 26 8 "Corridoio " FIELD UBI->S7 END STRING F_FILA 4 BEGIN - PROMPT 49 8 "Fila " + PROMPT 52 8 "Fila " FIELD UBI->S8 END STRING F_SCAFFALE 4 BEGIN - PROMPT 4 10 "Scaffale " + PROMPT 2 10 "Scaffale " FIELD UBI->S9 END STRING F_PSCAFFALE 4 BEGIN - PROMPT 23 10 "Piano scaffale " + PROMPT 26 10 "Piano scaffale " FIELD UBI->S5 END -GROUPBOX DLG_NULL 68 11 -BEGIN - PROMPT 3 1 "" - FLAG "R" -END - - - ENDPAGE ENDMASK diff --git a/ve/batbums.uml b/ve/batbums.uml index 0d68bce0a..9c0c39e36 100755 --- a/ve/batbums.uml +++ b/ve/batbums.uml @@ -1,60 +1,61 @@ -#include "BATBUM.h" - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Unit… di misura " 11 60 14 - -STRING F_UM 2 -BEGIN - PROMPT 4 4 "Unit… di misura " - FIELD %UM->CODTAB - KEY 1 - FLAG "U" - USE %UM - FLAG "U" - INPUT CODTAB F_UM - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_UM CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -STRING F_DESCR 50 -BEGIN - PROMPT 4 6 "Descrizione " - FIELD %UM->S0 - KEY 2 - USE %UM KEY 2 - INPUT S0 F_DESCR - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_UM CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -STRING F_UMR 2 -BEGIN - PROMPT 4 10 "Unit… di riferimento " - FIELD %UM->S7 - FLAG "U" -END - -NUMBER F_FC 15 5 -BEGIN - PROMPT 4 12 "Fattore conv. al rif. " - FIELD %UM->R0 -END - -GROUPBOX DLG_NULL 70 7 -BEGIN - PROMPT 3 2 "" - FLAG "R" -END - -ENDPAGE - -ENDMASK +#include "batbums.h" + +TOOLBAR "" 0 20 60 2 +#include +ENDPAGE + +PAGE "Unita' di misura " 11 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END + +STRING F_UM 2 +BEGIN + PROMPT 2 2 "Unita' di misura " + FIELD %UM->CODTAB + KEY 1 + FLAG "U" + USE %UM + FLAG "U" + INPUT CODTAB F_UM + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_UM CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD %UM->S0 + KEY 2 + USE %UM KEY 2 + INPUT S0 F_DESCR + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_UM CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_UMR 2 +BEGIN + PROMPT 2 8 "Unita' di riferimento " + FIELD %UM->S7 + FLAG "U" +END + +NUMBER F_FC 15 5 +BEGIN + PROMPT 2 10 "Fattore conv. al rif. " + FIELD %UM->R0 +END + + +ENDPAGE + +ENDMASK