× Discuss on Template programming, jBASE programming, Enquiries, No-File enquiry, Enquiry routines, Version, Version routines, Menus, Abbriviations, Creating local reference fields, Fast path enquiries, Creating charts and graphs, Generating Reports, Deal slips, Straight through processing, Multi Company and Multi Book setup, Tabbed screens, Composite Screens, T24 API, etc...

Deferred value return from Classic and browser

  • TESFAHUNS
  • Topic Author
  • Offline
  • New Member
  • New Member
More
6 years 3 months ago #22081 by TESFAHUNS
Dear All,

I try to write a validation routine. But the return value is deferred in browser and classic.

SUBROUTINE DRS

$INSERT T24.BP I_COMMON
$INSERT T24.BP I_EQUATE
$INSERT T24.BP I_F.FUNDS.TRANSFER

GOSUB INIT
GOSUB OPENFILE
GOSUB PROCESS

INIT:
FN.FT ='F.FUNDS.TRANSFER'
F.FT = ''
methodname = ''
billerid = ''
billid = ''
STATUSD = ''
MSGBILL = ''
MSGBILL = ''
RETURN

OPENFILE:
CALL OPF (FN.FT,F.FT)
RETURN
PROCESS:

biller_id = 232432
bill_id = COMI
FTID = ID.NEW
MSGBILL=biller_id:":":bill_id

CALLJ "GetDrs","getBoa", MSGBILL SETTING ret ON ERROR CRT ret

MSGRET = ret

STATUSD = FIELD(MSGRET,"@FM",6)

IF STATUSD <> '' THEN

BEGIN CASE

CASE STATUSD = 200

ETEXT = "OutPut for MSGRET = ": MSGRET:"Output for MSGRET = ": MSGRET
CALL ERR

CASE STATUSD = 402
ETEXT = "402"
CALL ERR
CASE 1
ETEXT = "Invalid "
CALL ERR
END CASE
END
ELSE IF bill_id = '' THEN
ETEXT = "PLEASE INSERT ID"
CALL ERR
END

RETURN

In classic, it properly returns the correct value but in the browser, it returns an incorrect value.

Please Log in or Create an account to join the conversation.

  • VK
  • VK's Avatar
  • Offline
  • Platinum Member
  • Platinum Member
  • Globus:G9-G13|TAFC:R05-R23|TAFJ:R19,R23,R24:test
More
6 years 3 months ago #22100 by VK
Hi
It's a good idea to clean up your code - remove everything that is not necessary for your task - like opening FUNDS.TRANSFER, assigning empty values to variables that are assigned again.. Also - post it using "code" tag. Would be better to understand.

Cheers
VK
The following user(s) said Thank You: TESFAHUNS

Please Log in or Create an account to join the conversation.

Time to create page: 0.036 seconds