怎么生成二维码

SAP中生成二维码

新版的ERP已经支持二维码，但是未升级的ERP需要借助二维码

API来生成二维码，一般网络上都是一段固定的代码，下面我就来说明

SAP生成二维码的方法。若有不太明白的地方欢迎留言或邮件

****************

最下端是SAP端的源码程序，此中运用了Smartforms，关于

smartforms你可以参考

/charmean/article/details/78135632介绍了

smartforms的用法

CONCATENATE'http://172.16.0.150/?text='qr_textI

NTOurl.

CALLMETHODcl_http_client=>create_by_url

EXPORTING

url=url

IMPORTING

client=http_client

EXCEPTIONS

argument_not_found=1

plugin_not_active=2

internal_error=3

OTHERS=4.

IFsy-subrc=0.

http_client->nd().

http_client->receive().

content=http_client->respon->get_data().

http_client->clo().

l_str_length=xstrlen(content).

CALLFUNCTION'RSFO_XSTRING_TO_MIME'

EXPORTING

c_xstring=content

i_length=l_str_length

TABLES

c_t_mime=mime.

ENDIF.

以上这段代码是SAP从API接口获得16进制数据，可以是文字

和图片，图片是要先放入SE78然后才能显示

gi_name='ERWEIMA'.'nameoftheqrcodewillbeins

e78afteronetimerunningthisprogram

gi_object='GRAPHICS'.

gi_id='BMAP'.

gi_btype='BMON'.'IfuwantblackandwhitepassBMON

gi_resident='二维码'.

gi_autoheight='X'.

gi_bmcomp='X'.

l_extension='BMP'.

'importingtheimageinto78beforedisplayingitinthes

martform.

performimport_bitmap_bdsusingblob

gi_name

gi_object

gi_id

gi_btype

l_extension

''

gi_resident

gi_autoheight

gi_bmcomp

changingl_docid

gi_resolution.

此代码是将数据放在SAP系统图片：注意SAP只支持BMP的图

片格式，而一般网络API接口中的二维码图片的PNG格式会比较多，

所以SAP中有专门的图片转换程序

FORMconvert_image.

CREATEOBJECTi_igs_image_converter.

i_igs_image_converter->input='image/png'.

i_igs_image_converter->output='image/bmp'.

i_igs_image_converter->width=200.

i_igs_image_converter->height=200.

CALLMETHODi_igs_image_converter->t_image

EXPORTING

blob=mime

blob_size=l_content_length.

CALLMETHODi_igs_image_converter->execute

EXCEPTIONS

communication_error=1

internal_error=2

external_error=3

OTHERS=4.

IFsy-subrc=0.

CALLMETHODi_igs_image_converter->get_image

IMPORTING

blob=blob

blob_size=blob_size

blob_type=blob_type.

ENDIF.

IFsy-subrc=0.

PERFORMshow_smart_form.'callingthesmartformforqrco

dedisplay

ELSE.

WRITE:'convertfailed!pleawaitaminuteorcheackyourI

nternet'.

ENDIF.

ENDFORM.

当然你也可以自己生成的png格式图片在API接口端进行转换，

然后系统直接获取的是BMP的图片格式，这样就可以不用经过此程序

进行图片格式的转换了。

REPORTZPPT0021.

***************************************************************

*********

*&---------------------------------------------------------------

------*

*&Report:ZPPT0021

*&CreatDate:20170712

*&Author:wangcm

*&Referenceresources:Internet

*&Purpo:

*&SuitableforinnerlabelprintingofNanjingDingzheng

IMD.

*&---------------------------------------------------------------

------*

***************************************************************

*********

DATA:urttingsTYPETDBOOL.

DATA:fnameTYPERS38L_FNAM.

DATA:bds_descriptionlikebapisignat-prop_value.

DATA:qr_textTYPEchar200.

DATAMAKTXTYPEMAKTX.

data:maktx1typemaktx.

DATA:MATNRTYPEMATNR,

AUFNRTYPEAUFNR,

MANDTTYPEMANDT.

data:E_AUFNRtypeAUFNR,

E_BUDATLIKEAFRU-BUDAT,

E_FENQIETYPECHAR10,

E_QUANTITYTYPECHAR10,

liushui(12)TYPEC,

E_xuhao(6)TYPEC,

E_PCSTYPEchar10.

data:mdatetypesy-datum,

datetypechar8.

DATA:ctrl_paramTYPEssfctrlop,

out_option1TYPEssfcompop.

*BDShandling

constants:

*c_bds_classnametypesbdst_classnamevalue'DEVC

_STXD_BITMAP',

c_bds_classnameTYPEbapibds01-

classnamevalue'DEVC_STXD_BITMAP',

*c_bds_classtypetypesbdst_classtypevalue'OT',

'others

c_bds_classtypetypebapibds01-

classtypevalue'OT','others

*c_bds_mimetypetypebds_mimetpvalue'applic

ation/octet-stream',

c_bds_mimetypetypebds_mimetpvalue'application/oct

et-stream',

*c_bds_originaltypesbdst_doc_var_tgvalue'OR'.

c_bds_originaltypebapibds01-doc_var_tgvalue'OR'.

TABLESZIMD_WEIYIMA.

DATA:BEGINOFWEIYIMAOCCURS0.

INCLUDESTRUCTUREZIMD_WEIYIMA.

DATAENDOFWEIYIMA.

*Graphichandling

constants:

c_stdtextlikethead-tdobjectvalue'TEXT',

c_graphicslikethead-tdobjectvalue'GRAPHICS',

c_bmonlikethead-tdidvalue'BMON',

c_bcollikethead-tdidvalue'BCOL'.

DATA:gi_filenametyperlgrap-filename,

gi_nametypestxbitmaps-tdname,

gi_objecttypestxbitmaps-tdobject,

gi_idtypestxbitmaps-tdid,

gi_btypetypestxbitmaps-tdbtype,

gi_residenttypestxbitmaps-resident,

gi_autoheighttypestxbitmaps-autoheight,

gi_bmcomptypestxbitmaps-bmcomp,

gi_resolutiontypestxbitmaps-resolution,

l_extensiontyperlgrap-filename,

l_docidtypestxbitmaps-docid.

'PictureControl

DATA:picture_containerTYPEREFTOcl_gui_custom_contain

er,

picture_controlTYPEREFTOcl_gui_picture.

DATA:l_img_urlTYPEw3url.

DATA:l_img_subtypeTYPEw3param-cont_type.

DATA:l_str_lengthTYPEi.

DATA:urlTYPEstring.

DATA:l_content_lengthTYPEi.

DATA:mimeTYPEw3mimetabtype.

DATA:blobTYPEw3mimetabtype,

blob_sizeTYPEw3param-cont_len,

blob_typeTYPEw3param-cont_type.

DATA:i_igs_image_converterTYPEREFTOcl_igs_image_con

verter.

DATA:contentTYPExstring.

DATA:http_clientTYPEREFTOif_http_client.

datatimetypesy-uzeit.

TYPES:BEGINOFty_binary,

binary_field(1000)TYPEc,

ENDOFty_binary.

DATA:hex_tab1TYPETABLEOFty_binaryWITHHEADERLI

NE.

DATA:EXCEL_DATATYPEALSMEX_TABLINEOCCURS20WIT

HHEADERLINE.'表结构

SELECTION-

SCREEN:BEGINOFBLOCKINPUT3WITHFRAMETITLETEXT-003.

*PARAMETERS:P_WERKSLIKET001W-

WERKSMEMORYIDWRKOBLIGATORY.

PARAMETERS:

EXCELTYPECRADIOBUTTONGROUPGP1,

SCREENTYPECRADIOBUTTONGROUPGP1.

SELECTION-SCREEN:ENDOFBLOCKINPUT3.

SELECTION-

SCREEN:BEGINOFBLOCKINPUT4WITHFRAMETITLETEXT-004.

PARAMETERS:

printTYPECRADIOBUTTONGROUPGP2,

times(1)typenDEFAULT2,

scanTYPECRADIOBUTTONGROUPGP2.

SELECTION-SCREEN:ENDOFBLOCKINPUT4.

SELECTION-

SCREEN:BEGINOFBLOCKINPUT1WITHFRAMETITLETEXT-001.

PARAMETERS:P_FILELIKERLGRAP-

FILENAMEMEMORYIDF_DIR2VISIBLELENGTH100.'OBLIGAT

ORY.

SELECTION-SCREEN:ENDOFBLOCKINPUT1.

SELECTION-

SCREEN:BEGINOFBLOCKINPUT2WITHFRAMETITLETEXT-002.

PARAMETERS:NAME_NUMTYPEAUFNR.

PARAMETERS:FENQIETYPECHAR10.

PARAMETERS:QUANTITYTYPECHAR10.

PARAMETERS:S_BUDATtypechar8.

PARAMETERS:xuhao(6)typec.

PARAMETERS:PCStypechar10.

SELECTION-SCREEN:ENDOFBLOCKINPUT2.

ATSELECTION-SCREENONVALUE-REQUESTFORP_FILE.

PERFORMSELECT_FILE.'选择需要上载的文件

START-OF-SELECTION.

PERFORMPRINT_PTION.

PERFORMinput_information.

*&---------------------------------------------------------------

------*

*&FormDOWNLOAD_QRCODE

*&---------------------------------------------------------------

------*

*text

*-----------------------------------------------------------------

-----*

*-->p1text

*<--p2text

*-----------------------------------------------------------------

-----*

FORMarch_MANDT.

SELECTMATNRFROMafPO

INTOMATNR

WHEREAFPO~AUFNR=E_AUFNR.

ENDSELECT.

ENDFORM.

FORMPRINT_PTION.

IFscan='X'.

ctrl_param-preview='X'.

out_option1-tddest='LP01'.'inyourcaitisLOCL

ctrl_param-no_dialog='X'.

ELSE.

ctrl_param-NO_DIALOG='X'.

out_option1-TDNEWID='X'.'NewSpool

out_option1-TDIMMED='X'.

out_option1-TDDELETE='X'.'DeleteSpoolAfterPrint

out_option1-TDFINAL='X'.

out_option1-

TDIEXIT='X'.'Exitafterprintinginprintpreview

out_option1-TDDEST='ZSAP'.

urttings=''.

ENDIF.

ENDFORM.

FORMinput_information.

ifSCREEN='X'.

E_AUFNR=NAME_NUM.

E_BUDAT=S_BUDAT.

E_FENQIE=FENQIE.

E_QUANTITY=QUANTITY.

E_xuhao=xuhao.

E_PCS=PCS.

ifE_AUFNR=''.

MESSAGEi192(YB)WITH'请维护基本数据！'.

exit.

el.

PERFORMarch_MANDT.

PERFORMSearchMAKTX.

PERFORMdownload_qrcode.

PERFORMconvert_image.

endif.

ELSE.

ifP_FILE=''.

MESSAGEi192(YB)WITH'请维护基本数据！'.

exit.

el.

PERFORMGET_EXCEL_DATA.'处理excel中上载的数据

PERFORMPROCESS_EXCEL.

endif.

ENDIF.

ENDFORM.

FORMGET_EXCEL_DATA.

CALLFUNCTION'ALSM_EXCEL_TO_INTERNAL_TABLE'

*导入EXCEL数据到内表

EXPORTING

FILENAME=P_FILE

I_BEGIN_COL='2'

I_BEGIN_ROW='2'

I_END_COL='8'

I_END_ROW='9999'

TABLES

INTERN=EXCEL_DATA.

SORTEXCEL_DATABYROWCOL.

ENDFORM.

FORMPROCESS_EXCEL.

CLEAR:E_AUFNR,

E_BUDAT,

E_FENQIE,

E_QUANTITY,

E_xuhao,

liushui.

LOOPATEXCEL_DATA.

CASEEXCEL_DATA-COL.

WHEN1.

E_AUFNR=EXCEL_DATA-VALUE.

WHEN2.

E_FENQIE=EXCEL_DATA-VALUE.

WHEN3.

E_QUANTITY=EXCEL_DATA-VALUE.

WHEN4.

E_BUDAT=EXCEL_DATA-VALUE.

WHEN5.

E_xuhao=EXCEL_DATA-VALUE.

when6.

E_PCS=EXCEL_DATA-VALUE.

ENDCASE.

*ATENDOFROW.'每行结束就执行bapi更新

ATENDOFROW.

PERFORMadd_zero_aufnrCHANGINGE_AUFNRE_AUFNR.

PERFORMarch_MANDT.

PERFORMSearchMAKTX.

WAITUPTO'1'SECONDS.

PERFORMdownload_qrcode.

PERFORMconvert_image.

ENDAT.

*PERFORMOUT_MESSAGE.'输出信息

CLEAR:EXCEL_DATA.

ENDLOOP.

ENDFORM.'PROCESS_EXCEL

FORMadd_zero_aufnrCHANGINGab.

CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'

'去除大订单号的前导0

EXPORTING

input=a

IMPORTING

output=b.

ENDFORM.

FORMSELECT_FILE.

CALLFUNCTION'WS_FILENAME_GET'

EXPORTING

MASK=',ExcelFiles,*.xls,AllFiles,*.*.'(101)

TITLE='选择文件'(100)

IMPORTING

FILENAME=P_FILE

EXCEPTIONS

INV_WINSYS=1

NO_BATCH=2

SELECTION_CANCEL=3

SELECTION_ERROR=4

OTHERS=5.

IFSY-SUBRC<>0ANDSY-SUBRC<>3.

MESSAGEE100(ZDEV)WITH'选择文件出错！'(007).

ENDIF.

ENDFORM.

FORMdownload_qrcode.

*qr_text='123456789ABCDEF'.

PERFORMCreat_liushui.

PERFORMdel_zero_aufnrCHANGINGE_AUFNRAUFNR.

maktx1=maktx.

REPLACEALLOCCURRENCESOF''INMAKTX1WITH'%2B'.

CONCATENATEAUFNR',''MAKTX1'','E_BUDAT','E_FENQI

E','E_QUANTITY','E_PCS',PASS,PASS,PASS,N00'liushuiINTOq

r_text.

CONCATENATE'http://172.16.0.150/?text='qr_textI

NTOurl.

CALLMETHODcl_http_client=>create_by_url

EXPORTING

url=url

IMPORTING

client=http_client

EXCEPTIONS

argument_not_found=1

plugin_not_active=2

internal_error=3

OTHERS=4.

IFsy-subrc=0.

http_client->nd().

http_client->receive().

content=http_client->respon->get_data().

http_client->clo().

l_str_length=xstrlen(content).

CALLFUNCTION'RSFO_XSTRING_TO_MIME'

EXPORTING

c_xstring=content

i_length=l_str_length

TABLES

c_t_mime=mime.

ENDIF.

ENDFORM.'DOWNLOAD_QRCODE

*&---------------------------------------------------------------

------*

*&FormCONVERT_IMAGE

*&---------------------------------------------------------------

------*

*text

*-----------------------------------------------------------------

-----*

*-->p1text

*<--p2text

*-----------------------------------------------------------------

-----*

FORMdel_zero_aufnrCHANGINGab.

CALLFUNCTION'CONVERSION_EXIT_ALPHA_OUTPUT'

'去除大订单号的前导0

EXPORTING

input=a

IMPORTING

output=b.

ENDFORM.

FORMconvert_image.

CREATEOBJECTi_igs_image_converter.

i_igs_image_converter->input='image/png'.

i_igs_image_converter->output='image/bmp'.

i_igs_image_converter->width=200.

i_igs_image_converter->height=200.

CALLMETHODi_igs_image_converter->t_image

EXPORTING

blob=mime

blob_size=l_content_length.

CALLMETHODi_igs_image_converter->execute

EXCEPTIONS

communication_error=1

internal_error=2

external_error=3

OTHERS=4.

IFsy-subrc=0.

CALLMETHODi_igs_image_converter->get_image

IMPORTING

blob=blob

blob_size=blob_size

blob_type=blob_type.

ENDIF.

IFsy-subrc=0.

PERFORMshow_smart_form.'callingthesmartformforqrco

dedisplay

ELSE.

WRITE:'convertfailed!pleawaitaminuteorcheackyourI

nternet'.

ENDIF.

ENDFORM.'CONVERT_IMAGE

FORMCreat_liushui.

clearliushui.

time=sy-uzeit.

mdate=sy-datum.

date=mdate.

date=date2(6).

CONCATENATEdatetimeINTOliushui.

ENDFORM.

FORMCunchu_liushui.

weiyima-aufnr=E_AUFNR.

weiyima-xuhao=E_xuhao.

weiyima-liushui=liushui.

INSERTINTOZIMD_WEIYIMAVALUESweiyima.

CLEARweiyima.

endform.

FORMshow_smart_form.

gi_name='ERWEIMA'.'nameoftheqrcodewillbeins

e78afteronetimerunningthisprogram

gi_object='GRAPHICS'.

gi_id='BMAP'.

gi_btype='BMON'.'IfuwantblackandwhitepassBMON

gi_resident='二维码'.

gi_autoheight='X'.

gi_bmcomp='X'.

l_extension='BMP'.

'importingtheimageinto78beforedisplayingitinthes

martform.

performimport_bitmap_bdsusingblob

gi_name

gi_object

gi_id

gi_btype

l_extension

''

gi_resident

gi_autoheight

gi_bmcomp

changingl_docid

gi_resolution.

IFsy-subrc=0.

'PERFORMCunchu_liushui.

CALLFUNCTION'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname='ZBARCODE_IMD_IN'

IMPORTING

fm_name=fname.

DOtimesTIMES.

CALLFUNCTIONfname

EXPORTING

CONTROL_PARAMETERS=ctrl_param

OUTPUT_OPTIONS=out_option1

USER_SETTINGS=urttings

AUFNR=E_AUFNR

FENQIE=E_FENQIE

DATA=E_BUDAT

QUANTITY=E_QUANTITY

MAKTX=MAKTX

LIUSHUI=LIUSHUI

PCS=E_PCS.

ENDDO.

CLEARliushui.

ELSE.

WRITE:'import_bitmap_bdsfailed'.

ENDIF.

ENDFORM.'SHOW_SMART_FORM

*&---------------------------------------------------------------

------*

*&FormIMPORT_BITMAP_BDS(Copiedfromstandard

programandmodifieditaspertherequirement)

*&---------------------------------------------------------------

------*

formimport_bitmap_bds

usingp_blobtypew3mimetabtype

p_nametypestxbitmaps-tdname

p_objecttypestxbitmaps-tdobject

p_idtypestxbitmaps-tdid

p_btypetypestxbitmaps-tdbtype

p_formattypec

p_titlelikebds_description

p_residenttypestxbitmaps-resident

p_autoheighttypestxbitmaps-autoheight

p_bmcomptypestxbitmaps-bmcomp

changingp_docidtypestxbitmaps-docid

p_resolutiontypestxbitmaps-resolution.

*data:l_object_keytypesbdst_object_key.

data:l_object_keytypebapibds01-objkey.

data:l_tabtypeddobjname.

data:beginofl_bitmapoccurs0,

l(64)typex,

endofl_bitmap.

data:l_filenametypestring,

l_bytecounttypei,

l_bds_bytecounttypei.

data:l_color(1)typec,

l_width_twtypestxbitmaps-widthtw,

l_height_twtypestxbitmaps-heighttw,

l_width_pixtypestxbitmaps-widthpix,

l_height_pixtypestxbitmaps-heightpix.

data:l_bds_objecttypereftocl_bds_document_t,

l_bds_contenttypesbdst_content,

l_bds_componentstypesbdst_components,

wa_bds_componentstypelineofsbdst_components,

l_bds_signaturetypesbdst_signature,

wa_bds_signaturetypelineofsbdst_signature,

l_bds_propertiestypesbdst_properties,

wa_bds_propertiestypelineofsbdst_properties.

datawa_stxbitmapstypestxbitmaps.

*Enqueue

performenqueue_graphicusingp_object

p_name

p_id

p_btype.

*Bitmapconversion

callfunction'SAPSCRIPT_CONVERT_BITMAP_BDS'

exporting

color='X'

format=p_format

resident=p_resident

bitmap_bytecount=l_bytecount

compress_bitmap=p_bmcomp

importing

width_tw=l_width_tw

height_tw=l_height_tw

width_pix=l_width_pix

height_pix=l_height_pix

dpi=p_resolution

bds_bytecount=l_bds_bytecount

tables

bitmap_file=p_blob

bitmap_file_bds=l_bds_content

exceptions

format_not_supported=1

no_bmp_file=2

bmperr_invalid_format=3

bmperr_no_colortable=4

bmperr_unsup_compression=5

bmperr_corrupt_rle_data=6

others=7.

ifsy-subrc<>0.

performdequeue_graphicusingp_object

p_name

p_id

p_btype.

messageidsy-msgidtypesy-msgtynumbersy-msgno

withsy-msgv1sy-msgv2sy-msgv3sy-msgv4

raisingconversion_failed.

endif.

*SavebitmapinBDS

createobjectl_bds_object.

wa_bds_components-doc_count='1'.

wa_bds_components-comp_count='1'.

wa_bds_components-mimetype=c_bds_mimetype.

wa_bds_components-comp_size=l_bds_bytecount.

appendwa_bds_componentstol_bds_components.

ifp_docidisinitial.'graphicisnew

wa_bds_signature-doc_count='1'.

appendwa_bds_signaturetol_bds_signature.

callmethodl_bds_object->create_with_table

exporting

classname=c_bds_classname

classtype=c_bds_classtype

components=l_bds_components

content=l_bds_content

changing

signature=l_bds_signature

object_key=l_object_key

exceptions

others=1.

ifsy-subrc<>0.

performdequeue_graphicusingp_object

p_name

p_id

p_btype.

*messagee285withp_name'BDS'.

endif.

readtablel_bds_signatureindex1intowa_bds_signature

transportingdoc_id.

ifsy-subrc=0.

p_docid=wa_bds_signature-doc_id.

el.

performdequeue_graphicusingp_object

p_name

p_id

p_btype.

*messagee285withp_name'BDS'.

endif.

el.'graphicalreadyexists

*********readobject_keyforfasteraccess*****

clearl_object_key.

lectsingle*fromstxbitmapsintowa_stxbitmaps

wheretdobject=p_object

andtdid=p_id

andtdname=p_name

andtdbtype=p_btype.

lectsingletabnamefrombds_loclintol_tab

whereclassname=c_bds_classname

andclasstype=c_bds_classtype.

ifsy-subrc=0.

lectsingleobject_keyfrom(l_tab)intol_object_key

whereloio_id=wa_stxbitmaps-docid10(32)

andclassname=c_bds_classname

andclasstype=c_bds_classtype.

endif.

********readobject_keyend********************

callmethodl_bds_object->update_with_table

exporting

classname=c_bds_classname

classtype=c_bds_classtype

object_key=l_object_key

doc_id=p_docid

doc_ver_no='1'

doc_var_id='1'

changing

components=l_bds_components

content=l_bds_content

exceptions

nothing_found=1

others=2.

ifsy-

subrc=1.'inconsistencySTXBITMAPS-BDS;repeatcheckin

wa_bds_signature-doc_count='1'.

appendwa_bds_signaturetol_bds_signature.

callmethodl_bds_object->create_with_table

exporting

classname=c_bds_classname

classtype=c_bds_classtype

components=l_bds_components

content=l_bds_content

changing

signature=l_bds_signature

object_key=l_object_key

exceptions

others=1.

ifsy-subrc<>0.

performdequeue_graphicusingp_object

p_name

p_id

p_btype.

*messagee285withp_name'BDS'.

endif.

readtablel_bds_signatureindex1intowa_bds_signature

transportingdoc_id.

ifsy-subrc=0.

p_docid=wa_bds_signature-doc_id.

el.

performdequeue_graphicusingp_object

p_name

p_id

p_btype.

*messagee285withp_name'BDS'.

endif.

elifsy-subrc=2.

performdequeue_graphicusingp_object

p_name

p_id

p_btype.

*messagee285withp_name'BDS'.

endif.

endif.

*SavebitmapheaderinSTXBITPMAPS

wa_stxbitmaps-tdname=p_name.

wa_stxbitmaps-tdobject=p_object.

wa_stxbitmaps-tdid=p_id.

wa_stxbitmaps-tdbtype=p_btype.

wa_stxbitmaps-docid=p_docid.

wa_stxbitmaps-widthpix=l_width_pix.

wa_stxbitmaps-heightpix=l_height_pix.

wa_stxbitmaps-widthtw=l_width_tw.

wa_stxbitmaps-heighttw=l_height_tw.

wa_stxbitmaps-resolution=p_resolution.

wa_stxbitmaps-resident=p_resident.

wa_stxbitmaps-autoheight=p_autoheight.

wa_stxbitmaps-bmcomp=p_bmcomp.

inrtintostxbitmapsvalueswa_stxbitmaps.

ifsy-subrc<>0.

updatestxbitmapsfromwa_stxbitmaps.

ifsy-subrc<>0.

*messagee285withp_name'STXBITMAPS'.

endif.

endif.

*SetdescriptioninBDSattributes

wa_bds_properties-prop_name='DESCRIPTION'.

wa_bds_properties-prop_value=p_title.

appendwa_bds_propertiestol_bds_properties.

callmethodl_bds_object->change_properties

exporting

classname=c_bds_classname

classtype=c_bds_classtype

object_key=l_object_key

doc_id=p_docid

doc_ver_no='1'

doc_var_id='1'

changing

properties=l_bds_properties

exceptions

others=1.

performdequeue_graphicusingp_object

p_name

p_id

p_btype.

endform.

*&---------------------------------------------------------------

------*

*&FormENQUEUE_GRAPHIC

*&---------------------------------------------------------------

------*

*EnqueueofgraphicsstoredinBDS

*-----------------------------------------------------------------

-----*

formenqueue_graphicusingp_object

p_name

p_id

p_btype.

callfunction'ENQUEUE_ESSGRABDS'

exporting

*MODE_STXBITMAPS='E'

tdobject=p_object

tdname=p_name

tdid=p_id

tdbtype=p_btype

*X_TDOBJECT=''

*X_TDNAME=''

*X_TDID=''

*X_TDBTYPE=''

*_SCOPE='2'

*_WAIT=''

*_COLLECT=''

exceptions

foreign_lock=1

others=2.

ifsy-subrc<>0.

messageidsy-msgidtypesy-msgtynumbersy-msgno

withsy-msgv1sy-msgv2sy-msgv3sy-msgv4

raisingenqueue_failed.

endif.

endform.'ENQUEUE_GRAPHIC

*&---------------------------------------------------------------

------*

*&FormDEQUEUE_GRAPHIC

*&---------------------------------------------------------------

------*

*DequeueofgraphicsstoredinBDS

*-----------------------------------------------------------------

-----*

formdequeue_graphicusingp_object

p_name

p_id

p_btype.

callfunction'DEQUEUE_ESSGRABDS'

exporting

*MODE_STXBITMAPS='E'

*X_TDOBJECT=''

*X_TDNAME=''

*X_TDID=''

*X_TDBTYPE=''

*_SCOPE='3'

*_SYNCHRON=''

*_COLLECT=''

tdobject=p_object

tdname=p_name

tdid=p_id

tdbtype=p_btype.

endform.'DEQUEUE_GRAPHIC

FORMSearchMAKTX.

SELECTMAKTX

FROMMAKT

INTOMAKTX

WHEREMAKT~MATNR=MATNR.

ENDSELECT.

ENDFORM.