User login
|
|
Frontpage Sponsor
|
|
Google search
|
|
Poll
|
For ERP LN feature pack upgrade, what method of install are you using? Installation Wizard into existing VRC 38% Installation Wizard into new VRC 38% Manual into existing VRC 5% Manual into new VRC 19% Total votes: 42 |
Baanboard at LinkedIn
|

|
|
|
 |

6th January 2004, 15:08
|
 |
Junior Member
|
|
Join Date: Jan 2002
Location: Kranj
Posts: 5
|
|
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.
__________________
Sao Petaè
ITS Intertrade Sistemi d.o.o.
Leskokova 6
1000 Ljubljana
Slovenija
Phone: +38615855860
Mobile: +38641777438
Email: saso.petac@its.si
|

6th January 2004, 16:05
|
Junior Member
|
|
Join Date: Aug 2002
Posts: 18
|
|
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
|

7th January 2004, 10:39
|
 |
Junior Member
|
|
Join Date: Jan 2002
Location: Kranj
Posts: 5
|
|
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.
|
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
|
|
Thread Tools |
|
Display Modes |
Linear Mode
|
Posting Rules
|
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
HTML code is Off
|
|
|
Similar Threads
|
Thread |
Thread Starter |
Forum |
Replies |
Last Post |
Interface with Triton3.1 |
djain999 |
AFS/DDC/OLE: Function servers |
5 |
21st February 2003 16:50 |
|