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

Patch level :10.0 288

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :migliorata ricerca della banca di presentazione per descrizione; non fa più riferimento alla tabella di tutte le banche %BAN ma direttamente a quella delle banche di presentazione BNP


git-svn-id: svn://10.65.10.50/trunk@18763 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-04-22 09:16:26 +00:00
parent 236032e942
commit 50f055c05f
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ef/ef0300a.uml
View File

@ -120,15 +120,14 @@ END
STRING F_DENBANP 50 STRING F_DENBANP 50
BEGIN BEGIN
PROMPT 2 5 "Banca di Presentazione " PROMPT 2 5 "Banca di Presentazione "
USE %BAN KEY 2 SELECT 100@->CODTAB!="" USE BNP SELECT 100@->S0=F_DENBANP
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
INPUT S0 F_DENBANP DISPLAY "Denominazione@50" 100@->S0
DISPLAY "Denominazione@50" S0
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
OUTPUT F_CODABIP CODTAB[1,5] OUTPUT F_CODABIP CODTAB[1,5]
OUTPUT F_CODCABP CODTAB[6,10] OUTPUT F_CODCABP CODTAB[6,10]
OUTPUT F_DENBANP S0 OUTPUT F_DENBANP 100@->S0
CHECKTYPE SEARCH CHECKTYPE SEARCH
END END