Retirement Notice
|
|
|
|
User login
|
|
|
|
Frontpage Sponsor
|
|
|
|
Poll
|
What do you expect from your SI Implementation partner for the success of ERP implementation. Bring best practices - Not to offer more CR's Leveraging standard functions 20% Need more honesty to work with the Users until their processes are fully mapped & Users are trained 40% Focus on process automation/ integrations/ Real time data/ BI analytics 13% Stick to basics 27% Total votes: 15 |
|
|
 |
10th August 2018, 11:56
|
|
Member
|
|
Join Date: Oct 2017
Posts: 60
|
|
|
Baan: Baan IV -
DB: Onpen Sql -
OS: Windows 10
|
Debug with non-compiled script
Baan: ERP LN 6.1 FP10 (Infor ERP 10.4) C/S: Client
Hi all,
i've a problem with a dll that is opening while running a session, but the script is giving me an error at the first row - "i" not expected; while is doing this? In the debugger it also gives me a warning WARNING: Source file "<program script>" more recent than object file.
I analyze in debug the script and it is the non-compiled script for sure.
What is the problem? I'm not getting it. Thanks, i'm leaving the first part of script down here.
Code:
|*******************************************************************************
|* whinhdll4415 0 VRC B60 a sy83
|* Generate Picking List
|* jvdwerf
|* 14-10-10 [10:00]
|*******************************************************************************
|* Script Type: Library
|*******************************************************************************
|* Rev.No. 3 whB60asy83 10 Oct 14 jvdwerf
|* Script cleaned by: duutl1200m000 user: jvdwerf
|******************************************************************************
|*
|* SOL 1604225, Peter (PM) van Dam, 2015-03-30
|* Picking List is not correctly sorted.
|* (InforXtreme DF 494987)
|*
|* SOL 1633079, Kees de Jong, 2015-07-06
|* One report missing when option 'New Page per Order' is selected.
|*
|* (InforXtreme DF 508501)
|*
|* SOL 1635106, Kees de Jong, 2015-07-06
|* 'New Page per Order' not used during automatic processing.
|* (InforXtreme DF 509346)
|*
|* SOL 1669316, Kees de Jong, 2015-11-11
|* Project data is only printed for the first line. Variable is not
|* re-initialized.
|* (InforXtreme DF 525671)
|******************************************************************************
|* Rev.No. 2 whB60asy83 09 Oct 14 jvdwerf
|* Solved TCS remark 800/199542
|******************************************************************************
|* SOL 1510724, Kees de Jong, 2014-07-07
|* It is not possible to reprint only lines which are not picked/putaway.
|* (InforXtreme DF 457546)
|* SOL 1480315, Kees de Jong, 2014-09-03
|* No report printed when using 'Predefined Device".
|* (InforXtreme DF 442233)
|* SOL 1487243, Kees de Jong, 2014-09-03
|* Report is closed too late (or not at all) when no default device is used.
|* (InforXtreme DF 446000)
|*
|* ID ZAN123001, Bonora Andrea, 07/03/2017 08:59:24
|* Stampa Dettaglio Missioni Distinta Prelievo
|*
|* ID ZAN198001, Alessandro Lazzarin, 2018-03-22
|* Aggiunto campo coda sul report
|*
|* ID ZAN198001-1, Maria Grazia Sanna, 2018-06-14
|* Fix Date Validità, Aggiunta valorizzazione dei layout del report per in nuovo
|* report aggiunto in coda
|*
|* ID ZAN198002, Maria Grazia Sanna, 2018-06-25
|* Sistemata la Stampa per Item KIT e Item non KIT
|*
|* ID ZAN198003, Maria Grazia Sanna, 2018-06-27
|* Fix per JOB perchè la variabile dava un errore
|******************************************************************************
|******************************************************************************
#ident "@(#)whinhdll4415 whB60asy83 NLBAWAPPSDEV1 Rev.No. 3 10 Oct 14 jvdwerf"
#ident "@(#)whinhdll4415 whB61M10 nlbalappsmnt1 Rev.No. 5 11 Nov 15 kdjong"
#ident "@(#) SOL 1604225, 2015-03-30, B61M_a9"
#ident "@(#) SOL 1633079, 2015-07-06, B61M_a7"
#ident "@(#) SOL 1635106, 2015-07-06, B61M_a9"
#ident "@(#) SOL 1669316, 2015-11-11, B61M_a9"
#ident "@(#)IDZAN123001, Bonora Andrea, 2017-03-07, B61O_a_ztmp"
#ident "@(#)IDZAN198001-1, Maria Grazia Sanna, 2018-06-14, B61O_a_zan0"
#ident "@(#)IDZAN198003, Maria Grazia Sanna, 2018-06-14, B61O_a_zan0"
table ttcibd001 |* Items - General
table ttcmcs003 |* Warehouses
table twhinh200 |* Warehousing Orders
table twhinh220 |* Outbound Order Lines
table twhinh225 |* Outbound Advice
table twhinh226 |* Outbound Advice Lots and Serials
table twhinh228 |* Outbound Advice Ownership
table twhinh400 |* Runs
table twhinh403 |* Sort Options for Picking/Storage List
table twhinr140 |* Inventory
table twhltc100 |* Lots
table twhwmd200 |* Warehouses
table twhwmd210 |* Warehouse - Item Data
table twhwmd300 |* Locations
table twhwmd440 |* Package Definition Levels by Item
table twhwmd450 |* Assembly Kit
table twhinh600
table tticst001
table ttisfc001 |#ZAN198001.sn
table ttisfc010
table ttirou102
table ttialt002
table ttirou000 |#ZAN198001.en
table ttcalt001 |#ZAN198002.n
long i
long ret
| long report.number |#1604225.o
string g.sql.spec.selection(1) based
boolean report.printed
boolean reports.opened
boolean update.executed
boolean print.only.automatic
domain tcmcs.st20m current.report
extern domain tcmcs.long device_id
domain tcdvsl device.selection
domain tcmcs.str15 default.device
domain tcmcs.str15 initial.device
domain tcsrno number.of.copies
extern boolean r.print.lots
extern boolean r.print.serials
extern boolean r.print.owner
extern boolean r.print.project
extern boolean r.first.lot
extern boolean r.first.serial
extern boolean r.first.owner
extern boolean r.last.owner
extern boolean r.distr
extern boolean r.serial.distr
extern boolean r.owner.distr
extern boolean r.advice.to.loc
extern boolean add.info.header
extern boolean add.info.line
extern domain whinh.btno runn fixed
extern domain whinh.oorg oorg.f
extern domain whinh.oorg oorg.t
extern domain tcorno orno.f fixed
extern domain tcorno orno.t fixed
extern domain tcwset oset.f
extern domain tcwset oset.t
extern domain tcpdno grid.f fixed
extern domain tcpdno grid.t fixed
extern domain tcpono pono.f
extern domain tcpono pono.t
extern domain tcpono seqn.f
extern domain tcpono seqn.t
extern domain tcitem item.f fixed
extern domain tcitem item.t fixed
extern domain tcrefs refs.f fixed
extern domain tcrefs refs.t fixed
extern domain tccorn corn.f fixed
extern domain tccorn corn.t fixed
extern domain whhuid huid.f fixed
extern domain whhuid huid.t fixed
extern domain tccwar cwar.f fixed
extern domain tccwar cwar.t fixed
extern domain whloca loca.f fixed
extern domain whloca loca.t fixed
extern domain whwmd.zone zone.f fixed
extern domain whwmd.zone zone.t fixed
extern domain whwmd.strt strt.f fixed
extern domain whwmd.strt strt.t fixed
extern domain whwmd.coln coln.f fixed
extern domain whwmd.coln coln.t fixed
extern domain whwmd.rack rack.f fixed
extern domain whwmd.rack rack.t fixed
extern domain tcdate dldt.f
extern domain tcdate dldt.t
extern domain whinh.picm picm.f
extern domain whinh.picm picm.t
extern domain whinh.lino pseq.f
extern domain whinh.lino pseq.t
extern domain whinh.load load.f
extern domain whinh.load load.t
extern domain whinh.shpm shpm.f
extern domain whinh.shpm shpm.t
extern domain tcmcs.str215 order.str
extern domain whwmd.zone loca.f.zone fixed
extern domain whwmd.zone loca.t.zone fixed
extern domain whwmd.strt loca.t.strt fixed
extern domain whwmd.coln loca.t.coln fixed
extern domain whwmd.rack loca.t.rack fixed
extern domain tcdesc loc.fr.remark
extern domain tcdesc loc.to.remark
extern domain tcdesc inv.fr.remark
extern domain tcdesc inv.to.remark
extern domain tcmcs.str132m cancel.remark
extern domain tcdsca revision.dsca
extern domain tcedm.revi revision
extern domain tcmcs.st20m acti.pr.pick.list
extern domain tcmcs.st35m stco.dsca
extern domain tcyesno print.actual.inv
extern domain tctxtn item.txtn
extern domain tctxtn print.txtn
extern domain whinh.spla report.action
extern domain tcdate planned.unload.dt
extern domain tcyesno r.comp.owned.inv
extern domain tcowns r.ownership
extern domain tccom.bpid r.owner
extern domain tcnama r.bp.name
extern domain tcqiv1 r.quantity
extern domain tccopy picking.list.copy |* copies
extern domain whhuid r.parent.hu
extern domain tcqiv1 r.parent.pack.qty
extern domain tcitem r.parent.pack.itm
extern domain tcdsca r.kit.item.dsca
extern domain tcyesno r.new.page |#1635106.n
extern domain tcdsca main.item.so.dsca
extern domain tcmcs.st15 arr.new.picm(10)
extern domain tcmcs.st15 r.order.and.set |#1633079.n
extern domain tcyesno i.odp.advice |#ZAN198001.sn
extern domain tcyesno no.cdor
extern domain tcyesno no.shrt
extern domain tcyesno no.pics
domain tcmcs.long brp.id
domain tcmcs.long main.query.exec |#ZAN198001.en
extern domain tcyesno print.cdor |#MC.20160608.sn
extern domain tcyesno print.shrt
extern domain tcyesno print.pics
domain whinh.picm old.picm
domain whinh.btno old.runn
|Report variables
extern domain tcmcs.long r.lay
extern domain tcdsca r.item.dsca
extern domain tccwar r.220.cwar
extern domain tcorno r.220.orno
extern domain tcpono r.220.pono
extern domain tcitem r.220.item
extern domain tcqiv1 r.220.qord
extern domain tcqiv1 r.220.qadv
extern domain tcdate r.220.prdt
extern domain whinh.oorg r.220.oorg
extern domain tcpono r.220.seqn
extern domain tcmcs.str100 item.loca |#MC.20170523.n
|#MC.20160608.en
#define PICKING.LIST.TABLES(FOR_UPDATE, HEADER)
^ "whinh225 " & FOR_UPDATE & ", " &
^ "whinh220, " & HEADER &
^ "whwmd210, " &
^ "whwmd300, " &
^ "whwmd300 whwmd300_2, " &
^ "whwmd130 whwmd130_1, " &
^ "whwmd130 whwmd130_2, " &
^ "whwmd530 "
#define INCREASE.PICM 1
#define INCREASE.SSEQ 5
#define COMMIT.RATE 100
#define MAX.LENGTH 10
#define MAX.SORT.FIELDS 10
#include <bic_text> |* Text
#include <bic_dam> |* Progress Indicator
#include "itcmcs2000" |* DAL(-GUI) Support Defines
#include "itcstl0005"
#include "iwhinh0000" |* General Warehousing Functions and Defines
#include "iwhinh0001" |* Print Storage Conditions Report Variables
#include "iwhinh2800" |* Defines and functions for Specific Order
|* Selection
#include "iwhinh4000" |* Defines for Outbound Advice and Shipments
#include "iwhwmd5000" |* Handling Unit defines
|
12th August 2018, 17:44
|
 |
Guru
|
|
Join Date: Sep 2001
Location: Kentucky, USA
Posts: 7,819
|
|
|
Baan: Baan 4C4 A&D1 -
DB: Oracle -
OS: Sun Solaris
|
|
Not sure what you mean by it is the non-compiled script? If you own source code and and can put it in debug mode not sure I get that message. Do you have 2 scripts or versions?
__________________
Mark
GO Cards!
My latest mantra - make sure you have latest stpapi patches and the latest session object. If on LN then please explore the option of using DAL2 functionality.
Shared Solutions for Baan systems provided free by Baan Board.
Play the Google game and help Baanboard get better rankings. Do your part. Click here to find how.
|
14th August 2018, 12:20
|
|
Member
|
|
Join Date: Oct 2017
Posts: 60
|
|
|
Baan: Baan IV -
DB: Onpen Sql -
OS: Windows 10
|
|
I mean that when i compile my script, it give me the message with the "i" not expected error, but it seems that it was locked and it is still running in debug when i run the session, with the warning that it is reading an older version of the script...
|
14th August 2018, 14:56
|
|
Guru
|
|
Join Date: Sep 2001
Location: Kentucky, USA
Posts: 7,819
|
|
|
Baan: Baan 4C4 A&D1 -
DB: Oracle -
OS: Sun Solaris
|
|
Check the line that is referring to and make nothing is out of line with the variable i on that line. I have not seen that warning about older version of script on 4c4.
__________________
Mark
GO Cards!
My latest mantra - make sure you have latest stpapi patches and the latest session object. If on LN then please explore the option of using DAL2 functionality.
Shared Solutions for Baan systems provided free by Baan Board.
Play the Google game and help Baanboard get better rankings. Do your part. Click here to find how.
|
|
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
|
|
|
| Thread Tools |
|
|
| Display Modes |
 Hybrid 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
|
|
|
|
Baanboard is shutting down on 31-dec-2023. See: 
