CAD to SAP data transfer (Title block integration)

Hi,
Im using Cideon's CAD integration tool.
I can able to transfer the data from SAP to AutoCAD Title block.
But not able to transfer data from Title Block to SAP.
Eg.
If I give "Test Title block" in description field of DIR. Its getting updated in ACAD Title Block's Description field. So SAP to CAD data transfer is ok.
But if I change the data in ACAD title block as "Test Title Block updated" its not getting updated in the document field of DIR?
How to make the config settings? Can anybody help?
If possible give an example.

Hi Niranjan,
Sorry for the delay i was in a training.
In TbkMapping I have mapped the Description Field of SAP to Description attribute of ACAD Titleblock. So SAP to CAD is fine.
To do the data transfer from CAD to SAP, I tried with the UpdateDir like this
SystemCFG>default>updateDIR>BAPI_DOCUMENT_CHANGE2>DOCUMENTDATA>
I made an entry like,
Key as "DESCRIPTION"
Value as "%TITLEBLOCK(GEN-TITLE-DES1)"
and
SystemCFG>default>updateDIR>BAPI_DOCUMENT_CHANGE2>DOCUMENTDATAX>
I made an entry like,
Key as "DESCRIPTION"
Value as "X"
I have created an object named as DOCUMENTDESCRIPTIONS
SystemCFG>default>updateDIR>BAPI_DOCUMENT_CHANGE2>DOCUMENTDESCRIPTIONS
Inside that I have created an object LINE_0
LINE_0 Contains
Key as "LANGUAGE_ISO"
Value as "EN"
Key as "DESCRIPTION"
Value as "%TITLEBLOCK(GEN-TITLE-DES1)"
Pls tell me if im wrong. what other settings i need to do?
MRK

Similar Messages

The standard SAP data transfer program for vendors

Hi Experts,
Could u please tell me that wt is the program which is "the standard SAP data transfer program for vendors"?
could you plz tell me what exactly is it?
and itz tcode..
is it the "XK01" only or anything other?
thnx
Message was edited by: sey ni

Hi,
Pl use RFBIKR00 for Vendor Matser upload. Th eProgram documentation is very useful too.
Regards,
Suresh Datti

Data Transfer Workbech - XML File

Hi,
I pretend use the Task Scheduler for importation data to the SAP Business One System. For this, I created a batch file with information:
cd "C:\Program Files (x86)\SAP\Data Transfer Workbench"
DTW -S C:\Temp\DTW_ScheduleItemImport.xml
Also, I exported for xml file the data to import in the system through Data Transfer Workbench. The content of xml file is:
<DTW><BOM><BO><AdmInfo><Object>13</Object><Version>2</Version></AdmInfo><Documents><row><CardCode>C1001</CardCode><DocDate>20050223</DocDate><DocDueDate>20050223</DocDueDate><Series>1000</Series><TaxDate>20050223</TaxDate></row></Documents><Document_Lines><row><ItemCode>A1008</ItemCode><Price>8</Price><Quantity>2</Quantity><WarehouseCode>01</WarehouseCode></row></Document_Lines></BO></BOM></DTW>
When I schedule a task in Task Scheduler runs the same but the data are not imported.
I believe that not import due to the fact that in the XML file will not be exported data on BD certified in Data Transfer Workbench.
Anyone help me?
Thanks.
Sandra Pereira

Hello Sandra,
I trust you.
>The objective this process is to schedule of importing data into the system using the mapping in xml, right?
Yes, and all the login information, file information, etc. the filename should be the same each time to import the data.
Maybe you are using older version of DTW than it knows. You may try to upgrade to the latest DTW, or at least B1 2007 SP 01 version (i have DTW 2005.0.30)
my xml file looks like
<Transfer>
- <Logon>
<UserName>manager</UserName>
<Password>tCmKcJvLfKqJ</Password>
<Company>FRMARPSAPHU</Company>
<Server>(local)sqlexpress</Server>
<UserAuthentication>True</UserAuthentication>
<Language></Language>
<LicenseServer></LicenseServer>
<ChooseDB>False</ChooseDB>
<DBType>4</DBType>
<DBUser></DBUser>
<SybasePort></SybasePort>
<DBPassword></DBPassword>
</Logon>
<ObjectCode>oItems</ObjectCode>
- <FileExtractor>
- <Extorlogin>
<ExID></ExID>
<ExDSN></ExDSN>
</Extorlogin>
<FilesTypes>2</FilesTypes>
- <Files>
<Items>C:SBOProjectsBio-RAD2010Service Implementationitems.txt</Items>
</Files>
</FileExtractor>
etc
Regards
János

Tranform templateu00B4s Excel files into *.txt for Data Transfer Workbench

I have some problems transforming the data files to import since Data Transfer Workbench.
I haven't the extructure of de Excel templates of SAP BO.
What is more important: I'm transforming the data with Access consults, and I use Access for convert the Excel to *.txt files. So, somebody could tell me another way to do this?

Hello,
You can have the structure of all DTW templates in C:\Program Files\SAP\Data Transfer Workbench\Templates.
They are in csv format, but I think this is more easy to save them in txt format (with tab), because you will be able to use "," in the numbers easily.
For more help on how to fill the templates, you can have a look at DI API help (in the SDK folder). You will find the explanation of every column of your templates.
HTH,
Thibault

Trying to add DTW (Data Transfer Workbench) add-on

Hi Community,
I am new to SBO and have heard that DTW will help me to load multiple lines of Journal entries from an Excel file. Can you please guide me on
1) how to purchase/get DTW
2) install DTW
3) get the templates for Journal entry
4) and finally how to load it into SBO.
All help/guidance is greatly appreciated. Thanks in advance.
Regards,
Manoj.

1) how to purchase/get DTW ---free availably
2) install DTW - open DTW folder -> Setup.exe >
Read DTW help document after that
3) get the templates for Journal entry
C:\Program Files\SAP\Data Transfer Workbench\Templates\Templates\oJournalEntries
where u will find template
for more detail refer
C:\Program Files\SAP\Data Transfer Workbench\Templates\Data preparation examples\10. Testcase1_Test Data for Import function\oJournalEntries
4) and finally how to load it into SBO.
Read Help Document carefully
Thanks
Kevin

Data transfer Course BC420.

Hi,
I am planning to take a course on SAP data transfer BC420. I would like to know if this SAP course really helps in escalating the knowledge during projects or its not required since we learn the the things while working on project.
Rajesh

Hi Rajesh,
Data transfer in SAP using LSMW and BDC programs is pretty simple and easy to learn yourself. I would suggest you not to take the SAP BC420 because there is not much you gain from the course because the actual problems come when you really implement in a project and you will learn a lot while implementing it.
Regards,
Sudhir Atluru.

Title block updation-SAP-CAD

Hi,
 We are using cideon software for CAD-SAP integration. We have introduced new screen in SAP DIR. The informations avl in addl screens and other fields (For ex. Lab/office,Description) has to be transferred from SAP to CAD by titleblock updation. It was working in the initial testing. In the recent past, the Titleblock updation is not happening. We have tried several options. But went in vain. Can somebody guess what could be the problem?
Prasanna
Points will be awarded for good answers.

Hi Prasanna,
First thing you need to check is the CFG file,
Cfg-File\LocalCfg\TbkMapping
TITLE DOC_DESCRIPTION
HELD DOC_LABORATORY
DWGNO DOC_DOCUMENTNUMBER
SHTNO DOC_DOCUMENTPART
DOC DOC_DOCUMENTYPE
TITLE2 USER_DYN_DESC2
ISS DOC_DOCUMENTVERSION
MATERIAL1 USER_DYN_RAWMAT
MATERIAL2 USER_DYN_MAT_DESC1
FINISH1 USER_DYN_FINISH1
FINISH2 USER_DYN_FINISH2
DWSG USER_DYN_DRAWN_SHRT
CHSG USER_DYN_CHKBY_SHRT
PESG USER_DYN_PESG_SHRT
PARTNO DOC_DOCUMENTPART
etc
Check all your SAP DIR Fields mapped to Title block, these are used in the USER EXIT "ZXCADRU01"
The Function Module which is used to call the TITLE BLOCK is:
 "CAD_GET_TITLE_BLOCK_DATA"
Check this Function Module working/activation etc. & even check "EXIT_SAPLCADR_001"
THEN CHECK AGAIN CHECK FOR CFG FILE MAPPINGS.
Cfg-File\UserCfg\Default\Triggers
PdmSavecomplete: UpdateTbk
PostCopyAndReplace UpdateTbk
PostNewVersion UpdateTbk
I hope this will solve your issue of Titleblock Updation.
Regards
Rehman
Reward your Points.

Cad title block cofig docs required

Hi All.
I am also working on the integration of CAD integration with mySAP PLM.
I am using AutoCAD 2007.
As per the settings suggested in this thread, I have already completed it.
Still, I am facing the problem with Title Block field Mapping.
In this regard, I have done following steps:
1. Title Block Bordering is done.
2. Customizing for SAP--> CAD is completed.
3. Customizing for CAD--> SAP is done.
While saving the Drawing document using DIR, the Document number, version etc details do not replicate to the CAD desktop.
Can anybody help me out in this?
Regards
Rahul M Pathak
9833137830

Hi Rahul,
I believe you are using CIDEON interface of AutoCAD with SAP,
Have you done all the CFG file settings? i.e. "TbkMapping"
& "SystemCfg" settings
First:
Cfg-File\SystemCfg\Defualt\SaveDark\BAPI_DOCUMENT_CREATE2\DOCMENT DATA
Here
Document Number--*
Document Type--- %PROPERTY(DOKTYPE)
DOCUMENT PART----- 000 OR 001
DOCUMENT VERSION -
00
DESCRIPTION -
% NEW DOCUMENT %
CAD INDICATOR -
X
ECNNUMBER -
%ENV(INV_CHANGE_NO)
Second:
Cfg-File\SystemCfg\Defualt\SaveDark\BAPI_DOCUMENT_CREATE2\DOCMENTFILES\Line_0
here
ORIGINAL TYPE -
1
DOCFILE -
%FULLNAME%
WSAPPLICATION -
ACD
Cfg-File\LocalCfg\TbkMapping
here
TITLE -
DOC_DESCRIPTION
HELD -
DOC_LABORATORY
SHTNO------DOC_DOCUMENTNUMBER
etc
etc.....
NOTE:-
We have used a Function Module to call the Title block "CAD_GET_TITLE_BLOCK_DATA" & included under "ZXCADRU01"
here we have defined all the myfields to be mapped in the TbkMapping
Regards
Rehman
Reward Your Points if Useful

Data transfer from sap r/3 into excel sheet for mi01

hi gurus,
 as i am a xi consultant i got requirement to write a program for data transfer from sap r/3 into excel sheet for MI01.can any body help me by giving sample code or example for this requirement.please help me.

Hi Rohit,
This is an upload program and it has used both function modules to upload from an excel to R3 and to download from R3 onto excel.
GUI_UPLOAD
GUI_DOWNLOAD
are the function modules used.
Hope this helps,
*Output: Downloads error records onto presentation server,
* Displays report with number of success and error records
REPORT ZMCG047CONTR NO STANDARD PAGE HEADING
 LINE-SIZE 255
 MESSAGE-ID ZM.
*& Table declarations
TABLES : T001W, "Plants/Branches
 T024E, "Purchasing Organizations
 T001. "Company Codes
* TYPE-POOLS DECLARATION
TYPE-POOLS : SLIS.
* Types Declaration *
TYPES: BEGIN OF T_RECORD, "record storing contract info
 LIFNR(010), "Vendor Number
 EVART(004), "Agreement Type
 EKORG(004), "Purchasing Organization
 EKGRP(003), "Purchasing Group
 WERKS(004), "Plant
 LGORT(004), "Storage Location
 KDATB(010), "Valid start Date
 KDATE(010), "Valid End Date
 ZTERM(004), "Payment Terms
 KTWRT(020), "Target Value
 EPSTP(001), "Item Category
 EMATN(018), "Material Number
 KTMNG(017), "Target Quantity
 NETPR(014), "Net Price
 PEINH(006), "Net Price Unit
 BPRME(003), "Net Price Order Price Unit
 IDNLF(035), "Vendor Material number
 WEBRE(001), "GR Based-IV
 MEPRF(001), "Pricing Date Category
 LTEX1(040), "Info Text
 DATAB(010), "Valid From
 DATBI(010), "Valid To
 KSCHL(004), "Condition Type
 KBETR(016), "Condition Rate if scale is not given
 KONWA(005), "Currency
 KPEIN(005), "Condition Pricing Unit
 KMEIN(003), "Condition Unit of Measure
 KSTBM(019), "Scale
 KBETR_01(016), "Scale Rate
 DEL_FLAG, "Delete Flag Indicator
 ERR_MSG(100), "Error Message
 END OF T_RECORD,
 BEGIN OF T_ERR_RECORD, "to have error records stored
 LIFNR(010), "Vendor Number
 EVART(004), "Agreement Type
 EKORG(004), "Purchasing Organization
 EKGRP(003), "Purchasing Group
 WERKS(004), "Plant
 LGORT(004), "Storage Location
 KDATB(010), "Valid start Date
 KDATE(010), "Valid End Date
 ZTERM(004), "Payment Terms
 KTWRT(020), "Target Value
 EPSTP(001), "Item Category
 EMATN(018), "Material Number
 KTMNG(017), "Target Quantity
 NETPR(014), "Net Price
 PEINH(006), "Net Price Unit
 BPRME(003), "Net Price Order Price Unit
 IDNLF(035), "Vendor Material number
 WEBRE(001), "GR Based-IV
 MEPRF(001), "Pricing Date Category
 LTEX1(040), "Info Text
 DATAB(010), "Valid From
 DATBI(010), "Valid To
 KSCHL(004), "Condition Type
 KBETR(016), "Condition Rate if scale is not given
 KONWA(005), "Currency
 KPEIN(005), "Condition Pricing Unit
 KMEIN(003), "Condition Unit of Measure
 KSTBM(019), "Scale
 KBETR_01(016), "Scale Rate
 DEL_FLAG, "Delete Flag Indicator
 ERR_MSG(100), "Error Message
 END OF T_ERR_RECORD,
 BEGIN OF T_LOEKZ, "To have deletion indicators for materials
 LOEKZ(001), "Deletion indicator in purchasing document
 EMATN(018), "Material Number
 WERKS(004), "Plant
 LGORT(004), "Storage Location
 BSTYP(001), "Purchasing document category
 END OF T_LOEKZ,
 BEGIN OF T_MATNR, " Type definition to store details of materials
 MATNR(018), "Material Number
 END OF T_MATNR,
 BEGIN OF T_T001, " Type definition for company codes
 BUKRS(004), " Company Code
 END OF T_T001,
 BEGIN OF T_ZMVXREF, "Cross-Reference table type
 D_ALTKN(10), "Legacy Vendor Number
 D_BUKRS(4), "Legacy Company Code
 M_ALTKN(10), "SAP Company Code
 END OF T_ZMVXREF,
 BEGIN OF T_LFA1, "Master data of vendors
 LIFNR(10), "Vendor Number
 END OF T_LFA1,
* Type Declaration for T024E (Company Codes)
 BEGIN OF T_T024E,
 EKORG LIKE T024E-EKORG, "Purchasing organization
 BUKRS LIKE T024E-BUKRS, "Company Code
 END OF T_T024E,
* Type Declaration for t001w (Plant)
 BEGIN OF T_T001W,
 WERKS LIKE T001W-WERKS, "Plant
 END OF T_T001W,
* Type Declatation for String Line
 BEGIN OF T_STR1, "#EC NEEDED
 SLINE(6000) TYPE C,
 END OF T_STR1.
TYPES: BEGIN OF T_BDCDATA. "BDC Data
 INCLUDE STRUCTURE BDCDATA.
TYPES: END OF T_BDCDATA.
* Internal Tables Declaration *
DATA:
* Internal table to store input file data
 I_RECORD TYPE STANDARD TABLE OF T_RECORD INITIAL SIZE 0,
* Internal table to capture errors
 I_ERR_REC TYPE STANDARD TABLE OF T_ERR_RECORD INITIAL SIZE 0,
* Internal table to check for deletion indicators
 I_LOEKZ TYPE STANDARD TABLE OF T_LOEKZ INITIAL SIZE 0,
* Internal table to check for material numbers
 I_MATNR TYPE STANDARD TABLE OF T_MATNR INITIAL SIZE 0,
* Internal table used for storing Cross-Reference data of Vendor
 I_ZMVXREF TYPE STANDARD TABLE OF T_ZMVXREF INITIAL SIZE 0,
* Internal table for holding Vendor Numbers from Master table
 I_LFA1 TYPE STANDARD TABLE OF T_LFA1 INITIAL SIZE 0,
* Internal table for holding Purchase Org and Company Codes
 I_T024E TYPE STANDARD TABLE OF T_T024E INITIAL SIZE 0,
* Internal table for holding Plants
 I_T001W TYPE STANDARD TABLE OF T_T001W INITIAL SIZE 0,
* Internal table for storing a list of Company Codes
 I_T001 TYPE STANDARD TABLE OF T_T001 INITIAL SIZE 0,
* Internal table used for ALV Reporting
 I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
* Internal table used for holding List Header
 I_LISTHEADER TYPE SLIS_T_LISTHEADER, "EC NEEDED
* Internal table to hold ALV Event
 I_ALV_EVENT TYPE SLIS_T_EVENT,
* Internal table to hold Sort Info for ALV Report
 I_SORT TYPE SLIS_T_SORTINFO_ALV,
* Internal table for BDC Data
 I_BDCDATA TYPE STANDARD TABLE OF T_BDCDATA INITIAL SIZE 0,
* Internal table for messages
 I_MESSTAB TYPE TABLE OF BDCMSGCOLL,
* Internal table for String line
 I_STR1 TYPE STANDARD TABLE OF T_STR1 INITIAL SIZE 0.
* Work Area Declaration *
DATA:
* Work Area to hold data for the Open Contract
 WA_RECORD TYPE T_RECORD,
* Work Area to hold previous record data
 WA_RECORDPREV TYPE T_RECORD,
* Work Area to hold errors
 WA_ERR_REC TYPE T_ERR_RECORD,
* Work Area to hold the Deletion Indicator of materials
 WA_LOEKZ TYPE T_LOEKZ,
* Work Area to hold Material numbers of required materials
 WA_MATNR TYPE T_MATNR, "EC NEEDED
* Work Area to hold errors occured while performing BDC
 WA_MESSTAB TYPE BDCMSGCOLL,
* Work Area to hold field catalog for ALV Reports
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
* Work Area to hold list header data for ALV reports
 WA_LISTHEADER TYPE SLIS_LISTHEADER,
* Work Area to hold ALV Event
 WA_ALV_EVENT LIKE LINE OF I_ALV_EVENT, "EC NEEDED
* Work Area to hold Layout of ALV Report
 WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
* Work Area to hold Cross-Reference data of Vendor
 WA_ZMVXREF TYPE T_ZMVXREF,
* Work Area to hold Vendor Numbers from Master table
 WA_LFA1 TYPE T_LFA1, "EC NEEDED
* Work Area to hold Purchase Org and Company Codes
 WA_T024E TYPE T_T024E,
* Work Area to hold Company Codes
 WA_T001 TYPE T_T001,
* Work Area to hold Plants
 WA_T001W TYPE T_T001W,
* Work Area to hold Sort Info for ALV Report
 WA_SORT TYPE SLIS_SORTINFO_ALV,
* Work Area to hold BDC Data
 WA_BDCDATA TYPE T_BDCDATA,
* Work Area for String line
 WA_STR1 TYPE T_STR1.
* Variables Declaration *
DATA: V_ERRMSG(500), "To temporarily store the error message
 V_CONV_DATE(10) TYPE C, "To capture the converted date format
 V_DATE LIKE SY-DATUM,
 V_REPID LIKE SY-REPID, "holds report id
 V_CROSS_REFERENCE_ERROR TYPE I, " cross-reference error
 V_INPUTERROR_FLAG VALUE '', " input error status
 V_FILENAME TYPE STRING, " File Name
 VEN_FLAG(1), " at new status
 MAT_FLAG(1), " at new status
 V_IND(2) TYPE N, " index of table control
 V_IND2(2) TYPE N, " index of table control
 V_IND3(2) TYPE N, " index of table control
 V_EVRTP1(20),
 V_EPSTP1(20),
 V_EMATN1(20),
 V_KTMNG1(20),
 V_NETPR1(20),
 V_PEINH1(20),
 V_BPRME1(20),
 V_TCSELFLAG1(20),
 V_KSCHL2(20),
 V_KBETR2(20),
 V_KONWA2(20),
 V_KPEIN2(20),
 V_KMEIN2(20),
 V_SELKZ2(20),
 V_KBETR3(20),
 V_KSTBM3(20),
 V_LINE TYPE I,
 V_STR TYPE X VALUE '09',
 V_EXIST TYPE C,
 V_EXIST1 TYPE C,
 V_ISDIR TYPE C,
 V_ISDIR1 TYPE C.
* Constants Declaration *
CONSTANTS: C_TCODE(5) VALUE 'ME31K', "Trx code - Open Contract Creation
 C_TRUE VALUE 'X', " Del_Flag indicator
 C_LOEKZ_MARKED VALUE 'X', "Deletion indicator for material
 C_INPUTERROR_FLAG_YES VALUE 'X', "Input File Indicator
 C_VEN_ERR1 VALUE 1, "Error Indicator
 C_16(2) VALUE '16',
 C_VEN_ERR2 VALUE 2, "Error Indicator
 C_VEN_ERR3 VALUE 3, "Error Indicator
 C_VEN_SUCS VALUE 0, "Success Indicator
 C_SUCCESS LIKE SY-SUBRC VALUE '0',
 C_STRUE VALUE 'S', "Del_flag for SAP Errors
 C_YTRUE VALUE 'Y', "Del_flag for Success Records
 C_MSGTYP_E VALUE 'E', "holds error message type
 C_MSGTYP_S VALUE 'S', "holds success message type
 C_BSTYP VALUE 'K', "Purchasing Document type is Contract
 C_BACKGROUND VALUE 'N', "Background mode
 C_FOREGROUND VALUE 'A', "All Screen mode
 C_ERRORS VALUE 'E', "Error screen mode
 C_WK(2) VALUE 'WK'. "Value Contract
* Selection Screen *
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-033.
SELECTION-SCREEN SKIP.
SELECT-OPTIONS:
* Plant
 S_WERKS FOR T001W-WERKS OBLIGATORY,
* Purchase Organization
 S_EKORG FOR T024E-EKORG OBLIGATORY.
* Company Code
PARAMETER P_BUKRS LIKE T001-BUKRS OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 3.
PARAMETER RB_SERVE RADIOBUTTON GROUP RBX DEFAULT 'X' USER-COMMAND U1.
SELECTION-SCREEN COMMENT 6(19) TEXT-036.
SELECTION-SCREEN POSITION 37.
PARAMETER RB_LOCAL RADIOBUTTON GROUP RBX.
SELECTION-SCREEN COMMENT 40(13) TEXT-035.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP.
PARAMETERS:
* Parameter holding Input File name
 P_FILE LIKE RLGRAP-FILENAME
 OBLIGATORY
 LOWER CASE
 DEFAULT 'C:\'
 MODIF ID G1,
 P_FILE1 LIKE RLGRAP-FILENAME
 OBLIGATORY
 LOWER CASE
 DEFAULT '/celestica/interface/corp/in/work/'
 MODIF ID G2,
* Parameter specifying Mode of calling the Transaction.
 P_MODE DEFAULT 'N' OBLIGATORY,
* Check box used to test the input file.
 P_TEST AS CHECKBOX DEFAULT 'X',
* Parameter holding Filename for holding Input File Errors
 P_IPERR LIKE RLGRAP-FILENAME
 OBLIGATORY
 LOWER CASE
 DEFAULT 'C:\'
 MODIF ID G1,
 P_IPERR1 LIKE RLGRAP-FILENAME
 OBLIGATORY
 LOWER CASE
 DEFAULT '/celestica/interface/corp/in/work/047_Err.txt'
 MODIF ID G2.
SELECTION-SCREEN END OF BLOCK B2.
* AT Selection Screen Events *
* Loop the screen to activate relative paths
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF RB_SERVE = C_TRUE AND SCREEN-GROUP1 = 'G1'.
 SCREEN-OUTPUT = 0.
 SCREEN-ACTIVE = 0.
 SCREEN-INPUT = 0.
 ELSEIF RB_LOCAL = C_TRUE AND SCREEN-GROUP1 = 'G2'.
 SCREEN-OUTPUT = 0.
 SCREEN-ACTIVE = 0.
 SCREEN-INPUT = 0.
 ENDIF.
 MODIFY SCREEN.
ENDLOOP.
AT SELECTION-SCREEN ON BLOCK B2.
* Checking Access Authorization for the user
CALL FUNCTION 'ZU_DATA_ACCESS_AUTH_CHECK'
 EXPORTING
 ACTVT = C_16
 P_BUKRS = P_BUKRS
 TABLES
 S_WERKS = S_WERKS
 S_EKORG = S_EKORG
 EXCEPTIONS
 BUKRS_FAILED = 1
 VKORG_FAILED = 2
 VTWEG_FAILED = 3
 EKORG_FAILED = 4
 WERKS_FAILED = 5
 LGNUM_FAILED = 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.
AT SELECTION-SCREEN ON P_BUKRS.
IF NOT P_BUKRS IS INITIAL.
 SELECT SINGLE BUKRS INTO T001
 FROM T001
 WHERE BUKRS EQ P_BUKRS.
 IF SY-SUBRC NE 0.
 MESSAGE I000 WITH TEXT-089.
 STOP.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
* Search Help to select Input File path.
PERFORM GET_FILE_NAME USING P_FILE.
* Check for the existence of the file.
IF RB_LOCAL EQ C_TRUE.
 CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
 EXPORTING
 FNAME = P_FILE
 IMPORTING
 EXIST = V_EXIST
 ISDIR = V_ISDIR
 EXCEPTIONS
 FILEINFO_ERROR = 1
 OTHERS = 2.
 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 V_ISDIR IS INITIAL.
 IF V_EXIST IS INITIAL.
 MESSAGE I000 WITH TEXT-018.
 STOP.
 ENDIF.
 ELSEIF V_ISDIR EQ C_TRUE.
 MESSAGE I000 WITH TEXT-068.
 STOP.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_IPERR.
* Search Help to select Input Error File path.
PERFORM GET_FILE_NAME USING P_IPERR.
AT SELECTION-SCREEN.
* Validate Transaction Mode
IF P_MODE <> C_BACKGROUND AND
 P_MODE <> C_FOREGROUND AND
 P_MODE <> C_ERRORS.
 MESSAGE I000 WITH TEXT-034.
 STOP.
ENDIF.
START-OF-SELECTION.
* Get the Input File Data
V_FILENAME = P_FILE.
PERFORM UPLOAD_FLATFILE_DATA TABLES I_RECORD
 USING V_FILENAME.
* Sorting the data by all fields
SORT I_RECORD.
* Ensuring the padding of the empty spaces before the vendor No
CLEAR WA_RECORD.
LOOP AT I_RECORD INTO WA_RECORD.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = WA_RECORD-LIFNR
 IMPORTING
 OUTPUT = WA_RECORD-LIFNR.
 MODIFY I_RECORD FROM WA_RECORD
 INDEX SY-TABIX
 TRANSPORTING LIFNR.
 CLEAR WA_RECORD.
ENDLOOP.
* Input file validation
PERFORM VALIDATE_FLATFILE_DATA.
IF P_TEST = C_TRUE.
 IF I_ERR_REC[] IS INITIAL.
 MESSAGE I000 WITH TEXT-032.
 STOP.
 ELSE.
* Display all the error records at the input level.
 PERFORM DISPLAY_INPERR_RECORDS.
* Download Error File
 PERFORM DOWNLOAD_ERROR_FILE.
 ENDIF.
ELSE.
* Build BDC Data
 PERFORM BUILD_BDC_DATA.
* Download Error File
 PERFORM DOWNLOAD_ERROR_FILE.
* Display the status report.
 PERFORM DISPLAY_PROCESSED_RECORDS.
ENDIF.
END-OF-SELECTION.
REFRESH: I_RECORD,
 I_ERR_REC,
 I_LOEKZ,
 I_MATNR,
 I_ZMVXREF,
 I_LFA1,
 I_T024E,
 I_FIELDCAT,
 I_LISTHEADER,
 I_ALV_EVENT,
 I_SORT,
 I_BDCDATA,
 I_MESSTAB,
 I_STR1.
FREE: I_RECORD,
 I_ERR_REC,
 I_LOEKZ,
 I_MATNR,
 I_ZMVXREF,
 I_LFA1,
 I_T024E,
 I_FIELDCAT,
 I_LISTHEADER,
 I_ALV_EVENT,
 I_SORT,
 I_BDCDATA,
 I_MESSTAB,
 I_STR1.
*& Form GET_file_name
* Fetches the file and path from the presentation system
* --> p1 Path along with the file name
FORM GET_FILE_NAME USING L_FILE LIKE RLGRAP-FILENAME.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 MASK = ',*.TXT,*.txt.'
 MODE = 'O'
 TITLE = TEXT-011
 IMPORTING
 FILENAME = L_FILE
 EXCEPTIONS
 INV_WINSYS = 1
 NO_BATCH = 2
 SELECTION_CANCEL = 3
 SELECTION_ERROR = 4
 OTHERS = 5.
CASE SY-SUBRC.
 WHEN 1.
 MESSAGE I000 WITH TEXT-084.
 STOP.
 WHEN 2.
 MESSAGE I000 WITH TEXT-085.
 STOP.
 WHEN 3.
 MESSAGE I000 WITH TEXT-086.
 STOP.
 WHEN 4.
 MESSAGE I000 WITH TEXT-087.
 STOP.
ENDCASE.
ENDFORM. " GET_file_name
*& Form upload_flatfile_data
* Uploading data from Flat File
FORM UPLOAD_FLATFILE_DATA
 TABLES I_L_RECORD STRUCTURE WA_RECORD
 USING L_FILENAME TYPE STRING.
DATA WA_L_RECORD TYPE T_RECORD.
* Upload the Flat file data
IF RB_LOCAL EQ C_TRUE. "File is on the Local System
 CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 FILENAME = L_FILENAME
 FILETYPE = 'ASC'
 HAS_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = I_L_RECORD
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_READ_ERROR = 2
 NO_BATCH = 3
 GUI_REFUSE_FILETRANSFER = 4
 INVALID_TYPE = 5
 NO_AUTHORITY = 6
 UNKNOWN_ERROR = 7
 BAD_DATA_FORMAT = 8
 HEADER_NOT_ALLOWED = 9
 SEPARATOR_NOT_ALLOWED = 10
 HEADER_TOO_LONG = 11
 UNKNOWN_DP_ERROR = 12
 ACCESS_DENIED = 13
 DP_OUT_OF_MEMORY = 14
 DISK_FULL = 15
 DP_TIMEOUT = 16
 OTHERS = 17.
 CASE SY-SUBRC.
 WHEN 0.
 DESCRIBE TABLE I_L_RECORD LINES V_LINE.
 IF V_LINE EQ 0.
 MESSAGE I000 WITH TEXT-065.
 STOP.
 ENDIF.
 WHEN 1.
 MESSAGE I000 WITH TEXT-068.
 STOP.
 WHEN 2.
 MESSAGE I000 WITH TEXT-069.
 STOP.
 WHEN 3.
 MESSAGE I000 WITH TEXT-070.
 STOP.
 WHEN 4.
 MESSAGE I000 WITH TEXT-071.
 STOP.
 WHEN 5.
 MESSAGE I000 WITH TEXT-072.
 STOP.
 WHEN 6.
 MESSAGE I000 WITH TEXT-073.
 STOP.
 WHEN 7.
 MESSAGE I000 WITH TEXT-074.
 STOP.
 WHEN 8.
 MESSAGE I000 WITH TEXT-075.
 STOP.
 WHEN 9.
 MESSAGE I000 WITH TEXT-076.
 STOP.
 WHEN 10.
 MESSAGE I000 WITH TEXT-077.
 STOP.
 WHEN 11.
 MESSAGE I000 WITH TEXT-078.
 STOP.
 WHEN 12.
 MESSAGE I000 WITH TEXT-079.
 STOP.
 WHEN 13.
 MESSAGE I000 WITH TEXT-080.
 STOP.
 WHEN 14.
 MESSAGE I000 WITH TEXT-081.
 STOP.
 WHEN 15.
 MESSAGE I000 WITH TEXT-082.
 STOP.
 WHEN 16.
 MESSAGE I000 WITH TEXT-083.
 STOP.
 ENDCASE.
 CLEAR V_LINE.
ELSEIF RB_SERVE EQ C_TRUE. "File is on the Application Server
 P_MODE = C_BACKGROUND.
 OPEN DATASET P_FILE1 FOR INPUT IN TEXT MODE.
 CHECK SY-SUBRC EQ C_SUCCESS.
 CLEAR WA_STR1.
 DO.
 READ DATASET P_FILE1 INTO WA_STR1.
 IF SY-SUBRC <> 0. " NE SUCCESS.
 EXIT.
 ELSEIF SY-SUBRC EQ C_SUCCESS.
 APPEND WA_STR1 TO I_STR1.
 CLEAR WA_STR1.
 ENDIF. " ENDIF on SY-SUBRC 0 Check.
 ENDDO. " ENDDO
 DELETE I_STR1 WHERE SLINE EQ ' '.
 DESCRIBE TABLE I_STR1 LINES V_LINE.
 IF V_LINE EQ 0.
 MESSAGE S000 WITH TEXT-065.
 STOP.
 ENDIF.
 LOOP AT I_STR1 INTO WA_STR1.
 CLEAR: WA_L_RECORD.
 SPLIT WA_STR1-SLINE AT V_STR
 INTO WA_L_RECORD-LIFNR
 WA_L_RECORD-EVART
 WA_L_RECORD-EKORG
 WA_L_RECORD-EKGRP
 WA_L_RECORD-WERKS
 WA_L_RECORD-LGORT
 WA_L_RECORD-KDATB
 WA_L_RECORD-KDATE
 WA_L_RECORD-ZTERM
 WA_L_RECORD-KTWRT
 WA_L_RECORD-EPSTP
 WA_L_RECORD-EMATN
 WA_L_RECORD-KTMNG
 WA_L_RECORD-NETPR
 WA_L_RECORD-PEINH
 WA_L_RECORD-BPRME
 WA_L_RECORD-IDNLF
 WA_L_RECORD-WEBRE
 WA_L_RECORD-MEPRF
 WA_L_RECORD-LTEX1
 WA_L_RECORD-DATAB
 WA_L_RECORD-DATBI
 WA_L_RECORD-KSCHL
 WA_L_RECORD-KBETR
 WA_L_RECORD-KONWA
 WA_L_RECORD-KPEIN
 WA_L_RECORD-KMEIN
 WA_L_RECORD-KSTBM
 WA_L_RECORD-KBETR_01
 WA_L_RECORD-DEL_FLAG
 WA_L_RECORD-ERR_MSG.
 APPEND WA_L_RECORD TO I_L_RECORD.
 CLEAR: WA_L_RECORD,
 WA_STR1.
 ENDLOOP.
 REFRESH I_STR1.
 CLOSE DATASET P_FILE1.
ENDIF.
ENDFORM.
*& Form BDC_DYNPRO
* Data populated into i_bdcdata table for program
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR WA_BDCDATA.
WA_BDCDATA-PROGRAM = PROGRAM.
WA_BDCDATA-DYNPRO = DYNPRO.
WA_BDCDATA-DYNBEGIN = C_TRUE.
APPEND WA_BDCDATA TO I_BDCDATA.
ENDFORM.
*& Form BDC_FIELD
* Data populated into i_bdcdata table for fields
FORM BDC_FIELD USING FNAM FVAL.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = FNAM.
WA_BDCDATA-FVAL = FVAL.
APPEND WA_BDCDATA TO I_BDCDATA.
ENDFORM.
*& Form convert_date
* Converting the data from the file format to mm/dd/yyyy format
* <--P_wa_record_kdatb Source Date
* <--p_l_conv_date Target Date
FORM CONVERT_DATE USING L_DATE
 L_TAR_DATE.
CONCATENATE L_DATE+0(2)
 L_DATE+3(2)
 L_DATE+6(4)
 INTO L_TAR_DATE.
ENDFORM. " convert_date
*& Form validate_flatfile_data
* Validating the input file
FORM VALIDATE_FLATFILE_DATA.
DATA: L_TODAY LIKE SY-DATUM,
 L_STARTDATE_C LIKE SY-DATUM,
 L_ENDDATE_C LIKE SY-DATUM,
 L_ENDDATE_C1 LIKE SY-DATUM,
 L_STARTDATE_C1 LIKE SY-DATUM,
 L_STARTDATE(8),
 L_ENDDATE(8).
* Fetch indicator for all records on the material, plant & storage
* location combination.
IF NOT I_RECORD[] IS INITIAL.
 REFRESH I_LOEKZ.
 SELECT EMATN " Material Number
 WERKS " Plant
 LGORT " Storage Location
 BSTYP " Purchasing Document Category
 LOEKZ " Deletion indicator
 INTO TABLE I_LOEKZ
 FROM EKPO
 FOR ALL ENTRIES IN I_RECORD
 WHERE EMATN = I_RECORD-EMATN
 AND WERKS = I_RECORD-WERKS
 AND LGORT = I_RECORD-LGORT
 AND BSTYP = C_BSTYP
 AND LOEKZ = C_LOEKZ_MARKED.
 IF SY-SUBRC EQ 0.
 SORT I_LOEKZ BY EMATN WERKS LGORT BSTYP LOEKZ.
 ENDIF.
* Fetching Plants for all entries in the selection screen
 REFRESH I_T001W.
 SELECT WERKS "Plant
 INTO TABLE I_T001W
 FROM T001W
 WHERE WERKS IN S_WERKS.
 IF SY-SUBRC EQ 0.
 SORT I_T001W BY WERKS.
 ENDIF.
* Fetching materials for the plants listed in flat file
 REFRESH I_MATNR.
 SELECT MATNR " Material Number
 INTO TABLE I_MATNR
 FROM MARC
 FOR ALL ENTRIES IN I_RECORD
 WHERE WERKS = I_RECORD-WERKS.
 IF SY-SUBRC EQ 0.
 SORT I_MATNR BY MATNR.
 ENDIF.
* Fetching Company Codes for repective Purchase Organizations
 REFRESH I_T024E.
 SELECT EKORG " Purchase Organization
 BUKRS " Company Code
 INTO TABLE I_T024E
 FROM T024E
 WHERE EKORG IN S_EKORG.
 IF SY-SUBRC EQ 0.
 SORT I_T024E BY EKORG.
 ENDIF.
* Fetching SAP Data using Legacy Data.
 REFRESH I_ZMVXREF.
 SELECT D_ALTKN
 D_BUKRS
 M_ALTKN
 INTO TABLE I_ZMVXREF
 FROM ZMVXREF
 FOR ALL ENTRIES IN I_RECORD
 WHERE D_ALTKN = I_RECORD-LIFNR.
 IF SY-SUBRC EQ 0.
 SORT I_ZMVXREF BY D_ALTKN D_BUKRS.
 ENDIF.
* Fetching Vendors from LFA1
 IF NOT I_ZMVXREF[] IS INITIAL.
 REFRESH I_LFA1.
 SELECT LIFNR
 INTO TABLE I_LFA1
 FROM LFA1
 FOR ALL ENTRIES IN I_ZMVXREF
 WHERE LIFNR = I_ZMVXREF-M_ALTKN.
 IF SY-SUBRC EQ 0.
 SORT I_LFA1 BY LIFNR.
 ENDIF.
 ENDIF.
* Start Validating the flat file
 CLEAR: WA_RECORD,
 WA_T024E,
 WA_ZMVXREF,
 WA_LFA1,
 WA_LOEKZ,
 WA_MATNR.
 LOOP AT I_RECORD INTO WA_RECORD.
 L_TODAY = SY-DATUM.
 L_STARTDATE = WA_RECORD-KDATB.
 L_ENDDATE = WA_RECORD-KDATE.
 IF WA_RECORD-DEL_FLAG IS INITIAL.
 READ TABLE I_T001W INTO WA_T001W
 WITH KEY WERKS = WA_RECORD-WERKS
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
* Cross-Reference check performed for the given Vendors
 READ TABLE I_T024E INTO WA_T024E
 WITH KEY EKORG = WA_RECORD-EKORG
 BINARY SEARCH.
 IF SY-SUBRC NE 0.
 V_CROSS_REFERENCE_ERROR = C_VEN_ERR3.
 ELSE.
 READ TABLE I_ZMVXREF INTO WA_ZMVXREF
 WITH KEY D_ALTKN = WA_RECORD-LIFNR
 D_BUKRS = P_BUKRS
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 READ TABLE I_LFA1 INTO WA_LFA1
 WITH KEY LIFNR = WA_ZMVXREF-M_ALTKN
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 V_CROSS_REFERENCE_ERROR = C_VEN_SUCS.
 ELSE.
 V_CROSS_REFERENCE_ERROR = C_VEN_ERR2.
 ENDIF.
 ELSE.
 V_CROSS_REFERENCE_ERROR = C_VEN_ERR1.
 ENDIF.
 ENDIF.
* Legacy Vendor could not be mapped
 IF V_CROSS_REFERENCE_ERROR EQ C_VEN_ERR1.
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES. "Inp.file err. occurd
 WA_RECORD-DEL_FLAG = C_TRUE.
 WA_RECORD-ERR_MSG = TEXT-007.
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR.
* Legacy Vendor is mapped but the obtained SAP vendor doesn't exist.
 ELSEIF V_CROSS_REFERENCE_ERROR EQ C_VEN_ERR2.
* Inp.file err. occurd
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 WA_RECORD-DEL_FLAG = C_TRUE.
 WA_RECORD-ERR_MSG = TEXT-008.
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR.
* Purchase Organization doesn't exist in T024E.
 ELSEIF V_CROSS_REFERENCE_ERROR EQ C_VEN_ERR3.
* Inp.file err. occurd
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 WA_RECORD-DEL_FLAG = C_TRUE.
 WA_RECORD-ERR_MSG = TEXT-014.
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE EKORG = WA_RECORD-EKORG.
* Vendor is mapped and validated successfully
 ELSEIF V_CROSS_REFERENCE_ERROR EQ C_VEN_SUCS.
* Checking for the deletion indicator for that record
 CONCATENATE WA_RECORD-KDATB+6(4)
 WA_RECORD-KDATB+3(2)
 WA_RECORD-KDATB+0(2)
 INTO
 L_STARTDATE.
 MOVE L_STARTDATE TO L_STARTDATE_C.
 CONCATENATE WA_RECORD-KDATB+6(4)
 WA_RECORD-KDATB+0(2)
 WA_RECORD-KDATB+3(2)
 INTO
 L_STARTDATE_C1.
 CONCATENATE WA_RECORD-KDATE+6(4)
 WA_RECORD-KDATE+3(2)
 WA_RECORD-KDATE+0(2)
 INTO
 L_ENDDATE.
 MOVE L_ENDDATE TO L_ENDDATE_C.
 CONCATENATE WA_RECORD-KDATE+6(4)
 WA_RECORD-KDATE+0(2)
 WA_RECORD-KDATE+3(2)
 INTO
 L_ENDDATE_C1.
 READ TABLE I_LOEKZ INTO WA_LOEKZ WITH KEY
 EMATN = WA_RECORD-EMATN
 WERKS = WA_RECORD-WERKS
 LGORT = WA_RECORD-LGORT
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
* Inpfle err.occured
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 WA_RECORD-ERR_MSG = TEXT-003.
 WA_RECORD-DEL_FLAG = C_TRUE. "marking the record
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR
 AND EVART = WA_RECORD-EVART
 AND EKORG = WA_RECORD-EKORG
 AND EKGRP = WA_RECORD-EKGRP
 AND WERKS = WA_RECORD-WERKS
 AND LGORT = WA_RECORD-LGORT
 AND KDATB = WA_RECORD-KDATB
 AND KDATE = WA_RECORD-KDATE
 AND ZTERM = WA_RECORD-ZTERM
 AND KTWRT = WA_RECORD-KTWRT
 AND EPSTP = WA_RECORD-EPSTP
 AND EMATN = WA_RECORD-EMATN.
* Validating the Purchasing Organization for Blank/Null
 ELSEIF WA_RECORD-EKORG IS INITIAL.
* Inpfle err.occured
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 WA_RECORD-ERR_MSG = TEXT-010.
 WA_RECORD-DEL_FLAG = C_TRUE.
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR
 AND EVART = WA_RECORD-EVART
 AND EKORG = WA_RECORD-EKORG
 AND EKGRP = WA_RECORD-EKGRP
 AND WERKS = WA_RECORD-WERKS
 AND LGORT = WA_RECORD-LGORT
 AND KDATB = WA_RECORD-KDATB
 AND KDATE = WA_RECORD-KDATE
 AND ZTERM = WA_RECORD-ZTERM
 AND KTWRT = WA_RECORD-KTWRT
 AND EPSTP = WA_RECORD-EPSTP
 AND EMATN = WA_RECORD-EMATN.
* Validating the Plant for Blank/Null
 ELSEIF WA_RECORD-WERKS IS INITIAL.
* Inpfle err.occured
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 WA_RECORD-ERR_MSG = TEXT-039.
 WA_RECORD-DEL_FLAG = C_TRUE.
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR
 AND EVART = WA_RECORD-EVART
 AND EKORG = WA_RECORD-EKORG
 AND EKGRP = WA_RECORD-EKGRP
 AND WERKS = WA_RECORD-WERKS
 AND LGORT = WA_RECORD-LGORT
 AND KDATB = WA_RECORD-KDATB
 AND KDATE = WA_RECORD-KDATE
 AND ZTERM = WA_RECORD-ZTERM
 AND KTWRT = WA_RECORD-KTWRT
 AND EPSTP = WA_RECORD-EPSTP
 AND EMATN = WA_RECORD-EMATN.
* Validating the Contract Validity Start Date
 ELSEIF L_STARTDATE_C1 GT L_TODAY. "#EC PORTABLE
* Inpfle err.occured
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 WA_RECORD-ERR_MSG = TEXT-004.
 WA_RECORD-DEL_FLAG = C_TRUE. "marking the record
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR
 AND EVART = WA_RECORD-EVART
 AND EKORG = WA_RECORD-EKORG
 AND EKGRP = WA_RECORD-EKGRP
 AND WERKS = WA_RECORD-WERKS
 AND LGORT = WA_RECORD-LGORT
 AND KDATB = WA_RECORD-KDATB.
* Validating the Contract Validity End Date
 ELSEIF L_ENDDATE_C1 LE L_TODAY. "#EC PORTABLE
* Inpfle err.ocrd
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 WA_RECORD-ERR_MSG = TEXT-005.
 WA_RECORD-DEL_FLAG = C_TRUE. "marking the record
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR
 AND EVART = WA_RECORD-EVART
 AND EKORG = WA_RECORD-EKORG
 AND EKGRP = WA_RECORD-EKGRP
 AND WERKS = WA_RECORD-WERKS
 AND LGORT = WA_RECORD-LGORT
 AND KDATB = WA_RECORD-KDATB
 AND KDATE = WA_RECORD-KDATE.
* Checking for Material under the Plant for Agreement Type 'WK'
 ELSEIF WA_RECORD-EVART = C_WK.
 READ TABLE I_MATNR INTO WA_MATNR
 WITH KEY MATNR = WA_RECORD-EMATN
 BINARY SEARCH.
 IF SY-SUBRC NE 0.
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES. "Inpfle err.ocrd
 WA_RECORD-ERR_MSG = TEXT-006.
 WA_RECORD-DEL_FLAG = C_TRUE. "marking the record
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE LIFNR = WA_RECORD-LIFNR
 AND EVART = WA_RECORD-EVART
 AND EKORG = WA_RECORD-EKORG
 AND EKGRP = WA_RECORD-EKGRP
 AND WERKS = WA_RECORD-WERKS
 AND LGORT = WA_RECORD-LGORT
 AND KDATB = WA_RECORD-KDATB
 AND KDATE = WA_RECORD-KDATE
 AND ZTERM = WA_RECORD-ZTERM
 AND KTWRT = WA_RECORD-KTWRT
 AND EPSTP = WA_RECORD-EPSTP
 AND EMATN = WA_RECORD-EMATN.
 ENDIF.
 ENDIF. " checking of deletion indicator
 ENDIF. " checking for success of vendor cross reference
 ELSE.
 V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES. "Inpfle err.ocrd
 WA_RECORD-ERR_MSG = TEXT-041.
 WA_RECORD-DEL_FLAG = C_TRUE. "marking the record
 MODIFY I_RECORD FROM WA_RECORD
 TRANSPORTING DEL_FLAG
 ERR_MSG
 WHERE WERKS = WA_RECORD-WERKS.
 ENDIF. " Plant checked to selection screen
 ENDIF. " the records for which del_flag is initial
 CLEAR: WA_RECORD,
 WA_T024E,
 WA_ZMVXREF,
 WA_LFA1,
 WA_LOEKZ,
 WA_MATNR,
 L_TODAY,
 L_STARTDATE_C,
 L_ENDDATE_C,
 L_STARTDATE,
 L_ENDDATE.
 ENDLOOP.
 LOOP AT I_RECORD INTO WA_RECORD.
 IF WA_RECORD-DEL_FLAG = C_TRUE.
 APPEND WA_RECORD TO I_ERR_REC.
 CLEAR WA_RECORD.
 ENDIF.
 ENDLOOP.
ELSE.
 MESSAGE E000 WITH TEXT-013. " no records in the flat file
 STOP.
ENDIF.
ENDFORM. " validate_flatfile_data
*& Form DOWNLOAD_ERROR_FILE
* Downloads all records along with the records encountering the
* input file validation error
FORM DOWNLOAD_ERROR_FILE.
DATA L_ISDIR TYPE C.
IF V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
 V_FILENAME = P_IPERR.
* Check for the existence of the file.
 IF RB_LOCAL EQ C_TRUE.
 CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
 EXPORTING
 FNAME = P_IPERR
 IMPORTING
 ISDIR = L_ISDIR
 EXCEPTIONS
 FILEINFO_ERROR = 1
 OTHERS = 2.
 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 L_ISDIR EQ C_TRUE.
 MESSAGE I000 WITH TEXT-088.
 STOP.
 ENDIF.
 ENDIF.
 IF RB_LOCAL EQ C_TRUE.
* Download the Input Error File.
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = V_FILENAME
 FILETYPE = 'ASC'
 WRITE_FIELD_SEPARATOR = '#'
 TABLES
 DATA_TAB = I_ERR_REC
 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.
 ELSEIF RB_SERVE EQ C_TRUE.
 OPEN DATASET P_IPERR1 FOR OUTPUT IN TEXT MODE.
 CHECK SY-SUBRC EQ 0.
 CLEAR WA_ERR_REC.
 LOOP AT I_ERR_REC INTO WA_ERR_REC.
 IF WA_ERR_REC-DEL_FLAG = C_TRUE.
 TRANSFER WA_ERR_REC TO P_IPERR1.
 ENDIF.
 CLEAR WA_ERR_REC.
 ENDLOOP.
 CLOSE DATASET P_IPERR1.
 ENDIF.
ENDIF.
ENDFORM. " DOWNLOAD_ERROR_FILE
*& Form BUILD_BDC_DATA
* Populates BDC for all the fields neccessary for Open Contract Creation
FORM BUILD_BDC_DATA.
DATA: L_MAT_INDEX TYPE I,
 L_CON_INDEX TYPE I,
 L_SCA_INDEX TYPE I.
CLEAR WA_BDCDATA.
REFRESH: I_BDCDATA,
 I_MESSTAB.
* Processing the bdc
CLEAR: WA_RECORD,
 WA_RECORDPREV,
 VEN_FLAG,
 MAT_FLAG.
LOOP AT I_RECORD INTO WA_RECORD.
* Checks for the del_flag of the record.
 IF WA_RECORD-DEL_FLAG EQ C_TRUE
 OR WA_RECORD-DEL_FLAG EQ C_STRUE.
 CLEAR WA_RECORD.
 CONTINUE.
 ELSE.
 IF WA_RECORDPREV-LIFNR NE WA_RECORD-LIFNR
 OR WA_RECORDPREV-EVART NE WA_RECORD-EVART
 OR WA_RECORDPREV-EKORG NE WA_RECORD-EKORG
 OR WA_RECORDPREV-EKGRP NE WA_RECORD-EKGRP
 OR WA_RECORDPREV-WERKS NE WA_RECORD-WERKS
 OR WA_RECORDPREV-LGORT NE WA_RECORD-LGORT
 OR WA_RECORDPREV-KDATB NE WA_RECORD-KDATB
 OR WA_RECORDPREV-KDATE NE WA_RECORD-KDATE
 OR WA_RECORDPREV-ZTERM NE WA_RECORD-ZTERM
 OR WA_RECORDPREV-KTWRT NE WA_RECORD-KTWRT.
 PERFORM BDC_DYNPRO USING 'SAPMM06E' '0200'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'RM06E-LGORT'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '/00'.
* Cross-Reference check performed for the given Vendors
 CLEAR WA_T024E.
 READ TABLE I_T024E INTO WA_T024E
 WITH KEY EKORG = WA_RECORD-EKORG
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 CLEAR WA_ZMVXREF.
 READ TABLE I_ZMVXREF INTO WA_ZMVXREF
 WITH KEY D_ALTKN = WA_RECORD-LIFNR
 D_BUKRS = P_BUKRS
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 PERFORM BDC_FIELD USING 'EKKO-LIFNR'
 WA_ZMVXREF-M_ALTKN.
 ENDIF.
 CLEAR WA_ZMVXREF.
 ENDIF.
 CLEAR WA_T024E.
 PERFORM BDC_FIELD USING 'RM06E-EVART'
 WA_RECORD-EVART.
 PERFORM BDC_FIELD USING 'EKKO-EKORG'
 WA_RECORD-EKORG.
 PERFORM BDC_FIELD USING 'EKKO-EKGRP'
 WA_RECORD-EKGRP.
 PERFORM BDC_FIELD USING 'RM06E-WERKS'
 WA_RECORD-WERKS.
 PERFORM BDC_FIELD USING 'RM06E-LGORT'
 WA_RECORD-LGORT.
 PERFORM BDC_DYNPRO USING 'SAPMM06E' '0201'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'EKKO-KTWRT'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=AB'.
 PERFORM CONVERT_DATE USING WA_RECORD-KDATB V_CONV_DATE.
 PERFORM BDC_FIELD USING 'EKKO-KDATB'
 V_CONV_DATE.
 PERFORM CONVERT_DATE USING WA_RECORD-KDATE V_CONV_DATE.
 PERFORM BDC_FIELD USING 'EKKO-KDATE'
 V_CONV_DATE.
 PERFORM BDC_FIELD USING 'EKKO-ZTERM'
 WA_RECORD-ZTERM.
 PERFORM BDC_FIELD USING 'EKKO-KTWRT'
 WA_RECORD-KTWRT.
 VEN_FLAG = 1.
 L_MAT_INDEX = 1. "index for table-control of material
 ENDIF.
* "first check for itemline
 IF WA_RECORDPREV-EPSTP NE WA_RECORD-EPSTP
 OR WA_RECORDPREV-EMATN NE WA_RECORD-EMATN
 OR WA_RECORDPREV-KTMNG NE WA_RECORD-KTMNG
 OR WA_RECORDPREV-NETPR NE WA_RECORD-NETPR
 OR WA_RECORDPREV-PEINH NE WA_RECORD-PEINH
 OR WA_RECORDPREV-BPRME NE WA_RECORD-BPRME
 OR WA_RECORDPREV-IDNLF NE WA_RECORD-IDNLF
 OR WA_RECORDPREV-WEBRE NE WA_RECORD-WEBRE
 OR WA_RECORDPREV-MEPRF NE WA_RECORD-MEPRF
 OR WA_RECORDPREV-LTEX1 NE WA_RECORD-LTEX1
 OR VEN_FLAG EQ 1.
 V_IND = L_MAT_INDEX.
 IF V_IND GT 1.
 V_IND = 2.
 ENDIF.
 CONCATENATE 'RM06E-EVRTP(' V_IND ')' INTO V_EVRTP1.
 CONCATENATE 'RM06E-EPSTP(' V_IND ')' INTO V_EPSTP1.
 CONCATENATE 'EKPO-EMATN(' V_IND ')' INTO V_EMATN1.
 CONCATENATE 'EKPO-KTMNG(' V_IND ')' INTO V_KTMNG1.
 CONCATENATE 'EKPO-NETPR(' V_IND ')' INTO V_NETPR1.
 CONCATENATE 'EKPO-PEINH(' V_IND ')' INTO V_PEINH1.
 CONCATENATE 'EKPO-BPRME(' V_IND ')' INTO V_BPRME1.
 CONCATENATE 'RM06E-TCSELFLAG(' V_IND ')' INTO V_TCSELFLAG1.
 PERFORM BDC_DYNPRO USING 'SAPMM06E' '0220'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=NP'.
 PERFORM BDC_DYNPRO USING 'SAPMM06E' '0220'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 V_EVRTP1.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=DETA'.
 PERFORM BDC_FIELD USING V_EPSTP1
 WA_RECORD-EPSTP.
 PERFORM BDC_FIELD USING V_EMATN1
 WA_RECORD-EMATN.
 PERFORM BDC_FIELD USING V_KTMNG1
 WA_RECORD-KTMNG.
 PERFORM BDC_FIELD USING V_NETPR1
 WA_RECORD-NETPR.
 PERFORM BDC_FIELD USING V_PEINH1
 WA_RECORD-PEINH.
 PERFORM BDC_FIELD USING V_BPRME1
 WA_RECORD-BPRME.
 PERFORM BDC_DYNPRO USING 'SAPMM06E' '0211'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'EKPO-WEBRE'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=DETZ'.
 PERFORM BDC_FIELD USING 'EKPO-IDNLF'
 WA_RECORD-IDNLF.
 TRANSLATE WA_RECORD-EVART TO UPPER CASE.
 IF WA_RECORD-EVART EQ C_WK.
 PERFORM BDC_FIELD USING 'EKPO-WEBRE' 'X'.
 ENDIF.
 PERFORM BDC_DYNPRO USING 'SAPMM06E' '0212'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'EKPO-MEPRF'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=TXP'.
 PERFORM BDC_FIELD USING 'EKPO-MEPRF'
 WA_RECORD-MEPRF.
 IF NOT WA_RECORD-LTEX1 IS INITIAL. "NE space.
 PERFORM BDC_DYNPRO USING 'SAPMM06E' '0106'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'RM06E-SELKZ(02)'.
 PERFORM BDC_FIELD

Material transfer from SAP R/3 to SAP Business One is blocked

Hello experts,
Please I need your help for the following scenario:
Our client has B1iSN and SAP R/3 in the headquarter company and B1if and SAP B1 in the subsidiary. The material transfer from SAP R/3 to SAP Business One failed and the following message is diplayed:
Result message :
com.sap.b1i.xcellerator.XcelleratorException: XCE001 Nested exception: com.sap.b1i.bizprocessor.BizProcException: BPE001 Nested exception: com.sap.b1i.xcellerator.XcelleratorException: XCE001 Nested exception: com.sap.b1i.xcellerator.XcelleratorException: XCE001 Nested exception: java.lang.RuntimeException: DI Error: (-2028) No matching records found (ODBC -2028)
The Material database transfer is blocked due to message in status
failure which block all other messages.
We tried to restart the server (Business One and B1iSN) but it didnu2019t solve the issue.
Any idea please? Thank you.

Hi Nadia,
did you check the WRITE-POLICY settings of your scenario?
when reading the displayed DI Error message, it looks like B1iSN is trying to update an B1 item which does not exists.
Please open SAP B1iSN Tools -> Development Tools -> Graphical scenario Design and select your Bizpackage, BizStep and BIUMETA.
Open the WRITE-POLICY symbol and check the entries:
Insert on Exist = error or fallback2U
Update on Miss = fallback2I
The Update Policy should stay to value regular.
To activate changes of the WRITE-POLICY please deactivate, modify and reactivate your Business Process instance.
If a WRITE-POLICY change has no effect, please check your data mapping (BIU) and especially the parameter <QueryParams>, which mustn't be filled for "insert/Add" operations into B1.
Best regards
Bastian

Data transfer b/w SAP to Java using IDOC and Interface SAP Jco

Dear Experts,
The challenging requirement we are having is, we need to create the interface for data transfer between SAP system and the Java system. The data will be transferred from SAP to java and similarly once some processing done in Java again the details needs to be transferred from Java to SAP.
For this data transferred we are planning to use IDOC process and for interface "SAP Java connector (Version 3.0.5)" we are planning to use. As per our understanding, from Java side one program needs to be written to connect with SAP as "Registered program". This registered program will appear in SAP GATEWAY automatically and using tRFC, TCP/IP connection both SAP and Java system will be connected.
In this case we are having some doubts.
1. The data from SAP is going to be transfered from one Custom transaction (Z tcode). Once "Outbound IDOC" will get triggered and will carry the details. Now the doubt is, whether the data / details will get transfered to JAVA system automatically or we need to perform any other steps from SAP ABAP coding...(like converting in to flat file, XML file and etc) ??
2. We are planning to install "SAP Jco" in Java server. Is this correct...??
3. Other than SAP Jco any other softwares needs to be installed or not..??
4. Since we are going to trigger the "outbound IDOC" from custom transaction, we are planning to develope one program in SE37. Other than this any other program we need to develop or not..??
5. Any sample Java program for the SAP Jco version 3.0.5 to create the "Registered program" with SAP..? (e.g. SAP Listener program).?
If anybody has detailed steps or explanation please share it with us.
Thanks in advance
Warm Regards,
VEL

Hi All,
For the above mentioned issue, we implemented JCo software in JAVA system and created the JAVA program including SAP logon credential details like Client, User name, password and Language details.
When this JAVA program was compiled successfully then, that non SAP system will appear in SAP gateway Tcode.
Once non SAP system started appearing in SAP gateway that means, both SAP & Non SAP are connected automatically.
Regards,
Velmurugan P

Crm to sap r/3 data transfer?

hi,
if i want to transfer data from CRM TO Sap R/3. which is the best way to do that?
Thanks,
saurin shah

Saurin,
The CRM middleware supports data transfer of customers, products, and sales documents from CRM to R/3. So in your case, the question is what type of data are you trying to send from CRM to R/3?
Once we know this, we can answer your question.
Take care,
Stephen

Error during data transfer from Lotus Notes to SAP via JCO - Urgent Help Required

Dear SAP Expert:
I need your help! Recently getting error during data transfer to SAP. I need your suggestion!
I am transferring Lotus Notes data to SAP via JCO, recently getting the below error msg, could you pls tell me what could be the reason?
Please suggest me how to fix that kind of issue.
"com.sap.mw.jco.JCO$Exception: (104) RFC_ERROR_SYSTEM_FAILURE: Error in ABAP/4 statement when processing an internal table. table.
at com.sap.mw.jco.rfc.MiddlewareRFC$Client.nativeExecute(Native Method)
at com.sap.mw.jco.rfc.MiddlewareRFC$Client.execute(MiddlewareRFC.java:1244)
at com.sap.mw.jco.JCO$Client.execute(JCO.java:3842)
at com.sap.mw.jco.JCO$Client.execute(JCO.java:3287)
at SAPAdapter.execute(Unknown Source)
at JavaAgent.fillBapiAndWriteBackToNotes(Unknown Source)
at JavaAgent.NotesMain(Unknown Source)
at lotus.domino.AgentBase.runNotes(Unknown Source)
at lotus.domino.NotesThread.run(NotesThread.java:249)
Thanks in advance! Your help would be highly appreciated! Thanks again!

error is clear, check your abap code.

Data transfer between SAP & Java and Vice versa using IDOC Process

Dear Experts,
        We are working on one of the good requirement related to data transfer between SAP and Java software. Client requirement is, they want to transfer the data in both the ways (from SAP --> Java and Vice versa also).
In detail is, after sales order creation using one custom program loading plan details will be calculated. Once loading dates are confirmed then, user will release the sales document to transfer the data from SAP to Java using "Outbound IDOC processing". Similarly in that JAVA software some shipment details will be performed, once completed from JAVA software again details needs to be pumped back to SAP as "Inbound IDOC Processing".
For this fields are already identified from external software SAP and we are looking for the same to perform the steps in SAP.
At this stage, I need your expert opinion / feedback how to go about at this stage.
Meaning,
                 1. What are the customizing steps needs to be done in SAP..?
                 2. How to trigger the :Outbound IDOC process" once the documents are "Released" from custom transaction
                 3. How to create the link between SAP and JAVA to transfer the data between these 2 software
                 4. How to trigger the "Inbound IDOC Process" from JAVA software to SAP and how to store the data in SAP
Experts, please give your feedback in terms of reply or by sending the step by step process to fulfill this client requirement.
Thanks for your cooperation.
Regards,
Ramesh

Maybe too many open questions in the same document.
Maybe you should repost a more specific question in a technical forum.
This looks like a small project where you already know what you want, maybe you should contract a technical specialist so he proceeds to the implementation!

IDOC data transfer SAP to Java using SAP JCo

Dear Experts,
The challenging requirement we are having is, we need to create the interface for data transfer between SAP system and the Java system. The data will be transferred from SAP to java and similarly once some processing done in Java again the details needs to be transferred from Java to SAP.
For this data transferred we are planning to use IDOC process and for interface "SAP Java connector" we are planning to use. In this case we are having some doubts.
1. The data from SAP is going to be transfered from one Custom transaction (Z tcode). Once "Outbound IDOC" will get triggered and will carry the details. Now the doubt is, whether the data / details will get transfered to JAVA system automatically or we need to perform any other steps from SAP ABAP coding...(like converting in to flat file, XML file and etc) ??
2. We are planning to install "SAP Jco" in Java server. Is this correct...??
3. Other than SAP Jco any other softwares needs to be installed or not..??
4. Since we are going to trigger the "outbound IDOC" from custom transaction, we are planning to develope one program in SE37. Other than this any other program we need to develop or not..??
If anybody has detailed steps or explanation please share it with us.
Warm Regards,
VEL

Hi All,
For the above mentioned issue, we implemented JCo software in JAVA system and created the JAVA program including SAP logon credential details like Client, User name, password and Language details.
When this JAVA program was compiled successfully then, that non SAP system will appear in SAP gateway Tcode.
Once non SAP system started appearing in SAP gateway that means, both SAP & Non SAP are connected automatically.
Regards,
Velmurugan P

CAD to SAP data transfer (Title block integration)

Similar Messages

Maybe you are looking for