Baanboard.com

Go Back   Baanboard.com > Forum > Baan SIGs > AFS/DDC/OLE: Function servers

User login

Frontpage Sponsor

Main

Poll
For ERP LN feature pack upgrade, what method of install are you using?
Installation Wizard into existing VRC
37%
Installation Wizard into new VRC
39%
Manual into existing VRC
3%
Manual into new VRC
21%
Total votes: 38

Baanboard at LinkedIn


Reference Content

Reply
 
Thread Tools Display Modes
  #1  
Old 6th January 2004, 16:08
saso.its's Avatar
saso.its saso.its is offline
Junior Member
 
Join Date: Jan 2002
Location: Kranj
Posts: 5
saso.its is on a distinguished road
Exclamation DDC and Triton3.1 a1

Hello,

could someone help me. I would like to develop some integration
interface between legacy system and Triton3.1 a1. My problem occurs when l compile the script generated via session tuddc9201m000 (Fuinction server generator). We used components from package TU: 6.1L_b7_glo0 although our customer has installed Triton 3.1 a1. We have no problems with using "tuddc" sessions.

What I need is information, if Triton 3.1a1 can use DDC module. Maybe someone can give me information, how to set up Tools components (ottstp_standard and others) so they will work correctly with DDC for b7.

Please, find attached file with error messages after compiling of generated very simple function server. Probably it will give you a better picture. Maybe someone can compile script in Triton3.1 environment.

Thanks in advance.

Code:
|******************************************************************************
|* Program generated by Function Server Generator
|* Generate date:time(MMDDYY:HHMMSS): 121103:133435
|******************************************************************************
|* Necessary includes
|******************************************************************************
#include"ituddc0010"
|******************************************************************************
|* tcmcs9037  0  VRC 3.1C a1 dzs 
|* Test DDC
|* General_User                  
|* 2003-12-11
|* Main table tcmcs037 ©ifre davkov, Form Type 1
                                                                                

	table	ttcmcs037	| ©ifre davkov




|********************START DDC VARIABLES***************

	extern long	ddc.compnr
	extern domain	tccvat	ddc.tcmcs037.cvat
	extern domain	tcdsca	ddc.tcmcs037.dsca
	function long validate.fields()
#define ddc.set.choice(X)
^	update.status = X
^	previous.choice = X
^	choice = X
#define ddc.set.field(X,Y,Z)
^	ddc.fieldnumber = X
^	ddc.formnumber = Y
^	ddc.formfieldnumber = Z
^	attr.input = true
^	stp.check.input.error = 0

|********************END DDC VARIABLES***************


function ddc.main()
{
	ddc.define.function(add_sifre_davkov)
	ddc.define.function(modify_sifre_davkov)
	ddc.define.function(delete_sifre_davkov)
}

function ddc.define.fields()
{
	ddc.update.field("add_sifre_davkov","",1,"ddc.compnr",
			"tcmcs.long","Company Number")
	ddc.update.field("add_sifre_davkov","",2,"ddc.tcmcs037.cvat",
			"tccvat","©if.dav.")
	ddc.update.field("add_sifre_davkov","",3,"ddc.tcmcs037.dsca",
			"tcdsca","Opis")
	ddc.update.field("modify_sifre_davkov","",1,"ddc.compnr",
			"tcmcs.long","Company Number")
	ddc.update.field("modify_sifre_davkov","",2,"ddc.tcmcs037.cvat",
			"tccvat","©if.dav.")
	ddc.update.field("modify_sifre_davkov","",3,"ddc.tcmcs037.dsca",
			"tcdsca","Opis")
	ddc.update.field("delete_sifre_davkov","",1,"ddc.compnr",
			"tcmcs.long","Company Number")
	ddc.update.field("delete_sifre_davkov","",2,"ddc.tcmcs037.cvat",
			"tccvat","©if.dav.")
}

function add_sifre_davkov()
{

	if ddc.switch.company(ddc.compnr) < 0 then
		return
	endif

	init.ddc.vars()
	format.variables()
	if check.variables() then
		return
	endif
	ddc.set.choice(add.set)
	if validate.fields() then
		return
	endif
	update.status = 0
	if not(ddc.errors) then
		db.columns.to.record(ddc.main.table.id)
		db.insert(ddc.main.table.id,db.retry)
	endif
	commit.transaction()
	ddc.appl.delete()
	ddc.switch.back()
}

function modify_sifre_davkov()
{

	if ddc.switch.company(ddc.compnr) < 0 then
		return
	endif

	init.ddc.vars()
	format.variables()
	if check.variables() then
		return
	endif
	select tcmcs037.*
	from tcmcs037 for update
	where tcmcs037._index1 = {:ddc.tcmcs037.cvat}
	selectdo
		db.columns.to.record(ddc.main.table.id)
		db.eq(ddc.main.table.id,db.delayed.lock)
		copy.mem(ddc.rcd.occ.save,ddc.main.table.buffer)
		ddc.set.choice(modify.set)
		if validate.fields() then
			return
		endif
		update.status = 0
		if not(ddc.errors) then
			db.columns.to.record(ddc.main.table.id)
			db.update(ddc.main.table.id,db.retry)
		endif
		commit.transaction()
	selectempty
		ddc.error(0,"Record not found")
	endselect
	ddc.appl.delete()
	ddc.switch.back()
}

function delete_sifre_davkov()
{

	if ddc.switch.company(ddc.compnr) < 0 then
		return
	endif

	init.ddc.vars()
	format.variables()
	if check.variables() then
		return
	endif
	select tcmcs037.*
	from tcmcs037 for update
	where tcmcs037._index1 = {:ddc.tcmcs037.cvat}
	selectdo
		db.columns.to.record(ddc.main.table.id)
		db.eq(ddc.main.table.id,db.delayed.lock)
		copy.mem(ddc.rcd.occ.save,ddc.main.table.buffer)
		ddc.set.choice(mark.delete)
		update.status = 0
		if not(ddc.errors) then
			db.columns.to.record(ddc.main.table.id)
			db.delete(ddc.main.table.id,db.retry)
		endif
		commit.transaction()
	selectempty
		ddc.error(0,"Record not found")
	endselect
	ddc.appl.delete()
	ddc.switch.back()
}
function long validate.fields()
{
	if choice = add.set then
		db.set.to.default(ddc.main.table.id)
	endif
	db.record.to.columns(ddc.main.table.id)

	ddc.set.field(2,1,1)
	if attr.input then
		tcmcs037.cvat = ddc.tcmcs037.cvat
	endif

	ddc.set.field(3,1,2)
	if attr.input then
		tcmcs037.dsca = ddc.tcmcs037.dsca
	endif


	table.round("ttcmcs037")

	ddc.set.field(0,0,0)

	return(ddc.errors)

}
function init.ddc.vars()
{
	actual.occ = 1
	attr.inpfld = 1
	curr.key = 1
	stp.abort.error = 0
	stp.skip.error = 0
	ddc.add.set = 1
	ddc.modify.set = 1
	ddc.mark.delete = 1
	ddc.print.data = 0
	ddc.cont.process = 0

	if not ddc.main.table.id then
		ddc.main.table = "tcmcs037"
		ddc.main.table.id = db.bind("ttcmcs037","",get.compnr())
		db.row.length(ddc.main.table.id,ddc.main.table.length)
		db.unbind(ddc.main.table.id)
		if alloc.mem(ddc.main.table.buffer,ddc.main.table.length) then
			ddc.error(0,"Memory Error")
			end()
		endif
		ddc.main.table.id = db.bind("ttcmcs037",ddc.main.table.buffer,get.compnr())
		if alloc.mem(ddc.rcd.occ.save,ddc.main.table.length) then
			ddc.error(0,"Memory Error")
			end()
		endif
	endif

}

function format.variables()
{

	ddc.format.domain("tccvat",ddc.tcmcs037.cvat)
	ddc.format.domain("tcdsca",ddc.tcmcs037.dsca)
}

function long check.variables()
{

	ddc.check.domain(2,"tccvat",ddc.tcmcs037.cvat)
	ddc.check.domain(3,"tcdsca",ddc.tcmcs037.dsca)
	return(ddc.errors)
}

|******************************************************************************
|* 4GL program functions
|******************************************************************************




|******************************************************************************
|* Error List
|******************************************************************************

ptcmcs9037f0(  84): Error: 'update.status' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0(  84): Error: 'previous.choice' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0(  90): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 114): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 116): Error: 'ddc.rcd.occ.save' not declared
ptcmcs9037f0( 116): Error: 'ddc.main.table.buffer' not declared
ptcmcs9037f0( 117): Error: 'update.status' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 117): Error: 'previous.choice' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 150): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 152): Error: 'ddc.rcd.occ.save' not declared
ptcmcs9037f0( 152): Error: 'ddc.main.table.buffer' not declared
ptcmcs9037f0( 153): Error: 'update.status' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 153): Error: 'previous.choice' not declared (While expanding macro 'ddc.set.choice')
ptcmcs9037f0( 169): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 173): Error: 'ddc.fieldnumber' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 173): Error: 'ddc.formnumber' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 173): Error: 'ddc.formfieldnumber' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 173): Error: 'stp.check.input.error' not declared (While expanding macro 'ddc.set.field')
ptcmcs9037f0( 195): Error: 'curr.key' not declared
ptcmcs9037f0( 196): Error: 'stp.abort.error' not declared
ptcmcs9037f0( 197): Error: 'stp.skip.error' not declared
ptcmcs9037f0( 198): Error: 'ddc.add.set' not declared
ptcmcs9037f0( 199): Error: 'ddc.modify.set' not declared
ptcmcs9037f0( 200): Error: 'ddc.mark.delete' not declared
ptcmcs9037f0( 201): Error: 'ddc.print.data' not declared
ptcmcs9037f0( 202): Error: 'ddc.cont.process' not declared
ptcmcs9037f0( 204): Error: 'ddc.main.table.id' not declared
ptcmcs9037f0( 205): Error: 'ddc.main.table' not declared
ptcmcs9037f0( 206): Error: Dimensions in array assignment differs: 0:1
ptcmcs9037f0( 207): Error: 'ddc.main.table.length' not declared
ptcmcs9037f0( 207): Error: Argument 2 for function 'db.row.length' should be call by reference.
ptcmcs9037f0( 209): Error: 'ddc.main.table.buffer' not declared
ptcmcs9037f0( 214): Error: 'ddc.rcd.occ.save' not declared
ptcmcs9037f0(  75): Error: Unresolved reference to function 'ddc.switch.company'.
ptcmcs9037f0(  94): Error: Unresolved reference to function 'ddc.appl.delete'.
ptcmcs9037f0(  95): Error: Unresolved reference to function 'ddc.switch.back'.
ptcmcs9037f0( 225): Error: Unresolved reference to function 'ddc.format.domain'.
ptcmcs9037f0( 232): Error: Unresolved reference to function 'ddc.check.domain'.

 39 ERRORS    REPORTED.
__________________
Sašo Petaè

ITS Intertrade Sistemi d.o.o.
Leskoškova 6
1000 Ljubljana
Slovenija

Phone: +38615855860
Mobile: +38641777438
Email: saso.petac@its.si
Reply With Quote
  #2  
Old 6th January 2004, 17:05
jan van dillen jan van dillen is offline
Junior Member
 
Join Date: Aug 2002
Posts: 18
jan van dillen is on a distinguished road
Baan: c4 - DB: oracle - OS: sun
Hi,

It looks to me that the program can not find the includes tuddc0016 and tuddc0014.

I believe that the DDC module was written as a Noth American localisation in Triton 3.1, so it will probably be possible to use it.

Regards,

Jan
Reply With Quote
  #3  
Old 7th January 2004, 11:39
saso.its's Avatar
saso.its saso.its is offline
Junior Member
 
Join Date: Jan 2002
Location: Kranj
Posts: 5
saso.its is on a distinguished road
I sucsess compile the script without errors.
Problem occure because function tuddc0014 from package TU: 6.1L_b7_glo0 was maybe too old or wrong.
We used some components from BaanIV b1-b2 inviroment.

Thanks for your suggestions.
Reply With Quote
Sponsored Links
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Interface with Triton3.1 djain999 AFS/DDC/OLE: Function servers 5 21st February 2003 17:50


All times are GMT +2. The time now is 13:00.


©2001-2017 - Baanboard.com - Baanforums.com