Patch level : 10.0 682

Files correlati     : ef0.exe
Ricompilazione Demo : [ ]
Commento            :

Bug 0001490: Manca la possibilità di gestire due Conti correnti per lo stesso ABI - CAB
Manca la possibilità di gestire due Conti correnti per lo stesso ABI - CAB.

Aggiunto un progrssvo per banca di presentazione nei documenti nella tabella e nella gestione effetti.


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

ef/ef0100.h

@@ -36,6 +36,7 @@
 #define F_SHEET_EFF                           230
 #define F_TIPOCF                              231
 #define F_CONTROEURO                          232
+#define F_PROG                                233
 
 #define F_IBAN        250
 #define F_IBAN_STATO  251

ef/ef0100a.uml

@@ -377,23 +377,36 @@ END
 
 NUMBER F_CODCABP 5
 BEGIN
-  PROMPT 41 9 "Codice CAB        "
+  PROMPT 26 9 "Codice CAB     "
   FIELD CODCABP
   FLAGS "Z"
   USE BNP
-  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
+  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
   INPUT CODTAB[1,5] F_CODABIP
   INPUT CODTAB[6,10] F_CODCABP
-  DISPLAY "Codice ABI" CODTAB[1,5]
+  INPUT CODTAB[11,12] F_PROG
-  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "ABI@5" CODTAB[1,5]
+  DISPLAY "CAB@5" CODTAB[6,10]
+  DISPLAY "Progr." CODTAB[11,12]
+  DISPLAY "IBAN@25" S3
   DISPLAY "Denominazione@50" 100@->S0
   OUTPUT F_CODABIP CODTAB[1,5]
   OUTPUT F_CODCABP CODTAB[6,10]
+  OUTPUT F_PROG CODTAB[11,12]
   CHECKTYPE NORMAL
   VALIDATE REQIF_FUNC 1 F_CODCABP
   WARNING "Banca assente"
 END
 
+NUMBER F_PROG 2
+BEGIN        
+  PROMPT 50 9 "Progressivo    "
+  FLAGS "Z"              
+  FIELD PROGBNP
+  COPY ALL F_CODCABP
+  CHECKTYPE SEARCH
+END     
+ 
 DATE F_DATAEMISS
 BEGIN
   PROMPT 1 11 "Data di emissione "

ef/ef0300.cpp

@@ -176,6 +176,7 @@ TToken_string* TVariazione_distinte::common_f(const TMask& m, TToken_string& dat
   TDate datadist = (TDate)m.get(F_DATA);// distinta
   long codabi = m.get_long(F_CODABIP);  // dalla maschera
   long codcab = m.get_long(F_CODCABP);  
+  long prog = m.get_long(F_PROG);  
   m.autosave(*_rel); 
   
   datidist.add(tipodist); // inserisco i dati nella
@@ -183,6 +184,7 @@ TToken_string* TVariazione_distinte::common_f(const TMask& m, TToken_string& dat
   datidist.add(datadist);
   datidist.add(codabi);
   datidist.add(codcab);
+  datidist.add(prog);
   return &datidist;
 }
 
@@ -214,6 +216,7 @@ int TVariazione_distinte::read(TMask& m)
         m.set(F_DATA, e.get(EFF_DATADIST));// distinta
         m.set(F_CODABIP, e.get(EFF_CODABIP));  // dalla maschera
         m.set(F_CODCABP, e.get(EFF_CODCABP));  
+        m.set(F_PROG, e.get(EFF_PROGBNP));  
         for (int i = 0; i < items; i++) 
         { 
           TEffetto& eff = (TEffetto&)righedist[i];

ef/ef0300.h

@@ -19,6 +19,7 @@
 #define F_NPROGTR       114
 #define F_TIPOCF        115
 #define F_UNCONTABIL    116
+#define F_PROG          117
 
 // Identificatori campi per lo spreadsheet di selezione RiBa da aggiungere
 // alla distinta (ef0300c.uml)

ef/ef0300a.uml

@@ -96,15 +96,19 @@ BEGIN
   FIELD LF_EFFETTI->CODABIP
   FLAGS "Z"
   USE BNP
-  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
+  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
   INPUT CODTAB[1,5] F_CODABIP
   INPUT CODTAB[6,10] F_CODCABP
-  DISPLAY "Codice ABI" CODTAB[1,5]
+  INPUT CODTAB[11,12] F_PROG
-  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "ABI@5" CODTAB[1,5]
+  DISPLAY "CAB@5" CODTAB[6,10]
+  DISPLAY "Progr." CODTAB[11,12]
+  DISPLAY "IBAN@25" S3
   DISPLAY "Denominazione@50" 100@->S0
   OUTPUT F_CODABIP CODTAB[1,5]
   OUTPUT F_CODCABP CODTAB[6,10]
   OUTPUT F_DENBANP 100@->S0
+  OUTPUT F_PROG CODTAB[11,12]
   CHECKTYPE SEARCH
 END
 
@@ -117,17 +121,26 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
+NUMBER F_PROG 2
+BEGIN        
+  PROMPT 35 4 ""
+  FLAGS "Z"              
+  COPY ALL F_CODABIP
+  CHECKTYPE SEARCH
+END     
+
 STRING F_DENBANP 50
 BEGIN
   PROMPT 2 5 "Banca di Presentazione  "
-  USE BNP SELECT 100@->S0=F_DENBANP
+  USE %BAN KEY 2 SELECT 100@->CODTAB!=""
-  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
+  JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
-  DISPLAY "Denominazione@50" 100@->S0
+  INPUT S0 F_DENBANP
+  DISPLAY "Denominazione@50" S0
   DISPLAY "Codice ABI" CODTAB[1,5]
   DISPLAY "Codice CAB" CODTAB[6,10]
   OUTPUT F_CODABIP CODTAB[1,5]
   OUTPUT F_CODCABP CODTAB[6,10]
-  OUTPUT F_DENBANP 100@->S0
+  OUTPUT F_DENBANP S0
   CHECKTYPE SEARCH
 END
 

ef/ef0301.cpp

@@ -83,6 +83,7 @@ int TDistinta::write(bool force, TToken_string* dati_dist)
       effetto.put(EFF_DATADIST, dati_dist->get()); 
       effetto.put(EFF_CODABIP, dati_dist->get());
       effetto.put(EFF_CODCABP, dati_dist->get());  
+      effetto.put(EFF_PROGBNP, dati_dist->get());  
       
       effetto.put(EFF_NRIGADIST, i+1);
     }
@@ -126,6 +127,7 @@ int TDistinta::remove(char tipodist, long ndist)
     effetto.zero(EFF_NRIGADIST);
     effetto.zero(EFF_CODABIP);
     effetto.zero(EFF_CODCABP);
+    effetto.zero(EFF_PROGBNP);  
     err = effetto.rewrite(file);
   }
   reset();//elimino gli effetti dalla memoria resettando l'array

ef/ef0a00.cpp

@@ -730,6 +730,7 @@ void TPE_mask::save_rate()
   dati_dist.add(get(F_DATADIST));
   dati_dist.add(get(F_ABI));
   dati_dist.add(get(F_CAB));
+  dati_dist.add(get(F_PROG));
   distinta.write(false, &dati_dist);
 
   if (log.recordset()->items() > 0)

ef/ef0a00a.h

@@ -19,6 +19,7 @@
 #define F_TOTAL      230
 #define F_SPESE      231
 #define F_TIPOEFF    232
+#define F_PROG       233
 
 #define F_SHEET      300 
 #define F_AGGIORNA   301 

ef/ef0a00a.uml

@@ -87,6 +87,7 @@ BEGIN
   OUTPUT F_TIPOCF TIPOCF
   OUTPUT F_ABI CODABIP
   OUTPUT F_CAB CODCABP
+  OUTPUT F_PROG PROGBNP
   OUTPUT F_TIPOPAG TIPOPAG
   OUTPUT F_SPESE SPESE
   CHECKTYPE SEARCH
@@ -154,15 +155,19 @@ BEGIN
   PROMPT 2 3 "Banca "
   FLAGS "Z"
   USE BNP
-  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
+  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
   INPUT CODTAB[1,5] F_ABI
   INPUT CODTAB[6,10] F_CAB
+  INPUT CODTAB[11,12] F_PROG
   DISPLAY "ABI@5" CODTAB[1,5]
   DISPLAY "CAB@5" CODTAB[6,10]
+  DISPLAY "Progr." CODTAB[11,12]
+  DISPLAY "IBAN@25" S3
   DISPLAY "Denominazione@50" 100@->S0
   OUTPUT F_ABI CODTAB[1,5]
   OUTPUT F_CAB CODTAB[6,10]
   OUTPUT F_DESCAB 100@->S0
+  OUTPUT F_PROG CODTAB[11,12]
   CHECKTYPE SEARCH
 END
 
@@ -174,9 +179,18 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-STRING F_DESCAB 50 48
+NUMBER F_PROG 2
 BEGIN        
   PROMPT 26 3 ""
+  FLAGS "Z"              
+  COPY ALL F_ABI
+  CHECKTYPE SEARCH
+END     
+
+
+STRING F_DESCAB 50 42
+BEGIN
+  PROMPT 32 3 ""
   USE %BAN KEY 2 SELECT 100@->CODTAB!=""
   JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
   INPUT S0 F_DESCAB

ef/f31.dir

@@ -1,3 +1,3 @@
 31
 0
-$effetti|0|0|215|34|Effetti|NEFF||
+$effetti|0|0|218|0|Effetti|NEFF||

ef/f31.trr

@@ -1,5 +1,5 @@
 31
-32
+34
 NPROGTR|3|7|0|Numero progressivo effetto
 DATASCAD|5|8|0|Data di scadenza
 TIPOPAG|2|1|0|Tipo pagamento
@@ -26,12 +26,14 @@ EFFCONT|8|1|0|Effetto contabilizzato
 NUMREG|3|7|0|Numero di registrazione contabile
 CODABIP|10|5|0|Codice ABI banca di presentazione
 CODCABP|10|5|0|Codice CAB banca di presentazione
+PROGBNP|1|2|0|Progressivo banca di presentazione
 DATARIBA|5|8|0|Data RIBA
 DISRIBAEST|8|1|0|Distinta RIBA estratta
 IMPORTO|4|18|3|Importo effetto
 IMPORTOVAL|4|18|3|Importo effetto in valuta
 SPESE|4|18|3|Spese bancarie distinta
 IBAN|1|34|0|Codice IBAN di appoggio
+DSCVAL|8|1|0|Data di scadenza intesa come data valuta beneficiario
 4
 NPROGTR| 
 CODCF+NPROGTR|