RavCOder
11th September 2019, 13:30
Hi,
I have to create a DLL for print report that show me a sum ( I have created function yet but I don't know where I put this function).

this is my function:


function sum_period (){

sum_order = 0
select tdsls900.bpid, tdsls900.qoor, tdsls900.odat
from tdsls900
selectdo
select tdsls900.odat, tdsls900.qoor
from tdsls900
group by tdsls900.odat, tdsls900.qoor
selectdo
sum_order = sum_order + tdsls900.qoor
endselect
endselect
}




I asked what are the steps to do to create a print report and a dll and link them together.
Regards,
RavCoder

mark_h
11th September 2019, 15:14
In 4c4 I would go into maintain libraries ttadv2131m00. Then depending on what I was doing I might or might not pass variables. Below is a sample of - you do not necessarily have to return a field like msg. You could do a function with like function extern domain
long sum_period(). Or what ever you need in that regards.

|******************************************************************************
|* tdapidllinvt 0 VRC B40C c3 dev
|* API Code for Inventory Transactions
|* hollandv
|* 06-28-00 [07:19]
|******************************************************************************
|* Script Type: Library
|******************************************************************************
|* 20130517 Mark holland 05-17-2013
|* Add code to export more fields for VSS.
|******************************************************************************
|* 20061012 Mark holland 10-12-2006
|* Add code to export order number and sequence number. Also remove reason
|* code from the routine.
|******************************************************************************
table ttiitm001 | Items
#pragma used dll ottstpapihand | Baan API Handler

| 20061012 add two export fields
extern domain tcpono exp.sern
extern domain tcorno exp.orno
|20130517.st
extern domain tcpono exp.sera
extern domain tcsern exp.serb | 20130517.end
string whro(10)
string sern(10)
|20130517.st
string some.sera(10)
string some.serb(10) | 20130517.end

|******************************************************************************
|* API Code for doing a bin to bin transfer.
|******************************************************************************
function extern bin_to_bin(
domain tcitem xfer.item,
domain tccwar xfer.frwh,
domain tcqiv1 xfer.qty,
domain tccwar xfer.towh,
domain tdilc.loca xfer.floc,
domain tdilc.loca xfer.tloc,
domain tdltc.clot xfer.lots,
domain tcdate xfer.date,
ref string msg())
{
long rc
domain tcwtst order.status
string serial.number(6), hold.msg(120), order.stat(10)

msg = hold.msg
}

bdittmar
11th September 2019, 17:19
Hello,

in ttadv2530m000 create a library

e.g. xy xyz dll123 and code your DLL-Logic there

Regards