topic Re: Uploading thru BAPI in Application Development and Automation Discussions

topic Re: Uploading thru BAPI in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712660#M311686 <HTML><HEAD></HEAD><BODY><P>Hi RK</P><P></P><P>I have uploaded data from Excel to SAP using BAPI,</P><P></P><P>/people/kathirvel.balakrishnan2/blog/2006/05/08/data-upload-into-sap-from-microsoft-excel-150-abap-part</P><P>/people/kathirvel.balakrishnan2/blog/2006/05/09/data-upload-into-sap-from-microsoft-excel-150-vba-part</P><P></P><P>Regards</P><P>Kathirvel</P></BODY></HTML> Fri, 17 Nov 2006 18:27:09 GMT Former Member 2006-11-17T18:27:09Z Uploading thru BAPI https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712659#M311685 <HTML><HEAD></HEAD><BODY><P>Hi </P><P>Can anyone give me an example how we can upload thru BAPI(any tcode upload)</P><P>Please give me the code for my reference.</P><P></P><P>Where BAPI comes in to picture when uploading?</P><P>After uploading file from presentation server?Do we still do Recording incase if we use BAPI.</P><P>Please tell me as its very urgent.</P><P></P><P>Thanks in advance</P></BODY></HTML> Fri, 17 Nov 2006 18:14:14 GMT https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712659#M311685 Former Member 2006-11-17T18:14:14Z Re: Uploading thru BAPI https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712660#M311686 <HTML><HEAD></HEAD><BODY><P>Hi RK</P><P></P><P>I have uploaded data from Excel to SAP using BAPI,</P><P></P><P>/people/kathirvel.balakrishnan2/blog/2006/05/08/data-upload-into-sap-from-microsoft-excel-150-abap-part</P><P>/people/kathirvel.balakrishnan2/blog/2006/05/09/data-upload-into-sap-from-microsoft-excel-150-vba-part</P><P></P><P>Regards</P><P>Kathirvel</P></BODY></HTML> Fri, 17 Nov 2006 18:27:09 GMT https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712660#M311686 Former Member 2006-11-17T18:27:09Z Re: Uploading thru BAPI https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712661#M311687 <HTML><HEAD></HEAD><BODY><P>Goto transaction LSMW - here we can upload the data through bapi.</P><P>Just u have to specify the business object and the method.</P></BODY></HTML> Sat, 18 Nov 2006 06:16:54 GMT https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712661#M311687 Former Member 2006-11-18T06:16:54Z Re: Uploading thru BAPI https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712662#M311688 <HTML><HEAD></HEAD><BODY><P>check below code...it uploads data from PC and uses BAPI for posting...No need of BDC....</P><P>REPORT ZFC_GL_UPLOAD</P><P> LINE-SIZE 255</P><P> MESSAGE-ID ZZ.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> TABLES</P></LI></UL><P>************************************************************************</P><P>TABLES: SKA1, " G/L account master (chart of accounts)</P><P> SKB1, " G/L account master (company code)</P><P> T001, " Company Codes</P><P> SSCRFIELDS. " Fields on selection screens</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> TYPES</P></LI></UL><P>************************************************************************</P><P>TYPES : TY_CAST(1). " Types used to store value</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> CONSTANTS</P></LI></UL><P>************************************************************************</P><P>DATA : C_RB_SELECTED TYPE C VALUE 'X', " Field to hold 'X' value</P><P> C_SPLIT TYPE C VALUE '#', " Field to hold '#' value</P><P> C_BGR00 LIKE BGR00, " Saved init'd structure</P><P> C_BSK00 LIKE BSK00, " Saved init'd structure</P><P> C_BSKA1 LIKE BSKA1, " Saved init'd structure</P><P> C_BSKAT LIKE BSKAT, " Saved init'd structure</P><P> C_BSKB1 LIKE BSKB1, " Saved init'd structure</P><P> C_BSKX LIKE BSKX. " Saved init'd structure</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> DATA (Simple Fields)</P></LI></UL><P>************************************************************************</P><P>DATA : W_STRING(500) TYPE C. " Variable to hold string</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> INTERNAL TABLES</P></LI></UL><P>************************************************************************</P><UL><LI level="1" type="ul"><P>Int'table to hold uploaded data</P></LI></UL><P>DATA : BEGIN OF IT_STRING OCCURS 0,</P><P> STRING(300) TYPE C,</P><P> END OF IT_STRING.</P><P></P><UL><LI level="1" type="ul"><P>Int'table to hold uploaded data from File</P></LI></UL><P>DATA : BEGIN OF IT_DATA OCCURS 0,</P><P> SAKNR(10),</P><P> KTOKS(4),</P><P> TXT20_ML(20),</P><P> TXT50_ML(50),</P><P> CHECK(3),</P><P> BILKT(10),</P><P> TXT50(50),</P><P> VBUND(6),</P><P> WAERS(5),</P><P> MWSKZ(2),</P><P> MITKZ(10),</P><P> KDFSL(4),</P><P> WMETH(2),</P><P> XSALH(1),</P><P> ALTKT(10),</P><P> INFKY(8),</P><P> TOGRU(4),</P><P> XKRES(1),</P><P> XOPVW(1),</P><P> ZUAWA(3),</P><P> BEGRU(4),</P><P> BUSAB(2),</P><P> XMITK(1),</P><P> FSTAG(4),</P><P> XINTB(1),</P><P> XNKON(1),</P><P> FDLEV(2),</P><P> FIPOS(14),</P><P> XGKON(1),</P><P> HBKID(5),</P><P> HKTID(5),</P><P> VZSKZ(2),</P><P> RECID(2),</P><P> FLAG(1),</P><P> END OF IT_DATA.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> FIELD SYMBOLS</P></LI></UL><P>************************************************************************</P><P>FIELD-SYMBOLS : <FS_CH> TYPE TY_CAST.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN</P></LI></UL><P>************************************************************************</P><P>SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.</P><P>SELECTION-SCREEN : BEGIN OF LINE,</P><P> COMMENT 1(30) TEXT-005,</P><P> POSITION POS_LOW.</P><P>PARAMETERS : P_BUKRS LIKE SKB1-BUKRS DEFAULT '1280'.</P><P>SELECTION-SCREEN : END OF LINE.</P><P>SELECTION-SCREEN SKIP 1.</P><P>SELECTION-SCREEN : BEGIN OF LINE,</P><P> COMMENT 1(30) TEXT-002,</P><P> POSITION POS_LOW.</P><P>PARAMETERS : P_EXCEL RADIOBUTTON GROUP R1 DEFAULT 'X'.</P><P>SELECTION-SCREEN : END OF LINE.</P><P>SELECTION-SCREEN : BEGIN OF LINE,</P><P> COMMENT 1(30) TEXT-003,</P><P> POSITION POS_LOW.</P><P>PARAMETERS : P_FILE(128) DEFAULT 'C:\UPLOAD.TXT'.</P><P>SELECTION-SCREEN : END OF LINE.</P><P>SELECTION-SCREEN : BEGIN OF LINE,</P><P> COMMENT 1(30) TEXT-004,</P><P> POSITION POS_LOW.</P><P>PARAMETERS : P_UNIX RADIOBUTTON GROUP R1.</P><P>SELECTION-SCREEN : END OF LINE.</P><P>SELECTION-SCREEN : BEGIN OF LINE,</P><P> COMMENT 1(30) TEXT-003,</P><P> POSITION POS_LOW.</P><P>PARAMETERS : P_DIR(128) LOWER CASE</P><P> DEFAULT '/apps/dataload/zfc_gl_upload'.</P><P>SELECTION-SCREEN : END OF LINE.</P><P>SELECTION-SCREEN : BEGIN OF LINE,</P><P> COMMENT 1(30) TEXT-008,</P><P> POSITION POS_LOW.</P><P>PARAMETERS : P_GROUP(12) DEFAULT SY-REPID OBLIGATORY.</P><P>SELECTION-SCREEN : END OF LINE.</P><P>SELECTION-SCREEN : SKIP.</P><P>SELECTION-SCREEN : BEGIN OF LINE,</P><P> COMMENT 1(32) TEXT-009,</P><P> POSITION POS_LOW.</P><P>PARAMETERS : P_DIR1(128) LOWER CASE</P><P> DEFAULT '/apps/dataload/*.txt'.</P><P>SELECTION-SCREEN : END OF LINE.</P><P>SELECTION-SCREEN : SKIP.</P><P>PARAMETERS : P_CHECK LIKE RFPDO-RFBICHCK DEFAULT 'X'.</P><P>SELECTION-SCREEN END OF BLOCK B1.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> INITIALIZATION</P></LI></UL><P>************************************************************************</P><P>INITIALIZATION.</P><P></P><P> PERFORM FILL_NODATA(RFBISA01) USING SPACE 'BGR00' C_BGR00.</P><P> PERFORM FILL_NODATA(RFBISA01) USING SPACE 'BSK00' C_BSK00.</P><P> PERFORM FILL_NODATA(RFBISA01) USING SPACE 'BSKA1' C_BSKA1.</P><P> PERFORM FILL_NODATA(RFBISA01) USING SPACE 'BSKAT' C_BSKAT.</P><P> PERFORM FILL_NODATA(RFBISA01) USING SPACE 'BSKB1' C_BSKB1.</P><P> PERFORM INIT_BSKX(RFBISA01) USING C_BSKX.</P><P></P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> AT SELECTION-SCREEN ON</P></LI></UL><P>************************************************************************</P><P>AT SELECTION-SCREEN ON P_BUKRS.</P><P></P><UL><LI level="1" type="ul"><P>Perform check on company code entered</P></LI></UL><P> SELECT SINGLE KTOPL FROM T001</P><P> INTO CORRESPONDING FIELDS OF T001 WHERE</P><P> BUKRS EQ P_BUKRS.</P><P></P><P> IF SYST-SUBRC EQ 0.</P><UL><LI level="1" type="ul"><P> continue</P></LI></UL><P> ELSE.</P><P> MESSAGE E000(ZZ) WITH 'Company code'</P><P> P_BUKRS</P><P> 'is not defined'.</P><P> ENDIF.</P><P></P><P>AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.</P><UL><LI level="1" type="ul"><P>Form to get file path for upload of data</P></LI></UL><P> PERFORM GET_FILE_PATH.</P><P></P><P>AT SELECTION-SCREEN ON BLOCK B1.</P><UL><LI level="1" type="ul"><P>Form to Validate data specified on Selection Screen</P></LI></UL><P> CHECK SSCRFIELDS-UCOMM EQ 'ONLI'.</P><P> PERFORM VALIDATE_DATA.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> START - OF - SELECTION</P></LI></UL><P>************************************************************************</P><P>START-OF-SELECTION.</P><UL><LI level="1" type="ul"><P>Form to upload data</P></LI></UL><P> PERFORM UPLOAD_DATA.</P><P></P><UL><LI level="1" type="ul"><P>Form to check data existence in database</P></LI></UL><P> PERFORM CHECK_DATA.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P> END - OF - SELECTION</P></LI></UL><P>************************************************************************</P><P>END-OF-SELECTION.</P><P> IF NOT IT_DATA[] IS INITIAL.</P><UL><LI level="1" type="ul"><P>Form to move the data to structures which are passed into Application</P></LI><LI level="1" type="ul"><P>Server for further processing</P></LI></UL><P> PERFORM INSERT_DATA.</P><P></P><UL><LI level="1" type="ul"><P>Output the list of entries that RFBISA00 cannot process.</P></LI></UL><P> PERFORM WRITE_REPORT.</P><P></P><UL><LI level="1" type="ul"><P>Form to submit the data to RFBISA00 program using the Application</P></LI><LI level="1" type="ul"><P>server file and other fields</P></LI></UL><P> PERFORM SUBMIT_FILE.</P><P> ELSE.</P><P> WRITE:/ TEXT-014. " Uploaded file contains no Data</P><P> ENDIF.</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form GET_FILE_PATH</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>This form is used to get the specified path for uploading of data from</P></LI><LI level="1" type="ul"><P>flat file with the help of F4 function key</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM GET_FILE_PATH .</P><P></P><P> CALL FUNCTION 'WS_FILENAME_GET'</P><P> EXPORTING</P><P> DEF_PATH = 'C:\ '</P><P> MASK = ',<STRONG>.</STRONG>,<STRONG>.</STRONG>.'</P><P> IMPORTING</P><P> FILENAME = P_FILE</P><P> EXCEPTIONS</P><P> INV_WINSYS = 1</P><P> NO_BATCH = 2</P><P> SELECTION_CANCEL = 3</P><P> SELECTION_ERROR = 4</P><P> OTHERS = 5.</P><P></P><P>ENDFORM. " GET_FILE_PATH</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form VALIDATE_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>This form is used to validate the data given by user on the Selection</P></LI><LI level="1" type="ul"><P>Screen and the appropriate message is been displayed when an wrong</P></LI><LI level="1" type="ul"><P>entry is inputted</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM VALIDATE_DATA .</P><P></P><P> DATA : L_BUKRS LIKE SKB1-BUKRS.</P><P></P><P> IF P_BUKRS IS INITIAL.</P><P> MESSAGE E001(ZZ) WITH TEXT-012. " Specify Company Code</P><P> ELSE.</P><P> SELECT SINGLE BUKRS INTO L_BUKRS FROM T001 WHERE BUKRS = P_BUKRS.</P><P> IF SY-SUBRC NE 0.</P><P> MESSAGE E001(ZZ) WITH TEXT-013.</P><P> " Specified Company Code is Invalid</P><P> ENDIF.</P><P> ENDIF.</P><P></P><P> IF P_EXCEL = C_RB_SELECTED.</P><P> IF SY-BATCH EQ C_RB_SELECTED.</P><P> CLEAR SSCRFIELDS-UCOMM.</P><P> MESSAGE E001(ZZ) WITH TEXT-006.</P><P> " Excel file not to be used in Batch Mode</P><P> ENDIF.</P><P> IF P_FILE IS INITIAL.</P><P> CLEAR SSCRFIELDS-UCOMM.</P><P> MESSAGE E001(ZZ) WITH TEXT-007.</P><P> " Input File Missing for Presentation server</P><P> ENDIF.</P><P> ELSEIF P_UNIX = C_RB_SELECTED.</P><P> IF P_DIR IS INITIAL.</P><P> CLEAR SSCRFIELDS-UCOMM.</P><P> MESSAGE E001(ZZ) WITH TEXT-010.</P><P> " Input File Missing for Application server</P><P> ENDIF.</P><P> ENDIF.</P><P></P><P>ENDFORM. " VALIDATE_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form UPLOAD_DATA_UNIX</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>This form is used to upload the data from Unix file using Dataset to</P></LI><LI level="1" type="ul"><P>String W_DATA which is splitted to Int'table IT_DATA</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM UPLOAD_DATA_UNIX .</P><P></P><P> DATA : L_MSG(80) TYPE C,</P><P> L_TAB(4) TYPE X VALUE '09'.</P><P></P><P> OPEN DATASET P_DIR FOR INPUT IN TEXT MODE</P><P> MESSAGE L_MSG</P><P> ENCODING DEFAULT.</P><P> IF SY-SUBRC NE 0.</P><P> MESSAGE E001(ZZ) WITH L_MSG.</P><P> ENDIF.</P><P></P><P> DO.</P><P> READ DATASET P_DIR INTO IT_STRING.</P><P> IF SY-SUBRC = 0.</P><P> APPEND IT_STRING.</P><P> ELSE.</P><P> EXIT.</P><P> ENDIF.</P><P> ENDDO.</P><P> CLOSE DATASET P_DIR.</P><P></P><P> ASSIGN L_TAB TO <FS_CH> CASTING.</P><P> LOOP AT IT_STRING.</P><P> CLEAR : IT_DATA.</P><P> SPLIT IT_STRING-STRING AT <FS_CH></P><P> INTO IT_DATA-SAKNR</P><P> IT_DATA-KTOKS</P><P> IT_DATA-TXT20_ML</P><P> IT_DATA-TXT50_ML</P><P> IT_DATA-CHECK</P><P> IT_DATA-BILKT</P><P> IT_DATA-TXT50</P><P> IT_DATA-VBUND</P><P> IT_DATA-WAERS</P><P> IT_DATA-MWSKZ</P><P> IT_DATA-MITKZ</P><P> IT_DATA-KDFSL</P><P> IT_DATA-WMETH</P><P> IT_DATA-XSALH</P><P> IT_DATA-ALTKT</P><P> IT_DATA-INFKY</P><P> IT_DATA-TOGRU</P><P> IT_DATA-XKRES</P><P> IT_DATA-XOPVW</P><P> IT_DATA-ZUAWA</P><P> IT_DATA-BEGRU</P><P> IT_DATA-BUSAB</P><P> IT_DATA-XMITK</P><P> IT_DATA-FSTAG</P><P> IT_DATA-XINTB</P><P> IT_DATA-XNKON</P><P> IT_DATA-FDLEV</P><P> IT_DATA-FIPOS</P><P> IT_DATA-XGKON</P><P> IT_DATA-HBKID</P><P> IT_DATA-HKTID</P><P> IT_DATA-VZSKZ</P><P> IT_DATA-RECID</P><P> IN CHARACTER MODE.</P><P> APPEND IT_DATA.</P><P> CLEAR : IT_STRING, IT_DATA.</P><P> ENDLOOP.</P><UL><LI level="1" type="ul"><P>Remove the column headings from the input file</P></LI></UL><P> DELETE IT_DATA INDEX 1.</P><P></P><UL><LI level="1" type="ul"><P>The following two lines have been commented out, they relate to data</P></LI><LI level="1" type="ul"><P> issues that must be resolved before using this program</P></LI><LI level="1" type="ul"><P> SORT IT_DATA BY SAKNR.</P></LI><LI level="1" type="ul"><P> DELETE IT_DATA WHERE SAKNR EQ SPACE.</P></LI></UL><P></P><P>ENDFORM. " UPLOAD_DATA_UNIX</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form UPLOAD_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>This form is used to upload the data from flat file using WS_UPLOAD or</P></LI><LI level="1" type="ul"><P>from Application server file using Open dataset to Int'table IT_DATA</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM UPLOAD_DATA .</P><P></P><P> IF P_EXCEL = C_RB_SELECTED.</P><UL><LI level="1" type="ul"><P>Data will be uploaded from Presenatation Server</P></LI></UL><P> PERFORM UPLOAD_DATA_EXCEL.</P><P> ELSEIF P_UNIX = C_RB_SELECTED.</P><UL><LI level="1" type="ul"><P>Data will be uploaded from Application Server</P></LI></UL><P> PERFORM UPLOAD_DATA_UNIX.</P><P> ENDIF.</P><P></P><P>ENDFORM. " UPLOAD_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form CHECK_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form to check the uploaded data for existence in database. If the</P></LI><LI level="1" type="ul"><P>record exists in database a flag is set to the Internal table</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM CHECK_DATA .</P><P></P><P> DATA : L_TABIX LIKE SY-TABIX,</P><P> L_SAKNR(10) TYPE C.</P><P></P><P> LOOP AT IT_DATA.</P><P> L_TABIX = SY-TABIX.</P><P></P><P> CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'</P><P> EXPORTING</P><P> INPUT = IT_DATA-SAKNR</P><P> IMPORTING</P><P> OUTPUT = L_SAKNR.</P><P></P><UL><LI level="1" type="ul"><P>Check if account exists at company code level</P></LI></UL><P> SELECT SINGLE * FROM SKB1 WHERE</P><P> BUKRS = P_BUKRS AND</P><P> SAKNR = L_SAKNR.</P><P></P><P> IF SY-SUBRC EQ 0.</P><P> IT_DATA-FLAG = 'X'.</P><P> ELSE.</P><UL><LI level="1" type="ul"><P>Check if this account exists at the chart level</P></LI></UL><P> SELECT SINGLE KTOPL FROM SKA1</P><P> INTO CORRESPONDING FIELDS OF SKA1</P><P> WHERE KTOPL EQ T001-KTOPL AND</P><P> SAKNR EQ L_SAKNR.</P><P></P><UL><LI level="1" type="ul"><P> If so, record cannot be processed, mark as an error</P></LI></UL><P> IF SYST-SUBRC EQ 0.</P><P> IT_DATA-FLAG = 'A'.</P><P> ENDIF.</P><P> ENDIF.</P><P></P><P></P><P> MODIFY IT_DATA INDEX L_TABIX.</P><P> CLEAR : IT_DATA, L_SAKNR.</P><P> ENDLOOP.</P><P></P><P>ENDFORM. " CHECK_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INSERT_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form to insert the uploaded data into Structures which are passed into</P></LI><LI level="1" type="ul"><P>the Application server for further processing</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM INSERT_DATA .</P><P></P><P> DATA : L_MSG(80) TYPE C.</P><P></P><P> OPEN DATASET P_DIR1 FOR OUTPUT IN TEXT MODE</P><P> MESSAGE L_MSG</P><P> ENCODING DEFAULT.</P><P> IF SY-SUBRC NE 0.</P><P> MESSAGE E001(ZZ) WITH L_MSG.</P><P> ENDIF.</P><P></P><UL><LI level="1" type="ul"><P>Form to insert data into BGR00 Structure</P></LI></UL><P> PERFORM INSERT_BGR00_DATA.</P><P></P><UL><LI level="1" type="ul"><P>Only submit records that can be processed successfully by RFBISA00</P></LI></UL><P> LOOP AT IT_DATA</P><P> WHERE FLAG NE 'A'.</P><P></P><UL><LI level="1" type="ul"><P>Form to insert data into BSK00 Structure</P></LI></UL><P> PERFORM INSERT_BSK00_DATA.</P><P></P><UL><LI level="1" type="ul"><P>Form to insert data into BSKA1 Structure</P></LI></UL><P> PERFORM INSERT_BSKA1_DATA.</P><P></P><UL><LI level="1" type="ul"><P>Form to insert data into BSKAT Structure</P></LI></UL><P> PERFORM INSERT_BSKAT_DATA.</P><P></P><UL><LI level="1" type="ul"><P>Form to insert data into BSKB1 Structure</P></LI></UL><P> PERFORM INSERT_BSKB1_DATA.</P><P></P><P> ENDLOOP.</P><P></P><P> CLEAR W_STRING.</P><P></P><P> CLOSE DATASET P_DIR1.</P><P></P><P>ENDFORM. " INSERT_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INSERT_BGR00_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form used to populate the data to BGR00 structure which is moved to</P></LI><LI level="1" type="ul"><P>Application Server file been specified in the Selection Screen. If</P></LI><LI level="1" type="ul"><P>field has no value '/' is passed into the field.</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM INSERT_BGR00_DATA .</P><P></P><P> DATA : IT_BGR00 LIKE BGR00 OCCURS 0 WITH HEADER LINE.</P><P> CLEAR : W_STRING.</P><P> MOVE C_BGR00 TO IT_BGR00.</P><P> IT_BGR00-STYPE = '0'.</P><P> IT_BGR00-GROUP = P_GROUP.</P><P> IT_BGR00-MANDT = SY-MANDT.</P><P> IT_BGR00-USNAM = SY-UNAME.</P><P> IT_BGR00-START = SY-DATUM.</P><P> IT_BGR00-XKEEP = SPACE.</P><P> MOVE IT_BGR00 TO W_STRING.</P><P> TRANSFER W_STRING TO P_DIR1.</P><P></P><P>ENDFORM. " INSERT_BGR00_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INSERT_BSK00_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form used to populate the data to BSK00 structure which is moved to</P></LI><LI level="1" type="ul"><P>Application Server file been specified in the Selection Screen. If</P></LI><LI level="1" type="ul"><P>field has no value '/' is passed into the field. Based on the flag</P></LI><LI level="1" type="ul"><P>which has been updated in check perform, the transaction code is</P></LI><LI level="1" type="ul"><P>passed. If record exists in database 'FS02' is passed to tcode else</P></LI><LI level="1" type="ul"><P>'FS01' is passed to tcode.</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM INSERT_BSK00_DATA .</P><P></P><P> DATA: IT_BSK00 LIKE BSK00 OCCURS 0 WITH HEADER LINE.</P><P> DATA: L_SAKNR(10) TYPE C.</P><P></P><P> CLEAR : W_STRING.</P><P> MOVE C_BSK00 TO IT_BSK00.</P><P> IT_BSK00-STYPE = '1'.</P><P></P><P> IF IT_DATA-FLAG = 'X'.</P><P> IT_BSK00-TCODE = 'FS02'.</P><P> ELSE.</P><P> IT_BSK00-TCODE = 'FS01'.</P><P> ENDIF.</P><P></P><P> CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'</P><P> EXPORTING</P><P> INPUT = IT_DATA-SAKNR</P><P> IMPORTING</P><P> OUTPUT = L_SAKNR.</P><P></P><P></P><P> IT_BSK00-SAKNR = L_SAKNR.</P><P> IT_BSK00-BUKRS = P_BUKRS.</P><P> MOVE IT_BSK00 TO W_STRING.</P><P> TRANSFER W_STRING TO P_DIR1.</P><P></P><P>ENDFORM. " INSERT_BSK00_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INSERT_BSKA1_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form used to populate the data to BSKA1 structure which is moved to</P></LI><LI level="1" type="ul"><P>Application Server file been specified in the Selection Screen. If</P></LI><LI level="1" type="ul"><P>field has no value '/' is passed into the field.</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM INSERT_BSKA1_DATA .</P><P></P><P> DATA : IT_BSKA1 LIKE BSKA1 OCCURS 0 WITH HEADER LINE.</P><P> CLEAR : W_STRING.</P><P> MOVE C_BSKA1 TO IT_BSKA1.</P><P> IT_BSKA1-STYPE = '2'.</P><P> IT_BSKA1-TBNAM = 'BSKA1'.</P><P> IF IT_DATA-BILKT NE SPACE.</P><P> IT_BSKA1-BILKT = IT_DATA-BILKT.</P><P> ENDIF.</P><P> IF IT_DATA-KTOKS NE SPACE.</P><P> IT_BSKA1-KTOKS = IT_DATA-KTOKS.</P><P> ENDIF.</P><P> IF IT_DATA-VBUND NE SPACE.</P><P> IT_BSKA1-VBUND = IT_DATA-VBUND.</P><P> ELSE.</P><P> IT_BSKA1-VBUND = P_BUKRS.</P><P> ENDIF.</P><P> IF IT_DATA-CHECK = 'BS'.</P><P> IT_BSKA1-XBILK = 'X'.</P><P> ELSE.</P><P> IT_BSKA1-GVTYP = 'X '.</P><P> ENDIF.</P><P> MOVE IT_BSKA1 TO W_STRING.</P><P> TRANSFER W_STRING TO P_DIR1.</P><P></P><P>ENDFORM. " INSERT_BSKA1_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INSERT_BSKAT_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form used to populate the data to BSKAT structure which is moved to</P></LI><LI level="1" type="ul"><P>Application Server file been specified in the Selection Screen. If</P></LI><LI level="1" type="ul"><P>field has no value '/' is passed into the field.</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM INSERT_BSKAT_DATA .</P><P></P><P> DATA : IT_BSKAT LIKE BSKAT OCCURS 0 WITH HEADER LINE.</P><P> CLEAR : W_STRING.</P><P> MOVE C_BSKAT TO IT_BSKAT.</P><P> IT_BSKAT-STYPE = '2'.</P><P> IT_BSKAT-TBNAM = 'BSKAT'.</P><P> IF IT_DATA-TXT20_ML NE SPACE.</P><P> IT_BSKAT-TXT20 = IT_DATA-TXT20_ML.</P><P> ENDIF.</P><P> IF IT_DATA-TXT50_ML NE SPACE.</P><P> IT_BSKAT-TXT50 = IT_DATA-TXT50_ML.</P><P> ENDIF.</P><P> MOVE IT_BSKAT TO W_STRING.</P><P> TRANSFER W_STRING TO P_DIR1.</P><P></P><P>ENDFORM. " INSERT_BSKAT_DATA</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INSERT_BSKB1_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form used to populate the data to BSKB1 structure which is moved to</P></LI><LI level="1" type="ul"><P>Application Server file been specified in the Selection Screen. If</P></LI><LI level="1" type="ul"><P>field has no value '/' is passed into the field.</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM INSERT_BSKB1_DATA .</P><P></P><P> DATA : IT_BSKB1 LIKE BSKB1 OCCURS 0 WITH HEADER LINE.</P><P> CLEAR : W_STRING.</P><P> MOVE C_BSKB1 TO IT_BSKB1.</P><P> IT_BSKB1-STYPE = '2'.</P><P> IT_BSKB1-TBNAM = 'BSKB1'.</P><P> IF IT_DATA-ALTKT NE SPACE.</P><P> IT_BSKB1-ALTKT = IT_DATA-ALTKT.</P><P> ENDIF.</P><P> IF IT_DATA-BEGRU NE SPACE.</P><P> IT_BSKB1-BEGRU = IT_DATA-BEGRU.</P><P> ENDIF.</P><P> IF IT_DATA-BUSAB NE SPACE.</P><P> IT_BSKB1-BUSAB = IT_DATA-BUSAB.</P><P> ENDIF.</P><P> IF IT_DATA-FDLEV NE SPACE.</P><P> IT_BSKB1-FDLEV = IT_DATA-FDLEV.</P><P> ENDIF.</P><P> IF IT_DATA-FIPOS NE SPACE.</P><P> IT_BSKB1-FIPOS = IT_DATA-FIPOS.</P><P> ENDIF.</P><P> IF IT_DATA-FSTAG NE SPACE.</P><P> IT_BSKB1-FSTAG = IT_DATA-FSTAG.</P><P> ENDIF.</P><P> IF IT_DATA-HBKID NE SPACE.</P><P> IT_BSKB1-HBKID = IT_DATA-HBKID.</P><P> ENDIF.</P><P> IF IT_DATA-HKTID NE SPACE.</P><P> IT_BSKB1-HKTID = IT_DATA-HKTID.</P><P> ENDIF.</P><P> IF IT_DATA-KDFSL NE SPACE.</P><P> IT_BSKB1-KDFSL = IT_DATA-KDFSL.</P><P> ENDIF.</P><P> IF IT_DATA-MITKZ NE SPACE.</P><P> IF IT_DATA-MITKZ CA 'CUSTOMER' OR IT_DATA-MITKZ CA 'customer'.</P><P> IT_BSKB1-MITKZ = 'D'.</P><P> ELSEIF IT_DATA-MITKZ CA 'ASSETS' OR IT_DATA-MITKZ CA 'assets'.</P><P> IT_BSKB1-MITKZ = 'A'.</P><P> ELSEIF IT_DATA-MITKZ CA 'VENDORS' OR IT_DATA-MITKZ CA 'vendors'.</P><P> IT_BSKB1-MITKZ = 'K'.</P><P> ELSEIF IT_DATA-MITKZ CA 'CONTRACT' OR IT_DATA-MITKZ CA 'contract'.</P><P> IT_BSKB1-MITKZ = 'V'.</P><P> ENDIF.</P><P> ENDIF.</P><P> IF IT_DATA-MWSKZ NE SPACE.</P><P> IT_BSKB1-MWSKZ = IT_DATA-MWSKZ.</P><P> ENDIF.</P><P> IF IT_DATA-RECID NE SPACE.</P><P> IT_BSKB1-RECID = IT_DATA-RECID.</P><P> ENDIF.</P><P> IF IT_DATA-VZSKZ NE SPACE.</P><P> IT_BSKB1-VZSKZ = IT_DATA-VZSKZ.</P><P> ENDIF.</P><P> IF IT_DATA-WAERS NE SPACE.</P><P> IT_BSKB1-WAERS = IT_DATA-WAERS.</P><P> ENDIF.</P><P> IF IT_DATA-WMETH NE SPACE.</P><P> IT_BSKB1-WMETH = IT_DATA-WMETH.</P><P> ENDIF.</P><P> IF IT_DATA-XGKON NE SPACE.</P><P> IF IT_DATA-XGKON EQ 'Y'.</P><P> IT_BSKB1-XGKON = 'X'.</P><P> ENDIF.</P><P> ENDIF.</P><P> IF IT_DATA-XINTB NE SPACE.</P><P> IT_BSKB1-XINTB = 'X'.</P><P> ENDIF.</P><P> IF IT_DATA-XKRES NE SPACE.</P><P> IF IT_DATA-XKRES EQ 'Y'.</P><P> IT_BSKB1-XKRES = 'X'.</P><P> ENDIF.</P><P> ENDIF.</P><P> IF IT_DATA-XMITK NE SPACE.</P><P> IT_BSKB1-XMITK = 'X'.</P><P> ENDIF.</P><P> IF IT_DATA-XNKON NE SPACE.</P><P> IT_BSKB1-XNKON = 'X'.</P><P> ENDIF.</P><P> IF IT_DATA-XOPVW NE SPACE.</P><P> IF IT_DATA-XOPVW EQ 'Y'.</P><P> IT_BSKB1-XOPVW = 'X'.</P><P> ENDIF.</P><P> ENDIF.</P><P> IF IT_DATA-ZUAWA NE SPACE.</P><P> IT_BSKB1-ZUAWA = IT_DATA-ZUAWA.</P><P> ENDIF.</P><P> IF IT_DATA-XSALH NE SPACE.</P><P> IT_BSKB1-XSALH = 'X'.</P><P> ENDIF.</P><P> IF IT_DATA-INFKY NE SPACE.</P><P> IT_BSKB1-INFKY = IT_DATA-INFKY.</P><P> ENDIF.</P><P> IF IT_DATA-TOGRU NE SPACE.</P><P> IT_BSKB1-TOGRU = IT_DATA-TOGRU.</P><P> ENDIF.</P><P> MOVE IT_BSKB1 TO W_STRING.</P><P> TRANSFER W_STRING TO P_DIR1.</P><P></P><P>ENDFORM. " INSERT_BSKB1_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form SUBMIT_FILE</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form to submit the application server file path along with 2 other</P></LI><LI level="1" type="ul"><P>fields to RFBISA00 program for processing of data. This sumbit returns</P></LI><LI level="1" type="ul"><P>the standard message of RFBISA00 program which has messages along with</P></LI><LI level="1" type="ul"><P>the Session method name created. This Session can be processed using</P></LI><LI level="1" type="ul"><P>SM35 transaction for either creating or updating of data.</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM SUBMIT_FILE .</P><P></P><P> SUBMIT RFBISA00 AND RETURN</P><P> WITH DS_NAME = P_DIR1</P><P> WITH FL_DINP = 'X'</P><P> WITH FL_CHECK = P_CHECK.</P><P></P><P>ENDFORM. " SUBMIT_FILE</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form UPLOAD_DATA_EXCEL</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form used to upload data from Presentation server to Int'table it_data</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM UPLOAD_DATA_EXCEL .</P><P></P><P> DATA : L_FILENAME TYPE STRING,</P><P> L_FILETYPE TYPE CHAR10 VALUE 'ASC',</P><P> L_HEADER_LENGTH TYPE I VALUE 0,</P><P> L_READ_BY_LINE TYPE CHAR01 VALUE 'X'.</P><P></P><P> MOVE P_FILE TO L_FILENAME.</P><P> CALL FUNCTION 'GUI_UPLOAD'</P><P> EXPORTING</P><P> FILENAME = L_FILENAME</P><P> FILETYPE = L_FILETYPE</P><P> HEADER_LENGTH = L_HEADER_LENGTH</P><P> READ_BY_LINE = L_READ_BY_LINE</P><P> HAS_FIELD_SEPARATOR = C_SPLIT</P><P> TABLES</P><P> DATA_TAB = IT_DATA</P><P> EXCEPTIONS</P><P> FILE_OPEN_ERROR = 1</P><P> FILE_READ_ERROR = 2</P><P> NO_BATCH = 3</P><P> GUI_REFUSE_FILETRANSFER = 4</P><P> INVALID_TYPE = 5</P><P> NO_AUTHORITY = 6</P><P> UNKNOWN_ERROR = 7</P><P> BAD_DATA_FORMAT = 8</P><P> HEADER_NOT_ALLOWED = 9</P><P> SEPARATOR_NOT_ALLOWED = 10</P><P> HEADER_TOO_LONG = 11</P><P> UNKNOWN_DP_ERROR = 12</P><P> ACCESS_DENIED = 13</P><P> DP_OUT_OF_MEMORY = 14</P><P> DISK_FULL = 15</P><P> DP_TIMEOUT = 16</P><P> OTHERS = 17.</P><P> IF SY-SUBRC <> 0.</P><P> MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P><P> ENDIF.</P><P> DELETE IT_DATA INDEX 1.</P><P> SORT IT_DATA BY SAKNR.</P><P> DELETE IT_DATA WHERE SAKNR EQ SPACE.</P><P></P><P>ENDFORM. " UPLOAD_DATA_EXCEL</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="---------------------------------------------------------------" /><P></P><P>*& Form WRITE_REPORT</P><P><STRONG>&----</STRONG></P><HR originaltext="---------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> - Writes out a list of accounts that cannot be processed via</P></LI><LI level="1" type="ul"><P> RFBISA00 due to existence at the chart level and possibly at</P></LI><LI level="1" type="ul"><P> least one other company code</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM WRITE_REPORT.</P><P></P><P> LOOP AT IT_DATA</P><P> WHERE FLAG = 'A'.</P><P></P><P> WRITE: /05 'Account',</P><P> IT_DATA-SAKNR,</P><P> 'does not exist for Company Code',</P><P> P_BUKRS,</P><P> 'but already exists for chart',</P><P> T001-KTOPL.</P><P></P><P> ENDLOOP.</P><P></P><P>ENDFORM. "write_report</P></BODY></HTML> Sat, 18 Nov 2006 07:26:16 GMT https://community.sap.com/t5/application-development-and-automation-discussions/uploading-thru-bapi/m-p/1712662#M311688 Former Member 2006-11-18T07:26:16Z