:FUNC:START
Business Process Id
:FUNC:END
:DEFN:START
get.bpid(string csno(6),domain bccom.orgn type)
:DEFN:END
:HELP:START
Get Business Process ID
:HELP:END
:FUNC:START
Convert Decimal to Octal
:FUNC:END
:DEFN:START
conversion.10.to.8(string baan4.field(10), 

g*t
g*t
g*t
g*t    ref string baan5.field())
:DEFN:END
:HELP:START
Converts Decimal to Octal
:HELP:END
:FUNC:START
Count
:FUNC:END
:DEFN:START
update.table.processed(string   curr.table(8),long bshell.id)
:DEFN:END
:HELP:START
Displaying the Count 
:HELP:END
:FUNC:START
Get BPID for Address
:FUNC:END
:DEFN:START
get.bpid.for.address(string csno(3),

g*t
g*tdomain bccom.orgn type,domain bccom.bpid bp)
:DEFN:END
:HELP:START
Get BPID for Address
:HELP:END
:FUNC:START
Get BPID for tccom100
:FUNC:END
:DEFN:START
get.bpid.for.tccom100(string csno(6),

g*t
g*t
g*t
g*tdomain bccom.orgn type,

g*t
g*t
g*t
g*tref domain tcyesno hold.sndr)
:DEFN:END
:HELP:START
Get BPID for tccom100
:HELP:END
:FUNC:START
Get supplier and Customer name
:FUNC:END
:DEFN:START
get.suno.cuno(string rreno(6), ref string suno(), ref string cuno)
:DEFN:END
:HELP:START
Get Supplier Name and customer Name
:HELP:END
:FUNC:START
Number Group
:FUNC:END
:DEFN:START
numgrp(domain tcckon temp.ckon,ref string new.nrgr()) 
:DEFN:END
:HELP:START
Number Group
:HELP:END
:FUNC:START
Segment Item Code
:FUNC:END
:DEFN:START
segment.item.code(ref string item(),ref string cprj())
:DEFN:END
:HELP:START
Segment Item Code
:HELP:END
:FUNC:START
Set String
:FUNC:END
:DEFN:START
string.set$( string_expr, num_expr )
:DEFN:END
:HELP:START
This returns a string that contains string_expr repeated num_expr times.
:HELP:END
:FUNC:START
To Native
:FUNC:END
:DEFN:START
to.native(string str(255))
:DEFN:END
:HELP:START
Converts to Native
:HELP:END
:FUNC:START
UTC To UTC
:FUNC:END
:DEFN:START
utc.utc(long var.utc)

:DEFN:END
:HELP:START
This Function is used to convert the UTC to UTC. This function is very specific
for ERP to ERP Conversion.
:HELP:END
:FUNC:START
UTC.Dibas.Test
:FUNC:END
:DEFN:START
utc.dibas.test
:DEFN:END
:HELP:START
wsdsad
:HELP:END
:FUNC:START
Utc
:FUNC:END
:DEFN:START
utc(long tdate,long secs,...)
:DEFN:END
:HELP:START
Universal Time Constant
:HELP:END
:FUNC:START
abcde
:FUNC:END
:DEFN:START
abcde(string str1, string str2)
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
abs()
:FUNC:END
:DEFN:START
abs(long val)
g*t
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
asdf
:FUNC:END
:DEFN:START
asdfg(sring str1, string str2)
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
calc.pmsk
:FUNC:END
:DEFN:START
calc.pmsk(domain bccnv.acno acno,string val.receipt,string value) 
{ 

g*tlong j 
 

g*tj = 0 

g*twhile ( j < acno)  

g*t
g*tj = j + 1 

g*t
g*tif ( j = acno) then 

g*t
g*t   if (val.receipt <> "") then 

g*t
g*t
g*t   hold.pmsk(j;1) = val.receipt 

g*t
g*t   else 

g*t
g*t   if (hold.pmsk(j;1) <> "c")  then 

g*t
g*t
g*tif  ((hold.pmsk(j;1) = "e" and value = "c") or  

g*t
g*t
g*t
g*t(hold.pmsk(j;1) = "y" and (value = "e" or value = "c"))  

g*t
g*t
g*t
g*tor (hold.pmsk(j;1) = "n")) then 

g*t
g*t
g*t   hold.pmsk(j;1) = value 

g*t
g*t
g*tendif 

g*t
g*t   endif 

g*t
g*t   endif 

g*t
g*tendif
g*t
g*t
g*t
g*t 

g*tendwhile 
}
:DEFN:END
:HELP:START
calc.pmsk
:HELP:END
:FUNC:START
calc_time
:FUNC:END
:DEFN:START
calc_time(string tablename(8),long flag)
:DEFN:END
:HELP:START
Calc_time
:HELP:END
:FUNC:START
close.comparison.file
:FUNC:END
:DEFN:START
close.comparison.file()
:DEFN:END
:HELP:START
close.comparison.file
:HELP:END
:FUNC:START
commit.transaction
:FUNC:END
:DEFN:START
commit.transaction()
:DEFN:END
:HELP:START
This ends the current transaction. All changes made during the transaction are stored in the database. 

To cancel a transaction, use abort.transaction() instead. 

Return values
0 Success. 
 
<>0 Error.
 

:HELP:END
:FUNC:START
costComp
:FUNC:END
:DEFN:START
costcomp(string old.cost.comp(3),domain bcorig orign,

g*t
g*t
g*t
g*t
g*t
g*tref string new.cost.comp()) 
:DEFN:END
:HELP:START
DLL to get the number group.
:HELP:END
:FUNC:START
create.record.into.tdpur401
:FUNC:END
:DEFN:START
create.record.into.tdpur401(long var.tdpur401.oltp, 

g*t
g*t
g*t
g*t  long var.tdpur401.lseq, 

g*t
g*t
g*t
g*t  domain tcsrnb srnb, 

g*t
g*t
g*t
g*t  long fp, 

g*t
g*t
g*t
g*t  long fperr, 

g*t
g*t
g*t
g*t  domain
g*ttcdate
g*tddta, 

g*t
g*t
g*t
g*t  domain tcqrd1 hold.oqua, 

g*t
g*t
g*t
g*t  domain tcqrd1 prev.bqua) 
{
g*t
g*t
g*t  
g*t  domain bccnv.item temp.item 

g*t
g*t
g*t
g*t   long
g*tresult.output 

g*t
g*t
g*t
g*t   double
g*ttdpur401.oamt 
 

g*tif (srnb = 0) then 

g*t
g*thold.oqua = tdpur041.oqua 

g*telse 

g*t
g*thold.oqua = prev.bqua 

g*tendif 
 

g*t

g*tif ((tdpur045.srnb = 0) or (tdpur045.srnb = 1)) then 

g*t
g*ttdpur401.oamt = tdpur041.amta 

g*telse 

g*t
g*ttdpur401.oamt = (hold.oqua *tdpur045.pric * tdpur041.cvqp) /tdpur041.cvpp 

g*tendif 

g*t
 

g*tif ( tdpur045.reno = 0 ) then 

g*t
g*tvar.tdpur401.rcno = empty.string(1;9) 

g*telse 

g*t
g*tvar.tdpur401.rcno = left.align(edit$(t
:DEFN:END
:HELP:START
create.record.into.tdpur401
:HELP:END
:FUNC:START
create.record.into.tdpur451
:FUNC:END
:DEFN:START
create.record.into.tdpur451(domain tcsern sern,domain tcdate ddta){
dump 1 }

:DEFN:END
:HELP:START
tdpur451
:HELP:END
:FUNC:START
db.Update
:FUNC:END
:DEFN:START
db.update( long table_id [, long mode [, long eflag]] )
:DEFN:END
:HELP:START
This rewrites the current record. When updating a record with this function, you are permitted to update the primary key of the record. 

Arguments
table_id 
 The table ID, as returned by db.bind().
 
mode This has two possible values: 

DB.RETRY 
 Set this value if retry points and the SELECT FOR UPDATE statement are being used. The actual database action is postponed until the transaction is committed.
 
DB.DELAYED.LOCK
 This option is available only for records for which a delayed lock has been set with db.eq().
 
 
eflag 
 For some errors, it is possible to indicate the action the system must perform when the error occurs. You use this argument to specify the required action(s). See Error handling. 
 

Return values
0 Success. 
 
<>0 Error.
 

:HELP:END
:FUNC:START
db.insert
:FUNC:END
:DEFN:START
db.insert( long table_id [, long mode [, long eflag]] )
:DEFN:END
:HELP:START
Description
This adds a new record to a specified table. The record pointer does not change. 

Arguments
table_id 
 The table ID, as returned by db.bind().
 
mode 
 Set this to DB.RETRY if retry points and the SELECT FOR UPDATE statement are being used. The actual database action is postponed until the transaction is committed. 
 
eflag 
 For some errors, it is possible to indicate the action the system must perform when the error occurs. You use this argument to specify the required action(s). See Error handling. .
 

Return values
0 Success. 
 
<>0 Error.
 

:HELP:END
:FUNC:START
db.retry
:FUNC:END
:DEFN:START
db.retry()
:DEFN:END
:HELP:START
same as db.retry.point
:HELP:END
:FUNC:START
db.retry.point
:FUNC:END
:DEFN:START
db.retry.point()
:DEFN:END
:HELP:START
Description
This sets a retry point for the current transaction. The program returns to this point if an error occurs during the transaction; the transaction is then retried. When you include a retry point for a transaction, you must set it before the start of the transaction.

When a retry occurs, all messages that were set with dal.set.error.message are also reset. Messages that were set before the retry point will be retained.


:HELP:END
:FUNC:START
edit$
:FUNC:END
:DEFN:START
edit$(string s1,string s2)
:DEFN:END
:HELP:START
This function edit the first sting into second string format.
:HELP:END
:FUNC:START
edit$()
:FUNC:END
:DEFN:START
edit$(string str1, string str2)
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
etol
:FUNC:END
:DEFN:START
etol(domain domain_value)
:DEFN:END
:HELP:START
This function is standard Baan function to convert enumerated into long value
:HELP:END
:FUNC:START
fileOpen
:FUNC:END
:DEFN:START
fileopen(string tabname(8),string curr.dir(200),
                  long maxrowlength,long rep.count,
                  ref long maxreccounter,
                  ref long fileptr      )
:DEFN:END
:HELP:START
fileopen
:HELP:END
:FUNC:START
get bpid
:FUNC:END
:DEFN:START
get.bpid(string csno(6),domain bccom.orgn type)
:DEFN:END
:HELP:START
get bpid
:HELP:END
:FUNC:START
get.acno
:FUNC:END
:DEFN:START
long get.acno(domain bccnv.acti hold.acti) 
{ 
 

g*tlong
g*ti 

g*t 

g*tfor i = 1 to counter 

g*t
g*tif (strip$(var.cotp(1,i)) = tdpur040.cotp) and  

g*t
g*t
g*t(strip$(var.acti(1,i)) = hold.acti) then 

g*t
g*t
g*treturn(var.acno(i)) 

g*t
g*tendif 

g*tendfor 

g*treturn(0) 

}
g*t
:DEFN:END
:HELP:START
get.acno
:HELP:END
:FUNC:START
get.bpid()
:FUNC:END
:DEFN:START
get.bpid(string str1, string str2)

:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
get.dept.EU.from.bccnv996
:FUNC:END
:DEFN:START
get.dept.EU.from.bccnv996(string str1, string str2)
:DEFN:END
:HELP:START
tetst
:HELP:END
:FUNC:START
get.finance.transaction()
:FUNC:END
:DEFN:START
get.finance.transaction(long ex, string str1, string str2, string str3, string str4, string str5)
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
get.var
:FUNC:END
:DEFN:START
get.var(long pid, string var1, string o.var)
:DEFN:END
:HELP:START
This retrieves the value of the specified variable. The variable can be a single variable of any type or an array. 
:HELP:END
:FUNC:START
get_code
:FUNC:END
:DEFN:START
get_code(String, string)
:DEFN:END
:HELP:START
correct data
:HELP:END
:FUNC:START
imcs0010.round.pric ()
:FUNC:END
:DEFN:START
imcs0010.round.pric (long price, string str1, atring crnd.user )
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
isspace
:FUNC:END
:DEFN:START
isspace( string_expr )
:DEFN:END
:HELP:START
returns a long values whether it is space or not
:HELP:END
:FUNC:START
isspace()
:FUNC:END
:DEFN:START
isspace(string str1)
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
left.align
:FUNC:END
:DEFN:START
left.align(string str(255),long len.of.ret.str)
:DEFN:END
:HELP:START
Left Aligns
:HELP:END
:FUNC:START
log.func
:FUNC:END
:DEFN:START
log.func(string curr.scrip(20), long fp, long rec.num)
:DEFN:END
:HELP:START
log.func
:HELP:END
:FUNC:START
logname$
:FUNC:END
:DEFN:START
logname$
:DEFN:END
:HELP:START
logname$
:HELP:END
:FUNC:START
ltoe
:FUNC:END
:DEFN:START
ltoe( long long_value )
:DEFN:END
:HELP:START
Description
This returns the named constant corresponding to a specified numeric code. The numeric code represents one of the values in an enumerated domain. 

Example
This example assumes an enumerated domain 'tcyesno'  with two possible constants: 'tcyesno.yes’ (=1) and 'tcyesno.no’ (=2).

domain    tcyesno active
long      enum_long

active = tcyesno.no
enum_long = etol( active )    | enum_long now contains 2
active = ltoe( 1 )            | active now equals tcyesno.yes


:HELP:END
:FUNC:START
new.func
:FUNC:END
:DEFN:START
new.func(long n)
{
n = n+1
dump 1
}
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
open.comparison.file
:FUNC:END
:DEFN:START
open.comparison.file()
:DEFN:END
:HELP:START
open.comparison.file
:HELP:END
:FUNC:START
right.align
:FUNC:END
:DEFN:START
right.align(string str(255),long len.of.ret.str)
:DEFN:END
:HELP:START
Right Aligns
:HELP:END
:FUNC:START
round ()
:FUNC:END
:DEFN:START
round(long l1, long l2, long l3)
g*t
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
segmet item code
:FUNC:END
:DEFN:START
cp.segment.item.code(ref string item(),ref string cprj(),

g*t
g*t
g*t
g*tref string cluster())
:DEFN:END
:HELP:START
Segment Item Code
:HELP:END
:FUNC:START
str$
:FUNC:END
:DEFN:START
str$(num_expr)
:DEFN:END
:HELP:START
This converts an integer or floating point expression to a string


:HELP:END
:FUNC:START
str$()
:FUNC:END
:DEFN:START
str$(long num)
g*t
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
tccri.dll0011.calculate.amount.in.home.currency
:FUNC:END
:DEFN:START
tccri.dll0011.calculate.amount.in.home.currency ( 
string tdpur010.ccur, long  tdpur011.pric, date tdpur011.trdt, long num, 
 
g*t 
g*t 
g*t 
g*t long  tdpur010.ratp, 
 
g*t 
g*t 
g*t 
g*t long  tdpur010.ratf, 
 
g*t 
g*t 
g*t 
g*t long  price )
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
tdpur.dll0022.calc.net.amount ()
:FUNC:END
:DEFN:START
tdpur.dll0022.calc.net.amount (string 
g*t tdpur011.cvqp, 
 
g*t 
g*t 
g*t 
g*tlong 
g*tnim1, 
 
g*t 
g*t 
g*t 
g*t long  tdpur011.oqua, 
 
g*t 
g*t 
g*t 
g*t long  price, 
 
g*t 
g*t 
g*t 
g*t string
g*tstr1, 
 
g*t 
g*t 
g*t 
g*t string  crnd.user, 
 
g*t 
g*t 
g*t 
g*t long tdpur011.dmth, 
 
g*t 
g*t 
g*t 
g*t long  tdpur011.disc, 
 
g*t 
g*t 
g*t 
g*t long  tdpur011.ldam, 
 
g*t 
g*t 
g*t 
g*t long  net.amount, 
 
g*t 
g*t 
g*t 
g*t long  discount.amount )
:DEFN:END
:HELP:START
ytst
:HELP:END
:FUNC:START
tdpur.dll0022.calc.single.disc ()
:FUNC:END
:DEFN:START
tdpur.dll0022.calc.single.disc (long net.amount, 
 
g*t 
g*t 
g*t long discount.amount, 
 
g*t 
g*t 
g*t long discount )
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
temp.exch.rate
:FUNC:END
:DEFN:START
temp.exch.rate(long,long)
:DEFN:END
:HELP:START
Exchange Rate Function
:HELP:END
:FUNC:START
test
:FUNC:END
:DEFN:START
test(string str1, string str2)
g*t
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
test1
:FUNC:END
:DEFN:START
test1(string str1, string str2)
:DEFN:END
:HELP:START
test1
:HELP:END
:FUNC:START
test3
:FUNC:END
:DEFN:START
test3(string str1, string str2)
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
to.byte
:FUNC:END
:DEFN:START
to.byte(long inp.value)
:DEFN:END
:HELP:START
to.byte
:HELP:END
:FUNC:START
to.enum
:FUNC:END
:DEFN:START
to.enum(long inp.value)
:DEFN:END
:HELP:START
to.enum
:HELP:END
:FUNC:START
to.native
:FUNC:END
:DEFN:START
to.native(string str(255))
g*t
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
toupper$
:FUNC:END
:DEFN:START
toupper$(string str1)
:DEFN:END
:HELP:START
test
:HELP:END
:FUNC:START
trim$
:FUNC:END
:DEFN:START
trim$()
:DEFN:END
:HELP:START
Trims the trailing spaces in the string.
:HELP:END
:FUNC:START
update.interface.dumped
:FUNC:END
:DEFN:START
update.interface.dumped(string current.table(8),

g*t
g*t
g*t
g*tlong  dumped.rec,...)
:DEFN:END
:HELP:START
Number of records dumped (progress indicator)
:HELP:END
:FUNC:START
update.interface.total
:FUNC:END
:DEFN:START
update.interface.total(string current.table(8),

g*t
g*t
g*t
g*tlong  total.rec)
:DEFN:END
:HELP:START
Number of records dumped (progress indicator)
:HELP:END
:FUNC:START
utc.num()
:FUNC:END
:DEFN:START
utc.num()
:DEFN:END
:HELP:START
utc.num()
:HELP:END
