From 43109efeafa97b21da805e3cfbd75b83ef1f4127 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 11 Feb 2008 11:55:47 +0000
Subject: [PATCH] Patch level         : 4.0 no patch Files correlati      :
 ps0017.exe Ricompilazione Demo : [ ] Commento     :

Aggiunta banca di presentazione al programma di incassi


git-svn-id: svn://10.65.10.50/trunk@16139 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ps/ps0017100.cpp  |  5 +++--
 ps/ps0017100a.h   |  3 +++
 ps/ps0017100a.uml | 43 +++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 49 insertions(+), 2 deletions(-)

diff --git a/ps/ps0017100.cpp b/ps/ps0017100.cpp
index 60b77cec3..3ff5a469f 100755
--- a/ps/ps0017100.cpp
+++ b/ps/ps0017100.cpp
@@ -716,8 +716,8 @@ void TPE_mask::save_rate()
   dati_dist.add(tipodist);
   dati_dist.add(numdist);
   dati_dist.add(get(F_DATADIST));
-  dati_dist.add("");
-  dati_dist.add("");
+  dati_dist.add(get(F_ABI));
+  dati_dist.add(get(F_CAB));
   distinta.write(FALSE, &dati_dist);
 }     
 
@@ -818,6 +818,7 @@ bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
       set(F_DIST, n);
       disable(F_DIST);
       disable(DLG_NEWREC);
+      set_focus_field(F_ABI);
       _is_new = TRUE;
       _spork = FALSE;
     }
diff --git a/ps/ps0017100a.h b/ps/ps0017100a.h
index e4ecd2f11..d1a5a0195 100755
--- a/ps/ps0017100a.h
+++ b/ps/ps0017100a.h
@@ -1,5 +1,7 @@
 #define F_DA_DATA    202
 #define F_A_DATA     203
+#define F_ABI        204
+#define F_CAB        205
 #define F_TIPODIST   206 
 #define F_DIST       207
 #define F_DUMMYDIST  208 
@@ -8,6 +10,7 @@
 #define F_EURO       211
 #define F_CAMBIO     212
 #define F_DATACAMBIO 213
+#define F_DESCAB     214
 #define F_SORT       215
 #define F_TIPOPAG    222
 #define F_TOTAL      230
diff --git a/ps/ps0017100a.uml b/ps/ps0017100a.uml
index 38048490b..d960202ad 100755
--- a/ps/ps0017100a.uml
+++ b/ps/ps0017100a.uml
@@ -104,6 +104,8 @@ BEGIN
   OUTPUT F_CAMBIO CAMBIO
   OUTPUT F_DATACAMBIO DATACAMBIO
   OUTPUT F_EURO CONTROEURO
+  OUTPUT F_ABI CODABIP
+  OUTPUT F_CAB CODCABP
   OUTPUT F_TIPOPAG TIPOPAG
   OUTPUT F_SPESE SPESE
   CHECKTYPE SEARCH
@@ -166,10 +168,51 @@ BEGIN
   GROUP 6
 END
 
+NUMBER F_ABI 5
+BEGIN
+  PROMPT 2 3 "Banca "
+  FLAGS "Z"
+  USE BNP
+  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
+  INPUT CODTAB[1,5] F_ABI
+  INPUT CODTAB[6,10] F_CAB
+  DISPLAY "ABI@5" CODTAB[1,5]
+  DISPLAY "CAB@5" CODTAB[6,10]
+  DISPLAY "Denominazione@50" 100@->S0
+  OUTPUT F_ABI CODTAB[1,5]
+  OUTPUT F_CAB CODTAB[6,10]
+  OUTPUT F_DESCAB 100@->S0
+  CHECKTYPE SEARCH
+END
+
+NUMBER F_CAB 5
+BEGIN
+  PROMPT 17 3 ""
+  FLAGS "Z"
+  COPY ALL F_ABI
+  CHECKTYPE NORMAL
+END
+
+STRING F_DESCAB 50 48
+BEGIN
+  PROMPT 26 3 ""
+  USE %BAN KEY 2 SELECT 100@->CODTAB!=""
+  JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
+  INPUT S0 F_DESCAB
+  DISPLAY "Denominazione@50" S0
+  DISPLAY "ABI@5" CODTAB[1,5]
+  DISPLAY "CAB@5" CODTAB[6,10]
+  OUTPUT F_ABI CODTAB[1,5]
+  OUTPUT F_CAB CODTAB[6,10]
+  OUTPUT F_DESCAB S0
+  CHECKTYPE SEARCH
+END
+
 LIST F_TIPOPAG 1 30
 BEGIN
   PROMPT 2 4 "Pagamento "
   ITEM "1|Rimessa Diretta"
+  FLAGS "D"
 END
 
 LIST F_TIPOEFF 1 10