|******************************************************************************

|* tdpur4100w00 0 VRC B61U a cus

|* wrapper
|* tech2
|* 16-01-12 [14:35]
|******************************************************************************
|* Script Type: 123
|******************************************************************************

|****************************** DECLARATION SECTION ***************************

declaration:

table ttdpur400

long parent.object.dll.id
long parent.object.function.id
long parent.object.error
string path.of.parent.object(255)
string out.error(256)

extern domain tcorno cdf_test,cdf_tst1

#pragma used dll otccomdllrush
|****************************** PROGRAM SECTION ***************************
before.program:
| This must be executed first; it loads the parent object
| dll so it's routines can be called.
| The "find.parent.obj" is an extern function that is in
| the tccomdllrush library.
if (tccom.dllrush.find.parent.object("otdpur4100", path.of.parent.object,
out.error) < 0) then
| true = get.parent.object("td", "pur", "4100", path.of.parent.object)
message("Unable to find parent object dll!")
stop()
endif

parent.object.dll.id = load_dll(path.of.parent.object,0)
if (parent.object.dll.id <= 0) then
message("Unable to load parent object dll!")
stop()
endif

parent.object.function.id = get_function(parent.object.dll.id,
"before.program")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)

| before.display.object:
| if tdpur400.orno(1;3) = "AT0" and isspace(tdpur400.cdf_test) then
| enable.fields("tdpur400.cdf_test",actual.occ)
| else
| disable.fields("tdpur400.cdf_test",actual.occ)
| endif
|****************************** ZOOM FROM SECTION ***************************
|****************************** FORM SECTION ***************************
|****************************** CHOICE SECTION ***************************
|****************************** FIELD SECTION ***************************
| field.tdpur400.cdf_test:
| before.input:
| if tdpur400.orno = "AT0000018" then
| attr.input = true
| else
| attr.input = false
| endif
|****************************** MAIN TABLE SECTION ***************************
|****************************** FUNCTION SECTION ***************************

functions:
|---------------------------DLL PROTOTYPES-------------------------------
function extern long __get_4gl_version()
{
long ret
parent.object.function.id = get_function(parent.object.dll.id,
"__get_4gl_version")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern activities.ordertype()

{
parent.object.function.id = get_function(parent.object.dll.id,
"activities.ordertype")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)

function extern boolean add.set.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
add.set.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean add.set.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
add.set.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern address.tdpur400.cadr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"address.tdpur400.cadr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}
function extern boolean address.tdpur400.cadr.is.allowed()
{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
address.tdpur400.cadr.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern address.tdpur400.ifad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"address.tdpur400.ifad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean address.tdpur400.ifad.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
address.tdpur400.ifad.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern address.tdpur400.otad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"address.tdpur400.otad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean address.tdpur400.otad.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
address.tdpur400.otad.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern address.tdpur400.ptad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"address.tdpur400.ptad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}
function extern boolean address.tdpur400.ptad.is.allowed()
{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
address.tdpur400.ptad.is.allowed")
 parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern address.tdpur400.sfad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"address.tdpur400.sfad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean address.tdpur400.sfad.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
address.tdpur400.sfad.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern after.choice.def.find()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.def.find")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.first.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.first.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.last.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.last.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.mark.occur()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.mark.occur")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.modify.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.modify.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.next.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.next.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.prev.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.prev.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.recover.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.recover.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.rotate.curr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.rotate.curr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.text.manager()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.text.manager")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.update.db()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.update.db")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.field.tdpur400.otbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.field.tdpur400.otbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.form.read()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.form.read")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.input.all()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.input.all")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.update.db.commit()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.update.db.commit")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.zoom.tdpur400.cpay()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.zoom.tdpur400.cpay")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.zoom.tdpur400.odno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.zoom.tdpur400.odno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.zoom.tdpur400.orno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.zoom.tdpur400.orno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern approve.order()

{
parent.object.function.id = get_function(parent.object.dll.id,
"approve.order")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean approve.order.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
approve.order.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean approve.order.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
approve.order.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern before.checks.tdpur400.ifad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.ifad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.ifbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.ifbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.ifcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.ifcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.otad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.otad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.otbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.otbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}
function extern before.checks.tdpur400.otcn()
{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.otcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.ptad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.ptad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.ptbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.ptbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.ptcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.ptcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.sfad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.sfad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.sfbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.sfbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.checks.tdpur400.sfcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.checks.tdpur400.sfcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.abort.program()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.abort.program")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.add.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.add.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.def.find()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.def.find")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.display.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.display.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.dupl.occur()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.dupl.occur")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.end.program()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.end.program")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.find.data()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.find.data")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern after.choice.find.data()

{
parent.object.function.id = get_function(parent.object.dll.id,
"after.choice.find.data")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.first.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.first.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.last.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.last.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.mark.delete()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.mark.delete")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.modify.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.modify.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)

function extern on.choice.modify.set()

{

parent.object.function.id = get_function(parent.object.dll.id,
"on.choice.modify.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.next.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.next.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.prev.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.prev.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.recover.set()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.recover.set")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.start.query()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.start.query")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.tdpur4501m500()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.tdpur4501m500")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.tdpur4550m000()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.tdpur4550m000")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.text.manager()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.text.manager")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.update.db()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.update.db")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.choice.zoom()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.choice.zoom")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.all()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.all")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}
function extern before.display.city.dsca()
{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.city.dsca")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.contact.name()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.contact.name")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.contact.phone()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.contact.phone")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.defined.rate()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.defined.rate")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.disp.txt()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.disp.txt")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.disp.txta()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.disp.txta")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.disp.txtb()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.disp.txtb")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.home.curr.dsca()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.home.curr.dsca")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.object()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.object")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.sfad.city.dsca()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.sfad.city.dsca")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.supp.chng.ord.seq()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.supp.chng.ord.seq")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.tdpur400.sbmt()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.tdpur400.sbmt")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.tot.incl.tax()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.tot.incl.tax")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.display.total.landed.cost()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.display.total.landed.cost")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}
| function extern before.program()
| {
| parent.object.function.id = get_function(parent.object.dll.id,
"before.program")
| parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
| }

function extern before.zoom.tdpur400.bppr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.bppr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.bptx()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.bptx")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.cadr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.cadr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ccon()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ccon")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.cpay()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.cpay")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ifad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ifad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ifbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ifbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ifcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ifcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.odno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.odno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.orno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.orno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.otad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.otad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.otbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.otbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.otcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.otcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.plnr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.plnr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.prno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.prno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ptad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ptad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ptbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ptbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ptcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ptcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.ragr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.ragr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.truer()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.truer")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.sfad()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.sfad")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.sfbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.sfbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern before.zoom.tdpur400.sfcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"before.zoom.tdpur400.sfcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern calculate.order.weight()

{
parent.object.function.id = get_function(parent.object.dll.id,
"calculate.order.weight")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean calculate.order.weight.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
calculate.order.weight.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern calculate.tot.tax.amount()

{
parent.object.function.id = get_function(parent.object.dll.id,
"calculate.tot.tax.amount")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean calculate.tot.tax.amount.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
calculate.tot.tax.amount.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern cancel.order()

{
parent.object.function.id = get_function(parent.object.dll.id,
"cancel.order")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}
function extern boolean cancel.order.is.allowed()
{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
cancel.order.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean cancel.order.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
cancel.order.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern change.order.sequence.nos()

{
parent.object.function.id = get_function(parent.object.dll.id,
"change.order.sequence.nos")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern contact.tdpur400.ifcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"contact.tdpur400.ifcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean contact.tdpur400.ifcn.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
contact.tdpur400.ifcn.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern contact.tdpur400.otcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"contact.tdpur400.otcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean contact.tdpur400.otcn.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
contact.tdpur400.otcn.is.allowed")
 parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern contact.tdpur400.ptcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"contact.tdpur400.ptcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean contact.tdpur400.ptcn.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
contact.tdpur400.ptcn.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern contact.tdpur400.sfcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"contact.tdpur400.sfcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean contact.tdpur400.sfcn.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
contact.tdpur400.sfcn.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern copy.from.orig.doc()

{
parent.object.function.id = get_function(parent.object.dll.id,
"copy.from.orig.doc")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean copy.from.orig.doc.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
copy.from.orig.doc.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}
function extern boolean copy.from.orig.doc.is.never.allowed()
{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
copy.from.orig.doc.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean display.allowed.supp.chng.ord.seq()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
display.allowed.supp.chng.ord.seq")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean display.allowed.tdpur400.fdpt()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
display.allowed.tdpur400.fdpt")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean display.allowed.total.landed.cost()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
display.allowed.total.landed.cost")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean dupl.occur.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
dupl.occur.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern long g_check_input_funcs(

long count,
ref string fld() )

function extern boolean global.delete.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
global.delete.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern hide.rec.pay.orders()

{
parent.object.function.id = get_function(parent.object.dll.id,
"hide.rec.pay.orders")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)

function extern init.form.all()

{
parent.object.function.id = get_function(parent.object.dll.id,
"init.form.all")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)

function extern init.group.1()

{
parent.object.function.id = get_function(parent.object.dll.id,
"init.group.1")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern long library_has_maintable()

| {
| long true
| parent.object.function.id = get_function(parent.object.dll.id, "long
library_has_maintable")
| parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
| return(true)
| }

function extern boolean mark.delete.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
mark.delete.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean modify.set.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
modify.set.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
return(true)

function extern on.choice.bms()

{
parent.object.function.id = get_function(parent.object.dll.id,
"on.choice.bms")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern on.entry.zoom.from.all()

{
parent.object.function.id = get_function(parent.object.dll.id,
"on.entry.zoom.from.all")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern on.exit.zoom.from.all()

{
parent.object.function.id = get_function(parent.object.dll.id,
"on.exit.zoom.from.all")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern open.purchase.order()

{
parent.object.function.id = get_function(parent.object.dll.id,
"open.purchase.order")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean open.purchase.order.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
open.purchase.order.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern re.open.closed.order()

{
parent.object.function.id = get_function(parent.object.dll.id,
"re.open.closed.order")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean re.open.closed.order.is.allowed()

{
boolean ret
 parent.object.function.id = get_function(parent.object.dll.id, "boolean
re.open.closed.order.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean re.open.closed.order.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
re.open.closed.order.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern recalc.landed.costs()

{
parent.object.function.id = get_function(parent.object.dll.id,
"recalc.landed.costs")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean recalc.landed.costs.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
recalc.landed.costs.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean recalc.landed.costs.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
recalc.landed.costs.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern recalc.pric.disc.ent.ord()

{
parent.object.function.id = get_function(parent.object.dll.id,
"recalc.pric.disc.ent.ord")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean recalc.pric.disc.ent.ord.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id,
"recalc.pric.disc.ent.ord.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean release.to.warehousing()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
release.to.warehousing")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
return(true)
}

function extern boolean rotate.curr.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
rotate.curr.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern selection.filter.tdpur400.akcd()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.akcd")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.bppr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.bppr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.bptx()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.bptx")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ccon()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ccon")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.cofc()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.cofc")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.cotp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.cotp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ctcd()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ctcd")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.cwar()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.cwar")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.fdpt()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.fdpt")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ifbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ifbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ifcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ifcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.orno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.orno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.otbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.otbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.otcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.otcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.plnr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.plnr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.prno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.prno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ptbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ptbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ptcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ptcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ragr()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ragr")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.ratt()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.ratt")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.truer()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.truer")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.sfbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.sfbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern selection.filter.tdpur400.sfcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"selection.filter.tdpur400.sfcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern start.confirmations()

{
parent.object.function.id = get_function(parent.object.dll.id,
"start.confirmations")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean start.confirmations.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.confirmations.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern start.landed.cost.lines()

{
parent.object.function.id = get_function(parent.object.dll.id,
"start.landed.cost.lines")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean start.landed.cost.lines.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.landed.cost.lines.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean start.landed.cost.lines.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.landed.cost.lines.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern start.landed.costs.by.po()

{
parent.object.function.id = get_function(parent.object.dll.id,
"start.landed.costs.by.po")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean start.landed.costs.by.po.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.landed.costs.by.po.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern start.manual.activity()

{
parent.object.function.id = get_function(parent.object.dll.id,
"start.manual.activity")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern start.pegging()

{
parent.object.function.id = get_function(parent.object.dll.id,
"start.pegging")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean start.pegging.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.pegging.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean start.pegging.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.pegging.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern start.subcont.sales.order()

{
parent.object.function.id = get_function(parent.object.dll.id,
"start.subcont.sales.order")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean start.subcont.sales.order.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.subcont.sales.order.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean start.subcont.sales.order.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
start.subcont.sales.order.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern start.tax.numbers.by.bp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"start.tax.numbers.by.bp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern supp.change.order.seq.nos()

{
parent.object.function.id = get_function(parent.object.dll.id,
"supp.change.order.seq.nos")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean supp.change.order.seq.nos.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
supp.change.order.seq.nos.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern synchronize.header.line()

{

parent.object.function.id = get_function(parent.object.dll.id,
"synchronize.header.line")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean synchronize.header.line.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
synchronize.header.line.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur400.orno.is.readonly()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur400.orno.is.readonly")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur4216m000.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4216m000.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur4220m000.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4220m000.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur4220m000.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4220m000.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

| function extern boolean tdpur4222m000.is.allowed()

| {
| return(false)
| }

function extern boolean tdpur4401m000.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id,
"tdpur4401m000.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur4401m000.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4401m000.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur4401m200.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4401m200.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern tdpur4401m200()

{
parent.object.function.id = get_function(parent.object.dll.id,
"tdpur4401m200")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean tdpur4403m000.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4403m000.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
 return(true)
}

function extern boolean tdpur4405m000.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4405m000.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur4405m000.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4405m000.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern boolean tdpur4432.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
tdpur4432.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern to.lines()

{
parent.object.function.id = get_function(parent.object.dll.id, "to.lines")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean to.lines.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
to.lines.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern view.all.types()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.all.types")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}
function extern view.any.state()
{
parent.object.function.id = get_function(parent.object.dll.id,
"view.any.state")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.only.pay()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.only.pay")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.only.rec()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.only.rec")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.open.orders()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.open.orders")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean view.open.orders.is.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
view.open.orders.is.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern view.order.quant.mismatch()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.order.quant.mismatch")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern boolean view.order.quant.mismatch.is.never.allowed()

{
boolean ret
parent.object.function.id = get_function(parent.object.dll.id, "boolean
view.order.quant.mismatch.is.never.allowed")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id,ret)
return(true)
}

function extern view.orders.for.manual()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.orders.for.manual")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.orders.for.printing()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.orders.for.printing")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.orders.for.process()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.orders.for.process")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.orders.for.rel.to.wh()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.orders.for.rel.to.wh")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.return.orders()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.return.orders")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.unapproved.orders()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.unapproved.orders")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern view.unconfirmed.orders()

{
parent.object.function.id = get_function(parent.object.dll.id,
"view.unconfirmed.orders")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.all()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.all")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ccur()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ccur")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ctcd()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ctcd")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ddat()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ddat")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ddtc()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ddtc")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.iebp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.iebp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ifbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ifbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.odat()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.odat")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.odno()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.odno")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.otbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.otbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.otcn()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.otcn")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ptbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ptbp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ratf()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ratf")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.ratp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.ratp")
parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}

function extern when.field.changes.tdpur400.sfbp()

{
parent.object.function.id = get_function(parent.object.dll.id,
"when.field.changes.tdpur400.sfbp")
 parent.object.error = exec_function(parent.object.dll.id,
parent.object.function.id)
}