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
BEGIN
PROMPT 2 5 "Banca di Presentazione "
USE %BAN KEY 2 SELECT 100@->CODTAB!=""
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
INPUT S0 F_DENBANP
DISPLAY "Denominazione@50" S0
USE BNP SELECT 100@->S0=F_DENBANP
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
DISPLAY "Denominazione@50" 100@->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 S0
OUTPUT F_DENBANP 100@->S0
CHECKTYPE SEARCH
END