topic Re: BDC SESSION in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/bdc-session/m-p/1811907#M348027 <HTML><HEAD></HEAD><BODY><P>Hi all,</P><P></P><P>Code......FYR...........</P><P></P><P></P><P>form session.</P><P></P><P>DATA: V_DATUM(10),</P><P> V_DATUM1 LIKE SY-DATUM,</P><P> V_DATE(8),</P><P> V_CHAR(10).</P><P></P><UL><LI level="1" type="ul"><P>OPEN BDC.</P></LI></UL><P> PERFORM OPEN_BDC.</P><P></P><UL><LI level="1" type="ul"><P>CLAER HEADER INFORMATION OF INTERNAL TABLE</P></LI></UL><P> CLEAR: IT_DATATAB.</P><P></P><UL><LI level="1" type="ul"><P>PROCESS THE INTERNAL TABLE DATA</P></LI></UL><P> LOOP AT IT_DATATAB.</P><P></P><UL><LI level="1" type="ul"><P>SCREEN 1 - INDICATE THE FINALCIAL HEADER INFORMATION.</P></LI></UL><P></P><P> PERFORM BDC_DYNPRO USING 'SAPMF05A' '0100'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'RF05A-NEWUM'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.</P><P>PERFORM BDC_FIELD USING 'BKPF-BLDAT' IT_DATATAB-BLDAT.</P><P> PERFORM BDC_FIELD USING 'BKPF-BLART' IT_DATATAB-BLART.</P><P></P><P> PERFORM BDC_FIELD USING 'BKPF-BUKRS' IT_DATATAB-BUKRS</P><P>PERFORM BDC_FIELD USING 'BKPF-BUDAT' IT_DATATAB-BUDAT.</P><P> PERFORM BDC_FIELD USING 'BKPF-MONAT' IT_DATATAB-MONAT.</P><P> PERFORM BDC_FIELD USING 'BKPF-WAERS' IT_DATATAB-WAERS.</P><P> PERFORM BDC_FIELD USING 'BKPF-BKTXT' IT_DATATAB-BKTXT.</P><P> PERFORM BDC_FIELD USING 'RF05A-NEWBS' IT_DATATAB-NEWBS1.</P><P>PERFORM BDC_FIELD USING 'RF05A-NEWKO' IT_DATATAB-NEWKO1.</P><P>PERFORM BDC_FIELD USING 'RF05A-NEWUM' IT_DATATAB-NEWUM1.</P><P>PERFORM BDC_DYNPRO USING 'SAPMF05A' '0303'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'RF05A-NEWKO1'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM BDC_FIELD USING 'BSEG-WRBTR' IT_DATATAB-WRBTR1.</P><P> PERFORM BDC_FIELD USING 'BSEG-ZFBDT' IT_DATATAB-ZFBDT1.</P><P>PERFORM BDC_FIELD USING 'BSEG-ZUONR' IT_DATATAB-ZUONR1.</P><P>PERFORM BDC_FIELD USING 'BSEG-SGTXT' IT_DATATAB-SGTXT1.</P><P>PERFORM BDC_FIELD USING 'RF05A-NEWKO' IT_DATATAB-NEWKO2.</P><P>PERFORM BDC_DYNPRO USING 'SAPMF05A' '0300'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'BSEG-SGTXT'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ZK'.</P><P>PERFORM BDC_FIELD USING 'BSEG-VALUT' IT_DATATAB-VALUT2.</P><P>PERFORM BDC_FIELD USING 'BSEG-ZUONR' IT_DATATAB-ZUONR2.</P><P></P><P> PERFORM BDC_FIELD USING 'BSEG-SGTXT' IT_DATATAB-SGTXT2.</P><P> PERFORM BDC_FIELD USING 'BDC_SUBSCR' 'SAPLKACB '.</P><P> PERFORM BDC_FIELD USING 'DKACB-FMORE' 'X'.</P><P></P><P> PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'COBL-KDPOS'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTE'.</P><P> PERFORM BDC_FIELD USING 'COBL-PS_POSID' IT_DATATAB-POSID.</P><P> PERFORM BDC_FIELD USING 'COBL-KDAUF' IT_DATATAB-KDAUF.</P><P> PERFORM BDC_FIELD USING 'COBL-KDPOS' IT_DATATAB-KDPOS.</P><P> PERFORM BDC_FIELD USING 'BDC_SUBSCR' 'SAPLKACB '.</P><P></P><P> PERFORM BDC_DYNPRO USING 'SAPMF05A' '0330'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'BSEG-LZBKZ'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '=BU'.</P><P></P><UL><LI level="1" type="ul"><P>SAVE TRANSACTION.</P></LI></UL><P> PERFORM INSERT_BDC USING 'FB01'.</P><P></P><P> ENDLOOP.</P><P></P><UL><LI level="1" type="ul"><P>CLOSE BDC</P></LI></UL><P> PERFORM CLOSE_BDC.</P><P>ENDFORM.</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM OPEN_BDC</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>FORM OPEN_BDC.</P><P></P><P> CALL FUNCTION 'BDC_OPEN_GROUP'</P><P> EXPORTING</P><P> CLIENT = SY-MANDT</P><P> GROUP = P_GROUP</P><P> KEEP = 'X'</P><P> USER = SY-UNAME.</P><P>ENDFORM. " OPEN_BDC</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM CLOSE_BDC</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>FORM CLOSE_BDC.</P><P> CALL FUNCTION 'BDC_CLOSE_GROUP'.</P><P>ENDFORM. " CLOSE_BDC</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM BDC_DYNPRO</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>FORM BDC_DYNPRO USING VALUE(PROGNAME) VALUE(DYNPRONR).</P><P></P><UL><LI level="1" type="ul"><P>CLEAR HEADER-LINE.</P></LI></UL><P> CLEAR IT_BDCTAB.</P><P></P><UL><LI level="1" type="ul"><P>INSERT DATA.</P></LI></UL><P> IT_BDCTAB-PROGRAM = PROGNAME.</P><P> IT_BDCTAB-DYNPRO = DYNPRONR.</P><P> IT_BDCTAB-DYNBEGIN = 'X'.</P><P></P><UL><LI level="1" type="ul"><P>SAVE VALUE.</P></LI></UL><P> APPEND IT_BDCTAB.</P><P></P><P>ENDFORM. " BDC_DYNPRO</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM BDC_FIELD</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM BDC_FIELD USING VALUE(FIELDNAME) VALUE(FIELDVALUE).</P><P></P><UL><LI level="1" type="ul"><P>CLEAR HEADER-LINE.</P></LI></UL><P> CLEAR IT_BDCTAB.</P><P></P><UL><LI level="1" type="ul"><P>INSERT DATA.</P></LI></UL><P> IT_BDCTAB-FNAM = FIELDNAME.</P><P> IT_BDCTAB-FVAL = FIELDVALUE.</P><P></P><UL><LI level="1" type="ul"><P>SAVE DATE.</P></LI></UL><P> APPEND IT_BDCTAB.</P><P></P><P>ENDFORM. " BDC_FIELD</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P>FORM BDC_CURSOR</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM BDC_CURSOR USING VALUE(FIELDNAME) VALUE(FIELDVALUE).</P><P></P><UL><LI level="1" type="ul"><P>CLEAR HEADER-LINE.</P></LI></UL><P> CLEAR IT_BDCTAB.</P><P></P><UL><LI level="1" type="ul"><P>INSERT DATA.</P></LI></UL><P> IT_BDCTAB-FNAM = FIELDNAME.</P><P> IT_BDCTAB-FVAL = FIELDVALUE.</P><P></P><UL><LI level="1" type="ul"><P>SAVE DATA.</P></LI></UL><P> APPEND IT_BDCTAB.</P><P></P><P>ENDFORM. " BDC_CURSOR</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM INSERT_BDC</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM INSERT_BDC USING T_CODE.</P><P></P><P> CALL FUNCTION 'BDC_INSERT'</P><P> EXPORTING</P><P> TCODE = T_CODE</P><P> TABLES</P><P> DYNPROTAB = IT_BDCTAB.</P><P> REFRESH IT_BDCTAB.</P><P> CLEAR IT_BDCTAB.</P><P></P><P>ENDFORM. " INSERT_BDC</P><P></P><P></P><P>Plz guide me , i look forward to your reply</P><P></P><P>Thanks &amp; Regards</P><P>Hruday</P></BODY></HTML> Thu, 14 Dec 2006 09:45:16 GMT Former Member 2006-12-14T09:45:16Z BDC SESSION https://community.sap.com/t5/application-development-and-automation-discussions/bdc-session/m-p/1811905#M348025 <HTML><HEAD></HEAD><BODY><P>Hi All,</P><P></P><P>I had developed BDC (Session) Program, While exection of this program i got one pop-up window with message like "BDCWAIT:78570394039" </P><P></P><P>i want prevent this pop-up window with message , plz guide me, how to avoid this</P><P></P><P>i look forward to your reply</P><P></P><P>Thanks </P><P>Hruday</P></BODY></HTML> Thu, 14 Dec 2006 09:19:19 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-session/m-p/1811905#M348025 Former Member 2006-12-14T09:19:19Z Re: BDC SESSION https://community.sap.com/t5/application-development-and-automation-discussions/bdc-session/m-p/1811906#M348026 <HTML><HEAD></HEAD><BODY><P>Can you post your code???</P><P></P><P>Kind Regards</P><P>Eswar</P></BODY></HTML> Thu, 14 Dec 2006 09:24:24 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-session/m-p/1811906#M348026 Former Member 2006-12-14T09:24:24Z Re: BDC SESSION https://community.sap.com/t5/application-development-and-automation-discussions/bdc-session/m-p/1811907#M348027 <HTML><HEAD></HEAD><BODY><P>Hi all,</P><P></P><P>Code......FYR...........</P><P></P><P></P><P>form session.</P><P></P><P>DATA: V_DATUM(10),</P><P> V_DATUM1 LIKE SY-DATUM,</P><P> V_DATE(8),</P><P> V_CHAR(10).</P><P></P><UL><LI level="1" type="ul"><P>OPEN BDC.</P></LI></UL><P> PERFORM OPEN_BDC.</P><P></P><UL><LI level="1" type="ul"><P>CLAER HEADER INFORMATION OF INTERNAL TABLE</P></LI></UL><P> CLEAR: IT_DATATAB.</P><P></P><UL><LI level="1" type="ul"><P>PROCESS THE INTERNAL TABLE DATA</P></LI></UL><P> LOOP AT IT_DATATAB.</P><P></P><UL><LI level="1" type="ul"><P>SCREEN 1 - INDICATE THE FINALCIAL HEADER INFORMATION.</P></LI></UL><P></P><P> PERFORM BDC_DYNPRO USING 'SAPMF05A' '0100'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'RF05A-NEWUM'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.</P><P>PERFORM BDC_FIELD USING 'BKPF-BLDAT' IT_DATATAB-BLDAT.</P><P> PERFORM BDC_FIELD USING 'BKPF-BLART' IT_DATATAB-BLART.</P><P></P><P> PERFORM BDC_FIELD USING 'BKPF-BUKRS' IT_DATATAB-BUKRS</P><P>PERFORM BDC_FIELD USING 'BKPF-BUDAT' IT_DATATAB-BUDAT.</P><P> PERFORM BDC_FIELD USING 'BKPF-MONAT' IT_DATATAB-MONAT.</P><P> PERFORM BDC_FIELD USING 'BKPF-WAERS' IT_DATATAB-WAERS.</P><P> PERFORM BDC_FIELD USING 'BKPF-BKTXT' IT_DATATAB-BKTXT.</P><P> PERFORM BDC_FIELD USING 'RF05A-NEWBS' IT_DATATAB-NEWBS1.</P><P>PERFORM BDC_FIELD USING 'RF05A-NEWKO' IT_DATATAB-NEWKO1.</P><P>PERFORM BDC_FIELD USING 'RF05A-NEWUM' IT_DATATAB-NEWUM1.</P><P>PERFORM BDC_DYNPRO USING 'SAPMF05A' '0303'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'RF05A-NEWKO1'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM BDC_FIELD USING 'BSEG-WRBTR' IT_DATATAB-WRBTR1.</P><P> PERFORM BDC_FIELD USING 'BSEG-ZFBDT' IT_DATATAB-ZFBDT1.</P><P>PERFORM BDC_FIELD USING 'BSEG-ZUONR' IT_DATATAB-ZUONR1.</P><P>PERFORM BDC_FIELD USING 'BSEG-SGTXT' IT_DATATAB-SGTXT1.</P><P>PERFORM BDC_FIELD USING 'RF05A-NEWKO' IT_DATATAB-NEWKO2.</P><P>PERFORM BDC_DYNPRO USING 'SAPMF05A' '0300'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'BSEG-SGTXT'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ZK'.</P><P>PERFORM BDC_FIELD USING 'BSEG-VALUT' IT_DATATAB-VALUT2.</P><P>PERFORM BDC_FIELD USING 'BSEG-ZUONR' IT_DATATAB-ZUONR2.</P><P></P><P> PERFORM BDC_FIELD USING 'BSEG-SGTXT' IT_DATATAB-SGTXT2.</P><P> PERFORM BDC_FIELD USING 'BDC_SUBSCR' 'SAPLKACB '.</P><P> PERFORM BDC_FIELD USING 'DKACB-FMORE' 'X'.</P><P></P><P> PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'COBL-KDPOS'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTE'.</P><P> PERFORM BDC_FIELD USING 'COBL-PS_POSID' IT_DATATAB-POSID.</P><P> PERFORM BDC_FIELD USING 'COBL-KDAUF' IT_DATATAB-KDAUF.</P><P> PERFORM BDC_FIELD USING 'COBL-KDPOS' IT_DATATAB-KDPOS.</P><P> PERFORM BDC_FIELD USING 'BDC_SUBSCR' 'SAPLKACB '.</P><P></P><P> PERFORM BDC_DYNPRO USING 'SAPMF05A' '0330'.</P><P> PERFORM BDC_CURSOR USING 'BDC_CURSOR' 'BSEG-LZBKZ'.</P><P> PERFORM BDC_FIELD USING 'BDC_OKCODE' '=BU'.</P><P></P><UL><LI level="1" type="ul"><P>SAVE TRANSACTION.</P></LI></UL><P> PERFORM INSERT_BDC USING 'FB01'.</P><P></P><P> ENDLOOP.</P><P></P><UL><LI level="1" type="ul"><P>CLOSE BDC</P></LI></UL><P> PERFORM CLOSE_BDC.</P><P>ENDFORM.</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM OPEN_BDC</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>FORM OPEN_BDC.</P><P></P><P> CALL FUNCTION 'BDC_OPEN_GROUP'</P><P> EXPORTING</P><P> CLIENT = SY-MANDT</P><P> GROUP = P_GROUP</P><P> KEEP = 'X'</P><P> USER = SY-UNAME.</P><P>ENDFORM. " OPEN_BDC</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM CLOSE_BDC</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>FORM CLOSE_BDC.</P><P> CALL FUNCTION 'BDC_CLOSE_GROUP'.</P><P>ENDFORM. " CLOSE_BDC</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM BDC_DYNPRO</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>FORM BDC_DYNPRO USING VALUE(PROGNAME) VALUE(DYNPRONR).</P><P></P><UL><LI level="1" type="ul"><P>CLEAR HEADER-LINE.</P></LI></UL><P> CLEAR IT_BDCTAB.</P><P></P><UL><LI level="1" type="ul"><P>INSERT DATA.</P></LI></UL><P> IT_BDCTAB-PROGRAM = PROGNAME.</P><P> IT_BDCTAB-DYNPRO = DYNPRONR.</P><P> IT_BDCTAB-DYNBEGIN = 'X'.</P><P></P><UL><LI level="1" type="ul"><P>SAVE VALUE.</P></LI></UL><P> APPEND IT_BDCTAB.</P><P></P><P>ENDFORM. " BDC_DYNPRO</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM BDC_FIELD</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM BDC_FIELD USING VALUE(FIELDNAME) VALUE(FIELDVALUE).</P><P></P><UL><LI level="1" type="ul"><P>CLEAR HEADER-LINE.</P></LI></UL><P> CLEAR IT_BDCTAB.</P><P></P><UL><LI level="1" type="ul"><P>INSERT DATA.</P></LI></UL><P> IT_BDCTAB-FNAM = FIELDNAME.</P><P> IT_BDCTAB-FVAL = FIELDVALUE.</P><P></P><UL><LI level="1" type="ul"><P>SAVE DATE.</P></LI></UL><P> APPEND IT_BDCTAB.</P><P></P><P>ENDFORM. " BDC_FIELD</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P>FORM BDC_CURSOR</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM BDC_CURSOR USING VALUE(FIELDNAME) VALUE(FIELDVALUE).</P><P></P><UL><LI level="1" type="ul"><P>CLEAR HEADER-LINE.</P></LI></UL><P> CLEAR IT_BDCTAB.</P><P></P><UL><LI level="1" type="ul"><P>INSERT DATA.</P></LI></UL><P> IT_BDCTAB-FNAM = FIELDNAME.</P><P> IT_BDCTAB-FVAL = FIELDVALUE.</P><P></P><UL><LI level="1" type="ul"><P>SAVE DATA.</P></LI></UL><P> APPEND IT_BDCTAB.</P><P></P><P>ENDFORM. " BDC_CURSOR</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> FORM INSERT_BDC</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM INSERT_BDC USING T_CODE.</P><P></P><P> CALL FUNCTION 'BDC_INSERT'</P><P> EXPORTING</P><P> TCODE = T_CODE</P><P> TABLES</P><P> DYNPROTAB = IT_BDCTAB.</P><P> REFRESH IT_BDCTAB.</P><P> CLEAR IT_BDCTAB.</P><P></P><P>ENDFORM. " INSERT_BDC</P><P></P><P></P><P>Plz guide me , i look forward to your reply</P><P></P><P>Thanks &amp; Regards</P><P>Hruday</P></BODY></HTML> Thu, 14 Dec 2006 09:45:16 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-session/m-p/1811907#M348027 Former Member 2006-12-14T09:45:16Z