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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Aggiunta la modifica di ABIP CABP e PROGBNP


git-svn-id: svn://10.65.10.50/branches/R_10_00@21616 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2011-02-10 11:56:14 +00:00
parent 7840987230
commit 4d4883f9ab
3 changed files with 67 additions and 2 deletions

12
ps/pd0610300.cpp

@ -75,6 +75,18 @@ bool TSost_condpag_msk::elabora_documenti()
if(codpagdoc != codpag && tipopag == "3") //tipopag = 3-> riba
{
rec.put(DOC_CODPAG, codpag);
const int abi = get_int(F_ABI);
if(abi > 0)
{
const int cab = get_int(F_CAB);
const int prog = get_int(F_PROG);
rec.put(DOC_CODABIP, abi);
rec.put(DOC_CODCABP, cab);
rec.put(DOC_PROGBNP, prog);
}
rec.rewrite(documenti);
TString str;

6
ps/pd0610300a.h

@ -13,4 +13,8 @@
#define F_ACODCF 212
#define F_ARAGSOC 213
#define F_CODPAG 214
#define F_DESPAG 215
#define F_DESPAG 215
#define F_ABI 216
#define F_CAB 217
#define F_PROG 218
#define F_DENOM 219

51
ps/pd0610300a.uml

@ -157,7 +157,7 @@ END
STRING F_CODPAG 4
BEGIN
PROMPT 2 10 "Codice Pagamento"
PROMPT 2 10 "Cond. Pag. "
USE %CPG
INPUT CODTAB F_CODPAG
DISPLAY "Codice" CODTAB
@ -179,5 +179,54 @@ BEGIN
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 12 "@bNuovo Abi"
END
NUMBER F_ABI 5
BEGIN
PROMPT 2 13 "Codice ABI "
FLAGS "Z"
USE BNP
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_PROG CODTAB[11,12]
OUTPUT F_DENOM 100@->S0
CHECKTYPE NORMAL
END
NUMBER F_CAB 5
BEGIN
PROMPT 30 13 "Codice CAB "
FLAGS "Z"
COPY ALL F_ABI
CHECKTYPE NORMAL
END
NUMBER F_PROG 2
BEGIN
PROMPT 62 13 "Progressivo"
FLAGS "Z"
COPY ALL F_ABI
CHECKTYPE NORMAL
END
STRING F_DENOM 62
BEGIN
PROMPT 2 14 "Denom. "
COPY ALL F_ABI
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK