No records in Initialization of 0FIAR_O03
Hi All
We are loading the data from 0FI_AR_4 to 0FIAR_O03 , When i am doing initialization the no.. of record is coming is Zero ,
I checked in RSA3 but there is a data
If i Do full load the Data is loading to BIW record are coming.
Plz help me
Hi,
Check whether you are doing Init with data transfer or without data transfer.
PB
Similar Messages
-
Header ID does not exist on this record or does not match ID
Hi ,
I'm trying to import the sales order using OE_ORDER_PUB.process_order() API. If all my orders has equal no. of lines, I can able to import all the orders at one stoke. But if each order has different no. of lines, I'm unable to import all the orders at single stoke. At first run, certain no. of records are getting processed and remaining records are ending up with error stating *'Header ID does not exist on this record or does not match ID specified on header record. You require a valid header ID if the operation is Create*'. If I re-execute the errored records, its getting processed successfully.
Please help me in getting it resolved.
Find below the procedure code which I'm using to import sales order.
CREATE OR REPLACE PROCEDURE XXRT_SALES_ORDER (ERRBUF VARCHAR2, RETCODE NUMBER)
AS
l_header_rec OE_ORDER_PUB.Header_Rec_Type;
l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
l_line_adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
l_return_status varchar2(200);
l_msg_count number;
l_msg_data varchar2(20000);
l_header_val_rec OE_ORDER_PUB.Header_Val_Rec_Type;
l_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
l_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
l_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
l_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type;
l_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
l_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
l_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
l_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
l_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
l_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
l_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type;
l_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
l_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
l_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
l_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
l_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
l_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
v_remarks varchar2(250);
v_count number;
v_transaction_type number;
v_cust_id number;
v_invoice_to number;
v_ship_to number;
v_itemid1 number;
v_itemid2 number;
v_itemid3 number;
v_itemid4 number;
v_itemid5 number;
v_item_type1 varchar2(15);
v_item_type2 varchar2(15);
v_item_type3 varchar2(15);
v_item_type4 varchar2(15);
v_item_type5 varchar2(15);
cursor c_data_val is select * from XXSC_SALES_ORDER_IMPORT
where process_flag='N';
cursor c_data is select * from XXSC_SALES_ORDER_IMPORT
where process_flag='N';
Begin
fnd_global.apps_initialize(1681,51411,660);
for c_data_val_rec in c_data_val
loop
v_remarks:=NULL;
select count(*) into v_count from apps.oe_order_headers_all
where cust_po_number=c_data_val_rec.iwb_no;
if v_count > 0 then
v_remarks:='Customer PO already used';
end if;
BEGIN
select transaction_type_id into v_transaction_type
from apps.OE_TRANSACTION_TYPES_tl
where name like c_data_val_rec.BILL_TO||'-DOMESTIC';
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_remarks:=v_remarks||'Invalid trans type';
END;
BEGIN
select cust_account_id into v_cust_id
from apps.hz_cust_accounts hca,
apps.hz_parties hp
where hca.party_id=hp.party_id
and hp.party_name=c_data_val_rec.CUSTOMER_NAME;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_remarks:=v_remarks||'Invalid Customer name';
END;
BEGIN
select SITE_USE_ID into v_invoice_to
from apps.hz_parties hp,
apps.hz_party_sites_v hps,
apps.hz_cust_acct_sites_all hcasa,
apps.hz_cust_site_uses_all hcsua
where
party_name=c_data_val_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_val_rec.BILL_TO||'%'
and hps.site_use_type='BILL_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='BILL_TO'
and hcsua.Status='A';
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid BILL_TO';
END;
BEGIN
select SITE_USE_ID into v_ship_to
from apps.hz_parties hp,
apps.hz_party_sites_v hps,
apps.hz_cust_acct_sites_all hcasa,
apps.hz_cust_site_uses_all hcsua
where
party_name=c_data_val_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_val_rec.SHIP_TO||'%'
and hps.site_use_type='SHIP_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='SHIP_TO'
and hcsua.Status='A';
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid SHIP_TO';
END;
IF c_data_val_rec.item1 is not null then
BEGIN
select distinct inventory_item_id into v_itemid1
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item1;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM1';
END;
BEGIN
select distinct Item_type into v_item_type1
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item1;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype1';
END;
END IF;
IF c_data_val_rec.item2 is not null then
BEGIN
select distinct inventory_item_id into v_itemid2
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item2;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM2';
END;
BEGIN
select distinct Item_type into v_item_type2
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item2;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype2';
END;
END IF;
IF c_data_val_rec.item3 is not null then
BEGIN
select distinct inventory_item_id into v_itemid3
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item3;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM3';
END;
BEGIN
select distinct Item_type into v_item_type3
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item3;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype3';
END;
END IF;
IF c_data_val_rec.item4 is not null then
BEGIN
select distinct inventory_item_id into v_itemid4
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item4;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM4';
END;
BEGIN
select distinct inventory_item_id into v_item_type4
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item4;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype4';
END;
END IF;
IF c_data_val_rec.item5 is not null then
BEGIN
select distinct inventory_item_id into v_itemid5
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item5;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM5';
END;
BEGIN
select distinct inventory_item_id into v_item_type5
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item5;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype5';
END;
END IF;
IF v_remarks is not null then
update XXSC_SALES_ORDER_IMPORT
set process_flag='E', remarks=v_remarks
where iwb_no=c_data_val_rec.iwb_no;
commit;
END IF;
end loop;
for c_data_rec in c_data
loop
select transaction_type_id into v_transaction_type
from OE_TRANSACTION_TYPES_tl
where name like c_data_rec.BILL_TO||'-DOMESTIC';
select cust_account_id into v_cust_id
from hz_cust_accounts hca,
hz_parties hp
where hca.party_id=hp.party_id
and hp.party_name=c_data_rec.CUSTOMER_NAME;
select SITE_USE_ID into v_invoice_to
from hz_parties hp,
hz_party_sites_v hps,
hz_cust_acct_sites_all hcasa,
hz_cust_site_uses_all hcsua
where
party_name=c_data_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_rec.BILL_TO||'%'
and hps.site_use_type='BILL_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='BILL_TO'
and hcsua.Status='A';
select SITE_USE_ID into v_ship_to
from hz_parties hp,
hz_party_sites_v hps,
hz_cust_acct_sites_all hcasa,
hz_cust_site_uses_all hcsua
where
party_name=c_data_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_rec.SHIP_TO||'%'
and hps.site_use_type='SHIP_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='SHIP_TO'
and hcsua.Status='A';
IF c_data_rec.item1 is not null then
select distinct inventory_item_id into v_itemid1
from apps.mtl_system_items_b
where segment1=c_data_rec.item1;
select distinct Item_type into v_item_type1
from apps.mtl_system_items_b
where segment1=c_data_rec.item1;
ELSE
v_itemid1:= null;
v_item_type1:= null;
END IF;
IF c_data_rec.item2 is not null then
select distinct inventory_item_id into v_itemid2
from apps.mtl_system_items_b
where segment1=c_data_rec.item2;
select distinct Item_type into v_item_type2
from apps.mtl_system_items_b
where segment1=c_data_rec.item2;
ELSE
v_itemid2:=null;
v_item_type2:= null;
END IF;
IF c_data_rec.item3 is not null then
select distinct inventory_item_id into v_itemid3
from apps.mtl_system_items_b
where segment1=c_data_rec.item3;
select distinct Item_type into v_item_type3
from apps.mtl_system_items_b
where segment1=c_data_rec.item3;
ELSE
v_itemid3:=null;
v_item_type3:=null;
END IF;
IF c_data_rec.item4 is not null then
select distinct inventory_item_id into v_itemid4
from apps.mtl_system_items_b
where segment1=c_data_rec.item4;
select distinct Item_type into v_item_type4
from apps.mtl_system_items_b
where segment1=c_data_rec.item4;
ELSE
v_itemid4:= null;
v_item_type4:= null;
END IF;
IF c_data_rec.item5 is not null then
select distinct inventory_item_id into v_itemid5
from apps.mtl_system_items_b
where segment1=c_data_rec.item5;
select distinct Item_type into v_item_type5
from apps.mtl_system_items_b
where segment1=c_data_rec.item5;
ELSE
v_itemid5:= null;
v_item_type5:= null;
END IF;
l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC; -- Required attributes (e.g. Order Type and Customer)
l_header_rec.order_type_id := v_transaction_type;
l_header_rec.ordered_date := c_data_rec.iwb_date;
l_header_rec.sold_to_org_id := v_cust_id;
l_header_rec.price_list_id := 93174;
l_header_rec.cust_po_number := c_data_rec.iwb_no;
l_header_rec.ship_to_org_id := v_ship_to;
l_header_rec.invoice_to_org_id := v_invoice_to;
l_header_rec.CONTEXT:='566' ;
l_header_rec.ATTRIBUTE1:=c_data_rec.DELIVERY_TYPE;
-- l_header_rec.freight_term_code = NULL;
l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
-- FIRST LINE RECORD. Initialize record to missing
if c_data_rec.item1 is not null and
c_data_rec.item2 is not null and
c_data_rec.item3 is not null and
c_data_rec.item4 is not null and
c_data_rec.item5 is not null then
l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).inventory_item_id :=v_itemid1;
l_line_tbl(1).ordered_quantity := c_data_rec.quantity1;
l_line_tbl(1).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(1).UNIT_SELLING_PRICE := c_data_rec.price1;
l_line_tbl(1).UNIT_LIST_PRICE := c_data_rec.price1;
l_line_tbl(1).attribute13:= v_item_type1;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- SECOND LINE RECORD
--elsif c_data_rec.item2 is not null then
l_line_tbl(2) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(2).inventory_item_id := v_itemid2;
l_line_tbl(2).ordered_quantity := c_data_rec.quantity2;
l_line_tbl(2).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(2).UNIT_SELLING_PRICE := c_data_rec.price2;
l_line_tbl(2).UNIT_LIST_PRICE := c_data_rec.price2;
l_line_tbl(2).attribute13:=v_item_type2;
l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- THIRD LINE RECORD
--elsif c_data_rec.item3 is not null then
l_line_tbl(3) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(3).inventory_item_id := v_itemid3;
l_line_tbl(3).ordered_quantity := c_data_rec.quantity3;
l_line_tbl(3).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(3).UNIT_SELLING_PRICE := c_data_rec.price3;
l_line_tbl(3).UNIT_LIST_PRICE := c_data_rec.price3;
l_line_tbl(3).attribute13:=v_item_type3;
l_line_tbl(3).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- FOURTH LINE RECORD
--elsif c_data_rec.item4 is not null then
l_line_tbl(4) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(4).inventory_item_id := v_itemid4;
l_line_tbl(4).ordered_quantity := c_data_rec.quantity4;
l_line_tbl(4).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(4).UNIT_SELLING_PRICE := c_data_rec.price4;
l_line_tbl(4).UNIT_LIST_PRICE := c_data_rec.price4;
l_line_tbl(4).attribute13:=v_item_type4;
l_line_tbl(4).operation := OE_GLOBALS.G_OPR_CREATE;
--END IF;
-- FIFTH LINE RECORD
--elsif c_data_rec.item5 is not null then
l_line_tbl(5) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(5).inventory_item_id := v_itemid5;
l_line_tbl(5).ordered_quantity := c_data_rec.quantity5;
l_line_tbl(5).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(5).UNIT_SELLING_PRICE := c_data_rec.price5;
l_line_tbl(5).UNIT_LIST_PRICE := c_data_rec.price5;
l_line_tbl(5).attribute13:= v_item_type5;
l_line_tbl(5).operation := OE_GLOBALS.G_OPR_CREATE;
elsif c_data_rec.item1 is not null and
c_data_rec.item2 is not null and
c_data_rec.item3 is not null and
c_data_rec.item4 is not null then
l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).inventory_item_id :=v_itemid1;
l_line_tbl(1).ordered_quantity := c_data_rec.quantity1;
l_line_tbl(1).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(1).UNIT_SELLING_PRICE := c_data_rec.price1;
l_line_tbl(1).UNIT_LIST_PRICE := c_data_rec.price1;
l_line_tbl(1).attribute13:= v_item_type1;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- SECOND LINE RECORD
--elsif c_data_rec.item2 is not null then
l_line_tbl(2) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(2).inventory_item_id := v_itemid2;
l_line_tbl(2).ordered_quantity := c_data_rec.quantity2;
l_line_tbl(2).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(2).UNIT_SELLING_PRICE := c_data_rec.price2;
l_line_tbl(2).UNIT_LIST_PRICE := c_data_rec.price2;
l_line_tbl(2).attribute13:=v_item_type2;
l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- THIRD LINE RECORD
--elsif c_data_rec.item3 is not null then
l_line_tbl(3) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(3).inventory_item_id := v_itemid3;
l_line_tbl(3).ordered_quantity := c_data_rec.quantity3;
l_line_tbl(3).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(3).UNIT_SELLING_PRICE := c_data_rec.price3;
l_line_tbl(3).UNIT_LIST_PRICE := c_data_rec.price3;
l_line_tbl(3).attribute13:=v_item_type3;
l_line_tbl(3).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- FOURTH LINE RECORD
--elsif c_data_rec.item4 is not null then
l_line_tbl(4) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(4).inventory_item_id := v_itemid4;
l_line_tbl(4).ordered_quantity := c_data_rec.quantity4;
l_line_tbl(4).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(4).UNIT_SELLING_PRICE := c_data_rec.price4;
l_line_tbl(4).UNIT_LIST_PRICE := c_data_rec.price4;
l_line_tbl(4).attribute13:=v_item_type4;
l_line_tbl(4).operation := OE_GLOBALS.G_OPR_CREATE;
elsif c_data_rec.item1 is not null and
c_data_rec.item2 is not null and
c_data_rec.item3 is not null then
l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).inventory_item_id :=v_itemid1;
l_line_tbl(1).ordered_quantity := c_data_rec.quantity1;
l_line_tbl(1).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(1).UNIT_SELLING_PRICE := c_data_rec.price1;
l_line_tbl(1).UNIT_LIST_PRICE := c_data_rec.price1;
l_line_tbl(1).attribute13:= v_item_type1;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- SECOND LINE RECORD
--elsif c_data_rec.item2 is not null then
l_line_tbl(2) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(2).inventory_item_id := v_itemid2;
l_line_tbl(2).ordered_quantity := c_data_rec.quantity2;
l_line_tbl(2).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(2).UNIT_SELLING_PRICE := c_data_rec.price2;
l_line_tbl(2).UNIT_LIST_PRICE := c_data_rec.price2;
l_line_tbl(2).attribute13:=v_item_type2;
l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- THIRD LINE RECORD
--elsif c_data_rec.item3 is not null then
l_line_tbl(3) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(3).inventory_item_id := v_itemid3;
l_line_tbl(3).ordered_quantity := c_data_rec.quantity3;
l_line_tbl(3).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(3).UNIT_SELLING_PRICE := c_data_rec.price3;
l_line_tbl(3).UNIT_LIST_PRICE := c_data_rec.price3;
l_line_tbl(3).attribute13:=v_item_type3;
l_line_tbl(3).operation := OE_GLOBALS.G_OPR_CREATE;
end if;
-- CALL TO PROCESS ORDER
OE_Order_PUB.Process_Order(
p_api_version_number=>1.0,
p_header_rec => l_header_rec,
p_line_tbl=> l_line_tbl,
p_line_adj_tbl=> l_line_adj_tbl,
-- OUT variables,
x_header_rec =>l_header_rec
, x_header_val_rec =>l_header_val_rec
, x_Header_Adj_tbl =>l_Header_Adj_tbl
, x_Header_Adj_val_tbl =>l_Header_Adj_val_tbl
, x_Header_price_Att_tbl =>l_Header_price_Att_tbl
, x_Header_Adj_Att_tbl =>l_Header_Adj_Att_tbl
, x_Header_Adj_Assoc_tbl =>l_Header_Adj_Assoc_tbl
, x_Header_Scredit_tbl =>l_Header_Scredit_tbl
, x_Header_Scredit_val_tbl=>l_Header_Scredit_val_tbl
, x_line_tbl =>l_line_tbl
, x_line_val_tbl =>l_line_val_tbl
, x_Line_Adj_tbl =>l_Line_Adj_tbl
, x_Line_Adj_val_tbl =>l_Line_Adj_val_tbl
, x_Line_price_Att_tbl =>l_Line_price_Att_tbl
, x_Line_Adj_Att_tbl =>l_Line_Adj_Att_tbl
, x_Line_Adj_Assoc_tbl =>l_Line_Adj_Assoc_tbl
, x_Line_Scredit_tbl =>l_Line_Scredit_tbl
, x_Line_Scredit_val_tbl =>l_Line_Scredit_val_tbl
, x_Lot_Serial_tbl =>l_Lot_Serial_tbl
, x_Lot_Serial_val_tbl =>l_Lot_Serial_val_tbl
, x_action_request_tbl =>l_action_request_tbl,
x_return_status=> l_return_status,
x_msg_count=> l_msg_count,
x_msg_data=> l_msg_data);
if l_msg_count > 0 then
for l_index in 1..l_msg_count loop
l_msg_data := oe_msg_pub.get(p_msg_index => l_index, p_encoded => 'F');
update XXSC_SALES_ORDER_IMPORT
set process_flag='E',remarks=l_msg_data
where iwb_no=c_data_rec.iwb_no;
commit;
dbms_output.put_line('Order Failed.'||l_msg_data);
end loop;
end if;
-- Check the return status
if l_return_status = FND_API.G_RET_STS_SUCCESS then
update XXSC_SALES_ORDER_IMPORT
set process_flag='Y',ORDER_NUMBER=l_header_rec.order_number,remarks='SUCCESS'
where iwb_no=c_data_rec.iwb_no;
commit;
fnd_file.put_line (fnd_file.output,'Order no:'||l_header_rec.order_number||' Created for the IWB no:'||c_data_rec.iwb_no);
dbms_output.put_line('Order..'||l_header_rec.order_number);
Else
dbms_output.put_line('Order Failed.');
end if;
commit;
END LOOP;
End;
/Your code always sends 4 line records with each header. Code is not checking if it belongs to same header or not. Please check your code.
-
Activation of data in 0FIAR_O03 failed
Hi all
I have sucessfully loaded data daily to my ODS via a ProcessChain until recently. One day the load failed and I have not succeded to run a correct load since. The load to the ODS looks fine, but data can't be activated. This is the errors I get:
[GREEN] Activation is running: Data target 0FIAR_O03, from 15,490 to 15,490
[GREEN] Data to be activated successfully checked against archiving objects
[RED] Error getting SID for ODS object 0FIAR_O03
[RED] Fiscal year variant KK not expected
[RED] Error when assigning SID: Action VAL_SID_CONVERT table 0FISCPER
[RED] No SID found for value 'KK' of characteristic 0FISCVARNT
[RED] For details, see long text
[RED] Activation of data records from ODS object 0FIAR_O03 terminated
What can possibly cause these errors and how can they be corrected?
To me it looks like somethings wrong with the time characteristics.
BRI can't believe that solved the problem!
Thank you Roberto! Once again you solved the problem in 5 seconds.
Points rewarded. -
Hello all,
I'm a beginner on labview since a few months. I am developping an HCI which save datas when the user clicks on push-buttons. There is an " history of data record" which is recording all the actions performed by users.
I need to delete the history (data of a multicolonm listbox) only when the user click on a reset button. But I don't know how to do it. The listbox's data's are cleared on each VI excecution, and I don't want this behaviour, I need to save the history even thought the Vi is stopped by the user.
The way I build "history of data record", i initialize a retroactive loop with the data of the multicolonm listbox, but it doesn't work, I have tryed many ways.
many thanks in advance for your answers.
Thibaud
Hi,
If you want to keep records between two runs of your program, you must store these datas in a temporary file with "INI block Fonction" for example.
At startup you will load the file in memory for the init of your loop.
After you can delete it on reset event, and save event with an event case.
Best Regards,
Michael -
0UC_ISU_14 Transaction Statistics Extracor pulling 0 records after Upgrade
Hello All,
We have Transaction Statistics Extractors 0UC_ISU_12, 0UC_ISU_14,0UC_ISU_18 . The R/3 4.7system is upgraded to ECC 6.0 .After the upgrade these above extractors are not pulling any records after initialization or with full updates.
Please advise .
Thanks
KPKHello All,
We have Transaction Statistics Extractors 0UC_ISU_12, 0UC_ISU_14,0UC_ISU_18 . The R/3 4.7system is upgraded to ECC 6.0 .After the upgrade these above extractors are not pulling any records after initialization or with full updates.
Please advise .
Thanks
KPK -
what is the difference between
when-database-record and when-create-record triggers?When-create-record
Fires whenever a new record is created using the create_record method, this method is used to do some initialization for new record to initialize form fields as new record is created.
When-database-record
Fires whenever a record is inserted or updated. Whenever we modify a field in form, the this trigger is fired. Use a When-Database-Record trigger to perform an action every time a record is first marked as an insert or an update.
If we have created both triggers at block level in a form, then when we open the form, then When-create-record trigger is fired and when we modify a single field in form then When-database-record is fired.
Hope it helps. -
Error while Activating DSO Data
Hello
I am having a problem, I am getting an Error while activating DSO Data, Data is loaded in DSO succefully but can not be activated with this error
"Activation of M records from DataStore object 0FIAR_O03 terminated"
ThanksHi,
The activation would have failed due to varies reasons..
It would be a short dump,check in ST22.
check the job log in SM37 for better understanding of the issue.
Have you loaded the respective master data?
if it is a transaction data load,then the SID is checked at the time of activation and not during loading.
So if the master data is not loaded then the activation would fail.
It can also be due to the system performance at that moment.
Even if the data volume is huge ,there are chances of the activation failing..
Try repeating the activation once again.it might succeed..
Else check the logs to understand the actual issue. -
CO delta extractors: How to delete single init uploads?
Hi Gurus,
i'm uploading COPA data with parallel initializations. I'm initializing data with different selections criteria, for example:
init for SOCIETY X - EXERCIZE 2008
init for SOCIETY Y - EXERCIZE 2008
init for SOCIETY Z - EXERCIZE 2008
init for SOCIETY X - EXERCIZE 2007
This works, but i'm not able to delete a single initialization: when i try to delete one in IP "Scheduler -> Initialization for this source" the system deletes all initializations.
Is somene able to help me?
Thanks
PieroThanks for the answer,
but so i don't understand which is the utility of the parallel initializations.
How can i reinitialize only a selected period instead of all COPA DATA ( millions or records to initialize) when in COPA runs transaction KEND???
Now R/3 is 4.6C version but we are migrating to ECC 6.0.
Thanks
Piero -
How can i get the failed row numbers in batch insertion?
Afeter execution of batch insert operation into a table, i use OCIAttrGet() to get the error number of insertion, as expected, it returns the correct number. however, when i use OCIParamGet() to get an error handle and then to get the exact failed row numbers , OCIParamGet() returns -2 , means "INVALID_HANDLE". can anyboy tell me why ? how can i get the exact failed rows?
the snapshot of my code :
int errNum = 0;
int nRet = 0;
nRet = OCIAttrGet((dvoid *)m_pIIOdbc->m_pStmtAll,OCI_HTYPE_STMT,&errNum,
0,OCI_ATTR_NUM_DML_ERRORS, m_pIIOdbc->m_pErrHandle);
if (errNum)
OCIError* pErrHndl;
int* pRow_off = new int[errNum];
for (int i = 0; i < errNum; i++)
nRet = OCIParamGet(m_pIIOdbc->m_pErrHandle,
OCI_HTYPE_ERROR, m_pIIOdbc->m_pErrHandle, &pErrHndl, i + 1);
nRet = OCIAttrGet (pErrHndl, OCI_HTYPE_ERROR, &pRow_off, 0,
OCI_ATTR_DML_ROW_OFFSET, m_pIIOdbc->m_pErrHandle);
delete []pRow_off;now the code is :
OCIEnv *m_pEnvHandle;
OCIError *m_pErrHandle;
OCIError *m_pErrHandle2;
OCIServer *m_pSrvHandle;
OCISvcCtx *m_pSvcHandle;
OCIStmt *m_pStmtExec;
OCIStmt *m_pStmtAll;
OCIError** m_pErrorHndl;
int* m_pRowOff; //the array that will contain the failed row numbers
int m_nArrayLength; //length of array in once batch operation
int m_nErrNum; //error number
int m_nSucCount; //successful record number
//initialization
//m_nArrayLength is a parameter passed in, so i can not tell the exact length of the array, dynamic space allocation is needed
m_pErrorHndl = new OCIError*[m_nArrayLength];
m_pRowOff = new int[m_nArrayLength];
//execution
OCIStmtExecute(
m_pSvcHandle,
m_pStmtAll,
m_pErrHandle,
(ub4)m_nArrayLength,
(ub4)0, (OCISnapshot *)NULL, (OCISnapshot *)NULL,
OCI_BATCH_ERRORS
//get successful records number
m_nSucCount = 0;
OCIAttrGet((dvoid *)m_pStmtAll,OCI_HTYPE_STMT,&m_nSucCount,
0,OCI_ATTR_ROW_COUNT, m_pErrHandle);
//get error numbers
m_nErrNum = 0;
OCIAttrGet((dvoid *)m_pStmtAll,OCI_HTYPE_STMT,&m_nErrNum,
0,OCI_ATTR_NUM_DML_ERRORS, m_pErrHandle2);
//get failed row numbers into the array
if (m_nErrNum)
//get failed row numbers into the array
for (int i = 0; i < m_nErrNum; i++)
//initiallize error handles OCIHandleAlloc((dvoid*)m_pEnvHandle, (dvoid**)&m_pErrorHndl,
OCI_HTYPE_ERROR, (size_t)0, (dvoid**)0);
OCIParamGet(m_pErrHandle, OCI_HTYPE_ERROR, m_pErrHandle2, (void**)&m_pErrorHndl[i], i);
OCIAttrGet (m_pErrorHndl[i], OCI_HTYPE_ERROR, &m_pRowOff[i], 0,
OCI_ATTR_DML_ROW_OFFSET, m_pErrHandle2);
now, if batch insert is executed, eg, there are 10 records to be inserted, thus m_nArrayLength is set to be 10. There are 5 records of the 10 have exist in database, so some of insert operations will fail. After execution, m_nErrNum is 5, and i can get the failed row numbers.Everything seems go well.
However, if batch updata is excuted, eg, 10 records to be updated, m_nArrayLength is set to be 10, and also there are 5 records of the 10 have exist in database. After execution, the OCIStmtExecute() returns 1, m_nErrNum got by
OCIAttrGet((dvoid *)m_pStmtAll,OCI_HTYPE_STMT,&m_nErrNum,
0,OCI_ATTR_NUM_DML_ERRORS, m_pErrHandle2)
is 0, and m_nSucNum is 5. Why?? how can I get the rows that fail? i have to know which rows do not exist in database?? -
Getting error in popup search page window in oaf
Hi ALL,
I have a custom OAF page ,in that i am calling a popup window by using java script.in the popup window i have to do search operation by selecting soem field.
so for that i followed below approach.
1>Created a new AM
2>Created a new VO
3>Created a method in AM for search record and initialize the VO
4>then called that method in process from request after a button pressed.
But when i am entering some fileds and pressing search button in the popup window i am getting below error,
The view object XXTESTAM.XXTESTLINESVO1 contained no record. The displayed records may have been deleted, or the current record for the view object may not have been properly initialized.
Please help me on this
ThanksHi,
Go throw these similar threads they may serve your purpose....
https://forums.oracle.com/thread/2318938
https://forums.oracle.com/thread/2382876
regards
DEV...
Message was edited by: Dev586 -
Hi expert
I am phasing an error in fi process chain. In fi process chain
there is error in data storedata" generated from LOADINGZPAK_1A2VTWYIMZBOP6NIFTBX7XDX"
Error message which aries are
Activation of Data / 16.04.2008 / 09:03:54
error in "SID Generation"
Data Package 000012
i.e
Value "BEING AMT RECD AGST OBLIGATION-NET TRF " from characteristic 0POSTXT contains an error
Error when assigning SID: Action VAL_SID_CONVERT table 0POSTXT
Process 000012 returned with errors
Preprocessing and Postprocessing / 16.04.2008 / 09
Activation of M records from DataStore object 0FIAR_O03 terminated
please reply as soon as posible
thanks
regards
gurkiranHi,
I think you are facing an invalid character issue.
This issue can be resolved by correcting the error records in PSA and updating it into the target. For that the first step should be to identify if all the records are there in PSA. You can find out this from checking the Details tab in RSMO, Job log , PSA > sorting records based on status,etc. Once its confirmed force the request to red and delete the particular request from the target cube. Then go to PSA and edit the incorrect records (correcting or blanking out the invalid entries for particular field InfoObject for the incorrect record) and save it. Once all the incorrect records are edited go to RSA1>PSA find the particular request and update to target manually (right click on PSA request > Start update immediately).
I will add the step by step procedure to edit PSA data and update into target (request based).
Identifying incorrect records.
System wont show all the incorrect records at the first time itself. You need to search the PSA table manually to find all the incorrect records.
1. First see RSMO > Details > Expand upate rules / processing tabs and you will find some of the error records.
2. Then you can go to PSA and filter using the status of records. Filter all the red requests. This may also wont show the entire incorrect records.
3. Then you can go to PSA and filter using the incorrect records based on the particular field.
4. If this also doesnt work out go to PSA and sort (not filter) the records based on the particular field with incorrect values and it will show all the records. Note down the record numbers and then edit them one by one.
If you want to confirm find the PSA table and search manually.
Also Run the report RS_ERRORLOG_EXAMPLE,By this report you can display all incorrected records of the data & you can also find whether the error occured in PSA or in TRANSFER RULES.
Steps to resolve this
1. Force the request to red in RSMO > Status tab.
2. Delete the request from target.
3. Come to RSMO > top right you can see PSA maintenace button > click and go to PSA .
4.Edit the record
5. Save PSA data.
6. Got to RSA15 > Search by request name > Right click > update the request from PSA to target.
Refer how to Modify PSA Data
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/40890eda-1b99-2a10-2d8b-a18b9108fc38
Once done, perform activation again.
Thanks,
JituK -
Will the order of elements stored in pl.sql table retains
Hello Friends,
I am having a record type and the for each element of record , i am having corresponding pl.sql table type .
If i am storing the values into the records from a query and also the individual elements in the pl.sql table type will the order of data is stored as it is . ..
example...
in a record type the data is stored as ( name1 , age1 , salary1) , (name2, age2, salary2)
if i store in corresponding pl sql table type name1 , name2
age1, age2
salary1, salary2
can i relate the index of record type with that of pl/sql table type ..
pls advice
thanks/kumarKumar,
Yes, the order of elements will be the same.
Any specific reason why you would want to create a collection for each individual attribute of the record ?
You can as well declare another variable of the same record and initialize it.
A few other suggestions for your code :
1) The 2nd FOR loop can be modified to accommodate the query of the first cursor there-by eliminating one extra iteration.
SELECT MINC.FAMID,
MINC.MEMBNO,
MEMB.AGE,
SALARYX,
SALARYBX,
NONFARMX,
NONFRMBX,
FARMINCX,
FRMINCBX,
CU_CODE
FROM MINC, MEMB, FMLY
WHERE MINC.FAMID = MEMB.FAMID
AND MINC.MEMBNO = MEMB.MEMBNO
AND MINC.FAMID = FMLY.FAMID
AND MEMB.FAMID = FMLY.FAMID
ORDER BY MINC.FAMID2) The collections can be alternately initialized as follows :
v_member_rec(v_member_rec.last).FAMID := j.FAMID;
max_earnings_tab(max_earnings_tab.last) := v_max_earnings;The tried the below example for confirmation ...
declare
type emp_rec is record
(name emp.ename%TYPE,
dept emp.edept%TYPE,
sal emp.esal%TYPE
TYPE emp_rec_tab is table of emp_rec;
ert emp_rec_tab := emp_rec_tab();
TYPE ename_tab is table of varchar2(20);
ent ename_tab := ename_tab();
TYPE edept_tab is table of number;
edt edept_tab := edept_tab();
begin
for i in (select * from emp)
loop
ert.extend;
ent.extend;
edt.extend;
ert(ert.last).name := i.ename;
ert(ert.last).dept := i.edept;
ert(ert.last).sal := i.esal;
ent(ent.last) := i.ename;
edt(edt.last) := i.edept;
end loop;
for i in 1..ert.count
loop
dbms_output.put_line(ert(i).name||','||ent(i));
dbms_output.put_line(ert(i).dept||','||edt(i));
dbms_output.put_line('');
end loop;
end; -
Hi,
i have a requirement where based on a condition i need to add a new segment dynamically in Inbound IDOC.
I have written the code in the user exit of the inbound FM. Its adding new segments and process it perfectly.
But when i see the IDOC in we02 or we19, i am not able to see the newly added segment.
Will the newly added segment in FM appear in the We02?
PS: i have changed the idoc_control-maxsegnum.
Regards,
NiyazHi Niyaz,
Check out the below program ....Similar to your requirement
IDoc creation from inbound file
REPORT ZS7BM000006 message-id ZS7.
*/ Program Name: Creation of DESADV & INVOIC IDocs from file E021
*/ Description : This program reads in external file E021 containing
* shipping and invoice data from internal vendors and
* creates one DESADV and one INVOIC IDoc per invoice.
*/ Transaction : n/a - run from job Z_ccc_S7B_Annnnn, where
* 'ccc' = 3-digit client and 'nnnnn' = zero-filled
* sequence number matching the scheduled job for E020.
tables: lfa1,
lfm1,
ekpo,
eine,
e1edk01,
e1edk02,
e1edk07,
e1edk08,
e1edk06,
e1edk03,
e1edka1,
e1edka2,
e1edp07,
e1edp09,
e1edp19,
e1edp01,
e1edp02,
e1edp26,
e1edp04,
e1eds01,
e1eds02,
zst7f_ty_vendors.
parameters: p_path like PATH-PATHEXTERN
default '/ftp/atac/in/'.
data: INFILE LIKE PATH-PATHEXTERN,
back_path(7) type c value 'backup/',
offset like sy-fdpos,
p07_ctr like sy-index,
invoice_total type p decimals 3,
d_seg_num like sy-index,
i_seg_num like sy-index.
data: OUTFILE LIKE PATH-PATHEXTERN,
today(8) type c.
data: begin of uty_vendors occurs 10,
lifnr like lfa1-lifnr,
waers like lfm1-waers,
name_abbr like zst7f_ty_vendors-name_abbr,
ship_days like zst7f_ty_vendors-ship_days,
end of uty_vendors.
data: iZSS7B21 like ZSS7B21.
data: desadvdata like edi_dd occurs 5 with header line.
data: invoicdata like edi_dd occurs 5 with header line.
data: dedidc like edi_dc occurs 1 with header line.
data: iedidc like edi_dc occurs 1 with header line.
data: begin of ie021 occurs 10,
lifnr like lfa1-lifnr,
ship_days like zst7f_ty_vendors-ship_days,
invoice_no like e1edk08-vbeln,
stat like e1edk01-action,
po_number(10) type n,
po_lineno(5) type n,
slip_number like e1edp09-vbeln,
shipto_id like e1edka1-partn,
vendor_id like e1edka1-partn,
endcust_name like e1edka1-name1,
cust_partno like e1edp09-kdmat, "char 35
vendor_partno like e1edp09-matnr, "char 35
invoice_qty like e1edp09-lfimg,
qty_uom like e1edp01-menee,
unit_price like e1edp01-vprei,
price_uom like e1edp01-pmene,
price_qty like e1edp01-peinh,
line_amount like e1edp26-betrg,
currency like e1edk01-curcy,
etd like e1edk06-datum, "ship date
eta like e1edk06-datum, "delivery date
ship_id like e1edk08-traid,
ship_method like e1edk08-traty,
create_date like e1edk03-datum,
plant like ekpo-werks,
end of ie021.
data: save_po like ie021-po_number,
save_line like ie021-po_lineno,
save_stat like ie021-stat,
save_invoice like ie021-invoice_no.
constants: hun_thou type p decimals 5 value '100000',
thou type p decimals 3 value '1000'.
*& DEFINITION: append_idoc_rec
* add a data record to the IDoc internal table
define append_idoc_rec.
&1-tabnam = &1-segnam.
&2_seg_num = &2_seg_num + 1.
&1-segnum = &2_seg_num.
shift &1-segnum left deleting leading space.
append &1.
clear &1.
end-of-definition. " append_idoc_rec
* MAIN PROCESSING LOOP
START-OF-SELECTION.
today = sy-datum.
* find all internal vendors
select a~lifnr
b~waers
c~name_abbr c~ship_days
into corresponding fields of table uty_vendors
from lfa1 as a
inner join lfm1 as b
on a~lifnr = b~lifnr
inner join zst7f_ty_vendors as c
on a~lifnr = c~lifnr
where a~ktokk = 'ZZTY' and
b~ekorg = '7100' and
c~ship_code = ' '.
perform init_desadv.
perform init_invoic.
concatenate 'SAP' sy-sysid(3) into: iedidc-sndpor, dedidc-sndpor.
loop at uty_vendors.
clear ie021. refresh ie021.
if not uty_vendors-name_abbr is initial.
* datafiles are received with naming convention:
* E020_<customer name abbreviation>_UTY
concatenate p_path 'E021_' uty_vendors-name_abbr '_UTY'
into infile.
if not sy-subrc is initial. "pathname too long
* Filename too long: &
message i016 with infile.
continue.
endif.
condense infile.
OPEN DATASET INFILE FOR INPUT IN TEXT MODE.
if not sy-subrc is initial.
*'Cannot open dataset & on &'
message i013 with infile sy-datum.
continue.
else.
concatenate p_path back_path 'E021_'
uty_vendors-name_abbr '_UTY' today
into outfile.
if not sy-subrc is initial. "pathname too long
* Filename too long: &
message i016 with outfile.
continue.
endif.
condense outfile.
OPEN DATASET OUTFILE FOR OUTPUT IN TEXT MODE.
* if the datestamped file cannot be created, do not process the
* input file, because the input file is deleted after processing,
* and there would be no record of the data.
if not sy-subrc is initial.
*'ERROR opening file & for output'
close dataset infile.
message i033 with outfile.
continue. "process next vendor's file
endif.
do.
read dataset infile into izss7b21.
case sy-subrc.
when 0.
transfer izss7b21 to outfile.
if izss7b21-datacode = 'T'. "trailer rec
perform process_one_vendor using infile.
exit. "process next vendor's file
endif.
check: izss7b21-datacode = 'A'. "data rec
case izss7b21-status.
when ' '. "new
ie021-stat = '000'.
when 'M'. "modification
ie021-stat = '002'.
when 'D'. "deletion
ie021-stat = '003'.
endcase.
move-corresponding uty_vendors to ie021.
move-corresponding izss7b21 to ie021.
perform convert_po_no using izss7b21-pono_poline
changing ie021-po_number
ie021-po_lineno.
perform convert_dates using ie021-lifnr
izss7b21-etd
izss7b21-eta
izss7b21-ship_method
izss7b21-create_date
changing ie021-eta
ie021-ship_days.
perform quantity_conversion
using izss7b21-qty_uom
izss7b21-invoice_qty
izss7b21-unit_price
changing ie021-qty_uom
ie021-invoice_qty
izss7b21-line_amount.
perform money_conversion
using izss7b21-currency
izss7b21-unit_price
izss7b21-price_uom
izss7b21-line_amount
changing ie021-currency
ie021-price_uom
ie021-price_qty
ie021-unit_price
ie021-line_amount.
perform SAP_vendor_partno
changing ie021-cust_partno.
append ie021.
when 4. "EOF
perform process_one_vendor using infile.
exit. "process next vendor's file
when others.
*ERROR reading dataset & - &
message i015 with infile sy-datum.
exit.
endcase.
enddo.
close dataset: infile, outfile.
delete dataset infile.
endif.
endif.
endloop. "UTY_VENDORS
*& Form process_one_vendor
* Pre-processed records from one vendor file are now in the
* internal table ie021 - ready to create IDocs
FORM process_one_vendor using value(infile).
sort ie021 by invoice_no stat po_number po_lineno.
loop at ie021.
if ( ie021-invoice_no <> save_invoice or
ie021-stat <> save_stat ).
if sy-tabix > 1.
perform post_idocs using ie021-stat.
endif.
perform idoc_header_segs using ie021-stat.
endif.
if ( ie021-stat <> save_stat or
ie021-po_number <> save_po or
ie021-po_lineno <> save_line or
ie021-invoice_no <> save_invoice ).
if ( sy-tabix > 1 and
ie021-stat = '000' ).
perform idoc_poheader_segs.
endif.
endif.
perform idoc_item_segs using ie021-stat.
save_po = ie021-po_number.
save_line = ie021-po_lineno.
save_invoice = ie021-invoice_no.
save_stat = ie021-stat.
endloop.
perform post_idocs using ie021-stat.
* File successfully processed: &
message s035 with infile.
ENDFORM. " process_one_vendor
*& Form convert_po_no
* Break the PO number & line field into separate fields
FORM convert_po_no using value(infield)
changing po_number like ie021-po_number
po_line like ie021-po_lineno.
data: cpos like sy-fdpos,
lpos like sy-fdpos,
cline(6) type c.
* if the infield contains a hyphen, assume that the preceding characters
* represent the po number, if they are numeric. The po line number is
* assumed to be all numeric characters after the hyphen.
if infield ca '-'.
if infield(sy-fdpos) co ' 0123456789'. "numeric
po_number = infield(sy-fdpos).
cpos = sy-fdpos + 1.
endif.
else. "no hyphen - PTY
if infield(2) = '71'. "SAP number range
cpos = 10.
else. "SyteLine number
cpos = 6.
endif.
if infield(cpos) co ' 0123456789'. "numeric
po_number = infield(cpos).
endif.
endif.
if not po_number is initial.
while infield+cpos(1) co '0123456789'.
cline+lpos(1) = infield+cpos(1).
lpos = lpos + 1.
cpos = cpos + 1.
endwhile.
shift cline left deleting leading '0'.
if not cline is initial.
po_line = cline.
endif.
endif.
* Put out a warning in the job log, but create the IDoc to save the data
if ( po_number is initial or
po_line is initial ).
* PO number - line item conversion failed: &
message i034 with infield.
endif.
ENDFORM. " convert_po_no
*& Form convert_dates
* Convert ship date to delivery date, if necessary
FORM convert_dates using value(vendor_no)
value(i_ship_date)
value(i_delivery_date)
value(i_ship_code)
value(i_create_date)
changing o_delivery_date
ship_days.
data: ship_date type d.
* if delivery date not sent, calculate it from ship date plus
* ship days.
* Note that this logic could leave delivery date blank,
* if ship date is not numeric.
if ( i_delivery_date is initial or
i_delivery_date co ' 0' ). "no delivery date sent
if ( i_ship_date co ' 0123456789' and
i_ship_date cn ' 0' ). "ship date sent
* move the ship date into a date field to add days
ship_date = i_ship_date.
elseif ( i_create_date co ' 0123456789' and
i_create_date cn ' 0' ).
ship_date = i_create_date.
endif.
if not i_ship_code is initial.
select single ship_days from zst7f_ty_vendors
into ship_days
where lifnr = vendor_no
and ship_code = i_ship_code.
endif.
if not ship_date is initial.
if ship_days > 0.
ship_date = ship_date + ship_days.
o_delivery_date = ship_date.
shift o_delivery_date left deleting leading ' '.
endif.
endif.
else. "delivery date sent
o_delivery_date = i_delivery_date.
endif.
ENDFORM. " convert_dates
*& Form quantity_conversion
* The quantities in the input file are implied 3-decimal,
* so need to be converted into a "real" number.
* Also, the unit of measure may be 'KP' indicating that the qty
* is given in thousands.
FORM quantity_conversion USING value(i_UOM)
value(i_invoice_qty)
value(i_unit_price)
CHANGING o_uom like iE021-qty_UOM
o_invoice_qty like IE021-INVOICE_QTY
c_LINE_AMOUNT like izss7b21-line_amount.
data: f_invoice_qty type f.
data: n_invoice_qty like lips-kcmeng.
data: f_unit_price type f.
data: f_line_amt type f.
data: n_line_amt0 type p decimals 0.
if ( i_invoice_qty co ' 0123456789' and
i_invoice_qty cn ' 0' ).
f_invoice_qty = i_invoice_qty.
* if no extended price is sent, calculate it
if c_line_amount is initial.
* the qty is implied 3-dec, the price is still implied
* 5-dec, and line amount should be implied 3-dec.
f_unit_price = i_unit_price.
f_line_amt = ( f_invoice_qty * f_unit_price ) / 100000.
n_line_amt0 = f_line_amt.
c_line_amount = n_line_amt0.
shift c_line_amount left deleting leading space.
endif.
* if the invoice qty is per 1000, the implied 3-dec times 1000 equals
* the unconverted value. Otherwise, divide by 1000 to get the PCE qty
if i_uom = 'KP'.
n_invoice_qty = f_invoice_qty.
else.
n_invoice_qty = f_invoice_qty / thou.
endif.
endif.
o_uom = 'PCE'.
if not n_invoice_qty is initial.
o_invoice_qty = n_invoice_qty.
shift o_invoice_qty left deleting leading space.
else.
clear o_invoice_qty.
endif.
ENDFORM. " quantity_conversion
*& Form money_conversion
* Add the implied decimals and store price-per qty, if
* price per 1,000 is sent.
FORM money_conversion USING value(I_CURR)
value(i_UNIT_PRICE)
value(i_UOM)
value(i_LINE_AMOUNT)
CHANGING o_CURRENCY like ie021-currency
o_PRICE_UOM like ie021-price_uom
o_PRICE_QTY like ie021-price_qty
o_UNIT_PRICE like ie021-unit_price
o_LINE_AMOUNT like ie021-line_amount.
data: n_unit_price type p decimals 5,
n_line_amount type p decimals 3.
* not all of the vendors send the currency code, so use the vendor
* master default
case i_curr(2).
when 'US'.
o_currency = 'USD'.
when 'JP'.
o_currency = 'JPY'.
when others.
o_currency = uty_vendors-waers.
endcase.
* unit price is implied 5-dec
if ( i_unit_price cn ' 0' and
i_unit_price co ' 0123456789' ).
n_unit_price = i_unit_price.
n_unit_price = n_unit_price / hun_thou.
endif.
* line price is implied 3-dec
if ( i_line_amount co ' 0123456789' and
i_line_amount cn ' 0' ).
n_line_amount = i_line_amount.
n_line_amount = n_line_amount / thou.
endif.
* 'KP' = price per thousand
if i_uom = 'KP'.
o_price_qty = '1000'.
else.
o_price_qty = '1'.
endif.
o_price_uom = 'PCE'.
if not n_unit_price is initial.
o_unit_price = n_unit_price.
shift o_unit_price left deleting leading space.
else.
clear o_unit_price.
endif.
if not n_line_amount is initial.
o_line_amount = n_line_amount.
shift o_line_amount left deleting leading space.
else.
clear o_line_amount.
endif.
ENDFORM. " money_conversion
*& Form SAP_vendor_partno
* replace UTY part number sent by vendor with SAP material no.
* from PO line item.
FORM SAP_vendor_partno changing cust_partno like ie021-cust_partno.
tables: makt.
data: partno_sent like makt-maktx.
partno_sent = cust_partno.
clear: makt, cust_partno.
select single matnr from ekpo into cust_partno
where ebeln = ie021-po_number and
ebelp = ie021-po_lineno.
if sy-subrc is initial.
*compare material description to part number sent by vendor
select single maktx from makt into makt-maktx
where matnr = cust_partno.
if partno_sent <> makt-maktx.
* 'Part No. Mismatch: PO & - &, Part sent &, SAP mat.no. &'
message i031 with ie021-po_number ie021-po_lineno
partno_sent makt-maktx.
endif.
else. "PO line not found
*try to find SAP material number using 20-char catalog no. sent
select single matnr from makt into cust_partno
where maktx = partno_sent.
if not sy-subrc is initial.
* 'SAP material no. not found for & - PO & - &'
message i032 with partno_sent ie021-po_number ie021-po_lineno.
endif.
endif.
*if not found, IDoc will go to workflow for missing material no.
ENDFORM. " SAP_vendor_partno
*& Form idoc_header_segs
* create internal table entries for header segments.
* DESADV:
* E1EDK07
* E1EDKA1
* E1EDK03
* E1EDK08
* E1EDKA2
* E1EDK06
* INVOIC:
* E1EDK01
* E1EDKA1(s)
* E1EDK02
* E1EDK03(s)
FORM idoc_header_segs using value(desadv_ok).
* INVOIC
clear i_seg_num.
invoicdata-segnam = 'E1EDK01'.
e1edk01-action = ie021-stat.
if ie021-currency(2) = 'US'.
e1edk01-curcy = 'USD'.
else.
e1edk01-curcy = 'JPY'.
endif.
invoicdata-sdata = e1edk01.
append_idoc_rec invoicdata i.
clear e1edka1.
invoicdata-segnam = 'E1EDKA1'.
e1edka1-parvw = 'RE'.
e1edka1-partn = ie021-shipto_id.
invoicdata-sdata = e1edka1.
append_idoc_rec invoicdata i.
clear e1edka1.
invoicdata-segnam = 'E1EDKA1'.
e1edka1-parvw = 'LF'.
e1edka1-partn = ie021-lifnr.
e1edka1-lifnr = ie021-shipto_id.
invoicdata-sdata = e1edka1.
append_idoc_rec invoicdata i.
if not ie021-endcust_name is initial.
clear e1edka1.
invoicdata-segnam = 'E1EDKA1'.
e1edka1-parvw = 'WE'.
e1edka1-name1 = ie021-endcust_name.
invoicdata-sdata = e1edka1.
append_idoc_rec invoicdata i.
endif.
clear e1edk02.
invoicdata-segnam = 'E1EDK02'.
e1edk02-qualf = '009'.
e1edk02-belnr = ie021-invoice_no.
invoicdata-sdata = e1edk02.
append_idoc_rec invoicdata i.
clear e1edk03.
invoicdata-segnam = 'E1EDK03'.
e1edk03-iddat = '012'.
e1edk03-datum = ie021-create_date.
invoicdata-sdata = e1edk03.
append_idoc_rec invoicdata i.
invoicdata-segnam = 'E1EDK03'.
e1edk03-iddat = '024'.
invoicdata-sdata = e1edk03.
append_idoc_rec invoicdata i.
check desadv_ok = '000'.
* DESADV
clear d_seg_num.
desadvdata-segnam = 'E1EDK07'.
e1edk07-action = ie021-stat.
e1edk07-bolnr = ie021-invoice_no.
desadvdata-sdata = e1edk07.
append_idoc_rec desadvdata d.
clear e1edka1.
desadvdata-segnam = 'E1EDKA1'.
desadvdata-sdata = e1edka1.
append_idoc_rec desadvdata d.
clear e1edk03.
desadvdata-segnam = 'E1EDK03'.
desadvdata-sdata = e1edk03.
append_idoc_rec desadvdata d.
clear e1edk08.
desadvdata-segnam = 'E1EDK08'.
e1edk08-vbeln = ie021-invoice_no.
e1edk08-traid = ie021-ship_id.
e1edk08-traty = ie021-ship_method.
desadvdata-sdata = e1edk08.
append_idoc_rec desadvdata d.
clear e1edka2.
desadvdata-segnam = 'E1EDKA2'.
desadvdata-sdata = e1edka2.
append_idoc_rec desadvdata d.
clear e1edk06.
desadvdata-segnam = 'E1EDK06'.
e1edk06-iddat = '025'. "document date
e1edk06-datum = ie021-create_date.
desadvdata-sdata = e1edk06.
append_idoc_rec desadvdata d.
if not ie021-eta is initial.
clear e1edk06.
desadvdata-segnam = 'E1EDK06'.
e1edk06-iddat = '001'. "delivery date
e1edk06-datum = ie021-eta.
desadvdata-sdata = e1edk06.
append_idoc_rec desadvdata d.
endif.
if not ie021-etd is initial.
clear e1edk06.
desadvdata-segnam = 'E1EDK06'.
e1edk06-iddat = '010'. "ship date
e1edk06-datum = ie021-etd.
desadvdata-sdata = e1edk06.
append_idoc_rec desadvdata d.
endif.
ENDFORM. " idoc_header_segs
*& Form idoc_poheader_segs
* create internal table entries for DESADV PO/item segments
* E1EDP07
FORM idoc_poheader_segs.
*DESADV
clear e1edp07.
desadvdata-segnam = 'E1EDP07'.
e1edp07-bstnk = ie021-po_number.
e1edp07-posex = ie021-po_lineno.
desadvdata-sdata = e1edp07.
append_idoc_rec desadvdata d.
p07_ctr = p07_ctr + 1.
ENDFORM. " idoc_poheader_segs
*& Form idoc_item_segs
* create internal table entries for PO item segments:
* DESADV: E1EDP09
* INVOIC: E1EDP01 Qtys
* E1EDP02 ref nos. (PO number / line)
* E1EDP19 part numbers
* E1EDP26 amounts
* E1EDP04 taxes
FORM idoc_item_segs using value(desadv_ok).
data: n_line_amt type p decimals 3.
*INVOIC
clear e1edp01.
invoicdata-segnam = 'E1EDP01'.
e1edp01-menee = ie021-qty_uom.
e1edp01-menge = ie021-invoice_qty.
e1edp01-vprei = ie021-unit_price.
e1edp01-pmene = ie021-price_uom.
e1edp01-peinh = ie021-price_qty.
e1edp01-netwr = ie021-line_amount.
invoicdata-sdata = e1edp01.
append_idoc_rec invoicdata i.
clear e1edp02.
invoicdata-segnam = 'E1EDP02'.
e1edp02-qualf = '001'.
e1edp02-belnr = ie021-po_number.
e1edp02-zeile = ie021-po_lineno.
invoicdata-sdata = e1edp02.
append_idoc_rec invoicdata i.
clear e1edp19.
invoicdata-segnam = 'E1EDP19'.
e1edp19-qualf = '001'.
e1edp19-idtnr = ie021-cust_partno.
invoicdata-sdata = e1edp19.
append_idoc_rec invoicdata i.
clear e1edp19.
invoicdata-segnam = 'E1EDP19'.
e1edp19-qualf = '002'.
e1edp19-idtnr = ie021-vendor_partno.
invoicdata-sdata = e1edp19.
append_idoc_rec invoicdata i.
clear e1edp26.
invoicdata-segnam = 'E1EDP26'.
e1edp26-qualf = '003'.
e1edp26-betrg = ie021-line_amount.
invoicdata-sdata = e1edp26.
append_idoc_rec invoicdata i.
* dummy tax seg
clear e1edp04.
invoicdata-segnam = 'E1EDP04'.
e1edp04-msatz = '0.00'.
invoicdata-sdata = e1edp04.
append_idoc_rec invoicdata i.
n_line_amt = ie021-line_amount.
invoice_total = invoice_total + n_line_amt.
check desadv_ok = '000'.
*DESADV
clear e1edp09.
desadvdata-segnam = 'E1EDP09'.
e1edp09-vbeln = ie021-slip_number.
e1edp09-matnr = ie021-vendor_partno.
e1edp09-vrkme = ie021-qty_uom.
e1edp09-lfimg = ie021-invoice_qty.
desadvdata-sdata = e1edp09.
append_idoc_rec desadvdata d.
ENDFORM. " idoc_item_segs
*& Form post_idocs
* create database IDocs from the idocdata tables and clear tables.
FORM post_idocs using value(desadv_ok).
*INVOIC
clear e1eds01.
invoicdata-segnam = 'E1EDS01'.
e1eds01-sumid = '010'.
e1eds01-summe = invoice_total.
e1eds01-waerq = ie021-currency.
shift e1eds01-summe left deleting leading space.
invoicdata-sdata = e1eds01.
append_idoc_rec invoicdata i.
CALL FUNCTION 'INBOUND_IDOC_PROCESS'
TABLES
IDOC_CONTROL = iedidc
IDOC_DATA = invoicdata.
commit work.
*DESADV
if desadv_ok = '000'.
clear e1eds02.
desadvdata-segnam = 'E1EDS02'.
e1eds02-sumid = '001'.
e1eds02-summe = p07_ctr.
shift e1eds02-summe left deleting leading space.
desadvdata-sdata = e1eds02.
append_idoc_rec desadvdata d.
CALL FUNCTION 'INBOUND_IDOC_PROCESS'
TABLES
IDOC_CONTROL = dedidc
IDOC_DATA = desadvdata.
commit work.
endif.
refresh: desadvdata,
invoicdata.
clear:
desadvdata,
invoicdata,
p07_ctr,
invoice_total,
save_stat,
save_po,
save_line,
save_invoice.
ENDFORM. " post_idocs
*& Form init_desadv
* add a DESDAV control record and initialize fields
FORM init_desadv.
clear dedidc. refresh dedidc.
* initialize control record:
move: '2' to dedidc-direct,
'DESADV01' to dedidc-doctyp,
'DESADV' to dedidc-mestyp,
'F' to dedidc-std,
'E021' to dedidc-stdmes,
'LS' to dedidc-sndprt,
'TY_VENDORS' to dedidc-sndprn,
sy-datlo to dedidc-credat,
sy-timlo to dedidc-cretim.
append dedidc.
ENDFORM. " init_desadv
*& Form init_invoic
* add a INVOIC control record and initialize fields
FORM init_invoic.
clear iedidc. refresh iedidc.
* initialize control record:
move: '2' to iedidc-direct,
'INVOIC01' to iedidc-doctyp,
'INVOIC' to iedidc-mestyp,
'MM' to iedidc-mescod,
'F' to iedidc-std,
'E021' to iedidc-stdmes,
'LS' to iedidc-sndprt,
'TY_VENDORS' to iedidc-sndprn,
sy-datlo to iedidc-credat,
sy-timlo to iedidc-cretim.
append iedidc.
ENDFORM. " init_invoic
REWARD POINTS IF HELPFUL
Lakshmiraj.A -
Deploying war files on iplanet web server 6.0
Hello All,
I tried to deploy an war file on iplanet web server 6.0 using both command line wdeploy and iplanet webserver browser based admin tool. Both the times it did say successfully deployed. I checked the WEB-INF files and it does contain all class files..But the problem is when I try to post a form to one of the class files the error log says as if it cannot find the class file.(I tried the sample app HelloWorld supplied by vendor)
=========
05/Mar/2002:13:19:14] config (13777): for host xx.xx.xx.xx trying to POST /samples/helloworld/GreeterServlet, handle-processed reports: The request method is not applicable to this requested resource.
=================
any help in this regards is appreciated
Thanks
sudhirHello,
I got few steps to deploy the WAR file, if you followed the same steps and got the error then ignore this else try with this steps.
a) Set your environment variable IWS_SERVER_HOME to your server_root directory.
b) Add the server_root/bin/https/httpsadmin/bin directory to your classpath.
c) Configure your virtual server for web applications.
From the Server Manager page, select the VirtualServerClass tab, select a Class, and click the Manage button.
Select a Virtual Server and go to the Java Web Apps Settings page for that virtual server. Make sure that the virtual server has Web Apps State turned On, and web-apps.xml is the name of Web Apps File.
To extract the sample WAR file HelloWorld.war in server_root/plugins/servlets/examples/web-apps/HelloWorld, use the wdeploy command as follows:
wdeploy deploy -u /hello -i server.iplanet.com -v testvs -d
/iws60/https-server.mydomain.com/testvs/web-apps/hello
/iws60/plugins/servlets/examples/web-apps/HelloWorld/HelloWorld.war
The syntax for the command is as follows:
wdeploy deploy -u uri_path -i instance -v vs_id [-d directory] war_file
uri_path Specify the URI prefix (a path to access the web application from the browser).
instance Specify the server instance name. (Note: Do not include "https" in the front.)
vs_id Specify the Virtual Server name as it appears on the Manage Virtual Servers page.
directory Specify a directory to extract WAR files. If this directory doesn't exist already, it will be created for you now.
war_file Specify the name of the WAR file.
If the WAR file is extracted successfully, the message "web application deploy successful" appears at the command line.
For verification, go to the /iws60/https-server.iplanet.com/testvs/web-apps/hello directory. It should have the following contents:
colors
index.jsp
META-INF
WEB-INF/
web.xml
/classes/
HelloWorldServlet.class
HelloWorldServlet.java
SnoopServlet.class
SnoopServlet.java
In the server_instance/config directory, the web-apps.xml file should have the following entry:
<vs>
<web-app uri="/hello"
dir="/iws60/https-server.iplanet.com/testvs/web-apps/hello"/>
</vs>
Restart the server instance from the command line or go to the admin GUI and apply configuration changes to the server instance.
Now when you access the webserver instance in your browser, the Error log of that server instance will record successful initialization of the web application environment(web-apps.xml) for the virtual server(vs name). You can access the web application from a browser as follows:
http://server.Mydomain.com:80/hello/index.jsp
or:
http://server.Mydomain.com/hello/
The syntax is as follows:
http://vs_urlhost[:vs_port]/uri_path/[index_page]
Thanks
Selva -
Hi BW Experts,
Recently we loaded SD data. There are 6 data sources and we got 6 requests in Manage screen and got transferred/added records. There are about 8 lakh records. (INITIALIZATION)
When i check the contents, iam not able to see the data in Infocube.
We found the problem that Dimension Tables data deleted and we are able to see the fact table data.
So please can anyone tell me the solution??
Regards
AnjaliHi,
right click on the cube and select delete data. It will ask you options that you want to delete data from only fact table or fact table and dimension table.
select the second option i.e. "fact table and dimension table", it will delete all data from fact table and dimension table drops them and recreate them.
then you can do the data load again.
Regards,
Purvang
Maybe you are looking for
-
Photoshop CS6 and CC freezes in Open/Save dialog
Photoshop is unuasable for me. I was running CS6 but it kept freezing when I tried to open a file. I uninstalled and installed CC -- same problem. I checked the preferences to see if there was a setting for an Adobe file dialog and it froze again. I
-
How can i see multi tracks in the score editor
Sorry for this trivial ,but i can not find it thanks
-
Does iTunes 12.1 work in OS 10.6.8?
Mac Pro (Early 2008) 2 internal drives using Mac OS X (10.6.8) and Mac OS X (10.8.5) iTunes 11.4 on the Snow Leopard drive iTunes 12.1 on the Mountain Lion Drive (which is an internal SSD) I want to be able to access and play my music in iTunes 11.4
-
Array initialize causing crash in simulator, only with certain versions set
I am initializing an array in my viewDidLoad method: for (i=0; i<NUMBEROFIMAGES; i++) { [buttonsArray addObject:[UIButton buttonWithType:UIButtonTypeRoundedRect]]; [[buttonsArray objectAtIndex: i] setImage:tmpImage forState:UIControlStateNormal]; The
-
Hi We have received stock from K. C. Shah & Sons against P.O. No. 4500592514 dtd. 23.04.2007 Invoice no. 16 dtd. 14.05.2007 total 216 pcs but we are getting error in zpgr inward, error as " Profit center 1001/865401 does not exist for 16.05.2007". P