Set V[db] “&V[_database]"
Pushbutton (toolbar) "&V[_database] update charts" "/0"
if V[_database=SID]
image (4,83) "C:\guixt\img\chart&F[TD110-TSFRP].gif" -NoBuffer -Transparent -Plain exe="c:\guixt\ch_copy.bat &F[TD110-TSFRP]" start="c:\guixt\ch_copy.bat &F[TD110-TSFRP]"
image (13,83) "C:\guixt\img\chart&V[_database].gif" -NoBuffer -Transparent -Plain exe="c:\guixt\chdisk_copy.bat ""&V[_database]""" start="c:\guixt\chdisk_copy.bat ""&V[_database]"""
endif
@ECHO OFF
@del "C:\guixt\img\chart%1.gif"
cd "C:\guixt"
@del ".\img\chart%1.gif"
.\curlbin\curl -s -xPROXY:PORT http://chart.apis.google.com/chart? -d chs=225x125 -d cht=gom -d chd=t:%1 -d chl=%1 -d chco=FF0000,00FF00 -d chtt=DB+FreeSpace -d chof=gif -G > .\img\chart%1.gif
exit
In the script above PUTTY command PLINK is used to connect to the unix system with ssh keys exchanged.
3) The second DOS script c:\guixt\ch_copy.bat generates the google chart for the free space in the unix system's sapdata filesystems
@ECHO OFF
cd "C:\guixt"
del ".\img\chart%1.gif"
rem %% required for batch % ok for command line
for /f %%A in ('plink -l USERID HOST "df -k|grep sapdata |awk '{n=n+$2}{s=s+$4} END{print s*100/n}'"') DO ( SET DISK=%%A )
echo %DISK%
.\curlbin\curl -s -xPROXY:PORT http://chart.apis.google.com/chart? -d chs=225x125 -d cht=gom -d chd=t:%
DISK% -d chl=%DISK% -d chco=FF0000,00FF00 -d chtt=%DATE%+Disk+FreeSpace -d chof=gif -G >.\img\chart%1.gif
exit
*Note in both of the DOS BAT files then the PROXY:PORT settings need to be adapted to the correct settings.
<?php
//phpinfo()
$bc=$_GET["b"];
$bt=$_GET["text"];
//echo $bt;
system("/Users/robert/Sites/barc.bash $bc $bt");
$barcpath="www/barcode.jpg";
//echo $_GET["texto"];
echo "<img src=\"$barcpath\">";
?>
BC=$1
shift
#build postscript code
echo "gsave" >/Users/robert/Sites/www/hello1.ps
echo "50 50 translate" >>/Users/robert/Sites/www/hello1.ps
echo "2 2 scale" >>/Users/robert/Sites/www/hello1.ps
echo "50 50 moveto (${*}) () /${BC} /uk.co.terryburton.bwipp findresource exec" >> /Users/robert/Sites/www/hello1.ps
echo "grestore" >> /Users/robert/Sites/www/hello1.ps
echo "showpage" >> /Users/robert/Sites/www/hello1.ps
#run ghostscript to generate EPS
/opt/local/bin/gs -dBATCH -dNOPAUSE -q -sDEVICE=epswrite -sOutputFile=/Users/robert/Sites/www/$$.eps /Users/robert/Sites/www/barcode.ps /Users/robert/Sites/www/hello1.ps
#imagemagick to convert from EPS to jpg
/opt/local/bin/convert -density 72 /Users/robert/Sites/www/$$.eps /Users/robert/Sites/www/$$.jpg
#copy the file to barcode.jpg
cp /Users/robert/Sites/www/$$.jpg /Users/robert/Sites/www/barcode.jpg
CALL FUNCTION 'SXPG_COMMAND_EXECUTE' uses the same code in the SDN blog for the script ZBWIPP. Also all the scripts and barcode.ps code are in the work directory of my SAP demo 702 server.
navigation->set_parameter( 'text' ).
navigation->set_parameter( 'barcode' ).
navigation->set_parameter( 'options' ).
*DATA bitmap TYPE REF TO zcl_abap_bitmap.
DATA okcode TYPE syucomm.
DATA filed type string.
DATA: t_result TYPE STANDARD TABLE OF btcxpm.
DATA psX type string.
DATA psY type string.
data scaleX type i.
data scaleY type i.
data bit TYPE XSTRING.
data display_url type string.
*the scale values could be placed in the excel call also, not done it yet
scaleX = 2.
scaleY = 2.
data p_name type string.
if text is initial.
text = 'no text detected'.
endif.
if barcode is initial.
barcode = 'datamatrix'.
endif.
psX = scaleX.
psY = scaleY.
DATA: psnm TYPE string VALUE 'f:\usr\sap\NSP\DVEBMGS00\work\zsapbarcode.ps'.
DATA: barc TYPE string VALUE 'f:\usr\sap\NSP\DVEBMGS00\work\rob.bmp'.
DATA: TEXT1(255),
TEXT2(20),
LENG TYPE I.
* 0 moveto (2310844"Japan") () /qrcode /uk.co.terryburton.bwipp findresource exec
*howpage
*concatenate '50 50 moveto (' text ') (' options ') /' barcode ' /uk.co.terryburton.bwipp findresource exec' into TEXT1.
concatenate '50 50 moveto (' text ') (' options ') /' barcode ' /uk.co.terryburton.bwipp findresource exec' into TEXT1.
concatenate psX pSY ' scale' into TEXT2.
OPEN DATASET psnm FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
*RANSFER '50 50 moveto' to psnm.
TRANSFER 'gsave' to psnm.
TRANSFER '50 50 translate' to psnm.
TRANSFER TEXT2 to psnm.
TRANSFER TEXT1 TO psnm.
TRANSFER 'grestore' to psnm.
TRANSFER 'showpage' to psnm.
CLOSE DATASET psnm.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
EXPORTING
commandname = 'ZBWIPP'
* additional_parameters = v_dir_input
* operatingsystem = c_oper
TABLES
exec_protocol = t_result
EXCEPTIONS
no_permission = 1
command_not_found = 2
parameters_too_long = 3
security_risk = 4
wrong_check_call_interface = 5
program_start_error = 6
program_termination_error = 7
x_error = 8
parameter_expected = 9
too_many_parameters = 10
illegal_command = 11
wrong_asynchronous_parameters = 12
cant_enq_tbtco_entry = 13
jobcount_generation_error = 14
OTHERS = 15.
OPEN DATASET barc FOR input IN BINARY MODE.
READ DATASET barc INTO bit.
CLOSE DATASET barc.
IF XSTRLEN( bit ) > 0.
DATA: cached_response TYPE REF TO if_http_response.
CREATE OBJECT cached_response TYPE CL_HTTP_RESPONSE EXPORTING add_c_msg = 1.
cached_response->set_data( bit ).
cached_response->set_header_field( name = if_http_header_fields=>content_type
value = 'image/bmp' ).
cached_response->set_status( code = 200 reason = 'OK' ).
cached_response->server_cache_expire_rel( expires_rel = 180 ).
DATA: guid TYPE guid_32.
CALL FUNCTION 'GUID_CREATE' IMPORTING ev_guid_32 = guid.
CONCATENATE runtime->application_url '/' guid '.bmp' INTO display_url.
cl_http_server=>server_cache_upload( url = display_url
response = cached_response ).
***response->redirect( display_url ).
response->redirect( display_url ).
else.
response->redirect( 'http://himble.test.com:8000/sap/bc/bsp/sap/zbwipp/zbwipperror.bmp' ).
endif.SIMPLE EXCEL MACRO The excel macro is really simple in that it uses the current selection and uses offsets to pick up the required barcode, options and text. So for example the required barcode would be in column A, the options in column B and the text for the barcode would be in column C. The range to select would be in column E, my choice.
Sub zbwipp()
Dim barcode As String
Dim text As String
Dim options As String
For Each Cell In Selection
Cell.Select
barcode = Cell.Offset(0, -4).Value
options = Cell.Offset(0, -3).Value
text = Cell.Offset(0, -2).Value
' MsgBox barcode
ActiveSheet.Pictures.Insert( _
"http://himble.test.com:8000/sap/bc/bsp/sap/zbwipp/bc.htm?barcode=" + barcode + "&options=" + options + "&text=" + text).Select
Next Cell
End Sub
ActiveSheet.Pictures.Insert is used to point to the Yahoo BSP in this post then static maps can be generated as shown below. The same location is used in my home town of Birmingham and the width of the image is changed and the static maps generated.
<PolyStyle>
<color><tt:value ref="cjp34"/></color>
<outline>1</outline>
</PolyStyle>
