Patch level : 2.0 590

Files correlati     : ve0.exe ve1.exe ve6.exe batbtip.msk
Ricompilazione Demo : [ ]
Commento            :

GF20105
Nell'elaborazione differita di fatturazione bolle partendo da una fattura
sulla quale si va in aggiungi documento se clicco su documento e non
sull'articolo e poi dò per errore più volte conferma mi importa le righe di
quella bolla tante volte quante sono quelle che ho cliccato su conferma.

GF20106
Nella stampa non riporta gli estremi della fattura sulla quale una bolla di
acquisto e stata fatturata.

GF20107
Nella contabilizzazione di una fattura in valuta contro euro  il movimento
in prima nota riporta come totale documento e come importo della prima
scadenza un centesimo in più. (Vedere area dati inviata a Roberto)

GF20108
Gli effetti con valuta contro euro non hanno la relativa spunta,
se riseleziono la valuta questa appare. Attenzione però perchè se ho la
gestione dei cambi e nella relativa valuta di quel giorno ho la spunta di
contro euro anche se riseleziono la valuta di quel giorno la spunta di
contro euro nella maschera non appare.


git-svn-id: svn://10.65.10.50/trunk@11465 c028cbd2-c16b-5b4b-a496-9718f37d4682

ve/batbtip.uml

@@ -319,7 +319,7 @@ PAGE "Stati validi" -1 -1 60 14
 
 STRING F_STATOF_INS 1
 BEGIN
-  PROMPT 1 1 "Stato di inserimento "
+  PROMPT 1 1 "Inserimento "
   FIELD S2[1,1]
   USE %STD
   INPUT CODTAB F_STATOF_INS
@@ -333,7 +333,7 @@ END
 
 STRING F_STATOF_ST 1
 BEGIN
-  PROMPT 26 1 "Stato di stampa definitiva "
+  PROMPT 29 1 "Stampa definitiva "
   FIELD S2[2,2]
   COPY USE F_STATOF_INS
   INPUT CODTAB F_STATOF_ST
@@ -346,7 +346,7 @@ END
 
 STRING F_STATOBLC 1
 BEGIN
-  PROMPT 57 1 "Stato bloccato "
+  PROMPT 62 1 "Bloccato "
   FIELD S2[3,3]
   COPY USE F_STATOF_INS
   INPUT CODTAB F_STATOBLC
@@ -360,7 +360,7 @@ END
 
 GROUPBOX DLG_NULL 75 6
 BEGIN
-  PROMPT 1 2 "Stati iniziali validi per la modifica"
+  PROMPT 1 2 "Stati validi per la modifica"
 END
 
 STRING F_STATOI_MOD_1 1
@@ -373,7 +373,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_1 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_2 1
@@ -386,7 +386,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_2 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_3 1
@@ -399,7 +399,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_3 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_4 1
@@ -412,7 +412,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_4 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_5 1
@@ -425,7 +425,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_5 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_6 1
@@ -438,7 +438,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_6 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_7 1
@@ -451,7 +451,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_7 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_8 1
@@ -464,7 +464,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_8 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_9 1
@@ -477,7 +477,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_9 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_10 1
@@ -490,7 +490,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_10 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_11 1
@@ -503,7 +503,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_11 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_12 1
@@ -516,7 +516,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_12 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_13 1
@@ -529,7 +529,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_13 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_14 1
@@ -542,7 +542,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_14 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_15 1
@@ -555,7 +555,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_15 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_16 1
@@ -568,7 +568,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_16 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_17 1
@@ -581,7 +581,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_17 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_18 1
@@ -594,7 +594,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_18 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_19 1
@@ -607,7 +607,7 @@ BEGIN
   OUTPUT F_STATOI_MOD_19 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_MOD_20 1
@@ -620,12 +620,12 @@ BEGIN
   OUTPUT F_STATOI_MOD_20 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 GROUPBOX DLG_NULL 75 6
 BEGIN
-  PROMPT 1 8 "Stati iniziali validi per la cancellazione"
+  PROMPT 1 8 "Stati validi per la cancellazione"
 END
 
 STRING F_STATOI_CANC_1 1
@@ -638,7 +638,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_1 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_2 1
@@ -651,7 +651,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_2 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_3 1
@@ -664,7 +664,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_3 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_4 1
@@ -677,7 +677,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_4 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_5 1
@@ -690,7 +690,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_5 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_6 1
@@ -703,7 +703,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_6 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_7 1
@@ -716,7 +716,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_7 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_8 1
@@ -729,7 +729,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_8 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_9 1
@@ -742,7 +742,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_9 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_10 1
@@ -755,7 +755,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_10 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_11 1
@@ -768,7 +768,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_11 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_12 1
@@ -781,7 +781,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_12 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_13 1
@@ -794,7 +794,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_13 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_14 1
@@ -807,7 +807,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_14 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_15 1
@@ -820,7 +820,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_15 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_16 1
@@ -833,7 +833,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_16 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_17 1
@@ -846,7 +846,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_17 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_18 1
@@ -859,7 +859,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_18 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_19 1
@@ -872,7 +872,7 @@ BEGIN
   OUTPUT F_STATOI_CANC_19 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_CANC_20 1
@@ -885,12 +885,12 @@ BEGIN
   OUTPUT F_STATOI_CANC_20 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 GROUPBOX DLG_NULL 75 6
 BEGIN
-  PROMPT 1 14 "Stati iniziali validi per la stampa"
+  PROMPT 1 14 "Stati validi per la stampa"
 END
 
 STRING F_STATOI_ST_1 1
@@ -903,7 +903,7 @@ BEGIN
   OUTPUT F_STATOI_ST_1 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_2 1
@@ -916,7 +916,7 @@ BEGIN
   OUTPUT F_STATOI_ST_2 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_3 1
@@ -929,7 +929,7 @@ BEGIN
   OUTPUT F_STATOI_ST_3 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_4 1
@@ -942,7 +942,7 @@ BEGIN
   OUTPUT F_STATOI_ST_4 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_5 1
@@ -955,7 +955,7 @@ BEGIN
   OUTPUT F_STATOI_ST_5 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_6 1
@@ -968,7 +968,7 @@ BEGIN
   OUTPUT F_STATOI_ST_6 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_7 1
@@ -981,7 +981,7 @@ BEGIN
   OUTPUT F_STATOI_ST_7 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_8 1
@@ -994,7 +994,7 @@ BEGIN
   OUTPUT F_STATOI_ST_8 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_9 1
@@ -1007,7 +1007,7 @@ BEGIN
   OUTPUT F_STATOI_ST_9 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_10 1
@@ -1020,7 +1020,7 @@ BEGIN
   OUTPUT F_STATOI_ST_10 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_11 1
@@ -1033,7 +1033,7 @@ BEGIN
   OUTPUT F_STATOI_ST_11 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_12 1
@@ -1046,7 +1046,7 @@ BEGIN
   OUTPUT F_STATOI_ST_12 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_13 1
@@ -1059,7 +1059,7 @@ BEGIN
   OUTPUT F_STATOI_ST_13 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_14 1
@@ -1072,7 +1072,7 @@ BEGIN
   OUTPUT F_STATOI_ST_14 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_15 1
@@ -1085,7 +1085,7 @@ BEGIN
   OUTPUT F_STATOI_ST_15 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_16 1
@@ -1098,7 +1098,7 @@ BEGIN
   OUTPUT F_STATOI_ST_16 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_17 1
@@ -1111,7 +1111,7 @@ BEGIN
   OUTPUT F_STATOI_ST_17 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_18 1
@@ -1124,7 +1124,7 @@ BEGIN
   OUTPUT F_STATOI_ST_18 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_19 1
@@ -1137,7 +1137,7 @@ BEGIN
   OUTPUT F_STATOI_ST_19 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 STRING F_STATOI_ST_20 1
@@ -1150,7 +1150,7 @@ BEGIN
   OUTPUT F_STATOI_ST_20 CODTAB
   CHECKYTPE NORMAL
   FLAGS "U"
-  WARNING "Stato finale assente"
+  WARNING "Stato assente"
 END
 
 ENDPAGE

ve/ve1100.cpp

@@ -11,9 +11,6 @@
 #include <progind.h>
 #include <sheet.h>
 
-#include <doc.h>
-#include <rdoc.h>
-
 #include "velib.h"
 #include "sconti.h"
 #include "ve1100.h"
@@ -186,6 +183,7 @@ TDocumento_form::TDocumento_form(TRectype& doc, TRelation& rel, bool definitiva,
     nomeform.trim();
 
     TFilename test(nomeform); test.ext("frm");
+    test.custom_path();
     if (!test.exist()) 
     {
       error_box(FR("Nome form di stampa '%s' non valido per il tipo documento %s"), (const char*)nomeform, (const char*)tipodoc);
@@ -1028,9 +1026,9 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s)
   {         
     const TString16 which(s.get());
     TString16 data;
-    if (which == "DATACONS")
+    if (which == RDOC_DATACONS)
     {
-      TLocalisamfile & rdoc= (cursor())->file(LF_RIGHEDOC);
+      const TRectype& rdoc= cursor()->curr(LF_RIGHEDOC);
       data = rdoc.get(which);
     }
     if (data.empty())
@@ -1048,22 +1046,22 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s)
   }
   if (code== "_PARENTDOC")
   {
-    const TRectype * rdoc = &cursor()->file(LF_RIGHEDOC).curr();
+    const TRectype* rdoc = &cursor()->curr(LF_RIGHEDOC);
     int level = s.get_int(1);
       
     for (; rdoc != NULL && level > 0; level--)
-      rdoc = ((const TRiga_documento *) rdoc)->find_original_rdoc();
+      rdoc = ((const TRiga_documento*)rdoc)->find_original_rdoc();
       
     if (rdoc != NULL && rdoc->get(RDOC_PROVV).not_empty())
     {
-      TString16 codnum(rdoc->get(RDOC_CODNUM));
+      const char provv      = rdoc->get_char(RDOC_PROVV);
-      int anno = rdoc->get_int(RDOC_ANNO);
+      const int anno        = rdoc->get_int(RDOC_ANNO);
-      TString16 provv(rdoc->get(RDOC_PROVV));
+      const TString8 codnum = rdoc->get(RDOC_CODNUM);
-      long ndoc = rdoc->get_long(RDOC_NDOC);         
+      const long ndoc       = rdoc->get_long(RDOC_NDOC);         
         
       if (s.get(3) != NULL)   // "FULL"
       {
-        TDocumento doc(provv[0], anno, codnum, ndoc);
+        TDocumento doc(provv, anno, codnum, ndoc);
         output_values(doc, s.get(2), cf);
       }
       else  
@@ -1091,10 +1089,10 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s)
     {
       if (s.get(3) != NULL)  // "FULL"
       {
-        TString16 codnum(rdoc->get(RDOC_CODNUM));
+        const char provv      = rdoc->get_char(RDOC_PROVV);
-        int anno = rdoc->get_int(RDOC_ANNO);
+        const int anno        = rdoc->get_int(RDOC_ANNO);
-        char provv = rdoc->get_char(RDOC_PROVV);
+        const TString8 codnum = rdoc->get(RDOC_CODNUM);
-        long ndoc = rdoc->get_long(RDOC_NDOC);
+        const long ndoc       = rdoc->get_long(RDOC_NDOC);
         TDocumento doc(provv, anno, codnum, ndoc);
         output_values(doc[rdoc->get_int(RDOC_NRIGA)], s.get(2), cf);
       }

ve/ve1200.cpp

@@ -337,6 +337,41 @@ int TScoperto_form::print_bolla(const TRectype& dochead, TArray* fatt)
       }
       else
       {
+        if (fatt != NULL) 
+        {
+          TToken_string key_bol, key_fat;
+          key_bol = riga.get(RDOC_PROVV);
+          key_bol.add(riga.get(RDOC_ANNO));
+          key_bol.add(riga.get(RDOC_CODNUM));
+          key_bol.add(riga.get(RDOC_NDOC));
+          key_bol.add(riga.get(RDOC_IDRIGA));
+          for (int r = fatt->last(); r >= 0; r--)
+          {
+            const TRectype& rfatt = (const TRectype&)(*fatt)[r];
+            const TRectype& fatt_head = head_of(rfatt);
+            const TDate data_fatt = fatt_head.get(DOC_DATADOC);
+            const char stato_fatt = fatt_head.get_char(DOC_STATO);
+            if (stato_fatt < _stato_fatture || data_fatt > _data_rif)
+            {
+              key_fat = rfatt.get(RDOC_DAPROVV);
+              key_fat.add(rfatt.get(RDOC_DAANNO));
+              key_fat.add(rfatt.get(RDOC_DACODNUM));
+              key_fat.add(rfatt.get(RDOC_DANDOC));
+              key_fat.add(rfatt.get(RDOC_DAIDRIGA));
+              if (key_fat == key_bol)
+              {
+                if (docrif.empty())
+                {
+                  docrif = fatt_head.get(DOC_NUMDOCRIF);
+                  datarif = fatt_head.get(DOC_DATADOCRIF);
+                  codnum = fatt_head.get(DOC_CODNUM);
+                  ndoc = fatt_head.get(DOC_NDOC);
+                  break;   // Non ne dovrebbero esistere altre
+                }
+              }
+            }
+          }
+        }
         quant = riga.quantita();
         valore = riga.valore(TRUE, AUTO_DECIMALS);
       }

ve/ve6100a.uml

@@ -67,20 +67,20 @@ BEGIN
   FLAGS "DZ"
 END
 
+BUTTON DLG_USER 10 2
+BEGIN
+  PROMPT -13 -1 "~Selezione"
+  PICTURE BMP_SELECT
+END
+
 BUTTON DLG_OK 10 2
 BEGIN
-  PROMPT -13 -1 "~Elabora"
+  PROMPT -23 -1 "~Elabora"
   PICTURE BMP_ELABORA
   FLAGS "D"
 END
 
-BUTTON DLG_USER 10 2
+BUTTON DLG_QUIT 10 2
-BEGIN
-  PROMPT -23 -1 "~Selezione"
-  PICTURE BMP_SELECT
-END
-
-BUTTON DLG_CANCEL 10 2
 BEGIN
   PROMPT -33 -1 ""
 END

ve/velib04b.cpp

@@ -1989,12 +1989,21 @@ error_type TContabilizzazione::adjust_iva_rows(TDocumento& doc)
       iva_g = riep->imposta();        
 
     if (in_valuta)
+    {
+      if (calcolo_lordo)
+      {
+        TCurrency_documento tot(imponibile + iva_g, doc);      
+        tot.change_to_firm_val();   
+        imponibile = tot.get_num();
+        iva_g = cod.scorpora(imponibile, tot.decimals());
+      }
+      else
       {
         TCurrency_documento iva(iva_g, doc);      
-      
         iva.change_to_firm_val();   
         iva_g = iva.get_num();
       }
+    }
     else
     {
       if (ndec == 0)

ve/velib04c.cpp

@@ -26,7 +26,6 @@ TGenerazione_effetti::TGenerazione_effetti(const char* cod)
   
   _docfile  = new TLocalisamfile(LF_DOC);
   _rdocfile = new TLocalisamfile(LF_RIGHEDOC);
-//  _cessfile = new TLocalisamfile(LF_CESS);
   _occas    = new TLocalisamfile(LF_OCCAS);
   _clifo    = new TLocalisamfile(LF_CLIFO);
   _cfven    = new TLocalisamfile(LF_CFVEN);
@@ -50,7 +49,6 @@ TGenerazione_effetti::TGenerazione_effetti(const TRectype& rec)
   _valid_array.reset(9); // bonifici 
   _docfile  = new TLocalisamfile(LF_DOC);
   _rdocfile = new TLocalisamfile(LF_RIGHEDOC);
-//  _cessfile = new TLocalisamfile(LF_CESS);
   _occas    = new TLocalisamfile(LF_OCCAS);
   _clifo    = new TLocalisamfile(LF_CLIFO);
   _cfven    = new TLocalisamfile(LF_CFVEN);
@@ -67,7 +65,6 @@ TGenerazione_effetti::~TGenerazione_effetti()
 {
   delete _docfile;
   delete _rdocfile;
-//  delete _cessfile;
   delete _occas;
   delete _clifo;
   delete _cfven;
@@ -352,6 +349,7 @@ long TGenerazione_effetti::group_bills(TAssoc_array& group_array)
               effetto.put(EFF_CODVAL, doc.get(DOC_CODVAL));
               effetto.put(EFF_CAMBIO, change);
               effetto.put(EFF_DATACAMBIO,doc.get_date(DOC_DATACAMBIO));
+              effetto.put(EFF_CONTROEURO,doc.get_date(DOC_CONTROEURO));
               effetto.put(EFF_CODABI,doc.get(DOC_CODABIA));
               effetto.put(EFF_CODCAB,doc.get(DOC_CODCABA));
               effetto.put(EFF_EFFCOMP,TRUE);
@@ -579,8 +577,9 @@ void TGenerazione_effetti::generate_bill(TDocumento& doc) // bill in inglese sig
       long nprog = _efffile->get_long(EFF_NPROGTR)+1;
       const char tipocf = doc.get_char(DOC_TIPOCF);
       const long codcf = doc.get_long(DOC_CODCF);
-      const TString16 codval(doc.get(DOC_CODVAL));
+      const TString4 codval(doc.get(DOC_CODVAL));
       const TDate data_cambio = doc.get_date(DOC_DATACAMBIO);
+      const bool contro_euro = doc.get_bool(DOC_CONTROEURO);
       const long codabi = doc.get_long(DOC_CODABIA);
       const long codcab = doc.get_long(DOC_CODCABA);
       const TString16 provv(doc.get(DOC_PROVV));
@@ -610,6 +609,7 @@ void TGenerazione_effetti::generate_bill(TDocumento& doc) // bill in inglese sig
           {
             effetto.put(EFF_CAMBIO, change);        
             effetto.put(EFF_DATACAMBIO,data_cambio);
+            effetto.put(EFF_CONTROEURO, contro_euro);        
           }
           effetto.put(EFF_CODABI,codabi);
           effetto.put(EFF_CODCAB,codcab);

ve/velib06.cpp

@@ -1521,6 +1521,7 @@ void TDocument_tree::set_cursor(char tipocf, long codcf, int anno, const char* f
   rec.put(DOC_PROVV, "D");
   rec.put(DOC_ANNO, anno);
   _cursor->freeze(FALSE);
+  _cursor->setfilter(""); // Force cursor rebuild
   _cursor->setfilter(filter);
   _cursor->setregion(rec, rec);
   const long items = _cursor->items();