saso.its
20th August 2002, 12:00
I have a big problem with using standard DAL tdsls401
I develop some interface for creating sales orders and sales order
lines. So far so good. On my company server programs working
without any problems.
Programms are 3GL(generate with DDC script generator) ,
so in the step when I call function dal.new program activate
DAL tdsls401.
function extern long before.open.object.set()
{
long dummy_l
domain tcclan l.comp.lang
tcmcs.dll0095.read.parm("tdsls000")
tcmcs.dll0095.read.parm("tdpcg000")
tcmcs.dll0095.read.parm("tdcms000")
tcmcs.dll0095.read.parm("cprpd000")
company = get.compnr()
itccom0000.get.multi.currency.data(company)
...
function itccom0000.get.multi.currency.data(domain tcncmp i.comp)
{
domain tcmcs.long curr.count
domain tcmcs.long dummy
domain tcccur dummy.ccur
domain tcemm.expu dummy.expu
domain tcdesc dummy.desc
domain tcemm.depe dummy.csys
if i.comp = 0 then
i.comp = get.compnr()
endif
if itccom0000.hold.comp <> i.comp then
itccom0000.free.memory.for.array.variables()
itccom0000.allocate.memory.for.array.variables()
tcemm.dll5000.get.home.currency.system(
i.comp,
itccom0000.hcur,
itccom0000.ncur,
itccom0000.csys,
itccom0000.rcur,
itccom0000.exeu,
itccom0000.expu,
itccom0000.exsa)
when t I pass tcemm.dll5000.get.home.currency.system
client lost connection with the server .
saso.petac@its.si
I develop some interface for creating sales orders and sales order
lines. So far so good. On my company server programs working
without any problems.
Programms are 3GL(generate with DDC script generator) ,
so in the step when I call function dal.new program activate
DAL tdsls401.
function extern long before.open.object.set()
{
long dummy_l
domain tcclan l.comp.lang
tcmcs.dll0095.read.parm("tdsls000")
tcmcs.dll0095.read.parm("tdpcg000")
tcmcs.dll0095.read.parm("tdcms000")
tcmcs.dll0095.read.parm("cprpd000")
company = get.compnr()
itccom0000.get.multi.currency.data(company)
...
function itccom0000.get.multi.currency.data(domain tcncmp i.comp)
{
domain tcmcs.long curr.count
domain tcmcs.long dummy
domain tcccur dummy.ccur
domain tcemm.expu dummy.expu
domain tcdesc dummy.desc
domain tcemm.depe dummy.csys
if i.comp = 0 then
i.comp = get.compnr()
endif
if itccom0000.hold.comp <> i.comp then
itccom0000.free.memory.for.array.variables()
itccom0000.allocate.memory.for.array.variables()
tcemm.dll5000.get.home.currency.system(
i.comp,
itccom0000.hcur,
itccom0000.ncur,
itccom0000.csys,
itccom0000.rcur,
itccom0000.exeu,
itccom0000.expu,
itccom0000.exsa)
when t I pass tcemm.dll5000.get.home.currency.system
client lost connection with the server .
saso.petac@its.si