Baanboard.com

Go Back   Baanboard.com > Forum > Baan Quick Support: Functional & Technical > Manufacturing & Supply Chain

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 24th February 2011, 16:52
quelle's Avatar
quelle quelle is offline
Senior Member
 
Join Date: Oct 2008
Location: Thailand
Posts: 193
quelle is on a distinguished road
Baan: ERP LN 6.1 - DB: x - OS: x
To use Print Material Shortage
Baan: ERP LN 6.1 FP6

Hi all

What is the best way to use Print Material Shortage session?
eg :
The inventory for material is 30, then 3 Production Orders need this material , each production order required 25 which has different start date just different time.

If I Print Material Shortage for just 1 Production Order it will said no Shortage.

So is this the best way to run this session for all production order which will be start in same date ?
Because thats not possible to print it for each production order.
__________________
Regards,
Quelle
Reply With Quote
  #2  
Old 4th March 2011, 12:25
joemon joemon is offline
Member
 
Join Date: Jul 2005
Location: Kerala
Posts: 30
joemon is on a distinguished road
Baan: Baan 4c4 & ERP LN - DB: Oracle & SQL - OS: Windows
Hi quelle,

Thorugh Stdndard, you can do one thing , for the Specific item hard allocate to the inventory for the specific Production . then system show you the actual shortage.


Thanks & Regards

Joemon VJ
Reply With Quote
  #3  
Old 26th September 2015, 10:13
Aryaraj Aryaraj is offline
Member
 
Join Date: Oct 2013
Posts: 39
Aryaraj is on a distinguished road
Baan: LNFP7 - DB: MSSQL - OS: WindowsXP
Materia shortage

Dear Sir,

In FP7 if row material is not available still system allows to complete the operation. Is there any way to resolve this issue?

Regards
Aarya
Reply With Quote
  #4  
Old 28th September 2015, 07:47
erplncons erplncons is offline
Member
 
Join Date: Oct 2008
Posts: 88
erplncons is on a distinguished road
Baan: All - DB: All - OS: All
That is a flexibility in the system. It would allow you to complete the order, but not allow you to close it unless all the material is issued.
Reply With Quote
  #5  
Old 28th September 2015, 09:33
Aryaraj Aryaraj is offline
Member
 
Join Date: Oct 2013
Posts: 39
Aryaraj is on a distinguished road
Baan: LNFP7 - DB: MSSQL - OS: WindowsXP
Dear Sir,

If we want that system should not allow for report operation completed still the row material is not issued then how to do it?

Regards
Aarya
Reply With Quote
  #6  
Old 28th September 2015, 20:21
baan1612's Avatar
baan1612 baan1612 is offline
Senior Member
 
Join Date: May 2007
Location: USA
Posts: 121
baan1612 is on a distinguished road
Baan: Triton, baan 4c4, Baan V, ERPLN 6.1 FP2, FP3, FP6, FP7 and FP9 - DB: oracle - OS: windows 2000
Smile Restricting completion of Operation

As per standard, this is the flexibility. If you want to restrict the operation not to complete without issuing the material, you need to build a small code in "tisfc010ue". you can build your own logic to check the material issue i.e. material should be issued completely or pro-rate etc...

let me know if you need any help on this. I did this for some customers.

Regards,
Gupta.
__________________
Regards,
Gupta


Have faith !
Reply With Quote
Sponsored Links
  #7  
Old 29th September 2015, 13:10
Aryaraj Aryaraj is offline
Member
 
Join Date: Oct 2013
Posts: 39
Aryaraj is on a distinguished road
Baan: LNFP7 - DB: MSSQL - OS: WindowsXP
Dear Sir,

Do mean this can be done by user exit?

Regards
Aarya
Reply With Quote
  #8  
Old 30th September 2015, 04:00
baan1612's Avatar
baan1612 baan1612 is offline
Senior Member
 
Join Date: May 2007
Location: USA
Posts: 121
baan1612 is on a distinguished road
Baan: Triton, baan 4c4, Baan V, ERPLN 6.1 FP2, FP3, FP6, FP7 and FP9 - DB: oracle - OS: windows 2000
Yes it can be done with user exit
__________________
Regards,
Gupta


Have faith !
Reply With Quote
  #9  
Old 22nd February 2017, 14:38
Aryaraj Aryaraj is offline
Member
 
Join Date: Oct 2013
Posts: 39
Aryaraj is on a distinguished road
Baan: LNFP7 - DB: MSSQL - OS: WindowsXP
User exit defined but not working

Dear Sir as per your suggestion I have developed the user exit . It is working fine for complete material but not working for partial material. For example My production order is for 100 Nos which required 100 qty of BOM item. If 100 RM is not available then system gives error . But our requirement is system should allow to release order for 100 qty. But if I have RM for 10 qty then system should allow to confirm the operation for 10 qty but for next 90 qty system should give an error message. Can you please help me on this. Please refer my script. given below.
******************************************************************************
|* tisfc010ue 0 VRC B61C a cust
|*
|* baan
|* 17-12-15 [18:15]
|******************************************************************************
|* Script Type: Library
|******************************************************************************
#ident "@(#)tisfc010ue tiB61Cacust fp9 Rev.No. 2 17 Dec 15 baan"
table ttisfc010
table ttcibd001
table tbptmm120
table twhwmd215
table tticst001

string header(10000),line(10000),filename(200),filepath(200),path1(200),file.open.mess1(200)
string header1(10000),line1(10000),filename1(200),filepath1(200),path2(200),file.open.mess2(200),detail.var(10000)
long seq.id,ret
long seq.id1,ret1
extern domain tcbool issued.flag,hours.flag,hrs.req
extern domain tisfc.prtm max.hrs,min.hrs,short.hrs
extern domain tiqcp1 actqty

#include <bic_dal>
#pragma used dll ottdllbw
#include <bic_dal>


function extern long ue.before.before.save.object(long mode)
{
on case mode
case DAL_NEW:
break
case DAL_UPDATE:
create.file()

issued.flag = FALSE
select ticst001.*
from ticst001
where ticst001._index2 = {:tisfc010.pdno,:tisfc010.opno}
selectdo
| if ticst001.ques <> ticst001.qucs then
| issued.flag = TRUE
get.item.desc()
get.on.hand.qty()

|if ticst001.ques <> actqty then
|if ticst001.ques > whwmd215.qhnd and ticst001.qucs <=0 then |Meghna 18/12/2016
if ticst001.iswh <1 then
issued.flag = TRUE
|endif
endif
line = concat$("|",ticst001.pono,ticst001.sitm,tcibd001.dsca,abs(ticst001.ques-ticst001.qucs),whwmd215.qhnd,ticst001.cwar)
seq.puts(line,seq.id)
| endif
endselect

| hours.flag = FALSE
| select bptmm120.*
| from bptmm120
| where bptmm120._index5 = {:tisfc010.pdno,:tisfc010.opno}
| selectdo
| cal.short.hrs()
| if (bptmm120.hrea <> 0 or bptmm120.hrma <> 0) and bptmm120.proc = tcyesno.no then
| hours.flag = TRUE
| endif
| endselect
| if hours.flag or hrs.req then
| short.hrs = abs(tisfc010.maho - bptmm120.hrea)
| line1 = concat$("|",tisfc010.opno,bptmm120.tano,bptmm120.cwoc,bptmm120.mcno,short.hrs)
| seq.puts(line1,seq.id1)
| endif

if issued.flag then
dal.set.error.message("tigenstring", "Material Not Issued, Report Operations Cannot be Completed")
endif
| if hours.flag then
| dal.set.error.message("tigenstring", "Hours Not Processed, Report Operations Cannot be Completed")
| endif
| if hrs.req then
| dal.set.error.message("tigenstring", "Required Hours do not Match")
| endif
| if issued.flag or hours.flag or hrs.req then
| return(DALHOOKERROR)
| endif
if issued.flag then
return(DALHOOKERROR)
endif
close.file()
break
endcase
return(0)
}

function extern long ue.after.before.save.object(long mode)
{
on case mode
case DAL_NEW:
break
case DAL_UPDATE:
break
endcase
return(0)
}

function extern long ue.before.after.save.object(long mode)
{
on case mode
case DAL_NEW:
break
case DAL_UPDATE:
break
endcase
return(0)
}

function extern long ue.after.after.save.object(long mode)
{
on case mode
case DAL_NEW:
break
case DAL_UPDATE:
break
endcase
return(0)
}

function extern long ue.before.before.destroy.object()
{
return(0)
}

function extern long ue.after.before.destroy.object()
{
return(0)
}

function extern long ue.before.after.destroy.object()
{
return(0)
}

function extern long ue.after.after.destroy.object()
{
return(0)
}

function create.file()
{
filename = "Material_Not Issued_"&dte$()&".xls"
filename1 = "Hours_Not_Accounted_"&dte$()&".xls"
filepath = "E:\"&filename
filepath1 = "E:\"&filename1
seq.id = seq.open(filepath,"w")
seq.id1 = seq.open(filepath1,"w")

header = concat$("|","Position No","Item","Description","Shortage Qty","On Hand Qty","Warehouse")
seq.puts(header,seq.id)
header1 = concat$("|","Operation No","Task","Work Center","Machine","Short Hours")
seq.puts(header1,seq.id1)
}

function close.file()
{
seq.close(seq.id)
seq.close(seq.id1)

if issued.flag or hours.flag or hrs.req then
if issued.flag then

path1 = "C:\temp\"&filename
exec_dll_function( "ottdllbw" , "server2client" , ret, filepath, path1, 0 )
endif
if hours.flag or hrs.req then

path2 = "C:\temp\"&filename1
exec_dll_function( "ottdllbw" , "server2client" , ret1, filepath1, path2, 0 )
endif
endif
if issued.flag then
app_start(path1, "", "", "", "")
endif
if hours.flag or hrs.req then
app_start(path2, "", "","", "")
endif
}

function get.item.desc()
{
select tcibd001.*
from tcibd001
where tcibd001._index1 = {:ticst001.sitm}
selectdo
endselect
}


function get.on.hand.qty()
{
select whwmd215.*
from whwmd215
where whwmd215._index2 = {:ticst001.sitm,:ticst001.cwar}
selectdo
endselect
}

function cal.short.hrs()
{
max.hrs = 0
min.hrs = 0
short.hrs = 0
hrs.req = FALSE
max.hrs = tisfc010.prtm + (5*tisfc010.prtm/100)
min.hrs = tisfc010.prtm - (5*tisfc010.prtm/100)
if (bptmm120.hrea < min.hrs or bptmm120.hrea > max.hrs) then
hrs.req = TRUE
endif

}
Reply With Quote
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
3GL ASCII-Menu System for ERP-LN AndreasSchmitt Tools Development 7 5th June 2008 13:07
Material Shortage list for multiple products srkallam Tools Development 3 28th August 2007 09:42
How to Print Out report as same as Print Display Screen (Windows 2k Ad Server) nopadon Tools Administration & Installation 1 9th November 2003 15:31


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


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