diff --git a/ve/batbgmc.h b/ve/batbgmc.h index 14cde1d08..e26f17646 100755 --- a/ve/batbgmc.h +++ b/ve/batbgmc.h @@ -2,18 +2,16 @@ #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 -#define F_CODIVARIF 110 -#define F_GRUPPOA 111 -#define F_CONTOA 112 -#define F_SOTTOCA 113 -#define F_DESCRA 114 -#define F_GRUPPOV 115 -#define F_CONTOV 116 -#define F_SOTTOCV 117 -#define F_DESCRV 118 +#define H_CODGRU 105 +#define H_DESGRU 106 +#define F_CODIVARIF 107 +#define F_CODIVARIF1 108 +#define F_GRUPPOA 109 +#define F_CONTOA 110 +#define F_SOTTOCA 111 +#define F_DESCRA 112 +#define F_GRUPPOV 113 +#define F_CONTOV 114 +#define F_SOTTOCV 115 +#define F_DESCRV 116 diff --git a/ve/batbgmc.uml b/ve/batbgmc.uml index fe9768655..004e615c5 100755 --- a/ve/batbgmc.uml +++ b/ve/batbgmc.uml @@ -100,97 +100,60 @@ BEGIN WARNING "Manca la descrizione del gruppo" END -STRING F_CODAGGDOC 2 -BEGIN - PROMPT 2 8 "Codice aggiornamento documenti " - FIELD S4 -END - -STRING F_CODAGGOMA 2 -BEGIN - PROMPT 2 9 "Codice aggiornamento omaggi " - FIELD S5 -END - -STRING F_CODAGGSCO 2 -BEGIN - PROMPT 2 10 "Codice aggiornamento sconti " - FIELD S6 -END - STRING F_CODIVARIF 4 BEGIN - PROMPT 2 11 "Codice iva di riferimento " + PROMPT 2 8 "Codice IVA " FIELD S7 USE %IVA INPUT CODTAB F_CODIVARIF DISPLAY "Codice IVA" CODTAB - DISPLAY "Aliquota" R0 + DISPLAY "Descrizione@50" S0 OUTPUT F_CODIVARIF CODTAB + OUTPUT F_CODIVARIF1 S0 CHECKTYPE NORMAL END -NUMBER F_GRUPPOA 3 +STRING F_CODIVARIF1 50 BEGIN - PROMPT 2 13 "Conto d'acquisto " - FIELD I0 -END - -NUMBER F_CONTOA 3 -BEGIN - PROMPT 24 13 "" - FIELD I1 -END - -NUMBER F_SOTTOCA 6 -BEGIN - PROMPT 29 13 "" - FIELD I2 - USE LF_PCON - INPUT GRUPPO F_GRUPPOA - INPUT CONTO F_CONTOA - INPUT SOTTOCONTO F_SOTTOCA - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOA GRUPPO - OUTPUT F_CONTOA CONTO - OUTPUT F_SOTTOCA SOTTOCONTO - OUTPUT F_DESCRA DESCR - CHECKTYPE NORMAL -END - -STRING F_DESCRA 50 -BEGIN - PROMPT 19 14 "" - FLAG "U" - USE LF_PCON KEY 2 - INPUT DESCR F_DESCRA - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOCA + PROMPT 25 8 "" + USE %IVA KEY 2 + INPUT S0 F_CODIVARIF1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + OUTPUT F_CODIVARIF CODTAB + OUTPUT F_CODIVARIF1 S0 + CHECKTYPE NORMAL END NUMBER F_GRUPPOV 3 BEGIN - PROMPT 2 15 "Conto di vendita " + PROMPT 2 10 "Conto vendita " FIELD I3 END NUMBER F_CONTOV 3 BEGIN - PROMPT 24 15 "" - FIELD I4 + PROMPT 22 10 "" + FIELD I4 + USE LF_PCON SELECT INDBIL=="4" + INPUT GRUPPO F_GRUPPOV + INPUT CONTO F_CONTOV + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOV GRUPPO + OUTPUT F_CONTOV CONTO + CHECKTYPE NORMAL + ADD RUN CG0 -0 + WARNING "Il conto deve essere un ricavo" END NUMBER F_SOTTOCV 6 BEGIN - PROMPT 29 15 "" + PROMPT 30 10 "" FIELD I5 - USE LF_PCON + USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO INPUT GRUPPO F_GRUPPOV INPUT CONTO F_CONTOV INPUT SOTTOCONTO F_SOTTOCV @@ -203,19 +166,87 @@ BEGIN OUTPUT F_SOTTOCV SOTTOCONTO OUTPUT F_DESCRV DESCR CHECKTYPE NORMAL + WARNING "Sottoconto errato" + ADD RUN CG0 -0 END STRING F_DESCRV 50 BEGIN - PROMPT 19 16 "" + PROMPT 17 11 "" FLAG "U" - USE LF_PCON KEY 2 + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO INPUT DESCR F_DESCRV DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO COPY OUTPUT F_SOTTOCV + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 +END + +NUMBER F_GRUPPOA 3 +BEGIN + PROMPT 2 13 "Conto acquisti " + FIELD I0 +END + +NUMBER F_CONTOA 3 +BEGIN + PROMPT 22 13 "" + FIELD I1 + USE LF_PCON SELECT INDBIL=="3" + INPUT GRUPPO F_GRUPPOA + INPUT CONTO F_CONTOA + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOA GRUPPO + OUTPUT F_CONTOA CONTO + CHECKTYPE NORMAL + WARNING "Il conto deve essere un costo" + ADD RUN CG0 -0 +END + +NUMBER F_SOTTOCA 6 +BEGIN + PROMPT 30 13 "" + FIELD I2 + USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT GRUPPO F_GRUPPOA + INPUT CONTO F_CONTOA + INPUT SOTTOCONTO F_SOTTOCA + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOA GRUPPO + OUTPUT F_CONTOA CONTO + OUTPUT F_SOTTOCA SOTTOCONTO + OUTPUT F_DESCRA DESCR + CHECKTYPE NORMAL + WARNING "Sottoconto errato" + ADD RUN CG0 -0 +END + +STRING F_DESCRA 50 +BEGIN + PROMPT 17 14 "" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRA + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCA + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 END ENDPAGE diff --git a/ve/batbnum.uml b/ve/batbnum.uml index ba0ccebff..1e96bd4af 100755 --- a/ve/batbnum.uml +++ b/ve/batbnum.uml @@ -79,7 +79,7 @@ ENDPAGE PAGE "Tipi documento validi" -1 -1 60 14 - GROUPBOX DLG_NULL 64 15 + GROUPBOX DLG_NULL 70 15 BEGIN PROMPT 1 1 "" // FLAG "R" @@ -105,11 +105,18 @@ PAGE "Tipi documento validi" -1 -1 60 14 CHECKTYPE NORMAL END - STRING F_DESDOC1 40 - BEGIN - PROMPT 12 4 "" - FLAG "D" - END + STRING F_DESDOC1 50 + BEGIN + PROMPT 12 4 "" + USE %TIP KEY 2 + INPUT S0 F_DESDOC1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_TIPODOC1 CODTAB + OUTPUT F_DESDOC1 S0 + HELP "Tipo di documento 1" + CHECKTYPE NORMAL + END STRING F_TIPODOC2 4 BEGIN @@ -126,11 +133,18 @@ PAGE "Tipi documento validi" -1 -1 60 14 CHECKTYPE NORMAL END - STRING F_DESDOC2 40 - BEGIN - PROMPT 12 6 "" - FLAG "D" - END + STRING F_DESDOC2 50 + BEGIN + PROMPT 12 6 "" + USE %TIP KEY 2 + INPUT S0 F_DESDOC2 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_TIPODOC2 CODTAB + OUTPUT F_DESDOC2 S0 + HELP "Tipo di documento 2" + CHECKTYPE NORMAL + END STRING F_TIPODOC3 4 BEGIN @@ -147,11 +161,18 @@ PAGE "Tipi documento validi" -1 -1 60 14 CHECKTYPE NORMAL END - STRING F_DESDOC3 40 - BEGIN - PROMPT 12 8 "" - FLAG "D" - END + STRING F_DESDOC3 50 + BEGIN + PROMPT 12 8 "" + USE %TIP KEY 2 + INPUT S0 F_DESDOC3 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_TIPODOC3 CODTAB + OUTPUT F_DESDOC3 S0 + HELP "Tipo di documento 3" + CHECKTYPE NORMAL + END STRING F_TIPODOC4 4 BEGIN @@ -168,11 +189,18 @@ PAGE "Tipi documento validi" -1 -1 60 14 CHECKTYPE NORMAL END - STRING F_DESDOC4 40 - BEGIN - PROMPT 12 10 "" - FLAG "D" - END + STRING F_DESDOC4 50 + BEGIN + PROMPT 12 10 "" + USE %TIP KEY 2 + INPUT S0 F_DESDOC4 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_TIPODOC4 CODTAB + OUTPUT F_DESDOC4 S0 + HELP "Tipo di documento 4" + CHECKTYPE NORMAL + END STRING F_TIPODOC5 4 BEGIN @@ -189,10 +217,17 @@ PAGE "Tipi documento validi" -1 -1 60 14 CHECKTYPE NORMAL END - STRING F_DESDOC5 40 - BEGIN - PROMPT 12 12 "" - FLAG "D" - END + STRING F_DESDOC5 50 + BEGIN + PROMPT 12 12 "" + USE %TIP KEY 2 + INPUT S0 F_DESDOC5 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_TIPODOC5 CODTAB + OUTPUT F_DESDOC5 S0 + HELP "Tipo di documento 5" + CHECKTYPE NORMAL + END ENDMASK diff --git a/ve/batbprs.rpt b/ve/batbprs.rpt index cf9b73715..de351fc2f 100755 --- a/ve/batbprs.rpt +++ b/ve/batbprs.rpt @@ -9,7 +9,8 @@ Tabella prestazioni 1|@68g%s|IVA 1|@74g%s|Valuta 1|@82g%s|Prezzo -1|@97g%s|UM +1|@97g%s|Q.ta +1|@112g%s|UM 2|@16g%s|Cod. Conto 2|@36g%s|Descrizione conto [Rows] @@ -18,7 +19,8 @@ Tabella prestazioni 1|S3|@68g@4s 1|S4|@74g@4s 1|R0|@82g@13n -1|S7|@97g@2s +1|R1|@97g@13n +1|S7|@112g@2s 2|I0|@16g@3n 2|I1|@21g@3n 2|I2|@26g@7n diff --git a/ve/batbprs.uml b/ve/batbprs.uml index 09d01484d..2d5a70ecb 100755 --- a/ve/batbprs.uml +++ b/ve/batbprs.uml @@ -59,7 +59,13 @@ END STRING F_CODASSFIS1 50 BEGIN PROMPT 25 7 "" - FLAG "D" + USE %IVA KEY 2 + INPUT S0 F_CODASSFIS1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + OUTPUT F_CODASSFIS CODTAB + OUTPUT F_CODASSFIS1 S0 + CHECKTYPE NORMAL END STRING F_CODDIV 4 @@ -79,7 +85,13 @@ END STRING F_CODDIV1 50 BEGIN PROMPT 25 8 "" - FLAG "D" + USE %VAL KEY 2 + INPUT S0 F_CODDIV1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + OUTPUT F_CODDIV CODTAB + OUTPUT F_CODDIV1 S0 + CHECKTYPE NORMAL END LISTBOX F_CAMPI 15 @@ -89,7 +101,7 @@ BEGIN ITEM "Q|Qta prezzo " MESSAGE ENABLE,F_QTA ITEM "V|Valore " - MESSAGE CLEAR,F_QTA + MESSAGE "1",F_QTA|DISABLE,F_QTA END NUMBER F_PREZZO 15 3 @@ -145,7 +157,8 @@ NUMBER F_SOTTOV 6 BEGIN PROMPT 30 14 "" FIELD I2 - USE LF_PCON + USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO INPUT GRUPPO F_GRUPPOV SELECT INPUT CONTO F_CONTOV SELECT INPUT SOTTOCONTO F_SOTTOV @@ -165,7 +178,18 @@ END STRING F_DESCRCONTOV 50 BEGIN PROMPT 17 15 "" - FLAG "D" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRCONTOV + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOV + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 END NUMBER F_GRUPPOA 3 @@ -196,7 +220,8 @@ NUMBER F_SOTTOA 6 BEGIN PROMPT 30 16 "" FIELD I5 - USE LF_PCON + USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO INPUT GRUPPO F_GRUPPOA SELECT INPUT CONTO F_CONTOA SELECT INPUT SOTTOCONTO F_SOTTOA @@ -216,7 +241,18 @@ END STRING F_DESCRCONTOA 50 BEGIN PROMPT 17 17 "" - FLAG "D" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRCONTOA + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOA + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 END ENDMASK diff --git a/ve/batbspp.uml b/ve/batbspp.uml index 0a0134375..aa359de97 100755 --- a/ve/batbspp.uml +++ b/ve/batbspp.uml @@ -59,7 +59,13 @@ END STRING F_CODASSFIS1 50 BEGIN PROMPT 25 7 "" - FLAG "D" + USE %IVA KEY 2 + INPUT S0 F_CODASSFIS1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + OUTPUT F_CODASSFIS CODTAB + OUTPUT F_CODASSFIS1 S0 + CHECKTYPE NORMAL END STRING F_CODDIV 4 @@ -79,7 +85,13 @@ END STRING F_CODDIV1 50 BEGIN PROMPT 25 8 "" - FLAG "D" + USE %VAL KEY 2 + INPUT S0 F_CODDIV1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + OUTPUT F_CODDIV CODTAB + OUTPUT F_CODDIV1 S0 + CHECKTYPE NORMAL END LISTBOX F_CAMPI 15 @@ -89,7 +101,7 @@ BEGIN ITEM "Q|Qta prezzo " MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@ ITEM "V|Valore " - MESSAGE SHOW,1@|CLEAR,2@|HIDE,3@|RESET,3@ + MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@ ITEM "P|Percentuale " MESSAGE SHOW,3@|HIDE,1@|RESET,1@ END @@ -147,7 +159,13 @@ END STRING F_NCAMPOCAL1 50 BEGIN PROMPT 17 13 "" - FLAG "D" + USE %FRD + INPUT S0 F_NCAMPOCAL1 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + OUTPUT F_NCAMPOCAL CODTAB + OUTPUT F_NCAMPOCAL1 S0 + CHECKTYPE NORMAL GROUP 3 END @@ -199,8 +217,19 @@ END STRING F_DESCRCONTOV 50 BEGIN - PROMPT 17 16 "" - FLAG "D" + PROMPT 17 16 "" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRCONTOV + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOV + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 END NUMBER F_GRUPPOA 3 @@ -252,7 +281,18 @@ END STRING F_DESCRCONTOA 50 BEGIN PROMPT 17 18 "" - FLAG "D" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRCONTOA + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOA + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 END ENDMASK diff --git a/ve/batbtip.h b/ve/batbtip.h index ff963d2f3..a3b878bc0 100755 --- a/ve/batbtip.h +++ b/ve/batbtip.h @@ -1,7 +1,8 @@ #define F_CODTAB 101 #define F_DESNUM 102 -#define F_RIFERIMENTO 103 -#define F_PROFILO 104 -#define F_PSTAMPA 105 -#define F_CODCAUS 106 +#define F_PROFILO 103 +#define F_PSTAMPA 104 +#define F_CODCAUS 105 +#define F_DESCAUS 106 #define F_NCOPIE 107 +#define F_RIFERIMENTO 108 diff --git a/ve/batbtip.rpt b/ve/batbtip.rpt index 08dc1ba1b..d2684ea78 100755 --- a/ve/batbtip.rpt +++ b/ve/batbtip.rpt @@ -1,11 +1,11 @@ [Headers] 132 -Tabella Formule documento +Tabella Tipi documento 1|@2g%s|Cod. 1|@7g%s|Descrizione 1|@58g%s|Riferimento -1|@109g%s|Pr.doc. -1|@118g%s|Pr.st. +1|@109g%s|Pr. doc. +1|@118g%s|Pr. st. 1|@127g%s|Caus. [Rows] 1|CODTAB|@2g@4s diff --git a/ve/batbtip.uml b/ve/batbtip.uml index 66493489d..6f3bfbd67 100755 --- a/ve/batbtip.uml +++ b/ve/batbtip.uml @@ -45,8 +45,9 @@ END STRING F_RIFERIMENTO 50 BEGIN - PROMPT 2 6 "Riferimento " + PROMPT 2 6 "Riferimento " FIELD S1 + CHECKTYPE NORMAL END STRING F_PROFILO 8 @@ -73,13 +74,27 @@ END STRING F_CODCAUS 3 BEGIN - PROMPT 2 11 "Codice causale " + PROMPT 2 12 "Codice causale " FIELD S6 USE LF_CAUSALI INPUT CODCAUS F_CODCAUS DISPLAY "Codice" CODCAUS DISPLAY "Descrizione@50" DESCR OUTPUT F_CODCAUS CODCAUS + OUTPUT F_DESCAUS DESCR + CHECKTYPE NORMAL +END + +STRING F_DESCAUS 50 +BEGIN + PROMPT 2 13 "Descrizione causale " + FLAG "U" + USE LF_CAUSALI KEY 2 + INPUT DESCR F_DESCAUS + DISPLAY "Descrizione@50" DESCR + DISPLAY "Codice" CODCAUS + OUTPUT F_DESCAUS DESCR + OUTPUT F_CODCAUS CODCAUS CHECKTYPE NORMAL END diff --git a/ve/batbtri.rpt b/ve/batbtri.rpt index e4b19f627..beb179ab6 100755 --- a/ve/batbtri.rpt +++ b/ve/batbtri.rpt @@ -13,3 +13,4 @@ Tabella Tipo riga documento 4|S7|S|Spese 4|S7|C|Sconti 4|S7|D|Descrizioni +4|S7|P|Prestazioni diff --git a/ve/bollac.src b/ve/bollac.src index 64d8f9d89..774881ca6 100755 --- a/ve/bollac.src +++ b/ve/bollac.src @@ -209,12 +209,13 @@ NCOLS=10 10=FR_CODIVA [RIGHE] -NTIPIRIGA=5 +NTIPIRIGA=6 1=01 2=02 3=03 4=04 5=05 +6=06 [HANDLERS] NHANDLER=0 diff --git a/ve/ve0300a.src b/ve/ve0300a.src index 880e38ee1..902df98ef 100755 --- a/ve/ve0300a.src +++ b/ve/ve0300a.src @@ -1122,10 +1122,10 @@ X=2 Y=0 FIELDNAME=CODVETT1 MSKID=F_CODVETT1 -TYPE=T_NUMERO +TYPE=T_STRINGA PROMPT="Vettore 1' " SIZE=5 -FLAG=Z +FLAG=ZU USE=%VET INPUT=CODTAB F_CODVETT1 DISPLAY="Codice" CODTAB~"Descrizione@50" S0 @@ -1154,10 +1154,10 @@ X=2 Y=1 FIELDNAME=CODVETT2 MSKID=F_CODVETT2 -TYPE=T_NUMERO +TYPE=T_STRINGA PROMPT="Vettore 2' " SIZE=5 -FLAG=Z +FLAG=ZU USE=%VET INPUT=CODTAB F_CODVETT2 DISPLAY="Codice" CODTAB~"Descrizione@50" S0 @@ -1186,10 +1186,10 @@ X=2 Y=2 FIELDNAME=CODVETT3 MSKID=F_CODVETT3 -TYPE=T_NUMERO +TYPE=T_STRINGA PROMPT="Vettore 3' " SIZE=5 -FLAG=Z +FLAG=ZU USE=%VET INPUT=CODTAB F_CODVETT3 DISPLAY="Codice" CODTAB~"Descrizione@50" S0 diff --git a/ve/verig.uml b/ve/verig.uml index fe652a144..ab2ff0f0b 100755 --- a/ve/verig.uml +++ b/ve/verig.uml @@ -397,6 +397,7 @@ ENDIF DISPLAY "Descrizione@50" %UMS->S0 OUTPUT FR_UMQTA UM FIELD UMQTA + FLAG "U" IFDEF(CH_UMQTA) CHECKTYPE CH_UMQTA ELSEIF @@ -419,6 +420,7 @@ ENDIF DISPLAY "Descrizione@50" S0 OUTPUT FR_UMQTASP CODTAB FIELD UMQTA + FLAG "U" IFDEF(CH_UMQTASP) CHECKTYPE CH_UMQTASP ELSEIF