DATEADD getting a Syntax error
I am trying to change my Promise Date when the SD.Status = 'Hold' to add 100 years so that when it sorts it it comes out at the bottom of the extract. I want the Promised Date to not change if the SD.Status is not equal to 'Hold'. The Sd.Promise_Date field
is a DateTime field. I do not see my error. See my code and error message below.
Select SD.Sales_Order As [SO #]
,SD.SO_Line As [Ln]
,Cast(Min(SD.Status) As Varchar(1)) As [SS]
,Min(SH.Sales_Rep) As [Rep]
,Min(SH.Customer) As [Cust ID]
,Min(SD.Material) As [Material/Part Number]
,Min(Case when SD.Material = 'CUSTOM-SPECIAL' then (Substring(SD.EXT_Description,1,30))
else M.Description end) As [Description]
,Min(Case when SD.Status = 'Hold' then 'HOLD'
when PATINDEX('%Ship complete%', SH.Comment)>0 then 'SC'
when PATINDEX('%In CustomerID%', SH.Comment)>0 then 'ICSL'
when SH.Ship_Via = 'Cust Stock' then 'CSTK'
when SH.Ship_Via = 'Install' then 'INST'
else '' end) [Txt]
,Min(Case when SD.Job Is Not null then SD.Job
when PATINDEX('%SO Given to RonF%', SH.Note_Text)>0 then 'RON F'
when PATINDEX('%SO Given to Cut%', SH.Note_Text)>0 then 'CUT'
when PATINDEX('%SO Given to Joe%', SH.Note_Text)>0 then 'JOE'
when PATINDEX('%SO Given to Laser%', SH.Note_Text)>0 then 'LASER'
when SD.Job IS null then ''
else '' end) [Linked]
,Min(ISNULL(SD.PO,'')) As [PO]
,Cast(MIN(ISNULL(J.Status,''))As Varchar(1)) As [St]
,Cast(SUM((SD.Order_Qty - SD.Shipped_Qty) * (100 - SD.Discount_Pct) * SD.Unit_Price / 100) As Decimal(7,2)) As [Ext Amt]
,Min(SD.Order_Qty) As [Ord]
,Min(SD.Picked_Qty) As [Pick]
,Min(SD.Backorder_Qty) As [BO]
,Cast(Min(SH.Order_Date) As Date) As [Ord Date]
,Min(M.Lead_Days) As [LD]
,(Case when SD.Status = 'Hold'
then DATEADD(yyyy,100,'SD.Promised_Date')
else DATEADD(yyyy,0,'SD.Promised_Date') PromDate end)
,Cast(PromDate as Date) As [Promised]
from [PRODUCTION].dbo.SO_Detail As SD
INNER JOIN [PRODUCTION].dbo.SO_Header As SH
on SD.Sales_Order = SH.Sales_Order
and (SD.Status = 'Open'
or SD.Status = 'Backorder'
or SD.Status = 'Hold' )
INNER JOIN [PRODUCTION].dbo.Material As M
on SD.Material = M.Material
LEFT OUTER JOIN [PRODUCTION].dbo.Job As J
On SD.Job = J.Job
Group by SD.Promised_Date, SD.Sales_Order, SD.SO_Line
Order by SD.Promised_Date, SD.Sales_Order, SD.SO_Line
Msg 102, Level 15, State 1, Line 32
Incorrect syntax near 'PromDate'.
SWProduction
OK thanks.... that made the code execute and it changed the output Promised_Date but it appears to have done it after the Group and Order by processes. Is there a way to make this happen before the Group and Order by processes take effect. I am looking for
output to be:
2014-05-30
2014-06-01
2114-06-01
2014-06-21
2114-06-22
etc.
it appears now as:
2014-05-30
2114-06-01
2014-06-01
2014-06-21
2114-06-22
SWProduction
for that you need to do changes in GROUP BY and ORDER BY as well
as below
Group by DATEADD(yyyy,CASE WHEN SD.Status = 'Hold' THEN 1000 ELSE 0 END,SD.Promised_Date), SD.Sales_Order, SD.SO_Line
Order by DATEADD(yyyy,CASE WHEN SD.Status = 'Hold' THEN 1000 ELSE 0 END,SD.Promised_Date), SD.Sales_Order, SD.SO_Line
Please Mark This As Answer if it helps to solve the issue Visakh ---------------------------- http://visakhm.blogspot.com/ https://www.facebook.com/VmBlogs
Similar Messages
-
Why am I getting a syntax error on the /head line in DW CC?
I am getting a syntax error in DW CC. Other threads have indicated this was a bug in CS6 but had been fixed in CC. That leads me to believe it's my fault, but I can't figure it out. Can anyone help based on the information I've pasted below? Thanks!
<!doctype html>
<!--[if lt IE 7]> <html class="ie6 oldie"> <![endif]-->
<!--[if IE 7]> <html class="ie7 oldie"> <![endif]-->
<!--[if IE 8]> <html class="ie8 oldie"> <![endif]-->
<!--[if gt IE 8]><!-->
<html class="">
<!--<![endif]-->
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<title>Untitled Document</title>
<link href="boilerplate.css" rel="stylesheet" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
<link href="jQueryAssets/jquery.ui.core.min.css" rel="stylesheet" type="text/css">
<link href="jQueryAssets/jquery.ui.theme.min.css" rel="stylesheet" type="text/css">
<link href="jQueryAssets/jquery.ui.accordion.min.css" rel="stylesheet" type="text/css">
<link href="jQueryAssets/jquery.ui.tabs.min.css" rel="stylesheet" type="text/css">
<!--
To learn more about the conditional comments around the html tags at the top of the file:
paulirish.com/2008/conditional-stylesheets-vs-css-hacks-answer-neither/
Do the following if you're using your customized build of modernizr (http://www.modernizr.com/):
* insert the link to your js here
* remove the link below to the html5shiv
* add the "no-js" class to the html tags at the top
* you can also remove the link to respond.min.js if you included the MQ Polyfill in your modernizr build
-->
<!--[if lt IE 9]>
<script src="//html5shiv.googlecode.com/svn/trunk/html5.js"></script>
<![endif]-->
<script src="respond.min.js"></script>
<script src="jQueryAssets/jquery-1.8.3.min.js" type="text/javascript"></script>
<script src="jQueryAssets/jquery-ui-1.9.2.accordion.custom.min.js" type="text/javascript"></script>
<script src="jQueryAssets/jquery-ui-1.9.2.tabs.custom.min.js" type="text/javascript"></script>
<!--The following script tag downloads a font from the Adobe Edge Web Fonts server for use within the web page. We recommend that you do not modify it.--><script>var __adobewebfontsappname__="dreamweaver"</script><script src="http://use.edgefonts.net/adamina:n4:default.js" type="text/javascript"></script>
</head>
<body>
<div class="gridContainer clearfix">
<div id="div1" class="fluid">
<header id="header" class="fluid">
<p><img src="Images/Logos/insidejoplinlogo.png" alt=""/></p>
<nav id="mainnav" class="fluid"> <ul class="fluid fluidList mainnavlist"> <li class="fluid mainnavitem zeroMargin_desktop"><a href="Index2.html" title="Inside Joplin Home" target="_self">Home</a></li><li class="fluid mainnavitem"><a href="news.html">News</a></li><li class="fluid mainnavitem"><a href="entertainment.html">Entertainment</a></li><li class="fluid mainnavitem"><a href="announcements.html">Announcements</a></li><li class="fluid mainnavitem hide_mobile"><a href="galleries.html">Galleries</a></li><li class="fluid mainnavitem hide_mobile"><a href="aboutcontact.html">About/Contact</a></li> </ul> </nav>
</header>
<article id="indexguts" class="fluid"> <article id="indexarticle" class="fluid">
<h4 class="fluid articleH4 zeroMargin_mobile">Latest News</h4>
<p> </p>
<div id="Accordion1">
<h3><a href="#">Section 1</a></h3>
<div>
<p>Content 1</p>
</div>
<h3><a href="#">Section 2</a></h3>
<div>
<p>Content 2</p>
</div>
<h3><a href="#">Section 3</a></h3>
<div>
<p>Content 3</p>
</div>
</div>
</article><article id="article1" class="fluid">
<h4 class="fluid articleH4 zeroMargin_mobile">Latest Entertainment</h4>
<p> </p>
<div id="Accordion2">
<h3><a href="#">Section 1</a></h3>
<div>
<p>Content 1</p>
</div>
<h3><a href="#">Section 2</a></h3>
<div>
<p>Content 2</p>
</div>
<h3><a href="#">Section 3</a></h3>
<div>
<p>Content 3</p>
</div>
</div>
</article><article id="article2" class="fluid"><h4 class="fluid articleH4 zeroMargin_mobile">Latest Announcements</h4>
<p> </p>
<div id="Tabs1">
<ul>
<li><a href="#tabs-1">Obituaries</a></li>
<li><a href="#tabs-2">Weddings</a></li>
<li><a href="#tabs-3">More</a></li>
</ul>
<div id="tabs-1">
<p>Content 1</p>
</div>
<div id="tabs-2">
<p>Content 2</p>
</div>
<div id="tabs-3">
<p>Content 3</p>
</div>
</div>
</article><article id="indexbotleft" class="fluid">This is the content for Layout Article Tag "indexbotleft"</article><article id="article3" class="fluid">This is the content for Layout Article Tag "indexbotleft"</article></article><aside id="mainsidebar" class="fluid">This is the content for Layout Aside Tag "mainsidebar"</aside><aside id="mainsidebar2" class="fluid">This is the content for Layout Aside Tag "mainsidebar2"</aside><article id="indexbotrot" class="fluid">This is the content for Layout Article Tag "indexbotrot"</article>
<footer id="footer" class="fluid">
<nav id="footernav" class="fluid">
<ul id="footernavlist" class="fluid fluidList"> <li class="fluid footernavlistitem zeroMargin_mobile"><a href="Index2.html">Home</a></li><li class="fluid footernavlistitem hide_mobile"><a href="news.html">News</a></li>
<li class="fluid footernavlistitem hide_mobile"><a href="entertainment.html">Entertainment</a></li>
<li class="fluid footernavlistitem hide_mobile"><a href="announcements.html">Announcements</a></li>
<li class="fluid footernavlistitem zeroMargin_desktop zeroMargin_mobile"><a href="galleries.html">Galleries</a></li>
<li class="fluid footernavlistitem zeroMargin_mobile"><a href="aboutcontact.html">About Us</a></li>
<li class="fluid footernavlistitem zeroMargin_mobile"><a href="mailto:[email protected]">Email</a></li> <li class="fluid footernavlistitem zeroMargin_mobile"><a href="www.facebook.com/insidejoplin" target="new">Facebook</a></li></ul>
</nav>
<article id="footerarticle" class="fluid"><img src="Images/Logos/insidejoplinlogo.png" alt=""/></article>
</footer>
</div>
</div>
+
<script type="text/javascript">
$(function() {
$( "#Accordion1" ).accordion();
$(function() {
$( "#Accordion2" ).accordion();
$(function() {
$( "#Tabs1" ).tabs();
</script>
</body>
</html>Well Jon, the code is very simple... it's generated by DW's form check... and, as i said, it happens with unfailing regularity the minute it's put in to a template generated child.
This is what the code on the page looks like:
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Title Here</title>
<meta name="Keywords" content="some keywords here" />
<meta name="Description" content="Description here" />
<script type="text/javascript">
function MM_validateForm() { //v4.0
if (document.getElementById){
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
</script>
<!-- InstanceEndEditable -->
</head>
And, whammo: "There is a syntax error on line xx. Code hinting may not work until you fix this error."
And, the error always highlights the closing </script> line.
The script itself is fine:
1. If one puts it into an external js file, there's no problem
2. If one puts it in the body section, there's no problem
3. If one puts it in the template, there's no problem
Also, if one removes the closing </script> tag, the error goes away
The problem only happens in a child generated by a template and in the location I've illustrated. Apparently, this is a problem a lot of users are facing... -
I can access my facebook account with no trouble, but once facebook is loaded I repeatedly get an error message; syntax error. The words 'Java Script application' are in the bar across the top of the message. It comes up many times and completely disrupts what I am doing. I am wondering if ot has something to do with the adverts in the side bar of each page that I open in facebook. If I open FB from Google Chrome I don't get that problem, or in Explorer, but I would rather use Firefox. Help would be apprecitaed, please. Thanks.
hello, first of all please [https://www.mozilla.org/firefox/update/ update firefox to the latest version]. the errors you're getting are likely coming from the socialfixer addon that you've installed - there's also an updated version of the extension available which fixes these kind of issues: http://socialfixer.com/blog/category/releasenotes/
-
Getting a syntax error while creating the simple OData service.
Hi Folks,
That is what I typed in a in .xsodata file but it is giving me a syntax error..any idea why this can be?
Thank you for your help.
service namespace "sap.hana.test.service"
{ "SYS" , "AFL_AREAS_" as "TEST";Hi,
I tried creating the same. I was able to activate all three files i.e. .xsapp,.xsaccess,*.xsodata. The three file contents are mentioned below. The data might not be displayed in the browser due to privileges issue as it is SYS table.
.xsapp contains
.xsaccess contains
"exposed" : true
*.xsodata contains
service
"SYS"."AFL_AREAS_" as "mytable"; -
Getting a syntax error from mx.transitions.Tween with flash CS4
Hello all!
I am getting an import error with the following libraries:
import mx.transitions.Tween;
import mx.transitions.easing.*;
The errors are like this one:
Definition fl.transitions:Tween could not be found
I am using it as part of my .fla where for sorme reason it does not work but it works fine in the original archive. I guess it is a problem with the action script version becouse the original template use as2 and I am using as3.
Does anyone know which are the equivalent libraries in as3???
May I import does libraries directly in as3?
Thanks in advance for your helpin as3, you should use:
import fl.transitions.Tween;
import fl.transitions.easing.*;
NOT
import mx.transitions.Tween;
import mx.transitions.easing.*;
(see the difference?) -
When I go to run my program, shortly after it starts, it spits out an error #10001 involving the AI Group Config. This is it's suggested explanation:
Ni-DAQ LV: An error was detected in the input string; the arrangement or ordering of the characters in the string is not consistent with the expected ordering.
I've looked to make sure the assigned device name is the same as the expected one, so I know that's not it. Does anyone have any idea what could be causing this?Hi,
First, i must mention that the way u put it "it spits out an error #10001" sounds horribly good!
Now to the problem, this error is usuall given if you enter an improper channel number(a string instead of numeric)
AI group config is a traditional daq function and channels are reperesented by numerals.
check if you have entered channel numbers in proper syntax.
regards
Dev -
Beginner: Getting syntax error on WHERE clause in SELECT
I'm very new to php and mySQL. Am using DW master/detail to generate to basic code I need. One thing I need to do is modify a select statement in the master to include a WHERE clause to limit the selection to a particular value in one field.
I'm getting a syntax error with the WHERE clause I'm adding to the map select statement.
This is the portion of the error message showing the error location:
'WHERE Group='Community' LIMIT 0, 10'
The php that generated the select is:
$query_maps = "SELECT * FROM tblmaps ORDER BY tblmaps.DispSeq";
$query_limit_maps = sprintf("%s WHERE Group='%s' LIMIT %d, %d", $query_maps, $selectGroup, $startRow_maps, $maxRows_maps);
This approach to creating the select statement is from the code generated for the master page. It adds the LIMIT clause. All I did was add the "WHERE Group='%s' and the $selectGroup variable which comes from earlier code. You can see that the $selectGroup variable is equal to the "Community: group.
I've scanned the web to see what syntax error I might be making but haven't found anything that explains it.
The full resolved select statement is:
SELECT * FROM tblmaps ORDER BY tblmaps.DispSeq WHERE Group='Community' LIMIT 0,10
What am I not seeing?
TomThanks. Make sense but changing that didn't help.
Here's the error message I'm getting:
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'Group='Community' ORDER BY tblmaps.DispSeq LIMIT 0, 10' at line 1
The full select (from a debugging ECHO I inserted) is:
SELECT * FROM tblmaps WHERE Group='Community' ORDER BY tblmaps.DispSeq LIMIT 0, 10
Note that when I take the WHERE clause out, there is no syntax error. -
When I write formulas, I sometimes get a syntax error. However when I quit Numbers, open my document again, click on the syntax error and then press "enter," the syntax error has been corrected. Because I've done this many times, I know it's not that I'm incorrectly entering the formula. Can anyone shed any light on this? Thanks!
As you are using Numbers '08, we can't use SUMIFS so :
(1) I will assume that there is a records table for each year.
(2) an auxiliary column (here column D) is required in the main table.
In cells of this auxiliary column, the formula is:
=MONTH(A)&B
Now, I describes the table named "resume"
In the row 1 which is an header one,
cell A1 is blank (it may contain the year)
in cell B1 the formula is :
=MONTHNAME(COLUMN()-1)
and I used fill to the right to get the other names of months.
I used a formula so that the names match the language in use.
In cells A2 thru A7 are the names of recorded items.
In cell B2, the formula is:
=SUMIF(main :: $D,"="&COLUMN()-1&$A,main :: $C)
Then I used fill_down and fillto_theright.
With Numbers '09 we would be allowed to use SUMIFS (which treats several conditions) so it would be easy to test: the year, the month, the item.
Yvan KOENIG (VALLAURIS, France) vendredi 26 mars 2010 18:57:15
Oops, I built the doc in Numbers '09 and forgot that MONTHNAME is unavailable in Numbers '08.
So you will have to type the names of months in row 1.
Message was edited by: KOENIG Yvan -
Select-options in SELECT query - syntax error
Hi all,
I get the error below when I try to use the select options in a SELECT query . Please help me.
"The IN operator with "SO_AWART" is followed neither by an internal
table nor by a value list."
The code i have used(Logical database PNP is used):
TABLES: pernr,
catsdb.
INCLUDE ztime_cwtr_top. " global Data
INCLUDE ztime_cwtr_f01.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS SO_AWART FOR CATSDB-AWART.
PARAMETERS P_THRES TYPE I.
SELECTION-SCREEN END OF BLOCK B1.
Get data from CATSDB table. Workdates within the date interval are considered.
SELECT pernr workdate awart catsquantity beguz enduz status
FROM catsdb
INTO TABLE it_catsdb
WHERE pernr = pernr-pernr AND
workdate GE pn-begda AND
workdate LE pn-endda AND
status IN ('20', '30') AND
awart IN so_awart .
awart IN ('1100', '1137', '1138', '1139', '1140',
'1147', '1148', '1149', '1157', '2003' ).
when I give the values directly i do not get any syntax error, but when I use select options in the where condition I get the syntax error.
I have tried different options like using only the select-options in the where condition.
Thanks in advance.....
MadhuSolved.
Code with syntax error:
include z...top .
include z...fo1.
select-options: xxxxxxx
Code with no syntax error:
select-options: xxxxxxx
include z...top .
include z...fo1.
Thanks for all your help,
Madhu -
Error while transporting Transformation: Syntax error in Start Routine
Hi Everyone,
I'm facing a strange problem during transporting one of the Business Content cubes from Dev. to Quality.
I'd activated the DSO 'Purchase Order Items (0PUR_O01)' and its entire data flow from the 4 datasources 2LIS_02_CGR, 2LIS_02_SCN, 2LIS_02_SGR, and 2LIS_02_ITM from BC. Then I migrated the Transfer/Update rules to transformations and the DataSources to BI7 DataSource. So far so good. The migration was successful and all the objects were activated.
Now when I transport the same to Quality, the import fails with return code 8 and the error message says:
'Start of the after-import method RS_TRFN_AFTER_IMPORT for object type(s) TRFN (Activation Mode)'
'Start Routine: Syntax error in routine'
I verified that the transformation where the error orrured was the one from InfoSource Z2LIS_02_ITM to DSO 0PUR_O01. I went and checked the start routine and it did indeed have a syntax error:
'In PERFORM or CALL FUNCTION "ROUTINE_9998", the actual parameter SOURCE_PACKAGE" is incompatible with the formal parameter DATA_PACKAGE". '
But when I check in the Dev. system, there is no syntax error for the same routine. Later, I tried to transport only the said transformation by re-activating it in Dev, and again I got the same error.
I have no idea why I'm getting a syntax error in the start routine when there are non in the Dev. system. Also none of the coding is customised, it was only the BC code, migrated to a transformation.
Any suggestions on the steps I could take to transport the transformation to my quality system?
Thanks,
RamHi Ajay, Shanthi, svu and Ray
I do indeed have a start routine in my transformation and it was migrated from a 3.x update rule to a BI 7 transformation routine.
The migration was successful and the Start Routine has NO syntax errors in the start routine in the Dev. system. I only encounter the error while transporting it to the Quality system. I cannot modify the code in the Quality system because it is non-changelable and there is no point in trying to change the code in Dev. because there are no errors over there.
I've also made sure that I've transported all the necessary objects required by the transformations to quality. The routine does not perform a lookup, it simply deletes some records from the data package based on the processkey value (which is itself present in the data package). -
Syntax error while creating a standard order
Hi All,
I created a projet in CMOD and than added the enhancement V45A0002.The components shown as EXIT_SAPMV45A_002(Predefined sold to party when making the standard order),i double click on the exit and entered into the function module.After that i double clicked on the include ZXVVZU04 and entered in and wrote E_KUNNR=100171
While activating i got error msg 'The last statement is not complete (period missing)." & i have saved inspite the error .After that i tried to create a order and program terminated error came after entering sold to party no. in sales order
so now i have deactivated the project which i created in CMOD & deleted it aswell,than also i am getting the syntax error while making the order thru VA01.I want to come out of this please.
I would be great ful if somebody helps me *** out of this syntax error.
Thanks
RishiHi Rishi
As you are getting message that "The last statement is not complete (period missing)", check in your assigned project in CMOD the last statement , what is the last statement maintained in that project
Secondly also check the closing period and the current period. as it is giving in the message that "The last statement is not complete (period missing)".So check the current period and check the period maintained in the CMOD
It would be better if you take ABAP'ers help . So post in ABAP forum
Regards
Srinath -
Hi abappers
I am using the following code in my program.
i m getting a syntax error that i do not understand? can any body help me out with this.
Regards
Narendiran Rathinavelu
*& Report ZTEST_RECUPLOAD
REPORT ZTEST_RECUPLOAD.
*include bdcrecx1.
******************Selection screen************************************
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-T01 .
PARAMETERS P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.
PARAMETERS P_SESSN TYPE APQI-GROUPID DEFAULT 'RECURRING'.
PARAMETERS P_SESSN2 TYPE APQI-GROUPID DEFAULT 'RECURRING_E'.
SELECTION-SCREEN END OF BLOCK 1.
********************Type declaration**********************************
*type for data input table
TYPES : BEGIN OF TY_DATA,
BUKRS TYPE T001-BUKRS, "Company code
BLART TYPE BKPF-BLART, "Document type
BUDAT TYPE BKPF-BUDAT, "Posting date
DBBDT TYPE BKDF-DBBDT, "First run
DBATR TYPE BKDF-DBATR, "Next run
DBEDT TYPE BKDF-DBEDT, "last run
DBMON TYPE BKDF-DBMON, "Run frequency
DBTAG TYPE BKDF-DBTAG, "Run date
DBZHL TYPE BKDF-DBZHL, "no of runs
XBLNR TYPE BKPF-XBLNR, "reference(site)
BKTXT TYPE BKPF-BKTXT, "document header data
USNAM TYPE BKPF-USNAM, "User name
CPUDT TYPE BKPF-CPUDT, "Entry date
BSCHL_1 TYPE BSEG-BSCHL, "Posting key 1 item
HKONT_1 TYPE BSEG-HKONT, "Account 1 item
DESC_1 TYPE CHAR40, "Description vendor/GL 1 item
MWSKZ_1 TYPE BSEG-MWSKZ, "Tax code 1 item
MWSTS1_1 TYPE BSEG-MWSTS, "Tax Amount 1 item
MWSTS2_1 TYPE BSEG-MWSTS, "Amount is local currency 1 item
MWSTS3_1 TYPE BSEG-MWSTS, "Amount is foreign currency 1 item
SGTXT_1 TYPE BSEG-SGTXT, "Item text 1 item
ZUONR_1 TYPE BSEG-ZUONR, "Assignment 1 item
BSCHL_2 TYPE BSEG-BSCHL, "Posting key 2 item
HKONT_2 TYPE BSEG-HKONT, "Account 2 item
DESC_2 TYPE CHAR40, "Description vendor/GL 2 item
MWSKZ_2 TYPE BSEG-MWSKZ, "Tax code 2 item
MWSTS1_2 TYPE BSEG-MWSTS, "Tax Amount 2 item
MWSTS2_2 TYPE BSEG-MWSTS, "Amount is local currency 2 item
MWSTS3_2 TYPE BSEG-MWSTS, "Amount is foreign currency 2 item
KOSTL TYPE COBL-KOSTL, "Cost center
AUFNR TYPE COBL-AUFNR, "Internal order number
SGTXT_2 TYPE BSEG-SGTXT, "Item text 2 item
ZUONR_2 TYPE BSEG-ZUONR, "Assignment 2 item
END OF TY_DATA.
*type for data error table
TYPES : BEGIN OF TY_ERROR,
BUKRS TYPE T001-BUKRS, "Company code
BLART TYPE BKPF-BLART, "Document type
BUDAT TYPE BKPF-BUDAT, "Posting date
DBBDT TYPE BKDF-DBBDT, "First run
DBATR TYPE BKDF-DBATR, "Next run
DBEDT TYPE BKDF-DBEDT, "last run
DBMON TYPE BKDF-DBMON, "Run frequency
DBTAG TYPE BKDF-DBTAG, "Run date
DBZHL TYPE BKDF-DBZHL, "no of runs
XBLNR TYPE BKPF-XBLNR, "reference(site)
BKTXT TYPE BKPF-BKTXT, "document header data
USNAM TYPE BKPF-USNAM, "User name
CPUDT TYPE BKPF-CPUDT, "Entry date
BSCHL_1 TYPE BSEG-BSCHL, "Posting key 1 item
HKONT_1 TYPE BSEG-HKONT, "Account 1 item
DESC_1 TYPE CHAR40, "Description vendor/GL 1 item
MWSKZ_1 TYPE BSEG-MWSKZ, "Tax code 1 item
MWSTS1_1 TYPE BSEG-MWSTS, "Tax Amount 1 item
MWSTS2_1 TYPE BSEG-MWSTS, "Amount is local currency 1 item
MWSTS3_1 TYPE BSEG-MWSTS, "Amount is foreign currency 1 item
SGTXT_1 TYPE BSEG-SGTXT, "Item text 1 item
ZUONR_1 TYPE BSEG-ZUONR, "Assignment 1 item
BSCHL_2 TYPE BSEG-BSCHL, "Posting key 2 item
HKONT_2 TYPE BSEG-HKONT, "Account 2 item
DESC_2 TYPE CHAR40, "Description vendor/GL 2 item
MWSKZ_2 TYPE BSEG-MWSKZ, "Tax code 2 item
MWSTS1_2 TYPE BSEG-MWSTS, "Tax Amount 2 item
MWSTS2_2 TYPE BSEG-MWSTS, "Amount is local currency 2 item
MWSTS3_2 TYPE BSEG-MWSTS, "Amount is foreign currency 2 item
KOSTL TYPE COBL-KOSTL, "Cost center
AUFNR TYPE COBL-AUFNR, "Internal order number
SGTXT_2 TYPE BSEG-SGTXT, "Item text 2 item
ZUONR_2 TYPE BSEG-ZUONR, "Assignment 2 item
END OF TY_ERROR.
********************Data declaration***********************************
DATA : T_DATA TYPE TABLE OF TY_DATA, "Table to upload correct entries
T_ERROR TYPE TABLE OF TY_ERROR. "Table to upload error data
DATA : W_DATA TYPE TY_DATA, "workarea for t_data
W_ERROR TYPE TY_ERROR. "workarea for t_error
DATA : T_BDCDATA TYPE TABLE OF BDCDATA,
W_BDCDATA TYPE BDCDATA.
DATA : T_SEL_FILE TYPE FILETABLE,
W_RETURN_CODE TYPE I VALUE '0',
W_SEL_FILE LIKE LINE OF T_SEL_FILE.
DATA : T_DATAIN TYPE TABLE OF TY_DATA,
W_DATAIN TYPE string.
DATA : W_FILE TYPE STRING.
********************At Selection Screen*********************************
*selection screen validations
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
WINDOW_TITLE = 'Select File for upload'
DEFAULT_EXTENSION =
DEFAULT_FILENAME =
FILE_FILTER = '*.xls'
WITH_ENCODING =
INITIAL_DIRECTORY =
MULTISELECTION =
CHANGING
FILE_TABLE = T_SEL_FILE
RC = W_RETURN_CODE
USER_ACTION =
FILE_ENCODING =
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF W_RETURN_CODE <> -1.
READ TABLE T_SEL_FILE INTO W_SEL_FILE INDEX 1.
CLEAR P_FILE.
MOVE W_SEL_FILE TO P_FILE.
ENDIF.
*at selection screen
AT SELECTION-SCREEN ON P_SESSN.
IF P_SESSN IS INITIAL.
P_SESSN = 'RECURRING'.
ENDIF.
AT SELECTION-SCREEN ON P_SESSN2.
IF P_SESSN2 IS INITIAL.
P_SESSN2 = 'RECURRING_E'.
ENDIF.
*********************Start of Selection ****************************
START-OF-SELECTION.
OPEN DATASET P_FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT.
*error message when file not found.
IF SY-SUBRC <> 0.
MESSAGE 'File Not Found' TYPE 'E'.
ENDIF.
DO.
READ DATASET P_FILE INTO w_datain.
IF SY-SUBRC EQ 0.
perform pre_process_record using w_datain
changing w_data.
PERFORM VALIDATE_DATA TABLES T_DATA
T_ERROR
USING W_DATA.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET P_FILE.
*check if any error has occured.
IF T_ERROR[] IS NOT INITIAL.
PERFORM FILL_BDC_TABLE TABLES T_ERROR
T_BDCDATA
USING P_SESSN2.
ENDIF.
*Check if any records are present to be uploaded.
IF T_DATA[] IS NOT INITIAL.
PERFORM FILL_BDC_TABLE TABLES T_DATA
T_BDCDATA
USING P_SESSN.
ELSE.
WRITE :/ 'No Correct Records were found to create session in SM35',
/ 'Please Check the File'.
ENDIF.
*& Form validate_data
Sub routine to check correctness of the uploaded data.
-->P_T_DATA table to upload correct entries
-->P_T_ERROR table to upload erroneous entries
-->P_W_DATA current record
FORM VALIDATE_DATA TABLES P_T_DATA STRUCTURE W_DATA
P_T_ERROR STRUCTURE W_ERROR
USING P_W_DATA.
DATA : L_W_LIFNR TYPE LFA1-LIFNR,
L_W_SAKNR TYPE SKA1-SAKNR.
DATA: L_W_DATA TYPE TY_DATA,
L_W_ERROR TYPE TY_ERROR.
MOVE P_W_DATA TO L_W_DATA.
DATA : L_FG_ERROR TYPE C,
L_W_DATE TYPE SY-DATUM.
CONSTANTS : C_X TYPE C VALUE 'X',
C_O2CA(4) TYPE C VALUE 'O2CA',
C_ZK_1(2) TYPE C VALUE 'ZK',
C_ZK_2(2) TYPE C VALUE 'zk',
C_NUM(17) TYPE C VALUE '01234567890/.-, ',
C_31(2) TYPE C VALUE '31',
C_40(2) TYPE C VALUE '40'.
L_FG_ERROR = SPACE.
DO.
*check document type is 'ZK'
IF NOT L_W_DATA-BLART NE C_ZK_1 OR
L_W_DATA-BLART NE C_ZK_2.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 1 item text fields are filled by numeric value.
IF NOT L_W_DATA-SGTXT_1 CO C_NUM.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 2 item text fields are filled by date.
MOVE L_W_DATA-SGTXT_2 TO L_W_DATE.
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
DATE = L_W_DATE
EXCEPTIONS
PLAUSIBILITY_CHECK_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check first posting key is '31'
IF NOT L_W_DATA-BSCHL_1 EQ C_31.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check second posting key is '40'
IF NOT L_W_DATA-BSCHL_2 EQ C_40.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check valid Vendor
SELECT SINGLE LIFNR FROM LFA1 INTO L_W_LIFNR
WHERE LIFNR = L_W_DATA-HKONT_1.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check valid G/L account.
SELECT SINGLE SAKNR FROM SKA1 INTO L_W_SAKNR
WHERE KTOPL = C_O2CA AND
SAKNR = L_W_DATA-HKONT_2.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 1 item assignment contains numeric value
IF NOT L_W_DATA-ZUONR_1 CO C_NUM.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 2 item assigment contains date value
MOVE L_W_DATA-ZUONR_2 TO L_W_DATE.
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
DATE = L_W_DATE
EXCEPTIONS
PLAUSIBILITY_CHECK_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check if no error has occured
IF NOT L_FG_ERROR EQ C_X.
EXIT.
ENDIF.
ENDDO.
*check error flag and insert error text.
CASE L_FG_ERROR.
WHEN C_X. "When error has occured.
APPEND L_W_DATA TO P_T_ERROR.
WHEN OTHERS. "When no error has occured.
APPEND L_W_DATA TO P_T_DATA.
ENDCASE.
ENDFORM. " validate_data
*& Form download_error_log
Sub routine to download the error log
-->P_T_ERROR error log
FORM DOWNLOAD_ERROR_LOG TABLES P_T_ERROR STRUCTURE W_ERROR.
DATA : L_FILENAME TYPE STRING,
L_PATH TYPE STRING,
L_FULLPATH TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
WINDOW_TITLE = 'Save the Error log'
CHANGING
FILENAME = L_FILENAME
PATH = L_PATH
FULLPATH = L_FULLPATH
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CHECK L_FULLPATH IS NOT INITIAL.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = L_FULLPATH
FILETYPE = 'ASC'
WRITE_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = P_T_ERROR
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " download_error_log
*& Form fill_bdc_table
bdc session is created in SM35
-->P_T_DATA correct data
-->P_T_BDCDATA bdcdata
-->P_P_SESSN session name
FORM FILL_BDC_TABLE TABLES P_T_DATA STRUCTURE W_DATA
P_T_BDCDATA STRUCTURE BDCDATA
USING P_P_SESSN.
DATA : L_W_DATA TYPE TY_DATA. "workarea for t_data
CONSTANTS: C_EUR(3) TYPE C VALUE 'EUR'.
*open batch
PERFORM OPEN_GROUP USING P_P_SESSN.
LOOP AT P_T_DATA INTO L_W_DATA.
*clear the bdc table
REFRESH P_T_BDCDATA.
*initial screen
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPMF05A' '0106'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'BKPF-WAERS',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '/00', "enter
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-BUKRS' L_W_DATA-BUKRS, "company code
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBBDT' L_W_DATA-DBBDT, "first run on
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBATR' L_W_DATA-DBATR, "next run on
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBEDT' L_W_DATA-DBEDT, "last run on
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBMON' L_W_DATA-DBMON, "run frequency
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBTAG' L_W_DATA-DBTAG, "run date
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-BLART' L_W_DATA-BLART, "document type
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-WAERS' C_EUR, "currency
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-XBLNR' L_W_DATA-XBLNR, "reference
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-BKTXT' L_W_DATA-BKTXT, "document header data
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWBS' L_W_DATA-BSCHL_1,"posting key
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWKO' L_W_DATA-HKONT_1."account no
*second screen (First line item)
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPMF05A' '0302'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'RF05A-NEWKO',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '/00', "enter
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-WRBTR' L_W_DATA-MWSTS2_1, "amount in LC
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-MWSKZ' L_W_DATA-MWSKZ_1, "tax code
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-ZUONR' L_W_DATA-ZUONR_1, "assignment
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-SGTXT' L_W_DATA-SGTXT_1, "item level text
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWBS' L_W_DATA-BSCHL_2, "posting key
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWKO' L_W_DATA-HKONT_2. "account no
*third screen (Second line item)
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPMF05A' '0300'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'BSEG-EBELN',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '=AB', "overview button
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-WRBTR' L_W_DATA-MWSTS2_2, "amount in LC
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-MWSKZ' L_W_DATA-MWSKZ_2, "tax code
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-ZUONR' L_W_DATA-ZUONR_2, "assigment
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-SGTXT' L_W_DATA-SGTXT_2. "item text
*fourth screen (pop up)
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPLKACB' '0002'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'COBL-KOSTL',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '=ENTE', "ok button
BDC_FIELD TABLES P_T_BDCDATA USING 'COBL-KOSTL' L_W_DATA-KOSTL, "cost center
BDC_FIELD TABLES P_T_BDCDATA USING 'COBL-AUFNR' L_W_DATA-AUFNR. "order number
*fifth screen
PERFORM BDC_FIELD TABLES P_T_BDCDATA
USING 'SAPMF05A' '0070'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'RF05A-NEWBS',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '=BU'. "save document
PERFORM BDC_INSERT TABLES P_T_BDCDATA
USING 'ZREC_ENTRY'.
ENDLOOP.
*close the batch.
PERFORM CLOSE_GROUP.
ENDFORM. " fill_bdc_table
*& Form bdc_dynpro
bdc screen insert sub routine
-->P_T_BDCDATA BDC table
-->P_PROGRAM Program name
-->P_SCREEN Screen no
FORM BDC_DYNPRO TABLES P_T_BDCDATA STRUCTURE BDCDATA
USING VALUE(P_PROGRAM)
VALUE(P_SCREEN).
CONSTANTS C_X TYPE C VALUE 'X'.
DATA L_W_BDCDATA TYPE BDCDATA.
L_W_BDCDATA-PROGRAM = P_PROGRAM.
L_W_BDCDATA-DYNPRO = P_SCREEN.
L_W_BDCDATA-DYNBEGIN = C_X.
APPEND L_W_BDCDATA TO P_T_BDCDATA.
ENDFORM. " bdc_dynpro
*& Form bdc_field
bdc field screen routine
-->P_T_BDCDATA BDC table
-->P_FIELD Field name
-->P_VALUE Value
FORM BDC_FIELD TABLES P_T_BDCDATA STRUCTURE BDCDATA
USING VALUE(P_FIELD)
VALUE(P_VALUE).
DATA L_W_BDCDATA TYPE BDCDATA. "Work area
L_W_BDCDATA-FNAM = P_FIELD.
L_W_BDCDATA-FVAL = P_VALUE.
APPEND L_W_BDCDATA TO P_T_BDCDATA.
ENDFORM. " bdc_field
*& Form open_group
bdc open group in sm35
-->P_P_SESSN session name
FORM OPEN_GROUP USING P_P_SESSN.
CONSTANTS C_X TYPE C VALUE 'X'.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
GROUP = P_P_SESSN
KEEP = C_X
USER = SY-UNAME
PROG = SY-CPROG
EXCEPTIONS
CLIENT_INVALID = 1
DESTINATION_INVALID = 2
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
HOLDDATE_INVALID = 5
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
SYSTEM_LOCK_ERROR = 9
USER_INVALID = 10
OTHERS = 11.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " open_group
*& Form bdc_insert
bdc insert in sm35
-->P_T_BDCDATA bdcdata table
-->P_tcode transaction
FORM BDC_INSERT TABLES P_T_BDCDATA STRUCTURE BDCDATA
USING VALUE(P_TCODE).
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = P_TCODE
TABLES
DYNPROTAB = P_T_BDCDATA
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " bdc_insert
*& Form close_group
bdc close group in sm35
FORM CLOSE_GROUP .
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " close_group
*& Form pre_process_record
text
-->P_W_DATAIN text
<--P_W_DATA text
FORM pre_process_record USING P_W_DATAIN
CHANGING P_W_DATA.
move p_w_datain to p_w_data-bukrs.
ENDFORM. " pre_process_recordcopy paste this code
*& Report ZTEST_RECUPLOAD
REPORT ZTEST_RECUPLOAD.
*include bdcrecx1.
*******************Selection screen*************************************
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-T01 .
PARAMETERS P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.
PARAMETERS P_SESSN TYPE APQI-GROUPID DEFAULT 'RECURRING'.
PARAMETERS P_SESSN2 TYPE APQI-GROUPID DEFAULT 'RECURRING_E'.
SELECTION-SCREEN END OF BLOCK 1.
*********************Type declaration***********************************
*type for data input table
TYPES : BEGIN OF TY_DATA,
BUKRS TYPE T001-BUKRS, "Company code
BLART TYPE BKPF-BLART, "Document type
* BUDAT TYPE BKPF-BUDAT, "Posting date
DBBDT TYPE BKDF-DBBDT, "First run
DBATR TYPE BKDF-DBATR, "Next run
DBEDT TYPE BKDF-DBEDT, "last run
DBMON TYPE BKDF-DBMON, "Run frequency
DBTAG TYPE BKDF-DBTAG, "Run date
* DBZHL TYPE BKDF-DBZHL, "no of runs
XBLNR TYPE BKPF-XBLNR, "reference(site)
BKTXT TYPE BKPF-BKTXT, "document header data
* USNAM TYPE BKPF-USNAM, "User name
* CPUDT TYPE BKPF-CPUDT, "Entry date
BSCHL_1 TYPE BSEG-BSCHL, "Posting key 1 item
HKONT_1 TYPE BSEG-HKONT, "Account 1 item
DESC_1 TYPE CHAR40, "Description vendor/GL 1 item
MWSKZ_1 TYPE BSEG-MWSKZ, "Tax code 1 item
* MWSTS1_1 TYPE BSEG-MWSTS, "Tax Amount 1 item
MWSTS2_1 TYPE BSEG-MWSTS, "Amount is local currency 1 item
* MWSTS3_1 TYPE BSEG-MWSTS, "Amount is foreign currency 1 item
SGTXT_1 TYPE BSEG-SGTXT, "Item text 1 item
ZUONR_1 TYPE BSEG-ZUONR, "Assignment 1 item
BSCHL_2 TYPE BSEG-BSCHL, "Posting key 2 item
HKONT_2 TYPE BSEG-HKONT, "Account 2 item
DESC_2 TYPE CHAR40, "Description vendor/GL 2 item
MWSKZ_2 TYPE BSEG-MWSKZ, "Tax code 2 item
** MWSTS1_2 TYPE BSEG-MWSTS, "Tax Amount 2 item
MWSTS2_2 TYPE BSEG-MWSTS, "Amount is local currency 2 item
* MWSTS3_2 TYPE BSEG-MWSTS, "Amount is foreign currency 2 item
KOSTL TYPE COBL-KOSTL, "Cost center
AUFNR TYPE COBL-AUFNR, "Internal order number
SGTXT_2 TYPE BSEG-SGTXT, "Item text 2 item
ZUONR_2 TYPE BSEG-ZUONR, "Assignment 2 item
END OF TY_DATA.
*type for data error table
TYPES : BEGIN OF TY_ERROR,
BUKRS TYPE T001-BUKRS, "Company code
BLART TYPE BKPF-BLART, "Document type
* BUDAT TYPE BKPF-BUDAT, "Posting date
DBBDT TYPE BKDF-DBBDT, "First run
DBATR TYPE BKDF-DBATR, "Next run
DBEDT TYPE BKDF-DBEDT, "last run
DBMON TYPE BKDF-DBMON, "Run frequency
DBTAG TYPE BKDF-DBTAG, "Run date
* DBZHL TYPE BKDF-DBZHL, "no of runs
XBLNR TYPE BKPF-XBLNR, "reference(site)
BKTXT TYPE BKPF-BKTXT, "document header data
* USNAM TYPE BKPF-USNAM, "User name
* CPUDT TYPE BKPF-CPUDT, "Entry date
BSCHL_1 TYPE BSEG-BSCHL, "Posting key 1 item
HKONT_1 TYPE BSEG-HKONT, "Account 1 item
DESC_1 TYPE CHAR40, "Description vendor/GL 1 item
MWSKZ_1 TYPE BSEG-MWSKZ, "Tax code 1 item
* MWSTS1_1 TYPE BSEG-MWSTS, "Tax Amount 1 item
MWSTS2_1 TYPE BSEG-MWSTS, "Amount is local currency 1 item
* MWSTS3_1 TYPE BSEG-MWSTS, "Amount is foreign currency 1 item
SGTXT_1 TYPE BSEG-SGTXT, "Item text 1 item
ZUONR_1 TYPE BSEG-ZUONR, "Assignment 1 item
BSCHL_2 TYPE BSEG-BSCHL, "Posting key 2 item
HKONT_2 TYPE BSEG-HKONT, "Account 2 item
DESC_2 TYPE CHAR40, "Description vendor/GL 2 item
MWSKZ_2 TYPE BSEG-MWSKZ, "Tax code 2 item
* MWSTS1_2 TYPE BSEG-MWSTS, "Tax Amount 2 item
MWSTS2_2 TYPE BSEG-MWSTS, "Amount is local currency 2 item
* MWSTS3_2 TYPE BSEG-MWSTS, "Amount is foreign currency 2 item
KOSTL TYPE COBL-KOSTL, "Cost center
AUFNR TYPE COBL-AUFNR, "Internal order number
SGTXT_2 TYPE BSEG-SGTXT, "Item text 2 item
ZUONR_2 TYPE BSEG-ZUONR, "Assignment 2 item
END OF TY_ERROR.
*********************Data declaration************************************
DATA : T_DATA TYPE TABLE OF TY_DATA, "Table to upload correct entries
T_ERROR TYPE TABLE OF TY_ERROR. "Table to upload error data
DATA : W_DATA type TY_DATA, "workarea for t_data
W_ERROR TYPE TY_ERROR. "workarea for t_error
DATA : T_BDCDATA TYPE TABLE OF BDCDATA,
W_BDCDATA TYPE BDCDATA.
DATA : T_SEL_FILE TYPE FILETABLE,
W_RETURN_CODE TYPE I VALUE '0',
W_SEL_FILE LIKE LINE OF T_SEL_FILE.
DATA : T_DATAIN TYPE TABLE OF TY_DATA,
W_DATAIN TYPE string.
DATA : W_FILE TYPE STRING.
*********************At Selection Screen**********************************
*selection screen validations
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
WINDOW_TITLE = 'Select File for upload'
* DEFAULT_EXTENSION =
* DEFAULT_FILENAME =
FILE_FILTER = '*.xls'
* WITH_ENCODING =
* INITIAL_DIRECTORY =
* MULTISELECTION =
CHANGING
FILE_TABLE = T_SEL_FILE
RC = W_RETURN_CODE
* USER_ACTION =
* FILE_ENCODING =
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF W_RETURN_CODE <> -1.
READ TABLE T_SEL_FILE INTO W_SEL_FILE INDEX 1.
CLEAR P_FILE.
MOVE W_SEL_FILE TO P_FILE.
ENDIF.
*at selection screen
AT SELECTION-SCREEN ON P_SESSN.
IF P_SESSN IS INITIAL.
P_SESSN = 'RECURRING'.
ENDIF.
AT SELECTION-SCREEN ON P_SESSN2.
IF P_SESSN2 IS INITIAL.
P_SESSN2 = 'RECURRING_E'.
ENDIF.
*********************Start of Selection ****************************
START-OF-SELECTION.
OPEN DATASET P_FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT.
*error message when file not found.
IF SY-SUBRC <> 0.
MESSAGE 'File Not Found' TYPE 'E'.
ENDIF.
DO.
READ DATASET P_FILE INTO w_datain.
IF SY-SUBRC EQ 0.
perform pre_process_record using w_datain
changing w_data.
PERFORM VALIDATE_DATA TABLES T_DATA
T_ERROR
USING W_DATA.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET P_FILE.
*check if any error has occured.
IF T_ERROR[] IS NOT INITIAL.
PERFORM FILL_BDC_TABLE TABLES T_ERROR
T_BDCDATA
USING P_SESSN2.
ENDIF.
*Check if any records are present to be uploaded.
IF T_DATA[] IS NOT INITIAL.
PERFORM FILL_BDC_TABLE TABLES T_DATA
T_BDCDATA
USING P_SESSN.
ELSE.
WRITE :/ 'No Correct Records were found to create session in SM35',
/ 'Please Check the File'.
ENDIF.
*& Form validate_data
* Sub routine to check correctness of the uploaded data.
* -->P_T_DATA table to upload correct entries
* -->P_T_ERROR table to upload erroneous entries
* -->P_W_DATA current record
FORM VALIDATE_DATA TABLES P_T_DATA STRUCTURE W_DATA
P_T_ERROR STRUCTURE W_ERROR
USING P_W_DATA structure w_data .
DATA : L_W_LIFNR TYPE LFA1-LIFNR,
L_W_SAKNR TYPE SKA1-SAKNR.
DATA: L_W_DATA TYPE TY_DATA,
L_W_ERROR TYPE TY_ERROR.
MOVE P_W_DATA TO L_W_DATA.
DATA : L_FG_ERROR TYPE C,
L_W_DATE TYPE SY-DATUM.
CONSTANTS : C_X TYPE C VALUE 'X',
C_O2CA(4) TYPE C VALUE 'O2CA',
C_ZK_1(2) TYPE C VALUE 'ZK',
C_ZK_2(2) TYPE C VALUE 'zk',
C_NUM(17) TYPE C VALUE '01234567890/.-, ',
C_31(2) TYPE C VALUE '31',
C_40(2) TYPE C VALUE '40'.
L_FG_ERROR = SPACE.
DO.
*check document type is 'ZK'
IF NOT L_W_DATA-BLART NE C_ZK_1 OR
L_W_DATA-BLART NE C_ZK_2.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 1 item text fields are filled by numeric value.
IF NOT L_W_DATA-SGTXT_1 CO C_NUM.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 2 item text fields are filled by date.
MOVE L_W_DATA-SGTXT_2 TO L_W_DATE.
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
DATE = L_W_DATE
EXCEPTIONS
PLAUSIBILITY_CHECK_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check first posting key is '31'
IF NOT L_W_DATA-BSCHL_1 EQ C_31.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check second posting key is '40'
IF NOT L_W_DATA-BSCHL_2 EQ C_40.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check valid Vendor
SELECT SINGLE LIFNR FROM LFA1 INTO L_W_LIFNR
WHERE LIFNR = L_W_DATA-HKONT_1.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check valid G/L account.
SELECT SINGLE SAKNR FROM SKA1 INTO L_W_SAKNR
WHERE KTOPL = C_O2CA AND
SAKNR = L_W_DATA-HKONT_2.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 1 item assignment contains numeric value
IF NOT L_W_DATA-ZUONR_1 CO C_NUM.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check 2 item assigment contains date value
MOVE L_W_DATA-ZUONR_2 TO L_W_DATE.
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
DATE = L_W_DATE
EXCEPTIONS
PLAUSIBILITY_CHECK_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
L_FG_ERROR = C_X.
EXIT.
ENDIF.
*check if no error has occured
IF NOT L_FG_ERROR EQ C_X.
EXIT.
ENDIF.
ENDDO.
*check error flag and insert error text.
CASE L_FG_ERROR.
WHEN C_X. "When error has occured.
APPEND L_W_DATA TO P_T_ERROR.
WHEN OTHERS. "When no error has occured.
APPEND L_W_DATA TO P_T_DATA.
ENDCASE.
ENDFORM. " validate_data
*& Form download_error_log
* Sub routine to download the error log
* -->P_T_ERROR error log
FORM DOWNLOAD_ERROR_LOG TABLES P_T_ERROR STRUCTURE W_ERROR.
DATA : L_FILENAME TYPE STRING,
L_PATH TYPE STRING,
L_FULLPATH TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
WINDOW_TITLE = 'Save the Error log'
CHANGING
FILENAME = L_FILENAME
PATH = L_PATH
FULLPATH = L_FULLPATH
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CHECK L_FULLPATH IS NOT INITIAL.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = L_FULLPATH
FILETYPE = 'ASC'
WRITE_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = P_T_ERROR
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " download_error_log
*& Form fill_bdc_table
* bdc session is created in SM35
* -->P_T_DATA correct data
* -->P_T_BDCDATA bdcdata
* -->P_P_SESSN session name
FORM FILL_BDC_TABLE TABLES P_T_DATA STRUCTURE W_DATA
P_T_BDCDATA STRUCTURE BDCDATA
USING P_P_SESSN.
DATA : L_W_DATA TYPE TY_DATA. "workarea for t_data
CONSTANTS: C_EUR(3) TYPE C VALUE 'EUR'.
*open batch
PERFORM OPEN_GROUP USING P_P_SESSN.
LOOP AT P_T_DATA INTO L_W_DATA.
*clear the bdc table
REFRESH P_T_BDCDATA.
*initial screen
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPMF05A' '0106'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'BKPF-WAERS',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '/00', "enter
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-BUKRS' L_W_DATA-BUKRS, "company code
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBBDT' L_W_DATA-DBBDT, "first run on
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBATR' L_W_DATA-DBATR, "next run on
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBEDT' L_W_DATA-DBEDT, "last run on
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBMON' L_W_DATA-DBMON, "run frequency
BDC_FIELD TABLES P_T_BDCDATA USING 'BKDF-DBTAG' L_W_DATA-DBTAG, "run date
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-BLART' L_W_DATA-BLART, "document type
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-WAERS' C_EUR, "currency
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-XBLNR' L_W_DATA-XBLNR, "reference
BDC_FIELD TABLES P_T_BDCDATA USING 'BKPF-BKTXT' L_W_DATA-BKTXT, "document header data
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWBS' L_W_DATA-BSCHL_1,"posting key
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWKO' L_W_DATA-HKONT_1."account no
*second screen (First line item)
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPMF05A' '0302'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'RF05A-NEWKO',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '/00', "enter
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-WRBTR' L_W_DATA-MWSTS2_1, "amount in LC
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-MWSKZ' L_W_DATA-MWSKZ_1, "tax code
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-ZUONR' L_W_DATA-ZUONR_1, "assignment
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-SGTXT' L_W_DATA-SGTXT_1, "item level text
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWBS' L_W_DATA-BSCHL_2, "posting key
BDC_FIELD TABLES P_T_BDCDATA USING 'RF05A-NEWKO' L_W_DATA-HKONT_2. "account no
*third screen (Second line item)
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPMF05A' '0300'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'BSEG-EBELN',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '=AB', "overview button
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-WRBTR' L_W_DATA-MWSTS2_2, "amount in LC
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-MWSKZ' L_W_DATA-MWSKZ_2, "tax code
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-ZUONR' L_W_DATA-ZUONR_2, "assigment
BDC_FIELD TABLES P_T_BDCDATA USING 'BSEG-SGTXT' L_W_DATA-SGTXT_2. "item text
*fourth screen (pop up)
PERFORM BDC_DYNPRO TABLES P_T_BDCDATA
USING 'SAPLKACB' '0002'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'COBL-KOSTL',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '=ENTE', "ok button
BDC_FIELD TABLES P_T_BDCDATA USING 'COBL-KOSTL' L_W_DATA-KOSTL, "cost center
BDC_FIELD TABLES P_T_BDCDATA USING 'COBL-AUFNR' L_W_DATA-AUFNR. "order number
*fifth screen
PERFORM BDC_FIELD TABLES P_T_BDCDATA
USING 'SAPMF05A' '0070'.
PERFORM : BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_CURSOR' 'RF05A-NEWBS',
BDC_FIELD TABLES P_T_BDCDATA USING 'BDC_OKCODE' '=BU'. "save document
PERFORM BDC_INSERT TABLES P_T_BDCDATA
USING 'ZREC_ENTRY'.
ENDLOOP.
*close the batch.
PERFORM CLOSE_GROUP.
ENDFORM. " fill_bdc_table
*& Form bdc_dynpro
* bdc screen insert sub routine
* -->P_T_BDCDATA BDC table
* -->P_PROGRAM Program name
* -->P_SCREEN Screen no
FORM BDC_DYNPRO TABLES P_T_BDCDATA STRUCTURE BDCDATA
USING VALUE(P_PROGRAM)
VALUE(P_SCREEN).
CONSTANTS C_X TYPE C VALUE 'X'.
DATA L_W_BDCDATA TYPE BDCDATA.
L_W_BDCDATA-PROGRAM = P_PROGRAM.
L_W_BDCDATA-DYNPRO = P_SCREEN.
L_W_BDCDATA-DYNBEGIN = C_X.
APPEND L_W_BDCDATA TO P_T_BDCDATA.
ENDFORM. " bdc_dynpro
*& Form bdc_field
* bdc field screen routine
* -->P_T_BDCDATA BDC table
* -->P_FIELD Field name
* -->P_VALUE Value
FORM BDC_FIELD TABLES P_T_BDCDATA STRUCTURE BDCDATA
USING VALUE(P_FIELD)
VALUE(P_VALUE).
DATA L_W_BDCDATA TYPE BDCDATA. "Work area
L_W_BDCDATA-FNAM = P_FIELD.
L_W_BDCDATA-FVAL = P_VALUE.
APPEND L_W_BDCDATA TO P_T_BDCDATA.
ENDFORM. " bdc_field
*& Form open_group
* bdc open group in sm35
* -->P_P_SESSN session name
FORM OPEN_GROUP USING P_P_SESSN.
CONSTANTS C_X TYPE C VALUE 'X'.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
GROUP = P_P_SESSN
KEEP = C_X
USER = SY-UNAME
PROG = SY-CPROG
EXCEPTIONS
CLIENT_INVALID = 1
DESTINATION_INVALID = 2
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
HOLDDATE_INVALID = 5
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
SYSTEM_LOCK_ERROR = 9
USER_INVALID = 10
OTHERS = 11.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " open_group
*& Form bdc_insert
* bdc insert in sm35
* -->P_T_BDCDATA bdcdata table
* -->P_tcode transaction
FORM BDC_INSERT TABLES P_T_BDCDATA STRUCTURE BDCDATA
USING VALUE(P_TCODE).
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = P_TCODE
TABLES
DYNPROTAB = P_T_BDCDATA
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " bdc_insert
*& Form close_group
* bdc close group in sm35
FORM CLOSE_GROUP .
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " close_group
*& Form pre_process_record
* text
* -->P_W_DATAIN text
* <--P_W_DATA text
FORM pre_process_record USING P_W_DATAIN
CHANGING P_W_DATA structure w_data.
move p_w_datain to p_w_data-bukrs.
ENDFORM. " pre_process_record -
Syntax error while activating BSP with OTR in htmlb element
Hallo,
I get a syntax error if I try to activate the BSP below with the lines commented out: "Statement concluding with "...%_O2_UTL_000" ended unexpectedly".
I don't know what's going wrong. Have I to to any basis settings or to activate any more services etc? Or is it a bug? WAS620 SP53.
Can anybody help?
<%@page language="abap"%>
<%@extension name="htmlb" prefix="htmlb"%>
<htmlb:content>
<htmlb:document>
<%-- does not work
<htmlb:documentHead title="<%=otr(SOTR_VOCABULARY_BASIC/ALL_ITEMS)%>" />
--%>
<htmlb:documentHead title="OK" />
<htmlb:documentBody>
<%=otr(SOTR_VOCABULARY_BASIC/ALL_ITEMS)%> <-- OK
<%-- does not work
<htmlb:textView id="t1" text = "<%=otr(SOTR_VOCABULARY_BASIC/ALL_ITEMS)%>" />
--%>
<htmlb:textView id="t1" text = "OK" />
</htmlb:documentBody>
</htmlb:document>
</htmlb:content>
Thank you
AndreasThank you for this note.
I haven't found any one. The keywords 'OTR' or 'HTMLB' are not mentioned in the note...
I have triggered the installation of SP54 and give feedback if the problem is solved.
Andreas -
Syntax error while trying to print webpages to my Lexmark C544dn printer
Out of the blue I am getting a syntax error when trying to print Safari webpage to my Lexmark C544dn laser printer. It has worked for 5 years until now? The printer works fine printing anything else. Same problem with Firefox.
Try downloading the offline installer [hope this link works|https://cds.sun.com/is-bin/INTERSHOP.enfinity/WFS/CDS-CDS_Developer-Site/en_US/-/USD/ViewProductDetail-Start?ProductRef=jre-6u18-oth-JPR@CDS-CDS_Developer]
-
Hi Gurus,
I have started with VC and while compiling a model, I get a syntax error in Fiscalyear (variable in the query).
the message is "The expression in field 'FiscalYear' contains an error: Syntax error".
"Stopped due to errors"
Have no clues as the other variable (Cost center) is working fine.
We are on NW7.0 SP13
Tks
KSHi
Right click on the joining line after that form. Go to the field mapping & go to the field for the 'Fiscal Year'
Do following changes
If by default you are getting there '@Fiscal year' then make it '@Fiscal year_Key' means whatever is there, just add "_key" after that. Then instead of compiling & deploying, Directly Deploy the model & then check if you are getting any error.
Regards
Sandeep
Maybe you are looking for
-
IOS 6.1.3 Update on iphone 5- can no longer make calls
Hello Since upgrading this morning I can no longer make calls. Sometimes the call drops as it starts to ring. Sometimes it tries to make the connection for 10 secs again but then give me the dreaded 3 beeps. Was perfect until I upgraded - but not now
-
RoboHelp 8 numbers not appearing as in WYSIWYG
Since updating to RoboHelp 8.02, the fonts of the numbers in numbered steps are not appearing correctly in the generated CHM. I am attaching 2 images - 1 is of how the numbering appears in the WYSIWYG and 1 of how it appears in the generated CHM. The
-
Hi All when creating third party sales order for a make to order scenario my inventory account is getting hit and is throwing an error - therefore, i need to be able to do a statistical goods receipt on this scenario I have mapped all accts in OBYC a
-
Send data with profibus (Newbie)
Hi, Im new to labview and have only been working with PLC before so please have patience with my lw knowledge. Im trying to send some data (analog inputs) from labview to my Siemens S7 PLC using a Comsoft profiboard. I have got the communication to
-
InDesign CC 2014 + Mavericks Issues?
I'm running a 3-month old Mac Air with all the upgrades, bells & whistles. I thought I'd demo InDesign and CreativeCloud today and see how they worked for me on this machine. They both downloaded completely, but InDesign crashes upon opening. Are