Need Sample BBP of PSU Sector

Hi Experts,
I am need of BBP for IT PSU Sector. I will be implementing PAYROLL for this PSU client.....request if you can forward PSU BBP on sushilmakee gmail.com
This is first PSU project so need help on various LAWS and RULES followed by PSU.
Regards
Sushilkumar
Edited by: sushil7666kumar on Nov 3, 2011 9:48 AM
Edited by: sushil7666kumar on Nov 3, 2011 9:50 AM
Sushil
Requesting for the BBP is Against the forum rules

Hello,
You have not mentioned which country public sector you are referring.
If it is INDIA then
You have to concentrate on few things like....
1. All deduction mostly have some laws ( PF, ESI, GRATUITY ETC)
2. Retirement.
3. V R S
4. increments in DA ( Dearness Allowances)
5. State wide laws for Prof Tax.
6. Legal reports for Taxation & Audit .
hope this helps you.
Thanks
Rafi

Similar Messages

Need sample code with RV_INVOICE_CREATE used

Hi everybody!
I need sample code with RV_INVOICE_CREATE or similar FMs used.
The thing is that I do not know how to populate parametres of this and other invoicing FMs....
For example, there are some tables to be passed to RV_INVOICE_CREATE
     TABLES
          XKOMFK     = XKOMFK
          XKOMV       = XKOMV
          XTHEAD      = XTHEAD
          XVBFS        = XVBFS
          XVBPA        = XVBPA
          XVBRK        = XVBRK
          XVBRP        = XVBRP
          XVBSS        = XVBSS
How to populate them? I mean how to fill them with needed values?
Useful answers will be awarded.
Kind regards, M.

RV_INVOICE_CREATE is the function module to create invoice based on delivery .
when you pass delivery number ,it will create invoice ,see the invoice number in vf02,vf03 transaction. and also see the data vbrk,vbrp tables
I have done this development and i have cancelled invoice,reverse goods issue,updated the delivery and again i am createing invoice..see the below progrm to get better understanding.
REPORT ZWM_OVERWEIGHT_FIX no standard page heading
                           message-id zwm.
======================================================================
Program Name : ZWM_OVERWEIGHT_FIX                                    *
Description : Tool to fix Overweight in delivery line item,         *
               Used All Function module to cancel invoice ,          *
               Reverse the goods issue ,Update Delivery qty,Create *
               invoice                                               *
Author       : Seshu                                                 *
Date         : 05/08/2007                                            *
MODIFICATION HISTORY                                                 *
DATE    | AUTHOR   | CHANGE #   | DESCRIPTION OF MODIFICATION        *
--|||--
05/08/07| Seshu    | DEVK921979 | Initial                            *
D A T A - D E C L A R A T I O N     *******************
Tables
Tables : vbak,
         vbap,
         vbfa,
         likp,
         lips,
         vbrk,
         vbrp.
Internal Tables
data : i_lips like lips occurs 0 with header line,
       i_vbap like vbap occurs 0 with header line.
Variables
data : v_deliv like vbfa-vbelv,
       v_invoic like vbfa-vbelv.
Data Declaration Part for Post Goods Issue
DATA: l_vbeln LIKE likp-vbeln,
      l_vbkok LIKE vbkok,
      i_prot LIKE prott OCCURS 0 WITH HEADER LINE,
      ef_error_any_0 TYPE c,
      ef_error_in_item_deletion_0 TYPE c,
      ef_error_in_pod_update_0 TYPE c,
      ef_error_in_interface_0 TYPE c,
      ef_error_in_goods_issue_0 TYPE c,
      ef_error_in_final_check_0 TYPE c,
      d_return   LIKE bapireturn1.
Internal tables for BAPI Function Module
data : i_cret like BAPIRETURN1 occurs 0 with header line,
       i_csucess like BAPIVBRKSUCcESS occurs 0 with header line,
       i_ret2 like bapiret2 ,
       flag type c,
       i_mesg like mesg occurs 0 with header line.
Data Declaration for Invoice Creation
DATA: VBSK_I     LIKE VBSK.
data: d_success type c.
DATA: XKOMFK LIKE      KOMFK   OCCURS 0 WITH HEADER LINE,
      XKOMV LIKE      KOMV    OCCURS 0 WITH HEADER LINE,
      XTHEAD LIKE      THEADVB OCCURS 0 WITH HEADER LINE,
      XVBFS LIKE      VBFS    OCCURS 0 WITH HEADER LINE,
      XVBPA LIKE      VBPAVB OCCURS 0 WITH HEADER LINE,
      XVBRK LIKE      VBRKVB OCCURS 0 WITH HEADER LINE,
      XVBRP LIKE      VBRPVB OCCURS 0 WITH HEADER LINE,
      XVBSS LIKE      VBSS    OCCURS 0 WITH HEADER LINE,
      XKOMFKGN LIKE    KOMFKGN OCCURS 0 WITH HEADER LINE.
S E L E C T I O N - S C R E E N   ******************
Selection-screen
Selection-screen : begin of block blk with frame title text-001.
parameters : p_vbeln like vbak-vbeln obligatory.
selection-screen : end of block blk.
A T - S E L E C T I O N - S C R E E N ***************
Validation on Sales order
at selection-screen on p_vbeln.
Check the data on VBAK Table
select single vbeln from vbak into vbak-vbeln
                            where vbeln = p_vbeln.
if sy-subrc ne 0.
    message e006 with p_vbeln.
endif.
S T A R T - O F - S E L E C T I O N *******************
Start-of-selection.
break sreddy.
Get the Invoice Number corresponding Sales Order Number
perform get_invoice.
Step 1.
Cancel the Invoice - Transaction VF11
perform cancel_invoice.
Reverse the goods issue
perform reverse_goodsissue.
Get the Order and Delivery Items
perform get_sales_deliv.
Delivery Change
perform Delivery_change.
Create Invoice document
perform invoice_create.
E N D - O F - S E L E C T I O N *******************
end-of-selection.
if flag = 'X'.
message i012 with p_vbeln.
endif.
*&      Form get_invoice
      Get Invoice Number
FORM get_invoice.
Clear Variables
clear : v_deliv,
          v_invoic,
          flag.
Get the Delivery Number First
select single vbeln from vbfa into v_deliv
                           where vbelv = p_vbeln
                           and   vbtyp_n = 'J'.
if sy-subrc ne 0.
    message i004 with p_vbeln.
    stop.
endif.
Get the Invoice Number
select single vbeln from vbfa into v_invoic
                           where vbelv = p_vbeln
                           and   vbtyp_n = 'M'.
if sy-subrc ne 0.
    message i003 with p_vbeln.
    stop.
endif.
ENDFORM.                    " get_invoice
*&      Form cancel_invoice
      Cancel the Invoice
FORM cancel_invoice.
clear : i_ret2,
          i_cret,
          i_csucess.
refresh : i_cret,
            i_csucess.
CALL FUNCTION 'BAPI_BILLINGDOC_CANCEL1'
    EXPORTING
      BILLINGDOCUMENT       = v_invoic
TESTRUN               =
NO_COMMIT             =
BILLINGDATE           =
    TABLES
      RETURN                = i_cret
      SUCCESS               = i_csucess
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
            WAIT   = space
       IMPORTING
            RETURN = i_ret2.
read table i_cret with key type = 'E'.
if sy-subrc ne 0.
    message i005 with v_invoic.
    stop.
endif.
ENDFORM.                    " cancel_invoice
*&      Form reverse_goodsissue
      Reverse the goods Issue
FORM reverse_goodsissue.
Local Variable
data : lv_vbtyp like likp-vbtyp.
clear : i_mesg,
          lv_vbtyp.
refresh : i_mesg.
select single vbtyp from likp into lv_vbtyp
                           where vbeln = v_deliv.
CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE'
    EXPORTING
      I_VBELN                         = v_deliv
      I_BUDAT                         = sy-datum
    I_COUNT                         =
    I_MBLNR                         =
    I_TCODE                         =
      I_VBTYP                         = lv_vbtyp
    TABLES
      T_MESG                          = i_mesg
   EXCEPTIONS
     ERROR_REVERSE_GOODS_ISSUE       = 1
     OTHERS                          = 2
if sy-subrc ne 0.
    message i007 with v_deliv.
endif.
ENDFORM.                    " reverse_goodsissue
*&      Form get_sales_deliv
      Get the Sales order and Deliv Items
FORM get_sales_deliv.
Local Variables
data : lv_kwmeng like vbap-kwmeng.
clear : i_lips,
          i_vbap.
refresh : i_lips,
            i_vbap.
Select the data from LIPS
select * from lips into table i_lips
                     where vbeln = v_deliv.
if sy-subrc ne 0.
    message i008 with v_deliv.
    stop.
endif.
sort i_lips by vbeln posnr.
Get the Sales order Item Data.
select * from vbap into table i_vbap
                          where vbeln = p_vbeln.
if sy-subrc ne 0.
    message i006 with p_vbeln.
    stop.
endif.
sort i_vbap by vbeln posnr.
Compare delivery Item and Order Items
loop at i_lips.
    clear lv_kwmeng.
    read table i_vbap with key posnr = i_lips-posnr.
    if sy-subrc eq 0.
      lv_kwmeng = i_vbap-kwmeng * 2.
      if lv_kwmeng >= i_lips-lfimg.
        i_lips-lfimg = i_vbap-kwmeng.
        modify i_lips.
      endif.
    endif.
endloop.
ENDFORM.                    " get_sales_deliv
*&      Form Delivery_change
      Delivery Update
FORM Delivery_change.
Clear : i_prot.
refresh : i_prot.
Delivery Update
CALL FUNCTION 'LE_MOB_DELIVERY_UPDATE'
       EXPORTING
            do_commit                = 'X'
       TABLES
            t_delivery_items         = i_lips
            prot                     = i_prot
       EXCEPTIONS
            conversion_overflow      = 1
            essential_data_missing   = 2
            error                    = 3
            nothing_to_update        = 4
            lock_after_update_failed = 5
            error_in_delivery_update = 6
            OTHERS                   = 7.
COMMIT WORK.
IF sy-subrc <> 0.
    MESSAGE i009 with v_deliv.
endif.
Post Goods Issue
CLEAR:    d_return,
            i_prot,
            l_vbeln,
            l_vbkok.
REFRESH i_prot.
CLEAR: ef_error_in_item_deletion_0    ,
          ef_error_in_pod_update_0       ,
          ef_error_in_interface_0        ,
          ef_error_in_goods_issue_0      ,
          ef_error_in_final_check_0      .
carry out goods issue
l_vbeln          = v_deliv.
l_vbkok-vbeln_vl = l_vbeln.
l_vbkok-wabuc    = 'X'.
carry out goods issue
l_vbeln          = v_deliv.
l_vbkok-vbeln_vl = l_vbeln.
l_vbkok-wabuc    = 'X'.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
       EXPORTING
            vbkok_wa                    = l_vbkok
            synchron                    = 'X'
            no_messages_update          = ' '
            update_picking              = 'X'
            commit                      = 'X'
            delivery                    = l_vbeln
            nicht_sperren               = 'X'
            if_error_messages_send_0    = space
       IMPORTING
            ef_error_any_0              = ef_error_any_0
            ef_error_in_item_deletion_0 = ef_error_in_item_deletion_0
            ef_error_in_pod_update_0    = ef_error_in_pod_update_0
            ef_error_in_interface_0     = ef_error_in_interface_0
            ef_error_in_goods_issue_0   = ef_error_in_goods_issue_0
            ef_error_in_final_check_0   = ef_error_in_final_check_0
       TABLES
            prot                        = i_prot
       EXCEPTIONS
            error_message               = 1
            OTHERS                      = 2.
if sy-subrc ne 0.
    message i010 with v_deliv.
else.
    COMMIT WORK .
endif.
ENDFORM.                    " Delivery_change
*&      Form invoice_create
      Invoice Creation
FORM invoice_create.
refresh: XKOMFK, XKOMV,
           XTHEAD, XVBFS,
           XVBPA, XVBRK,
           XVBRP, XVBSS.
clear : XKOMFK, XKOMV,
           XTHEAD, XVBFS,
           XVBPA, XVBRK,
           XVBRP, XVBSS,
           VBSK_I.
VBSK_I-SMART = 'F'.
XKOMFK-VBELN = v_deliv.
XKOMFK-VBTYP = 'J'.
APPEND XKOMFK.
CALL FUNCTION 'RV_INVOICE_CREATE'
       EXPORTING
            VBSK_I       = VBSK_I
            WITH_POSTING = 'C'
       TABLES
            XKOMFK       = XKOMFK
            XKOMV        = XKOMV
            XTHEAD       = XTHEAD
            XVBFS        = XVBFS
            XVBPA        = XVBPA
            XVBRK        = XVBRK
            XVBRP        = XVBRP
            XVBSS        = XVBSS.
if sy-subrc eq 0.
    COMMIT WORK.
   flag = 'X'.
else.
message i011 with p_vbeln.
endif.
ENDFORM.                    " invoice_create
Reward Points if it is helpful
Thanks
Seshu

Do I REALLY NEED such a powerful PSU???

Guys,
My problem is on the thread ("Daily Crashing - Total Hardware Shutdown"):
https://forum-en.msi.com/index.php?threadid=48219&sid=
I appreciate all your advice about upgrading from my Nexus NX-3500 PSU .... I had previously written 350W with 18A on the 12V rail .... actually upon closer inspection the specs are 330W with 16A on the 12V rail. Ok, I know this is not powerful enough, but as I said, I'm going to be using this PC for music recording, using very sensitive condenser microphones, and the PSUs recomended (Enermax 465 etc) really seem too loud.... the Enermax, for example, has a *minimum* load noise level of around 39dB(A)! That might not interfere with the needs of a gamer or office worker, but it's really just too loud for use with recording.... once you get that unwanted noise recorded in audio, it's virtually impossible to remove it.
It's been possible to build totally silent pc systems, using this same PSU, with Athlon XP CPUs. I understand now that the A64 (and the MSI board it seems) needs a lot of power, but the figures that have been suggested to me (450W-550W) seem very heavy. Reasons for thinking so:
MESH (http://www.meshcomputers.com) is perhaps the largest UK PC retailer and regularly wins awards for reliability etc etc from all the top UK PC magazines. They allow you to configure an Athlon 64 system with the follwing spec:
* ATX tower
* A64 3000+, 32000+, 34000+ and the A64FX versions
* 2 SATA Hard Drives in Raid
* up to 1GB RAM
* TOP graphics cards (I mean the ones costing hundreds of pounds ... mine is bottom-end and should require a lot less power than these)
* DVDRW
* 2nd Optical Drive
* Floppy
***** PSU 360W *****
Now, they also offer extensive warranties with these systems. My question is, would they offer this much power in a PC, with a full warranty, and be rated at the top of PC retailers in the UK, if their 360W PSU was not sufficient? Now, my PC is LESS POWERFUL than the ones listed above, so why do I need to get a PSU thats so much more powerful? Incidentally, they use the ASUS K8V Deluxe motherboard with the A64 systems ... does this board handle power better than my MSI KT8 NEO?... allowing you to use smaller PSUs?
Furthermore, if you look at MESH's Shuttle-case (v.v.small) versions of the Athlon64 system ... they supply it with a 240W PSU!
Finally, if you look at Sound On Sound magazine (which any of you remotely involved in music production will know) ... this month they did a review of silent PSUs .. and said that owners of 3GHz or faster CPUs, with 2 Hard Drives and 1GB of RAM, would probably be best served with 400W PSUs. The 500W etc PSUs were recommended for dual-cpu systems or those with multiple DSP cards.
I won't be playing games on this machine, or watching movies (which is why I just went for the bottom model GeForce graphics card FX5200 ... it doesn't even have a fan, so it shouldn't take up that much power). A lot of you guys seem to have top-end graphics cards, and 3 or more hard disks, as well as faster CPUs than mine, so you should need more power than me. In light of this, and bearing in mind that I really do need a very quiet PSU ... can you recommend something? Will 400W really not be enough?
Silenx and Seasonic make 400W PSUs with 22A on the 12V rail. Is this not sufficient? The Silenx is supposed to work at 14dB(A) ... load is not specified.
Please advise ... any comments much appreciated as really need to get this sorted fast.
Fizz
*******************************

Quote
Originally posted by Exion
Thanks for the quick reply Jocko. I guess I got to take out the goodies for now, but I only have a Radeon X800 Pro video card so I have to put that in... If I do run all those stuff on my current power supply will it damage and short-circuit/fry my system components? One more thing, there are several Enermax power supply with the model number EG465P that provide +12V@33A and they are confusing to know the difference. Let me list them and give the link.
460W
Model#: EG465P-VE(FM)
http://www.newegg.com/app/ViewProductDesc.asp?description=17-103-443&depa=0
470W
Model#: EG475P-VE-SFMA (This one has +12V@16A weird)
http://www.newegg.com/app/ViewProductDesc.asp?description=17-103-446&depa=0
460W
Model#: EG465P-VE(FC) (has EMI reduction but the recent review was bad)
http://www.newegg.com/app/ViewProductDesc.asp?description=17-103-440&depa=0
460W
Model#: EG465P-VE 24P
http://www.newegg.com/app/ViewProductDesc.asp?description=17-103-488&depa=0
431W
Model#: EG465P-VE(FCA) Out of stock
http://www.newegg.com/app/ViewProductDesc.asp?description=17-103-419&depa=0
Some reviews say there was not enough +12V power leads. Even when they purchased a Y-Splitter, the Enermax power supply did not have enough power, which does not sound so good for me. Besides the color, what is the difference between the VE(FM), VE-SFMA, VE(FC), VE 24P, VE(FCA)??? I went to Enermax's website and looked under power supplies and I could not find anything on those EG465P models (must be old models). Which EG465P power supply do you have Jocko? And which one do you recommend from the list above? Thanks.
Hi Exion,
Yes the first one looks OK, as long as it has a 4 pin square connector for Mobo, and an independant 4 pin Molex for Vid card. Don't see connectors listed.
The second one is the one that SAB had I think, the 12v rail is split into 2 rails, not so good. The others, if its a bad review,leave it.
As long as its at least a 465 enermax with 33amps on the 12v, a square 4 pin connector, and an independant line for vid card ( I think latest ones may have 2 independant 12v lines) then you can't go wrong.
cheers
jocko

NEED SAMPLE HR REPORTS

HI TO ALL EXPERTS,
IM NEW TO ABAP HR PROGRAMMING I NEED SAMPLE HR REPORTS FOR PRACTICE (ESPECIALLY PAYROLL REPORTS)
plz send it on mail id mausam_8atyahoo.com

hii,
hr abap
Go through the SAp doc for HR programming and start doing.
http://www.sapdevelopment.co.uk/hr/hrhome.htm
See:
http://help.sap.com/saphelp_46c/helpdata/en/4f/d5268a575e11d189270000e8322f96/content.htm
sites regarding hr-abap:
http://www.sapdevelopment.co.uk/hr/hrhome.htm
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/PAPA/PAPA.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/PAPD/PAPD.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/PYINT/PYINT_BASICS.pdf
http://www.atomhr.com/training/Technical_Topics_in_HR.htm
http://www.planetsap.com/hr_abap_main_page.htm
You can see some Standard Program examples in this one ...
http://www.sapdevelopment.co.uk/programs/programshr.htm
http://searchsap.techtarget.com/originalContent/0,289142,sid21_gci1030179,00.html?Offer=SAlgwn12604#Certification
http://www.erpgenie.com/faq/hr.htm.
http://www.planetsap.com/hr_abap_main_page.htm
http://www.sapbrain.com/TUTORIALS/FUNCTIONAL/HR_tutorial.html
cheers,
sharad

Need sample programs for inbound & outbound interfaces in abap hr?

hi friends
i need sample programs for inbound & outbound interface programs in hr abap . any one send me pls
thanks & regards
deepurd

&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
*& Report ZPROG65_11 *
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
REPORT zprog65_11 .
TABLES : lfa1.
TYPES : BEGIN OF ven ,
lifnr LIKE rf02k-lifnr,
bukrs LIKE rf02k-bukrs ,
ekorg LIKE rf02k-ekorg,
ktokk LIKE rf02k-ktokk,
name1 LIKE lfa1-name1,
sortl LIKE lfa1-sortl,
land1 LIKE lfa1-land1,
spars LIKE lfa1-spras,
akont LIKE lfb1-akont,
fdgrv LIKE lfb1-fdgrv,
waers LIKE lfm1-waers,
anred LIKE lfa1-anred ,
END OF ven .
DATA : t_ven TYPE TABLE OF ven WITH HEADER LINE ,
t_bdc LIKE TABLE OF bdcdata WITH HEADER LINE .
DATA : v_file TYPE string ,
v_temp TYPE i ,
v_lifnr(10) TYPE n,
v_hdate LIKE sy-datum.
DATA : c_tcode LIKE sy-tcode .u201Dvalue u2018XK01u2032.
PARAMETERS : p_file(30) DEFAULT u2018c:\vendor1_11.txtu2019,
p_group LIKE apqi-groupid.
START-OF-SELECTION .
MOVE p_file TO v_file .
PERFORM file_upload TABLES t_ven USING v_file .
v_hdate = sy-datum - 1.
CALL FUNCTION u2018BDC_OPEN_GROUPu2019
EXPORTING
client = sy-mandt
DEST = FILLER8
group = p_group
holddate = v_hdate
keep = u2018Xu2019
user = sy-uname
IMPORTING
QID =
EXCEPTIONS
client_invalid = 1
destination_invalid = 2
group_invalid = 3
OTHERS = 11
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT t_ven .
clear lfa1.
v_temp = 0.
MOVE t_ven-lifnr TO v_lifnr.
SELECT SINGLE * FROM lfa1 INTO lfa1 WHERE lifnr =
v_lifnr.
IF sy-subrc = 0.
WRITE :/ u2018foundu2019.
v_temp = 1.
else.
write: / u2018not foundu2019.
ENDIF.
IF v_temp = 0.
c_tcode = u2018xk01u2032.
PERFORM fill_ddc_table .
ELSEIF v_temp = 1.
c_tcode = u2018xk02u2032.
PERFORM fill_bdc_table .
ENDIF.
CALL FUNCTION u2018BDC_INSERTu2019
EXPORTING
tcode = c_tcode
TABLES
dynprotab = t_bdc
EXCEPTIONS
internal_error = 1
OTHERS = 7.
REFRESH t_bdc .
ENDLOOP .
CALL FUNCTION u2018BDC_CLOSE_GROUPu2019
EXCEPTIONS
not_open = 1
queue_error = 2
OTHERS = 3.
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
*& Form file_upload
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
text
u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-
u2013>P_T_VEN text
u2013>P_V_FILE text
u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-
FORM file_upload TABLES p_tven STRUCTURE t_ven
USING p_vfile.
CALL FUNCTION u2018GUI_UPLOADu2019
EXPORTING
filename = p_vfile
filetype = u2018ASCu2019
has_field_separator = u2018Xu2019
IMPORTING
FILELENGTH =
HEADER =
TABLES
data_tab = p_tven
EXCEPTIONS
file_open_error = 1
file_read_error = 2
OTHERS = 17
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. u201D file_upload
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
*& Form FILL_DDC_TABLE
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
text
u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-
u2013> p1 text
<u2013 p2 text
u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-
FORM fill_ddc_table .
SCREN 100
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180100u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018RF02K-LIFNRu2019.
t_bdc-fval = t_ven-lifnr .
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018RF02K-BUKRSu2019.
t_bdc-fval = t_ven-bukrs.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018RF02K-EKORGu2019.
t_bdc-fval = t_ven-ekorg.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018RF02K-KTOKKu2019.
t_bdc-fval = t_ven-ktokk.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
110
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180110u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-NAME1u2032.
t_bdc-fval = t_ven-name1 .
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-SORTLu2019.
t_bdc-fval = t_ven-sortl.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-LAND1u2032.
t_bdc-fval = t_ven-land1.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-SPRASu2019.
t_bdc-fval = t_ven-spars.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
120
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180120u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
130
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180130u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018=ENTRu2019.
APPEND t_bdc. CLEAR t_bdc.
210
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180210u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFB1-AKONTu2019.
t_bdc-fval = t_ven-akont .
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFB1-FDGRVu2019.
t_bdc-fval = t_ven-fdgrv.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
215
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180215u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
220
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180220u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
310
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180310u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFM1-WAERSu2019.
t_bdc-fval = t_ven-waers .
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
320
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180320u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018=UPDAu2019.
APPEND t_bdc. CLEAR t_bdc.
ENDFORM. u201CFILL_DDC_TABLE
u201D FILL_DDC_TABLE
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
*& Form FILL_BDC_TABLE
&u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014
text
u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-
u2013> p1 text
<u2013 p2 text
u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014u2014-
FORM fill_bdc_table .
SCREN 101
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180101u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018RF02K-LIFNRu2019.
t_bdc-fval = t_ven-lifnr .
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018RF02K-BUKRSu2019.
t_bdc-fval = t_ven-bukrs.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018RF02K-EKORGu2019.
t_bdc-fval = t_ven-ekorg.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
110
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180110u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018lfa1-anredu2019.
t_bdc-fval = t_ven-anred .
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-NAME1u2032.
t_bdc-fval = t_ven-name1 .
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-SORTLu2019.
t_bdc-fval = t_ven-sortl.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-LAND1u2032.
t_bdc-fval = t_ven-land1.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018LFA1-SPRASu2019.
t_bdc-fval = t_ven-spars.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018/00u2032.
APPEND t_bdc. CLEAR t_bdc.
300
t_bdc-program = u2018SAPMF02Ku2019.
t_bdc-dynpro = u20180300u2032.
t_bdc-dynbegin = u2018Xu2019.
APPEND t_bdc. CLEAR t_bdc.
t_bdc-fnam = u2018BDC_OKCODEu2019.
t_bdc-fval = u2018=YESu2019.
APPEND t_bdc. CLEAR t_bdc.
ENDFORM. u201D FILL_BDC_TABLE
Best Regards

Need sample program OO abap alv using hotspot( interactive report)

need sample program on Object Oriented program using alv interactive report.

*& Report Z8VM_N_PO_PRICING_CONDITION *
REPORT Z8VM_N_PO_PRICING_CONDITION NO STANDARD PAGE HEADING
MESSAGE-ID Z8VM.
vivekanand meghmala
trial assignment
po with pricing condition interactive report with checkbox
data declaration
TYPES : BEGIN OF STRUCT_EKKO, "po header
BUKRS LIKE T001-BUKRS,
EBELN LIKE EKKO-EBELN,
BSART LIKE EKKO-BSART,
BEDAT LIKE EKKO-BEDAT,
EKORG LIKE EKKO-EKORG,
WAERS LIKE EKKO-WAERS,
LIFNR LIKE EKKO-LIFNR,
KNUMV LIKE EKKO-KNUMV,
END OF STRUCT_EKKO.
TYPES : BEGIN OF STRUCT_EKPO, "po details
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
END OF STRUCT_EKPO.
TYPES : BEGIN OF STRUCT_KONV,
KNUMV LIKE KONV-KNUMV,
KPOSN LIKE KONV-KPOSN,
KSCHL LIKE KONV-KSCHL,
KAWRT LIKE KONV-KAWRT,
KBETR LIKE KONV-KBETR,
END OF STRUCT_KONV.
DATA : IT_EKKO TYPE STANDARD TABLE OF STRUCT_EKKO WITH HEADER LINE.
DATA : IT_EKPO TYPE STANDARD TABLE OF STRUCT_EKPO WITH HEADER LINE.
DATA : IT_KONV TYPE STANDARD TABLE OF STRUCT_KONV WITH HEADER LINE.
PARAMETERS : T_BUKRS LIKE EKKO-BUKRS .
SELECT-OPTIONS : S_BEDAT FOR IT_EKKO-BEDAT.
SELECT-OPTIONS : S_EKORG FOR IT_EKKO-EKORG.
validations
AT SELECTION-SCREEN.
IF T_BUKRS = ' '.
MESSAGE E009.
ENDIF.
SELECT BUKRS FROM T001
INTO CORRESPONDING FIELDS OF IT_EKKO
WHERE BUKRS = T_BUKRS.
EXIT.
ENDSELECT.
IF SY-SUBRC 0.
MESSAGE E001.
ENDIF.
logic
START-OF-SELECTION.
SELECT BUKRS
EBELN
BSART
BEDAT
EKORG
WAERS
LIFNR
KNUMV FROM EKKO INTO CORRESPONDING FIELDS OF TABLE IT_EKKO
WHERE BUKRS = T_BUKRS
AND BEDAT IN S_BEDAT
AND EKORG IN S_EKORG.
SELECT EBELN
EBELP
MATNR FROM EKPO INTO CORRESPONDING FIELDS OF IT_EKPO
FOR ALL ENTRIES IN IT_EKKO WHERE EBELN = IT_EKKO-EBELN.
APPEND IT_EKPO.
ENDSELECT.
LOOP AT IT_EKPO.
SELECT KNUMV
KPOSN
KSCHL
KAWRT
KBETR FROM KONV INTO CORRESPONDING FIELDS OF IT_KONV
WHERE KPOSN = IT_EKPO-EBELP.
APPEND IT_KONV.
ENDSELECT.
ENDLOOP.
*data printing
LOOP AT IT_EKKO.
WRITE :/ IT_EKKO-BUKRS,IT_EKKO-EBELN,IT_EKKO-BSART,IT_EKKO-BEDAT,
IT_EKKO-EKORG,IT_EKKO-WAERS,IT_EKKO-LIFNR,IT_EKKO-KNUMV.
LOOP AT IT_EKPO WHERE EBELN = IT_EKKO-EBELN.
WRITE :/ IT_EKPO-EBELP,IT_EKPO-MATNR.
LOOP AT IT_KONV.
WHERE KPOSN = IT_EKPO-EBELN.
WRITE :/ IT_KONV-KNUMV COLOR 3,IT_KONV-KPOSN COLOR 3,IT_KONV-KSCHL COLOR 3,IT_KONV-KAWRT COLOR 3,IT_KONV-KBETR COLOR 3.
ENDLOOP.
ENDLOOP.
ENDLOOP.[/code]
thanks
reward if helpful

Need Sample Java Embedding code

Hello gurus,
I need sample code to access DBAdapter select query output within Java activity. besically I want to loop through the records and call a custom Java API.
thanks

Please help

Need Sample pci serial driver

Hi,
- I'm new to developing device driver in VMKernel. Developing driver for PCI card which support 2 UART ports.
- Using VMWare ESXi 5.5.
- I just need sample driver so i could know which functions are supported and flow of driver in vmkernel.
Need a sample driver for PCI card which opens 2 serial ports(UART 16950).
Thanks.

Hi:
You need this driver...
http://h20565.www2.hp.com/portal/site/hpsc/template.PAGE/public/psi/swdDetails/?sp4ts.oid=5037951&sp...

I need sample ABAP Z FM for Crystal

Hi,
I need sample ABAP Z FM for Crystal eg. if we pass PO# , it will return PO Detail.
Thanks,
Kaleel

Hi,
in case you are looking for the exact sample, then this is most likely the wrong forum. if you looking for sample ABAP Functions working with Crystal Reports you can use the functions from the SFLIGHT model.
Ingo

I need sample basic data file containing Product,Market,Measures etc

I need sample basic data file containing Product,Market,Measures etc to load data in to Sample Basic applications. Where can I get this?

As I am the World Domain Lead for Sample.Basic (this is a joke, btw, it's sort of like being King of my front stoop, and besides, I just made it up) I will note two things about CALCDAT.TXT.
1) It is not in columnar format, but instead in Essbase free-form data load format as user2571802 notes. This means if you take a look at it with a text editor, it's a bit confusing to read till you realize that it contains all dimensional information in the data file itself. See the DBAG's section on [Data Sources That Do Not Need A Rules File|http://download.oracle.com/docs/cd/E10530_01/doc/epm.931/html_esb_dbag/ddlintro.htm#ddlintro1029529].
2) CALCDAT.TXT contains level 0 and calculated results. Just load it -- there's no need to calculate it.
Regards,
Cameron Lackpour

Do I need sample clearance to use instruments in my songs

Do I need sample clearance to use software instruments in my songs

If you need to use DAQmx, then of course you need to use an NI card. But you are thinking of this in the wrong order. Do you need to use an NI card to communicate with teh FF device? You can, but there are probably other cards out there as well. If you use an NI card, it probably won't use DAQmx but other things such as VISA since it is probably more like a serial protocol than a DAQ device. If you use another brand, then you use the that company's drivers with it.
I just realized you posted in the wrong forum. This forum is for requesting files to be converted between different version of LabVIEW.
You should be posting elsewhere. Possibly Instrument Control (GPIB, Serial, VISA, IVI)

Hi need sample technical specifications

hi to all expertss,
i need sample functional specs and tech specs for
REPORTS
INTERFACES
ENHANCEMENTS
SCRIPTS AND SMARTFORMS
plz mail it to my id Mausam8 AT gmail.com
it will be great help for me before attending interviews
PLEASE ITS URGENT

hi kiran,
since been its notified that , they ask you to go for pseudo code , with full description on each and every evnt you perform in that , so aware of what you have to go, for vendor master the transaction to perform the particular function.
input parameters --> for that what type of data type , data element are used. you have to design for the entire screen. and more it is used for future reference to enhance or develope that particular one.
thanks & regards ,
senthilkumar

Need Sample java code

Hi,
iam working in SAP .
I need sample java code on how to convert Decimal to number
For Ex: I/p-----123.11
O/p----------------12311 ( with out decimal) want to remove the dicimal point what ever the input value and deliver it to the output
Please give me code
Regards
Suman

i don't know what do you want to do really. If you are doing it simply then you can take the input in a String and then remove the decimal.
String str = "123.11";
str = str.substring(0, str.indexOf("."));
System.out.println(str);

Needed sample program for emailing the report output

hi all,
neede sample program for emailing the report output

Hi,
Please refer this program for sending e-mail with attachment.
***INCLUDE ZHZLPP_CLZSN_DAILY_MIS_PRINT .
*&      Form print
*       text
* --> p1        text
* <-- p2        text
FORM print .
DATA: wa_output_options     TYPE ssfcompop,
         wa_control_parameters TYPE ssfctrlop,
         t_otfdata             TYPE ssfcrescl,
         t_pdf_tab             TYPE TABLE OF tline WITH HEADER LINE.
DATA: t_otf TYPE itcoo OCCURS 0 WITH HEADER LINE.
DATA: w_filesize TYPE i.
DATA: w_bin_filesize TYPE i.
DATA: i_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
i_tline TYPE TABLE OF tline WITH HEADER LINE,
v_form_name TYPE rs38l_fnam,
v_len_in LIKE sood-objlen,
w_return TYPE ssfcrescl.
DATA : l_mean TYPE p DECIMALS 2,
         l_mean1 TYPE p DECIMALS 2,
         l_mean2 TYPE p DECIMALS 2,
         l_mean3 TYPE p DECIMALS 4,
         temp    TYPE p DECIMALS 2,
         v_header LIKE zmisdisp3-remark,
         disp_d_kwh_mt TYPE zmisdisp5,
         disp_m_kwh_mt TYPE zmisdisp5,
         disp_d_mt_mw TYPE zmisdisp5,
         disp_m_mt_mw TYPE zmisdisp5,
         l_bptarget(16) TYPE p DECIMALS 2,
         l_act_d(16)    TYPE p DECIMALS 2,
         l_act_c(16)    TYPE p DECIMALS 2,
         l_pow_gen      TYPE p DECIMALS 2,
         l_pow_gen_d    TYPE p DECIMALS 2,
         l_pow_gen_c    TYPE p DECIMALS 2,
         l_no_of_days   TYPE p,
         disp_bptarget TYPE zmisdisp5,
         disp_act_d     TYPE zmisdisp5,
         disp_act_c     TYPE zmisdisp5,
         disp_d_kwh     TYPE zmisdisp5,
         disp_c_kwh     TYPE zmisdisp5,
         disp_d_mw      TYPE zmisdisp5,
         disp_c_mw      TYPE zmisdisp5,
         disp_pow_gen_d TYPE zmisdisp5,
         disp_pow_gen_c TYPE zmisdisp5,
         disp_pow_gen   TYPE zmisdisp5,
         disp_ftd_h1    TYPE zmisdisp5,
         disp_ftd_h2    TYPE zmisdisp5,
         disp_ftd_h3    TYPE zmisdisp5,
         disp_ftd_h4    TYPE zmisdisp5,
         disp_ftd_h5    TYPE zmisdisp5,
         disp_ftd_o1    TYPE zmisdisp5,
         disp_ftd_o2    TYPE zmisdisp5,
         disp_ftd_o4    TYPE zmisdisp5,
         disp_ftd_o5    TYPE zmisdisp5,
         disp_***_o1    TYPE zmisdisp5,
         disp_***_o2    TYPE zmisdisp5,
         disp_***_o4    TYPE zmisdisp5,
         disp_***_o5    TYPE zmisdisp5,
         disp_cath_d    TYPE zmisdisp5,
         disp_cath_c    TYPE zmisdisp5,
         disp_anode_d   TYPE zmisdisp5,
         disp_anode_c   TYPE zmisdisp5,
         l_rec_con_d_kwh(16) TYPE p DECIMALS 2,
         l_rec_con_c_kwh(16) TYPE p DECIMALS 2,
         l_rec_con_d_mw(16) TYPE p DECIMALS 2,
         l_rec_con_c_mw(16) TYPE p DECIMALS 2,
         tot_kah      TYPE p DECIMALS 2,
         avg_kah      TYPE p DECIMALS 2,
         disp_tot_kah TYPE zmisdisp5,
         disp_avg_kah TYPE zmisdisp5,
         v_ftd_h1 TYPE p DECIMALS 2,
         v_ftd_h2 TYPE p DECIMALS 2,
         v_ftd_h3 TYPE p DECIMALS 2,
         v_ftd_h4 TYPE p DECIMALS 2,
         v_ftd_h5 TYPE p DECIMALS 2,
         v_ftd_o1 TYPE p DECIMALS 2,
         v_ftd_o2 TYPE p DECIMALS 2,
         v_ftd_o4 TYPE p DECIMALS 2,
         v_ftd_o5 TYPE p DECIMALS 2,
         v_***_o1 TYPE p DECIMALS 2,
         v_***_o2 TYPE p DECIMALS 2,
         v_***_o4 TYPE p DECIMALS 2,
         v_***_o5 TYPE p DECIMALS 2,
         l_cdiff1 LIKE imrg-cdiff,
         l_cdiff2 LIKE imrg-cdiff,
         l_cdiff3 LIKE imrg-cdiff,
         l_cdiff4 LIKE imrg-cdiff,
         l_path   LIKE rlgrap-filename,
         l_flag.
DATA :prod_disp TYPE TABLE OF zmisdisp1 WITH HEADER LINE,
        keyp_disp TYPE TABLE OF zmisdisp2 WITH HEADER LINE,
        keyp_dis1 TYPE TABLE OF zmisdisp2 WITH HEADER LINE,
        rmat_disp TYPE TABLE OF zmisdisp4 WITH HEADER LINE,
        rcur_disp TYPE TABLE OF zmisdisp6 WITH HEADER LINE,
        rhrs_disp TYPE TABLE OF zmisdisp4 WITH HEADER LINE,
        brkd_disp TYPE TABLE OF zmisdisp7 WITH HEADER LINE.
DEFINE fill_kpp.
    clear l_flag.
    loop at it_mic_data where kurztext = &1.
      l_mean1 = it_mic_data-mittelwert.
      l_mean = it_mic_data-mean.
      if l_flag = ' '.
        move : &2                     to keyp_disp-desc,
               l_mean1                to keyp_disp-ftd.
        if     it_mic_data-kurztext = 'Ingot Pb SHG Zinc'.
          l_mean2 = v_mean_pbshg.
          move   l_mean2                to keyp_disp-avg.
        elseif it_mic_data-kurztext = 'Ingot Cu SHG Zinc'.
          l_mean2 = v_mean_cushg.
          move   l_mean2                to keyp_disp-avg.
        elseif it_mic_data-kurztext = 'Ingot Cd SHG Zinc'.
          l_mean2 = v_mean_cdshg.
          move   l_mean2                to keyp_disp-avg.
        elseif it_mic_data-kurztext = 'Ingot Fe SHG Zinc'.
          l_mean2 = v_mean_feshg.
          move   l_mean2                to keyp_disp-avg.
        elseif it_mic_data-kurztext = 'Ingot Zn SHG Zinc'.
          l_mean2 = v_mean_znshg.
          move   l_mean2                to keyp_disp-avg.
        else.
          move   l_mean                 to keyp_disp-avg.
        endif.
        if     it_mic_data-masseinhsw = 'GLI'.
          move 'g/l'                  to keyp_disp-unit.
        elseif it_mic_data-masseinhsw = 'PPM'.
          move 'ppm'                  to keyp_disp-unit.
        elseif it_mic_data-masseinhsw = 'NO'.
          move 'no'                   to keyp_disp-unit.
        else.
          move it_mic_data-masseinhsw to keyp_disp-unit.
        endif.
        append keyp_disp.
        clear keyp_disp.
        move 'X' to l_flag.
      else.
        move : l_mean1                to keyp_disp-ftd.
        append keyp_disp.
        clear keyp_disp.
      endif.
    endloop.
    if sy-subrc is not initial.
      move &2 to keyp_disp-desc.
      append keyp_disp.
      clear keyp_disp.
    endif.
END-OF-DEFINITION.
DEFINE fill_kp1.
    clear l_flag.
    loop at it_mic_data where kurztext = &1.
      l_mean1 = it_mic_data-mittelwert.
      l_mean = it_mic_data-mean.
      if l_flag = ' '.
        move : &2                     to keyp_dis1-desc,
               l_mean1                to keyp_dis1-ftd.
        if     it_mic_data-kurztext = 'Ingot Pb SHG Zinc'.
          l_mean2 = v_mean_pbshg.
          move   l_mean2                to keyp_dis1-avg.
        elseif it_mic_data-kurztext = 'Ingot Cu SHG Zinc'.
          l_mean2 = v_mean_cushg.
          move   l_mean2                to keyp_dis1-avg.
        elseif it_mic_data-kurztext = 'Ingot Cd SHG Zinc'.
          l_mean2 = v_mean_cdshg.
          move   l_mean2                to keyp_dis1-avg.
        elseif it_mic_data-kurztext = 'Ingot Fe SHG Zinc'.
          l_mean2 = v_mean_feshg.
          move   l_mean2                to keyp_dis1-avg.
        elseif it_mic_data-kurztext = 'Ingot Zn SHG Zinc'.
          l_mean3 = v_mean_znshg.
          move   l_mean3                to keyp_dis1-avg.
          clear l_mean3.
          l_mean3 = it_mic_data-mittelwert.
          move   l_mean3                to keyp_dis1-ftd.
        else.
          move   l_mean                 to keyp_dis1-avg.
        endif.
        if     it_mic_data-masseinhsw = 'GLI'.
          move 'g/l'                  to keyp_dis1-unit.
        elseif it_mic_data-masseinhsw = 'PPM'.
          move 'ppm'                  to keyp_dis1-unit.
        elseif it_mic_data-masseinhsw = 'NO'.
          move 'no'                   to keyp_dis1-unit.
        else.
          move it_mic_data-masseinhsw to keyp_dis1-unit.
        endif.
        append keyp_dis1.
        clear keyp_dis1.
        move 'X' to l_flag.
      else.
        if it_mic_data-kurztext = 'Ingot Zn SHG Zinc'.
          clear l_mean3.
          l_mean3 = it_mic_data-mittelwert.
          move   l_mean3                to keyp_dis1-ftd.
        else.
          move : l_mean1                to keyp_dis1-ftd.
        endif.
        append keyp_dis1.
        clear keyp_dis1.
      endif.
    endloop.
    if sy-subrc is not initial.
      move &2 to keyp_dis1-desc.
      append keyp_dis1.
      clear keyp_dis1.
    endif.
END-OF-DEFINITION.
*FIRST PAGE
********PLANT HEADER
MOVE 'CLZS HYDRO I PLANT - DAILY PRODUCTION REPORT' TO v_header.
********Production figure
LOOP AT it_disp1.
    prod_disp-desc        = it_disp1-desc.
    prod_disp-d_plnmg     = it_disp1-d_plnmg.
    prod_disp-d_menge     = it_disp1-d_menge.
    prod_disp-u_plnmg     = it_disp1-u_plnmg.
    prod_disp-u_menge     = it_disp1-u_menge.
    prod_disp-avg         = it_disp1-avg.
    prod_disp-ask_rate    = it_disp1-ask_rate.
    prod_disp-m_plnmg     = it_disp1-m_plnmg.
    prod_disp-y_plnmg     = it_disp1-y_plnmg.
    prod_disp-y_menge     = it_disp1-y_menge.
    prod_disp-y_variance = it_disp1-y_variance.
    APPEND prod_disp.
ENDLOOP.
********Key performance parameters
MOVE 'ROASTER :' TO keyp_disp-desc.
APPEND keyp_disp.
fill_kpp '% S/S IN 45 DEG'            ' S/S in Calcine'.
MOVE 'LEACHING :' TO keyp_disp-desc.
APPEND keyp_disp.
fill_kpp '% S/S IN CAL'              ' S/S in Calcine'.
fill_kpp '%water soluble Zn'          ' W/S Zn in Jarosite Cake'.
fill_kpp '%total Zn in HBF'           ' T/Zn in Jarosite cake'.
fill_kpp 'ZINC IN CT'                 ' Zn in Conditioning tank'.
fill_kpp 'g/l zn in neutral overflow' ' Zn in Electrolyte Prod (gpl)'.
fill_kpp 'PPM CU IN PS25'             ' Purified Solution Cu'.
fill_kpp 'PPM CADMIUM IN PS25'        ' Purified Solution Cd'.
fill_kpp 'PPM COBALT IN PS25'         ' Purified Solution Co'.
MOVE 'CELLHOUSE :' TO keyp_disp-desc.
APPEND keyp_disp.
fill_kpp 'g/l zinc in cell feed'      ' Cell Feed Zinc gpl'.
fill_kpp 'GPL ACID IN CELL FEED'      ' Cell Feed acidity gpl'.
fill_kpp 'g/l manganese in cell feed' ' Cell Feed Mn gpl'.
LOOP AT t_imrg_add_disp.
    MOVE: t_imrg_add_disp-desc    TO keyp_disp-desc,
           t_imrg_add_disp-d_value TO keyp_disp-ftd,
           t_imrg_add_disp-c_value TO temp,
           temp                    TO keyp_disp-avg.
    IF t_imrg_add_disp-units = 'NO'.
      MOVE: 'no'                    TO keyp_disp-unit.
    ELSE.
      MOVE: t_imrg_add_disp-units   TO keyp_disp-unit.
    ENDIF.
    APPEND keyp_disp.CLEAR keyp_disp.
ENDLOOP.
fill_kp1 'Ingot Pb SHG Zinc'          ' Ingot Pb SHG Zinc'.
fill_kp1 'Ingot Cu SHG Zinc'          ' Ingot Cu SHG Zinc'.
fill_kp1 'Ingot Cd SHG Zinc'          ' Ingot Cd SHG Zinc'.
fill_kp1 'Ingot Fe SHG Zinc'          ' Ingot Fe SHG Zinc'.
fill_kp1 'Ingot Zn SHG Zinc'          ' Ingot Zn SHG Zinc'.
********Cellhouse power
CATCH SYSTEM-EXCEPTIONS bcd_zerodivide = 1.
    v_m_kwh_mt = v_ind8_m / cathode_recipt.
    v_m_mt_mw = cathode_recipt / ( v_ind8_m / 24000 ).
ENDCATCH.
MOVE : v_d_kwh_mt TO disp_d_kwh_mt,
         v_m_kwh_mt TO disp_m_kwh_mt,
         v_d_mt_mw TO disp_d_mt_mw,
         v_m_mt_mw TO disp_m_mt_mw.
*SECOND PAGE
********Raw Material
LOOP AT it_disp3.
    rmat_disp-desc    = it_disp3-desc.
    rmat_disp-opstk   = it_disp3-opstk.
    rmat_disp-d_recpt = it_disp3-d_recpt.
    rmat_disp-u_recpt = it_disp3-u_recpt.
    rmat_disp-d_cons = it_disp3-d_cons.
    rmat_disp-u_cons = it_disp3-u_cons.
    rmat_disp-clstk   = it_disp3-clstk.
    APPEND rmat_disp.
ENDLOOP.
********Work in Progress
********Finished Goods
********power consumption
l_no_of_days = v_mm_en_dt+6(2).
CATCH SYSTEM-EXCEPTIONS bcd_zerodivide = 1.
    l_bptarget   = ( v_bp_nrms_p * v_gross_d ) / l_no_of_days.
    l_act_d      = v_ind6_d + v_ind2_d - ( v_ind3_d + ( v_ind4_d / 2 ) ) - v_ind5_d.
    l_act_c      = v_ind6_m + v_ind2_m - ( v_ind3_m + ( v_ind4_m / 2 ) ) - v_ind5_m.
    l_pow_gen    = ( v_ind2_d / 1000 ) / v_ind7_d.
ENDCATCH.
l_pow_gen_d = v_ind2_d / 1000.
l_pow_gen_c = v_ind9_m / 1000.
l_rec_con_d_kwh = v_ind8_d.
l_rec_con_c_kwh = v_ind8_m.
l_rec_con_d_mw = v_ind8_d / 24000.
l_rec_con_c_mw = v_ind8_m / ( 24000 * v_days_pased ).
LOOP AT t_disp_curr.
    rcur_disp-time    = t_disp_curr-time.
    rcur_disp-current = t_disp_curr-current.
    rcur_disp-kah     = t_disp_curr-kah.
    APPEND rcur_disp.
    AT LAST.
      SUM.
      tot_kah = t_disp_curr-kah.
    ENDAT.
ENDLOOP.
avg_kah = tot_kah / '24'.
*********************running hrs
LOOP AT it_disp6.
    rhrs_disp-desc    = it_disp6-desc.
    rhrs_disp-opstk   = it_disp6-d_runhrs.
    rhrs_disp-d_recpt = it_disp6-m_runhrs.
    APPEND rhrs_disp.
ENDLOOP.
rhrs_disp-desc    = 'Turbo Generator'.
rhrs_disp-opstk   = v_turbod.
rhrs_disp-d_recpt = v_turboc.
INSERT rhrs_disp INDEX 2.
**********************BREAK_DOWN & OIL
CLEAR value.
LOOP AT itab2.
    IF itab2-equnr = 'NMZ-EH01G001'.
      PERFORM s_conversion_h.
      v_ftd_h1 = v_ftd_h1 + value.
      CLEAR value.
    ENDIF.
    IF itab2-equnr = 'NMZ-EH01G002'.
      PERFORM s_conversion_h.
      v_ftd_h2 = v_ftd_h2 + value.
      CLEAR value.
    ENDIF.
    IF itab2-equnr = 'NMZ-EH01V003'.
      PERFORM s_conversion_h.
      v_ftd_h3 = v_ftd_h3 + value.
      CLEAR value.
    ENDIF.
    IF itab2-equnr = 'NMZ-EH01V001'.
      PERFORM s_conversion_h.
      v_ftd_h4 = v_ftd_h4 + value.
      CLEAR value.
    ENDIF.
    IF itab2-equnr = 'NMZ-EH01V002'.
      PERFORM s_conversion_h.
      v_ftd_h5 = v_ftd_h5 + value.
      CLEAR value.
    ENDIF.
ENDLOOP.
LOOP AT t_oil.
    AT END OF ind.
      SUM.
      IF t_oil-ind = 1.
        v_***_o1 = t_oil-cdiff * 1000.
      ELSEIF t_oil-ind = 2.
        v_***_o2 = t_oil-cdiff * 1000.
      ELSEIF t_oil-ind = 3.
        v_***_o4 = t_oil-cdiff * 1000.
      ELSEIF t_oil-ind = 4.
        v_***_o5 = t_oil-cdiff * 1000.
      ENDIF.
    ENDAT.
    IF t_oil-idate = p_repdt.
      IF t_oil-ind = 1.
        l_cdiff1 = l_cdiff1 + t_oil-cdiff.
      ELSEIF t_oil-ind = 2.
        l_cdiff2 = l_cdiff2 + t_oil-cdiff.
      ELSEIF t_oil-ind = 3.
        l_cdiff3 = l_cdiff3 + t_oil-cdiff.
      ELSEIF t_oil-ind = 4.
        l_cdiff4 = l_cdiff4 + t_oil-cdiff.
      ENDIF.
    ENDIF.
ENDLOOP.
v_ftd_o1 = l_cdiff1 * 1000.
v_ftd_o2 = l_cdiff2 * 1000.
v_ftd_o4 = l_cdiff3 * 1000.
v_ftd_o5 = l_cdiff4 * 1000.
*********Breakdown details----3rd page
LOOP AT itab INTO wa.
    CALL FUNCTION 'FLTP_CHAR_CONVERSION'
      EXPORTING
        decim = 0
        expon = 0
        input = wa-auszt
        ivalu = 'X'
      IMPORTING
        flstr = wk_char_auszt.
    CONDENSE wk_char_auszt NO-GAPS.
    wk_flt_auszt = wk_char_auszt.
    wk_flt_auszt = wk_flt_auszt / 3600.
    duration = wk_flt_auszt.
    brkd_disp-eqdesc = wa-eqktx.
    brkd_disp-nodesc = wa-qmtxt.
    brkd_disp-hrs    = duration.
    APPEND brkd_disp.
ENDLOOP.
MOVE : v_ftd_h1 TO disp_ftd_h1,
         v_ftd_h2 TO disp_ftd_h2,
         v_ftd_h3 TO disp_ftd_h3,
         v_ftd_h4 TO disp_ftd_h4,
         v_ftd_h5 TO disp_ftd_h5,
         v_ftd_o1 TO disp_ftd_o1,
         v_ftd_o2 TO disp_ftd_o2,
         v_ftd_o4 TO disp_ftd_o4,
         v_ftd_o5 TO disp_ftd_o5,
         v_***_o1 TO disp_***_o1,
         v_***_o2 TO disp_***_o2,
         v_***_o4 TO disp_***_o4,
         v_***_o5 TO disp_***_o5,
         l_bptarget      TO disp_bptarget,
         l_act_d         TO disp_act_d,
         l_act_c         TO disp_act_c,
         l_rec_con_d_kwh TO disp_d_kwh,
         l_rec_con_c_kwh TO disp_c_kwh,
         l_rec_con_d_mw TO disp_d_mw,
         l_rec_con_c_mw TO disp_c_mw,
         tot_kah         TO disp_tot_kah,
         avg_kah         TO disp_avg_kah,
         l_pow_gen       TO disp_pow_gen,
         l_pow_gen_d     TO disp_pow_gen_d,
         l_pow_gen_c     TO disp_pow_gen_c,
         v_cath_d        TO disp_cath_d,
         v_cath_c        TO disp_cath_c,
         v_anode_d       TO disp_anode_d,
         v_anode_c       TO disp_anode_c.
wa_output_options-tdimmed = 'X'.
wa_control_parameters-device = 'PRINTER'.
wa_control_parameters-preview = 'X'.
IF rb3 = 'X'.
    wa_control_parameters-getotf = 'X'.
    wa_control_parameters-no_dialog = 'X'.
ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = 'ZHZLPP_CLZSN_DAILY_MIS'
    IMPORTING
      fm_name            = v_form_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.
IF sy-subrc <> 0.
ENDIF.
CALL FUNCTION v_form_name
    EXPORTING
      control_parameters         = wa_control_parameters
      output_options             = wa_output_options
      user_settings              = 'X'
      header                     = v_header
      date                       = p_repdt
      l_bptarget                 = disp_bptarget
      l_act_d                    = disp_act_d
      l_act_c                    = disp_act_c
      disp_d_kwh                 = disp_d_kwh
      disp_c_kwh                 = disp_c_kwh
      disp_d_mw                  = disp_d_mw
      disp_c_mw                  = disp_c_mw
      disp_tot_kah               = disp_tot_kah
      disp_avg_kah               = disp_avg_kah
      disp_d_kwh_mt              = disp_d_kwh_mt
      disp_m_kwh_mt              = disp_m_kwh_mt
      disp_d_mt_mw               = disp_d_mt_mw
      disp_m_mt_mw               = disp_m_mt_mw
      disp_pow_gen               = disp_pow_gen
      disp_pow_gen_d             = disp_pow_gen_d
      disp_pow_gen_c             = disp_pow_gen_c
      disp_ftd_h1                = disp_ftd_h1
      disp_ftd_h2                = disp_ftd_h2
      disp_ftd_h3                = disp_ftd_h3
      disp_ftd_h4                = disp_ftd_h4
      disp_ftd_h5                = disp_ftd_h5
      disp_ftd_o1                = disp_ftd_o1
      disp_ftd_o2                = disp_ftd_o2
      disp_ftd_o4                = disp_ftd_o4
      disp_ftd_o5                = disp_ftd_o5
      disp_***_o1                = disp_***_o1
      disp_***_o2                = disp_***_o2
      disp_***_o4                = disp_***_o4
      disp_***_o5                = disp_***_o5
      disp_cath_d                = disp_cath_d
      disp_cath_c                = disp_cath_c
      disp_anode_d               = disp_anode_d
      disp_anode_c               = disp_anode_c
IMPORTING
    job_output_info              = w_return           " .
    TABLES
      prod_tab                   = prod_disp
      keyp_tab                   = keyp_disp
      remk_tab                   = it_remarks
      rmat_tab                   = rmat_disp
      rwip_tab                   = it_disp4
      rfng_tab                   = it_disp_fg
      rcur_tab                   = rcur_disp
      rhrs_tab                   = rhrs_disp
      brkd_tab                   = brkd_disp
      keyp_tab1                  = keyp_dis1
    EXCEPTIONS
      formatting_error           = 1
      internal_error             = 2
      send_error                 = 3
      user_canceled              = 4
      OTHERS                     = 5
IF sy-subrc <> 0.
    MESSAGE 'Error in printing form' TYPE 'I'.
ENDIF.
********Downloading in pdf format.
IF rb3 = 'X'.
    IF l_usract <> 9.
      MOVE fullpath TO l_path.
      i_otf[] = w_return-otfdata[].
      CALL FUNCTION 'CONVERT_OTF'                   "
        EXPORTING
          format                = 'PDF'
          max_linewidth         = 132
        IMPORTING
          bin_filesize          = v_len_in
        TABLES
          otf                   = i_otf
          lines                 = i_tline
        EXCEPTIONS
          err_max_linewidth     = 1
          err_format            = 2
          err_conv_not_possible = 3
          OTHERS                = 4.
      IF sy-subrc <> 0.
      ENDIF.
      CALL FUNCTION 'WS_DOWNLOAD'
        EXPORTING
          bin_filesize            = v_len_in
          filename                = l_path
          filetype                = 'BIN'
        IMPORTING
          filelength              = w_filesize
        TABLES
          data_tab                = i_tline
        EXCEPTIONS
          file_open_error         = 1
          file_write_error        = 2
          invalid_filesize        = 3
          invalid_type            = 4
          no_batch                = 5
          unknown_error           = 6
          invalid_table_width     = 7
          gui_refuse_filetransfer = 8
          customer_error          = 9
          OTHERS                  = 10.
      IF sy-subrc = 0.
        MESSAGE 'File downloaded successfully' TYPE 'S'.
      ENDIF.
    ENDIF.
ENDIF.
IF sy-batch = 'X'.               " SENDING MAILS IF SCHEDULED IN BACKGROUND
    DATA: formname           TYPE tdsfname,
          fm_name            TYPE rs38l_fnam,
          control_parameters TYPE ssfctrlop,
          output_options     TYPE ssfcompop,
          job_output_info    TYPE ssfcrescl,
          otf_data           TYPE tsfotf.
    DATA: otf                TYPE TABLE OF itcoo WITH HEADER LINE,
          doctab_archive     TYPE TABLE OF docs WITH HEADER LINE,
          lines              TYPE TABLE OF tline WITH HEADER LINE,
          bin_filesize       TYPE i.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname           = 'ZHZLPP_CLZSN_DAILY_MIS'
      IMPORTING
        fm_name            = v_form_name
      EXCEPTIONS
        no_form            = 1
        no_function_module = 2
        OTHERS             = 3.
    IF sy-subrc <> 0.
    ENDIF.
    control_parameters-no_dialog = 'X'.
    control_parameters-getotf    = 'X'.
    CALL FUNCTION v_form_name
      EXPORTING
        control_parameters = control_parameters
        header             = v_header
        date               = p_repdt
        l_bptarget         = disp_bptarget
        l_act_d            = disp_act_d
        l_act_c            = disp_act_c
        disp_d_kwh         = disp_d_kwh
        disp_c_kwh         = disp_c_kwh
        disp_d_mw          = disp_d_mw
        disp_c_mw          = disp_c_mw
        disp_tot_kah       = disp_tot_kah
        disp_avg_kah       = disp_avg_kah
        disp_d_kwh_mt      = disp_d_kwh_mt
        disp_m_kwh_mt      = disp_m_kwh_mt
        disp_d_mt_mw       = disp_d_mt_mw
        disp_m_mt_mw       = disp_m_mt_mw
        disp_pow_gen       = disp_pow_gen
        disp_pow_gen_d     = disp_pow_gen_d
        disp_pow_gen_c     = disp_pow_gen_c
        disp_ftd_h1        = disp_ftd_h1
        disp_ftd_h2        = disp_ftd_h2
        disp_ftd_h3        = disp_ftd_h3
        disp_ftd_h4        = disp_ftd_h4
        disp_ftd_h5        = disp_ftd_h5
        disp_ftd_o1        = disp_ftd_o1
        disp_ftd_o2        = disp_ftd_o2
        disp_ftd_o4        = disp_ftd_o4
        disp_ftd_o5        = disp_ftd_o5
        disp_***_o1        = disp_***_o1
        disp_***_o2        = disp_***_o2
        disp_***_o4        = disp_***_o4
        disp_***_o5        = disp_***_o5
        disp_cath_d        = disp_cath_d
        disp_cath_c        = disp_cath_c
        disp_anode_d       = disp_anode_d
        disp_anode_c       = disp_anode_c
      IMPORTING
        job_output_info    = job_output_info
      TABLES
        prod_tab           = prod_disp
        keyp_tab           = keyp_disp
        remk_tab           = it_remarks
        rmat_tab           = rmat_disp
        rwip_tab           = it_disp4
        rfng_tab           = it_disp_fg
        rcur_tab           = rcur_disp
        rhrs_tab           = rhrs_disp
        brkd_tab           = brkd_disp
        keyp_tab1          = keyp_dis1
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc = 0.
      otf_data = job_output_info-otfdata[].
      CALL FUNCTION 'CONVERT_OTF_2_PDF'
        IMPORTING
          bin_filesize           = bin_filesize
        TABLES
          otf                    = otf_data[]
          doctab_archive         = doctab_archive[]
          lines                  = lines[]
        EXCEPTIONS
          err_conv_not_possible = 1
          err_otf_mc_noendmarker = 2
          OTHERS                 = 3.
      IF sy-subrc = 0.
        SUBMIT rsconn01 with mode = 'INT' AND RETURN.
*                                    ----<<distrubution list>>----
        PERFORM mail_users TABLES lines USING 'MIS-HY1A' v_header.   " Donot put more than 8 email-ids
        PERFORM mail_users TABLES lines USING 'MIS-HY1B' v_header.   " in a distribution list
        PERFORM mail_users TABLES lines USING 'MIS-HY1C' v_header.
        PERFORM mail_users TABLES lines USING 'MIS-HY1D' v_header.
        PERFORM mail_users TABLES lines USING 'MIS-HY1E' v_header.
        PERFORM mail_users TABLES lines USING 'MIS-HY1F' v_header.
        PERFORM mail_users TABLES lines USING 'MIS-HY1G' v_header.
        PERFORM mail_users TABLES lines USING 'MIS-HY1H' v_header.
        PERFORM mail_users TABLES lines USING 'MIS-HY1I' v_header.
        PERFORM mail_users TABLES lines USING 'MIS-HY1J' v_header.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " print
*&      Form get_download_path
*       text
* --> p1        text
* <-- p2        text
FORM get_download_path .
CALL FUNCTION 'GUI_FILE_SAVE_DIALOG'
    EXPORTING
      window_title      = 'Download as pdf file'
      default_extension = 'pdf'
    IMPORTING
      fullpath          = fullpath
      user_action       = l_usract.
IF l_usract = '9'.
    STOP.
ENDIF.
ENDFORM.                    " get_download_path
*&      Form mail_users
*       text
*      -->P_LINES text
*      -->P_2153   text
*      -->P_V_HEADER text
FORM mail_users TABLES   p_lines STRUCTURE tline
                 USING    p_dist_list
                          p_v_header.
CONSTANTS: c_raw TYPE so_obj_tp VALUE 'RAW',
             c_pdf TYPE so_obj_tp VALUE 'PDF',
             c_255 TYPE i VALUE 255,
             c_134 TYPE i VALUE 134,
             c_x   TYPE c VALUE 'X'.
DATA: document_data LIKE sodocchgi1 ,
        tab_lines     TYPE i,
        contents_txt TYPE TABLE OF solisti1 WITH HEADER LINE,
        contents_bin TYPE TABLE OF solisti1 WITH HEADER LINE,
        packing_list TYPE TABLE OF sopcklsti1 WITH HEADER LINE,
        object_header TYPE TABLE OF solisti1 WITH HEADER LINE,
        receivers     TYPE TABLE OF somlreci1 WITH HEADER LINE,
        l_str(255) ,
        v1 TYPE i,
        v2 TYPE i,
        v3 TYPE i.
document_data-obj_name = 'EMAIL'.
document_data-obj_descr = p_v_header. " SUBJECT LINE
CONCATENATE 'Please find the attached SAP generated Daily Production Report for the day'
              p_repdt+6(2)
              p_repdt+4(2)
              '.' p_repdt+0(4)
         INTO contents_txt.
APPEND      contents_txt.
CLEAR       contents_txt.
APPEND      contents_txt.
APPEND      contents_txt.
DESCRIBE TABLE contents_txt LINES tab_lines.
READ TABLE     contents_txt INDEX tab_lines.
document_data-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( contents_txt ).
document_data-doc_size = tab_lines .
CLEAR packing_list-transf_bin.
packing_list-head_start = 1.
packing_list-head_num   = 0.
packing_list-body_start = 1.
packing_list-body_num   = tab_lines.
packing_list-doc_type   = c_raw.
packing_list-doc_size   = document_data-doc_size.
APPEND packing_list.
LOOP AT p_lines.
    CLEAR l_str.
    l_str+0(2)   = p_lines-tdformat.
    l_str+2(132) = p_lines-tdline.
    v2 = v1 + c_134.
    IF v2 LE c_255.
      contents_bin-line+v1(c_134) = l_str. v1 = v2.
    ELSE.
      v3 = v2 - c_255.
      v2 = c_255 - v1.
      IF NOT v2 IS INITIAL.
        contents_bin-line+v1(v2) = l_str+0(v2).
      ENDIF.
      APPEND contents_bin.
      CLEAR contents_bin.
      v1 = v3.
      v3 = 134 - v1.
      IF NOT v1 IS INITIAL.
        contents_bin-line+0(v1) = l_str+v3(v1).
      ENDIF.
    ENDIF.
ENDLOOP.
APPEND contents_bin.
CLEAR contents_bin.
DESCRIBE TABLE contents_bin LINES tab_lines.
READ     TABLE contents_bin INDEX tab_lines.
CONCATENATE 'Hy-I Report'
              p_repdt+6(2)
              p_repdt+4(2)
              '.' p_repdt+0(4)
              '.pdf'
         INTO object_header.
APPEND object_header.
packing_list-transf_bin = c_x.
packing_list-head_start = 1.
packing_list-head_num   = 1.
packing_list-body_start = 1.
packing_list-body_num   = tab_lines.
packing_list-doc_type   = c_pdf.
packing_list-obj_name   = 'text1'.
packing_list-obj_descr = 'Production report'.
packing_list-doc_size   = tab_lines * 255 + STRLEN( contents_bin ).
APPEND packing_list.
receivers-receiver      = p_dist_list.
receivers-rec_type      = 'C'.
APPEND receivers.
CLEAR receivers.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = document_data
      put_in_outbox              = ' '
      SENDER_ADDRESS             = 'CZPPPLG'
      SENDER_ADDRESS_TYPE        = 'B'
      commit_work                = 'X'
    TABLES
      packing_list               = packing_list
      object_header              = object_header
      contents_bin               = contents_bin
      contents_txt               = contents_txt
      receivers                  = receivers
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      document_type_not_exist    = 3
      operation_no_authorization = 4
      parameter_error            = 5
      x_error                    = 6
      enqueue_error              = 7
      OTHERS                     = 8.
IF sy-subrc = 0.
    WAIT UP TO 2 SECONDS.
    SUBMIT rsconn01 with mode = 'INT' AND RETURN.
ENDIF.
ENDFORM.                    " mail_users

I need sample mdi canvas or mdi canvas?

hi to all,
any body help me,
i need sample mdi canvas or mdi canvas?
regards,
welcanv

Which environment? Flex 3 or Flex 4?
Christopher Coenraets did a simple example a long time back http://coenraets.org/blog/2007/05/new-mdi-style-trader-desktop-with-flex-and-apollo/
I've used a variant of this in Flex 4 after some minor cleanup and partial spark-ification.
There's also the flexlib project at http://code.google.com/p/flexlib/ that has MDIContainer and a bunch of MDI related stuff. Not sparkified yet, afaik.

Need Sample BBP of PSU Sector

Similar Messages

Maybe you are looking for