nick_bc
Active Member
Hello List,
I have created my first business function using NER. When I am trying to run it, I am getting the following information in the log file and dont have any output from the function I have created.
1496/2500 MAIN_THREAD Thu Aug 31 15:15:12.563000 Jdb_ctl.c3488
Starting OneWorld
1496/2872 WRK:Starting jdeCallObject Thu Aug 31 15:20:15.829000 Jdb_exef.c3913
JDB3300020 - Fetch not allowed. Prior successful Select operation required for this request.
Can any one explaing what is wrong here. the code for business function is as follows.
Listing of ER for Named ER: N5508012
=======================================================================
NAMED ER: DBA Transaction History Calculator
=======================================================================
evt_jdWorkDateF0618_DWK
evt_mnGrossPayF0618_GPA
evt_jdWorkDateF0719_DWK
evt_mnGrossPayF0719_GPA
evt_mnHoursWork_PHRW
0001 // Programmer -
0002 // Aug 29, 2006
0003 // Depending on the PDBA code, the emplyee's history will be grabed from two
0004 // differenct sources:
0005 // From the F0618 table, if PDBA code is less then 1000; otherwise from the
0006 // F0719.
0007 //
0008 BF mnAmtGrossPay = "0"
0009 BF mnHoursWork = "0"
0010 If BF mnPayDeductBenAccType is less than "1000"
0011 F0618.Select
BF mnAddressNumber = TK Address Number
BF mnPayDeductBenAccType = TK DBA Code
BF jdDateBeginningEffective <= TK Date - Worked
0012 F0618.Fetch Next
VA evt_mnHoursWork_PHRW <- TK Hours Worked
VA evt_mnGrossPayF0618_GPA <- TK Amount - Gross Pay
VA evt_jdWorkDateF0618_DWK <- TK Date - Worked
0013 While SV File_IO_Status is equal to CO SUCCESS
0014 If VA evt_jdWorkDateF0618_DWK is less than or equal to BF jdDateEndingEffective
0015 BF mnAmtGrossPay = [BF mnAmtGrossPay]+[VA evt_mnGrossPayF0618_GPA]
0016 BF mnHoursWork = [BF mnHoursWork]+[VA evt_mnHoursWork_PHRW]
0017 End If
0018 F0618.Fetch Next
VA evt_mnHoursWork_PHRW <- TK Hours Worked
VA evt_mnGrossPayF0618_GPA <- TK Amount - Gross Pay
VA evt_jdWorkDateF0618_DWK <- TK Date - Worked
0019 End While
0020 Else
0021 F0719.Select
BF mnAddressNumber = TK Address Number
BF jdDateBeginningEffective <= TK Date - Worked
BF mnPayDeductBenAccType = TK DBA Code
0022 F0719.Fetch Next
VA evt_jdWorkDateF0719_DWK <- TK Date - Worked
VA evt_mnGrossPayF0719_GPA <- TK Amount - Gross Pay
VA evt_mnHoursWork_PHRW <- TK Hours Worked
0023 While SV File_IO_Status is equal to CO SUCCESS
0024 If VA evt_jdWorkDateF0719_DWK is less than or equal to BF jdDateEndingEffective
0025 BF mnAmtGrossPay = [BF mnAmtGrossPay]+[VA evt_mnGrossPayF0719_GPA]
0026 BF mnHoursWork = [BF mnHoursWork]+[VA evt_mnHoursWork_PHRW]
0027 End If
0028 F0719.Fetch Next
VA evt_jdWorkDateF0719_DWK <- TK Date - Worked
VA evt_mnGrossPayF0719_GPA <- TK Amount - Gross Pay
VA evt_mnHoursWork_PHRW <- TK Hours Worked
0029 End While
0030 End If
Thanks in advance.
Naveen
E1 8.11
Windows 2003/SQL 2000
I have created my first business function using NER. When I am trying to run it, I am getting the following information in the log file and dont have any output from the function I have created.
1496/2500 MAIN_THREAD Thu Aug 31 15:15:12.563000 Jdb_ctl.c3488
Starting OneWorld
1496/2872 WRK:Starting jdeCallObject Thu Aug 31 15:20:15.829000 Jdb_exef.c3913
JDB3300020 - Fetch not allowed. Prior successful Select operation required for this request.
Can any one explaing what is wrong here. the code for business function is as follows.
Listing of ER for Named ER: N5508012
=======================================================================
NAMED ER: DBA Transaction History Calculator
=======================================================================
evt_jdWorkDateF0618_DWK
evt_mnGrossPayF0618_GPA
evt_jdWorkDateF0719_DWK
evt_mnGrossPayF0719_GPA
evt_mnHoursWork_PHRW
0001 // Programmer -
0002 // Aug 29, 2006
0003 // Depending on the PDBA code, the emplyee's history will be grabed from two
0004 // differenct sources:
0005 // From the F0618 table, if PDBA code is less then 1000; otherwise from the
0006 // F0719.
0007 //
0008 BF mnAmtGrossPay = "0"
0009 BF mnHoursWork = "0"
0010 If BF mnPayDeductBenAccType is less than "1000"
0011 F0618.Select
BF mnAddressNumber = TK Address Number
BF mnPayDeductBenAccType = TK DBA Code
BF jdDateBeginningEffective <= TK Date - Worked
0012 F0618.Fetch Next
VA evt_mnHoursWork_PHRW <- TK Hours Worked
VA evt_mnGrossPayF0618_GPA <- TK Amount - Gross Pay
VA evt_jdWorkDateF0618_DWK <- TK Date - Worked
0013 While SV File_IO_Status is equal to CO SUCCESS
0014 If VA evt_jdWorkDateF0618_DWK is less than or equal to BF jdDateEndingEffective
0015 BF mnAmtGrossPay = [BF mnAmtGrossPay]+[VA evt_mnGrossPayF0618_GPA]
0016 BF mnHoursWork = [BF mnHoursWork]+[VA evt_mnHoursWork_PHRW]
0017 End If
0018 F0618.Fetch Next
VA evt_mnHoursWork_PHRW <- TK Hours Worked
VA evt_mnGrossPayF0618_GPA <- TK Amount - Gross Pay
VA evt_jdWorkDateF0618_DWK <- TK Date - Worked
0019 End While
0020 Else
0021 F0719.Select
BF mnAddressNumber = TK Address Number
BF jdDateBeginningEffective <= TK Date - Worked
BF mnPayDeductBenAccType = TK DBA Code
0022 F0719.Fetch Next
VA evt_jdWorkDateF0719_DWK <- TK Date - Worked
VA evt_mnGrossPayF0719_GPA <- TK Amount - Gross Pay
VA evt_mnHoursWork_PHRW <- TK Hours Worked
0023 While SV File_IO_Status is equal to CO SUCCESS
0024 If VA evt_jdWorkDateF0719_DWK is less than or equal to BF jdDateEndingEffective
0025 BF mnAmtGrossPay = [BF mnAmtGrossPay]+[VA evt_mnGrossPayF0719_GPA]
0026 BF mnHoursWork = [BF mnHoursWork]+[VA evt_mnHoursWork_PHRW]
0027 End If
0028 F0719.Fetch Next
VA evt_jdWorkDateF0719_DWK <- TK Date - Worked
VA evt_mnGrossPayF0719_GPA <- TK Amount - Gross Pay
VA evt_mnHoursWork_PHRW <- TK Hours Worked
0029 End While
0030 End If
Thanks in advance.
Naveen
E1 8.11
Windows 2003/SQL 2000