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
This commit is contained in:
alex
parent
3f81d93b84
commit
83fd3ffeee
@ -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
|
||||
|
||||
@ -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
|
||||
USE BNP
|
||||
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]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
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_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 "
|
||||
|
||||
@ -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];
|
||||
|
||||
@ -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)
|
||||
|
||||
@ -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]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
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_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
|
||||
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
|
||||
DISPLAY "Denominazione@50" 100@->S0
|
||||
USE %BAN KEY 2 SELECT 100@->CODTAB!=""
|
||||
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
|
||||
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
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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)
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
BEGIN
|
||||
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
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
31
|
||||
0
|
||||
$effetti|0|0|215|34|Effetti|NEFF||
|
||||
$effetti|0|0|218|0|Effetti|NEFF||
|
||||
|
||||
@ -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|
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user