void Books.Create_Sales_Order_in_Books(int soid)
{
//Getting authtoken and organisation id
books_access = thisapp.Books.Get_Books_Access();
conn_tok = books_access.get("connection");
org_id = books_access.get("organisation_id");
//info auth_tok;
//info org_id;
//------------------------------------------------------------------------------
fetch_so = Sales_Order[ID == input.soid];
//info fetch_so;
fetch_cust = Customers[ID == fetch_so.Customer_Name];
//info ("fetchcust" + fetch_cust) + " " + fetch_cust.Customer_Books_ID;
fetch_delivery_method = Shipping_Mode[ID == fetch_so.Delivery_Mode].Shipping_Mode;
fetch_warehouse = Warehouse[ID = fetch_so.Warehouse].Warehouse_Name;
fettax = GST_Details[ID == fetch_so.Item_Details.Tax];
fetemp = Employee_Details[ID == fetch_so.Created_By].Employee_Name;
fetch_payment_trms = Payment_Terms[ID == fetch_so.Payment_Terms].Stages;
shipment_date = fetch_so.Expected_Shipment_Date.toString("yyyy-MM-dd");
so_date = zoho.currentdate.toString("yyyy-MM-dd");
curr_code = Currency_Code[ID == fetch_cust.Currency_Code];
curr_conv = Currency_Conversion[Convert_To == fetch_cust.Currency_Code];
plc_of_supply = Destination[Destination == fetch_so.Place_of_Supply.Destination].Short_Name;
fet_gst_trmt = GST_Treatment[ID == fetch_cust.GST_Treatment];
mymap = Map();
mymap.put("customer_id",fetch_cust.Customer_Books_ID);
mymap.put("customer_name",fetch_cust.Contact_Name);
mymap.put("date",so_date);
//mymap.put("billing_address",fetch_so.Billing_Address);
//mymap.put("shipping_address",fetch_so.Shipping_Address);
mymap.put("shipment_date",shipment_date);
mymap.put("delivery_method",fetch_delivery_method);
mymap.put("place_of_supply",plc_of_supply);
mymap.put("gst_treatment",fet_gst_trmt.Link_name);
mymap.put("salesorder_number",fetch_so.Sale_Order_No);
mymap.put("salesperson_name",fetemp);
mymap.put("currency_id",curr_code.Zoho_Books_ID);
mymap.put("exchange_rate",curr_conv.Exchange_Rate);
mymap.put("status","Open");
url_to_so = "https://creatorapp.zoho.in/carrierwheels/erp/#Page:SO_Print?ID=" + soid;
custom_list = List();
custom_map = Map();
custom_map.put("api_name","cf_download_so_from_erp");
custom_map.put("value",url_to_so);
custom_list.add(custom_map);
mymap.put("custom_fields",custom_list);
item_list = List();
tx_val = 0;
totalqty = 0;
for each rec in fetch_so.Item_Details
{
fetchitem = Materials[ID == rec.Part_Description];
line_item_map = Map();
line_item_map.put("name",rec.Part_Description.Part_Description);
line_item_map.put("item_id",fetchitem.Zoho_Books_ID);
// line_item_map.put("description",rec.Part_Description.Additional_Description);
line_item_map.put("quantity",rec.Qty);
totalqty = ifnull(totalqty,0.00) + ifnull(rec.Qty,0.00);
line_item_map.put("rate",rec.Rate);
line_item_map.put("warehouse_name",fetch_warehouse);
//line_item_map.put("tax_type",fettax.Tax_Details.Tax_Type);
line_item_map.put("tax_name",fettax.Tax_Name);
line_item_map.put("tax_id",fettax.Zoho_Books_ID);
line_item_map.put("tax_percentage",fettax.Total_Rate);
item_list.add(line_item_map);
tx_val = ifnull(tx_val,0.0) + ifnull(rec.Tax_Value,0.0);
}
if(fetch_so.Packing_Forwarding > 0)
{
fetchitem = Materials[Part_No == "900114"];
line_item_map = Map();
line_item_map.put("name",fetchitem.Part_Description);
line_item_map.put("item_id",fetchitem.Zoho_Books_ID);
//line_item_map.put("quantity",1);
line_item_map.put("rate",fetch_so.Packing_Forwarding);
line_item_map.put("warehouse_name",fetch_warehouse);
line_item_map.put("tax_name",fettax.Tax_Name);
line_item_map.put("tax_id",fettax.Zoho_Books_ID);
line_item_map.put("tax_percentage",fettax.Total_Rate);
item_list.add(line_item_map);
tx_val = ifnull(tx_val,0.0) + ifnull(fetch_so.PF_Tax_value,0.0);
}
mymap.put("tax_total",tx_val);
mymap.put("line_items",item_list);
post_url = zoho.books.createRecord("salesorders",org_id,mymap,conn_tok);
info post_url;
res_code = post_url.get("code").toLong();
resp_Map = Map();
log_type = "Failure";
if(res_code == 0)
{
log_type = "Success";
books_id = post_url.toMap().get("salesorder").toMap().get("salesorder_id");
fetch_so.Zoho_Books_ID=books_id;
test_map = Map();
mark_response = invokeurl
[
url :"https://www.zohoapis.in/books/v3/salesorders/" + books_id + "/status/open?organization_id=" + org_id + ""
type :POST
parameters:test_map
connection:"books_con"
];
}
if(res_code == 0)
{
getzbook = zoho.books.getRecordsByID("salesorders",org_id,books_id);
get_line_item = getzbook.toMap().get("salesorder").toMap().get("line_items");
for each lineitem in get_line_item
{
lineitemid = lineitem.getjson("line_item_id");
itemid = lineitem.getjson("item_id");
fetso = Sales_Order[Zoho_Books_ID == books_id];
fetsosf = Sale_Order_Subform[Sales_Order_Exis_ID == fetso.ID];
getmat = Materials[Zoho_Books_ID == itemid];
for each sosfrec in fetsosf
{
if(sosfrec.Part_No == getmat.ID)
{
sosfrec.zb_line_item_id=lineitemid;
fetso.pack_forw_lineitemid=lineitemid;
}
}
}
}
ins_log = insert into Log_Files
[
Added_User=zoho.loginuser
Log_Type=log_type
Module_Name="Books"
Form_Name="Sales Order"
Log_Details=post_url
Reference_NO=fetch_so.Sale_Order_No
];
//sending error log message
if(log_type == "Failure")
{
resp_Map.put("Resp","Failure");
resp_Map.put("log_msg",post_url.get("message"));
}
//status to changed
updtstatus = zoho.books.markStatus("salesorders",org_id,books_id,"open",conn_tok);
}
for each rec in Calibration_Master[ID != null && Cal_Due_Date != null]
{
if(rec.Today != zoho.currentdate)
{
rec.Today=zoho.currentdate;
//info rec.Today;
info rec.Cal_Due_Date;
daysleft = daysBetween(rec.Today,rec.Cal_Due_Date);
rec.Days_Left=daysleft;
info daysleft;
if(rec.Days_Left.toNumber() <= 30 && rec.Days_Left.toNumber() > 0)
{
rec.Status1="Attention";
}
else if(rec.Days_Left.toNumber() > 30)
{
rec.Status1="No Issue";
}
else if(rec.Days_Left.toNumber() <= 0)
{
rec.Status1="Urgent";
}
}
}
for each rec in Calibration_Master[ID != null]
{
calhist = Calibration_History[Calibration_Master_ID == rec.ID];
if(calhist.Cal_Due_Date < zoho.currentdate && calhist.Status != "Completed")
{
calhist.Status="Overdue";
}
if(calhist.Cal_Due_Date >= zoho.currentdate && calhist.Status != "Completed")
{
calhist.Status="Due";
}
if(rec.Cal_Due_Date < zoho.currentdate)
{
rec.Status="Overdue";
}
if(rec.Cal_Due_Date >= zoho.currentdate)
{
rec.Status="Due";
}
}
getemail = Email_Template[Template_No == 9];
sub = getemail.Subject_field;
body = getemail.Body;
tab = "<html><style>th,td {padding: 5px;}</style><table border = 1> <th> S.No. </th> <th>Part No.</th> <th>Part Name <th>Minimum Quantity</th> <th>Available Quantity</th>";
count = 0;
for each var in Materials[Material_Item_Type.Material_Type == "General Purchase" && Planning_Procedure == "Consumption-Based Planning"]
{
stock = Stock_Value[Part_No == var.ID].sum(Stock_Qty);
if(var.Minimum_Stock != null)
{
if(var.Minimum_Stock >= stock)
{
count = count + 1;
tab = tab + "<tr><td>" + count + "</td>";
tab = tab + "<td>" + var.Part_No + "</td>";
tab = tab + "<td>" + var.Part_Description + "</td>";
tab = tab + "<td>" + var.Minimum_Stock + "</td>";
tab = tab + "<td>" + stock + "</td></tr>";
}
}
}
if(count > 1)
{
info "test";
tab = tab + "</table></html>";
body = body.replaceAll("{table}",tab,true);
sub = sub.replaceAll("<partno>",var.Part_No,true);
sendmail
[
from :"CWPL ERP <erp@carrierwheels.com>"
to :"pooja.s@synprosoft.com"
subject :sub
message :body
]
}
alllist = List();
alllist = {"png","PNG","JPEG","jpeg","JPG","jpg","GIF","gif","BMP","bmp"};
var = "";
if(input.Attachment != null)
{
ext = input.Attachment.toList(".").get(input.Attachment.toList(".").size() - 1);
}
rpl = replaceAll(ext," border = \"0\"></img>","");
var = rpl.replaceAll("\"","");
if(!alllist.contains(var) && var != "")
{
alert "This file type is not accepted. Only PNG,JPG,JPEG,BMP file formats are allowed";
cancel submit;
}
i = 0;
for each rec in input.Item_Details1
{
i = i + 1;
rec.S_No=i;
}
itmname = "";
des = "";
for each sub in input.Item_Details1
{
if(sub.S_No == 1)
{
itmname = sub.Item_Name;
des = sub.Description;
}
}
if(itmname != null)
{
for each sub1 in input.Item_Details1
{
if(sub1.S_No > 1)
{
sub1.Item_Name=itmname;
sub1.Description=des;
}
}
}
// itm = List();
// for each var in input.Item_Details1
// {
// fetcal = Calibration_Master[Item_Name == var.Item_Name.Item_Name].ID.getAll();
// itm.add(fetcal);
// itm = itm.distinct();
// var.Item_Name:ui.add(itm);
// }
alllist = List();
alllist = {"png","PNG","JPEG","jpeg","JPG","jpg","GIF","gif","BMP","bmp"};
var = "";
if(input.Attachment != null)
{
ext = input.Attachment.toList(".").get(input.Attachment.toList(".").size() - 1);
}
rpl = replaceAll(ext," border = \"0\"></img>","");
var = rpl.replaceAll("\"","");
if(!alllist.contains(var) && var != "")
{
alert "This file type is not accepted. Only PNG,JPG,JPEG,BMP file formats are allowed";
}
if(input.Calibration_Master_ID != null)
{
fetcal = Calibration_Master[ID == input.Calibration_Master_ID];
input.Item_Name = fetcal.ID;
input.Gauge_No = fetcal.ID;
input.Description_Make = fetcal.Description_Make;
input.Location = fetcal.Location;
input.Range = fetcal.ID;
input.Least_Count = fetcal.ID;
input.Permissable_Error = fetcal.Permissable_Error;
input.Usable_Range = fetcal.ID;
input.Internal_External = fetcal.Internal_External;
input.Calibration_Type = fetcal.Internal_External;
input.Closed_Date = zoho.currentdate;
input.Cal_Done_Date = zoho.currentdate;
input.Cal_Due_Date = fetcal.Cal_Due_Date;
input.Master_Instrument = fetcal.Master_Instruments;
input.Checked_By = ifnull(Employee_Details[Employee_Email == "kapilsaini7890ks@gmail.com"].ID,"");
input.Verification_By = ifnull(Employee_Details[Employee_Email = "manishchaudhary@carrierwheels.com"].ID,"");
input.Approved_By = ifnull(Employee_Details[Employee_Email = "barkha@carrierwheels.com"].ID,"");
input.Calibration_By = ifnull(Employee_Details[Employee_Email == zoho.loginuserid].ID,"");
if(input.Internal_External == "Both")
{
enable Calibration_Type;
}
else
{
disable Calibration_Type;
}
}
//Hide/Disable
//disable Calibration_Type ;
hide Checked_By;
disable Internal_External;
hide Vendor_Name;
hide Vendor_Address;
hide Calibration_Done;
hide Closed_Date;
disable Item_Details1.S_No;
//disable Calibration_By;
disable Permissable_Error;
disable Usable_Range;
disable Least_Count;
//disable Internal_External;
disable Cal_Due_Date;
disable Item_Name;
disable Gauge_No;
disable Description_Make;
disable Location;
disable Range;
disable Master_Instrument;
//disable Master_Instrument;
disable Vendor_Address;
hide Shipping_Cost;
hide Calibration_Master_ID;
hide Status;
hide Transportation_Details;
hide Vehicle_Photo;
hide Transport_Name;
hide Transporter_Name;
hide Driver_Name;
hide Driver_Mobile;
hide Driver_License_No;
hide Vehicle_Type;
hide Vehicle_No_dup;
hide Vehicle_RC_No;
hide Vehicle_No;
hide GR_RR_No;
hide Calibration_No;
//disable Calibration_Type;
//disable Closed_By;
hide Calibration_History_ID;
hide Approval;
//hide Verification_By;
hide Approved_By;
if(input.Start_Date != null && input.Frequency != null)
{
mon = input.Frequency;
input.Cal_Due_Date = input.Start_Date.addDay(mon);
input.Cal_Due_Date = input.Cal_Due_Date.subDay(1);
startDate = input.Cal_Due_Date;
endDate = input.Today.subDay(1);
input.Days_Left = daysBetween(endDate,startDate);
}
if(input.Start_Date != null && input.Frequency != null)
{
mon = input.Frequency;
input.Cal_Due_Date = input.Start_Date.addDay(mon);
input.Cal_Due_Date = input.Cal_Due_Date.subDay(1);
startDate = input.Cal_Due_Date;
endDate = input.Today.subDay(1);
input.Days_Left = daysBetween(endDate,startDate);
}
rec = 0;
if(isBlank(input.Cal_Master_No.trim()))
{
rec = 1;
str1 = thisapp.Common.Number_Function_New("Cal Master No");
input.Cal_Master_No = str1;
}
if(input.Calibration_Master_ID == null)
{
info "if";
input.Obsolete_Status = "Active";
var = 0;
if(isBlank(input.Gauge_No.trim()))
{
var = 1;
str = thisapp.Common.Number_Function_New("Gauge No");
input.Gauge_No = str;
openUrl("#Form:Alert_Messages?Status=" + "cal" + "&Value=" + input.Gauge_No + "&zc_LoadIn=dialog","same window");
}
}
if(input.Calibration_Master_ID != null && Revision_Status == "Yes")
{
fetcal = Calibration_Master[ID == input.ID];
fetcal.Obsolete_Status="Inactive";
fetcal.Approval="Pending for Approval";
openUrl("#Report:All_Calibration_Masters","same window");
}
thisapp.Calibration.CalibrationHistory(input.ID);
// GIN num generation
try
{
input.Status = "Open";
for each rec in input.Item_Details
{
rec.Status=input.Status;
}
var = 0;
if(input.GIN_Number.trim().len() < 1)
{
var = 1;
str = thisapp.Common.Number_Function_New("Goods Issued Note");
input.GIN_Number = str;
}
//as per the advice from Mr.senthil dt 05/1/2024 in stock values form reduce the stockqty based on FIFO method(added time)
for each itdrec in input.Item_Details
{
getstkvalue = Stock_Value[Part_No == itdrec.Part_No && Stock_Qty > 0] sort by Added_Time asc;
if(getstkvalue.count() > 0)
{
svbalqty = 0;
svi = 1;
for each stokvalrec in getstkvalue
{
//Issued Quantiy is less total qty
if(itdrec.Issued_Quantity <= stokvalrec.Stock_Qty && svi == 1)
{
stokvalrec.Stock_Qty=ifnull(itdrec.Qty_after_Issued,0.0);
stokvalrec.Stock_Value=ifnull(itdrec.Rate,0.0) * ifnull(itdrec.Qty_after_Issued,0.0);
stokvalrec.Inventory_Qty=ifnull(itdrec.Qty_after_Issued,0.0);
}
//Issued Quantity is more total qty
else if(itdrec.Issued_Quantity > stokvalrec.Stock_Qty && svi == 1)
{
svbalqty = ifnull(itdrec.Issued_Quantity,0.0) - ifnull(stokvalrec.Stock_Qty,0.0);
stokvalrec.Stock_Qty=0;
stokvalrec.Stock_Value=0;
stokvalrec.Inventory_Qty=0;
}
//for first time it should not get inside the loop
if(svbalqty > 0 && svi > 1)
{
//Balance Qty is less
if(svbalqty <= stokvalrec.Stock_Qty)
{
stokvalrec.Stock_Qty=ifnull(stokvalrec.Stock_Qty,0.0) - ifnull(svbalqty,0.0);
stokvalrec.Stock_Value=ifnull(stokvalrec.Unit_Price,0.0) * ifnull(stokvalrec.Stock_Qty,0.0);
stokvalrec.Inventory_Qty=ifnull(stokvalrec.Inventory_Qty,0.0) - ifnull(svbalqty,0.0);
svbalqty = 0;
}
//Balance Qty is More
else if(svbalqty >= stokvalrec.Stock_Qty)
{
svbalqty = ifnull(svbalqty,0.0) - ifnull(stokvalrec.Stock_Qty,0.0);
stokvalrec.Stock_Qty=0;
stokvalrec.Stock_Value=0;
stokvalrec.Inventory_Qty=0;
}
}
if(svbalqty == 0)
{
info "before break";
break;
}
svi = svi + 1;
}
}
else if(getstkvalue.count() == 0)
{
insert into Stock_Value
[
Added_User=zoho.loginuser
Part_No=itdrec.Part_No
Part_Description=itdrec.Part_Description
Specification=itdrec.Specification
Stock_Qty=ifnull(itdrec.Qty_after_Issued,0.0)
Unit_Price=ifnull(itdrec.Rate,0.00)
Stock_Value=ifnull(itdrec.Rate,0.00) * ifnull(itdrec.Qty_after_Issued,0.00)
Inventory_Qty=ifnull(itdrec.Qty_after_Issued,0.0)
]
}
}
// //insert the part no if not available in stock value form.the below comment and new code is above on 5/1/2024
/*for each stkvalrec in input.Item_Details
{
getinvent = Inventory[Part_No == stkvalrec.Part_No && Total_Qty > 0];
if(getinvent.count() > 0)
{
fet_stockvalue = Stock_Value[Part_No == stkvalrec.Part_No && Unit_Price == stkvalrec.Rate];
if(fet_stockvalue.count() == 0)
{
insert into Stock_Value
[
Added_User=zoho.loginuser
Part_No=stkvalrec.Part_No
Part_Description=stkvalrec.Part_Description
Specification=stkvalrec.Specification
Location_Name=getinvent.Location_Name
Sub_Location=getinvent.Sub_Location
Rack_Number=getinvent.Rack_Number
Warehouse=getinvent.Warehouse
Stock_Qty=ifnull(stkvalrec.Qty_after_Issued,0.0)
Unit_Price=ifnull(stkvalrec.Rate,0.00)
Stock_Value=ifnull(stkvalrec.Rate,0.00) * ifnull(stkvalrec.Qty_after_Issued,0.00)
Inventory_Qty=ifnull(stkvalrec.Qty_after_Issued,0.0)
]
}
else if(fet_stockvalue.count() > 0)
{
fet_stockvalue = Stock_Value[Part_No == stkvalrec.Part_No && Unit_Price == stkvalrec.Rate];
if(fet_stockvalue.Stock_Qty > 0)
{
fet_stockvalue.Stock_Qty=ifnull(fet_stockvalue.Stock_Qty,0.0) - ifnull(stkvalrec.Issued_Quantity,0.0);
fet_stockvalue.Stock_Value=ifnull(stkvalrec.Rate,0.0) * ifnull(fet_stockvalue.Stock_Qty,0.0);
fet_stockvalue.Inventory_Qty=ifnull(fet_stockvalue.Stock_Qty,0.0);
}
else
{
fet_stockvalue.Stock_Qty=ifnull(stkvalrec.Qty_after_Issued,0.0);
fet_stockvalue.Stock_Value=ifnull(stkvalrec.Rate,0.0) * ifnull(stkvalrec.Qty_after_Issued,0.0);
fet_stockvalue.Inventory_Qty=ifnull(stkvalrec.Qty_after_Issued,0.0);
}
}
}
}*/
//
if(input.Form_Mode == "GIN against WO")
{
iss_qty = 0;
ava_qty = 0;
bal_qty = 0;
for each wovar in input.Item_Details
{
getinv = Inventory[Part_No == wovar.Part_No && Location_Name.Location__Name == "Production WIP" && Sub_Location.Sub_Location == "Paint Shop"];
getin = Inventory[Part_No == wovar.Part_No && Location_Name.Location__Name != "Production WIP" && Total_Qty > 0] sort by Total_Qty desc;
// sendmail
// [
// from :zoho.loginuserid
// to :"pooja.s@synprosoft.com","parthasarathy.m@synprosoft.com"
// subject :"GIN Successful form submission - getinV"
// message :"Part No " + getin.Part_No.Part_No + "PRD WIP TOT QTY-" + getinv.Total_Qty + "PRD WIP AVL QTY-" + getinv.Available_Qty + "PRD WIP BLK QTY-" + getinv.Block_Qty + "ID-" + getin.ID + "getinv insert Count-" + getinv.count() + "NOPRDWIP TQ " + getin.Total_Qty + "noprdwip aq " + getin.Available_Qty + "noprd blkqty " + getin.Block_Qty
// ]
if(getin.count() > 0)
{
//Block is greater than Issue qty
if(getin.Block_Qty >= wovar.Issued_Quantity && getin.Block_Qty > 0)
{
getin.Block_Qty=ifnull(getin.Block_Qty,0) - ifnull(wovar.Issued_Quantity,0);
getin.Total_Qty=ifnull(getin.Total_Qty,0) - ifnull(wovar.Issued_Quantity,0);
}
else if(getin.Block_Qty < wovar.Issued_Quantity && getin.Block_Qty > 0)
{
bal = ifnull(wovar.Issued_Quantity,0) - ifnull(wovar.Block_Qty,0);
blk = ifnull(wovar.Block_Qty,0);
getin.Available_Qty=ifnull(getin.Available_Qty,0) - bal;
getin.Total_Qty=ifnull(getin.Total_Qty,0) - ifnull(wovar.Issued_Quantity,0);
getin.Block_Qty=0;
}
else if(getin.Block_Qty == 0 || getin.Block_Qty == null)
{
if(getin.Available_Qty > 0 && getin.Available_Qty >= wovar.Issued_Quantity)
{
getin.Available_Qty=ifnull(getin.Available_Qty,0) - wovar.Issued_Quantity;
getin.Total_Qty=ifnull(getin.Total_Qty,0) - ifnull(wovar.Issued_Quantity,0);
}
if(getin.Available_Qty > 0 && getin.Available_Qty < wovar.Issued_Quantity)
{
getin.Available_Qty=wovar.Issued_Quantity - ifnull(getin.Available_Qty,0);
getin.Total_Qty=ifnull(wovar.Issued_Quantity,0) - ifnull(getin.Total_Qty,0);
}
}
}
if(getinv.count() == 0)
{
bal = 0;
if(wovar.Issued_Quantity > wovar.Block_Qty && getin.Available_Qty > 0)
{
bal = ifnull(wovar.Issued_Quantity,0) - ifnull(wovar.Block_Qty,0);
getin.Block_Qty=0;
getin.Available_Qty=ifnull(getin.Available_Qty,0) - bal;
getin.Total_Qty=ifnull(getin.Available_Qty,0);
}
if(wovar.Issued_Quantity > wovar.Required_Quantity)
{
blk = ifnull(wovar.Issued_Quantity,0) - ifnull(wovar.Required_Quantity,0);
ins = insert into Inventory
[
Part_Description=wovar.Part_Description
Part_No=wovar.Part_No
Total_Qty=wovar.Required_Quantity
Available_Qty=wovar.Issued_Quantity
Block_Qty=blk
UOM=wovar.Unit_of_Measurement
Location_Name=143536000004382382
Sub_Location=143536000004382454
Added_User=zoho.loginuser
];
}
else if(wovar.Issued_Quantity == wovar.Required_Quantity)
{
ins1 = insert into Inventory
[
Part_Description=wovar.Part_Description
Part_No=wovar.Part_No
Total_Qty=wovar.Required_Quantity
Available_Qty=wovar.Issued_Quantity
Block_Qty=0
UOM=wovar.Unit_of_Measurement
Location_Name=143536000004382382
Sub_Location=143536000004382454
Added_User=zoho.loginuser
];
}
else if(wovar.Issued_Quantity < wovar.Required_Quantity)
{
ins2 = insert into Inventory
[
Part_Description=wovar.Part_Description
Part_No=wovar.Part_No
Total_Qty=wovar.Required_Quantity
Available_Qty=wovar.Issued_Quantity
Block_Qty=wovar.Balance_Quantity
UOM=wovar.Unit_of_Measurement
Location_Name=143536000004382382
Sub_Location=143536000004382454
Added_User=zoho.loginuser
];
}
}
else if(getinv.count() > 0)
{
sendmail
[
from :zoho.loginuserid
to :"pooja.s@synprosoft.com"
subject :"GIN Successful form submission - getinV"
message :"Part No " + getin.Part_No.Part_No + "PRD WIP TOT QTY-" + getinv.Total_Qty + "PRD WIP AVL QTY-" + getinv.Available_Qty + "PRD WIP BLK QTY-" + getinv.Block_Qty + "ID-" + getin.ID + "getinv insert Count-" + getinv.count()
]
if(wovar.Required_Quantity == wovar.Issued_Quantity)
{
getinv.Available_Qty=ifnull(getinv.Available_Qty,0) + ifnull(wovar.Issued_Quantity,0);
getinv.Total_Qty=ifnull(getinv.Total_Qty,0) + ifnull(wovar.Issued_Quantity,0);
}
//When Issued Qty is Greater than Reqquired Qty
else if(wovar.Issued_Quantity > wovar.Required_Quantity)
{
// blk = ifnull(wovar.Issued_Quantity,0) - ifnull(wovar.Required_Quantity,0);
// getinv.Total_Qty=ifnull(getinv.Total_Qty,0) + ifnull(wovar.Required_Quantity,0);
// getinv.Available_Qty=ifnull(getinv.Available_Qty,0) + ifnull(wovar.Issued_Quantity,0);
// getinv.Block_Qty=ifnull(getinv.Block_Qty,0) + blk;
blk = ifnull(wovar.Issued_Quantity,0) + ifnull(wovar.Required_Quantity,0);
getinv.Total_Qty=ifnull(getinv.Total_Qty,0) + blk;
getinv.Available_Qty=ifnull(getinv.Available_Qty,0) + ifnull(wovar.Issued_Quantity,0);
getinv.Block_Qty=ifnull(getinv.Block_Qty,0) + ifnull(wovar.Required_Quantity,0);
}
else if(wovar.Issued_Quantity < wovar.Required_Quantity)
{
getinv.Total_Qty=ifnull(getinv.Total_Qty,0) + ifnull(wovar.Required_Quantity,0);
getinv.Available_Qty=ifnull(getinv.Available_Qty,0) + ifnull(wovar.Issued_Quantity,0);
getinv.Block_Qty=ifnull(getinv.Block_Qty,0) + ifnull(wovar.Balance_Quantity,0);
}
}
mat_isf_qty = ifnull(wovar.Issued_Quantity,0) + ifnull(wovar.Quantity_issued_so_far,0);
fetch_mat_subform = Material_Request_Subform[ID == wovar.Material_Request_Subform_lu && Part_Description == wovar.Part_Description];
fetch_mat_subform.Quantity_issued_so_far=mat_isf_qty;
blnc_qty = ifnull(wovar.Balance_Quantity,0.0);
fetch_mat_subform.Balance_Qty=blnc_qty;
bat_no_list = List();
iss_qty = wovar.Issued_Quantity;
bat = Stock_Batch[Part_No == wovar.Part_No && Part_Description == wovar.Part_Description && Status != "Issued" && Location == wovar.Location && Warehouse == input.Warehouse && Sub_Location == wovar.Sub_Location && Racks_Bins == wovar.Racks_Bins];
for each i1 in bat
{
bat_no = Stock_Batch[ID == i1].Batch_No;
bat_no_list.add(bat_no);
}
i = 0;
for each no in bat_no_list
{
batching = Stock_Batch[Batch_No == no];
ava_qty = batching.Available_Quantity;
i = i + 1;
if(i == 1 && iss_qty > ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = iss_qty - ava_qty;
}
else if(i == 1 && iss_qty < ava_qty)
{
batching.Status="Partially Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=ava_qty - iss_qty;
bal_qty = 0;
}
else if(i == 1 && iss_qty == ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = 0;
}
else if(i > 1 && bal_qty > ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = bal_qty - ava_qty;
}
else if(i > 1 && bal_qty < ava_qty)
{
batching.Status="Partially Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=ava_qty - bal_qty;
bal_qty = 0;
}
else if(i > 1 && bal_qty == ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=bal_qty;
batching.Available_Quantity=0;
bal_qty = 0;
}
}
// Updating Stock value
temp_issued_qty = rec.Issued_Quantity;
ival = 0;
bal = 0;
if(wovar.Balance_Quantity < 1)
{
fetch_mat_subform.Status="Issued";
}
else
{
fetch_mat_subform.Status="Partially Issued";
}
}
}
//above closing parenthesis is for gin from work order if contidion.
emptylist = List();
if(Material_Request_RECID != emptylist || Material_Request_RECID != null && input.Form_Mode == "GIN against MRQ")
{
fet_Mrq_sts = Material_Request[ID == input.Material_Request_RECID];
//For GIN Validtaions
for each rec in input.Item_Details
{
if(rec.Issued_Quantity != null || rec.Issued_Quantity != 0)
{
//Updating qty issued so far
mat_isf_qty = ifnull(rec.Issued_Quantity,0) + ifnull(rec.Quantity_issued_so_far,0);
//Updating Quantity_issued_so_far in Material Request Subform
fetch_mat_subform = Material_Request_Subform[ID == rec.Material_Request_Subform_lu && Part_Description == rec.Part_Description];
fetch_mat_subform.Quantity_issued_so_far=mat_isf_qty;
//Updating blnc qty
blnc_qty = ifnull(rec.Balance_Quantity,0.0);
fetch_mat_subform.Balance_Qty=blnc_qty;
//below is new code to handle when items are in multiple times with different places.
getinventory = Inventory[Part_No == rec.Part_No] sort by Total_Qty desc;
info getinventory;
if(getinventory.count() > 0)
{
balqty = 0;
i = 1;
for each inventrec in getinventory
{
info balqty;
info i;
//Issued Quantiy is less total qty
if(rec.Issued_Quantity <= inventrec.Total_Qty && i == 1)
{
info "issued qty is less than total qty";
inventrec.Total_Qty=ifnull(inventrec.Total_Qty,0.0) - ifnull(rec.Issued_Quantity,0.0);
inventrec.Available_Qty=ifnull(inventrec.Available_Qty,0.0) - ifnull(rec.Issued_Quantity,0.0);
}
//Issued Quantity is more total qty
else if(rec.Issued_Quantity > inventrec.Total_Qty && i == 1)
{
info "issued qty is more than total qty";
balqty = ifnull(rec.Issued_Quantity,0.0) - ifnull(inventrec.Total_Qty,0.0);
inventrec.Total_Qty=0;
inventrec.Available_Qty=0;
}
//for first time it should not get inside the loop
if(balqty > 0 && i > 1)
{
info "balaance qty is more than zero";
//Balance Qty is less
if(balqty <= inventrec.Total_Qty)
{
info "balance qty is less than total qty";
inventrec.Total_Qty=ifnull(inventrec.Total_Qty,0.0) - ifnull(balqty,0.0);
inventrec.Available_Qty=ifnull(inventrec.Available_Qty,0.0) - ifnull(balqty,0.0);
balqty = 0;
}
//Balance Qty is More
else if(balqty >= inventrec.Total_Qty)
{
info "balance qty is greater than total qty";
balqty = ifnull(balqty,0.0) - ifnull(inventrec.Total_Qty,0.0);
inventrec.Total_Qty=0;
inventrec.Available_Qty=0;
}
}
if(balqty == 0)
{
info "before break";
break;
}
i = i + 1;
}
}
//--
//Subracting stock-batch
// Basic
/*bat = Stock_Batch[Part_No == rec.Part_No && Part_Description == rec.Part_Description && Status != "Issued" && Batch_No == rec.Batch_No.Batch_No];
if(bat.Available_Quantity == rec.Issued_Quantity)
{
bat.Status="Issued";
}
if(bat.Available_Quantity > rec.Issued_Quantity)
{
bat.Status="Partially Issued";
bat.Available_Quantity=bat.Available_Quantity - rec.Issued_Quantity;
}*/
// Advanced
iss_qty = 0;
ava_qty = 0;
bal_qty = 0;
// if(rec.Specification == null || rec.Specification == "")
// {
bat = Stock_Batch[Part_No == rec.Part_No && Part_Description == rec.Part_Description && Status != "Issued" && Location == rec.Location && Warehouse == input.Warehouse && Sub_Location == rec.Sub_Location && Racks_Bins == rec.Racks_Bins];
// }
// else
// {
// bat = Stock_Batch[Part_No == rec.Part_No && Part_Description == rec.Part_Description && Specification == rec.Specification && Status != "Issued" && Location == rec.Location && Warehouse == input.Warehouse && Sub_Location == rec.Sub_Location && Racks_Bins == rec.Racks_Bins];
// }
bat_no_list = List();
iss_qty = rec.Issued_Quantity;
for each i1 in bat
{
bat_no = Stock_Batch[ID == i1].Batch_No;
bat_no_list.add(bat_no);
}
info bat_no_list;
i = 0;
for each no in bat_no_list
{
batching = Stock_Batch[Batch_No == no];
ava_qty = batching.Available_Quantity;
i = i + 1;
if(i == 1 && iss_qty > ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = iss_qty - ava_qty;
}
else if(i == 1 && iss_qty < ava_qty)
{
batching.Status="Partially Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=ava_qty - iss_qty;
bal_qty = 0;
}
else if(i == 1 && iss_qty == ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = 0;
}
else if(i > 1 && bal_qty > ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = bal_qty - ava_qty;
}
else if(i > 1 && bal_qty < ava_qty)
{
batching.Status="Partially Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=ava_qty - bal_qty;
bal_qty = 0;
}
else if(i > 1 && bal_qty == ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=bal_qty;
batching.Available_Quantity=0;
bal_qty = 0;
}
}
// Updating Stock value
temp_issued_qty = rec.Issued_Quantity;
ival = 0;
bal = 0;
}
if(rec.Balance_Quantity == null || rec.Balance_Quantity == 0)
{
fetch_mat_subform.Status="Issued";
}
else
{
fetch_mat_subform.Status="Partially Issued";
}
}
}
else if(input.Form_Mode == "Direct GIN" || input.Form_Mode == "")
{
str = thisapp.Common.Number_Function_New("Material Request");
gin_without_mrq = insert into Material_Request
[
Request_Date=zoho.currentdate
Added_User=zoho.loginuser
Request_Raised_By=input.Issued_By
Warehouse=input.Warehouse
Material_Type=input.Material_Request_Type
Material_Request_No=str
MR_Status="MRQ from GIN"
];
input.Material_Request_RECID = gin_without_mrq;
Statusw = "";
Balance_Qtyw = input.Item_Details.Balance_Quantity;
if(Balance_Qtyw < 1)
{
Statusw = "Issued";
}
else
{
Statusw = "Partially Issued";
}
for each recmrsf in input.Item_Details
{
insert into Material_Request_Subform
[
Part_Description=recmrsf.Part_No
Part_No=recmrsf.Part_Description
Added_User=zoho.loginuser
Material_Type=recmrsf.Material_Type
Department=input.Issued_Empolyee_Department
UoM=recmrsf.Unit_of_Measurement
Specification=recmrsf.Specification
Stock_Qty=recmrsf.Stock_Quantity
Required_Qty=recmrsf.Required_Quantity
Balance_Qty=recmrsf.Balance_Quantity
Status=Statusw
Quantity_issued_so_far=recmrsf.Issued_Quantity
Material_Req_Exis_ID=gin_without_mrq
]
}
//For GIN Validtaions
for each rec in input.Item_Details
{
if(rec.Issued_Quantity != null || rec.Issued_Quantity != 0)
{
rec.Material_Request_No=str;
//below is new code to handle when items are in multiple times with different places.
getinventory = Inventory[Part_No == rec.Part_No] sort by Total_Qty desc;
info getinventory;
if(getinventory.count() > 0)
{
balqty = 0;
i = 1;
for each inventrec in getinventory
{
//Issued Quantiy is less total qty
if(rec.Issued_Quantity <= inventrec.Total_Qty && i == 1)
{
inventrec.Total_Qty=ifnull(inventrec.Total_Qty,0.0) - ifnull(rec.Issued_Quantity,0.0);
inventrec.Available_Qty=ifnull(inventrec.Available_Qty,0.0) - ifnull(rec.Issued_Quantity,0.0);
}
//Issued Quantity is more total qty
else if(rec.Issued_Quantity > inventrec.Total_Qty && i == 1)
{
balqty = ifnull(rec.Issued_Quantity,0.0) - ifnull(inventrec.Total_Qty,0.0);
inventrec.Total_Qty=0;
inventrec.Available_Qty=0;
}
//for first time it should not get inside the loop
if(balqty > 0 && i > 1)
{
info "balaance qty is more than zero";
//Balance Qty is less
if(balqty <= inventrec.Total_Qty)
{
info "balance qty is less than total qty";
inventrec.Total_Qty=ifnull(inventrec.Total_Qty,0.0) - ifnull(balqty,0.0);
inventrec.Available_Qty=ifnull(inventrec.Available_Qty,0.0) - ifnull(balqty,0.0);
balqty = 0;
}
//Balance Qty is More
else if(balqty >= inventrec.Total_Qty)
{
info "balance qty is greater than total qty";
balqty = ifnull(balqty,0.0) - ifnull(inventrec.Total_Qty,0.0);
inventrec.Total_Qty=0;
inventrec.Available_Qty=0;
}
}
if(balqty == 0)
{
info "before break";
break;
}
i = i + 1;
}
iss_qty = 0;
ava_qty = 0;
bal_qty = 0;
bat = Stock_Batch[Part_No == rec.Part_No && Part_Description == rec.Part_Description && Status != "Issued" && Warehouse == input.Warehouse && Location == rec.Location && Sub_Location == rec.Sub_Location && Racks_Bins == rec.Racks_Bins];
bat_no_list = List();
iss_qty = rec.Issued_Quantity;
for each i1 in bat
{
bat_no = Stock_Batch[ID == i1].Batch_No;
bat_no_list.add(bat_no);
}
info bat_no_list;
i = 0;
for each no in bat_no_list
{
batching = Stock_Batch[Batch_No == no];
ava_qty = batching.Available_Quantity;
i = i + 1;
if(i == 1 && iss_qty > ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = iss_qty - ava_qty;
}
else if(i == 1 && iss_qty < ava_qty)
{
batching.Status="Partially Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=ava_qty - iss_qty;
bal_qty = 0;
}
else if(i == 1 && iss_qty == ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = 0;
}
else if(i > 1 && bal_qty > ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=0;
bal_qty = bal_qty - ava_qty;
}
else if(i > 1 && bal_qty < ava_qty)
{
batching.Status="Partially Issued";
batching.Issued_Qty_So_far=iss_qty;
batching.Available_Quantity=ava_qty - bal_qty;
bal_qty = 0;
}
else if(i > 1 && bal_qty == ava_qty)
{
batching.Status="Issued";
batching.Issued_Qty_So_far=bal_qty;
batching.Available_Quantity=0;
bal_qty = 0;
}
}
// Updating Stock value
temp_issued_qty = rec.Issued_Quantity;
ival = 0;
bal = 0;
if(temp_issued_qty != 0)
{
}
}
}
}
//Insert / Update the Issued Details
for each Itemdetrec in input.Item_Details
{
insert into Inventory_Ageing
[
Added_User=zoho.loginuser
Part_No=Itemdetrec.Part_No
Part_Description=Itemdetrec.Part_Description
Specification=Itemdetrec.Specification
Issued_Stock=Itemdetrec.Issued_Quantity
Stock_Added_Issued_Date=zoho.currentdate
]
}
getdeptname = Department[ID == input.Issued_Empolyee_Department].Department_Name;
//The code below is to get Project cost
posum = 0;
fc = 0;
for each rec in input.Item_Details
{
fet_posub = Purchase_Order_Subform[Part_No == rec.Part_No];
if(rec.Part_No == fet_posub.Part_No)
{
posum = posum + ifnull(fet_posub.Rate,0.00);
finalcost = fet_posub.Rate * rec.Issued_Quantity;
}
else
{
fet_venSub = Vendor_Contract_Subform[Part_Description == rec.Part_Description].maximum(Unit_Price);
posum = posum + ifnull(fet_venSub,0.00);
finalcost = ifnull(fet_posub.Rate,0.0) * ifnull(rec.Issued_Quantity,0.0);
}
fc = fc + finalcost;
}
input.Project_Cost = fc;
input.Project_Rate = posum;
//below code is to update in zoho project form
if(input.Project_Name.Project_Title != null)
{
Fet_ZohoProject = Zoho_Projects_Data[ID == input.Project_Name];
if(Fet_ZohoProject.GIN_Item_Total_Amount == 0 || Fet_ZohoProject.GIN_Item_Total_Amount == null)
{
Fet_ZohoProject.GIN_Item_Total_Amount=ifnull(input.Project_Cost,0.00);
}
else
{
Fet_ZohoProject.GIN_Item_Total_Amount=ifnull(Fet_ZohoProject.GIN_Item_Total_Amount,0.00) + Ifnull(input.Project_Cost,0.00);
}
}
//THE Below function write the record in stock ledger.
thisapp.Stock_Ledger.Quantity_out_for_Stock_Ledger(input.ID);
for each itemrec in input.Item_Details
{
//if(itemrec.Part_No.Part_No == "100166" || itemrec.Part_No.Part_No == "100044")
if(itemrec.Part_No.Part_No == "100166")
{
//thisapp.Books.Adjust_Item_Inventory_in_zbooks(itemrec.ID);
//thisapp.Inventory.update_books_stock_details(itemrec.ID);
}
}
if(var == 1)
{
openUrl("#Form:Alert_Messages?Status=" + "GIN" + "&Value=" + input.GIN_Number + "&zc_LoadIn=dialog","same window");
}
else
{
openUrl("#Form:GIN","same window");
}
}
catch (e)
{
sendmail
[
from :"erp@carrierwheels.com"
to :"parthasarathy.m@synprosoft.com"
subject :"GIN Created Or Edited Successful Form Submission try & catch" + input.ID
message :e
]
}
emptylist = List();
//move the status into form mode to handle.
if(input.Form_Mode == null || input.Form_Mode == "")
{
input.Form_Mode = "Direct GIN";
//info Form_Mode;
}
if(input.Status == "GIN against MRQ" && input.Material_Request_Subform_record_id != emptylist || input.Material_Request_Subform_record_id != null)
{
input.Form_Mode = "GIN against MRQ";
hide Item_Details.Available_Qty;
hide Item_Details.Block_Qty;
input.Status = "";
matreqsf = Material_Request_Subform[ID == input.Material_Request_Subform_record_id];
Material_Req_Exis_ID = matreqsf.Material_Req_Exis_ID;
mat_req = Material_Request[ID == Material_Req_Exis_ID];
input.Material_Request_RECID = Material_Req_Exis_ID;
input.Warehouse = matreqsf.Material_Req_Exis_ID.Warehouse;
input.Work_Order_No = matreqsf.Material_Req_Exis_ID.Work_Order_No;
input.Finished_Good = mat_req.FG_Part_Description;
mrn = mat_req.Material_Request_No;
input.Project_Name = Zoho_Projects_Data[ID == mat_req.Project_Name].ID;
input.Machine_Name = Machine_Master[ID == mat_req.Machine_Name].ID;
input.Status = "Draft";
input.Request_raised_By = mat_req.Request_Raised_By;
//input.Department = Department[ID==mat_req.Department].Department_Name;
input.Request_Date = mat_req.Request_Date;
//info mat_req.Material_Type;
input.Material_Request_Type = mat_req.Material_Type;
//input.Project_Name = ifnull(mat_req.Project_Name,"");
row1 = Goods_Issued_Note.Item_Details();
i = 0;
grstot = 0;
for each i1 in matreqsf
{
i = i + 1;
//Store will issue Itmes from Satellite stores and engineering stores - erp channel - 14/12/2024 from user.
//inv = Inventory[Part_No == i1.Part_No && Warehouse == input.Warehouse && Total_Qty > 0];
inv = Inventory[Part_No == i1.Part_No && Warehouse == input.Warehouse && Total_Qty > 0 && Location_Name.Location__Name == "Satellite Stores" || Location_Name.Location__Name == "Engineering Stores"];
//info inv;
fet_stockvalue = Stock_Value[Part_No == i1.Part_No] sort by Unit_Price desc;
row1.S_No=i;
row1.Part_No=i1.Part_No;
row1.Part_Description=i1.Part_Description;
row1.Material_Type=i1.Material_Type;
row1.Unit_of_Measurement=i1.UoM;
row1.Required_Quantity=ifnull(i1.Required_Qty,0.00);
row1.Quantity_issued_so_far=ifnull(i1.Quantity_issued_so_far,0);
row1.Specification=i1.Specification;
if(i1.Quantity_issued_so_far > 0 && i1.Required_Qty > 0)
{
if(i1.Quantity_issued_so_far > i1.Required_Qty)
{
row1.Issued_Quantity=ifnull(i1.Quantity_issued_so_far,0) - ifnull(i1.Required_Qty,0);
}
}
else
{
row1.Issued_Quantity=ifnull(i1.Required_Qty,0);
}
//row1.Issued_Quantity=ifnull(i1.Required_Qty,0) - ifnull(i1.Quantity_issued_so_far,0);
//row1.Sub_Total=row1.Issued_Quantity * row1.Rate;
//new function is written to calculate the rate by Mr.Varun - dt 5/12/2023 - Mail on 5/12/2023
//row1.Rate=fet_stockvalue.Unit_Price;
getrate = thisapp.Stock_Value.Average_Stock_Value(row1.Part_No,row1.Issued_Quantity);
row1.Rate=ifnull(getrate,0);
if(row1.Issued_Quantity > 0 && row1.Rate > 0)
{
sub = ifnull(row1.Issued_Quantity,0) * ifnull(row1.Rate,0);
}
grstot = ifnull(grstot,0) + ifnull(sub,0);
//row1.Sub_Total=sub;
row1.Value=sub;
row1.Balance_Quantity=0.00;
row1.Stock_Quantity=ifnull(inv.Total_Qty,0.00);
row1.Available_Qty=ifnull(inv.Available_Qty,0.00);
row1.Block_Qty=ifnull(inv.Block_Qty,0.00);
row1.Work_Order_No=i1.Work_Order_No;
row1.Sales_Order_No=i1.Sales_Order_No;
row1.Material_Request_No=Material_Req_Exis_ID.Material_Request_No;
row1.Material_Request_Subform_lu=i1.ID;
row1.Material_type_from_mrq=Material_Req_Exis_ID.Material_Type;
row1.Location=inv.Location_Name.getall();
row1.Sub_Location=inv.Sub_Location.getall();
row1.Racks_Bins=inv.Rack_Number.getall();
input.Item_Details.insert(row1);
}
input.Grand_Total1 = grstot;
for each row2 in input.Item_Details
{
if(row2.Racks_Bins != null)
{
ava = 0;
for each i1 in row2.Racks_Bins
{
inv2 = Inventory[Warehouse == input.Warehouse && Part_No == row2.Part_No && Location_Name == row2.Location && Sub_Location == row2.Sub_Location && Rack_Number == i1 && Total_Qty > 0];
//info inv2;
ava = ava + ifnull(inv2.Available_Qty,0.0);
}
row2.Stock_Quantity=ifnull(ava,0.00);
row2.Qty_after_Issued=ifnull(row2.Stock_Quantity,0.0) - ifnull(row2.Issued_Quantity,0.0);
//info row2.Qty_after_Issued;
}
}
disable Request_raised_By;
disable Request_Date;
disable Material_Request_Type;
}
else if(input.Form_Mode == "GIN against WO")
{
disable Item_Details.Available_Qty;
disable Item_Details.Block_Qty;
input.Status = "";
matreqsf = Material_Request_Subform[ID == input.Material_Request_Subform_record_id];
Material_Req_Exis_ID = matreqsf.Material_Req_Exis_ID;
mat_req = Material_Request[ID == Material_Req_Exis_ID];
input.Material_Request_RECID = Material_Req_Exis_ID;
input.Warehouse = matreqsf.Material_Req_Exis_ID.Warehouse;
input.Work_Order_No = matreqsf.Material_Req_Exis_ID.Work_Order_No;
input.Finished_Good = mat_req.FG_Part_Description;
mrn = mat_req.Material_Request_No;
input.Project_Name = Zoho_Projects_Data[ID == mat_req.Project_Name].ID;
input.Machine_Name = Machine_Master[ID == mat_req.Machine_Name].ID;
input.Status = "Draft";
input.Request_raised_By = mat_req.Request_Raised_By;
input.Request_Date = mat_req.Request_Date;
input.Material_Request_Type = mat_req.Material_Type;
partno_list = List();
qtylist = List();
mymap = Map();
qtymap = Map();
for each bomrec in matreqsf
{
partno_list.add(bomrec.Part_No);
qtyvar = ifnull(qtymap.get(bomrec.Part_No),0) + bomrec.Required_Qty;
qtymap.put(bomrec.Part_No,qtyvar);
//partno_list.add(bomrec.Required_Qty);
}
partno_list.sort();
i = 0;
grstot = 0;
for each recpartlist in partno_list.distinct()
{
row1 = Goods_Issued_Note.Item_Details();
mrqsflist = Material_Request_Subform[ID = input.Material_Request_Subform_record_id && Part_No == recpartlist];
mymap.put("Partno",recpartlist);
mymap.put("partdesc",mrqsflist.Part_Description);
i = i + 1;
getinv = Inventory[Part_No == mrqsflist.Part_No && Warehouse == input.Warehouse && Total_Qty > 0];
getin = Inventory[Part_No == mrqsflist.Part_No && Location_Name.Location__Name != "Production WIP"].sum(Total_Qty);
////Store will issue Itemss from Satellite stores and engineering stores - erp channel - 14/12/2024 from user.
getstokqty = Inventory[Part_No == mrqsflist.Part_No && Warehouse == input.Warehouse && Total_Qty > 0 && Location_Name.Location__Name == "Satellite Stores" || Location_Name.Location__Name == "Engineering Stores"].sum(Total_Qty);
//info "getstokqty " + getstokqty;
fet_stockvalue = Stock_Value[Part_No == mrqsflist.Part_No] sort by Unit_Price desc;
row1.S_No=i;
row1.Part_No=recpartlist;
row1.Part_Description=mrqsflist.Part_Description;
row1.Material_Type=mrqsflist.Material_Type;
row1.Unit_of_Measurement=mrqsflist.UoM;
qtv = qtymap.get(mrqsflist.Part_No);
//info "line 155 qty " + qtv;
row1.Required_Quantity=qtv;
row1.Quantity_issued_so_far=ifnull(mrqsflist.Quantity_issued_so_far,0);
row1.Specification=mrqsflist.Specification;
if(mrqsflist.Quantity_issued_so_far > 0 && mrqsflist.Required_Qty > 0)
{
if(mrqsflist.Quantity_issued_so_far > qtv)
{
row1.Issued_Quantity=ifnull(mrqsflist.Quantity_issued_so_far,0) - ifnull(qtv,0);
}
else if(mrqsflist.Quantity_issued_so_far < qtv)
{
row1.Issued_Quantity=ifnull(qtv,0) - ifnull(mrqsflist.Quantity_issued_so_far,0);
}
}
else
{
row1.Issued_Quantity=ifnull(qtv,0);
}
getrate = thisapp.Stock_Value.Average_Stock_Value(row1.Part_No,row1.Issued_Quantity);
if(getrate == null)
{
getrate = Stock_Value[Part_No == row1.Part_No && Unit_Price > 0].Unit_Price sort by Added_Time asc;
}
if(getrate > 0 || getrate != null)
{
row1.Rate=ifnull(getrate,0);
sub = ifnull(row1.Issued_Quantity,0) * ifnull(row1.Rate,0);
}
grstot = ifnull(grstot,0) + ifnull(sub,0);
//row1.Sub_Total=sub;
row1.Value=sub;
row1.Balance_Quantity=0.00;
//Stock Quantity should be from engineering and satellite locations only - 16/12/2024
//row1.Stock_Quantity=ifnull(getinv.Total_Qty,0.00);
// row1.Stock_Quantity=ifnull(getin,0);
row1.Stock_Quantity=ifnull(getstokqty,0);
row1.Available_Qty=ifnull(getinv.Available_Qty,0.00);
row1.Block_Qty=ifnull(getinv.Block_Qty,0.00);
row1.Work_Order_No=mrqsflist.Work_Order_No;
row1.Sales_Order_No=mrqsflist.Sales_Order_No;
row1.Material_Request_No=Material_Req_Exis_ID.Material_Request_No;
row1.Material_Request_Subform_lu=mrqsflist.ID;
row1.Material_type_from_mrq=Material_Req_Exis_ID.Material_Type;
// row1.Location=getinv.Location_Name.getall();
// row1.Sub_Location=getinv.Sub_Location.getall();
// row1.Racks_Bins=getinv.Rack_Number.getall();
input.Item_Details.insert(row1);
}
input.Grand_Total1 = grstot;
for each row2 in input.Item_Details
{
if(row2.Racks_Bins != null)
{
ava = 0;
for each mrqsflist in row2.Racks_Bins
{
////Store will issue Itemss from Satellite stores and engineering stores - erp channel - 14/12/2024 from user.
//inv2 = Inventory[Warehouse == input.Warehouse && Part_No == row2.Part_No && Location_Name == row2.Location && Sub_Location == row2.Sub_Location && Rack_Number == mrqsflist && Total_Qty > 0];
inv2 = Inventory[Warehouse == input.Warehouse && Part_No == row2.Part_No && Location_Name.Location__Name == "Satellite Stores" || Location_Name.Location__Name == "Engineering Stores" && Rack_Number == mrqsflist && Total_Qty > 0];
//info inv2;
ava = ava + ifnull(inv2.Available_Qty,0.0);
}
row2.Stock_Quantity=ifnull(ava,0.00);
row2.Qty_after_Issued=ifnull(row2.Stock_Quantity,0.0) - ifnull(row2.Issued_Quantity,0.0);
//info row2.Qty_after_Issued;
}
}
disable Request_raised_By;
disable Request_Date;
disable Material_Request_Type;
}
getmrp = MRP[Work_Order_Subform_ID == input.ID];
getmrpsub = MRP_Subform_CWPL[MRP_Exis_ID == getmrp.ID];
fet_wosub = Work_Order_Subform[ID == input.ID];
fet_wo = Work_Order[ID == fet_wosub.Work_Order_Exis_ID];
fet_bom = Create_BOM[Part_No == fet_wosub.Part_No];
fetsubbom = BoM_FG_Subform[BOM_FG_Exis_ID == fet_bom.ID];
//info fetsubbom.count();
if(fetsubbom.count() == 0)
{
openUrl("#Form:Alert_Messages?Status=MRPbom_Alert&Value=BoM not created! Create BoM for this Material. &zc_LoadIn=dialog","same window");
}
else if(getmrp.MRP_Status == null && fet_wosub.WO_Qty != 0)
{
openUrl("#Form:MRP?Work_Order_Subform_ID=" + input.ID,"same window");
}
else if(getmrp.MRP_Status == "MRP Reverted")
{
openUrl("#Form:MRP?Work_Order_Subform_ID=" + input.ID,"same window");
}
else if(fet_wosub.Work_Order_Status == "MRP Rejected")
{
openUrl("#Form:MRP?Work_Order_Subform_ID=" + input.ID,"same window");
}
else if(getmrp.MRP_Status == "Draft")
{
openUrl("#Form:MRP?recLinkID=" + getmrp.ID + "&viewLinkName=MRP_Report&Form_Mode=DraftMRP","same window");
}
else if(fet_wosub.WO_Qty <= 0)
{
openUrl("#Form:Alert_Messages?Status=MRP_Alert&Value=Stock available for this WorkOrder. <br>Not Required MRP! &zc_LoadIn=dialog","same window");
}
else
{
openUrl("#Form:MRP?Work_Order_Subform_ID=" + input.ID,"same window");
}
void Dispatch_Note.Dispatch(int ID)
{
openUrl("#Form:Create_Dispatch_Note_Format?recLinkID=" + ID + "&viewLinkName=Dispatch_Note_Actual&Dispatch_Type=Actual","popup window");
}
for each deliv in input.Despatch_Schedule
{
if(deliv.Part_No == row.Part_No)
{
deliv.Full_Quantity=false;
}
}
for each r in input.Despatch_Schedule
{
b = r.S_No - 1;
r.S_No=b;
if(r.S_No < row.S_No)
{
b = b + 1;
r.S_No=b;
}
}
for each r in input.Item_Details
{
b = ifnull(r.S_No,0) - 1;
r.S_No=b;
if(r.S_No < row.S_No)
{
b = b + 1;
r.S_No=b;
}
}
input.Gross_Total = ifnull(input.Gross_Total,0.0) - ifnull(row.Sub_Total,0.0);
input.Total_Quantity = ifnull(input.Total_Quantity,0.0) - ifnull(row.Qty,0.0);
if(input.Gross_Total == 0)
{
input.Gross_Total = 0;
input.Total_Quantity = null;
input.Discount = null;
input.Discount_Amount = 0;
input.Discount_Amount = null;
hide Discount_Amount;
input.Discount_Percentage = null;
hide Discount_Percentage;
input.Final_Gross_Total = 0;
input.Total_Taxes = null;
input.Grand_Total = null;
input.Gross_with_Discount = null;
input.Gross_Value_Tax = null;
input.Gross_Total_with_Discount = null;
input.Packing_Forwarding = null;
input.PF_Total_with_tax = null;
input.PF_Tax_value = null;
}
for each rec in input.Despatch_Schedule
{
if(rec.Part_No == row.Part_No)
{
rec.Part_No=null;
rec.Quantity=null;
rec.Delivery_Date=null;
}
}
itemlist = List();
qtyList = List();
dateList = List();
remarksList = List();
fullQtyList = List();
for each rec in input.Despatch_Schedule
{
if(rec.Part_No != null)
{
itemlist.add(rec.Part_No);
qtyList.add(rec.Quantity);
dateList.add(rec.Delivery_Date);
remarksList.add(rec.Remarks);
fullQtyList.add(rec.Full_Quantity);
}
}
input.Despatch_Schedule.clear();
i = 0;
s_no = 0;
for each items in itemlist
{
s_no = s_no + 1;
row1 = Sales_Order.Despatch_Schedule();
row1.S_No=s_no;
row1.Part_No=items;
row1.Quantity=qtyList.get(i);
row1.Delivery_Date=dateList.get(i);
row1.Remarks=remarksList.get(i);
row1.Full_Quantity=fullQtyList.get(i);
input.Despatch_Schedule.insert(row1);
i = i + 1;
}
//Grand total adjustment
input.Grand_Total = ifnull(input.Grand_Total,0.0) - ifnull(row.Total_Amount,0.0);
i = 0;
for each rec_sn in input.Despatch_Schedule
{
i = i + 1;
row.S_No=i;
}
//For Delivery Schedule
clear row.Part_No;
item_list = List();
deliv_list = List();
for each an_item in input.Item_Details
{
item_list.add(an_item.Part_Description);
}
for each deliv in input.Despatch_Schedule
{
if(deliv.Part_No != null && deliv.Full_Quantity == true)
{
deliv_list.add(deliv.Part_No);
}
}
item_list.removeAll(deliv_list);
row.Part_No:ui.add(item_list.sort(true));
if(item_list.size() > 0)
{
row.Part_No=item_list.get(0);
//Setting Quantity
for each rec in input.Item_Details
{
if(rec.Qty < 1)
{
alert "Please enter quantity for all the item(s) in Item Details ";
row.Quantity=null;
}
else
{
tot = 0.0;
for each rec1 in input.Despatch_Schedule
{
if(rec1.Part_No == rec.Part_Description)
{
tot = tot + ifnull(rec1.Quantity,0.0);
}
}
if(rec.Part_Description == row.Part_No)
{
row.Quantity=if(tot > 0,rec.Qty - tot,rec.Qty);
row.Delivery_Date=if(tot > 0,null,input.Expected_Shipment_Date);
row.Specification=rec.Remarks_multiline;
row.Full_Quantity=true;
}
}
}
}
i = 0;
for each rec_sn in input.Item_Details
{
i = i + 1;
row.S_No=i;
}
//item details part no should be loaded from customer pricing master based on customer selected as per user requirement-7/3/2023,if not in master then load asusal
clear row.Part_No;
clear row.Part_Description;
if(input.Sales_Type != "Tooling" && input.Sales_Type != "Research & Development Charges")
{
getcust = Customer_Pricing_Master[Customer_Name == input.Customer_Name && Status == "Active"];
if(getcust.count() > 0)
{
//Remove the Part No available in Regular Item master for contract- User Requirement - MR.Senthil - 14/03/2024 - will open after production
//if input.Sales_Type == "Contract"
//{
//regularitem = Regular_Item_Master[ID != 0].Part_No.getAll();
//get_active = Customer_Pricing_subform[Customer_Pricing_Master_Recid == getcust.ID && sf_Status == "Active" && Part_No != regularitem].Part_No.getAll();
//}
//else
// {
get_active = Customer_Pricing_subform[Customer_Pricing_Master_Recid == getcust.ID && sf_Status == "Active"].Part_No.getAll();
// }
//info get_active;
row.Part_No:ui.add(get_active);
//To restrict choosing same items
clear row.Part_Description;
//Remove the Part No available in Regular Item master for contract- User Requirement - MR.Senthil - 14/03/2024 - will open after production
//if input.Sales_Type == "Contract"
//{
//regularitem = Regular_Item_Master[ID != 0].Part_No.getAll();
//get_active = Customer_Pricing_subform[Customer_Pricing_Master_Recid == getcust.ID && sf_Status == "Active" && Part_No != regularitem].Part_No.getAll();
//}
//else
// {
prdcts = Customer_Pricing_subform[ID == getcust.ID && sf_Status == "Active"].Part_No.getAll();
// }
addproduct = List();
addproduct.addAll(prdcts);
remproduct = List();
for each prd in input.Item_Details
{
if(prd.Part_No != 0)
{
toadd = Materials[ID == prd.Part_Description].ID;
remproduct.add(toadd);
}
}
addproduct.removeAll(remproduct);
row.Part_Description:ui.add(addproduct);
clear row.Part_No;
//Remove the Part No available in Regular Item master for contract- User Requirement - MR.Senthil - 14/03/2024 - will open after production
//if input.Sales_Type == "Contract"
//{
//regularitem = Regular_Item_Master[ID != 0].Part_No.getAll();
//get_active = Customer_Pricing_subform[Customer_Pricing_Master_Recid == getcust.ID && sf_Status == "Active" && Part_No != regularitem].Part_No.getAll();
//}
//else
// {
prdcts = Customer_Pricing_subform[Customer_Pricing_Master_Recid == getcust.ID && sf_Status == "Active"].Part_No.getAll();
//}
addproduct = List();
addproduct.addAll(prdcts);
remproduct = List();
for each prd in input.Item_Details
{
if(prd.Part_No != 0)
{
toadd = Materials[ID == prd.Part_No].ID;
remproduct.add(toadd);
}
}
addproduct.removeAll(remproduct);
row.Part_No:ui.add(addproduct);
}
}
else
{
//New Sale type Research & Development Charges - Mail Dated 29/11/2023 -Parthasarathy
if(input.Sales_Type == "Tooling")
{
prdcts = Materials[Category.Category == "Tooling" && Status == "Active"].ID.getAll();
}
else if(input.Sales_Type == "Research & Development Charges")
{
prdcts = Materials[Category.Category == "R&D" && Status == "Active"].ID.getAll();
}
addproduct = List();
addproduct.addAll(prdcts);
remproduct = List();
for each prd in input.Item_Details
{
if(prd.Part_Description != 0)
{
toadd = Materials[ID == prd.Part_Description].ID;
remproduct.add(toadd);
}
}
addproduct.removeAll(remproduct);
row.Part_Description:ui.add(addproduct);
clear row.Part_No;
if(input.Sales_Type == "Tooling")
{
prdcts = Materials[Category.Category == "Tooling" && Status == "Active"].ID.getAll();
}
else if(input.Sales_Type == "Research & Development Charges")
{
prdcts = Materials[Category.Category == "R&D" && Status == "Active"].ID.getAll();
}
addproduct = List();
addproduct.addAll(prdcts);
remproduct = List();
for each prd in input.Item_Details
{
if(prd.Part_No != 0)
{
toadd = Materials[ID == prd.Part_No].ID;
remproduct.add(toadd);
}
}
addproduct.removeAll(remproduct);
row.Part_No:ui.add(addproduct);
}
//below code is blocked as per user request - 01/04/2023
/*if(getcust.count() == 0)
{
clear row.Part_No;
clear row.Part_Description;
prdcts = Materials[ID != 0 && Material_Item_Type.Material_Type == "CWPL Products" && CRM_Sync == "Yes"].ID.getAll();
addproduct = List();
addproduct.addAll(prdcts);
remproduct = List();
for each prd in input.Item_Details
{
if(prd.Part_Description != 0)
{
toadd = Materials[ID == prd.Part_Description].ID;
remproduct.add(toadd);
}
}
addproduct.removeAll(remproduct);
row.Part_Description:ui.add(addproduct);
clear row.Part_No;
prdcts = Materials[ID != 0 && Material_Item_Type.Material_Type == "CWPL Products" && CRM_Sync == "Yes"].ID.getAll();
addproduct = List();
addproduct.addAll(prdcts);
remproduct = List();
for each prd in input.Item_Details
{
if(prd.Part_No != 0)
{
toadd = Materials[ID == prd.Part_No].ID;
remproduct.add(toadd);
}
}
addproduct.removeAll(remproduct);
row.Part_No:ui.add(addproduct);
}*/
Created or Edited -> User input of Item Details.Part_Description -> ItemDeatils_PartDesc_Validations
if(row.Part_Description != null)
{
check_same_item = 0;
for each rec in input.Item_Details
{
if(rec.Part_Description == row.Part_Description)
{
check_same_item = check_same_item + 1;
}
}
if(check_same_item == 2)
{
alert "You have already entered the same item";
row.Part_Description=null;
}
else
{
mat_data = Materials[ID == row.Part_Description];
row.Rate=ifnull(mat_data.Selling_Price,0.0);
row.Part_No=mat_data.ID;
/*-------------------------Tax Showing----------------------------*/
if(input.Place_of_Supply.Inside_India == "Yes")
{
tax_det = if(input.Customer_Name.Destination.Short_Name == "" || input.Customer_Name.Destination.Short_Name == null,if(input.Place_of_Supply.Short_Name == "TN",mat_data.GST_Details,mat_data.IGST_Details),if(input.Customer_Name.Destination.Short_Name == "TN",mat_data.GST_Details,mat_data.IGST_Details));
}
else
{
tax_det = GST_Details[Tax_Name == "IGST0"].ID;
}
/*-----------------------End-------------------------------------------------------------------------------*/
row.Tax=tax_det;
row.UoM=row.Part_Description.Primary_UoM;
row.Remarks_multiline=row.Part_Description.Specification;
//Check Stock Summary
row.Stock_FG_Qty=ifnull(Inventory[Part_No == row.Part_No && Part_Description == row.Part_Description].Available_Qty,0.0);
}
}
if(row.Part_No != null)
{
mat_data = Materials[ID == row.Part_No];
getcustdet = Customer_Pricing_subform[Part_No == row.Part_No && Customer_Name == input.Customer_Name && sf_Status == "Active"];
if(getcustdet.count() > 0)
{
getcustdet = Customer_Pricing_subform[Part_No == row.Part_No && Customer_Name == input.Customer_Name && sf_Status == "Active"];
row.Part_Description=getcustdet.Part_Description;
row.UoM=Materials[ID == getcustdet.Part_No].Primary_UoM;
// row.Rate=getcustdet.Price;
row.Rate=getcustdet.Settled_Price;
row.Tax=getcustdet.Tax;
row.Packing_Std=getcustdet.Packaging;
row.Customer_Part_Code=getcustdet.Customer_Part_Code;
row.HSN_Code=mat_data.HSN_SAC;
row.Classification=mat_data.Classification;
}
if(getcustdet.count() == 0 && input.Sales_Type == "Tooling" || input.Sales_Type == "Research & Development Charges")
{
row.Part_Description=mat_data.ID;
if(input.Place_of_Supply.Inside_India == "Yes")
{
if(input.Place_of_Supply.Short_Name == "UP")
{
row.Tax=row.Part_No.GST_Details;
}
else
{
row.Tax=row.Part_No.IGST_Details;
}
}
//row.Tax=tax_det;
}
row.UoM=row.Part_Description.Primary_UoM;
row.Stock_FG_Qty=ifnull(Inventory[Part_No == row.Part_No].sum(Available_Qty),0.0);
row.Stock_SFG_Qty=ifnull(Semi_Finished_Goods_Summary[Part_No == row.Part_No && Part_Description == row.Part_Description && Warehouse == input.Warehouse].Available_Qty,0.0);
}
else
{
row.Part_Description=null;
row.Remarks_multiline=null;
row.Rate=null;
row.Stock_FG_Qty=0.0;
row.Stock_SFG_Qty=0.0;
}
for each rec in input.Despatch_Schedule
{
if(rec.Part_No == row.Part_No)
{
rec.Part_No=null;
}
}
for each var in input.Item_Details
{
row.Blocke_Qty=Inventory[Part_No == row.Part_No && Part_Description == row.Part_Description].Block_Qty;
}
if(input.Place_of_Supply.Short_Name != "UP")
{
if(row.Tax != null)
{
if(row.Tax.Tax_Name.startswith("G") == True)
{
alert "Tax should be IGST for this customer.Tax configured as " + row.Tax.Tax_Name + " Pls check";
row.Tax=null;
}
}
}
//set the tax percentage since its same for all the line items
input.TaxP = row.Tax;
if(row.Rate != null && row.Qty != null && row.Tax != null)
{
get_tax_value = GST_Details[ID == ifnull(row.Tax,"")].Total_Rate;
Tax_calc = ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0) * ifnull(get_tax_value,0.0) / 100;
amount_calc = ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0);
row.Sub_Total=ifnull(amount_calc,0.00);
row.Tax_Value=Tax_calc;
row.Total_Amount=ifnull(amount_calc,0.0) + ifnull(Tax_calc,0.0);
tot = 0.0;
totqty = 0.0;
subtot = 0.0;
for each rec1 in Item_Details
{
tot = tot + ifnull(rec1.Total_Amount,0.0);
totqty = totqty + ifnull(rec1.Qty,0.0);
subtot = subtot + ifnull(rec1.Sub_Total,0.0);
}
input.Item_Total = tot;
input.Overall_Total = ifnull(input.Item_Total,0.0) + ifnull(input.Extra_Charge_s_Total,0.0);
//new field calculation starts here - 1/4/2023
input.Total_Quantity = ifnull(totqty,0.0);
input.Gross_Total = ifnull(subtot,0.0);
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0);
if(input.Discount_Amount > 0)
{
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0) - ifnull(input.Discount_Amount,0.0);
input.Overall_Total = ifnull(input.Overall_Total,0.0) - ifnull(input.Discount_Amount,0.0);
}
else
{
input.Gross_with_Discount = ifnull(input.Gross_with_Discount,0.0);
}
get_tax_value = GST_Details[ID == ifnull(input.TaxP,"")].Total_Rate;
if(get_tax_value == 0)
{
input.Gross_Value_Tax = 0;
}
else
{
Tax_calc = ifnull(input.Gross_with_Discount,0.0) * ifnull(get_tax_value,0.0) / 100;
input.Tax_Total = ifnull(Tax_calc,0.0);
input.Gross_Value_Tax = ifnull(Tax_calc,0.0);
input.Gross_Total_with_Discount = ifnull(input.Gross_with_Discount,0.0) + ifnull(input.Gross_Value_Tax,0.0);
}
if(input.Packing_Forwarding > 0)
{
Tax_calc1 = ifnull(input.Packing_Forwarding,0.0) * ifnull(get_tax_value,0.0) / 100;
input.PF_Tax_value = ifnull(Tax_calc1,0.0);
input.PF_Total_with_tax = ifnull(input.Packing_Forwarding,0.0) + ifnull(input.PF_Tax_value,0.0);
}
input.Grand_Total = ifnull(input.Gross_Total_with_Discount,0.0) + ifnull(input.PF_Total_with_tax,0.0);
//new fields calculation ends
}
if(row.Rate != null && row.Qty != null && row.Tax != null)
{
get_tax_value = GST_Details[ID == row.Tax].Total_Rate;
Tax_calc = ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0) * ifnull(get_tax_value,0.0) / 100;
amount_calc = row.Qty * row.Rate;
row.Sub_Total=ifnull(amount_calc,0.00);
row.Tax_Value=Tax_calc;
row.Total_Amount=ifnull(amount_calc,0.0) + ifnull(Tax_calc,0.0);
tot = 0.0;
for each rec in Item_Details
{
tot = tot + ifnull(rec.Total_Amount,0.0);
}
input.Item_Total = tot;
input.Overall_Total = ifnull(input.Item_Total,0.0) + ifnull(input.Extra_Charge_s_Total,0.0);
// // new fields caluclation - 1/4/2023 - stats
// input.Gross_Total = ifnull(input.Gross_Total,0.0) + ifnull(row.Sub_Total,0.0)+ifnull(input.Tax_Total,0.0);
// input.Tax_Total = ifnull(input.Tax_Total,0.0)+ifnull(row.Tax_Value,0.0);
// // new fields calculation ends
}
if(row.Tax == null)
{
row.Tax_Value=0.0;
row.Total_Amount=ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0);
tot1 = 0.0;
for each rec in Item_Details
{
tot1 = tot1 + rec.Total_Amount;
}
input.Item_Total = tot1;
input.Overall_Total = ifnull(input.Item_Total,0.0) + ifnull(input.Extra_Charge_s_Total,0.0);
}
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>Document</title>
</head>
<body>
<h1> CHAI OR CODE </h1>
<button id = "stop ">stop </button>
</body>
<script>
////////////////////***** 1 WAY ***//////////////
setTimeout(function(){
consol.log("HITESH"); ///after 2 sec it will excute
},2000) // only 1 time will excute
////////////////////***** 2 WAY ***//////////////
const sayhitesh = function (){
console.log("tanishq");
}
const changeText = function () {
document.querySelector('h1').innerHTML = "best js course on yt"; // change the h1
};
const changeMe = setTimeout(changeText, 2000); // changeText will execute after 2 seconds
document.querySelector('#stop'). //// function to stop the changetext option
addEventListener('click', function () { // if we press stop button it will stop the excution of changing of h1
clearTimeout(changeMe)
console.log("STOPPED")
})
</script>
</html>
//For Negative validation Check
if(row.Rate < 0 && row.Rate != null)
{
alert "Please enter positive values";
row.Rate=null;
}
else
{
get_tax_value = GST_Details[ID == ifnull(row.Tax,"")].Total_Rate;
Tax_calc = ifnull(row.Qty,0) * ifnull(row.Rate,0) * ifnull(get_tax_value,0) / 100;
amount_calc = ifnull(row.Qty,0) * ifnull(row.Rate,0);
row.Sub_Total=ifnull(amount_calc,0.00);
row.Tax_Value=ifnull(Tax_calc,0);
row.Total_Amount=ifnull(amount_calc,0) + ifnull(Tax_calc,0);
//alert amount_calc + Tax_calc;
tot = 0.0;
subtot = 0.0;
totqty = 0.0;
for each rec in Item_Details
{
tot = tot + ifnull(rec.Total_Amount,0.0);
totqty = totqty + ifnull(rec.Qty,0.0);
subtot = subtot + ifnull(rec.Sub_Total,0.0);
}
input.Item_Total = tot;
input.Overall_Total = tot + ifnull(input.Extra_Charge_s_Total,0.0);
//new field calculation starts here - 1/4/2023
//input.Gross_Total = ifnull(input.Gross_Total,0.0) + ifnull(row.Sub_Total,0.0);
//input.Grand_Total = ifnull(input.Gross_Total,0.0);
input.Total_Quantity = ifnull(totqty,0.0);
input.Gross_Total = ifnull(subtot,0.0);
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0);
if(input.Discount_Amount > 0)
{
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0) - ifnull(input.Discount_Amount,0.0);
input.Overall_Total = ifnull(input.Overall_Total,0.0) - ifnull(input.Discount_Amount,0.0);
}
else
{
input.Gross_with_Discount = ifnull(input.Gross_with_Discount,0.0);
}
get_tax_value = GST_Details[ID == ifnull(input.TaxP,"")].Total_Rate;
if(get_tax_value == 0)
{
input.Gross_Value_Tax = 0;
// input.Grand_Total = ifnull(input.Gross_Total_after_Discount_PF,0.0);
}
else
{
Tax_calc = ifnull(input.Gross_with_Discount,0.0) * ifnull(get_tax_value,0.0) / 100;
input.Tax_Total = ifnull(Tax_calc,0.0);
input.Gross_Value_Tax = ifnull(Tax_calc,0.0);
input.Gross_Total_with_Discount = ifnull(input.Gross_with_Discount,0.0) + ifnull(input.Gross_Value_Tax,0.0);
// input.Grand_Total = ifnull(input.Gross_Total_after_Discount_PF,0.0) + ifnull(input.Tax_Total,0.0);
}
if(input.Packing_Forwarding > 0)
{
Tax_calc1 = ifnull(input.Packing_Forwarding,0.0) * ifnull(get_tax_value,0.0) / 100;
input.PF_Tax_value = ifnull(Tax_calc1,0.0);
input.PF_Total_with_tax = ifnull(input.Packing_Forwarding,0.0) + ifnull(input.PF_Tax_value,0.0);
}
input.Grand_Total = ifnull(input.Gross_Total_with_Discount,0.0) + ifnull(input.PF_Total_with_tax,0.0);
//new fields calculation ends
}
getsprice = Customer_Pricing_subform[Part_No == row.Part_No && Packaging == row.Packing_Std && Customer_Name == input.Customer_Name && sf_Status == "Active"];
row.Rate=getsprice.Settled_Price;
if(row.Rate != null && row.Qty != null && row.Tax != null)
{
get_tax_value = GST_Details[ID == ifnull(row.Tax,"")].Total_Rate;
Tax_calc = ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0) * ifnull(get_tax_value,0.0) / 100;
amount_calc = ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0);
row.Sub_Total=ifnull(amount_calc,0.00);
row.Tax_Value=Tax_calc;
row.Total_Amount=ifnull(amount_calc,0.0) + ifnull(Tax_calc,0.0);
tot = 0.0;
totqty = 0.0;
subtot = 0.0;
for each rec in Item_Details
{
tot = tot + ifnull(rec.Total_Amount,0.0);
totqty = totqty + ifnull(rec.Qty,0.0);
subtot = subtot + ifnull(rec.Sub_Total,0.0);
}
input.Item_Total = tot;
input.Overall_Total = ifnull(input.Item_Total,0.0) + ifnull(input.Extra_Charge_s_Total,0.0);
input.Total_Quantity = ifnull(totqty,0.0);
//new field calculation starts here - 1/4/2023
input.Gross_Total = ifnull(subtot,0.0);
if(input.Discount_Amount > 0)
{
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0) - ifnull(input.Discount_Amount,0.0);
}
else
{
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0);
}
get_tax_value = GST_Details[ID == ifnull(input.TaxP,"")].Total_Rate;
if(get_tax_value == 0)
{
input.Gross_Value_Tax = 0;
input.Gross_Total_with_Discount = ifnull(input.Gross_with_Discount,0.0);
}
else
{
Tax_calc = ifnull(input.Gross_with_Discount,0.0) * ifnull(get_tax_value,0.0) / 100;
input.Tax_Total = ifnull(Tax_calc,0.0);
input.Gross_Value_Tax = ifnull(Tax_calc,0.0);
input.Gross_Total_with_Discount = ifnull(input.Gross_with_Discount,0.0) + ifnull(input.Gross_Value_Tax,0.0);
}
if(input.Packing_Forwarding > 0)
{
if(get_tax_value == 0)
{
Tax_calc1 = 0;
}
else
{
Tax_calc1 = ifnull(input.Packing_Forwarding,0.0) * ifnull(get_tax_value,0.0) / 100;
}
input.PF_Tax_value = ifnull(Tax_calc1,0.0);
input.PF_Total_with_tax = ifnull(input.Packing_Forwarding,0.0) + ifnull(input.PF_Tax_value,0.0);
}
else
{
input.PF_Total_with_tax = 0;
}
input.Grand_Total = ifnull(input.Gross_Total_with_Discount,0.0) + ifnull(input.PF_Total_with_tax,0.0);
//new fields calculation ends
}
//For Adding subtotal field
if(row.Qty != null && row.Rate != null && row.Tax == null)
{
row.Sub_Total=row.Qty * row.Rate;
}
//rate is null
if(row.Rate == null)
{
row.Sub_Total=null;
row.Tax_Value=null;
row.Total_Amount=null;
}
//For Negative validation Check
for each var in input.Item_Details
{
var.Balance_Qty=var.Qty;
}
if(row.Qty <= 0 && row.Qty != null)
{
alert "Please enter positive values";
row.Qty=null;
}
else
{
if(row.Rate != null && row.Qty != null && row.Tax != null)
{
get_tax_value = GST_Details[ID == ifnull(row.Tax,"")].Total_Rate;
Tax_calc = ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0) * ifnull(get_tax_value,0.0) / 100;
amount_calc = ifnull(row.Qty,0.0) * ifnull(row.Rate,0.0);
row.Sub_Total=ifnull(amount_calc,0.00);
row.Tax_Value=Tax_calc;
row.Total_Amount=ifnull(amount_calc,0.0) + ifnull(Tax_calc,0.0);
tot = 0.0;
totqty = 0.0;
subtot = 0.0;
for each rec in Item_Details
{
tot = tot + ifnull(rec.Total_Amount,0.0);
totqty = totqty + ifnull(rec.Qty,0.0);
subtot = subtot + ifnull(rec.Sub_Total,0.0);
}
input.Item_Total = tot;
input.Overall_Total = ifnull(input.Item_Total,0.0) + ifnull(input.Extra_Charge_s_Total,0.0);
input.Total_Quantity = ifnull(totqty,0.0);
//new field calculation starts here - 1/4/2023
input.Gross_Total = ifnull(subtot,0.0);
if(input.Discount_Amount > 0)
{
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0) - ifnull(input.Discount_Amount,0.0);
}
else
{
input.Gross_with_Discount = ifnull(input.Gross_Total,0.0);
}
get_tax_value = GST_Details[ID == ifnull(input.TaxP,"")].Total_Rate;
if(get_tax_value == 0)
{
input.Gross_Value_Tax = 0;
input.Gross_Total_with_Discount = ifnull(input.Gross_with_Discount,0.0);
}
else
{
Tax_calc = ifnull(input.Gross_with_Discount,0.0) * ifnull(get_tax_value,0.0) / 100;
input.Tax_Total = ifnull(Tax_calc,0.0);
input.Gross_Value_Tax = ifnull(Tax_calc,0.0);
input.Gross_Total_with_Discount = ifnull(input.Gross_with_Discount,0.0) + ifnull(input.Gross_Value_Tax,0.0);
}
if(input.Packing_Forwarding > 0)
{
if(get_tax_value == 0)
{
Tax_calc1 = 0;
}
else
{
Tax_calc1 = ifnull(input.Packing_Forwarding,0.0) * ifnull(get_tax_value,0.0) / 100;
}
input.PF_Tax_value = ifnull(Tax_calc1,0.0);
input.PF_Total_with_tax = ifnull(input.Packing_Forwarding,0.0) + ifnull(input.PF_Tax_value,0.0);
}
else
{
input.PF_Total_with_tax = 0;
}
input.Grand_Total = ifnull(input.Gross_Total_with_Discount,0.0) + ifnull(input.PF_Total_with_tax,0.0);
//new fields calculation ends
}
//For Adding subtotal field
if(row.Qty != null && row.Rate != null && row.Tax == null)
{
row.Sub_Total=row.Qty * row.Rate;
}
fet_deli = Delivery_Schedule[Part_No == row.Part_No];
if(fet_deli.count() >= 1)
{
if(row.Qty > fet_deli.sum(Quantity))
{
fet_deli.Full_Quantity=false;
}
}
}
if(row.Delivery_Date <= zoho.currentdate)
{
alert "Please enter future dates only";
row.Delivery_Date=null;
}
else if(row.Delivery_Date != null)
{
check_same_date = 0;
coun = 1;
for each rec in input.Despatch_Schedule
{
if(rec.Part_No == row.Part_No && rec.Delivery_Date == row.Delivery_Date)
{
check_same_date = check_same_date + 1;
}
}
//alert check_same_date;
if(check_same_date == 2)
{
alert "Already you have chosen the same date for the same item.Please Choose different delivery date";
row.Delivery_Date=null;
}
}
i = 0;
for each rec in input.Product_Details
{
if(rec.S_NO != row.S_NO)
{
i = i + 1;
rec.S_NO=i;
}
}
//Another Deletion of row code for S_No below
for each r in input.Returnable_Packing_Material
{
b = r.S_No - 1;
r.S_No=b;
if(r.S_No < row.S_No)
{
b = b + 1;
r.S_No=b;
}
}
i = 0;
for each rec in input.Returnable_Packing_Material
{
i = i + 1;
row.S_No=i;
}
if(input.Dispatch_Type == "Actual")
{
disp = 0;
disp1 = 0;
bal = 0;
so = Sales_Order[ID == input.Sales_Order_ID];
wo = Work_Order[Sales_Order_Nos.Sale_Order_No == so.Sale_Order_No];
invmain = Invoice[ID == input.Invoice_ID];
invsub = Invoice_Subform[Invoice_Exist_ID == invmain.ID];
if(input.Sales_Type == "Direct Order" || input.Sales_Type == "Tooling")
{
if(so.CWPL_SO_Status == "Dispatch Note Partial")
{
so.CWPL_SO_Status="Invoice Created";
}
}
for each rec in input.Product_Details
{
invsub.Dispatch_Actual_Date_Time=rec.Disp_Actual_Date_Time;
disp = ifNull(rec.Actual_Qty,0) + disp;
rec.Ac_so_far=ifNull(rec.Actual_Qty_so_far,0) + ifNull(rec.Actual_Qty,0);
rec.Balance_Qty=ifNull(rec.Balance_Qty,0) - ifNull(rec.Actual_Qty,0);
rec.Edit_stk_qty=ifNull(rec.Actual_Qty,0);
so = Sales_Order[ID == input.Sales_Order_ID];
bal = ifNull(rec.Balance_Qty,0) + bal;
if(rec.Balance_Qty < 0 || rec.Balance_Qty == rec.Actual_Qty)
{
rec.Balance_Qty=0;
}
if(rec.Actual_Qty == rec.Planned_Qty)
{
rec.Sales_Lost_Qty=0.0;
}
getsosub = Sale_Order_Subform[Sales_Order_Exis_ID == so.ID && Part_No == rec.Product_Code];
if(so.count() > 0)
{
get_inven = Inventory[Part_No == rec.Product_Code && Location_Name.Location__Name == "FG Warehouse"];
getstk = Inventory[Part_No == rec.Product_Code && Location_Name.Location__Name == "FG Warehouse"];
fetwo = Work_Order[Sales_Order_Nos == input.Sales_Order_No];
blksosub = Sale_Order_Subform[Part_No == rec.Product_Code && Sales_Order_Exis_ID.Sale_Order_No == input.Sales_Order_No.Sale_Order_No];
wosub = Work_Order_Subform[Part_No == blksosub.Part_No];
getsoblk = Sales_Order[ID == input.Sales_Order_ID];
if(getsosub.Balance_Qty < 0 || getsosub.Balance_Qty == getsosub.Actual_Qty_So_far)
{
getsosub.Balance_Qty=0;
}
if(get_inven.count() > 0 && get_inven.Available_Qty > 0 && rec.Block_Qty == 0 && getsosub.DQR_Blk_Qty == null || getsosub.DQR_Blk_Qty <= 0 && getsosub.Logistics_Status != "Logistics Confirmed" || getsosub.Logistics_Status == "" || getsosub.Logistics_Status == null)
{
get_inven.Available_Qty=ifNull(get_inven.Available_Qty,0) - rec.Actual_Qty;
get_inven.Total_Qty=ifNull(get_inven.Total_Qty,0) - rec.Actual_Qty;
if(get_inven.Available_Qty < 0)
{
get_inven.Available_Qty=0;
get_inven.Total_Qty=0;
}
}
//Below code is to use the block qty for dispatch, only for the logistics confirmed Sale Order. ---Commented on 06/12/2024
if(getsoblk.count() > 0 && getsosub.DQR_Blk_Qty > 0 && getstk.Block_Qty > 0 && input.Sales_Order_No == fetwo.Sales_Order_Nos && getsosub.Logistics_Status == "Logistics Confirmed")
{
if(getstk.count() > 0 && rec.Product_Code == wosub.Part_No && rec.Actual_Qty <= rec.Block_Qty)
{
getstk.Block_Qty=ifNull(getstk.Block_Qty,0) - ifnull(rec.Actual_Qty,0);
getstk.Total_Qty=ifNull(getstk.Total_Qty,0) - ifnull(rec.Actual_Qty,0);
fetwo.WO_Status="Dispatched";
getsosub.WO_Status_in_sosub="Dispatched";
}
else if(getstk.count() > 0 && rec.Product_Code == wosub.Part_No && rec.Actual_Qty > rec.Block_Qty)
{
balc = rec.Actual_Qty - getstk.Block_Qty;
getstk.Block_Qty=0;
getstk.Available_Qty=ifNull(getstk.Available_Qty,0) - ifnull(balc,0);
getstk.Total_Qty=ifNull(getstk.Total_Qty,0) - ifnull(rec.Actual_Qty,0);
fetwo.WO_Status="Dispatched";
getsosub.WO_Status_in_sosub="Dispatched";
}
sendmail
[
from :zoho.loginuserid
to :"pooja.s@synprosoft.com"
subject :"Dispatch Successful form submission - using Block" + input.Sales_Order_No.Sale_Order_No
message :"Part No " + rec.Product_Code.Part_No + "TOT QTY-" + get_inven.Total_Qty + "AVL QTY-" + get_inven.Available_Qty + "BLK QTY-" + get_inven.Block_Qty + "ID-" + rec.ID + "Actual Qty=" + rec.Actual_Qty
]
}
getsosub.Actual_Qty_So_far=ifNull(getsosub.Actual_Qty_So_far,0) + ifNull(rec.Ac_so_far,0);
if(getsosub.count() > 0)
{
getsosub.Create_Dispatch_Note_Plan_ID=input.ID;
so.Create_Dispatch_Note_REC_ID=input.ID;
getsosub.Balance_Qty=ifnull(getsosub.Balance_Qty,0) - ifnull(rec.Ac_so_far,0);
if(getsosub.Balance_Qty > 0)
{
so.DP_Status=False;
}
getsosub.Planned_Qty_So_far=0;
}
input.Disptach_Status = "Approved";
}
}
//Below For-Each is for utilizing the Block Qty for dispatch
if(rec.Actual_Weight != rec.Product_Weight || rec.Actual_Weight == rec.Product_Weight)
{
thisapp.Books.DispatchEmailTemplate(input.ID);
}
sasub = Sale_Order_Subform[Sales_Order_Exis_ID == so.ID];
solist = List();
solist.addAll(so.Dispatch_Note_No);
solist.add(input.ID);
so.Dispatch_Note_No=solist;
so.Dispatch_Qty=sasub.sum(Actual_Qty_So_far);
so.Balance_Qty=sasub.sum(Balance_Qty);
//so.Dispatch_Qty=ifNull(so.Dispatch_Qty,0) + disp;
so.Shipped_Qty=so.Dispatch_Qty;
//so.Balance_Qty=bal;
openUrl("#Report:Dispatch_Note_Actual","same window");
thisapp.Update_Salesorder_Books(input.Sales_Order_ID,input.Dispatch_Type);
thisapp.DC.DCtoBooks(input.ID);
for each var in input.Returnable_Packing_Material
{
insdc = insert into Create_DC_Subform
[
Qty=var.Qty
Part_Description=var.Part_Name
Part_No=var.Part_No
S_No=var.S_No
Added_User=zoho.loginuser
];
}
//thisapp.Books.Dispatch_Note_Actual_In_Books(input.ID);
// thisapp.Books.Create_invoice_individual(input.ID);
thisapp.Books.Create_Packages(input.ID);
thisapp.Books.Create_Shipment(input.ID);
con = true;
for each sal in Sale_Order_Subform[Sales_Order_Exis_ID == so.ID]
{
if(sal.Balance_Qty > 0 && sal.Planned_Qty_So_far == null || sal.Planned_Qty_So_far == 0)
{
con = false;
}
}
so.DP_Status=con;
}
else if(input.Dispatch_Type == "Actual Edit")
{
dispt = 0;
balan = 0;
for each rec1 in input.Product_Details
{
getso = Sales_Order[ID == input.Sales_Order_ID];
getsosub = Sale_Order_Subform[Sales_Order_Exis_ID == input.Sales_Order_ID && Part_No == rec1.Product_Code];
getsosub.Actual_Qty_So_far=ifNull(getsosub.Actual_Qty_So_far,0) + ifNull(rec1.Actual_Qty,0);
getsosub.Balance_Qty=ifnull(getsosub.Balance_Qty,0) - ifnull(rec1.Actual_Qty,0);
getso = Sales_Order[ID == input.Sales_Order_ID];
balan = ifNull(getsosub.Balance_Qty,0) + balan;
dispt = ifNull(rec1.Actual_Qty,0) + dispt;
if(getsosub.Balance_Qty > 0)
{
so = Sales_Order[ID == input.Sales_Order_ID];
so.DP_Status=False;
}
// get_invent = Inventory[Part_No == rec1.Product_Code];
// if(get_invent.count() > 0)
// {
// if(get_invent.Total_Qty < get_invent.Available_Qty)
// {
// //get_invent.Total_Qty=get_invent.Available_Qty;
// }
// // get_invent.Available_Qty=ifNull(get_invent.Available_Qty,0) - rec1.Actual_Qty;
// // get_invent.Total_Qty=ifNull(get_invent.Total_Qty,0) - rec1.Actual_Qty;
// sendmail
// [
// from :zoho.loginuserid
// to :"parthasarathy.m@synprosoft.com"
// subject :"Edited>Successful form submission>OnSuccess_edited input.Dispatch_Type == Actual Edit"
// message :"PartNo " + get_inven.Part_No.Part_No + "Total Qty is " + get_inven.Total_Qty + "Available Qty.. " + get_inven.Available_Qty
// ]
// }
}
if(rec1.Actual_Weight != rec1.Product_Weight || rec1.Actual_Weight == rec1.Product_Weight)
{
thisapp.Books.DispatchEmailTemplate(input.ID);
}
subsa = Sale_Order_Subform[Sales_Order_Exis_ID == getso.ID];
getso.Dispatch_Qty=subsa.sum(Actual_Qty_So_far);
getso.Balance_Qty=subsa.sum(Balance_Qty);
//getso.Dispatch_Qty=dispt;
getso.Shipped_Qty=getso.Dispatch_Qty;
// getso.Balance_Qty=balan;
openUrl("#Report:Edit_Dispatch_Note_Actual","same window");
thisapp.Books.Edit_discpatch_note_actual_invoice(input.ID);
}
else
{
openUrl("#Report:Order_Gate_Process","same window");
}
fet_dis = Create_Dispatch_Note_Format[ID == input.ID];
insrec = insert into Dispatch_Note_Actual_History
[
Dispatch_Type=fet_dis.Dispatch_Type
Added_User=zoho.loginuser
CDNF_ID=fet_dis.CDNF_ID
Currency_Code=fet_dis.Currency_Code
Dispatch_Note_Date=fet_dis.Dispatch_Note_Date
Customer_Address=fet_dis.Customer_Address
Sales_Type=fet_dis.Sales_Type
Sales_Order_No=fet_dis.Sales_Order_No
Customer_Name=fet_dis.Customer_Name
Incoterms=fet_dis.Incoterms
Incoterms_Location=fet_dis.Incoterms_Location
Product_List=fet_dis.Product_List
Load_Products=fet_dis.Load_Products
Transport_Type=fet_dis.Transport_Type
Transporter_Name=fet_dis.Transporter_Name
Vehicle_No_dup=fet_dis.Vehicle_No_dup
GR_No=fet_dis.GR_No
Driver_Name=fet_dis.Driver_Name
Driver_Mobile_Number=fet_dis.Driver_Mobile_Number
Vehicle_Type=fet_dis.Vehicle_Type
Total_Qty=fet_dis.Total_Qty
Total_Weight=fet_dis.Total_Weight
];
for each recsub in input.Product_Details
{
subins = insert into Dispatch_Note_Actual_History_Subform
[
Added_User=zoho.loginuser
Dispatch_Note_Actual_History_Exis_ID=insrec
S_NO=recsub.S_NO
Product_Code=recsub.Product_Code
Product_Description=recsub.Product_Description
Customer_Product_Code=recsub.Customer_Product_Code
Packing_Details1=recsub.Packing_Details1
UoM=recsub.UoM
Planned_Qty=recsub.Planned_Qty
Plan_Qty_so_far=recsub.Plan_Qty_so_far
Product_Weight=recsub.Product_Weight
Actual_Qty=recsub.Actual_Qty
Ac_so_far=recsub.Ac_so_far
Actual_Qty_so_far=recsub.Actual_Qty_so_far
Actual_Weight=recsub.Actual_Weight
Remarks=recsub.Remarks
Reason=recsub.Reason
Individual=recsub.Individual
Stock_Qty=recsub.Stock_Qty
Ordered_Qty=recsub.Ordered_Qty
Balance_Qty=recsub.Balance_Qty
];
}
for each retmat in input.Returnable_Packing_Material
{
retins = insert into Returnable_Packing_Material_History
[
Qty=retmat.Qty
Part_No=retmat.Part_No
Part_Name=retmat.Part_Name
Added_User=zoho.loginuser
];
}
if(input.Dispatch_Type == "Gate")
{
invmain = Invoice[ID == input.Invoice_ID];
invsub = Invoice_Subform[Invoice_Exist_ID == invmain.ID];
invsub.Vehicle_Gate_in_Time=input.In_Time;
invsub.Vehicle_Gate_out_time=input.Out_Time;
}
if(input.Dispatch_Type == "Plan")
{
input.Plan_Date_Time = zoho.currenttime;
fetso = Sales_Order[ID == input.Sales_Order_ID];
invmain = Invoice[ID == input.Invoice_ID];
invsub = Invoice_Subform[Invoice_Exist_ID == invmain.ID];
if(input.Sales_Type == "Direct Order" || input.Sales_Type == "Tooling")
{
if(fetso.CWPL_SO_Status == "Active")
{
fetso.CWPL_SO_Status="Dispatch Note Partial";
}
}
var = True;
polist = List();
for each rec in input.Product_Details
{
invsub.Dispatch_Plan_Date_time=rec.Disp_Plan_Date_Time;
fetsosub = Sale_Order_Subform[Sales_Order_Exis_ID == fetso.ID && Part_No == rec.Product_Code];
polist.add(rec.Product_Code);
fetsosub.Planned_Qty_So_far=ifNull(rec.Plan_Qty_so_far,0) + ifNull(rec.Planned_Qty,0);
rec.Balance_Qty=ifNull(rec.Planned_Qty,0);
bal = ifnull(fetsosub.Balance_Qty,0.0) - ifnull(rec.Planned_Qty,0.0);
if(bal > 0)
{
var = False;
}
if(bal < 0)
{
fetsosub.Balance_Qty=0;
}
}
for each sorec in Sale_Order_Subform[Sales_Order_Exis_ID == fetso.ID && Part_No not in polist]
{
sobal = ifnull(sorec.Balance_Qty,0.0) - ifnull(sorec.Planned_Qty_So_far,0.0);
if(sobal > 0)
{
var = false;
}
if(sobal < 0)
{
sorec.Balance_Qty=0;
}
}
fetso.DP_Status=var;
if(fetso.DP_Status == True && fetso.CWPL_SO_Status == "Active" || fetso.CWPL_SO_Status == "Dispatch Note Partial")
{
fetso.CWPL_SO_Status="Dispatch Note Plan Completed";
}
input.Disptach_Status = "Plan Closed";
fetci = Check_Inventory[ID == input.Check_Inventory_ID];
if(fetci.count() > 0)
{
fetci.Create_Dispatch_Note_RECID=input.ID;
fetci.Status="Closed";
}
so = Sales_Order[ID == input.Sales_Order_ID];
if(so.count() > 0)
{
getsosub = Sale_Order_Subform[Sales_Order_Exis_ID == so.ID];
if(getsosub.count() > 0)
{
getsosub.Create_Dispatch_Note_Plan_ID=input.ID;
so.Create_Dispatch_Note_REC_ID=input.ID;
}
}
}
getmodule = Module_Master[Module_Name == "Dispatch Note"];
getauto = Auto_Generate_Numbers[Module_Name == getmodule.ID];
input.CDNF_ID = getauto.Module_Short_Name + "-" + getauto.Prefix + "-" + input.Auto_Number;
openUrl("#Form:Alert_Messages?Status=" + "DN1" + "&Value=" + input.CDNF_ID + "&zc_LoadIn=dialog","same window");
// if(input.Sales_Type == "Contract")
// {
clear Product_Details;
fet_so = Sales_Order[ID == input.Sales_Order_ID];
if(input.Load_Products == True)
{
show Product_Details;
show Total_Qty;
show Total_Weight;
sno = 0;
for each var in input.Product_List
{
a1 = Sale_Order_Subform[Sales_Order_Exis_ID == fet_so.ID && Part_No == var && Balance_Qty > 0];
planvar1 = ifNull(a1.Balance_Qty,0) - ifNull(a1.Planned_Qty_So_far,0);
if(a1.count() > 0)
{
fetch_inven = Inventory[Part_No == a1.Part_No].sum(Available_Qty);
row1 = Create_Dispatch_Note_Format.Product_Details();
row1.Sale_Order_Subform_ID=a1.ID;
row1.Product_Description=a1.Part_Description;
row1.Product_Code=a1.Part_No;
row1.Customer_Product_Code=a1.Customer_Part_Code;
row1.Remarks=a1.Remarks;
row1.UoM=a1.UoM;
row1.Packing_Details1=a1.Packing_Std;
//row1.Planned_Qty=a1.Qty;
row1.Ordered_Qty=a1.Qty;
// row1.Stock_Qty=fetch_inven;
row1.Plan_Qty_so_far=a1.Planned_Qty_So_far;
if(a1.Balance_Qty > 0 && planvar1 > 0)
{
row1.S_NO=sno + 1;
sno = sno + 1;
input.Product_Details.insert(row1);
}
disable Sale_Order_Subform_RECID;
disable Product_Details.S_NO;
disable Product_Details.Product_Code;
disable Product_Details.Product_Description;
}
}
if(input.Dispatch_Type == "Plan")
{
Total1 = 0;
wt = 0;
for each rec in input.Product_Details
{
fet_item = Materials[ID = rec.Product_Code];
salesub = Sale_Order_Subform[Sales_Order_Exis_ID == input.Sales_Order_ID && Part_No == rec.Product_Code];
rec.Planned_Qty=ifNull(salesub.Balance_Qty,0) - ifNull(salesub.Planned_Qty_So_far,0);
// rec.Stock_Qty=fetch_inven;
Total1 = Total1 + rec.Planned_Qty;
rec.Product_Weight=ifNull(fet_item.Final_Weight,0.0) * ifNull(rec.Planned_Qty,0.0);
wt = wt + rec.Product_Weight;
disable Total_Qty;
disable Total_Weight;
}
input.Total_Qty = Total1;
input.Total_Weight = wt;
}
}
//}
disable Product_Details.Ordered_Qty;
disable Product_Details.UoM;
//hide Product_Details.Individual;
hide CDNF_ID;
hide Currency_Code;
hide Actual_Date_Time;
disable Plan_Date_Time;
hide Export_Information_ID;
//hide Disptach_Status;
hide Sale_Order_Subform_RECID;
disable Incoterms;
hide Product_Details.Block_Qty;
disable Incoterms_Location;
hide DN_No;
disable Product_Details.Packing_Details1;
hide Product_Details.Export_Information_Exis_ID;
hide Product_Details.Reason;
hide Sales_Order_ID;
hide Inventory_ID;
hide Create_Dispatch_Note_Plan_ID;
hide Check_Inventory_ID;
hide Unblock_Inventory_ID;
hide Product_Details.Actual_Qty_so_far;
hide Product_Details.Plan_Qty_so_far;
hide Product_Details.Ac_so_far;
hide Product_Details.Stock_Qty;
disable Product_Details.Customer_Product_Code;
disable Product_Details.Product_Weight;
disable Sales_Type;
disable Product_Details.Remarks;
//hide Product_Details.Actual_Qty;
hide Product_Details.Create_Dispatch_Note_Plan_RECID;
hide Disptach_Status;
if(input.Dispatch_Type == "Plan")
{
input.Plan_Date_Time = zoho.currenttime;
hide Transportation_Details;
hide Returnable_Packing_Material;
hide Product_Details.Ordered_Qty;
hide Product_Details.Actual_Qty;
hide Product_Details.Actual_Weight;
}
if(input.Dispatch_Type == "Actual")
{
hide Product_Details.Ordered_Qty;
hide Out_Time;
hide In_Time;
disable Product_Details.Actual_Qty;
}
if(input.Sale_Order_Subform_RECID != null)
{
getSosub = Sale_Order_Subform[ID == input.Sale_Order_Subform_RECID];
input.Sales_Order_ID = getSosub.Sales_Order_Exis_ID;
input.Sales_Order_No = getSosub.Sales_Order_Exis_ID;
disable Sales_Order_No;
so = Sales_Order[ID == getSosub.Sales_Order_Exis_ID];
input.Expected_Shipping_Date = so.Expected_Shipment_Date;
//var = Check_Inventory[ID == input.ID];
fet_so = Sales_Order[ID == input.Sales_Order_ID];
getsosub = Sale_Order_Subform[Sales_Order_Exis_ID == fet_so.ID];
fet_chk = Check_Inventory[Sale_Order_Subform_ID == input.Sale_Order_Subform_RECID];
if(fet_chk.count() > 0)
{
input.Check_Inventory_ID = fet_chk.ID;
}
fet_pro = Proforma_Invoice[Customer_Name == fet_so.Customer_Name && Sales_Order_No == getsosub.Sales_Order_Exis_ID];
//fetch_inve = Inventory[Part_No == getsosub.Part_No];
input.Customer_Name = fet_so.Customer_Name;
input.Customer_Address = fet_so.Shipping_Address;
input.Incoterms = fet_so.Incoterms1;
input.Incoterms_Location = fet_so.Incoterms_Location;
input.Currency_Code = fet_so.Currency_Code;
input.Sales_Type = fet_so.Sales_Type;
input.Packing_Forwarding = fet_so.Packing_Forwarding;
if(input.Sales_Type == "Direct Order" || input.Sales_Type == "Tooling" || input.Sales_Type == "Research & Development Charges")
{
input.Expected_Shipping_Date = so.Expected_Shipment_Date;
hide Product_Details;
hide Total_Qty;
hide Total_Weight;
sublistdo = List();
sosub1 = Sale_Order_Subform[Sales_Order_Exis_ID == fet_so.ID && Balance_Qty > 0];
for each recsodo in sosub1
{
planvardo = ifNull(recsodo.Balance_Qty,0) - ifNull(recsodo.Planned_Qty_So_far,0);
if(planvardo > 0)
{
sublistdo.add(recsodo.Part_No);
}
}
input.Product_List:ui.add(sublistdo);
if(fet_pro.Proforma_Invoice_Status == "Over Due")
{
alert "Proforma Invoice is in OverDue for this Customer";
}
else if(fet_pro.Proforma_Invoice_Status == "Due")
{
alert "Proforma Invoice is in Due for this Customer";
}
else if(fet_pro.Proforma_Invoice_Status == "Partially Paid")
{
alert "Proforma Invoice is in Partially Paid for this Customer";
}
//input.Invoice_Address = fet_so.Billing_Address.state_province;
// sno = 0;
// for each a1 in fet_so.Item_Details
// {
// fetch_inven = Inventory[Part_No == a1.Part_No].sum(Available_Qty);
// row1 = Create_Dispatch_Note_Format.Product_Details();
// row1.Product_Description=a1.Part_Description;
// row1.Product_Code=a1.Part_No;
// row1.Customer_Product_Code=a1.Customer_Part_Code;
// row1.Remarks=a1.Remarks;
// row1.UoM=a1.UoM;
// row1.Packing_Details1=a1.Packing_Std;
// //row1.Planned_Qty=a1.Qty;
// row1.Ordered_Qty=a1.Qty;
// // row1.Stock_Qty=fetch_inven;
// row1.Plan_Qty_so_far=a1.Planned_Qty_So_far;
// planvar = ifNull(a1.Balance_Qty,0) - ifNull(a1.Planned_Qty_So_far,0);
// if(a1.Balance_Qty > 0 && planvar > 0)
// {
// row1.S_NO=sno + 1;
// sno = sno + 1;
// input.Product_Details.insert(row1);
// }
// disable Sale_Order_Subform_RECID;
// disable Product_Details.S_NO;
// disable Product_Details.Product_Code;
// disable Product_Details.Product_Description;
// }
// if(input.Dispatch_Type == "Plan")
// {
// Tot = 0;
// wt = 0;
// for each rec in input.Product_Details
// {
// rec.Disp_Plan_Date_Time=zoho.currenttime;
// fet_item = Materials[ID = rec.Product_Code];
// salesub = Sale_Order_Subform[Sales_Order_Exis_ID == input.Sales_Order_ID && Part_No == rec.Product_Code];
// rec.Planned_Qty=ifNull(salesub.Balance_Qty,0) - ifNull(salesub.Planned_Qty_So_far,0);
// // rec.Stock_Qty=fetch_inven;
// Tot = Tot + ifNull(rec.Planned_Qty,0);
// rec.Product_Weight=ifNull(fet_item.Final_Weight,0.0) * ifNull(rec.Planned_Qty,0.0);
// wt = wt + rec.Product_Weight;
// disable Total_Qty;
// disable Total_Weight;
// }
// input.Total_Qty = Tot;
// input.Total_Weight = wt;
// }
}
else if(input.Sales_Type == "Contract")
{
hide Product_Details;
hide Total_Qty;
hide Total_Weight;
sublist = List();
sosub = Sale_Order_Subform[Sales_Order_Exis_ID == fet_so.ID && Balance_Qty > 0];
for each recso in sosub
{
planvar1 = ifNull(recso.Balance_Qty,0) - ifNull(recso.Planned_Qty_So_far,0);
if(planvar1 > 0)
{
sublist.add(recso.Part_No);
}
}
input.Product_List:ui.add(sublist);
}
}
/*----------------------------------------------------Level 1------------------------------------------------------------*/
//Checking if row.Level == 1, then run all the levels
if(row.Level == "Level-1")
{
for each cwplrec in input.BoM_Details_CWPL
{
//LEVEL-1
if(cwplrec.Level == "Level-1")
{
for each lis1 in Create_BOM[Part_No == cwplrec.Part_No]
{
for each var in input.BoM_Details_CWPL
{
if(var.Part_No.Part_No == lis1.Material_Details.Part_No.Part_No)
{
var.BoM_Qty=cwplrec.Actual_Qty;
var.Actual_Qty=ifnull(var.BoM_Qty,0.0) * ifnull(var.bom_stk_qty,0.0) - ifnull(var.Stock_Qty,0.0);
var.Plan_Qty=var.Actual_Qty;
}
if(var.Stock_Qty > var.BoM_Qty)
{
var.Blocked_Qty=var.Actual_Qty;
}
if(var.Stock_Qty != 0 && var.Blocked_Qty > var.Stock_Qty || var.Stock_Qty < var.BoM_Qty)
{
var.Blocked_Qty=var.Stock_Qty;
}
//Below Foreach is for General Purchase calculation
for each vargp in input.BoM_Details_General_Purchase
{
row.Tot_BoM_Qty=ifnull(input.MRP_Qty,0) * ifnull(row.bom_stk_qty,0.0);
if(vargp.Part_No.Part_No.startswith("BT") == true || vargp.Part_No.Part_No.startswith("NT") == true || vargp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var.Part_No.Part_No.contains("_UP") == true)
{
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
vargp.BoM_Qty=ifnull(var.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(vargp.BoM_Qty,0) * ifnull(vargp.Org_BoM_Qty,0.0) - ifnull(vargp.Stock_Qty,0) >= 0)
{
vargp.Plan_Qty=ifnull(vargp.BoM_Qty,0) * ifnull(vargp.Org_BoM_Qty,0.0) - ifnull(vargp.Stock_Qty,0);
}
else
{
vargp.Plan_Qty=ifnull(vargp.Stock_Qty,0) - ifnull(vargp.BoM_Qty,0) * ifnull(vargp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
vargp.Purchase_Qty=ifnull(vargp.Plan_Qty,0);
}
}
else
{
if(vargp.Level == var.Level && vargp.Level == "Level-1")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
vargp.BoM_Qty=var.Actual_Qty;
if(ifnull(vargp.BoM_Qty,0) * ifnull(vargp.Org_BoM_Qty,0.0) - ifnull(vargp.Stock_Qty,0) >= 0)
{
vargp.Plan_Qty=ifnull(vargp.BoM_Qty,0) * ifnull(vargp.Org_BoM_Qty,0.0) - ifnull(vargp.Stock_Qty,0);
}
else
{
vargp.Plan_Qty=ifnull(vargp.Stock_Qty,0) - ifnull(vargp.BoM_Qty,0) * ifnull(vargp.Org_BoM_Qty,0.0);
}
vargp.Purchase_Qty=vargp.Plan_Qty;
}
}
}
}
}
}
//LEVEL-2
if(cwplrec.Level == "Level-2")
{
info "level2";
info cwplrec.Actual_Qty;
for each lis2 in Create_BOM[Part_No == cwplrec.Part_No]
{
for each var2 in input.BoM_Details_CWPL
{
if(var2.Part_No.Part_No == lis2.Material_Details.Part_No.Part_No)
{
var2.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var2.BoM_Qty=cwplrec.Actual_Qty;
var2.Actual_Qty=ifnull(var2.BoM_Qty,0.0) * ifnull(var2.bom_stk_qty,0.0) - ifnull(var2.Stock_Qty,0.0);
var2.Plan_Qty=var2.Actual_Qty;
}
if(var2.Stock_Qty > var2.BoM_Qty)
{
var2.Blocked_Qty=var2.Actual_Qty;
}
if(var2.Stock_Qty != 0 && var2.Blocked_Qty > var2.Stock_Qty || var2.Stock_Qty < var2.BoM_Qty)
{
var2.Blocked_Qty=var2.Stock_Qty;
}
for each var2gp in input.BoM_Details_General_Purchase
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
if(var2gp.Part_No.Part_No.startswith("BT") == true || var2gp.Part_No.Part_No.startswith("NT") == true || var2gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var2.Part_No.Part_No.contains("_UP") == true)
{
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var2gp.BoM_Qty=ifnull(var2.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0) >= 0)
{
var2gp.Plan_Qty=ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0);
}
else
{
var2gp.Plan_Qty=ifnull(var2gp.Stock_Qty,0) - ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var2gp.Purchase_Qty=ifnull(var2gp.Plan_Qty,0);
}
}
else
{
if(var2gp.Level == var2.Level && var2gp.Level == "Level-2")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var2gp.BoM_Qty=var2.Actual_Qty;
//var2gp.Plan_Qty=ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0) >= 0)
{
var2gp.Plan_Qty=ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0);
}
else
{
var2gp.Plan_Qty=ifnull(var2gp.Stock_Qty,0) - ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0);
}
var2gp.Purchase_Qty=var2gp.Plan_Qty;
}
}
}
}
}
//cwplrec.Plan_Qty=ifnull(cwplrec.BoM_Qty,0.0) * ifnull(cwplrec.bom_stk_qty,0.0) - ifnull(cwplrec.Stock_Qty,0.0);
//cwplrec.Actual_Qty=cwplrec.Plan_Qty;
}
//LEVEL-3
if(cwplrec.Level == "Level-3")
{
for each lis3 in Create_BOM[Part_No == cwplrec.Part_No]
{
for each var3 in input.BoM_Details_CWPL
{
if(var3.Part_No.Part_No == lis3.Material_Details.Part_No.Part_No)
{
var3.Tot_BoM_Qty=ifnull(var3.BoM_Qty,0) * ifnull(var3.bom_stk_qty,0.0);
var3.BoM_Qty=cwplrec.Actual_Qty;
var3.Actual_Qty=ifnull(var3.BoM_Qty,0.0) * ifnull(var3.bom_stk_qty,0.0) - ifnull(var3.Stock_Qty,0.0);
var3.Plan_Qty=var3.Actual_Qty;
}
if(var3.Stock_Qty > var3.BoM_Qty)
{
var3.Blocked_Qty=var3.Actual_Qty;
}
if(var3.Stock_Qty != 0 && var3.Blocked_Qty > var3.Stock_Qty || var3.Stock_Qty < var3.BoM_Qty)
{
var3.Blocked_Qty=var3.Stock_Qty;
}
for each var3gp in input.BoM_Details_General_Purchase
{
if(var3gp.Part_No.Part_No.startswith("BT") == true || var3gp.Part_No.Part_No.startswith("NT") == true || var3gp.Part_No.Part_No.startswith("WS") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var3.Part_No.Part_No.contains("_UP") == true)
{
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var3gp.BoM_Qty=ifnull(var3.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0) >= 0)
{
var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
}
else
{
var3gp.Plan_Qty=ifnull(var3gp.Stock_Qty,0) - ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var3gp.Purchase_Qty=ifnull(var3gp.Plan_Qty,0);
}
}
else
{
if(var3gp.Level == var3.Level && var3gp.Level == "Level-3")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var3gp.BoM_Qty=var3.Actual_Qty;
//var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0) >= 0)
{
var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
}
else
{
var3gp.Plan_Qty=ifnull(var3gp.Stock_Qty,0) - ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var3gp.Purchase_Qty=var3gp.Plan_Qty;
}
}
}
}
}
//cwplrec.Plan_Qty=ifnull(cwplrec.BoM_Qty,0.0) * ifnull(cwplrec.bom_stk_qty,0.0) - ifnull(cwplrec.Stock_Qty,0.0);
//cwplrec.Actual_Qty=cwplrec.Plan_Qty;
}
//LEVEL-4
if(cwplrec.Level == "Level-4")
{
for each lis4 in Create_BOM[Part_No == cwplrec.Part_No]
{
for each var4 in input.BoM_Details_CWPL
{
if(var4.Part_No.Part_No == lis4.Material_Details.Part_No.Part_No)
{
var4.Tot_BoM_Qty=ifnull(var4.Actual_Qty,0) * ifnull(var4.bom_stk_qty,0.0);
var4.BoM_Qty=cwplrec.Actual_Qty;
var4.Actual_Qty=ifnull(var4.BoM_Qty,0.0) * ifnull(var4.bom_stk_qty,0.0) - ifnull(var4.Stock_Qty,0.0);
var4.Plan_Qty=var4.Actual_Qty;
}
if(var4.Stock_Qty > var4.BoM_Qty)
{
var4.Blocked_Qty=var4.Actual_Qty;
}
if(var4.Stock_Qty != 0 && var4.Blocked_Qty > var4.Stock_Qty || var4.Stock_Qty < var4.BoM_Qty)
{
var4.Blocked_Qty=var4.Stock_Qty;
}
for each var4gp in input.BoM_Details_General_Purchase
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
if(var4gp.Part_No.Part_No.startswith("BT") == true || var4gp.Part_No.Part_No.startswith("NT") == true || var4gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var4.Part_No.Part_No.contains("_UP") == true)
{
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var4gp.BoM_Qty=ifnull(var4.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=ifnull(var4gp.Plan_Qty,0);
}
}
else
{
if(var4gp.Level == var4.Level && var4gp.Level == "Level-4")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var4gp.BoM_Qty=var4.Actual_Qty;
// var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=var4gp.Plan_Qty;
}
}
}
}
}
//cwplrec.Plan_Qty=ifnull(cwplrec.BoM_Qty,0.0) * ifnull(cwplrec.bom_stk_qty,0.0) - ifnull(cwplrec.Stock_Qty,0.0);
//cwplrec.Actual_Qty=cwplrec.Plan_Qty;
}
//LEVEL-5
if(cwplrec.Level == "Level-5")
{
for each lis5 in Create_BOM[Part_No == cwplrec.Part_No]
{
for each var5 in input.BoM_Details_CWPL
{
if(var5.Part_No.Part_No == lis5.Material_Details.Part_No.Part_No)
{
var5.Tot_BoM_Qty=ifnull(var5.Actual_Qty,0) * ifnull(var5.bom_stk_qty,0.0);
var5.BoM_Qty=cwplrec.Actual_Qty;
var5.Actual_Qty=ifnull(var5.BoM_Qty,0.0) * ifnull(var5.bom_stk_qty,0.0) - ifnull(var5.Stock_Qty,0.0);
var5.Plan_Qty=var5.Actual_Qty;
}
for each var5gp in input.BoM_Details_General_Purchase
{
if(var5gp.Level == var5.Level && var5gp.Level == "Level-5")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5gp.BoM_Qty=var5.Actual_Qty;
// var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=var5gp.Plan_Qty;
}
}
}
}
//cwplrec.Plan_Qty=ifnull(cwplrec.BoM_Qty,0.0) * ifnull(cwplrec.bom_stk_qty,0.0) - ifnull(cwplrec.Stock_Qty,0.0);
//cwplrec.Actual_Qty=cwplrec.Plan_Qty;
}
}
//Foreach Ends
}
//Level1 checking close
/*----------------------------------------------------Level 2------------------------------------------------------------*/
//Checking if row.Level == 2, then run all the levels >=2
if(row.Level == "Level-2")
{
for each cwplrec2 in input.BoM_Details_CWPL
{
//LEVEL-2
if(cwplrec2.Level == "Level-2")
{
for each lis2 in Create_BOM[Part_No == cwplrec2.Part_No]
{
for each var2 in input.BoM_Details_CWPL
{
if(var2.Part_No.Part_No == lis2.Material_Details.Part_No.Part_No)
{
var2.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var2.BoM_Qty=cwplrec2.Actual_Qty;
var2.Actual_Qty=ifnull(var2.BoM_Qty,0.0) * ifnull(var2.bom_stk_qty,0.0) - ifnull(var2.Stock_Qty,0.0);
var2.Plan_Qty=var2.Actual_Qty;
}
for each var2gp in input.BoM_Details_General_Purchase
{
if(var2gp.Part_No.Part_No.startswith("BT") == true || var2gp.Part_No.Part_No.startswith("NT") == true || var2gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var2.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var2gp.BoM_Qty=ifnull(var2.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0) >= 0)
{
var2gp.Plan_Qty=ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0);
}
else
{
var2gp.Plan_Qty=ifnull(var2gp.Stock_Qty,0) - ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var2gp.Purchase_Qty=ifnull(var2gp.Plan_Qty,0);
}
}
else
{
if(var2gp.Level == var2.Level && var2gp.Level == "Level-2")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var2gp.BoM_Qty=var2.Actual_Qty;
//var2gp.Plan_Qty=ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0) >= 0)
{
var2gp.Plan_Qty=ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0) - ifnull(var2gp.Stock_Qty,0);
}
else
{
var2gp.Plan_Qty=ifnull(var2gp.Stock_Qty,0) - ifnull(var2gp.BoM_Qty,0) * ifnull(var2gp.Org_BoM_Qty,0.0);
}
var2gp.Purchase_Qty=var2gp.Plan_Qty;
}
}
}
}
}
//cwplrec2.Plan_Qty=ifnull(cwplrec2.BoM_Qty,0.0) * ifnull(cwplrec2.bom_stk_qty,0.0) - ifnull(cwplrec2.Stock_Qty,0.0);
//cwplrec2.Actual_Qty=cwplrec2.Plan_Qty;
}
//LEVEL-3
if(cwplrec2.Level == "Level-3")
{
for each lis3 in Create_BOM[Part_No == cwplrec2.Part_No]
{
for each var3 in input.BoM_Details_CWPL
{
if(var3.Part_No.Part_No == lis3.Material_Details.Part_No.Part_No)
{
var3.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var3.BoM_Qty=cwplrec2.Actual_Qty;
var3.Actual_Qty=ifnull(var3.BoM_Qty,0.0) * ifnull(var3.bom_stk_qty,0.0) - ifnull(var3.Stock_Qty,0.0);
var3.Plan_Qty=var3.Actual_Qty;
}
for each var3gp in input.BoM_Details_General_Purchase
{
if(var3gp.Part_No.Part_No.startswith("BT") == true || var3gp.Part_No.Part_No.startswith("NT") == true || var3gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var3.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var3gp.BoM_Qty=ifnull(var3.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0) >= 0)
{
var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
}
else
{
var3gp.Plan_Qty=ifnull(var3gp.Stock_Qty,0) - ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var3gp.Purchase_Qty=ifnull(var3gp.Plan_Qty,0);
}
}
else
{
if(var3gp.Level == var3.Level && var3gp.Level == "Level-3")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var3gp.BoM_Qty=var3.Actual_Qty;
//var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0) >= 0)
{
var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
}
else
{
var3gp.Plan_Qty=ifnull(var3gp.Stock_Qty,0) - ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var3gp.Purchase_Qty=var3gp.Plan_Qty;
}
}
}
}
}
//cwplrec2.Plan_Qty=ifnull(cwplrec2.BoM_Qty,0.0) * ifnull(cwplrec2.bom_stk_qty,0.0) - ifnull(cwplrec2.Stock_Qty,0.0);
//cwplrec2.Actual_Qty=cwplrec2.Plan_Qty;
}
//LEVEL-4
if(cwplrec2.Level == "Level-4")
{
for each lis4 in Create_BOM[Part_No == cwplrec2.Part_No]
{
for each var4 in input.BoM_Details_CWPL
{
if(var4.Part_No.Part_No == lis4.Material_Details.Part_No.Part_No)
{
var4.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var4.BoM_Qty=cwplrec2.Actual_Qty;
var4.Actual_Qty=ifnull(var4.BoM_Qty,0.0) * ifnull(var4.bom_stk_qty,0.0) - ifnull(var4.Stock_Qty,0.0);
var4.Plan_Qty=var4.Actual_Qty;
}
for each var4gp in input.BoM_Details_General_Purchase
{
if(var4gp.Part_No.Part_No.startswith("BT") == true || var4gp.Part_No.Part_No.startswith("NT") == true || var4gp.Part_No.Part_No.startswith("WS") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var4.Part_No.Part_No.contains("_UP") == true)
{
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var4gp.BoM_Qty=ifnull(var4.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=ifnull(var4gp.Plan_Qty,0);
}
}
else
{
if(var4gp.Level == var4.Level && var4gp.Level == "Level-4")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var4gp.BoM_Qty=var4.Actual_Qty;
// var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=var4gp.Plan_Qty;
}
}
}
}
}
//cwplrec2.Plan_Qty=ifnull(cwplrec2.BoM_Qty,0.0) * ifnull(cwplrec2.bom_stk_qty,0.0) - ifnull(cwplrec2.Stock_Qty,0.0);
//cwplrec2.Actual_Qty=cwplrec2.Plan_Qty;
}
//LEVEL-5
if(cwplrec2.Level == "Level-5")
{
for each lis5 in Create_BOM[Part_No == cwplrec2.Part_No]
{
for each var5 in input.BoM_Details_CWPL
{
if(var5.Part_No.Part_No == lis5.Material_Details.Part_No.Part_No)
{
var5.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5.BoM_Qty=cwplrec2.Actual_Qty;
var5.Actual_Qty=ifnull(var5.BoM_Qty,0.0) * ifnull(var5.bom_stk_qty,0.0) - ifnull(var5.Stock_Qty,0.0);
var5.Plan_Qty=var5.Actual_Qty;
}
for each var5gp in input.BoM_Details_General_Purchase
{
if(var5gp.Part_No.Part_No.startswith("BT") == true || var5gp.Part_No.Part_No.startswith("NT") == true || var5gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var5.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var5gp.BoM_Qty=ifnull(var5.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=ifnull(var5gp.Plan_Qty,0);
}
}
else
{
if(var5gp.Level == var5.Level && var5gp.Level == "Level-5")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5gp.BoM_Qty=var5.Actual_Qty;
// var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=var5gp.Plan_Qty;
}
}
}
}
}
//cwplrec2.Plan_Qty=ifnull(cwplrec2.BoM_Qty,0.0) * ifnull(cwplrec2.bom_stk_qty,0.0) - ifnull(cwplrec2.Stock_Qty,0.0);
//cwplrec2.Actual_Qty=cwplrec2.Plan_Qty;
}
}
}
//Level 2 checking close
/*----------------------------------------------------Level 3------------------------------------------------------------*/
////Checking if row.Level == 3, then run all the levels >=3
if(row.Level == "Level-3")
{
for each cwplrec3 in input.BoM_Details_CWPL
{
//LEVEL-3
if(cwplrec3.Level == "Level-3")
{
for each lis3 in Create_BOM[Part_No == cwplrec3.Part_No]
{
for each var3 in input.BoM_Details_CWPL
{
if(var3.Part_No.Part_No == lis3.Material_Details.Part_No.Part_No)
{
var3.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var3.BoM_Qty=cwplrec3.Actual_Qty;
var3.Actual_Qty=ifnull(var3.BoM_Qty,0.0) * ifnull(var3.bom_stk_qty,0.0) - ifnull(var3.Stock_Qty,0.0);
var3.Plan_Qty=var3.Actual_Qty;
}
for each var3gp in input.BoM_Details_General_Purchase
{
if(var3gp.Part_No.Part_No.startswith("BT") == true || var3gp.Part_No.Part_No.startswith("NT") == true || var3gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var3.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var3gp.BoM_Qty=ifnull(var3.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0) >= 0)
{
var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
}
else
{
var3gp.Plan_Qty=ifnull(var3gp.Stock_Qty,0) - ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var3gp.Purchase_Qty=ifnull(var3gp.Plan_Qty,0);
}
}
else
{
if(var3gp.Level == var3.Level && var3gp.Level == "Level-3")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var3gp.BoM_Qty=var3.Actual_Qty;
//var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0) >= 0)
{
var3gp.Plan_Qty=ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0) - ifnull(var3gp.Stock_Qty,0);
}
else
{
var3gp.Plan_Qty=ifnull(var3gp.Stock_Qty,0) - ifnull(var3gp.BoM_Qty,0) * ifnull(var3gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var3gp.Purchase_Qty=var3gp.Plan_Qty;
}
}
}
}
}
//cwplrec3.Plan_Qty=ifnull(cwplrec3.BoM_Qty,0.0) * ifnull(cwplrec3.bom_stk_qty,0.0) - ifnull(cwplrec3.Stock_Qty,0.0);
//cwplrec3.Actual_Qty=cwplrec3.Plan_Qty;
}
//LEVEL-4
if(cwplrec3.Level == "Level-4")
{
for each lis4 in Create_BOM[Part_No == cwplrec3.Part_No]
{
for each var4 in input.BoM_Details_CWPL
{
if(var4.Part_No.Part_No == lis4.Material_Details.Part_No.Part_No)
{
var4.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var4.BoM_Qty=cwplrec3.Actual_Qty;
var4.Actual_Qty=ifnull(var4.BoM_Qty,0.0) * ifnull(var4.bom_stk_qty,0.0) - ifnull(var4.Stock_Qty,0.0);
var4.Plan_Qty=var4.Actual_Qty;
}
for each var4gp in input.BoM_Details_General_Purchase
{
if(var4gp.Part_No.Part_No.startswith("BT") == true || var4gp.Part_No.Part_No.startswith("NT") == true || var4gp.Part_No.Part_No.startswith("WS") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var4.Part_No.Part_No.contains("_UP") == true)
{
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var4gp.BoM_Qty=ifnull(var4.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=ifnull(var4gp.Plan_Qty,0);
}
}
else
{
if(var4gp.Level == var4.Level && var4gp.Level == "Level-4")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var4gp.BoM_Qty=var4.Actual_Qty;
// var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=var4gp.Plan_Qty;
}
}
}
}
}
//cwplrec3.Plan_Qty=ifnull(cwplrec3.BoM_Qty,0.0) * ifnull(cwplrec3.bom_stk_qty,0.0) - ifnull(cwplrec3.Stock_Qty,0.0);
//cwplrec3.Actual_Qty=cwplrec3.Plan_Qty;
}
//LEVEL-5
if(cwplrec3.Level == "Level-5")
{
for each lis5 in Create_BOM[Part_No == cwplrec3.Part_No]
{
for each var5 in input.BoM_Details_CWPL
{
if(var5.Part_No.Part_No == lis5.Material_Details.Part_No.Part_No)
{
var5.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5.BoM_Qty=cwplrec3.Actual_Qty;
var5.Actual_Qty=ifnull(var5.BoM_Qty,0.0) * ifnull(var5.bom_stk_qty,0.0) - ifnull(var5.Stock_Qty,0.0);
var5.Plan_Qty=var5.Actual_Qty;
}
for each var5gp in input.BoM_Details_General_Purchase
{
if(var5gp.Part_No.Part_No.startswith("BT") == true || var5gp.Part_No.Part_No.startswith("NT") == true || var5gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var5.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var5gp.BoM_Qty=ifnull(var5.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=ifnull(var5gp.Plan_Qty,0);
}
}
else
{
if(var5gp.Level == var5.Level && var5gp.Level == "Level-5")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5gp.BoM_Qty=var5.Actual_Qty;
// var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=var5gp.Plan_Qty;
}
}
}
}
}
//cwplrec3.Plan_Qty=ifnull(cwplrec3.BoM_Qty,0.0) * ifnull(cwplrec3.bom_stk_qty,0.0) - ifnull(cwplrec3.Stock_Qty,0.0);
//cwplrec3.Actual_Qty=cwplrec3.Plan_Qty;
}
}
}
//Level 3 checking close
/*----------------------------------------------------Level 4------------------------------------------------------------*/
//Checking if row.Level == 4, then run all the levels >=4
if(row.Level == "Level-4")
{
for each cwplrec4 in input.BoM_Details_CWPL
{
//LEVEL-4
if(cwplrec4.Level == "Level-4")
{
for each lis4 in Create_BOM[Part_No == cwplrec4.Part_No]
{
for each var4 in input.BoM_Details_CWPL
{
if(var4.Part_No.Part_No == lis4.Material_Details.Part_No.Part_No)
{
var4.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var4.BoM_Qty=cwplrec4.Actual_Qty;
var4.Actual_Qty=ifnull(var4.BoM_Qty,0.0) * ifnull(var4.bom_stk_qty,0.0) - ifnull(var4.Stock_Qty,0.0);
var4.Plan_Qty=var4.Actual_Qty;
}
for each var4gp in input.BoM_Details_General_Purchase
{
if(var4gp.Part_No.Part_No.startswith("BT") == true || var4gp.Part_No.Part_No.startswith("NT") == true || var4gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var4.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var4gp.BoM_Qty=ifnull(var4.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=ifnull(var4gp.Plan_Qty,0);
}
}
else
{
if(var4gp.Level == var4.Level && var4gp.Level == "Level-4")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var4gp.BoM_Qty=var4.Actual_Qty;
// var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0) >= 0)
{
var4gp.Plan_Qty=ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0) - ifnull(var4gp.Stock_Qty,0);
}
else
{
var4gp.Plan_Qty=ifnull(var4gp.Stock_Qty,0) - ifnull(var4gp.BoM_Qty,0) * ifnull(var4gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var4gp.Purchase_Qty=var4gp.Plan_Qty;
}
}
}
}
}
//cwplrec4.Plan_Qty=ifnull(cwplrec4.BoM_Qty,0.0) * ifnull(cwplrec4.bom_stk_qty,0.0) - ifnull(cwplrec4.Stock_Qty,0.0);
//cwplrec4.Actual_Qty=cwplrec4.Plan_Qty;
}
//LEVEL-5
if(cwplrec4.Level == "Level-5")
{
for each lis5 in Create_BOM[Part_No == cwplrec4.Part_No]
{
for each var5 in input.BoM_Details_CWPL
{
if(var5.Part_No.Part_No == lis5.Material_Details.Part_No.Part_No)
{
var5.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5.BoM_Qty=cwplrec4.Actual_Qty;
var5.Actual_Qty=ifnull(var5.BoM_Qty,0.0) * ifnull(var5.bom_stk_qty,0.0) - ifnull(var5.Stock_Qty,0.0);
var5.Plan_Qty=var5.Actual_Qty;
}
for each var5gp in input.BoM_Details_General_Purchase
{
if(var5gp.Part_No.Part_No.startswith("BT") == true || var5gp.Part_No.Part_No.startswith("NT") == true || var5gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var5.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var5gp.BoM_Qty=ifnull(var5.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=ifnull(var5gp.Plan_Qty,0);
}
}
else
{
if(var5gp.Level == var5.Level && var5gp.Level == "Level-5")
{
var5gp.BoM_Qty=var5.Actual_Qty;
// var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=var5gp.Plan_Qty;
}
}
}
}
}
//cwplrec4.Plan_Qty=ifnull(cwplrec4.BoM_Qty,0.0) * ifnull(cwplrec4.bom_stk_qty,0.0) - ifnull(cwplrec4.Stock_Qty,0.0);
//cwplrec4.Actual_Qty=cwplrec4.Plan_Qty;
}
}
}
//Level 4 checking close
/*----------------------------------------------------Level 5------------------------------------------------------------*/
//Checking if row.Level == 5, then run all the levels >=5
if(row.Level == "Level-5")
{
for each cwplrec5 in input.BoM_Details_CWPL
{
//LEVEL-5
if(cwplrec5.Level == "Level-5")
{
for each lis5 in Create_BOM[Part_No == cwplrec5.Part_No]
{
for each var5 in input.BoM_Details_CWPL
{
if(var5.Part_No.Part_No == lis5.Material_Details.Part_No.Part_No)
{
var5.Tot_BoM_Qty=ifnull(row.Actual_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5.BoM_Qty=cwplrec5.Actual_Qty;
var5.Actual_Qty=ifnull(var5.BoM_Qty,0.0) * ifnull(var5.bom_stk_qty,0.0) - ifnull(var5.Stock_Qty,0.0);
var5.Plan_Qty=var5.Actual_Qty;
}
if(var5.Stock_Qty > var5.BoM_Qty)
{
var5.Blocked_Qty=var5.Actual_Qty;
}
if(var5.Stock_Qty != 0 && var5.Blocked_Qty > var5.Stock_Qty || var5.Stock_Qty < var5.BoM_Qty)
{
var5.Blocked_Qty=var5.Stock_Qty;
}
for each var5gp in input.BoM_Details_General_Purchase
{
if(var5gp.Part_No.Part_No.startswith("BT") == true || var5gp.Part_No.Part_No.startswith("NT") == true || var5gp.Part_No.Part_No.startswith("WS") == true)
{
//If the CWPL is RIM, Corresponding General Pruchase is BT,NT,WS -->So this line is written to check the General Purchase.
if(var5.Part_No.Part_No.contains("_UP") == true)
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
//If RIM means, var.Actual_qty should be passed to this BOM_Qty
var5gp.BoM_Qty=ifnull(var5.Actual_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=ifnull(var5gp.Plan_Qty,0);
}
}
else
{
if(var5gp.Level == var5.Level && var5gp.Level == "Level-5")
{
row.Tot_BoM_Qty=ifnull(row.BoM_Qty,0) * ifnull(row.bom_stk_qty,0.0);
var5gp.BoM_Qty=var5.Actual_Qty;
// var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
//Below ifelse is to check negative value
if(ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0) >= 0)
{
var5gp.Plan_Qty=ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0) - ifnull(var5gp.Stock_Qty,0);
}
else
{
var5gp.Plan_Qty=ifnull(var5gp.Stock_Qty,0) - ifnull(var5gp.BoM_Qty,0) * ifnull(var5gp.Org_BoM_Qty,0.0);
}
//Above ifelse ends here
var5gp.Purchase_Qty=var5gp.Plan_Qty;
}
}
}
}
}
//cwplrec5.Plan_Qty=ifnull(cwplrec5.BoM_Qty,0.0) * ifnull(cwplrec5.bom_stk_qty,0.0) - ifnull(cwplrec5.Stock_Qty,0.0);
//cwplrec5.Actual_Qty=cwplrec5.Plan_Qty;
}
}
}
//Level 5 checking close
for each rec in input.BoM_Details_CWPL
{
if(rec.Actual_Qty < 0)
{
rec.Actual_Qty=0;
rec.Plan_Qty=0;
rec.BoM_Qty=0;
}
if(rec.Blocked_Qty < 0)
{
rec.Blocked_Qty=0;
}
if(rec.Stock_Qty > rec.BoM_Qty)
{
rec.Blocked_Qty=rec.Actual_Qty;
}
if(rec.Stock_Qty != 0 && rec.Blocked_Qty > rec.Stock_Qty || rec.Stock_Qty < rec.BoM_Qty)
{
rec.Blocked_Qty=rec.Stock_Qty;
}
}
for each rec1 in input.BoM_Details_General_Purchase
{
if(rec1.Blocked_Qty < 0)
{
rec1.Blocked_Qty=0;
}
if(rec1.Purchase_Qty < 0 || rec1.BoM_Qty < 0)
{
rec1.Purchase_Qty=0;
rec1.Plan_Qty=0;
rec1.BoM_Qty=0;
}
if(rec1.Stock_Qty > rec1.BoM_Qty)
{
rec1.Blocked_Qty=rec1.Purchase_Qty;
}
if(rec1.Stock_Qty != 0 && rec1.Blocked_Qty > rec1.Stock_Qty || rec1.Stock_Qty < rec1.BoM_Qty)
{
rec1.Blocked_Qty=rec1.Stock_Qty;
}
}
try
{
var = 0;
fet_wosub = Work_Order_Subform[ID == input.Work_Order_Subform_ID];
fet_wo = Work_Order[ID == fet_wosub.Work_Order_Exis_ID];
fetsosub = Sale_Order_Subform[Work_Order_RECID == fet_wo.ID];
fet_wosub.MRP_ID=input.ID;
fet_wr = Warehouse[ID != null];
if(isBlank(input.MRP_No.trim()))
{
var = 1;
input.MRP_No = thisapp.Common.Number_Function_New("Material Resource Planning");
}
if(input.Process_to_Submit = "Draft")
{
input.MRP_Status = "Draft";
fet_wo.WO_Status="MRP Draft";
fet_wosub.Work_Order_Status="MRP Draft";
if(fetsosub.count() > 0)
{
fetsosub.WO_Status_in_sosub="MRP Draft";
}
indnthead = "No";
indsno = 0;
for each rec in input.BoM_Details_General_Purchase
{
if(rec.Draft_Indent == true && input.Process_to_Submit == "Draft" && rec.Purchase_Qty > 0)
{
indsno = indsno + 1;
thisapp.routing.RoutingFunction(input.ID);
str1 = thisapp.Common.Number_Function_New("Purchase Requisition");
if(indnthead == "No" && rec.Purchase_Qty > 0)
{
fet_emp = Employee_Details[Employee_Email == zoho.loginuserid];
//Check for the Part No is already exists in the Indent without generation the purchase order.
chkpartno = Indent_Sub_Form[Part_No == rec.Part_No && Status == "Indent against WO" && Purpose_of_Indent == "For MRP"];
if(chkpartno.count() == 0)
{
insrec = insert into Indent
[
Indent_Request_Date=zoho.currentdate
Request_Raised_By=fet_emp.ID
Indent_No=str1
Material_Type="Standard"
Department=fet_emp.Department_Name
Approval_Status="Approved"
Indent_Type="System Generated - Planning"
Status="Indent against WO"
Remarks="For Production Process"
MRP_ID=input.ID
Added_User=zoho.loginuser
];
indnthead = "Yes";
}
}
if(chkpartno.count() == 0)
{
subins = insert into Indent_Sub_Form
[
Added_User=zoho.loginuser
Indent_Form_RECID=insrec
S_No=indsno
Part_No=rec.Part_No
Part_Description=rec.Part_Name
UoM=rec.UoM
Required_Qty=rec.Purchase_Qty
Purpose_of_Indent="For MRP"
Indent_No=str1
Status="Indent against WO"
Work_Order_No_ms=input.Work_Order_ID
];
}
else
{
wonolist = List();
wonolist.addall(chkpartno.Work_Order_No_ms);
wonolist.add(input.Work_Order_No1);
chkpartno.Work_Order_No_ms=wonolist;
chkpartno.Required_Qty=ifnull(rec.Purchase_Qty,0) + ifnull(chkpartno.Required_Qty,0);
}
thisapp.MRP.Indent_Email_MRP(input.ID);
}
}
}
else if(input.Process_to_Submit = "Send for Approval")
{
input.MRP_Status = "Waiting for Approval";
input.Approval = "Pending";
}
else if(input.Process_to_Submit = "Submit")
{
input.Approval = "Approved";
input.MRP_Status = "MRP Done";
fet_wo.WO_Status="MRP Done";
if(fetsosub.count() > 0)
{
fetsosub.WO_Status_in_sosub="MRP Done";
}
}
if(fet_wosub.Work_Order_Status == "MRP Rejected")
{
fet_wosub.Work_Order_Status="WO Created";
}
if(input.Auto_Approval == "Yes")
{
input.MRP_Status = "MRP Done";
fet_wo.MRP_Status="MRP Done";
fet_wosub.Work_Order_Status="MRP Done";
input.Approval = "Approved";
for each blk in input.BoM_Details_CWPL
{
fet_inv = Inventory[Part_No == blk.Part_No && Available_Qty > 0] sort by Available_Qty desc;
if(fet_inv.count() > 0)
{
if(blk.Block_Qty = True)
{
balqty = 0;
i = 1;
for each invcwplrec in fet_inv
{
//blocked Quantiy is less inventory available qty
if(blk.Blocked_Qty <= invcwplrec.Available_Qty && i == 1)
{
//info "issued qty is less than total qty";
invcwplrec.Available_Qty=ifnull(invcwplrec.Available_Qty,0.0) - ifnull(blk.Blocked_Qty,0.0);
invcwplrec.Block_Qty=ifnull(blk.Blocked_Qty,0) + ifnull(invcwplrec.Block_Qty,0);
}
//blocked Quantiy is more than inventory available qty
else if(blk.Blocked_Qty > invcwplrec.Available_Qty && i == 1)
{
//info "issued qty is more than total qty";
balqty = ifnull(blk.Blocked_Qty,0.0) - ifnull(invcwplrec.Available_Qty,0.0);
invcwplrec.Available_Qty=0;
invcwplrec.Block_Qty=ifnull(blk.Blocked_Qty,0) + ifnull(invcwplrec.Block_Qty,0);
}
//for first time it should not get inside the loop
if(balqty > 0 && i > 1)
{
//info "balance qty is more than zero";
//Balance Qty is less
if(balqty <= invcwplrec.Available_Qty)
{
//info "balance qty is less than total qty";
invcwplrec.Available_Qty=ifnull(invcwplrec.Available_Qty,0.0) - ifnull(balqty,0.0);
invcwplrec.Block_Qty=ifnull(blk.Blocked_Qty,0) + ifnull(invcwplrec.Block_Qty,0);
balqty = 0;
}
//----Balance Qty is More------
else if(balqty >= invcwplrec.Available_Qty)
{
//info "balance qty is greater than total qty";
balqty = ifnull(balqty,0.0) - ifnull(invcwplrec.Available_Qty,0.0);
invcwplrec.Available_Qty=0;
invcwplrec.Block_Qty=ifnull(balqty,0) + ifnull(invcwplrec.Block_Qty,0);
}
}
if(balqty == 0)
{
break;
}
i = i + 1;
}
if(blk.Blocked_Qty > 0)
{
insblock = insert into Block_Quantity
[
Part_No=blk.Part_No
Part_Name=blk.Part_Name
Form_Type="MRP"
Block_Qty=blk.Blocked_Qty
MRP_RECID=input.ID
WO_No=fet_wo.ID
Status="Blocked from MRP"
Added_User=zoho.loginuser
];
}
}
}
}
for each blk1 in input.BoM_Details_General_Purchase
{
fet_virstk = Inventory[Part_No == blk1.Part_No && Available_Qty > 0] sort by Available_Qty desc;
if(fet_virstk.count() > 0)
{
if(blk1.Block_Qty = True)
{
balqty = 0;
i1 = 1;
for each invgprec in fet_virstk
{
// info balqty;
// info i1;
//if(input.MRP_Qty >= fet_inv.Available_Qty && input.MRP_Qty >= fet_inv.Total_Qty)
if(blk1.Blocked_Qty <= invgprec.Available_Qty && i1 == 1)
{
//info "blocked qty is less than total qty";
invgprec.Block_Qty=ifnull(blk1.Blocked_Qty,0) + ifnull(invgprec.Block_Qty,0);
invgprec.Available_Qty=ifnull(invgprec.Available_Qty,0) - ifnull(blk1.Blocked_Qty,0);
}
else if(blk1.Blocked_Qty > invgprec.Available_Qty && i == 1)
{
//info "blocked qty is more than available qty";
balqty = ifnull(blk1.Blocked_Qty,0.0) - ifnull(invgprec.Available_Qty,0.0);
invgprec.Available_Qty=0;
invgprec.Block_Qty=ifnull(blk1.Blocked_Qty,0) + ifnull(invgprec.Block_Qty,0);
}
if(balqty > 0 && i > 1)
{
//info "balaance qty is more than zero";
//Balance Qty is less
if(balqty <= invgprec.Available_Qty)
{
// info "balance qty is less than available qty";
invgprec.Available_Qty=ifnull(invgprec.Available_Qty,0.0) - ifnull(balqty,0.0);
invgprec.Block_Qty=ifnull(blk1.Blocked_Qty,0) + ifnull(invgprec.Block_Qty,0);
balqty = 0;
}
//Balance Qty is More
else if(balqty >= invgprec.Available_Qty)
{
//info "balance qty is greater than available qty";
balqty = ifnull(balqty,0.0) - ifnull(invgprec.Available_Qty,0.0);
invgprec.Available_Qty=0;
invgprec.Block_Qty=ifnull(blk1.Blocked_Qty,0) + ifnull(invgprec.Block_Qty,0);
}
}
if(balqty == 0)
{
//info "before break";
break;
}
i = i + 1;
}
}
}
if(blk1.Blocked_Qty > 0)
{
insblock = insert into Block_Quantity
[
Part_No=blk1.Part_No
Part_Name=blk1.Part_Name
Form_Type="MRP"
Block_Qty=blk1.Blocked_Qty
MRP_RECID=input.ID
MRP_No=input.MRP_No
WO_No=fet_wo.ID
Status="Blocked from MRP"
Added_User=zoho.loginuser
];
}
}
}
else if(input.Process_to_Submit == "Submit" && input.Auto_Approval == "Yes" || input.Auto_Approval == "No")
{
input.MRP_Status = "MRP Done";
fet_wo.MRP_Status="MRP Done";
fet_wosub.Work_Order_Status="MRP Done";
input.Approval = "Approved";
if(fetsosub.count() > 0)
{
fetsosub.WO_Status_in_sosub="MRP Done";
}
for each blkcwpl in input.BoM_Details_CWPL
{
fet_inve = Inventory[Part_No == blkcwpl.Part_No && Available_Qty > 0] sort by Available_Qty desc;
if(fet_inve.count() > 0)
{
if(blkcwpl.Block_Qty = True)
{
balqty = 0;
i = 1;
for each invcwplrec1 in fet_inve
{
//blocked Quantiy is less inventory available qty
if(blkcwpl.Blocked_Qty <= invcwplrec1.Available_Qty && i == 1)
{
// info "issued qty is less than total qty";
invcwplrec1.Available_Qty=ifnull(invcwplrec1.Available_Qty,0.0) - ifnull(blkcwpl.Blocked_Qty,0.0);
invcwplrec1.Block_Qty=ifnull(blkcwpl.Blocked_Qty,0) + ifnull(invcwplrec1.Block_Qty,0);
}
//blocked Quantiy is more than inventory available qty
else if(blkcwpl.Blocked_Qty > invcwplrec1.Available_Qty && i == 1)
{
//info "issued qty is more than total qty";
balqty = ifnull(blkcwpl.Blocked_Qty,0.0) - ifnull(invcwplrec1.Available_Qty,0.0);
invcwplrec1.Available_Qty=0;
invcwplrec1.Block_Qty=ifnull(blkcwpl.Blocked_Qty,0) + ifnull(invcwplrec1.Block_Qty,0);
}
//for first time it should not get inside the loop
if(balqty > 0 && i > 1)
{
//info "balance qty is more than zero";
//Balance Qty is less
if(balqty <= invcwplrec1.Available_Qty)
{
//info "balance qty is less than total qty";
invcwplrec1.Available_Qty=ifnull(invcwplrec1.Available_Qty,0.0) - ifnull(balqty,0.0);
invcwplrec1.Block_Qty=ifnull(blkcwpl.Blocked_Qty,0) + ifnull(invcwplrec1.Block_Qty,0);
balqty = 0;
}
//----Balance Qty is More------
else if(balqty >= invcwplrec1.Available_Qty)
{
//info "balance qty is greater than total qty";
balqty = ifnull(balqty,0.0) - ifnull(invcwplrec1.Available_Qty,0.0);
invcwplrec1.Available_Qty=0;
invcwplrec1.Block_Qty=ifnull(balqty,0) + ifnull(invcwplrec1.Block_Qty,0);
}
}
if(balqty == 0)
{
break;
}
i = i + 1;
}
if(blkcwpl.Blocked_Qty > 0)
{
insblock = insert into Block_Quantity
[
Part_No=blkcwpl.Part_No
Part_Name=blkcwpl.Part_Name
Form_Type="MRP"
Block_Qty=blkcwpl.Blocked_Qty
WO_No=fet_wo.ID
MRP_RECID=input.ID
Status="Blocked from MRP"
Added_User=zoho.loginuser
];
}
}
}
}
for each blkgp in input.BoM_Details_General_Purchase
{
fet_virstk1 = Inventory[Part_No == blkgp.Part_No && Available_Qty > 0] sort by Available_Qty desc;
if(fet_virstk1.count() > 0)
{
if(blkgp.Block_Qty = True)
{
balqty = 0;
i1 = 1;
for each invgprec1 in fet_virstk1
{
// info balqty;
// info i1;
//if(input.MRP_Qty >= fet_inve.Available_Qty && input.MRP_Qty >= fet_inv.Total_Qty)
if(blkgp.Blocked_Qty <= invgprec1.Available_Qty && i1 == 1)
{
//info "blocked qty is less than total qty";
invgprec1.Block_Qty=ifnull(blkgp.Blocked_Qty,0) + ifnull(invgprec1.Block_Qty,0);
invgprec1.Available_Qty=ifnull(invgprec1.Available_Qty,0) - ifnull(blkgp.Blocked_Qty,0);
}
else if(blkgp.Blocked_Qty > invgprec1.Available_Qty && i1 == 1)
{
//info "blocked qty is more than available qty";
balqty = ifnull(blkgp.Blocked_Qty,0.0) - ifnull(invgprec1.Available_Qty,0.0);
invgprec1.Available_Qty=0;
invgprec1.Block_Qty=ifnull(blkgp.Blocked_Qty,0) + ifnull(invgprec1.Block_Qty,0);
}
if(balqty > 0 && i1 > 1)
{
//info "balaance qty is more than zero";
//Balance Qty is less
if(balqty <= invgprec1.Available_Qty)
{
// info "balance qty is less than available qty";
invgprec1.Available_Qty=ifnull(invgprec1.Available_Qty,0.0) - ifnull(balqty,0.0);
invgprec1.Block_Qty=ifnull(blkgp.Blocked_Qty,0) + ifnull(invgprec1.Block_Qty,0);
balqty = 0;
}
//Balance Qty is More
else if(balqty >= invgprec1.Available_Qty)
{
// info "balance qty is greater than available qty";
balqty = ifnull(balqty,0.0) - ifnull(invgprec1.Available_Qty,0.0);
invgprec1.Available_Qty=0;
invgprec1.Block_Qty=ifnull(blkgp.Blocked_Qty,0) + ifnull(invgprec1.Block_Qty,0);
}
}
if(balqty == 0)
{
//info "before break";
break;
}
i1 = i1 + 1;
}
}
}
if(blkgp.Blocked_Qty > 0)
{
insblock = insert into Block_Quantity
[
Part_No=blkgp.Part_No
Part_Name=blkgp.Part_Name
Form_Type="MRP"
Block_Qty=blkgp.Blocked_Qty
MRP_RECID=input.ID
WO_No=fet_wo.ID
Status="Blocked from MRP"
Added_User=zoho.loginuser
];
}
}
}
openUrl("#Form:Alert_Messages?Status=" + "MATRES" + "&Value=" + input.MRP_No + "&zc_LoadIn=dialog","same window");
}
catch (e)
{
sendmail
[
from :"erp@carrierwheels.com"
to :"parthasarathy.m@synprosoft.com"
subject :"MRP Created Or Edited Successful Form Submission try & catch" + input.MRP_No
message :e
]
}
//Last Corectly Made changes in ->Check the below version
//Version 73.7
//01-Jul-2024 18:25:55
hide Reset1;
hide MRP_No;
fet_pref = Preferences[Module_Name = "MRP"];
input.Auto_Approval = fet_pref.Auto_Approval;
if(input.Work_Order_Subform_ID != null)
{
fet_wosub = Work_Order_Subform[ID == input.Work_Order_Subform_ID];
fet_wo = Work_Order[ID == fet_wosub.Work_Order_Exis_ID];
if(fet_wo.Form_Mode == "Direct WO")
{
hide Sales_Order_No;
hide Customer_Name;
}
input.Sales_Order_No = fet_wo.Sales_Order_Nos;
input.Customer_Name = fet_wo.Customer_Name;
input.Work_Order_Date = fet_wo.Work_Order_Date;
input.Part_No = fet_wosub.Part_No;
input.Part_Name = fet_wosub.Part_Description;
input.Category = fet_wo.Category;
input.Sub_Category = fet_wo.Sub_Category;
input.MRP_Qty = fet_wosub.WO_Qty;
input.Work_Order_No1 = fet_wo.ID;
fet_bom = Create_BOM[Part_No == input.Work_Order_Subform_ID.Part_No && Status == "Active"];
level1 = BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == input.Part_No && BOM_FG_Exis_ID.Status == "Active"];
inside_gplevel1 = 0;
inside_gplevel2 = 0;
inside_gplevel3 = 0;
inside_gplevel4 = 0;
inside_gplevel5 = 0;
for each levellist1 in level1
{
level2 = BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist1.Part_No && BOM_FG_Exis_ID.Status == "Active"];
if(levellist1.Material_Item_Type.Material_Type == "CWPL Products" || levellist1.Material_Item_Type.Material_Type == "HR Coils and Sheets")
{
cwplrow = MRP.BoM_Details_CWPL();
inven1 = Inventory[Part_No == levellist1.Part_No].sum(Available_Qty);
cwplrow.Part_No=levellist1.Part_No;
cwplrow.Part_Name=levellist1.Part_Description;
cwplrow.UoM=levellist1.UoM;
cwplrow.Work_Order_No=fet_wo.ID;
cwplrow.Stock_Qty=inven1.round(0);
cwplrow.Material_Item_Type=levellist1.Material_Item_Type;
cwplrow.bom_stk_qty=ifnull(levellist1.Qty,0.0);
cwplrow.Level="Level-1";
cwplrow.test_level="Level-1";
cwplrow.Create_BoM_RECID=fet_bom.ID;
cwplrow.Tot_BoM_Qty=ifnull(input.MRP_Qty,0) * ifnull(cwplrow.bom_stk_qty,0.0);
//CALCULATION PART
if(cwplrow.Stock_Qty >= input.MRP_Qty)
{
cwplrow.Actual_Qty=0;
cwplrow.Plan_Qty=0;
cwplrow.BoM_Qty=ifnull(input.MRP_Qty,0);
//cwplrow.BoM_Qty=0;
}
else if(cwplrow.Stock_Qty < input.MRP_Qty)
{
cwplrow.Actual_Qty=ifnull(input.MRP_Qty,0) * ifnull(cwplrow.bom_stk_qty,0.0) - ifnull(cwplrow.Stock_Qty,0);
cwplrow.BoM_Qty=ifnull(input.MRP_Qty,0);
cwplrow.Plan_Qty=ifnull(input.MRP_Qty,0) * ifnull(cwplrow.bom_stk_qty,0.0) - ifnull(cwplrow.Stock_Qty,0);
}
else if(cwplrow.Stock_Qty > input.MRP_Qty)
{
cwplrow.BoM_Qty=ifnull(input.MRP_Qty,0);
cwplrow.Actual_Qty=0;
cwplrow.Plan_Qty=0;
}
input.BoM_Details_CWPL.insert(cwplrow);
}
for each abc in BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == input.Part_No && BOM_FG_Exis_ID.Status == "Active" && Material_Item_Type.Material_Type == "General Purchase"]
{
if(inside_gplevel1 == 0)
{
if(abc.Material_Item_Type.Material_Type == "General Purchase")
{
fetind = Indent_Sub_Form[Part_No == abc.Part_No].sum(Required_Qty);
dprsub = DPR_General_Purchase_Stock_Qty[Part_No == abc.Part_No];
gprow = MRP.BoM_Details_General_Purchase();
inven = Inventory[Part_No == abc.Part_No].sum(Available_Qty);
gprow.Part_No=abc.Part_No;
gprow.Part_Name=abc.Part_Description;
gprow.UoM=abc.UoM;
gprow.Work_Order_No=fet_wo.ID;
gprow.Material_Item_Type=abc.Material_Item_Type;
gprow.Org_BoM_Qty=ifnull(abc.Qty,0.0);
gprow.Stock_Qty=inven.round(0);
gprow.Indent_Qty=fetind;
gprow.Level="Level";
gprow.test_level="Level-1";
gprow.Create_BoM_RECID=fet_bom.ID;
gprow.BoM_Qty=ifnull(input.MRP_Qty,0);
gprow.Material_Center_Qty=ifnull(dprsub.GP_Balance_Qty,0);
//CALCULATION PART
//Below ifelse is to check negative value
if(gprow.Material_Center_Qty == 0)
{
if(ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0) - ifnull(gprow.Stock_Qty,0) >= 0)
{
gprow.Tot_BoM_Qty=ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0);
gprow.Plan_Qty=ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0) - ifnull(gprow.Stock_Qty,0);
}
else if(ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0) - ifnull(gprow.Stock_Qty,0) < 0)
{
gprow.Tot_BoM_Qty=ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0);
gprow.Plan_Qty=ifnull(gprow.Stock_Qty,0) - ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0);
}
gprow.Purchase_Qty=ifnull(gprow.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow);
}
else if(gprow.Material_Center_Qty > 0)
{
if(ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0) - ifnull(gprow.Material_Center_Qty,0) >= 0)
{
gprow.Tot_BoM_Qty=ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0);
gprow.Plan_Qty=ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0) - ifnull(gprow.Material_Center_Qty,0);
}
else if(ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0) - ifnull(gprow.Material_Center_Qty,0) < 0)
{
gprow.Tot_BoM_Qty=ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0);
gprow.Plan_Qty=ifnull(gprow.Material_Center_Qty,0) - ifnull(gprow.BoM_Qty,0) * ifnull(gprow.Org_BoM_Qty,0.0);
}
gprow.Purchase_Qty=ifnull(gprow.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow);
}
}
}
}
inside_gplevel1 = 1;
cnt = 0;
for each levellist2 in level2
{
crtbom = Create_BOM[BoM_FG_Subform_ID == levellist2.ID && Status == "Active"];
cnt = cnt + 1;
level3 = BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist2.Part_No && BOM_FG_Exis_ID.Status == "Active"];
if(levellist2.Material_Item_Type.Material_Type == "CWPL Products" || levellist2.Material_Item_Type.Material_Type == "HR Coils and Sheets")
{
cwplrow2 = MRP.BoM_Details_CWPL();
inven1 = Inventory[Part_No == levellist2.Part_No].sum(Available_Qty);
cwplrow2.Part_No=levellist2.Part_No;
cwplrow2.Part_Name=levellist2.Part_Description;
cwplrow2.UoM=levellist2.UoM;
cwplrow2.Work_Order_No=fet_wo.ID;
cwplrow2.Stock_Qty=inven1.round(0);
cwplrow2.Material_Item_Type=levellist2.Material_Item_Type;
cwplrow2.bom_stk_qty=ifnull(levellist2.Qty,0.0);
cwplrow2.Level="Level-2";
cwplrow2.test_level="Level1." + cnt;
cwplrow2.Create_BoM_RECID=crtbom.ID;
cwplrow2.BoM_Qty=cwplrow.Actual_Qty;
cwplrow2.Tot_BoM_Qty=ifnull(cwplrow2.BoM_Qty,0.0) * ifnull(cwplrow2.bom_stk_qty,0.0);
//CALCULATION PART
planqty = 0.0;
stkqty = 0.0;
if(cwplrow2.Stock_Qty >= cwplrow2.Tot_BoM_Qty)
{
cwplrow2.Actual_Qty=0;
//cwplrow2.BoM_Qty=0;
cwplrow2.Plan_Qty=0;
}
if(cwplrow2.Stock_Qty < cwplrow2.Tot_BoM_Qty && cwplrow2.BoM_Qty != null)
{
planqty = ifnull(cwplrow2.BoM_Qty,0.0) * ifnull(cwplrow2.bom_stk_qty,0.0);
stkqty = planqty - ifnull(cwplrow2.Stock_Qty,0.0);
cwplrow2.Actual_Qty=stkqty;
cwplrow2.Plan_Qty=stkqty;
}
input.BoM_Details_CWPL.insert(cwplrow2);
}
for each abc2 in BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist1.Part_No && Material_Item_Type.Material_Type == "General Purchase" && BOM_FG_Exis_ID.Status == "Active"]
{
if(inside_gplevel2 == 0)
{
if(abc2.Material_Item_Type.Material_Type == "General Purchase")
{
fetind = Indent_Sub_Form[Part_No == abc2.Part_No].sum(Required_Qty);
dprsub = DPR_General_Purchase_Stock_Qty[Part_No == abc2.Part_No];
gprow2 = MRP.BoM_Details_General_Purchase();
inven = Inventory[Part_No == abc2.Part_No].sum(Available_Qty);
gprow2.Part_No=abc2.Part_No;
gprow2.Part_Name=abc2.Part_Description;
gprow2.UoM=abc2.UoM;
gprow2.Work_Order_No=fet_wo.ID;
gprow2.Material_Item_Type=abc2.Material_Item_Type;
gprow2.Org_BoM_Qty=ifnull(abc2.Qty,0.0);
gprow2.Stock_Qty=inven.round(0);
gprow2.Indent_Qty=fetind;
gprow2.Level="Level-1";
gprow2.test_level="Level1." + cnt;
gprow2.Create_BoM_RECID=crtbom.ID;
//CALCULATION PART
gprow2.BoM_Qty=ifnull(cwplrow.Actual_Qty,0);
gprow2.Tot_BoM_Qty=ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0);
gprow2.Material_Center_Qty=ifnull(dprsub.GP_Balance_Qty,0);
//Below ifelse is to check negative value
if(gprow2.Material_Center_Qty == 0)
{
if(ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0) - ifnull(gprow2.Stock_Qty,0) >= 0)
{
gprow2.Plan_Qty=ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0) - ifnull(gprow2.Stock_Qty,0);
}
else
{
gprow2.Plan_Qty=ifnull(gprow2.Stock_Qty,0) - ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0);
}
gprow2.Purchase_Qty=ifnull(gprow2.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow2);
}
else if(gprow2.Material_Center_Qty > 0)
{
if(ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0) - ifnull(gprow2.Material_Center_Qty,0) >= 0)
{
gprow2.Tot_BoM_Qty=ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0);
gprow2.Plan_Qty=ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0) - ifnull(gprow2.Material_Center_Qty,0);
}
else if(ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0) - ifnull(gprow2.Material_Center_Qty,0) < 0)
{
gprow2.Tot_BoM_Qty=ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0);
gprow2.Plan_Qty=ifnull(gprow2.Material_Center_Qty,0) - ifnull(gprow2.BoM_Qty,0) * ifnull(gprow2.Org_BoM_Qty,0.0);
}
gprow2.Purchase_Qty=ifnull(gprow2.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow2);
}
}
}
}
inside_gplevel2 = 1;
cnt1 = 0;
for each levellist3 in level3
{
crtbom1 = Create_BOM[BoM_FG_Subform_ID == levellist3.ID && Status == "Active"];
cnt1 = cnt1 + 1;
level4 = BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist3.Part_No && BOM_FG_Exis_ID.Status == "Active"];
if(levellist3.Material_Item_Type.Material_Type == "CWPL Products" || levellist3.Material_Item_Type.Material_Type == "HR Coils and Sheets")
{
cwplrow3 = MRP.BoM_Details_CWPL();
inven1 = Inventory[Part_No == levellist3.Part_No].sum(Available_Qty);
cwplrow3.Part_No=levellist3.Part_No;
cwplrow3.Part_Name=levellist3.Part_Description;
cwplrow3.UoM=levellist3.UoM;
cwplrow3.Work_Order_No=fet_wo.ID;
cwplrow3.Stock_Qty=inven1.round(0);
cwplrow3.Material_Item_Type=levellist3.Material_Item_Type;
cwplrow3.bom_stk_qty=ifnull(levellist3.Qty,0.0);
cwplrow3.Level="Level-3";
cwplrow3.test_level="Level-1.1" + "." + cnt1;
cwplrow3.Create_BoM_RECID=crtbom1.ID;
cwplrow3.BoM_Qty=cwplrow2.Actual_Qty;
cwplrow3.Tot_BoM_Qty=ifnull(cwplrow3.BoM_Qty,0.0) * ifnull(cwplrow3.bom_stk_qty,0.0);
//CALCULATION PART
planqty = 0.0;
stkqty = 0.0;
if(cwplrow3.Stock_Qty >= cwplrow3.Tot_BoM_Qty)
{
cwplrow3.Actual_Qty=0;
// cwplrow3.BoM_Qty=0;
cwplrow3.Plan_Qty=0;
}
if(cwplrow3.Stock_Qty < cwplrow3.Tot_BoM_Qty && cwplrow3.Tot_BoM_Qty != null)
{
planqty = ifnull(cwplrow3.BoM_Qty,0.0) * ifnull(cwplrow3.bom_stk_qty,0.0);
stkqty = planqty - ifnull(cwplrow3.Stock_Qty,0.0);
cwplrow3.Actual_Qty=stkqty;
cwplrow3.Plan_Qty=stkqty;
}
input.BoM_Details_CWPL.insert(cwplrow3);
}
for each abc3 in BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist2.Part_No && Material_Item_Type.Material_Type == "General Purchase" && BOM_FG_Exis_ID.Status == "Active"]
{
if(inside_gplevel3 == 0)
{
if(abc3.Material_Item_Type.Material_Type == "General Purchase")
{
fetind = Indent_Sub_Form[Part_No == abc3.Part_No].sum(Required_Qty);
dprsub = DPR_General_Purchase_Stock_Qty[Part_No == abc3.Part_No];
gprow3 = MRP.BoM_Details_General_Purchase();
inven = Inventory[Part_No == abc3.Part_No].sum(Available_Qty);
gprow3.Part_No=abc3.Part_No;
gprow3.Part_Name=abc3.Part_Description;
gprow3.UoM=abc3.UoM;
gprow3.Work_Order_No=fet_wo.ID;
gprow3.Material_Item_Type=abc3.Material_Item_Type;
gprow3.Org_BoM_Qty=ifnull(abc3.Qty,0.0);
gprow3.Stock_Qty=inven.round(0);
gprow3.Indent_Qty=fetind;
gprow3.Level="Level-2";
gprow3.test_level="Level-1.1" + "." + cnt1;
gprow3.Create_BoM_RECID=crtbom1.ID;
gprow3.Material_Center_Qty=ifnull(dprsub.GP_Balance_Qty,0);
//CALCULATION PART
gprow3.BoM_Qty=ifnull(cwplrow2.Actual_Qty,0);
gprow3.Tot_BoM_Qty=ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0);
gprow3.Material_Center_Qty=ifnull(dprsub.GP_Balance_Qty,0);
//Below ifelse is to check negative value
if(gprow3.Material_Center_Qty == 0)
{
if(ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0) - ifnull(gprow3.Stock_Qty,0) >= 0)
{
gprow3.Plan_Qty=ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0) - ifnull(gprow3.Stock_Qty,0);
}
else
{
gprow3.Plan_Qty=ifnull(gprow3.Stock_Qty,0) - ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0);
}
gprow3.Purchase_Qty=ifnull(gprow3.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow3);
}
else if(gprow3.Material_Center_Qty > 0)
{
if(ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0) - ifnull(gprow3.Material_Center_Qty,0) >= 0)
{
gprow3.Tot_BoM_Qty=ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0);
gprow3.Plan_Qty=ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0) - ifnull(gprow3.Material_Center_Qty,0);
}
else if(ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0) - ifnull(gprow3.Material_Center_Qty,0) < 0)
{
gprow3.Tot_BoM_Qty=ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0);
gprow3.Plan_Qty=ifnull(gprow3.Material_Center_Qty,0) - ifnull(gprow3.BoM_Qty,0) * ifnull(gprow3.Org_BoM_Qty,0.0);
}
gprow3.Purchase_Qty=ifnull(gprow3.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow3);
}
}
}
}
inside_gplevel3 = 1;
cnt2 = 0;
for each levellist4 in level4
{
crtbom2 = Create_BOM[BoM_FG_Subform_ID == levellist4.ID && Status == "Active"];
level5 = BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist4.Part_No && BOM_FG_Exis_ID.Status == "Active"];
cnt2 = cnt2 + 1;
if(levellist4.Material_Item_Type.Material_Type == "CWPL Products" || levellist4.Material_Item_Type.Material_Type == "HR Coils and Sheets")
{
cwplrow4 = MRP.BoM_Details_CWPL();
inven1 = Inventory[Part_No == levellist4.Part_No].sum(Available_Qty);
cwplrow4.Part_No=levellist4.Part_No;
cwplrow4.Part_Name=levellist4.Part_Description;
cwplrow4.UoM=levellist4.UoM;
cwplrow4.Work_Order_No=fet_wo.ID;
cwplrow4.Stock_Qty=inven1.round(0);
cwplrow4.Material_Item_Type=levellist4.Material_Item_Type;
cwplrow4.bom_stk_qty=ifnull(levellist4.Qty,0.0);
cwplrow4.Level="Level-4";
cwplrow4.test_level="Level-1.1" + "." + cnt1 + "." + cnt2;
cwplrow4.Create_BoM_RECID=crtbom2.ID;
cwplrow4.BoM_Qty=cwplrow3.Actual_Qty;
cwplrow4.Tot_BoM_Qty=ifnull(cwplrow4.bom_stk_qty,0.0) * ifnull(cwplrow4.BoM_Qty,0.0);
//CALCULATION PART
planqty = 0.0;
stkqty = 0.0;
if(cwplrow4.Stock_Qty >= cwplrow4.Tot_BoM_Qty)
{
cwplrow4.Actual_Qty=0;
//cwplrow4.BoM_Qty=0;
cwplrow4.Plan_Qty=0;
}
if(cwplrow4.Stock_Qty < cwplrow4.Tot_BoM_Qty && cwplrow4.Tot_BoM_Qty != null)
{
planqty = ifnull(cwplrow4.BoM_Qty,0.0) * ifnull(cwplrow4.bom_stk_qty,0.0);
stkqty = planqty - ifnull(cwplrow4.Stock_Qty,0.0);
cwplrow4.Actual_Qty=stkqty;
cwplrow4.Plan_Qty=stkqty;
}
input.BoM_Details_CWPL.insert(cwplrow4);
}
for each abc4 in BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist3.Part_No && Material_Item_Type.Material_Type == "General Purchase" && BOM_FG_Exis_ID.Status == "Active"]
{
if(inside_gplevel4 == 0)
{
if(abc4.Material_Item_Type.Material_Type == "General Purchase")
{
fetind = Indent_Sub_Form[Part_No == abc4.Part_No].sum(Required_Qty);
dprsub = DPR_General_Purchase_Stock_Qty[Part_No == abc4.Part_No];
gprow4 = MRP.BoM_Details_General_Purchase();
inven = Inventory[Part_No == abc4.Part_No].sum(Available_Qty);
gprow4.Part_No=abc4.Part_No;
gprow4.Part_Name=abc4.Part_Description;
gprow4.UoM=abc4.UoM;
gprow4.Work_Order_No=fet_wo.ID;
gprow4.Material_Item_Type=abc4.Material_Item_Type;
gprow4.Org_BoM_Qty=ifnull(abc4.Qty,0.0);
gprow4.Stock_Qty=inven.round(0);
gprow4.Indent_Qty=fetind;
gprow4.Level="Level-3";
gprow4.test_level="Level-1.1" + "." + cnt1 + "." + cnt2;
gprow4.Create_BoM_RECID=crtbom2.ID;
gprow4.Material_Center_Qty=ifnull(dprsub.GP_Balance_Qty,0);
//CALCULATION PART
gprow4.BoM_Qty=ifnull(cwplrow3.Actual_Qty,0);
gprow4.Tot_BoM_Qty=ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0);
//Below ifelse is to check negative value
if(gprow4.Material_Center_Qty == 0)
{
if(ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0) - ifnull(gprow4.Stock_Qty,0) >= 0)
{
gprow4.Plan_Qty=ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0) - ifnull(gprow4.Stock_Qty,0);
}
else
{
gprow4.Plan_Qty=ifnull(gprow4.Stock_Qty,0) - ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0);
}
gprow4.Purchase_Qty=ifnull(gprow4.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow4);
}
else if(gprow4.Material_Center_Qty > 0)
{
if(ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0) - ifnull(gprow4.Material_Center_Qty,0) >= 0)
{
gprow4.Tot_BoM_Qty=ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0);
gprow4.Plan_Qty=ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0) - ifnull(gprow4.Material_Center_Qty,0);
}
else if(ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0) - ifnull(gprow4.Material_Center_Qty,0) < 0)
{
gprow4.Tot_BoM_Qty=ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0);
gprow4.Plan_Qty=ifnull(gprow4.Material_Center_Qty,0) - ifnull(gprow4.BoM_Qty,0) * ifnull(gprow4.Org_BoM_Qty,0.0);
}
gprow4.Purchase_Qty=ifnull(gprow4.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow4);
}
}
}
}
inside_gplevel4 = 1;
cnt3 = 0;
for each levellist5 in level5
{
crtbom3 = Create_BOM[BoM_FG_Subform_ID == levellist5.ID && Status == "Active"];
cnt3 = cnt3 + 1;
if(levellist5.Material_Item_Type.Material_Type == "CWPL Products" || levellist5.Material_Item_Type.Material_Type == "HR Coils and Sheets")
{
cwplrow5 = MRP.BoM_Details_CWPL();
inven1 = Inventory[Part_No == levellist5.Part_No].sum(Available_Qty);
cwplrow5.Part_No=levellist5.Part_No;
cwplrow5.Part_Name=levellist5.Part_Description;
cwplrow5.UoM=levellist5.UoM;
cwplrow5.Work_Order_No=fet_wo.ID;
cwplrow5.Stock_Qty=inven1.round(0);
cwplrow5.Material_Item_Type=levellist5.Material_Item_Type;
cwplrow5.bom_stk_qty=ifnull(levellist5.Qty,0.0);
cwplrow5.Level="Level-5";
cwplrow5.test_level="Level1.1" + "." + cnt1 + "." + cnt2 + "." + cnt3;
cwplrow5.Create_BoM_RECID=crtbom3.ID;
cwplrow5.BoM_Qty=cwplrow4.Actual_Qty;
cwplrow5.Tot_BoM_Qty=ifnull(cwplrow5.BoM_Qty,0.0) * ifnull(cwplrow5.bom_stk_qty,0.0);
//CALCULATION PART
planqty = 0.0;
stkqty = 0.0;
if(cwplrow5.Stock_Qty >= cwplrow5.Tot_BoM_Qty)
{
cwplrow5.Actual_Qty=0;
//cwplrow5.BoM_Qty=0;
cwplrow5.Plan_Qty=0;
}
if(cwplrow5.Stock_Qty < cwplrow5.BoM_Qty && cwplrow5.Tot_BoM_Qty != null)
{
planqty = ifnull(cwplrow5.BoM_Qty,0.0) * ifnull(cwplrow5.bom_stk_qty,0.0);
stkqty = planqty - ifnull(cwplrow5.Stock_Qty,0.0);
cwplrow5.Actual_Qty=stkqty;
cwplrow5.Plan_Qty=stkqty;
}
input.BoM_Details_CWPL.insert(cwplrow5);
}
for each abc5 in BoM_FG_Subform[BOM_FG_Exis_ID.Part_No == levellist4.Part_No && Material_Item_Type.Material_Type == "General Purchase" && BOM_FG_Exis_ID.Status == "Active"]
{
if(inside_gplevel5 == 0)
{
if(abc5.Material_Item_Type.Material_Type == "General Purchase")
{
fetind = Indent_Sub_Form[Part_No == abc5.Part_No].sum(Required_Qty);
dprsub = DPR_General_Purchase_Stock_Qty[Part_No == abc5.Part_No];
gprow5 = MRP.BoM_Details_General_Purchase();
inven = Inventory[Part_No == abc5.Part_No].sum(Available_Qty);
gprow5.Part_No=abc5.Part_No;
gprow5.Part_Name=abc5.Part_Description;
gprow5.UoM=abc5.UoM;
gprow5.Work_Order_No=fet_wo.ID;
gprow5.Material_Item_Type=abc5.Material_Item_Type;
gprow5.Org_BoM_Qty=ifnull(abc5.Qty,0.0);
gprow5.Stock_Qty=inven.round(0);
gprow5.Indent_Qty=fetind;
gprow5.Level="Level-4";
gprow5.test_level="Level1.1" + "." + cnt1 + "." + cnt2 + "." + cnt3;
gprow5.Create_BoM_RECID=crtbom3.ID;
//CALCULATION PART
gprow5.BoM_Qty=ifnull(cwplrow4.Actual_Qty,0);
gprow5.Tot_BoM_Qty=ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0);
gprow5.Material_Center_Qty=ifnull(dprsub.GP_Balance_Qty,0);
//Below ifelse is to check negative value
if(gprow5.Material_Center_Qty == 0)
{
if(ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0) - ifnull(gprow5.Stock_Qty,0) >= 0)
{
gprow5.Plan_Qty=ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0) - ifnull(gprow5.Stock_Qty,0);
}
else
{
gprow5.Plan_Qty=ifnull(gprow5.Stock_Qty,0) - ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0);
}
gprow5.Purchase_Qty=ifnull(gprow5.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow5);
}
else if(gprow5.Material_Center_Qty > 0)
{
if(ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0) - ifnull(gprow5.Material_Center_Qty,0) >= 0)
{
gprow5.Tot_BoM_Qty=ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0);
gprow5.Plan_Qty=ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0) - ifnull(gprow5.Material_Center_Qty,0);
}
else if(ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0) - ifnull(gprow5.Material_Center_Qty,0) < 0)
{
gprow5.Tot_BoM_Qty=ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0);
gprow5.Plan_Qty=ifnull(gprow5.Material_Center_Qty,0) - ifnull(gprow5.BoM_Qty,0) * ifnull(gprow5.Org_BoM_Qty,0.0);
}
gprow5.Purchase_Qty=ifnull(gprow5.Plan_Qty,0);
input.BoM_Details_General_Purchase.insert(gprow5);
}
}
}
}
inside_gplevel5 = 1;
}
}
}
}
}
//Test
for each testrec in input.BoM_Details_General_Purchase
{
// if(testrec.S_No == 1)
// {
// testrec.Stock_Qty=1;
// }
// if(testrec.S_No == 2)
// {
// testrec.Stock_Qty=8;
// }
// if(testrec.S_No == 3)
// {
// testrec.bom_stk_qty=5;
// }
// if(testrec.S_No == 4)
// {
// testrec.Stock_Qty=50;
// }
// if(testrec.S_No == 5)
// {
// testrec.Stock_Qty=1;
// }
// if(testrec.S_No == 6)
// {
// testrec.Stock_Qty=4;
// }
// if(testrec.S_No == 7)
// {
// testrec.Stock_Qty=200;
// }
// if(testrec.S_No == 8)
// {
// testrec.Stock_Qty=50;
// }
}
for each cwplrec in input.BoM_Details_CWPL
{
if(cwplrec.Stock_Qty < cwplrec.Tot_BoM_Qty)
{
cwplrec.Blocked_Qty=cwplrec.Stock_Qty;
}
if(cwplrec.Tot_BoM_Qty < cwplrec.Stock_Qty)
{
cwplrec.Blocked_Qty=cwplrec.Tot_BoM_Qty;
}
if(cwplrec.Tot_BoM_Qty == cwplrec.Stock_Qty)
{
cwplrec.Blocked_Qty=cwplrec.Stock_Qty;
}
if(cwplrec.Stock_Qty <= 0)
{
cwplrec.Blocked_Qty=0;
}
if(cwplrec.Blocked_Qty > 0)
{
cwplrec.Block_Qty=true;
}
}
for each gprec in input.BoM_Details_General_Purchase
{
if(gprec.Stock_Qty < gprec.Tot_BoM_Qty)
{
gprec.Blocked_Qty=gprec.Stock_Qty;
}
else if(gprec.Tot_BoM_Qty <= gprec.Stock_Qty)
{
gprec.Plan_Qty=0;
gprec.Purchase_Qty=0;
gprec.Blocked_Qty=gprec.Tot_BoM_Qty;
//info "if2";
}
// else if(gprec.Tot_BoM_Qty > gprec.Stock_Qty)
// {
// gprec.Purchase_Qty=gprec.Plan_Qty;
// }
else if(gprec.Stock_Qty <= 0)
{
gprec.Blocked_Qty=0;
//info "if3";
}
else if(gprec.Tot_BoM_Qty == gprec.Stock_Qty)
{
gprec.Blocked_Qty=gprec.Stock_Qty;
}
if(gprec.Blocked_Qty > 0)
{
gprec.Block_Qty=true;
}
if(gprec.Purchase_Qty > 0)
{
gprec.Draft_Indent=true;
}
}
//SNo for MRP-Subforms
slno = 0;
for each snrec in input.BoM_Details_CWPL
{
slno = slno + 1;
if(snrec.Part_No != null)
{
snrec.S_No=slno;
}
}
gslno = 0;
for each snrecgp in input.BoM_Details_General_Purchase
{
gslno = gslno + 1;
if(snrecgp.Part_No != null)
{
snrecgp.S_No=gslno;
}
}
}
//End
check the url below
sudo apt update
sudo apt install -y zsh
it will ask a question for config opt 2
zsh --version
which zsh
whereis zsh
sudo chsh -s /usr/bin/zsh
sh -c "$(curl -fsSL https://raw.githubusercontent.com/ohmyzsh/ohmyzsh/master/tools/install.sh)"
git clone https://github.com/zsh-users/zsh-autosuggestions ${ZSH_CUSTOM:-~/.oh-my-zsh/custom}/plugins/zsh-autosuggestions
git clone https://github.com/zsh-users/zsh-syntax-highlighting.git ${ZSH_CUSTOM:-~/.oh-my-zsh/custom}/plugins/zsh-syntax-highlighting
plugins=(git zsh-autosuggestions zsh-syntax-highlighting jsontools dirhistory)
SELECT
columnname as 'Original_Value',
LEN(LTRIM(columnname)) as 'Orig_Val_Char_Count',
N'['+columnname+']' as 'UnicodeStr_Value',
LEN(N'['+columnname+']')-2 as 'True_Char_Count'
FROM mytable
bool _showLoading = true;
@override
void initState() {
super.initState();
Timer(const Duration(seconds: 90), () {
if (mounted) {
setState(() {
_showLoading = false;
});
}
});
}
if (pipes.isEmpty) {
if (_showLoading) {
return const Padding(
padding: EdgeInsets.all(16.0),
child: Center(
child: Loader(),
),
);
} else {
return const Padding(
padding: EdgeInsets.all(16.0),
child: Center(
child: Text("No pipes found in enquiry"),
),
);
}
} else {
error: (error, st) {
return Center(
child: Text(error.toString()),
);
},
loading: () {
return const Loader();
},
child: (salesStock.isEmpty)
? (_showLoading
? const Padding(
padding: EdgeInsets.all(16.0),
child: Center(
child: CircularProgressIndicator(),
),
)
: const Padding(
padding: EdgeInsets.all(16.0),
child: Center(
child: Text("No Enquiry Found"),
),
))
{
"blocks": [
{
"type": "header",
"text": {
"type": "plain_text",
"text": " :mirror_ball::star: Boost Days - What's on this week! :star::mirror_ball:"
}
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": "Happy Monday! See below for what's in store for our Boost Days this week:"
}
},
{
"type": "divider"
},
{
"type": "header",
"text": {
"type": "plain_text",
"text": ":calendar-date-21: Tuesday, 21st January",
"emoji": true
}
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": "\n:coffee: *Xero Café*: Café-style beverages and sweet treats \n\n:meow-coffee-intensifies-and-shakes: *Barista Special*: _Caramel Macchiato_ \n\n:pancakes: *Breakfast*: Provided by *Catroux* from *8:30am - 10:30am* \n "
}
},
{
"type": "header",
"text": {
"type": "plain_text",
"text": ":calendar-date-22: Wednesday, 22nd January",
"emoji": true
}
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": ":hands: *January Global All Hands:* 10am - 11am in the All Hands Space"
}
},
{
"type": "header",
"text": {
"type": "plain_text",
"text": ":calendar-date-23: Thursday, 23rd January",
"emoji": true
}
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": ":coffee: *Xero Café*: Café-style beverages and sweet treats \n\n :meow-coffee-intensifies-and-shakes: *Barista Special*: _Caramel Macchiato_ \n\n :sandwich: *Light Lunch*: Provided by *Catroux* from *12pm - 1pm* \n\n :massage: *Wellness* Massage therapy in the gym, treat yourself <https://corporate-massage.co.nz/bookable/make/appt/booking.php?c=lytgoz|*here.*> \n\n :cupcake: * New Brand Activation Platform Video:* Join us from 2pm in the All Hands Space to celebrate our new Brand Platform Activation _Your Business Supercharged_ we'll have some delicious cupcakes to enjoy while we watch the video! \n\n :clinking_glasses: *Social Happy Hour* from 4pm - 5:30pm in our All Hands Space"
}
},
{
"type": "divider"
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": "Stay tuned to this channel for more details, check out the <https://calendar.google.com/calendar/u/0?cid=eGVyby5jb21fMXM4M3NiZzc1dnY0aThpY2FiZDZvZ2xncW9AZ3JvdXAuY2FsZW5kYXIuZ29vZ2xlLmNvbQ|*Auckland Social Calendar*>, and get ready to Boost your workdays!\n\nLove,\nWX :wx:"
}
}
]
}
{
"blocks": [
{
"type": "header",
"text": {
"type": "plain_text",
"text": " :mirror_ball::star: Boost Days - What's on this week! :star::mirror_ball:"
}
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": "Happy Monday! See below for what's in store for our Boost Days this week:"
}
},
{
"type": "divider"
},
{
"type": "header",
"text": {
"type": "plain_text",
"text": ":calendar-date-14: Tuesday, 14th January",
"emoji": true
}
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": "\n:coffee: *Xero Café*: Café-style beverages and sweet treats\n:meow-coffee-intensifies-and-shakes: *Barista Special*: Iced Vanilla Long Black \n:pancakes: *Breakfast*: Provided by *Catroux* from *8:30am - 10:30am* \n "
}
},
{
"type": "header",
"text": {
"type": "plain_text",
"text": ":calendar-date-16: Thursday, 16th January",
"emoji": true
}
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": ":coffee: *Xero Café*: Café-style beverages and sweet treats \n :meow-coffee-intensifies-and-shakes: *Barista Special*: White Chocolate Matcha \n :sandwich: *Light Lunch*: Provided by *Catroux* from *12pm - 1pm*"
}
},
{
"type": "divider"
},
{
"type": "section",
"text": {
"type": "mrkdwn",
"text": "Stay tuned to this channel for more details, check out the <https://calendar.google.com/calendar/u/0?cid=eGVyby5jb21fMXM4M3NiZzc1dnY0aThpY2FiZDZvZ2xncW9AZ3JvdXAuY2FsZW5kYXIuZ29vZ2xlLmNvbQ|*Auckland Social Calendar*>, and get ready to Boost your workdays!\n\nLove,\nWX :wx:"
}
}
]
}
public class ValidationBehavior<TRequest, TResponse>(IValidator<TRequest>? validator = null)
: IPipelineBehavior<TRequest, TResponse>
where TRequest : IRequest<TResponse>
where TResponse : IErrorOr
{
private readonly IValidator<TRequest>? _validator = validator;
public async Task<TResponse> Handle(
TRequest request,
RequestHandlerDelegate<TResponse> next,
CancellationToken cancellationToken)
{
if (_validator is null)
{
return await next();
}
var validationResult = await _validator.ValidateAsync(request, cancellationToken);
if (validationResult.IsValid)
{
return await next();
}
var errors = validationResult.Errors
.ConvertAll(error => Error.Validation(
code: error.PropertyName,
description: error.ErrorMessage));
return (dynamic)errors;
}
}
const deliveryMode = {
online: true,
inperson: false,
hybrid: true
};
const result = Object.keys(deliveryMode).filter(key => {
return typeof deliveryMode[key] === "boolean" && deliveryMode[key] === true;
console.log(result); // Output: ["online", "hybrid"]
});
import random
name = input("What is your name? ")
print("Good Luck ! ", name)
words = ['rainbow', 'computer', 'science', 'programming',
'python', 'mathematics', 'player', 'condition',
'reverse', 'water', 'board', 'geeks']
word = random.choice(words)
print("Guess the characters")
guesses = ''
turns = 12
while turns > 0:
failed = 0
for char in word:
if char in guesses:
print(char, end=" ")
else:
print("_")
failed += 1
if failed == 0:
print("You Win")
print("The word is: ", word)
break
print()
guess = input("guess a character:")
guesses += guess
if guess not in word:
turns -= 1
print("Wrong")
print("You have", + turns, 'more guesses')
if turns == 0:
print("You Loose")
graph = {
'A': ['B', 'C'],
'B': ['D', 'E'],
'C': ['F', 'G'],
'D': [],
'E': [],
'F': [],
'G': []
}
def bfs(graph, start, goal):
visited = [] # List to keep track of visited nodes
queue = [] # Queue for BFS
visited.append(start)
queue.append(start)
while queue:
s = queue.pop(0) # Dequeue a node
if s == goal: # Stop as soon as the goal is found
print(s)
return
print(s) # Print the current node
for neighbor in graph[s]:
if neighbor not in visited:
visited.append(neighbor)
queue.append(neighbor)
# Call the function
bfs(graph, 'A', 'F')
Rows =int(input(Enter number of rows:))
K=o
For I in range (1,rows+1):
For space in in range (,(rows-i)+1
"use client";
import {useState} from "react";
const usePostData = () => {
const [loading, setLoading] = useState(false);
const [error, setError] = useState(null);
const postData = async (url, payload) => {
setLoading(true);
setError(null);
return fetch(url, {
method: "POST",
body: payload,
})
.then((response) => {
if (!response.ok) {
return response.json().then((errorData) => {
throw new Error(errorData.message || "Failed to post data");
});
}
return response.json();
})
.catch((err) => {
setError(err.message);
throw err; // Re-throw the error to allow the component to handle it
})
.finally(() => {
setLoading(false);
});
};
return { postData, loading, error };
};
export default usePostData;
use Illuminate\Http\Request;
use Symfony\Component\HttpKernel\Exception\NotFoundHttpException;
->withExceptions(function (Exceptions $exceptions) {
$exceptions->render(function (NotFoundHttpException $e, Request $request) {
if ($request->is('api/*')) {
return response()->json([
'message' => 'Record not found.'
], 404);
}
});
})
Created or Edited -> User input of Item Details.Part_Description -> ItemDeatils_PartDesc_Validations
Tue Jan 07 2025 14:24:34 GMT+0000 (Coordinated Universal Time)
star
photo_camera
Tue Jan 07 2025 10:48:23 GMT+0000 (Coordinated Universal Time) https://bluevps.com/blog/how-to-install-oh-my-zsh-on-ubuntu-2204
star
photo_camera
Tue Jan 07 2025 10:46:25 GMT+0000 (Coordinated Universal Time) https://stackoverflow.com/questions/14255236/count-number-of-characters-in-nvarchar-column
star
Tue Jan 07 2025 09:14:52 GMT+0000 (Coordinated Universal Time) https://maticz.com/rarible-clone-script
star
photo_camera
Mon Jan 06 2025 21:42:52 GMT+0000 (Coordinated Universal Time) https://github.com/amantinband/error-or?form
star
photo_camera
Mon Jan 06 2025 06:23:59 GMT+0000 (Coordinated Universal Time) https://laravel.com/docs/11.x/errors
Save snippets that work with our extensions
