*types: ty_boolean(1) type c.

*
*constants:
* c_true type ty_boolean value 'X',
* c_false type ty_boolean value space.

DATA : bds_description like bapisignat-prop_value.

* BDS handling
constants:
c_bds_classname type sbdst_classname value 'DEVC_STXD_BITMAP',
c_bds_classtype type sbdst_classtype value 'OT', " others
c_bds_mimetype type bds_mimetp value 'application/octet-stream',
c_bds_original type sbdst_doc_var_tg value 'OR'.

* Graphic handling
constants:
*data:
c_stdtext type thead-tdobject value 'TEXT',
c_graphics like thead-tdobject value 'GRAPHICS',
c_bmon like thead-tdid value 'BMON',
c_bcol like thead-tdid value 'BCOL'.

DATA: gi_filename type rlgrap-filename,

gi_name type stxbitmaps-tdname,
gi_object type stxbitmaps-tdobject,
gi_id type stxbitmaps-tdid,
gi_btype type stxbitmaps-tdbtype,
gi_resident type stxbitmaps-resident,
gi_autoheight type stxbitmaps-autoheight,
gi_bmcomp type stxbitmaps-bmcomp,
gi_resolution type stxbitmaps-resolution,

l_extension type rlgrap-filename,

l_docid type stxbitmaps-docid.

"Picture Control
DATA: picture_container TYPE REF TO cl_gui_custom_container,
picture_control TYPE REF TO cl_gui_picture.

DATA: l_img_url TYPE w3url.

DATA :l_img_subtype TYPE w3param-cont_type.
DATA : l_str_length TYPE i.
DATA : url TYPE string.
DATA : l_content_length TYPE i.

DATA : mime TYPE w3mimetabtype.

DATA: blob TYPE w3mimetabtype,
blob_size TYPE w3param-cont_len,
blob_type TYPE w3param-cont_type.

DATA : i_igs_image_converter TYPE REF TO cl_igs_image_converter.

DATA: content TYPE xstring.
DATA : http_client TYPE REF TO if_http_client.

TYPES : BEGIN OF ty_binary,

binary_field(1000) TYPE c,
END OF ty_binary.
DATA : hex_tab1 TYPE TABLE OF ty_binary WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS : qr_text TYPE char100 OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS : width TYPE int3,
height TYPE int3.
SELECTION-SCREEN END OF BLOCK b2.

PARAMETERS : p_rad1 RADIOBUTTON GROUP rd1 DEFAULT 'X',

p_rad2 RADIOBUTTON GROUP rd1.

START-OF-SELECTION.

PERFORM download_qrcode.
PERFORM convert_image.

*&———————————————————————*
*& Form DOWNLOAD_QRCODE
*&———————————————————————*
* text
*———————————————————————-*
* -> p1 text
* <- p2 text
*———————————————————————-*

FORM download_qrcode .

CONCATENATE 'http://chart.apis.google.com/chart?chs=200×200&cht=qr&chld=|1&chl='
qr_text '/chart.png' INTO url.

CALL METHOD cl_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.

IF sy-subrc = 0.

http_client->send( ).

http_client->receive( ).

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

http_client->close( ).

l_str_length = xstrlen( content ).

CALL FUNCTION 'RSFO_XSTRING_TO_MIME'

EXPORTING
c_xstring = content
i_length = l_str_length
TABLES
c_t_mime = mime.

ENDIF.

ENDFORM. " DOWNLOAD_QRCODE

*&———————————————————————*
*& Form CONVERT_IMAGE

*&———————————————————————*
* text
*———————————————————————-*
* -> p1 text
* <- p2 text
*———————————————————————-*

FORM convert_image .

CREATE OBJECT i_igs_image_converter .

i_igs_image_converter->input = 'image/png'.
i_igs_image_converter->output = 'image/bmp'.
i_igs_image_converter->width = width.
i_igs_image_converter->height = height.

CALL METHOD i_igs_image_converter->set_image

EXPORTING
blob = mime
blob_size = l_content_length.

CALL METHOD i_igs_image_converter->execute

EXCEPTIONS
communication_error = 1
internal_error = 2
external_error = 3
OTHERS = 4.

IF sy-subrc = 0.

CALL METHOD i_igs_image_converter->get_image

IMPORTING
blob = blob
blob_size = blob_size
blob_type = blob_type.

ENDIF.

IF sy-subrc = 0.

IF p_rad1 = 'X'.

CALL SCREEN '9000'. "Calling the screen for qrcode display

ELSE.
PERFORM show_smart_form. "calling the smartform for qrcode display

ENDIF.

ENDIF.

ENDFORM. " CONVERT_IMAGE

*&———————————————————————*
*& Module STATUS_9000 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*

MODULE status_9000 OUTPUT.

SET PF-STATUS 'PF'.

"Creating the object for the container

CREATE OBJECT picture_container

EXPORTING
container_name = 'PICTURECONTROL'.
CREATE OBJECT picture_control
EXPORTING
parent = picture_container.

"Calling the screen

PERFORM call_screen.

ENDMODULE. " STATUS_9000 OUTPUT

*&———————————————————————*
*& Form CALL_SCREEN
*&———————————————————————*
* text
*———————————————————————-*
* -> p1 text
* <- p2 text
*———————————————————————-*

FORM call_screen .

"Creating the url of the image for the display in the container in the screen
SPLIT blob_type AT '/' INTO blob_type l_img_subtype.

CALL FUNCTION 'DP_CREATE_URL'

EXPORTING
type = blob_type
subtype = l_img_subtype
size = blob_size
lifetime = cndp_lifetime_transaction
TABLES
data = blob
CHANGING
url = l_img_url
EXCEPTIONS
OTHERS = 1.
IF sy-subrc IS INITIAL.
CALL METHOD picture_control->load_picture_from_url
EXPORTING
url = l_img_url.
ENDIF.

ENDFORM. " CALL_SCREEN

*&———————————————————————*
*& Module USER_COMMAND_9000 INPUT
*&———————————————————————*
* text
*———————————————————————-*
MODULE user_command_9000 INPUT.

IF sy-ucomm = 'BACK'.

LEAVE TO SCREEN 0.

ENDIF.

ENDMODULE. " USER_COMMAND_9000 INPUT

*&———————————————————————*
*& Form SHOW_SMART_FORM
*&———————————————————————*
* text
*———————————————————————-*
* -> p1 text
* <- p2 text
*———————————————————————-*

FORM show_smart_form .

gi_name = 'QRCODE10'. "name of the qrcode will be in se78 after one time
running this program
gi_object = 'GRAPHICS'.
gi_id = 'BMAP'.
gi_btype = 'BCOL'. "If u want black and white pass BMON
gi_resident = ' '.
gi_autoheight = 'X'.
gi_bmcomp = 'X'.
l_extension = 'BMP'.

"importing the image into se78 before displaying it in the smartform.

perform import_bitmap_bds using blob

gi_name
gi_object
gi_id
gi_btype
l_extension
' '
gi_resident
gi_autoheight
gi_bmcomp
changing l_docid
gi_resolution.

IF sy-subrc = 0.

DATA:fname TYPE rs38l_fnam.

"gettingt the name FM of the smartform

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZQR_TEST'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = fname
* EXCEPTIONS
* NO_FORM = 1
* NO_FUNCTION_MODULE = 2
* OTHERS = 3
.

"Calling the FM of the smartform for display

CALL FUNCTION fname
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
w_name = 'QRCODE10'
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5 .

IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

ENDIF.

ENDFORM. " SHOW_SMART_FORM

*&———————————————————————*
*& Form IMPORT_BITMAP_BDS (Copied from standard program and modified it as
per the requirement)
*&———————————————————————*
form import_bitmap_bds
using p_blob type w3mimetabtype
p_name type stxbitmaps-tdname
p_object type stxbitmaps-tdobject
p_id type stxbitmaps-tdid
p_btype type stxbitmaps-tdbtype
p_format type c
p_title LIKE bds_description
p_resident type stxbitmaps-resident
p_autoheight type stxbitmaps-autoheight
p_bmcomp type stxbitmaps-bmcomp
changing p_docid type stxbitmaps-docid
p_resolution type stxbitmaps-resolution.

data: l_object_key type sbdst_object_key.

data: l_tab type ddobjname.

data: begin of l_bitmap occurs 0,

l(64) type x,
end of l_bitmap.

data: l_filename type string,

l_bytecount type i,
l_bds_bytecount type i.
data: l_color(1) type c,

l_width_tw type stxbitmaps-widthtw,

l_height_tw type stxbitmaps-heighttw,
l_width_pix type stxbitmaps-widthpix,
l_height_pix type stxbitmaps-heightpix.
data: l_bds_object type ref to cl_bds_document_set,
l_bds_content type sbdst_content,
l_bds_components type sbdst_components,
wa_bds_components type line of sbdst_components,
l_bds_signature type sbdst_signature,
wa_bds_signature type line of sbdst_signature,
l_bds_properties type sbdst_properties,
wa_bds_properties type line of sbdst_properties.

data wa_stxbitmaps type stxbitmaps.

* Enqueue
perform enqueue_graphic using p_object
p_name
p_id
p_btype.

* Bitmap conversion
call function '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.

if sy-subrc <> 0.

perform dequeue_graphic using p_object

p_name
p_id
p_btype.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
raising conversion_failed.

endif.

* Save bitmap in BDS

create object l_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.
append wa_bds_components to l_bds_components.

if p_docid is initial. " graphic is new

wa_bds_signature-doc_count = '1'.
append wa_bds_signature to l_bds_signature.

call method l_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.

if sy-subrc <> 0.

perform dequeue_graphic using p_object

p_name
p_id
p_btype.
* message e285 with p_name 'BDS'.
endif.

read table l_bds_signature index 1 into wa_bds_signature

transporting doc_id.

if sy-subrc = 0.

p_docid = wa_bds_signature-doc_id.

else.

perform dequeue_graphic using p_object

p_name
p_id
p_btype.
* message e285 with p_name 'BDS'.

endif.

else. " graphic already exists

********* read object_key for faster access *****

clear l_object_key.
select single * from stxbitmaps into wa_stxbitmaps
where tdobject = p_object
and tdid = p_id
and tdname = p_name
and tdbtype = p_btype.

select single tabname from bds_locl into l_tab

where classname = c_bds_classname
and classtype = c_bds_classtype.

if sy-subrc = 0.

select single object_key from (l_tab) into l_object_key

where loio_id = wa_stxbitmaps-docid+10(32)
and classname = c_bds_classname
and classtype = c_bds_classtype.

endif.

******** read object_key end ********************

call method l_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.

if sy-subrc = 1. " inconsistency STXBITMAPS - BDS; repeat check in

wa_bds_signature-doc_count = '1'.
append wa_bds_signature to l_bds_signature.

call method l_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.

if sy-subrc <> 0.
perform dequeue_graphic using p_object
p_name
p_id
p_btype.
* message e285 with p_name 'BDS'.

endif.

read table l_bds_signature index 1 into wa_bds_signature

transporting doc_id.
if sy-subrc = 0.
p_docid = wa_bds_signature-doc_id.
else.

perform dequeue_graphic using p_object

p_name
p_id
p_btype.

* message e285 with p_name 'BDS'.

endif.

elseif sy-subrc = 2.

perform dequeue_graphic using p_object

p_name
p_id
p_btype.

* message e285 with p_name 'BDS'.

endif.

endif.

* Save bitmap header in STXBITPMAPS

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.
insert into stxbitmaps values wa_stxbitmaps.

if sy-subrc <> 0.

update stxbitmaps from wa_stxbitmaps.

if sy-subrc <> 0.

* message e285 with p_name 'STXBITMAPS'.

endif.

endif.

* Set description in BDS attributes

wa_bds_properties-prop_name = 'DESCRIPTION'.
wa_bds_properties-prop_value = p_title.
append wa_bds_properties to l_bds_properties.

call method l_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.

perform dequeue_graphic using p_object

p_name
p_id
p_btype.

endform.

*&———————————————————————*
*& Form ENQUEUE_GRAPHIC
*&———————————————————————*
* Enqueue of graphics stored in BDS
*———————————————————————-*

form enqueue_graphic using p_object

p_name
p_id
p_btype.

call function '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.

if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
raising enqueue_failed.
endif.

endform. " ENQUEUE_GRAPHIC

*&———————————————————————*
*& Form DEQUEUE_GRAPHIC
*&———————————————————————*
* Dequeue of graphics stored in BDS
*———————————————————————-*

form dequeue_graphic using p_object

p_name
p_id
p_btype.

call function '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