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
2003-10-06 10:19:37 +00:00 · 2003-10-06 10:19:37 +00:00 · 51dc6494ca
commit 51dc6494ca
parent fb4acdb892
7 changed files with 141 additions and 98 deletions
--- a/ve/batbtip.uml
+++ b/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
--- a/ve/ve1100.cpp
+++ b/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));
-      int anno = rdoc->get_int(RDOC_ANNO);
-      TString16 provv(rdoc->get(RDOC_PROVV));
-      long ndoc = rdoc->get_long(RDOC_NDOC);         
+      const char provv      = rdoc->get_char(RDOC_PROVV);
+      const int anno        = rdoc->get_int(RDOC_ANNO);
+      const TString8 codnum = rdoc->get(RDOC_CODNUM);
+      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));
-        int anno = rdoc->get_int(RDOC_ANNO);
-        char provv = rdoc->get_char(RDOC_PROVV);
-        long ndoc = rdoc->get_long(RDOC_NDOC);
+        const char provv      = rdoc->get_char(RDOC_PROVV);
+        const int anno        = rdoc->get_int(RDOC_ANNO);
+        const TString8 codnum = rdoc->get(RDOC_CODNUM);
+        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);
      }
--- a/ve/ve1200.cpp
+++ b/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);
      }
--- a/ve/ve6100a.uml
+++ b/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
-BEGIN
-  PROMPT -23 -1 "~Selezione"
-  PICTURE BMP_SELECT
-END
-
-BUTTON DLG_CANCEL 10 2
+BUTTON DLG_QUIT 10 2
 BEGIN
  PROMPT -33 -1 ""
 END
--- a/ve/velib04b.cpp
+++ b/ve/velib04b.cpp
@ -1990,10 +1990,19 @@ error_type TContabilizzazione::adjust_iva_rows(TDocumento& doc)

    if (in_valuta)
    {
-      TCurrency_documento iva(iva_g, doc);      
-      
-      iva.change_to_firm_val();   
-      iva_g = iva.get_num();
+      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
    {
--- a/ve/velib04c.cpp
+++ b/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);
--- a/ve/velib06.cpp
+++ b/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();