Merge branch 'R_10_00' of http://10.65.20.33/sirio/CAMPO/campo into R_10_00

src/fp/fplib01.cpp

@@ -1267,9 +1267,7 @@ void TDoc_fp::add_ritenuta(const TDocumentoEsteso& doc, const TSpesa_prest& sp,
 	paf0700f.set("P7_TIPORITENUTA", _rec_clifo.get_char(CLI_TIPOPERS) == 'F' ? "RT01" : "RT02");
 	TString doc_imponibile = doc.imponibile().string();
 
-	const real imponibile = doc.ritenute();
+	paf0700f.set("P7_IMPORTORIT", converti_prezzo(doc.ritenute()));
-
-	paf0700f.set("P7_IMPORTORIT", converti_prezzo(imponibile * sp.perc() / CENTO));
 	paf0700f.set("P7_ALIQUOTARIT", sp.perc());
 	static TString caus_la; caus_la.cut(0);
 	caus_la << sp.get("S14");

src/ve/vetbatr.uml

@@ -247,7 +247,7 @@ END
 
 STRING ATR_CODARTDISP 20
 BEGIN
-  PROMPT 2 15 "Art. dispon.  "
+  PROMPT 2 16 "Art. dispon.  "
   COPY USE ATR_CODART
   INPUT CODART ATR_CODARTDISP
   COPY DISPLAY ATR_CODART
@@ -261,7 +261,7 @@ END
 
 STRING ATR_DESCARTDISP 50 34
 BEGIN
-  PROMPT 40 15 ""
+  PROMPT 40 16 ""
   COPY USE ATR_DESCART
   INPUT DESCR ATR_DESCARTDISP
   COPY DISPLAY ATR_DESCART
@@ -273,7 +273,7 @@ END
 
 STRING ATR_TIPORADISP 2
 BEGIN
-  PROMPT 2 16 "Tipo ora "
+  PROMPT 2 17 "Tipo ora "
   USE &CIORE
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
@@ -285,7 +285,7 @@ END
 
 CURRENCY ATR_PREZZODISP 12
 BEGIN
-  PROMPT 22 16 "Prezzo disponibilità "
+  PROMPT 22 17 "Prezzo disponibilità "
   FLAGS "U"
   FIELD R11
   MODULE ci

src/ve/vetbprs.uml

@@ -297,7 +297,7 @@ END
 
 STRING PRS_CODTRB 4
 BEGIN
-PROMPT 2 20  "Cod. tributo   "
+PROMPT 2 22  "Cod.tributo"
 FIELD S10
 FLAG "U"
 USE %TRB
@@ -311,7 +311,7 @@ END
 
 STRING PRS_CODTRB1 50 22
 BEGIN
-PROMPT 25 20 ""
+PROMPT 22 22 ""
 USE %TRB KEY 2
 INPUT S0  PRS_CODTRB1
 DISPLAY "Descrizione@50" S0
@@ -323,7 +323,7 @@ END
 
 NUMBER PRS_CODCAUS770 2
 BEGIN
-  PROMPT 2 21 "Caus. 770 "
+  PROMPT 2 23 "Caus. 770 "
   USE %CA7 SELECT I0==#PRS_CODTRB
   INPUT CODTAB PRS_CODCAUS770
   DISPLAY "Cod.caus." CODTAB
@@ -340,7 +340,7 @@ END
 
 LISTBOX PRS_CODQUA 2 10
 BEGIN
-  PROMPT 20 21 "Quadro    "
+  PROMPT 18 23 "Quadro    "
   HELP "Inserire il codice quadro"
   ITEM "|" MESSAGE CLEAR,PRS_CAUSD
   ITEM "LA|Quadro LA" MESSAGE ENABLE,PRS_CAUSD
@@ -352,7 +352,7 @@ END
 
 STRING PRS_CAUSD 2
 BEGIN             
-  PROMPT 50 21 "Causale LA "
+  PROMPT 41 23 "Causale LA"
   FLAGS "U"
   SHEET "Codice|Descrizione@320"
   INPUT PRS_CAUSD
@@ -396,7 +396,7 @@ END
 
 LISTBOX PRS_SEZIONE 6
 BEGIN
-  PROMPT 2 23 "Sezione per cooperative "
+  PROMPT 56 23 "Sezione per cooperative"
   FIELD S11
   ITEM "D|Dare"
   ITEM "A|Avere"

src/ve/vetbrss.uml

@@ -443,7 +443,7 @@ END
 
 STRING RSS_TIPOSTRA1 2
 BEGIN
-  PROMPT 1 17 "Tipo ora straordinaria 1 "
+  PROMPT 1 20 "Tipo ora straordinaria 1 "
   USE &CIORE 
   INPUT CODTAB RSS_TIPOSTRA1
   DISPLAY "Codice" CODTAB
@@ -455,19 +455,19 @@ END
 
 NUMBER RSS_DOPOSTRA1 2
 BEGIN
-  PROMPT 41 17 "dopo ore "
+  PROMPT 41 20 "dopo ore "
   FIELD R5
 END
 
 CURRENCY RSS_COSTOSTRA1 9
 BEGIN
-  PROMPT 59 17 "Costo "
+  PROMPT 59 20 "Costo "
   FIELD R6
 END
 
 STRING RSS_TIPOSTRA2 2
 BEGIN
-  PROMPT 1 18 "Tipo ora straordinaria 2 "
+  PROMPT 1 21 "Tipo ora straordinaria 2 "
   COPY USE RSS_TIPOSTRA1
   INPUT CODTAB RSS_TIPOSTRA2
   COPY DISPLAY RSS_TIPOSTRA1
@@ -478,13 +478,13 @@ END
 
 NUMBER RSS_DOPOSTRA2 2
 BEGIN
-  PROMPT 41 18 "dopo ore "
+  PROMPT 41 21 "dopo ore "
   FIELD R7
 END
 
 CURRENCY RSS_COSTOSTRA2 9
 BEGIN
-  PROMPT 59 18 "Costo "
+  PROMPT 59 21 "Costo "
   FIELD R8
 END
 

src/ve/vetbspp.uml

@@ -269,14 +269,14 @@ END
 
 NUMBER SPP_GRUPPOA 3
 BEGIN
-  PROMPT 2 12 "Conto acquisti "
+  PROMPT 2 15 "Conto acquisti "
   FIELD I3
   CHECKTYPE NORMAL
  END
 
 NUMBER SPP_CONTOA 3
 BEGIN
-  PROMPT 22 12 ""
+  PROMPT 22 15 ""
   FIELD I4
   USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
   INPUT GRUPPO      SPP_GRUPPOA
@@ -293,7 +293,7 @@ BEGIN
 
 NUMBER SPP_SOTTOA 6
 BEGIN
-  PROMPT 29 12 ""
+  PROMPT 29 15 ""
   FIELD I5
   USE LF_PCON SELECT SOTTOCONTO!=""
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
@@ -315,7 +315,7 @@ END
 
 STRING SPP_DESCRCONTOA 50 35
 BEGIN
-  PROMPT 40 12 ""
+  PROMPT 40 15 ""
   FLAG "U"
   USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
@@ -332,7 +332,7 @@ END
 
 LIST SPP_TIPOSP 1 20
 BEGIN
-  PROMPT 2 14 "Tipologia di spesa/prestazione "
+  PROMPT 2 20 "Tipologia di spesa/prestazione "
   FIELD S11[1,1]
   ITEM " |Altro"
   ITEM "I|Incasso"
@@ -342,7 +342,7 @@ END
 
 STRING SPP_CODTRB 4
 BEGIN
-  PROMPT 2 15  "Cod. tributo   "
+  PROMPT 2 21  "Cod. tributo   "
   FIELD S10
   FLAG "U"
   USE %TRB
@@ -356,7 +356,7 @@ END
 
 STRING SPP_CODTRB1 50 22
 BEGIN
-  PROMPT 25 15 ""
+  PROMPT 25 21 ""
   USE %TRB KEY 2
   INPUT S0  SPP_CODTRB1
   DISPLAY "Descrizione@50" S0
@@ -368,7 +368,7 @@ END
 
 NUMBER SPP_CODCAUS770 2
 BEGIN
-  PROMPT 2 16 "Caus. 770 "
+  PROMPT 2 22 "Caus. 770 "
   USE %CA7 SELECT I0==#SPP_CODTRB
   INPUT CODTAB SPP_CODCAUS770
   DISPLAY "Cod.caus." CODTAB
@@ -385,7 +385,7 @@ END
 
 LISTBOX SPP_CODQUA 2 10
 BEGIN
-  PROMPT 20 16 "Quadro    "
+  PROMPT 20 22 "Quadro    "
   HELP "Inserire il codice quadro"
   ITEM "|" MESSAGE CLEAR,SPP_CAUSD
   ITEM "LA|Quadro LA" MESSAGE ENABLE,SPP_CAUSD
@@ -397,7 +397,7 @@ END
 
 STRING SPP_CAUSD 2
 BEGIN             
-  PROMPT 50 16 "Causale LA "
+  PROMPT 50 22 "Causale LA "
   FLAGS "U"
   SHEET "Codice|Descrizione@320"
   INPUT SPP_CAUSD
@@ -441,7 +441,7 @@ END
 
 LISTBOX SPP_SEZIONE 6
 BEGIN
-  PROMPT 2 17 "Sezione per cooperative "
+  PROMPT 2 23 "Sezione per cooperative "
   FIELD S11[5,5]
   ITEM "D|Dare"
   ITEM "A|Avere" 
@@ -449,7 +449,7 @@ END
 
 STRING SPP_TIPOCAS 4
 BEGIN             
-  PROMPT 2 18 "Tipo Cassa Previdenziale "
+  PROMPT 2 24 "Tipo Cassa Previdenziale "
   FLAGS "U"
   SHEET "Codice|Descrizione@320"
   INPUT SPP_TIPOCAS
@@ -484,7 +484,7 @@ END
 
 BOOLEAN SPP_SOGGRIT
 BEGIN
-	PROMPT 40 18 "Soggetto a ritenuta "
+	PROMPT 40 24 "Soggetto a ritenuta"
 	FLAGS "D"
 	FIELD B0
 	GROUP 4
@@ -492,7 +492,7 @@ END
 
 BOOLEAN SPP_CALCRIT
 BEGIN
-	PROMPT 2 19 "Spesa rientrante nel calcolo ritenuta "
+	PROMPT 60 24 "Soggetto al calcolo rit."
 	FLAGS "D"
 	FIELD B1
 	GROUP 4