BT - The Good, The Bad and the Ugly
The Good
I see BT getting a hammering in this forum for upload speeds and broken promises.
I want to say that BT Engineer came round today as promised and sorted my problems out.
Ran some tests and although he said they seemed ok, he did an AC test? Said that it was marginal at 54 (anybody know what this is?)
He has connected a different line and the AC result went up to 75 which is good (apparently).
My BB has been running at 25 Mb down and after he released the profile, now gone up to 36Mb. (May not hold at that!)
Good guy, great work, well done BT.
The Bad
Under ADSL, the hub showed FEC and CRC errors. BT have chosen to remove this facility in HH3 and I can understand why as for the "average" user, too much knowledge is a dangerous thing. I'm sure customer service was being overwhelmed with calls of "is this right?"
However, it is very frustrating when you know you have a line problem, but officially all you can report to BT is that the line speed has dropped by 10Mb.
I know my line is capable of 30 - 36 Mb but when you phone the call centre (see below) you restart the hub and of course when you find it's still only 25 Mb because your IP profile has been capped by the DSLAM, you are then told that this is acceptable because anything above 20Mb is fine. It's not fine! (Rant)
Of course I have other VDSL modems which are able to five me full stats on DSL errors and surprise, surprise, I'm getting 10 million FEC errors in 15 minutes.
The Ugly
Quite simply the call centres; actually, certain call centres.
I phone up and report my poor download speed.
25Mb is acceptable
No it's not I've been running at 33Mb.
OK restart the hub.
No better
OK I'll do some line tests....there is a fault on the line. (No shiz Sherlock)
An engineer will sort it within 48 hours.
Will he need access to the house?
No - he will look at the cab and the line.
Next day...
Call from BT...Has your speed recovered.
No
Oh we'll need to send an engineer out
Hmmmmm
Engineer turned up as promised (back to top)
In summary
BT Engineers - great.
BT Infinity itself - great.
I understand the limitation of line length, copper, flooded access points, weather, Xtalk, so am not expecting a full 40Mb service. Just please don't fib to me that I should be ok with 20Mb on a faulty line.
BT Customer support:
Online support - great
Forum mods - great
Offshore - forget it
Thanks for the comments.
FEC error details showing on HH3 - understand that but you are probably aware that these can be (ahem) obtained from the HG612 if you were so inclined.
I honestly wanted to say that the product offering and the technical support has been good from BT, probably because I got a decent result to be fair.
In this particular case I got L2 support - never got to those heady hights before, and recieved a call after engineer had been asking if it had been resolved to my satisfaction etc. so tick in the box. Recieved another call this morning.
You've probably nailed it by pointing out the VERY conservative etimates of speed for contractual purposes.
Even the DSLAMs have got the "script" When you have a good connection and decent IP profile, the acceptable range is high, when your profile has dropped through the floor, acceptable speeds are low. Hope we can change the goalposts like this in the European Championships!
Similar Messages
-
How much will Apple charge me to have my Ipod Touch 4g fixed? It won't turn on anymore more because I think the battery is probably bad, and the home button doesn't work either... its not under any warrenty either.
Apple - Support - iPod - Repair pricing - http://www.apple.com/support/ipod/service/prices/
-
I recently purchased songs from my iphone. All good... But I then went to put them on my ipod touch. They seemed to have downloaded but the songs wont play and the song title/the text, appears in a grey colour and there is a downlaod symbol in front of the song title. what do i do next?? They play on my iphone and from the itunes library but not from my ipod touch.
If the songs are still on your ipod, make sure autosync is disabled in iTunes on your computer, connect and right click on it in the device list, then choose "transfer purchases" to copy all bought media and apps from your ipod to your computer.
If the songs are not on your computer and got deleted from your ipod as well, you can't get them back, unless you have a backup of your iTunes library as part of your computer backup. -
Imprumut = loan
I have 6 tables:
I have one combobox(from where I select utilizatori(users)) and 2 CheckedListBox(Between first box and second box I have 2 buttons:imprumuta(loan) and restituie(return))
This c# code works just for first user: Utilizator, but something's not good. When I add new utilizator(user) and select it, the loan will be add in my SQL DataBase, but... the book who I selected doesn't move to the right in CheckedListBox and the reason
is that I can't make an return
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using MySql.Data.MySqlClient;
namespace proiect
public partial class Imprumut : Form
MySqlConnection con = new MySqlConnection("DataSource=localhost;UserID=root;database=biblio1");
//stabilim conexiunea
MySqlCommand comUser;//interogarea pe baza careia umplem comboBox
MySqlDataAdapter adaptu;
DataTable userT = new DataTable();
MySqlCommand cmdCarti;//interogarea pe baza careia umplem checkListBox
MySqlDataAdapter adaptCarti;
DataTable CartiTabel = new DataTable();
MySqlCommand cmdCartiImprumutate;//interogarea pe baza careia umplem checkListBox
MySqlDataAdapter adaptCartiImprumutate;
DataTable CartiImprumutateTabel = new DataTable();
public int UserId
get
return Convert.ToInt32(user.SelectedValue.ToString());
void Completez_Combo_User()
try
comUser = new MySqlCommand("SELECT n.userid, CONCAT(n.UserName) as UserN FROM users n left join userroles us on n.userid=us.userid left join roles r on r.roleid=us.roleid WHERE r.roleid='3'",
con);
adaptu = new MySqlDataAdapter(comUser);
adaptu.Fill(userT);
user.Items.Clear();
user.DataSource = userT;
//DataTable din care sunt preluate datele pentru ComboBox user
user.ValueMember = "UserID";
//Valoarea din coloana UserID nu se afiseaza in combobox
user.DisplayMember = "UserN";
//Eelementele afisate in combobox, preluate din concatenarea mai multor coloane
catch (Exception ex)
MessageBox.Show(ex.Message);
void Completez_CheckList_Carti()
try
cmdCarti = new MySqlCommand("SELECT BookID, CONCAT(title, ' ', ISBN,' ',author)as date_carte FROM books WHERE NumberLeft > 0 ORDER BY BookID", con);
adaptCarti = new MySqlDataAdapter(cmdCarti);
adaptCarti.Fill(CartiTabel);
imp.Items.Clear();
//carti.DataSource=null;
imp.DataSource = CartiTabel;
//DataTable din care sunt preluate datele pentru ComboBox carte
imp.ValueMember = "BookID";
//Valoarea din coloana BookID nu se afiseaza in combobox
imp.DisplayMember = "date_carte";
//Eelementele afisate in combobox, preluate din concatenarea mai multor coloane
catch (Exception ex)
MessageBox.Show(ex.Message);
void Completez_CheckList_Cartires()
try
cmdCartiImprumutate = new MySqlCommand(string.Format("SELECT b.BookID, CONCAT(title, ' ', ISBN,' ',author) as date_carte FROM books b inner join userbooks ub on ub.bookid = b.bookid
WHERE ub.userid = {0} ORDER BY BookID", UserId), con);
adaptCartiImprumutate = new MySqlDataAdapter(cmdCartiImprumutate);
adaptCartiImprumutate.Fill(CartiImprumutateTabel);
res.Items.Clear();
//carti.DataSource=null;
res.DataSource = CartiImprumutateTabel;
//DataTable din care sunt preluate datele pentru ComboBox carte
res.ValueMember = "BookID";
//Valoarea din coloana BookID nu se afiseaza in combobox
res.DisplayMember = "date_carte";
//Eelementele afisate in combobox, preluate din concatenarea mai multor coloane
catch (Exception ex)
MessageBox.Show(ex.Message);
void Inregistrez_imprumut_in_BD()
int useridu = Convert.ToInt32(user.SelectedValue.ToString()); //useridu = id book
int bookidi;
try
DateTime azi = System.DateTime.Now; // Data imprumutului
DateTime atunci = termenul.Value; // Data restituirii
MySqlTransaction tranzactie = con.BeginTransaction();
MySqlCommand adaugImpr = new MySqlCommand("INSERT INTO bookshistory(UserID, BookID,BorrowDate) VALUES(@UserID, @BookID, CAST(@BorrowDate as datetime))", con);
MySqlCommand scadCarti = new MySqlCommand("UPDATE books SET numberleft=numberleft-1 WHERE bookid=@bookid", con);
MySqlCommand adauga_userbooks = new MySqlCommand("INSERT INTO userbooks(userId,bookID)VALUES(@userID,@bookID)", con);
adauga_userbooks.Transaction = tranzactie;
adaugImpr.Transaction = tranzactie;
scadCarti.Transaction = tranzactie;
try
foreach (int i in imp.CheckedIndices)
imp.SelectedIndex = i;
bookidi = Convert.ToInt32(imp.SelectedValue.ToString());
MessageBox.Show(bookidi.ToString());
//bookidi va fi id-ul cartea bifata, pe rand din checklistBox
//Inregistrez in tabela imprumut
adaugImpr.Parameters.AddWithValue("@UserID", useridu);
adaugImpr.Parameters.AddWithValue("@BookID", bookidi);
adaugImpr.Parameters.AddWithValue("@BorrowDate", azi);
adaugImpr.ExecuteNonQuery();
adaugImpr.Parameters.Clear();
adauga_userbooks.Parameters.AddWithValue("@userID", useridu);
adauga_userbooks.Parameters.AddWithValue("@bookID", bookidi);
adauga_userbooks.ExecuteNonQuery();
adauga_userbooks.Parameters.Clear();
//Scad numarl de carti disponibile pentru cartea imprumutat
scadCarti.Parameters.AddWithValue("@bookid", bookidi);
scadCarti.ExecuteNonQuery();
scadCarti.Parameters.Clear();
tranzactie.Commit();
catch (Exception ex)
tranzactie.Rollback();
string message = ex.Message;
if (ex.Message.ToLower().Contains("duplicate entry"))
message = "Una dintre carti mai exista deja";
MessageBox.Show(message);
catch (Exception ex)
MessageBox.Show(ex.Message);
void Inregistrez_restituire_in_BD()
int useridu = Convert.ToInt32(user.SelectedValue.ToString()); //useridu = id book
int bookidi;
try
DateTime azi = System.DateTime.Now; // Data imprumutului
DateTime atunci = termenul.Value; // Data restituirii
MySqlTransaction tranzactie = con.BeginTransaction();
MySqlCommand modificIstoric = new MySqlCommand("UPDATE bookshistory SET returndate = @returnDate WHERE userID = @userID AND bookID = @bookID", con);
MySqlCommand adaugCarti = new MySqlCommand("UPDATE books SET numberleft = numberleft + 1 WHERE bookID = @bookID", con);
MySqlCommand sterge_userbooks = new MySqlCommand("DELETE FROM userbooks WHERE userID = @userID AND bookID = @bookID", con);
sterge_userbooks.Transaction = tranzactie;
modificIstoric.Transaction = tranzactie;
adaugCarti.Transaction = tranzactie;
try
foreach (int i in res.CheckedIndices)
res.SelectedIndex = i;
bookidi = Convert.ToInt32(res.SelectedValue.ToString());
MessageBox.Show(bookidi.ToString());
//bookidi va fi id-ul cartea bifata, pe rand din checklistBox
//Inregistrez in tabela imprumut
modificIstoric.Parameters.AddWithValue("@UserID", useridu);
modificIstoric.Parameters.AddWithValue("@BookID", bookidi);
modificIstoric.Parameters.AddWithValue("@returnDate", termenul.Value);
modificIstoric.ExecuteNonQuery();
modificIstoric.Parameters.Clear();
sterge_userbooks.Parameters.AddWithValue("@UserID", useridu);
sterge_userbooks.Parameters.AddWithValue("@BookID", bookidi);
sterge_userbooks.ExecuteNonQuery();
sterge_userbooks.Parameters.Clear();
//Scad numarl de carti disponibile pentru cartea imprumutat
//adaugCarti.Parameters.AddWithValue("@bookid", bookidi);
adaugCarti.Parameters.AddWithValue("@bookid", bookidi);
adaugCarti.ExecuteNonQuery();
adaugCarti.Parameters.Clear();
tranzactie.Commit();
catch (Exception ex)
tranzactie.Rollback();
MessageBox.Show(ex.Message);
catch (Exception ex)
MessageBox.Show(ex.Message);
public Imprumut()
InitializeComponent();
try
con.Open();
catch (Exception ex)
MessageBox.Show(ex.Message);
Completez_Combo_User();
Completez_CheckList_Carti();
Completez_CheckList_Cartires();
//selecteaza_carti_utilizator();
// Initializez termenul din dateTimePicker la data de peste 15 zile fata de data sistemului
termenul.Value = System.DateTime.Now.AddDays(15);
private void imprumuta_Click(object sender, EventArgs e)
Confirmare c = new Confirmare("Confirmati imprumutul?");
DialogResult dr = c.ShowDialog();
if (dr == DialogResult.Yes)
try
Inregistrez_imprumut_in_BD();
MessageBox.Show("Imprumutul a fost inregistrat");
//Dupa inregistrarea imprumutului o parte din carti nu mai sunt disponibile pentru imprumut
//Reincarc in CheckList cu Carti noua lista cu carti ramase dupa imprumut
//Pentru asta "resetez" datele din dataTable cartiT (sursa pentru carti.DataSource)
CartiTabel.Clear();
adaptCarti.Fill(CartiTabel);
CartiImprumutateTabel.Clear();
adaptCartiImprumutate.Fill(CartiImprumutateTabel);
catch (Exception ex)
MessageBox.Show(ex.Message);
if (dr == DialogResult.No)
MessageBox.Show("Imprumutul NU a fost inregistrat");
imp.ClearSelected();
//deselecteaza cartea selectat
foreach (int i in imp.CheckedIndices)
imp.SetItemChecked(i, false);
//debifeaza cartile bifate
//if (imp.CheckedItems.Count > 0)
// //res.Items.Clear();
// foreach (string str in imp.CheckedItems)
// res.Items.Add(str);//adauga in partea cealalta, imprumuta
// while (imp.CheckedItems.Count > 0)
// imp.Items.Remove(imp.CheckedItems[0]);
private void restituie_Click(object sender, EventArgs e)
Confirmare r = new Confirmare("Confirmati restituirea?");
DialogResult dr = r.ShowDialog();
if (dr == DialogResult.Yes)
try
Inregistrez_restituire_in_BD();
MessageBox.Show("Restituirea a fost inregistrata");
//Dupa inregistrarea imprumutului o parte din carti nu mai sunt disponibile pentru imprumut
//Reincarc in CheckList cu Carti noua lista cu carti ramase dupa imprumut
//Pentru asta "resetez" datele din dataTable cartiT (sursa pentru carti.DataSource)
CartiTabel.Clear();
adaptCarti.Fill(CartiTabel);
CartiImprumutateTabel.Clear();
adaptCartiImprumutate.Fill(CartiImprumutateTabel);
catch (Exception ex)
MessageBox.Show(ex.Message);
if (dr == DialogResult.No)
MessageBox.Show("Restituirea NU a fost inregistrata");
res.ClearSelected();
//deselecteaza cartea selectat
foreach (int i in imp.CheckedIndices)
res.SetItemChecked(i, false);
//debifeaza cartile bifate
if (res.CheckedItems.Count > 0)
foreach (string str in res.CheckedItems)
imp.Items.Add(str);
while (res.CheckedItems.Count > 0)
res.Items.Remove(res.CheckedItems[0]);
private void button2_Click(object sender, EventArgs e)
con.Close();
this.Close();
//private void selecteaza_carti_utilizator()
// res.Items.Clear();
// MySqlCommand selectcart = new MySqlCommand("select title from books,userbooks where userbooks.userid='" + user.SelectedValue.ToString() + "' and userbooks.bookid=books.bookid", con);
// MySqlDataReader reader = selectcart.ExecuteReader();
// try
// while(reader.Read())
// res.Items.Add(reader["title"]);
// catch(Exception ex)
// MessageBox.Show(ex.Message);
// finally
// reader.Close();Hello Vincenzzo,
This issue seems to be a window form UI implemented related issue, for this i suggest that you could ask it to the windows form forum:
http://social.msdn.microsoft.com/Forums/windows/en-US/home?forum=winforms
The current forum you posted to is used to discuss and ask questions about .NET Framework Base Classes (BCL) such as Collections, I/O, Regigistry, Globalization, Reflection.
Regards.
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey. -
Values in "vendor batch" in the Goods-in-order and Goods-in-plan lists are
Vendor batch No. : Transaction ZJPMPU322
(Background)
There are "vendor batch" and "batch" fields in Goods-in-order and Goods-in-plan lists (transaction ZJPMPU322). Values for these fields are retrieved from inbound delivery document (transaction VL33N). After core 7.0 upgrade, "vendor batch" is not copied from "batch" in inbound delivery document any more so that nothing appears in the vendor batch field in the lists.
(Change request)
Values in "vendor batch" in the Goods-in-order and Goods-in-plan lists are retrieved from "batch" in inbound delivery document ONLY IF "vendor batch" is blank in the inbound delivery document.
(Current design)
Batch is retrieved from LIPS-CHARG
Vendor batch is retrieved from LIPS-LICHN
(If there is no record in LIPS, blank will be printed out for both fields)
(After change)
Batch is retrieved from LIPS-CHARG
Vendor batch is retrieved from LIPS-LICHN only if LIPS-LICHN is not blank.
If LIPS-LICHN is blank, vendor batch is retrieved from LIPS-CHARG.
(If there is no record in LIPS, blank will be printed out for both fields. If both LIPS-CHARG and LIPS-LICHN are blank, blank will be printed out for both fields),
Following is the program:
REPORT zjpmrpu322 MESSAGE-ID zjpm001
NO STANDARD PAGE HEADING
LINE-COUNT 50
LINE-SIZE 255.
*& Development ID: PU_DD_322_LJP *
*& Report : ZJPMRPU322 *
*& The Purpose of this program is to print the Goods-in-order list *
*& and the Goods in plan list for raw materials, materials purchase *
*& etc at the Sasayama plant, Japan. *
*& Change Log: *
*& Init Who Date Text *
*& PV P V R S Varma 07-May-2003 Initial Version *
*& DU D.Usui 2004/02/26 CR No. 1432 *
*& DU D.Usui 2004/03/08 CR No. 1447 *
*& DU D.Usui 2004/05/06 CR No. 1591 *
Constants
CONSTANTS:
c_werks LIKE ekpo-werks VALUE 'JP01', "Plant code - Sasayama plant
c_id LIKE thead-tdid VALUE 'F02', "Text ID for Info record
c_object LIKE thead-tdobject VALUE 'EKPO',"Object of text for info rec
*c_zzjp_r1 LIKE marc-zzjp_re1 VALUE 'GMP', "Goods in plan- Domestic
*c_zzjp_r2 LIKE marc-zzjp_re1 VALUE 'GMPI', "Import sales order document
c_plus TYPE c VALUE '', "Holding '' sign
c_spras LIKE makt-spras VALUE 'J', "Language key Japan
*c_device(7) type c value 'PRINTER', "Device type
c_form(16) TYPE c VALUE 'ZJPMPU305', "Form name
c_ele_gmp(4) TYPE c VALUE 'GMP', "GMP Text element
c_ele_gmpi(4) TYPE c VALUE 'GMPI', "GMPI Text element
add begin CR1432
c_ele_bgmp(4) TYPE c VALUE 'BGMP', "BGMP
c_ele_bgmpi(5) TYPE c VALUE 'BGMPI', "BGMPI
add end CR1432
c_function(3) TYPE c VALUE 'SET', "Function
c_type(4) TYPE c VALUE 'BODY', "Window area in main window
c_win_head(7) TYPE c VALUE 'HEADING', "Heading window
c_win_shead(7) TYPE c VALUE 'SUBHEAD', "sub heading window
c_win_fot1(7) TYPE c VALUE 'FOOTER1', "Footer 1 window
c_win_main(4) TYPE c VALUE 'MAIN', "Main window
c_comd(8) TYPE c VALUE 'NEW-PAGE', "New-page command
c_zar TYPE ekko-bsart VALUE 'ZAR',
c_x TYPE c VALUE 'X', "Indicator for print options
c_f TYPE c VALUE 'F', "Indicator for Purchase Order
add begin CR1591
Deletion indicator in purchasing document
c_loekz(1) TYPE c VALUE 'L',
For ranges tables
c_sign_i(1) TYPE c VALUE 'I', "Sign(include)
c_op_eq(2) TYPE c VALUE 'EQ', "Option(=)
Confirmation category
c_ebtyp_ab(2) TYPE c VALUE 'AB', "Order acknowledgment
add end CR1591
c_la(2) TYPE c VALUE 'LA'. "Indicator for Inbound deliver
Database Tables
Vaiables / Internal tables *
Internal table to store PO information
Not used after CR1591
DATA: BEGIN OF t_purc OCCURS 0,
ebeln LIKE eket-ebeln, "Purchasing Document Number
ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled quantity
charg LIKE eket-charg, "Batch number
matnr LIKE ekpo-matnr, "Material code
werks LIKE ekpo-werks, "Plant
meins LIKE ekpo-meins, "Unit of measure
lifnr LIKE ekko-lifnr, "Vendor number
END OF t_purc.
Internal table to store material description.
DATA: BEGIN OF t_makt OCCURS 0,
matnr LIKE makt-matnr, "Material code
maktx LIKE makt-maktx, "Material description
END OF t_makt.
Internal table for storage of final EKET data
DATA: BEGIN OF t_eket OCCURS 0,
ebeln LIKE eket-ebeln, "Purchasing Document Number
ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
ebelp_ex(6) TYPE n, "Extended ebelp with length 6
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled quantity
dabmg LIKE ekes-dabmg, " Delivered Quantity
charg LIKE eket-charg, "Batch number
matnr LIKE ekpo-matnr, "Material code
werks LIKE ekpo-werks, "Plant
maktx LIKE makt-maktx, "Material Description-- jp check
etens LIKE ekes-etens, "Sequence Number
meins LIKE ekpo-meins, "Unit of measure
lifnr LIKE ekko-lifnr, "Vendor number
vbeln LIKE ekes-vbeln,
vbelp LIKE ekes-vbelp,
vpnam(40) TYPE c, "Vendor product name
END OF t_eket.
Internal table for extraction of data from EKES
Not used after CR1591
DATA: BEGIN OF t_ekes OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE ekes-eindt, "Item delivery date
menge LIKE ekes-menge, "Scheduled Quantity
dabmg LIKE ekes-dabmg, " delivered quantity
vbeln LIKE ekes-vbeln,
vbelp LIKE ekes-vbelp,
mark TYPE c,
END OF t_ekes.
Internal table for extraction of data from EKES
Not used after CR1591
DATA: BEGIN OF t_ekes_temp OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE ekes-eindt, "Item delivery date
menge LIKE ekes-menge, "Scheduled Quantity
END OF t_ekes_temp.
Internal table for storing data from MLGN table.
DATA: BEGIN OF t_mlgn OCCURS 0,
matnr LIKE mlgn-matnr, "material code
lhmg1 LIKE mlgn-lhmg1, "Standard pallet size
lhme1 LIKE mlgn-lhme1, "Unit of measure
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
END OF t_mlgn.
Internal table for storing data from MARM table.
DATA: BEGIN OF t_marm OCCURS 0,
matnr LIKE marm-matnr, "material code
umrez LIKE marc-zzjp_cas_size, "Std package unit
meins LIKE ekpo-meins, "alternate unit
END OF t_marm.
Internal table for storing data from MARC table.
DATA: BEGIN OF t_marc OCCURS 0,
matnr LIKE marc-matnr, "Material code
zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
zzjp_re1 LIKE marc-zzjp_re1, "Heading
END OF t_marc.
Internal table for storing data from lfa1 table.
DATA: BEGIN OF t_lfa1 OCCURS 0,
lifnr LIKE lfa1-lifnr, "Vendor code
name1 LIKE lfa1-name1, "Vendor name
END OF t_lfa1.
Internal table for Storing data from LIPS table.
DATA: BEGIN OF t_lips OCCURS 0,
vbeln LIKE lips-vbeln, "Delivery document no
posnr LIKE lips-posnr, "Item number for Delivery document
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
END OF t_lips.
Internal table for storing the final display data.
DATA: BEGIN OF t_display OCCURS 0,
g_checkbox type c, "check box for selection of records
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled Quantity
vpnam(40) TYPE c, "Vendor product name
lifnr LIKE ekko-lifnr, "Vendor code
name1 LIKE lfa1-name1, "Vendor name
meins LIKE ekpo-meins, "Unit of measure
matnr LIKE ekpo-matnr, "Material Number
maktx LIKE makt-maktx, "Material Description-- jp check
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
lhmg1 LIKE mlgn-lhmg1, "standard pallet size
lhme1 LIKE mlgn-lhme1, "Unit of standard pallet
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
umrez LIKE marc-zzjp_cas_size, "Std package unit
meinh LIKE ekpo-meins, "alternate unit
zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
zzjp_re1 LIKE marc-zzjp_re1, "Heading
std_pac_no(13) TYPE n, "Std receipt package no
tot_std_pt(13) TYPE n, "Total no of std pallets
add begin CR1447
Add new field 'Goods-in-order','Item' for goods in plan list
vbeln like ekes-vbeln, "Goods-in-order
vbelp like ekes-vbelp, "Item
add end CR1447
END OF t_display.
Internal table for storing the final display data -Goods in order list
DATA: BEGIN OF t_display1 OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled Quantity
vpnam(40) TYPE c, "Vendor product name
lifnr LIKE ekko-lifnr, "Vendor code
name1 LIKE lfa1-name1, "Vendor name
meins LIKE ekpo-meins, "Unit of measure
matnr LIKE ekpo-matnr, "Material Number
maktx LIKE makt-maktx, "Material Description-- jp check
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
lhmg1 LIKE mlgn-lhmg1, "standard pallet size
lhme1 LIKE mlgn-lhme1, "Unit of standard pallet
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
umrez LIKE marc-zzjp_cas_size, "Std package unit
meinh LIKE ekpo-meins, "alternate unit
zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
zzjp_re1 LIKE marc-zzjp_re1, "Heading
std_pac_no(13) TYPE n, "Std receipt package no
tot_std_pt(13) TYPE n, "Total no of std pallets
END OF t_display1.
Internal table for storing the final display data - Goods in plan list
DATA: BEGIN OF t_display2 OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled Quantity
name1 LIKE lfa1-name1, "Vendor name
meins LIKE ekpo-meins, "Unit of measure
matnr LIKE ekpo-matnr, "Material Number
maktx LIKE makt-maktx, "Material Description-- jp check
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
lhmg1 LIKE mlgn-lhmg1, "standard pallet size
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
tot_std_pt(13) TYPE n, "Total no of std pallets
add begin CR1447
Add new field 'Goods-in-order','Item' for goods in plan list
vbeln like ekes-vbeln, "Goods-in-order
vbelp like ekes-vbelp, "Item
add end CR1447
END OF t_display2.
add begin CR1591
RANGES: r_matnr FOR mara-matnr, "for p_matnr
r_ebeln FOR ekpo-ebeln. "for p_ebeln
add end CR1591
DATA: line TYPE i. " line number
DATA: g_checkbox TYPE c. "check box for selection of records
DATA: g_tab LIKE sy-index. "variable to hold index
DATA g_tabix LIKE sy-tabix. "holder for table index
Printing Options.
DATA: lw_pr_options LIKE itcpo.
*lw_pr_options-tddest = 'SA03'. " Print Device Name
lw_pr_options-tdpreview = 'X'. " Print Preview
lw_pr_options-tdnewid = 'X'. " New Request
lw_pr_options-tdlifetime = 2. " Retention in Spool
Selection Screen *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
SELECT-OPTIONS:
s_date FOR sy-datum DEFAULT sy-datum. " Search period.
PARAMETERS:
p_matnr LIKE mara-matnr, " Material code
p_ebeln LIKE ekpo-ebeln. " Purchase Document No
SELECTION-SCREEN END OF BLOCK blk1.
Selection Screen Checks *
AT SELECTION-SCREEN.
IF ( s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
MESSAGE e000 WITH 'Entry Must in atleast one of the Fields'(t00).
ENDIF.
IF ( NOT p_matnr IS INITIAL ) AND
( s_date IS INITIAL ) AND
( p_ebeln IS INITIAL ).
MESSAGE e000 WITH 'Date should also be Entered'(t01).
ENDIF.
del begin CR1591
This check is not found in original FS
IF ( NOT p_matnr IS INITIAL ) AND
( s_date IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
MESSAGE e000 WITH 'Date should also be Entered'(t01).
ENDIF.
del end CR1591
Validations for Data selection *
del begin CR1591
Waste check
IF ( NOT s_date IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
PERFORM f_check_date_in_eket.
ENDIF.
IF ( NOT s_date IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
PERFORM f_check_matnr_in_plant.
PERFORM f_check_matnr_in_ekpo.
PERFORM f_check_date_in_eket.
PERFORM f_check_matnr_in_plant.
PERFORM f_check_matnr_in_ekpo.
ENDIF.
IF ( NOT s_date IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
PERFORM f_check_matnr_in_plant.
PERFORM f_check_matnr_in_ekpo.
PERFORM f_check_date_in_eket.
PERFORM f_check_ebeln_in_ekpo.
PERFORM f_check_werks_in_ekpo.
ENDIF.
IF ( NOT p_ebeln IS INITIAL ) AND
( NOT s_date IS INITIAL ) AND
( p_matnr IS INITIAL ).
PERFORM f_check_date_in_eket.
PERFORM f_check_ebeln_in_ekpo.
PERFORM f_check_werks_in_ekpo.
ENDIF.
IF ( NOT p_ebeln IS INITIAL ) AND
( s_date IS INITIAL ) AND
( p_matnr IS INITIAL ).
PERFORM f_check_ebeln_in_ekpo.
PERFORM f_check_werks_in_ekpo.
ENDIF.
del end CR1591
Data selection from Tables *
START-OF-SELECTION.
SET PF-STATUS 'SELECT'.
add begin CR1591
Set ranges tables
PERFORM set_ranges.
add end CR1591
mod begin CR1591
**Selection of PO data from EKET into internal table t_purc.
PERFORM f_select_eket.
**Selection of corresponding PO data for EKET from EKES into t_ekes.
PERFORM f_select_ekes.
**Selection of material desc from MAKT table into T_makt.
PERFORM f_select_makt.
**Copy the contents of t_purc and t_makt into t_eket table.
PERFORM f_move_eket.
**Replace the corresponding entries of t_eket with t_ekes.
PERFORM f_update_eket.
Selection of PO data from EKET into internal table T_EKET.
PERFORM f_select_eket2.
Selection of corresponding PO data from EKES appending to T_EKET.
PERFORM f_select_ekes2.
Selection of material desc from MAKT table into T_MAKT.
PERFORM f_select_makt2.
mod end CR1591
*Selection of vendor product name.
PERFORM f_select_vpnam.
del begin CR1591
No need
**copy t_eket-ebelp into temporary variable.
PERFORM f_copy_ebelp.
del end CR1591
*selection of data from MLGN table into t_mlgn internal table
PERFORM f_select_mlgn.
*selection of data from marm table into t_marm internal table
PERFORM f_select_marm.
*selection of data from marc table into t_marc internal table
PERFORM f_select_marc.
*selection of data from lfa1 table into t_lfa1 internal table
PERFORM f_select_lfa1.
*Selection of data from LIPS table into t_lips internal table
PERFORM f_select_lips.
del begin CR1591
Don't display list screen when no data exists
*END-OF-SELECTION.
del end CR1591
*lines = sy-linno - 1.
*Collection of data into the final display internal table t_Display
PERFORM f_collect_final.
*Display the contents of t_display as a simple List
PERFORM f_list_display.
AT USER-COMMAND.
PERFORM f_select_layout.
INCLUDE zjpmipu315.
INCLUDE zjpmipu316.
*& Form f_check_MATNR_in_plant
This Routine is to check if the the selected material code is
available in the plant 'JP01'.
FORM f_check_matnr_in_plant.
DATA: l_matnr LIKE mara-matnr.
SELECT matnr UP TO 1 ROWS FROM marc
INTO l_matnr
WHERE
matnr = p_matnr AND
werks = c_werks.
ENDSELECT.
IF l_matnr IS INITIAL.
MESSAGE e000 WITH
'The material is not available in '(t02) c_werks 'plant'(t20).
ENDIF.
ENDFORM. " f_check_MATNR_in_plant
*& Form f_check_EBELN_in_EKPO
This Routine is to check if the Purchase order number selected
is existing or not and if it exists, check if it is related to
the plant 'JP01'.
FORM f_check_ebeln_in_ekpo.
DATA: l_ebeln LIKE ekpo-ebeln.
SELECT ebeln UP TO 1 ROWS FROM ekpo
INTO l_ebeln
WHERE
ebeln = p_ebeln AND
werks = c_werks.
ENDSELECT.
IF l_ebeln IS INITIAL.
MESSAGE e000 WITH
'PO not available or not related to '(t03) c_werks 'plant'(t21).
ENDIF.
ENDFORM. " f_check_EBELN_in_EKPO
*& Form f_check_matnr_in_ekko
This routine is to check if any PO exist for the selected
Material code.
FORM f_check_matnr_in_ekpo.
DATA: l_matnr LIKE ekpo-matnr.
SELECT matnr UP TO 1 ROWS FROM ekpo
INTO l_matnr
WHERE
matnr = p_matnr.
ENDSELECT.
IF l_matnr IS INITIAL.
MESSAGE e000 WITH
'PO does not exist for the material no'(t04) p_matnr.
ENDIF.
ENDFORM. " f_check_matnr_in_ekpo
*& Form f_check_date_in_eket
This routine is to check if any purchase order exists
with the selected
FORM f_check_date_in_eket.
DATA: l_eindt LIKE eket-eindt.
SELECT eindt UP TO 1 ROWS FROM eket
INTO l_eindt
WHERE
eindt IN s_date.
ENDSELECT.
IF l_eindt IS INITIAL.
MESSAGE e000 WITH
'No PO exist with the selected delivery date '(t05).
ENDIF.
ENDFORM. " f_check_date_in_eket
*& Form f_check_werks_in_ekpo
This Routine is to check if the selected purchase order
is associated with the plant JP01
FORM f_check_werks_in_ekpo.
DATA: l_ebeln LIKE ekpo-ebeln.
SELECT ebeln UP TO 1 ROWS FROM ekpo
INTO l_ebeln
WHERE
werks = c_werks.
ENDSELECT.
IF l_ebeln IS INITIAL.
MESSAGE e000 WITH
'The selected P0 is not relevant to '(t06) c_werks 'plant'(t22).
ENDIF.
ENDFORM. " f_check_werks_in_ekpo
*& Form f_select_eket
Routine to collect data from EKET, EKPO, MAKT, EKKO tables
using inner join and store the data into internal table
t_PURC. The data selection is based on the selection screen's
input.
FORM f_select_eket.
IF ( NOT s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~matnr = p_matnr AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~matnr = p_matnr AND
ekpo~ebeln = p_ebeln AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
ekpo~ebeln = p_ebeln AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~ebeln = p_ebeln AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ENDIF.
IF sy-subrc <> 0.
MESSAGE s000 WITH 'Data not found'(t07).
LEAVE LIST-PROCESSING.
ELSE.
SORT t_purc.
ENDIF.
ENDFORM. " f_select_eket
*& Form f_select_makt
Routine to select the material description for all the
materials present in T_purc table
FORM f_select_makt.
DATA: l_t_makt(4) TYPE c VALUE 'MAKT'.
SELECT
matnr
maktx
FROM
makt
INTO TABLE t_makt
FOR ALL ENTRIES IN t_purc
WHERE
matnr = t_purc-matnr AND
spras = c_spras.
IF sy-subrc <> 0.
MESSAGE s000 WITH
'Relevant data not found in'(t09) l_t_makt 'table'(t23).
ELSE.
SORT t_makt.
ENDIF.
ENDFORM. " f_select_makt
*& Form f_move_eket
Routine to join data in T_PURC and T_MAKT tables into
internal table T_MAKT.
FORM f_move_eket.
LOOP AT t_purc.
t_eket-ebeln = t_purc-ebeln.
t_eket-ebelp = t_purc-ebelp.
t_eket-eindt = t_purc-eindt.
t_eket-menge = t_purc-menge.
t_eket-charg = t_purc-charg.
t_eket-matnr = t_purc-matnr.
t_eket-werks = t_purc-werks.
t_eket-meins = t_purc-meins.
t_eket-lifnr = t_purc-lifnr.
READ TABLE t_makt WITH KEY matnr = t_purc-matnr
BINARY SEARCH.
IF sy-subrc = 0.
t_eket-maktx = t_makt-maktx.
ENDIF.
APPEND t_eket.
CLEAR t_eket.
ENDLOOP.
ENDFORM. " f_move_eket
*& Form f_select_ekes
Routine to select EKES data for all corresponding entries
of T_EKET.
FORM f_select_ekes.
DATA: l_tabix TYPE i.
IF NOT s_date IS INITIAL.
SELECT
ebeln
ebelp
etens
eindt
menge
INTO TABLE t_ekes
FROM
ekes
WHERE
eindt IN s_date.
ELSE.
DESCRIBE TABLE t_purc LINES l_tabix.
IF l_tabix GT 0.
SELECT
ebeln
ebelp
etens
eindt
menge
dabmg
vbeln
vbelp
FROM
ekes
INTO TABLE t_ekes
FOR ALL ENTRIES IN t_eket
FOR ALL ENTRIES IN t_purc
WHERE
ebeln = t_purc-ebeln AND
ebelp = t_purc-ebelp AND
eindt IN s_date.
AND ebeln eq p_ebeln.
and matnr in p_matnr.
ENDIF.
CLEAR l_tabix.
IF NOT s_date IS INITIAL AND NOT p_ebeln IS INITIAL.
SELECT
ekes~ebeln
ekes~ebelp
ekes~etens
ekes~eindt
ekes~menge
ekes~dabmg
APPENDING TABLE t_ekes
FROM ekes
WHERE
eindt IN s_date AND
ebeln EQ p_ebeln AND
ebtyp EQ c_la.
ELSEIF NOT s_date IS INITIAL AND p_ebeln IS INITIAL.
SELECT
ekes~ebeln
ekes~ebelp
ekes~etens
ekes~eindt
ekes~menge
ekes~dabmg
APPENDING TABLE t_ekes
FROM ekes
WHERE
eindt IN s_date AND
ebeln EQ p_ebeln AND
ebtyp EQ c_la.
ELSEIF s_date IS INITIAL AND NOT p_ebeln IS INITIAL.
SELECT
ekes~ebeln
ekes~ebelp
ekes~etens
ekes~eindt
ekes~menge
ekes~dabmg
APPENDING TABLE t_ekes
FROM ekes
WHERE
eindt IN s_date AND
ebeln EQ p_ebeln AND
ebtyp EQ c_la.
ENDIF.
IF sy-subrc = 0.
SORT t_ekes.
ENDIF.
IF NOT t_ekes[] IS INITIAL.
t_ekes_temp[] = t_ekes[].
SORT t_ekes_temp BY ebeln ebelp.
DELETE ADJACENT DUPLICATES FROM t_ekes_temp COMPARING ebeln ebelp.
LOOP AT t_ekes_temp.
READ TABLE t_purc WITH KEY ebeln = t_ekes_temp-ebeln
ebelp = t_ekes_temp-ebelp.
IF sy-subrc NE 0.
CLEAR t_purc.
SELECT SINGLE
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO CORRESPONDING FIELDS OF t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~ebeln = t_ekes_temp-ebeln
AND eket~ebelp = t_ekes_temp-ebelp
AND ekpo~elikz NE c_x
AND ekko~bstyp EQ c_f
AND ekko~bsart NE c_zar.
IF sy-subrc EQ 0.
APPEND t_purc.
CLEAR t_purc.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
REFRESH: t_ekes_temp, t_ekes.
CLEAR: t_ekes_temp, t_ekes.
Once the header is filled up get the details from EKES
SELECT ebeln ebelp etens eindt menge dabmg vbeln vbelp
INTO TABLE t_ekes
FROM ekes
FOR ALL ENTRIES IN t_purc
WHERE ebeln EQ t_purc-ebeln.
Mark the entries as 'X' which falls in the date range
LOOP AT t_ekes.
IF t_ekes-eindt IN s_date.
t_ekes-mark = 'X'.
MODIFY t_ekes INDEX sy-tabix TRANSPORTING mark.
ENDIF.
ENDLOOP.
SORT t_ekes BY ebeln ebelp ASCENDING mark DESCENDING.
Delete the entries from eket if no entries in EKES falls in the period
LOOP AT t_purc.
l_tabix = sy-tabix.
READ TABLE t_ekes WITH KEY ebeln = t_purc-ebeln
ebelp = t_purc-ebelp.
IF sy-subrc EQ 0.
IF t_ekes-mark NE 'X'.
DELETE t_purc INDEX l_tabix.
ENDIF.
ENDIF.
ENDLOOP.
delete the entries from EKES which do not fall in the specified period
DELETE t_ekes WHERE mark NE 'X'.
ENDFORM. " f_select_ekes
*& Form f_update_eket
Routine to substitute relevant t_eket entries with that of
t_ekes entries.It does not modify the remaining entries for
for which the corresponding values in t_ekes doesnot exist.
FORM f_update_eket.
DATA: BEGIN OF lt_temp_eket OCCURS 0,
ebeln LIKE eket-ebeln, "Purchasing Document Number
ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled quantity
dabmg LIKE ekes-dabmg, " Delivered quantity
matnr LIKE ekpo-matnr, "Material code
maktx LIKE makt-maktx, "Material Description-- jp check
etens LIKE ekes-etens, "Sequence Number
meins LIKE ekpo-meins, "Unit of measure
lifnr LIKE ekko-lifnr, "Vendor number
charg LIKE eket-charg, " Batch number Added by PD 08/08/03
vbeln LIKE ekes-vbeln,
vbelp LIKE ekes-vbelp,
END OF lt_temp_eket,
l_menge LIKE ekes-menge.
LOOP AT t_eket.
LOOP AT t_ekes WHERE ebeln = t_eket-ebeln
AND ebelp = t_eket-ebelp.
Added by PD 08/08/03
MOVE t_eket-charg TO lt_temp_eket-charg.
addition ends
MOVE t_eket-ebeln TO lt_temp_eket-ebeln.
MOVE t_eket-ebelp TO lt_temp_eket-ebelp.
MOVE t_eket-meins TO lt_temp_eket-meins.
CLEAR l_menge.
l_menge = t_ekes-menge - t_ekes-dabmg.
IF l_menge LE 0.
CONTINUE.
ELSE.
MOVE l_menge TO lt_temp_eket-menge.
ENDIF.
MOVE t_ekes-eindt TO lt_temp_eket-eindt.
MOVE t_ekes-etens TO lt_temp_eket-etens.
MOVE t_eket-lifnr TO lt_temp_eket-lifnr.
MOVE t_eket-maktx TO lt_temp_eket-maktx.
MOVE t_eket-matnr TO lt_temp_eket-matnr.
MOVE t_ekes-vbeln TO lt_temp_eket-vbeln.
MOVE t_ekes-vbelp TO lt_temp_eket-vbelp.
APPEND lt_temp_eket.
CLEAR lt_temp_eket.
CLEAR t_ekes.
ENDLOOP.
IF sy-subrc NE 0.
Added by PD 08/08/03
MOVE t_eket-charg TO lt_temp_eket-charg.
addition ends
MOVE t_eket-ebelnDear
Problem No 1 : we are working in a process industries with three plants each of them have three order type. we have define MRP group in "OPPR" then assign each MRP group to Orde types in "OPPE". Now the problem is whn i convert plan order in process order for any material systme automaticaly pick the order type PIi01.
Answer :
1.Please check the OPPR -Plant and MRP group -Select Order Type Button -Check what Order Type you have assinged here ( PI01( May be the default Process Order Type )
2.If you are maintaing MRP group ( 0001 or 0002) , did you asisng the same in MRP1 view ?? because
3.Did you maintain the similar Order type in OPKP -Define Production Scheduling Profile ? -This has highest priority .
4.Did you maintain correct order type in OPJH-Maintain Order Type ??
Refer the expert comments on the same issue : Strategy group to define production order type
Problem No 2: 2nd Problem is system system is not creating plan order for prrevios dates. say i enter PIR for month of november from first november to 30th november and run MRP on 29th the sytem create plan order on 30th of november with exception message 30.
Answer : You can plan the order in back dated , if you maitain Satrt date in the Past optiuon in OPU3/OPU5-Define Scheduling parameters .Goto OPU3 -Select the Order Type -Double click -Maintain 90-60 days in the Start Date in the past in Scheduling Control and Details scheduling tab .
Hope it helps
regards
JH -
I have a 32gb iphone 5 the wifi signal is bad and the time doesnt work can someone help i did everything thats in my hands and its still not working
Do you experience the same issue on other WiFi networks?
Do any other iOS devices experience the same issue on your network?
Make sure you follow all steps provided in the article below:
iOS: Troubleshooting Wi-Fi networks and connections -
Why is the support so bad and expensive?
Putting in my serial number of a product that is now useless tells me I'm not covered by the support so I have to pay £25 to have someone call me.
When I put in all my details so I can phone Apple myself I then get given a premium rate number to phone and when I get through I start getting asked the same questiuons I answered online ( to get my case number ) so the call is going to end up costing more than it should. The case number is supposed to make the call quicker.
Why is help so expensive here?
Why can't I just email support?John Galt, the poster already did that as he said in this discussion. He said:
I'm sure with the millions of dollars Apple make every day they can pay staff for support. Instead of that they create a forum where people can do their work for them for free.
I've posted details about my problem herehttps://discussions.apple.com/message/25581520#25581520
John Galt wrote:
Post details of your own problem by starting your own Discussion, not by replying to someone else's. That is the best way to exploit the free resources of this free website.
Otherwise, your only question "why is the support so bad and expensive" stands. It has been answered in this Discussion, which will effectively close it for those willing to help. -
We are on Extended Classic Scenario in EBP and we are using SUS to create PO . But we still need to pass invoices to SAP R/3.
I guess we can achieve this by custom development in the areas of SUS BADIs and the XI layer configuration. Can somebody share which badi's to use and what kind of XI config changes will be required ?
Can you pleaes give me a path for the complete SUS Config with XI settings .
sekharok
-
Is it good or bad for the battery to keep the powercord plug in after complete charge.
Is it good or bad for the battery to keep the powercord plug in after complete charge.
It does no harm. It won't over charge.
-
Hello Anybody, I have a question. Can any of you please suggest me how to make an xml file from the database table with all the records?
Note:- I am having the XSD Schema file and the resulted XML file should be in that XSD format only.The Oracle documentation has a good overview of the options available
Generating XML Data from the Database
Without knowing your version, I just picked 11.2, so you made need to look for that chapter in the documentation for your version to find applicable information.
You can also find some information in XML DB FAQ -
macbook pro 15" mid 2010 i spilled water on keyboard now it wont power on if the battery is connected and the keys on keyboard doesnt work it works fine with no battery and external keyboard if i order a battery and new keyboard will every else work again lik it did before
If you have records that show that you've taken your MacBook Pro in for a year to fix the machine, I would escalate the problem to Apple Customer Relations - unfortunately I don't have a number for Spain.
It would only seem logical to me that if you've been trying to have the machine repaired during the time that the 'recall' was in effect that you should be eligible for a new logic board. But only customer relations will be able to make that call.
Good luck - take the issue as high up the food chain as you can and see what happens.
Clinton -
Dear Professionals ,
I Just want to confirm that whether BAPI "BAPI_GOODSMVT_CREATE " will do the goods receipt ( MB01 ) for the subcontracting PO with batch management.
Since I will be passing only 101 mvy type in BAPi, will the system automatically call 543 mvt type with batch management and post the consumption.
can I change the batch of the component items ?Hi ,
Delivery note is like a ref document number
so you can use the
In the BAPI_GOODSMVT_CREATE There is header structure BAPI2017_GM_HEAD_01 which has a field REF_DOC_NO
you can pass the delivery note value to that field .
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Jul 10, 2008 3:41 PM -
The necessary shipping materials and the means of transport
The answer of the question below is "d. Shipping point". On the other hand, shipping type (shipment type determines how the goods will be transported - tuck, train, ship etc....) is entered in the "shipment type" at the customization.
Taking into consideration this fact, why is the answer of this question is given as "shipping point"?
What part of the company is responsible for the type of shipping, the necessary shipping materials and the means of transport?
Only one answer is correct.
a. Sales Organization
b. Transportation planning point
c. Shipping condition
d. Shipping point
e. Warehousehi
As per my knowledge, normally goods are transported from Plant through shipping point, So ultimately shipping point is the responsible for that. -
I am using iphone 4s the screen is off, and the phone is hot
I AM USING IPHONE 4S THE SCREEN IS OFF AND THE PHONE IS HOT, PLEASE WHAT CAN I DO ?
THANK YOU
BRIGHT MENSAHHey Bright Mensah,
Thanks for the question. If I understand correctly, the screen is blank and the iPhone is hot. I would recommend that you read these articles, they may be helpful in troubleshooting your issue.
Keeping iPhone, iPad, and iPod touch within acceptable operating temperatures - Apple Support
Get help with the screen on your iPhone, iPad, or iPod touch - Apple Support
Thanks for using Apple Support Communities.
Have a good one,
Mario -
I have got the new iPhone 5 and the iOS inside is suppose to have the facebook integration, i have upgraded to the latest version, now i get the facebook option in my notification centre, but i thougth i was going to get all the notifictaion , but sadly i have to log on to fb application to get all my notification updates , nothing is notifyied to me , is there a way to make this happen ??, if yes please help me out , i have tried all the options but doesnt seem to work im afraid ..
Good.
Three things come to mind:
1. I think you're implying when you travel away from your home to a more populated area, the cellular coverage improves and your iPhone works well. Is that right?
2. Do you have a case or some other obstruction over or near your iPhone's antenna? Have you tried moving or removing any possible obstructions near the antenna?
3. AT&T has a (free) app in the App Store called "Mark the Spot". You can use this app to report voice and/or data issues to AT&T, as well as keep up on progress they may be making in improving coverage in your area. Your trouble reports are geotagged (if you wish). -
The Power Query ribbon and the Power Pivot ribbon are gone !
Hello,
I created in Excel 2013, using Power Query, two large tables (more than 4 000 000 rows) according this principle: << However,
the query pane that shows up on the side while data is loading lets you disable "load to worksheet". The data will continue to download. Once the download is done, you can click on "Load to Data Model" which will then get the data into
the underlying xVelocity/data model.>>
I built two calculated columns in order to create PRimary and Foreign keys for relations.
I saved the xlsx file several times
I Closed the xlsx file
I reopened the xlsx file but, bad news, the
Power Query ribbon and the Power Pivot ribbon are gone !
I can check the the data connections are still there.
What happened? What did I miss ?
Thanks for your help
Error message when I refresh connections :When I restart the computer, Power
Query and Power
Pivot ribbons come back. But if I enter a
formula, they go away again.
What could be the solution?
Maybe you are looking for
-
How to make hyperlinks in PDF doc open in a seperate PDF window?
I created a "Main" PDF document and have various attachments in it including PDF. I created them with Insert, Hyperlink. That works, however, if I have the main document open in PDF, and I click on one of the hyperlinks to open a PDF document, the m
-
I'm looking for an upgrade in space ( 750gb - 1 TB) and performance on the hard drive, but I have read in many forums that many "compatible" hard drives may damage the OS. I plan on installing bootcampt with Windows 7 and the latest Mac OS. I'm wonde
-
Problem to connect E 73 with home wireless
Hi there I cant connect my E 73 with home wifi system, it always come up with the error messsage : J007 Incorrect Security Certificate. Pls advise what to do. Thanks allan
-
Went to wake up my iMac, heard the computer running but screen stayed black. I've tried restarting and unplugging and re-starting with no change. Any other suggestions?
-
1.1.23 Freezes on cancelling node
Hi, Due to the extreme bad performance on some object nodes, I often have to cancel the node's query in progress. About half the times I hit cancel, sqldev just freezes up (no redraw inside the window). After 15 minutes of hoping for a recovery, I ha