root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 4.0 no patch

Browse Source 
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
This commit is contained in:
alex 2008-02-11 11:55:47 +00:00
parent 7859fe8aa2
commit 43109efeaf
3 changed files with 49 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ps/ps0017100.cpp
View File

@ -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;
}

3
ps/ps0017100a.h
View File

@ -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

43
ps/ps0017100a.uml
View File

@ -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