Pls respond
hi,all respond
differnce between sap scripts and smartforms
Hi Srinivas,
Post this in the Abap forum, You will get more replies....
1).Smartforms are client independent and Sapscripts are client dependent.
2).Multiple page formats are possible in smartforms which is not the case in SAPScripts
3).It is possible to have a smartform without a main window .
4).Labels cannot be created in smartforms.
5).Routines can be written in smartforms tool.
6).Smartforms generates a function module when activated.
Cheers...
Vasu
<b>** REward POints if found useful **</b>
Similar Messages
-
Changing the Address for Shipto party for a Service Order..... pls respond
Hi friends,
When i create a Service Order, using CRM_ORDER_MAINTAIN, I want to pass Ship to party number and its address.(its not Master data from BUT000, ADRC tables.).
THe address data what i mean is when we go to Partners tab, the address you see is not master data.
I want to update this address.
Somehow i was able to create with my Shipto party , but im not able to give the address in the IT_PARTNER parameter of Crm_order_maintain.
How can i give the address aswell, when i create Service order, or even changing a service order.
Basically i want to change the address of ship to for a SO.
kindly respond....
thanks in advance,
NirajaTHis is the code i wrote to update the street: . but its not updating.. :((((((((((
pls hlp fnds...
CLEAR: ls_input_fields.
ls_input_fields-objectname = 'PARTNER'.
ls_input_fields-ref_kind = c_a.
IF p_header-guid IS INITIAL.
ls_input_fields-ref_handle = c_handle.
ls_sconf_partner-ref_handle = c_handle.
ELSE.
ls_input_fields-ref_guid = p_header-guid.
ls_sconf_partner-ref_guid = p_header-guid.
ENDIF.
ls_partfieldnames-fieldname = 'ADDR_NP'.
INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
ls_partfieldnames-fieldname = 'ADDR_NR'.
INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
ls_partfieldnames-fieldname = 'ADDR_ORIGIN'.
INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
ls_partfieldnames-fieldname = 'ADDR_TYPE'.
INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
ls_partfieldnames-fieldname = 'STD_BP_ADDRESS'.
INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
ls_partfieldnames-fieldname = 'KIND_OF_ENTRY'.
INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
ls_partfieldnames-fieldname = 'STREET'.
INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
ls_input_fields-field_names = lt_partfieldnames.
CONCATENATE '000000000055 ' p_header-shipto_no ' BPBP'
INTO ls_input_fields-logical_key.
INSERT ls_input_fields INTO TABLE lt_input_fields.
ls_sconf_partner-ref_partner_handle = '0001'.
ls_sconf_partner-ref_kind = c_a.
ls_sconf_partner-ref_partner_fct = c_00000055.
ls_sconf_partner-ref_partner_no = p_header-shipto_no. "'0010017295'. "
ls_sconf_partner-ref_no_type = 'BP'.
ls_sconf_partner-ref_display_type = 'BP'.
ls_sconf_partner-kind_of_entry = 'C'.
ls_sconf_partner-partner_fct = c_00000055.
ls_sconf_partner-partner_no = p_header-shipto_no. "'0010017295'. "
ls_sconf_partner-no_type = 'BP'.
ls_sconf_partner-display_type = 'BP'.
ls_sconf_partner-mainpartner = 'X'.
ls_sconf_partner-addr_nr = '0000060435'.
ls_sconf_partner-addr_np = ''.
ls_sconf_partner-addr_type = 1.
ls_sconf_partner-addr_origin = 'B'.
ls_sconf_partner-relation_partner = '48222495E5735887E1000000CC9AA02A'.
ls_sconf_partner-std_bp_address = ''.
ls_sconf_partner-street = 'helloteststreet'.
INSERT ls_sconf_partner INTO TABLE lt_sconf_partner.
Can somebody give me any hints. pls ......
thanks in advance,
Niraja -
Hi pls respond my code its urgent
hi,
my prblm is in this program i used bapi function module for upload excel data.
bapi_incominginvoice_park.
in my output park number showing increasing for each item.
so i need parknumber it should be same for all items.
i am sending my code pls check this.
*& Report ZBAPI_MIRO
&& Developed By : ESWAR
*& Created Date : 29.10.2007
*& Requested By : GANESH(MM)
*& SAP Area : MM
*& Output : Excel format,Using BDC for Tcode MIRO
REPORT ZBAPI_MIRO.
DATA: BEGIN OF INTERN OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA: END OF INTERN.
DATA : IT_INTERN LIKE INTERN OCCURS 0 WITH HEADER LINE.
No of columns
DATA: BEGIN OF DATA_TAB OCCURS 0,
VALUE_0001(10), "DOC.TYPE
VALUE_0002(10), "DOC DATE
VALUE_0003(10), " PSTNG.DATE
VALUE_0003(10), " GROSS_AMNT
VALUE_0004(10), " REF_DOC_NO
VALUE_0005(10), "BLINE_DATE
VALUE_0006(10), "HEADER_TXT
VALUE_0007(10), "INVOICE_DOC_ITEM
VALUE_0008(10), "PO_NUMBER
VALUE_0009(10), " PO_ITEM
VALUE_0010(10), "TAX_CODE
VALUE_0011(11), "ITEM_AMOUNT
VALUE_0012(10), "SHEET_NO
VALUE_0013(10), "ITEM_TEXT
VALUE_0014(10), "SHEET_ITEM
END OF DATA_TAB.
DATA : BEGIN OF IT_DATA OCCURS 0,
invoice_ind like BAPI_INCINV_CREATE_HEADER-invoice_ind,
doc_type like BAPI_INCINV_CREATE_HEADER-doc_type,
doc_date like BAPI_INCINV_CREATE_HEADER-doc_date,
pstng_date like BAPI_INCINV_CREATE_HEADER-pstng_date,
comp_code like BAPI_INCINV_CREATE_HEADER-comp_code,
currency like BAPI_INCINV_CREATE_HEADER-currency,
gross_amount like BAPI_INCINV_CREATE_HEADER-gross_amount,
calc_tax_ind like BAPI_INCINV_CREATE_HEADER-calc_tax_ind,
REF_DOC_NO LIKE BAPI_INCINV_CREATE_HEADER-REF_DOC_NO,
bline_date like BAPI_INCINV_CREATE_HEADER-bline_date,
header_txt like BAPI_INCINV_CREATE_HEADER-header_txt,
invoice_doc_item like BAPI_INCINV_CREATE_ITEM-invoice_doc_item,
po_number like BAPI_INCINV_CREATE_ITEM-po_number,
po_item like BAPI_INCINV_CREATE_ITEM-po_item,
tax_code like BAPI_INCINV_CREATE_ITEM-tax_code,
item_amount like BAPI_INCINV_CREATE_ITEM-ITEM_AMOUNT,
sheet_no like BAPI_INCINV_CREATE_ITEM-sheet_no,
item_text like BAPI_INCINV_CREATE_ITEM-item_text,
sheet_item like BAPI_INCINV_CREATE_ITEM-sheet_item,
END OF IT_DATA.
DATA : BEGIN OF IT_CHAR OCCURS 0,
IND(6) TYPE N, ""Index for comparison
CHARN LIKE RCTMS-MNAME, "CHAR NAME
CHARV LIKE RCTMS-MWERT, "CHAR VALUE
END OF IT_CHAR.
DATA: BEGIN OF it_msg OCCURS 0,
po_number LIKE BAPI_INCINV_CREATE_ITEM-po_number,
po_item like BAPI_INCINV_CREATE_ITEM-po_item,
message(20),
message1(90),
mblnr TYPE mkpf-mblnr,
END OF it_msg.
DATA : W_DATA LIKE LINE OF IT_DATA.
DATA : W_CHAR LIKE LINE OF IT_CHAR.
DATA: T_EXCELFILE TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS : <L_FS> .
DATA : W_INTERN LIKE LINE OF INTERN,
W_INTERN1 LIKE LINE OF IT_INTERN,
W_DATA_TAB LIKE LINE OF DATA_TAB.
DATA: TIND(4) TYPE N.
DATA: ZWFELD(19),ZWFELD1(19).
FIELD-SYMBOLS: <FS1>,<FS2>.
DATA : G_MODE(1),G_UPDATE(1).
DATA : G_FLG(1).
DATA : TOT_REC(6) TYPE N,
DUP_REC(6) TYPE N,
UPL_REC(6) TYPE N.
DATA: WA_DATA LIKE LINE OF IT_DATA,
WA_DATA1 LIKE WA_DATA.
DATA:WA_HEADER LIKE BAPI_INCINV_CREATE_HEADER,
WA_INVOICEDOCNUMBER TYPE BAPI_INCINV_FLD-INV_DOC_NO,
IT_ITEM LIKE BAPI_INCINV_CREATE_ITEM OCCURS 0 WITH HEADER LINE,
IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF IT_MBLNR OCCURS 0,
MBLNR LIKE MKPF-MBLNR,
MJAHR LIKE MKPF-MJAHR,
END OF IT_MBLNR.
*& Selection screen
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BLK.
*& AT SELECTION-SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM GET_FILE.
*& Start of selection
START-OF-SELECTION.
PERFORM GET_BDC_DATA.
PERFORM PROCESS_BDC_DATA.
PERFORM BDC_UPLOAD.
PERFORM display_log.
*& Form GET_FILE
FORM GET_FILE .
*F4-HELP FILE
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P_FILE.
ENDFORM. " GET_FILE
FORM GET_BDC_DATA .
DATA : WRK_FLG(1).
DATA : GIDX LIKE SY-TABIX.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FILE
I_BEGIN_COL = '1'
I_BEGIN_ROW = '1'
I_END_COL = '250'
I_END_ROW = '50000'
TABLES
INTERN = INTERN
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
WRITE:/ 'Upload Error ', SY-SUBRC.
ELSE.
SORT INTERN BY ROW COL.
LOOP AT INTERN.
TIND = INTERN-COL.
CONCATENATE 'DATA_TAB-VALUE_' TIND INTO ZWFELD.
ASSIGN (ZWFELD) TO <FS1>.
<FS1> = INTERN-VALUE.
AT END OF ROW.
APPEND DATA_TAB.
CLEAR:IT_CHAR,DATA_TAB.
ENDAT.
ENDLOOP.
ENDIF.
ENDFORM. " GET_BDC_DATA
*& Form PROCESS_BDC_DATA
FORM PROCESS_BDC_DATA .
DATA : WRK_IND(6) TYPE N.
DATA : WRK_ROW TYPE I,
GIDX LIKE SY-TABIX.
IF NOT DATA_TAB[] IS INITIAL.
LOOP AT DATA_TAB INTO W_DATA_TAB.
WRK_ROW = SY-TABIX.
IT_DATA-DOC_TYPE = W_DATA_TAB-VALUE_0001.
IT_DATA-DOC_DATE = W_DATA_TAB-VALUE_0002.
IT_DATA-PSTNG_DATE = W_DATA_TAB-VALUE_0003.
it_data-ref_doc_no = w_data_tab-value_0004.
IT_DATA-GROSS_AMOUNT = W_DATA_TAB-VALUE_0004.
IT_DATA-BLINE_DATE = W_DATA_TAB-VALUE_0005.
IT_DATA-HEADER_TXT = W_DATA_TAB-VALUE_0006.
IT_DATA-INVOICE_DOC_ITEM = W_DATA_TAB-VALUE_0007.
IT_DATA-PO_NUMBER = W_DATA_TAB-VALUE_0008.
IT_DATA-PO_ITEM = W_DATA_TAB-VALUE_0009.
IT_DATA-TAX_CODE = W_DATA_TAB-VALUE_0010.
IT_DATA-ITEM_AMOUNT = W_DATA_TAB-VALUE_0011.
IT_DATA-SHEET_NO = W_DATA_TAB-VALUE_0012.
IT_DATA-ITEM_TEXT = W_DATA_TAB-VALUE_0013.
IT_DATA-SHEET_ITEM = W_DATA_TAB-VALUE_0014.
APPEND IT_DATA.
ENDLOOP.
ENDIF.
ENDFORM.
FORM BDC_UPLOAD.
DATA:LW_DATE(10).
DELETE ADJACENT DUPLICATES FROM it_data.
LOOP AT IT_DATA INTO WA_DATA1.
WA_DATA = WA_DATA1.
While program finds the header record, post the previous entries
if WA_data-DOC_TYPE NE ' '
AND wa_data-doc_date NE ' '
AND wa_data-pstng_date NE ' '
AND WA_data-REF_DOC_NO NE ' '
AND WA_data-BLINE_DATE NE ' '
AND WA_data-HEADER_TXT NE ' ' .
WA_HEADER-INVOICE_IND = 'X'.
WA_HEADER-COMP_CODE = 'TSKY'.
WA_HEADER-CURRENCY = 'INR'.
WA_HEADER-CALC_TAX_IND = 'X'.
IF sy-tabix NE 1.
update
PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
REFRESH it_item.
CLEAR: it_item, wa_header.
ENDIF.
*CONCATENATE WA_DATA-PSTNG_DATE+4(4)
WA_DATA-PSTNG_DATE+2(2)
WA_DATA-PSTNG_DATE+0(2) INTO LW_DATE.
WA_HEADER-DOC_DATE = LW_DATE.
WA_HEADER-PSTNG_DATE = LW_DATE.
wa_header-doc_type = wa_data-doc_type.
wa_header-doc_date = WA_DATA-DOC_DATE.
wa_header-pstng_date = WA_DATA-PSTNG_DATE.
WA_HEADER-REF_DOC_NO = WA_DATA-REF_DOC_NO.
WA_HEADER-BLINE_DATE = WA_DATA-BLINE_DATE.
WA_HEADER-HEADER_TXT = WA_DATA-HEADER_TXT.
ENDIF.
IT_item-INVOICE_DOC_ITEM = WA_DATA-INVOICE_DOC_ITEM.
IT_item-PO_NUMBER = WA_DATA-PO_NUMBER.
IT_item-PO_ITEM = WA_DATA-PO_ITEM.
IT_item-TAX_CODE = WA_DATA-TAX_CODE.
IT_item-ITEM_AMOUNT = WA_DATA-ITEM_AMOUNT.
IT_item-SHEET_NO = WA_DATA-SHEET_NO.
IT_item-ITEM_TEXT = WA_DATA-ITEM_TEXT.
IT_item-SHEET_ITEM = WA_DATA-SHEET_ITEM.
APPEND it_item.
CLEAR it_item.
ENDLOOP.
PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
ENDFORM. " f0200_UPDATE
FORM f0301_exe_bapi TABLES p_it_item STRUCTURE it_item
USING p_wa_header.
CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
EXPORTING
headerdata = wa_header
ADDRESSDATA =
IMPORTING
INVOICEDOCNUMBER = WA_INVOICEDOCNUMBER
FISCALYEAR = lc_gjahr
tables
itemdata = it_item
ACCOUNTINGDATA =
GLACCOUNTDATA =
MATERIALDATA =
TAXDATA =
WITHTAXDATA =
VENDORITEMSPLITDATA =
return = it_return.
READ TABLE it_return INDEX 1.
READ TABLE it_item INDEX 1.
IF it_return-type EQ 'E'.
MOVE it_item-po_number TO it_msg-po_number.
move it_item-po_item to it_msg-po_itm.
MOVE 'Discrepancy in PO' TO it_msg-message.
MOVE it_return-message to it_msg-message1.
APPEND it_msg.
CLEAR it_msg.
clear it_return.
ELSE.
MOVE it_item-po_number TO it_msg-po_number.
move it_item-po_item to it_msg-po_item.
MOVE 'Successfully parked' TO it_msg-message.
MOVE WA_INVOICEDOCNUMBER TO it_msg-mblnr.
APPEND it_msg.
CLEAR: it_msg, WA_INVOICEDOCNUMBER.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDIF.
ENDFORM. "f0301_exe_bapi
FORM display_log .
Display the log
WRITE : '10 Po_number', 25 'Message', 55 'Error message' ,135 'ParkedDocumentNumber'.
ULINE.
LOOP AT it_msg.
WRITE : /10 it_msg-po_number,
25 it_msg-message,
55 it_msg-message1,
135 it_msg-mblnr.
ULINE.
ENDLOOP.
ENDFORM. " display_loghi,
my prblm is in this program i used bapi function module for upload excel data.
bapi_incominginvoice_park.
in my output park number showing increasing for each item.
so i need parknumber it should be same for all items.
i am sending my code pls check this.
*& Report ZBAPI_MIRO
&& Developed By : ESWAR
*& Created Date : 29.10.2007
*& Requested By : GANESH(MM)
*& SAP Area : MM
*& Output : Excel format,Using BDC for Tcode MIRO
REPORT ZBAPI_MIRO.
DATA: BEGIN OF INTERN OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA: END OF INTERN.
DATA : IT_INTERN LIKE INTERN OCCURS 0 WITH HEADER LINE.
No of columns
DATA: BEGIN OF DATA_TAB OCCURS 0,
VALUE_0001(10), "DOC.TYPE
VALUE_0002(10), "DOC DATE
VALUE_0003(10), " PSTNG.DATE
VALUE_0003(10), " GROSS_AMNT
VALUE_0004(10), " REF_DOC_NO
VALUE_0005(10), "BLINE_DATE
VALUE_0006(10), "HEADER_TXT
VALUE_0007(10), "INVOICE_DOC_ITEM
VALUE_0008(10), "PO_NUMBER
VALUE_0009(10), " PO_ITEM
VALUE_0010(10), "TAX_CODE
VALUE_0011(11), "ITEM_AMOUNT
VALUE_0012(10), "SHEET_NO
VALUE_0013(10), "ITEM_TEXT
VALUE_0014(10), "SHEET_ITEM
END OF DATA_TAB.
DATA : BEGIN OF IT_DATA OCCURS 0,
invoice_ind like BAPI_INCINV_CREATE_HEADER-invoice_ind,
doc_type like BAPI_INCINV_CREATE_HEADER-doc_type,
doc_date like BAPI_INCINV_CREATE_HEADER-doc_date,
pstng_date like BAPI_INCINV_CREATE_HEADER-pstng_date,
comp_code like BAPI_INCINV_CREATE_HEADER-comp_code,
currency like BAPI_INCINV_CREATE_HEADER-currency,
gross_amount like BAPI_INCINV_CREATE_HEADER-gross_amount,
calc_tax_ind like BAPI_INCINV_CREATE_HEADER-calc_tax_ind,
REF_DOC_NO LIKE BAPI_INCINV_CREATE_HEADER-REF_DOC_NO,
bline_date like BAPI_INCINV_CREATE_HEADER-bline_date,
header_txt like BAPI_INCINV_CREATE_HEADER-header_txt,
invoice_doc_item like BAPI_INCINV_CREATE_ITEM-invoice_doc_item,
po_number like BAPI_INCINV_CREATE_ITEM-po_number,
po_item like BAPI_INCINV_CREATE_ITEM-po_item,
tax_code like BAPI_INCINV_CREATE_ITEM-tax_code,
item_amount like BAPI_INCINV_CREATE_ITEM-ITEM_AMOUNT,
sheet_no like BAPI_INCINV_CREATE_ITEM-sheet_no,
item_text like BAPI_INCINV_CREATE_ITEM-item_text,
sheet_item like BAPI_INCINV_CREATE_ITEM-sheet_item,
END OF IT_DATA.
DATA : BEGIN OF IT_CHAR OCCURS 0,
IND(6) TYPE N, ""Index for comparison
CHARN LIKE RCTMS-MNAME, "CHAR NAME
CHARV LIKE RCTMS-MWERT, "CHAR VALUE
END OF IT_CHAR.
DATA: BEGIN OF it_msg OCCURS 0,
po_number LIKE BAPI_INCINV_CREATE_ITEM-po_number,
po_item like BAPI_INCINV_CREATE_ITEM-po_item,
message(20),
message1(90),
mblnr TYPE mkpf-mblnr,
END OF it_msg.
DATA : W_DATA LIKE LINE OF IT_DATA.
DATA : W_CHAR LIKE LINE OF IT_CHAR.
DATA: T_EXCELFILE TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS : <L_FS> .
DATA : W_INTERN LIKE LINE OF INTERN,
W_INTERN1 LIKE LINE OF IT_INTERN,
W_DATA_TAB LIKE LINE OF DATA_TAB.
DATA: TIND(4) TYPE N.
DATA: ZWFELD(19),ZWFELD1(19).
FIELD-SYMBOLS: <FS1>,<FS2>.
DATA : G_MODE(1),G_UPDATE(1).
DATA : G_FLG(1).
DATA : TOT_REC(6) TYPE N,
DUP_REC(6) TYPE N,
UPL_REC(6) TYPE N.
DATA: WA_DATA LIKE LINE OF IT_DATA,
WA_DATA1 LIKE WA_DATA.
DATA:WA_HEADER LIKE BAPI_INCINV_CREATE_HEADER,
WA_INVOICEDOCNUMBER TYPE BAPI_INCINV_FLD-INV_DOC_NO,
IT_ITEM LIKE BAPI_INCINV_CREATE_ITEM OCCURS 0 WITH HEADER LINE,
IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF IT_MBLNR OCCURS 0,
MBLNR LIKE MKPF-MBLNR,
MJAHR LIKE MKPF-MJAHR,
END OF IT_MBLNR.
*& Selection screen
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BLK.
*& AT SELECTION-SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM GET_FILE.
*& Start of selection
START-OF-SELECTION.
PERFORM GET_BDC_DATA.
PERFORM PROCESS_BDC_DATA.
PERFORM BDC_UPLOAD.
PERFORM display_log.
*& Form GET_FILE
FORM GET_FILE .
*F4-HELP FILE
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P_FILE.
ENDFORM. " GET_FILE
FORM GET_BDC_DATA .
DATA : WRK_FLG(1).
DATA : GIDX LIKE SY-TABIX.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FILE
I_BEGIN_COL = '1'
I_BEGIN_ROW = '1'
I_END_COL = '250'
I_END_ROW = '50000'
TABLES
INTERN = INTERN
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
WRITE:/ 'Upload Error ', SY-SUBRC.
ELSE.
SORT INTERN BY ROW COL.
LOOP AT INTERN.
TIND = INTERN-COL.
CONCATENATE 'DATA_TAB-VALUE_' TIND INTO ZWFELD.
ASSIGN (ZWFELD) TO <FS1>.
<FS1> = INTERN-VALUE.
AT END OF ROW.
APPEND DATA_TAB.
CLEAR:IT_CHAR,DATA_TAB.
ENDAT.
ENDLOOP.
ENDIF.
ENDFORM. " GET_BDC_DATA
*& Form PROCESS_BDC_DATA
FORM PROCESS_BDC_DATA .
DATA : WRK_IND(6) TYPE N.
DATA : WRK_ROW TYPE I,
GIDX LIKE SY-TABIX.
IF NOT DATA_TAB[] IS INITIAL.
LOOP AT DATA_TAB INTO W_DATA_TAB.
WRK_ROW = SY-TABIX.
IT_DATA-DOC_TYPE = W_DATA_TAB-VALUE_0001.
IT_DATA-DOC_DATE = W_DATA_TAB-VALUE_0002.
IT_DATA-PSTNG_DATE = W_DATA_TAB-VALUE_0003.
it_data-ref_doc_no = w_data_tab-value_0004.
IT_DATA-GROSS_AMOUNT = W_DATA_TAB-VALUE_0004.
IT_DATA-BLINE_DATE = W_DATA_TAB-VALUE_0005.
IT_DATA-HEADER_TXT = W_DATA_TAB-VALUE_0006.
IT_DATA-INVOICE_DOC_ITEM = W_DATA_TAB-VALUE_0007.
IT_DATA-PO_NUMBER = W_DATA_TAB-VALUE_0008.
IT_DATA-PO_ITEM = W_DATA_TAB-VALUE_0009.
IT_DATA-TAX_CODE = W_DATA_TAB-VALUE_0010.
IT_DATA-ITEM_AMOUNT = W_DATA_TAB-VALUE_0011.
IT_DATA-SHEET_NO = W_DATA_TAB-VALUE_0012.
IT_DATA-ITEM_TEXT = W_DATA_TAB-VALUE_0013.
IT_DATA-SHEET_ITEM = W_DATA_TAB-VALUE_0014.
APPEND IT_DATA.
ENDLOOP.
ENDIF.
ENDFORM.
FORM BDC_UPLOAD.
DATA:LW_DATE(10).
DELETE ADJACENT DUPLICATES FROM it_data.
LOOP AT IT_DATA INTO WA_DATA1.
WA_DATA = WA_DATA1.
While program finds the header record, post the previous entries
if WA_data-DOC_TYPE NE ' '
AND wa_data-doc_date NE ' '
AND wa_data-pstng_date NE ' '
AND WA_data-REF_DOC_NO NE ' '
AND WA_data-BLINE_DATE NE ' '
AND WA_data-HEADER_TXT NE ' ' .
WA_HEADER-INVOICE_IND = 'X'.
WA_HEADER-COMP_CODE = 'TSKY'.
WA_HEADER-CURRENCY = 'INR'.
WA_HEADER-CALC_TAX_IND = 'X'.
IF sy-tabix NE 1.
update
PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
REFRESH it_item.
CLEAR: it_item, wa_header.
ENDIF.
*CONCATENATE WA_DATA-PSTNG_DATE+4(4)
WA_DATA-PSTNG_DATE+2(2)
WA_DATA-PSTNG_DATE+0(2) INTO LW_DATE.
WA_HEADER-DOC_DATE = LW_DATE.
WA_HEADER-PSTNG_DATE = LW_DATE.
wa_header-doc_type = wa_data-doc_type.
wa_header-doc_date = WA_DATA-DOC_DATE.
wa_header-pstng_date = WA_DATA-PSTNG_DATE.
WA_HEADER-REF_DOC_NO = WA_DATA-REF_DOC_NO.
WA_HEADER-BLINE_DATE = WA_DATA-BLINE_DATE.
WA_HEADER-HEADER_TXT = WA_DATA-HEADER_TXT.
ENDIF.
IT_item-INVOICE_DOC_ITEM = WA_DATA-INVOICE_DOC_ITEM.
IT_item-PO_NUMBER = WA_DATA-PO_NUMBER.
IT_item-PO_ITEM = WA_DATA-PO_ITEM.
IT_item-TAX_CODE = WA_DATA-TAX_CODE.
IT_item-ITEM_AMOUNT = WA_DATA-ITEM_AMOUNT.
IT_item-SHEET_NO = WA_DATA-SHEET_NO.
IT_item-ITEM_TEXT = WA_DATA-ITEM_TEXT.
IT_item-SHEET_ITEM = WA_DATA-SHEET_ITEM.
APPEND it_item.
CLEAR it_item.
ENDLOOP.
PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
ENDFORM. " f0200_UPDATE
FORM f0301_exe_bapi TABLES p_it_item STRUCTURE it_item
USING p_wa_header.
CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
EXPORTING
headerdata = wa_header
ADDRESSDATA =
IMPORTING
INVOICEDOCNUMBER = WA_INVOICEDOCNUMBER
FISCALYEAR = lc_gjahr
tables
itemdata = it_item
ACCOUNTINGDATA =
GLACCOUNTDATA =
MATERIALDATA =
TAXDATA =
WITHTAXDATA =
VENDORITEMSPLITDATA =
return = it_return.
READ TABLE it_return INDEX 1.
READ TABLE it_item INDEX 1.
IF it_return-type EQ 'E'.
MOVE it_item-po_number TO it_msg-po_number.
move it_item-po_item to it_msg-po_itm.
MOVE 'Discrepancy in PO' TO it_msg-message.
MOVE it_return-message to it_msg-message1.
APPEND it_msg.
CLEAR it_msg.
clear it_return.
ELSE.
MOVE it_item-po_number TO it_msg-po_number.
move it_item-po_item to it_msg-po_item.
MOVE 'Successfully parked' TO it_msg-message.
MOVE WA_INVOICEDOCNUMBER TO it_msg-mblnr.
APPEND it_msg.
CLEAR: it_msg, WA_INVOICEDOCNUMBER.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDIF.
ENDFORM. "f0301_exe_bapi
FORM display_log .
Display the log
WRITE : '10 Po_number', 25 'Message', 55 'Error message' ,135 'ParkedDocumentNumber'.
ULINE.
LOOP AT it_msg.
WRITE : /10 it_msg-po_number,
25 it_msg-message,
55 it_msg-message1,
135 it_msg-mblnr.
ULINE.
ENDLOOP.
ENDFORM. " display_log -
Program Name: ZMM_MIRO Date : 05/01/07 *
Version : Final *
Author : Rashmi Patil Last Update: 08/01/07 *
Description : Program to print invoice document. *
Includes : None *
Logical Databases : None *
External Calls : *
Function Modules : POPUP_TO_INFORM *
Transactions : ZMIRO *
Scheduling Issues : None, run manually *
*Request Owner Date Description *
DEVK906817 Rashmi 16/03/2007 Addition of Service tax, vat & tds details
*DEVK907005 Rashmi 10/04/2007 Addition of ecess,netpr in doc currency *
*DEVK907017 Rashmi 12/04/2007 Correction in netpr *
DEVK907045 Rashmi 17/04/2007 Correction in o/p for multiple TDS entries
*DEVK907292 Rashmi 21/05/2007 Correction in object key and fiscal year *
*DEVK907460 Dharani 06/06/2007 PIR-60118_Addition planned delivery cost *
in MIRO print *
REPORT zmm_miro LINE-SIZE 132
LINE-COUNT 60
MESSAGE-ID 00
NO STANDARD PAGE HEADING.
TABLES: ekbe.
DATA : ebeln LIKE ekbe-ebeln,
ebeln1(90),
ebeln_1(10),
ebeln_2(10),
ebeln_3(10),
gjahr LIKE ekbe-gjahr,
mjahr LIKE mkpf-mjahr,
addrnr LIKE lfa1-adrnr,
mblnr LIKE mseg-mblnr,
belnr1 LIKE bkpf-belnr,
belnr2 LIKE bkpf-belnr,
objkey1(14),
objkey2(14),
total(10) TYPE p DECIMALS 2,
v_lines TYPE i,
count TYPE i,
start_at_line TYPE i,
end_at_line TYPE i,
counter TYPE i,
x TYPE f,
tot_number_of_lines TYPE i,
tot_number_of_pages TYPE i,
page_number VALUE 1 TYPE i,
ernam LIKE ekbe-ernam,
total1(10) TYPE p DECIMALS 2. "DEVK907005
DATA : BEGIN OF it_ekbe OCCURS 0,
ebeln LIKE ekbe-ebeln,
END OF it_ekbe.
DATA : BEGIN OF it_mkpf OCCURS 0,
ebeln LIKE ekbe-ebeln,
mblnr LIKE mkpf-mblnr,
budat LIKE mkpf-budat,
belnr LIKE bkpf-belnr, "DEVK907031
END OF it_mkpf.
DATA : BEGIN OF it_bseg OCCURS 0,
belnr LIKE bseg-belnr,
umskz LIKE bseg-umskz,
hkont LIKE bseg-hkont,
shkzg LIKE bseg-shkzg,
dmbtr LIKE bseg-dmbtr,
koart LIKE bseg-koart,
mwskz LIKE bseg-mwskz,
txt20 LIKE skat-txt20,
ktosl LIKE bseg-ktosl, "DEVK906817
fwbas LIKE bseg-fwbas, "DEVK906817
wrbtr LIKE bseg-wrbtr,
END OF it_bseg.
DATA : BEGIN OF it_final OCCURS 0,
belnr LIKE ekbe-belnr,
budat3 LIKE ekbe-budat,
lifnr LIKE ekko-lifnr,
name1 LIKE lfa1-name1,
street LIKE adrc-street,
str_suppl3 LIKE adrc-str_suppl3,
location LIKE adrc-location,
city1 LIKE adrc-city1,
city2 LIKE adrc-city2,
j_1ipanno LIKE j_1imovend-j_1ipanno,
j_1isern LIKE j_1imovend-j_1isern,
j_1ilstno LIKE j_1imovend-j_1ilstno,
belnr1 LIKE bkpf-belnr,
budat1 LIKE bkpf-budat,
belnr2 LIKE bkpf-belnr,
budat2 LIKE bkpf-budat,
xblnr LIKE bkpf-xblnr, "DEVK906817
mblnr LIKE mkpf-mblnr,
budat4 LIKE mkpf-budat,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
mwskz LIKE bseg-mwskz,
umskz LIKE bseg-umskz,
aufnr LIKE rbco-aufnr,
kostl LIKE rbco-kostl,
amount1(20),
amount2(20),
ktosl LIKE bseg-ktosl, "DEVK906817
fwbas LIKE bseg-fwbas, "DEVK906817
dc LIKE bkpf-waers,
lc LIKE bkpf-hwaer,
END OF it_final.
***Begin of DEVK906817
DATA : BEGIN OF it_stax OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_stax.
DATA : BEGIN OF it_tds OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_tds.
DATA : BEGIN OF it_vat OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_vat.
DATA : tds_base(20) VALUE 0.
***End of DEVK906817
***Begin of DEVK907005
DATA : BEGIN OF it_ecess OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_ecess.
***End of DEVK907005
***BEGIN OF DEVK907045
DATA : BEGIN OF it_tds1 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds1.
DATA : BEGIN OF it_tds2 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds2.
DATA : BEGIN OF it_tds3 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds3.
***END OF DEVK907045
data: year like bkpf-gjahr, "DEVK907292
bkpf_year like bkpf-gjahr . "DEVK907292
SELECTION-SCREEN
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*PARAMETERS: p_belnr LIKE ekbe-belnr OBLIGATORY.
SELECT-OPTIONS: p_belnr FOR EKBE-BELNR .
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
IF p_belnr NE ''.
SELECT SINGLE ebeln gjahr budat ernam FROM ekbe INTO (ebeln,gjahr,it_final-budat3,ernam)
WHERE belnr IN p_belnr.
Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
if sy-subrc ne 0.
select single ebeln gjahr from rseg into (ebeln,gjahr)
where belnr IN p_belnr.
if sy-subrc = 0.
select single budat usnam lifnr from rbkp into (it_final-budat3,ernam,it_final-lifnr)
where belnr IN p_belnr.
endif.
endif.
End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
ENDIF.
*---IF ENTERED RECORD IS INVALID
Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
IF sy-subrc <> 0.
End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
if p_belnr eq ''.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = sy-repid
txt1 = text-002
txt2 = text-003.
EXIT.
ELSE.
*---TO FETCH VENDOR NUMBER
if it_final-lifnr = ''.
SELECT SINGLE lifnr FROM ekko INTO it_final-lifnr
WHERE ebeln = ebeln .
endif.
*---TO FETCH VENDOR ADDRESS
SELECT SINGLE adrnr FROM lfa1 INTO addrnr WHERE lifnr = it_final-lifnr.
SELECT SINGLE name1 street str_suppl3 location city1 city2 FROM adrc
INTO CORRESPONDING FIELDS OF it_final
WHERE addrnumber = addrnr.
SELECT SINGLE j_1ipanno j_1isern j_1ilstno FROM j_1imovend INTO CORRESPONDING FIELDS OF it_final
WHERE lifnr = it_final-lifnr.
*---TO FETCH MATERIAL DOCUMENT NUMBER
SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = ebeln.
SELECT SINGLE mblnr budat mjahr FROM mkpf INTO (it_final-mblnr, it_final-budat4, mjahr)
WHERE mblnr = mblnr.
***BEGIN OF DEVK907292
CONCATENATE: p_belnr gjahr INTO objkey1,
it_final-mblnr mjahr INTO objkey2.
select single gjahr from rbkp into year
where belnr = p_belnr and budat = it_final-budat3.
concatenate p_belnr year into objkey1.
***END OF DEVK907292
***Begin of DEVK906817
SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr1,it_final-budat1)
WHERE awkey = objkey1.
SELECT SINGLE belnr budat xblnr waers hwaer FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc)
WHERE awkey = objkey1. "DEVK907292
SELECT SINGLE belnr budat xblnr waers hwaer gjahr FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc,bkpf_year)
WHERE awkey = objkey1. "DEVK907292
***End of DEVK906817
SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr2,it_final-budat2)
WHERE awkey = objkey2.
*---TO FETCH DATA FROM TABLE BSEG
Begin of DEVK906817
SELECT belnr umskz hkont dmbtr koart shkzg mwskz FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE belnr = it_final-belnr1.
SELECT belnr umskz hkont dmbtr wrbtr koart shkzg mwskz ktosl fwbas FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE belnr = it_final-belnr1
AND gjahr = bkpf_year. "DEVK907292
***End of DEVK906817
LOOP AT it_bseg.
SELECT SINGLE txt20 FROM skat INTO it_bseg-txt20
WHERE saknr = it_bseg-hkont AND ktopl = 'TSKY'.
IF it_bseg-koart = 'K'.
MOVE it_final-name1 TO it_bseg-txt20.
MOVE : it_bseg-dmbtr TO total, "DEVK907017
it_bseg-wrbtr TO total1. "DEVK907017
ENDIF.
MODIFY it_bseg.
ENDLOOP.
SORT it_bseg BY shkzg.
total = 0. "DEVK907017
total1 = 0. "DEVK907017
LOOP AT it_bseg.
AT FIRST.
SELECT SINGLE kostl aufnr FROM rbco INTO CORRESPONDING FIELDS OF it_final
WHERE belnr = p_belnr.
CONDENSE it_final-aufnr.
ENDAT.
MOVE : p_belnr TO it_final-belnr,
it_bseg-hkont TO it_final-hkont,
it_bseg-txt20 TO it_final-txt20,
it_bseg-mwskz TO it_final-mwskz,
it_bseg-umskz TO it_final-umskz,
it_bseg-ktosl TO it_final-ktosl, "DEVK906817
it_bseg-fwbas TO it_final-fwbas. "DEVK906817
IF it_bseg-shkzg = 'H'.
MOVE '' TO it_final-amount2.
MOVE it_bseg-dmbtr TO it_final-amount1.
tds_base = tds_base + it_final-amount1. "DEVK906817
Begin of DEVK907017
IF it_bseg-mwskz = ''.
SUBTRACT it_bseg-dmbtr FROM total.
SUBTRACT it_bseg-wrbtr FROM total1. "DEVK907005
ELSE.
ADD it_bseg-dmbtr TO total.
ADD it_bseg-wrbtr TO total1. "DEVK907005
ENDIF.
End of DEVK907017
ELSE.
MOVE '' TO it_final-amount1.
MOVE it_bseg-dmbtr TO it_final-amount2.
ENDIF.
APPEND it_final.
it_final-kostl = ''.
it_final-aufnr = ''.
ENDLOOP.
Begin of DEVK906817
*--- To get service tax details .
LOOP AT it_final WHERE ktosl = 'ESE' "DEVK907005
LOOP AT it_final WHERE ktosl = 'ESE' OR ktosl = 'YSE'. "DEVK907005
MOVE-CORRESPONDING it_final TO it_stax.
SELECT SINGLE text1 FROM t007s INTO it_stax-text1
WHERE mwskz = it_stax-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_stax-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_stax-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_stax-dc_indicator.
ENDIF.
ENDLOOP.
Begin of DEVK907005
*--- To get ecess details .
LOOP AT it_final WHERE ktosl = 'ZSE' OR ktosl = 'YEC'. "DEVK907005
MOVE-CORRESPONDING it_final TO it_ecess.
SELECT SINGLE text1 FROM t007s INTO it_ecess-text1
WHERE mwskz = it_ecess-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_ecess-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_ecess-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_ecess-dc_indicator.
ENDIF.
ENDLOOP.
End of DEVK907005
*--- To get TDS details .
LOOP AT it_final WHERE mwskz = ''.
MOVE-CORRESPONDING it_final TO it_tds.
it_tds-amount = it_final-amount1 + it_final-amount2.
MOVE tds_base TO it_tds-fwbas.
MOVE 'CREDIT' TO it_tds-dc_indicator.
***BEGIN OF DEVK907045
ENDLOOP.
APPEND it_tds.
ENDLOOP.
LOOP AT it_tds.
IF sy-tabix = 1.
MOVE it_tds TO it_tds1.
ENDIF.
IF sy-tabix = 2.
MOVE it_tds TO it_tds2.
ENDIF.
IF sy-tabix = 3.
MOVE it_tds TO it_tds3.
ENDIF.
ENDLOOP.
***END OF DEVK907045
*--- To get VAT/Sales tax details .
LOOP AT it_final WHERE ktosl = 'JP5' OR ktosl = 'NVV'.
MOVE-CORRESPONDING it_final TO it_vat.
SELECT SINGLE text1 FROM t007s INTO it_vat-text1
WHERE mwskz = it_vat-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_vat-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_vat-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_vat-dc_indicator.
ENDIF.
ENDLOOP.
End of DEVK906817
*---TO FETCH PURCHASE OREDER AND MATERIAL DOCUMENT NUMBERS
SELECT ebeln FROM ekbe INTO TABLE it_ekbe
WHERE belnr IN p_belnr.
LOOP AT it_ekbe.
SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = it_ekbe-ebeln.
***BEGIN OF DEVK907031
SELECT SINGLE mblnr budat FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
WHERE mblnr = mblnr.
SELECT SINGLE mblnr budat mjahr FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
WHERE mblnr = mblnr.
CONCATENATE: it_mkpf-mblnr mjahr INTO objkey2.
SELECT SINGLE belnr FROM bkpf INTO it_mkpf-belnr
WHERE awkey = objkey2.
***END OF DEVK907031
MOVE it_ekbe-ebeln TO it_mkpf-ebeln.
APPEND it_mkpf.
CLEAR it_mkpf.
ENDLOOP.
ENDIF.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'.
CLEAR it_final.
DESCRIBE TABLE it_final LINES tot_number_of_lines.
x = tot_number_of_lines / 20.
tot_number_of_pages = CEIL( x ).
WHILE page_number LE tot_number_of_pages.
*--- START OF PAGE
CALL FUNCTION 'START_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'
startpage = 'FIRST'
program = 'ZMM_MIRO'
EXCEPTIONS
form = 1
format = 2
unended = 3
unopened = 4
unused = 5
spool_error = 6
codepage = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'FIRST'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'HEADER'
window = 'MAIN'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---CHOOSE APPROPRIATE SEGMENT OF IT_FINAL TO BE DISPLAYED IN THE PAGE
start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
end_at_line = 20 * page_number.
IF end_at_line GT tot_number_of_lines.
end_at_line = tot_number_of_lines.
ENDIF.
DESCRIBE TABLE it_final LINES v_lines.
LOOP AT it_final FROM start_at_line TO end_at_line.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'LINE_ITEMS'
window = 'MAIN'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW3'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
hi ,
pls help me, this is my print program . my requirement is print multiple invoice documents,.
earlier it was print single t invoice docment.so in selection screen they used parameter for invoice.
now my requirement is make it parameter as select-option.
pls i have to submit today only pls help me.
check my print program below.
ENDLOOP.
CALL FUNCTION 'END_FORM'
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---TO DISPLAY NEXT PAGE.
page_number = page_number + 1.
start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
end_at_line = 20 * page_number.
IF end_at_line GT tot_number_of_lines.
end_at_line = tot_number_of_lines.
ENDIF.
ENDWHILE.
*--- START OF LAST PAGE
CALL FUNCTION 'START_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'
startpage = 'PAGE1'
program = 'ZMM_MIRO'
EXCEPTIONS
form = 1
format = 2
unended = 3
unopened = 4
unused = 5
spool_error = 6
codepage = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW6'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
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 it_mkpf.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW4'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDLOOP.
***Begin of DEVK906817
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW7'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
***End of DEVK906817
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW5'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'END_FORM'
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'CLOSE_FORM'.hi ,
my requirement is print multiple invoice documents.earlier it was printed only sinle invoice document.
now i made invoice as a select-option instead of parameter .
but remaining code how &where should i write,
pls provide code for this program.
Program Name: ZMM_MIRO Date : 05/01/07 *
Version : Final *
Author : Rashmi Patil Last Update: 08/01/07 *
Description : Program to print invoice document. *
Includes : None *
Logical Databases : None *
External Calls : *
Function Modules : POPUP_TO_INFORM *
Transactions : ZMIRO *
Scheduling Issues : None, run manually *
*Request Owner Date Description *
DEVK906817 Rashmi 16/03/2007 Addition of Service tax, vat & tds details
*DEVK907005 Rashmi 10/04/2007 Addition of ecess,netpr in doc currency *
*DEVK907017 Rashmi 12/04/2007 Correction in netpr *
DEVK907045 Rashmi 17/04/2007 Correction in o/p for multiple TDS entries
*DEVK907292 Rashmi 21/05/2007 Correction in object key and fiscal year *
*DEVK907460 Dharani 06/06/2007 PIR-60118_Addition planned delivery cost *
in MIRO print *
REPORT zmm_miro LINE-SIZE 132
LINE-COUNT 60
MESSAGE-ID 00
NO STANDARD PAGE HEADING.
TABLES: ekbe.
DATA : ebeln LIKE ekbe-ebeln,
ebeln1(90),
ebeln_1(10),
ebeln_2(10),
ebeln_3(10),
gjahr LIKE ekbe-gjahr,
mjahr LIKE mkpf-mjahr,
addrnr LIKE lfa1-adrnr,
mblnr LIKE mseg-mblnr,
belnr1 LIKE bkpf-belnr,
belnr2 LIKE bkpf-belnr,
objkey1(14),
objkey2(14),
total(10) TYPE p DECIMALS 2,
v_lines TYPE i,
count TYPE i,
start_at_line TYPE i,
end_at_line TYPE i,
counter TYPE i,
x TYPE f,
tot_number_of_lines TYPE i,
tot_number_of_pages TYPE i,
page_number VALUE 1 TYPE i,
ernam LIKE ekbe-ernam,
total1(10) TYPE p DECIMALS 2. "DEVK907005
DATA : BEGIN OF it_ekbe OCCURS 0,
ebeln LIKE ekbe-ebeln,
END OF it_ekbe.
DATA : BEGIN OF it_mkpf OCCURS 0,
ebeln LIKE ekbe-ebeln,
mblnr LIKE mkpf-mblnr,
budat LIKE mkpf-budat,
belnr LIKE bkpf-belnr, "DEVK907031
END OF it_mkpf.
DATA : BEGIN OF it_bseg OCCURS 0,
belnr LIKE bseg-belnr,
umskz LIKE bseg-umskz,
hkont LIKE bseg-hkont,
shkzg LIKE bseg-shkzg,
dmbtr LIKE bseg-dmbtr,
koart LIKE bseg-koart,
mwskz LIKE bseg-mwskz,
txt20 LIKE skat-txt20,
ktosl LIKE bseg-ktosl, "DEVK906817
fwbas LIKE bseg-fwbas, "DEVK906817
wrbtr LIKE bseg-wrbtr,
END OF it_bseg.
DATA : BEGIN OF it_final OCCURS 0,
belnr LIKE ekbe-belnr,
budat3 LIKE ekbe-budat,
lifnr LIKE ekko-lifnr,
name1 LIKE lfa1-name1,
street LIKE adrc-street,
str_suppl3 LIKE adrc-str_suppl3,
location LIKE adrc-location,
city1 LIKE adrc-city1,
city2 LIKE adrc-city2,
j_1ipanno LIKE j_1imovend-j_1ipanno,
j_1isern LIKE j_1imovend-j_1isern,
j_1ilstno LIKE j_1imovend-j_1ilstno,
belnr1 LIKE bkpf-belnr,
budat1 LIKE bkpf-budat,
belnr2 LIKE bkpf-belnr,
budat2 LIKE bkpf-budat,
xblnr LIKE bkpf-xblnr, "DEVK906817
mblnr LIKE mkpf-mblnr,
budat4 LIKE mkpf-budat,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
mwskz LIKE bseg-mwskz,
umskz LIKE bseg-umskz,
aufnr LIKE rbco-aufnr,
kostl LIKE rbco-kostl,
amount1(20),
amount2(20),
ktosl LIKE bseg-ktosl, "DEVK906817
fwbas LIKE bseg-fwbas, "DEVK906817
dc LIKE bkpf-waers,
lc LIKE bkpf-hwaer,
END OF it_final.
***Begin of DEVK906817
DATA : BEGIN OF it_stax OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_stax.
DATA : BEGIN OF it_tds OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_tds.
DATA : BEGIN OF it_vat OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_vat.
DATA : tds_base(20) VALUE 0.
***End of DEVK906817
***Begin of DEVK907005
DATA : BEGIN OF it_ecess OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_ecess.
***End of DEVK907005
***BEGIN OF DEVK907045
DATA : BEGIN OF it_tds1 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds1.
DATA : BEGIN OF it_tds2 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds2.
DATA : BEGIN OF it_tds3 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds3.
***END OF DEVK907045
data: year like bkpf-gjahr, "DEVK907292
bkpf_year like bkpf-gjahr . "DEVK907292
SELECTION-SCREEN
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*PARAMETERS: p_belnr LIKE ekbe-belnr OBLIGATORY.
SELECT-OPTIONS: p_belnr FOR EKBE-BELNR .
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
IF p_belnr NE ''.
SELECT SINGLE ebeln gjahr budat ernam FROM ekbe INTO (ebeln,gjahr,it_final-budat3,ernam)
WHERE belnr IN p_belnr.
Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
if sy-subrc ne 0.
select single ebeln gjahr from rseg into (ebeln,gjahr)
where belnr IN p_belnr.
if sy-subrc = 0.
select single budat usnam lifnr from rbkp into (it_final-budat3,ernam,it_final-lifnr)
where belnr IN p_belnr.
endif.
endif.
End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
ENDIF.
*---IF ENTERED RECORD IS INVALID
Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
IF sy-subrc 0.
End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
if p_belnr eq ''.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = sy-repid
txt1 = text-002
txt2 = text-003.
EXIT.
ELSE.
*---TO FETCH VENDOR NUMBER
if it_final-lifnr = ''.
SELECT SINGLE lifnr FROM ekko INTO it_final-lifnr
WHERE ebeln = ebeln .
endif.
*---TO FETCH VENDOR ADDRESS
SELECT SINGLE adrnr FROM lfa1 INTO addrnr WHERE lifnr = it_final-lifnr.
SELECT SINGLE name1 street str_suppl3 location city1 city2 FROM adrc
INTO CORRESPONDING FIELDS OF it_final
WHERE addrnumber = addrnr.
SELECT SINGLE j_1ipanno j_1isern j_1ilstno FROM j_1imovend INTO CORRESPONDING FIELDS OF it_final
WHERE lifnr = it_final-lifnr.
*---TO FETCH MATERIAL DOCUMENT NUMBER
SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = ebeln.
SELECT SINGLE mblnr budat mjahr FROM mkpf INTO (it_final-mblnr, it_final-budat4, mjahr)
WHERE mblnr = mblnr.
***BEGIN OF DEVK907292
CONCATENATE: p_belnr gjahr INTO objkey1,
it_final-mblnr mjahr INTO objkey2.
select single gjahr from rbkp into year
where belnr = p_belnr and budat = it_final-budat3.
concatenate p_belnr year into objkey1.
***END OF DEVK907292
***Begin of DEVK906817
SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr1,it_final-budat1)
WHERE awkey = objkey1.
SELECT SINGLE belnr budat xblnr waers hwaer FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc)
WHERE awkey = objkey1. "DEVK907292
SELECT SINGLE belnr budat xblnr waers hwaer gjahr FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc,bkpf_year)
WHERE awkey = objkey1. "DEVK907292
***End of DEVK906817
SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr2,it_final-budat2)
WHERE awkey = objkey2.
*---TO FETCH DATA FROM TABLE BSEG
Begin of DEVK906817
SELECT belnr umskz hkont dmbtr koart shkzg mwskz FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE belnr = it_final-belnr1.
SELECT belnr umskz hkont dmbtr wrbtr koart shkzg mwskz ktosl fwbas FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE belnr = it_final-belnr1
AND gjahr = bkpf_year. "DEVK907292
***End of DEVK906817
LOOP AT it_bseg.
SELECT SINGLE txt20 FROM skat INTO it_bseg-txt20
WHERE saknr = it_bseg-hkont AND ktopl = 'TSKY'.
IF it_bseg-koart = 'K'.
MOVE it_final-name1 TO it_bseg-txt20.
MOVE : it_bseg-dmbtr TO total, "DEVK907017
it_bseg-wrbtr TO total1. "DEVK907017
ENDIF.
MODIFY it_bseg.
ENDLOOP.
SORT it_bseg BY shkzg.
total = 0. "DEVK907017
total1 = 0. "DEVK907017
LOOP AT it_bseg.
AT FIRST.
SELECT SINGLE kostl aufnr FROM rbco INTO CORRESPONDING FIELDS OF it_final
WHERE belnr = p_belnr.
CONDENSE it_final-aufnr.
ENDAT.
MOVE : p_belnr TO it_final-belnr,
it_bseg-hkont TO it_final-hkont,
it_bseg-txt20 TO it_final-txt20,
it_bseg-mwskz TO it_final-mwskz,
it_bseg-umskz TO it_final-umskz,
it_bseg-ktosl TO it_final-ktosl, "DEVK906817
it_bseg-fwbas TO it_final-fwbas. "DEVK906817
IF it_bseg-shkzg = 'H'.
MOVE '' TO it_final-amount2.
MOVE it_bseg-dmbtr TO it_final-amount1.
tds_base = tds_base + it_final-amount1. "DEVK906817
Begin of DEVK907017
IF it_bseg-mwskz = ''.
SUBTRACT it_bseg-dmbtr FROM total.
SUBTRACT it_bseg-wrbtr FROM total1. "DEVK907005
ELSE.
ADD it_bseg-dmbtr TO total.
ADD it_bseg-wrbtr TO total1. "DEVK907005
ENDIF.
End of DEVK907017
ELSE.
MOVE '' TO it_final-amount1.
MOVE it_bseg-dmbtr TO it_final-amount2.
ENDIF.
APPEND it_final.
it_final-kostl = ''.
it_final-aufnr = ''.
ENDLOOP.
Begin of DEVK906817
To get service tax details .
LOOP AT it_final WHERE ktosl = 'ESE' "DEVK907005
LOOP AT it_final WHERE ktosl = 'ESE' OR ktosl = 'YSE'. "DEVK907005
MOVE-CORRESPONDING it_final TO it_stax.
SELECT SINGLE text1 FROM t007s INTO it_stax-text1
WHERE mwskz = it_stax-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_stax-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_stax-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_stax-dc_indicator.
ENDIF.
ENDLOOP.
Begin of DEVK907005
To get ecess details .
LOOP AT it_final WHERE ktosl = 'ZSE' OR ktosl = 'YEC'. "DEVK907005
MOVE-CORRESPONDING it_final TO it_ecess.
SELECT SINGLE text1 FROM t007s INTO it_ecess-text1
WHERE mwskz = it_ecess-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_ecess-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_ecess-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_ecess-dc_indicator.
ENDIF.
ENDLOOP.
End of DEVK907005
To get TDS details .
LOOP AT it_final WHERE mwskz = ''.
MOVE-CORRESPONDING it_final TO it_tds.
it_tds-amount = it_final-amount1 + it_final-amount2.
MOVE tds_base TO it_tds-fwbas.
MOVE 'CREDIT' TO it_tds-dc_indicator.
***BEGIN OF DEVK907045
ENDLOOP.
APPEND it_tds.
ENDLOOP.
LOOP AT it_tds.
IF sy-tabix = 1.
MOVE it_tds TO it_tds1.
ENDIF.
IF sy-tabix = 2.
MOVE it_tds TO it_tds2.
ENDIF.
IF sy-tabix = 3.
MOVE it_tds TO it_tds3.
ENDIF.
ENDLOOP.
***END OF DEVK907045
To get VAT/Sales tax details .
LOOP AT it_final WHERE ktosl = 'JP5' OR ktosl = 'NVV'.
MOVE-CORRESPONDING it_final TO it_vat.
SELECT SINGLE text1 FROM t007s INTO it_vat-text1
WHERE mwskz = it_vat-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_vat-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_vat-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_vat-dc_indicator.
ENDIF.
ENDLOOP.
End of DEVK906817
*---TO FETCH PURCHASE OREDER AND MATERIAL DOCUMENT NUMBERS
SELECT ebeln FROM ekbe INTO TABLE it_ekbe
WHERE belnr IN p_belnr.
LOOP AT it_ekbe.
SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = it_ekbe-ebeln.
***BEGIN OF DEVK907031
SELECT SINGLE mblnr budat FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
WHERE mblnr = mblnr.
SELECT SINGLE mblnr budat mjahr FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
WHERE mblnr = mblnr.
CONCATENATE: it_mkpf-mblnr mjahr INTO objkey2.
SELECT SINGLE belnr FROM bkpf INTO it_mkpf-belnr
WHERE awkey = objkey2.
***END OF DEVK907031
MOVE it_ekbe-ebeln TO it_mkpf-ebeln.
APPEND it_mkpf.
CLEAR it_mkpf.
ENDLOOP.
ENDIF.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'.
CLEAR it_final.
DESCRIBE TABLE it_final LINES tot_number_of_lines.
x = tot_number_of_lines / 20.
tot_number_of_pages = CEIL( x ).
WHILE page_number LE tot_number_of_pages.
START OF PAGE
CALL FUNCTION 'START_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'
startpage = 'FIRST'
program = 'ZMM_MIRO'
EXCEPTIONS
form = 1
format = 2
unended = 3
unopened = 4
unused = 5
spool_error = 6
codepage = 7
OTHERS = 8.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'FIRST'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'HEADER'
window = 'MAIN'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---CHOOSE APPROPRIATE SEGMENT OF IT_FINAL TO BE DISPLAYED IN THE PAGE
start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
end_at_line = 20 * page_number.
IF end_at_line GT tot_number_of_lines.
end_at_line = tot_number_of_lines.
ENDIF.
DESCRIBE TABLE it_final LINES v_lines.
LOOP AT it_final FROM start_at_line TO end_at_line.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'LINE_ITEMS'
window = 'MAIN'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW3'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
hi ,
pls help me, this is my print program . my requirement is print multiple invoice documents,.
earlier it was print single t invoice docment.so in selection screen they used parameter for invoice.
now my requirement is make it parameter as select-option.
pls i have to submit today only pls help me.
check my print program below.
ENDLOOP.
CALL FUNCTION 'END_FORM'
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---TO DISPLAY NEXT PAGE.
page_number = page_number + 1.
start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
end_at_line = 20 * page_number.
IF end_at_line GT tot_number_of_lines.
end_at_line = tot_number_of_lines.
ENDIF.
ENDWHILE.
START OF LAST PAGE
CALL FUNCTION 'START_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'
startpage = 'PAGE1'
program = 'ZMM_MIRO'
EXCEPTIONS
form = 1
format = 2
unended = 3
unopened = 4
unused = 5
spool_error = 6
codepage = 7
OTHERS = 8.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW6'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
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 it_mkpf.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW4'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDLOOP.
***Begin of DEVK906817
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW7'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
***End of DEVK906817
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW5'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'END_FORM'
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'CLOSE_FORM'. -
How to set a attribute value of a sub node binded to a table.. pls respond.
Hi friends,
I have context defined like this.
Head_node ( table 1)
Item_node ( table 2, sub node ). ( now this im saving in global internal table).
so now when i hit save button, im passing my internal table (it has col1- sales order no, col2 item details(table type, which can have more than one record) to a FM, to create sales order.
My sales order is getting saved.
But the function module will return some new values (like sales order number, item number etc).
Now i want these values to be updated in my context.
Meaning whenever after that i do get_attribute, i should get these new (sales order no, item no ) also.
I dont know how to set the context values of sub nodes , so im missing these values.
kindly respond back to me..
thanks in advance,
NirajaIts very simple.
Follow these steps. e.g you want to get the new sales order number. Define a attribute in ur node (or set of attributes in ur case as per reqruirement) say new_so_number.
Check your FM, if its returning new_so_number then it's fine, otherwise you have to change the FM to return the new_so_number or you have to get from db table somehow, which best suites your req.
So once you have new_so_number after calling the FM, say in lv_new_so_number field. Then write this code to set the attribute (change the variables as per your context attributes)
DATA lo_nd_head TYPE REF TO if_wd_context_node.
DATA lo_el_head TYPE REF TO if_wd_context_element.
DATA ls_head TYPE wd_this->element_head.
DATA lv_new_so_number LIKE ls_head-new_so_number.
* navigate from <CONTEXT> to <HEAD> via lead selection
lo_nd_head = wd_context->get_child_node( name = wd_this->wdctx_head ).
* get element via lead selection
lo_el_head = lo_nd_head->get_element( ).
lv_new_so_number = new_so_number. " (You got this as a exporting parameter of FM etc..)
* get single attribute
lo_el_head->set_attribute(
EXPORTING
name = `NEW_SO_NUMBER`
value = lv_new_so_number ).
Hope it works. -
DYNPRO_SEND_IN_BACKGROUND pls respond immediately
Hi,
I am gettting DYNPRO_SEND_IN_BACKGROUND short dump.
Creating order for material thru online and RFC(Z function module) is used to connect to SAP and create.
How to check from which point of the program the dump is coming in the RFC?
Can I see this problem in debug mode?
Thanks.Pls find the dump below....
ABAP runtime errors DYNPRO_SEND_IN_BACKGROUND
Occurred on 05/01/2007 at 15:20:29
>> Short dump has not been completely stored. It is too big.
Screen output without connection to user.
What happened?
The current ABAP/4 program "SAPMSSY0 " had to be terminated because
one of the statements could not be executed.
This is probably due to an error in the ABAP/4 program.
What can you do?
Note the actions and input that caused the error.
Inform your SAP system administrator.
You can print out this message by choosing "Print". Transaction ST22
allows you to display and manage termination messages, including keeping
them beyond their normal deletion date.
Error analysis
During background processing, the system attempted to send a
screen to a user.
Current screen: "SAPMSSY0 " 0120.
How to correct the error
If the error occurred in one of your own programs or in an SAP program
that you modified, try to correct it yourself.
If the error occurred in a non-modified SAP program, you may be
able to find a solution in the SAP note system.
If you have access to the note system yourself, use the following
search criteria:
"DYNPRO_SEND_IN_BACKGROUND"
"SAPMSSY0 " or " "
"%_CTL_OUTPUT"
If you cannot solve the problem yourself, please send the
following documents to SAP:
1. A hard copy print describing the problem.
To obtain this, select the "Print" function on the current screen.
2. A suitable hardcopy prinout of the system log.
To obtain this, call the system log with Transaction SM21
and select the "Print" function to print out the relevant
part.
3. If the programs are your own programs or modified SAP programs,
supply the source code.
To do this, you can either use the "PRINT" command in the editor or
print the programs using the report RSINCL00.
4. Details regarding the conditions under which the error occurred
or which actions and input led to the error.
System environment
SAP Release.............. "46C"
Application server....... "voyager"
Network address.......... "130.29.148.43"
Operating system......... "HP-UX"
Release.................. "B.11.23"
Hardware type............ "9000/800"
Database server.......... "voyager"
Database type............ "ORACLE"
Database name............ "CP0"
Database owner........... "SAPR3"
Character set............ "en_US.iso88591"
SAP kernel............... "46D"
Created on............... "Jul 18 2005 20:43:50"
Created in............... "HP-UX B.11.00 U 9000/800"
Database version......... "OCI_805_64__OCI_7_API "
Patch level.............. "2090"
Patch text............... " "
Supported environment....
Database................. "ORACLE 8.0.5.., ORACLE 8.0.6.., ORACLE
8.1.6.., ORACLE 8.1.7.., ORACLE 9.2.0.."
SAP database version..... "46D"
Operating system......... "HP-UX B.10, HP-UX B.11, , System build information:,
, LCHN : 766946"
User, transaction...
Client.............. 100
User................ "ZECOMMERCEUS"
Language key........ "E"
Transaction......... " "
Program............. "SAPMSSY0 "
Screen.............. "SAPMSSY0 0120"
Screen line......... 0
Information on where termination occurred
The termination occurred in the ABAP/4 program "SAPMSSY0 " in
"%_CTL_OUTPUT".
The main program was "SAPMSSY1 ".
The termination occurred in line 37
of the source code of program " " (when calling the editor 370).
Source code extract
000070 *
000080
000090 TABLES rsjobinfo. "for SUBMIT .. VIA JOB ..
000100
000110 INCLUDE %_PREDEFINED.
000200
000210 DATA: %_repid TYPE syst-repid %_PREDEFINED,
000220 %_viaselscr TYPE x VALUE '04' %_PREDEFINED.
000230
000240 SYSTEM-EXIT.
000250 PERFORM (sy-xform) IN PROGRAM (sy-xprog).
000260
000270 * Nach Laden des Dynpros
000280 MODULE %_ctl_init OUTPUT.
000290 %_repid = sy-repid.
000300 PERFORM %_ctl_init IN PROGRAM sapmssyd USING %_repid IF FOUND.
000310 ENDMODULE.
000320
000330 * Um DCO
000340 MODULE %_ctl_output OUTPUT.
000350 %_repid = sy-repid.
000360 PERFORM %_ctl_output IN PROGRAM sapmssyd USING %_repid IF FOUND.
ENDMODULE.
000380
000390 * Um DCI
000400 MODULE %_ctl_input INPUT.
000410 %_repid = sy-repid.
000420 PERFORM %_ctl_input IN PROGRAM sapmssyd USING %_repid IF FOUND.
000430 ENDMODULE.
000440
000450 * Erstes Modul in PAI
000460 MODULE %_ctl_pai INPUT.
000470 %_repid = sy-repid.
000480 PERFORM %_ctl_pai IN PROGRAM sapmssyd USING %_repid IF FOUND.
000490 ENDMODULE.
000500
000510 * Dynpro Ende
000520 MODULE %_ctl_end INPUT.
000530 %_repid = sy-repid.
000540 PERFORM %_ctl_end IN PROGRAM sapmssyd USING %_repid IF FOUND.
000550 ENDMODULE.
000560
Contents of system fields
SY field contents..................... SY field contents.....................
SY-SUBRC 0 SY-INDEX 1
SY-TABIX 3 SY-DBCNT 1
SY-FDPOS 0 SY-LSIND 0
SY-PAGNO 1 SY-LINNO 6
SY-COLNO 1
Chosen variables
Name.......................... Contents.1........2........3....+....4
SY-XPROG SAPLATP2
5454455322222222222222222222222222222222
310C140200000000000000000000000000000000
SY-XFORM CONVERSION_EXIT
444545544454545222222222222222
3FE65239FEF5894000000000000000
SY ########################################
0000000000000000000000000000000000000000
0001000100030000000000000000000000000000
... + 40 #######################################ÿ
000000000000000000000008000000000000000F
000100000001000000060004000000000000000F
... + 80 ########################################
0000000000000000000000000000000000000000
0000000000000000000300000000000000000000
... + 120 #######################################B
00000000
0000000
%_PRINT 000
2222333222222222222222222222222222222222
0000000000000000000000000000000000000000
... + 40
2222222222222222222222222222222222222222
0000000000000000000000000000000000000000
... + 80 0 ########
2222222222320000000022222222222222222222
0000000000000000000000000000000000000000
... + 120
22222222
0000000
%_?NOT_ASSIGNED?
2222
0000
%_REPID SAPMSSY0
5454555322222222222222222222222222222222
310D339000000000000000000000000000000000
Active calls / events
No.... Type........ Name..........................
Programm
Include Line
1 MODULE (PBO) %_CTL_OUTPUT
SAPMSSY0
37
2 FUNCTION COPO_POPUP_TO_DISPLAY_TEXTLIST
SAPLCOPO
LCOPOU01 25
3 FORM HP_ERRORS_CHECK
SAPMV45A
ZIHRT001 536
4 FORM USEREXIT_SAVE_DOCUMENT_PREPARE
SAPMV45A
MV45AFZZ 445
5 FORM BELEG_SICHERN
SAPMV45A
ZZIFOHRT003 20
6 FUNCTION SD_SALES_DOCUMENT_SAVE
SAPLV45A
LV45AU03 76
7 FUNCTION SD_ORDER_CREATE
SAPLV45J
LV45JU01 250
8 FUNCTION SD_ORDER_CREATE_WWW
SAPLV46W
LV46WU01 160
9 FUNCTION BAPI_SALESDOCU_CREATEFROMDATA
SAPL2032
L2032U07 94
10 FUNCTION Z_ECOM_CREATE_SALESORDER
SAPLZWWW
LZWWWU07 221
11 FORM Z_ECOM_CREATE_SALESORDER
SAPLZWWW
LZWWWV07 116
12 FORM REMOTE_FUNCTION_CALL
SAPMSSY1
SAPMSSY1 69
13 MODULE (PBO) %_RFC_START
SAPMSSY1
SAPMSSY1 31
Internal notes
The termination occurred in the function "dynpex00" of the SAP
Basis System, specifically in line 1337 of the module
"//bas/46D/src/krn/dynp/dymain.c#27".
The internal operation just processed is "ENDM".
The internal session was started at 20070501152028.
Active calls in SAP kernel
( 0) 0x4000000000bcbefc CTrcStack2 + 0x1fc dw.sapCP0_DVEBMGS00
( 1) 0x4000000000bcc020 CTrcStack + 0x18 dw.sapCP0_DVEBMGS00
( 2) 0x4000000000d7c258 rabax_CStackSave + 0xe8 dw.sapCP0_DVEBMGS00
( 3) 0x4000000000d84eac ab_rabax + 0x7e4 dw.sapCP0_DVEBMGS00
( 4) 0x400000000080f3e0 dypex00 + 0x508 dw.sapCP0_DVEBMGS00
( 5) 0x400000000080e414 dynpout0 + 0x11c dw.sapCP0_DVEBMGS00
( 6) 0x4000000000883248 dynprctl + 0x160 dw.sapCP0_DVEBMGS00
( 7) 0x4000000000899ebc dynpen00 + 0x45c dw.sapCP0_DVEBMGS00
( 8) 0x4000000000869aec Thdynpen00 + 0x1bc dw.sapCP0_DVEBMGS00
( 9) 0x400000000092ddcc TskhLoop + 0x3694 dw.sapCP0_DVEBMGS00
(10) 0x4000000000a5e210 tskhstart + 0x198 dw.sapCP0_DVEBMGS00
(11) 0x40000000008b8e30 DpMain + 0x368 dw.sapCP0_DVEBMGS00
(12) 0x40000000006440ec main + 0x14 dw.sapCP0_DVEBMGS00
(13) 0xc00000000000a158 $START$ + 0xa0 /usr/lib/pa20_64/dld.sl
List of ABAP programs affected
Type
Program
Gen. date time
LoadSize
Prg
SAPMSSY1
01/04/2000 19:06:59
20480
Prg
SAPLSYST
05/25/2002 08:06:09
38912
Prg
SAPLZWWW
03/17/2007 10:26:40
267264
Typ
BAPISDHEAD
08/16/2000 13:16:51
10240
Typ
BAPICCARD
11/29/1999 17:37:40
3072
Typ
BAPICUBLB
11/10/1999 17:37:30
1024
Typ
BAPICUINS
12/09/1999 18:51:23
3072
Typ
BAPICUPRT
10/14/1999 21:54:07
2048
Typ
BAPICUCFG
02/14/2000 14:06:17
3072
Typ
BAPICUVAL
12/09/1999 18:51:23
2048
Typ
BAPIITEMIN
05/25/2002 08:06:40
11264
Typ
BAPIITEMEX
05/26/2002 21:03:15
8192
Typ
BAPIPARTNR
05/26/2002 21:03:16
5120
Typ
BAPISDTEXT
11/30/1998 22:05:51
2048
Typ
MVKE
05/25/2002 08:07:40
9216
Prg
SAPL2032
05/13/2006 09:22:24
548864
Prg
SAPLDLOG
01/04/2000 19:06:44
7168
Typ
TVAK
05/25/2002 08:32:12
13312
Prg
SAPLV46B
01/13/2007 13:09:29
67584
Typ
TPAR
08/27/1994 21:59:27
2048
Prg
SAPLV46W
01/13/2007 13:09:29
98304
Prg
SAPLCUXC
01/13/2007 13:09:29
232448
Prg
SAPLV45J
01/13/2007 13:09:29
133120
Prg
SAPLV45A
02/24/2007 10:28:26
920576
Prg
SAPMV45A
03/17/2007 10:26:40
2098176
Prg
SAPLSEU1
02/12/2005 05:10:32
282624
Prg
CL_CTMENU_LOAD_TEXTS==========
02/12/2005 05:10:55
169984
Typ
D345T
07/29/1998 18:19:12
2048
Typ
D346T
07/29/1998 18:19:13
2048
Prg
CL_CTMENU_LOAD================
01/04/2000 19:06:00
94208
Prg
SAPLV09A
02/13/2005 05:29:08
500736
Prg
SAPLFRC4
02/04/2006 07:52:55
126976
Prg
SAPLJ1AZ
02/12/2005 07:45:07
29696
Prg
SAPLV61B
02/24/2007 10:28:26
450560
Prg
SAPLIPW1
02/04/2006 07:52:55
585728
Prg
SAPLIE01
02/12/2005 07:47:26
286720
Prg
SAPLITO1
02/12/2005 07:09:27
89088
Prg
SAPLITOBS
02/12/2005 07:02:21
130048
Prg
SAPLITOBBUFEQ
02/12/2005 07:06:52
163840
Prg
SAPLITOBBUFFL
02/12/2005 07:09:27
112640
Prg
SAPLITOBBUFIL
02/12/2005 07:02:21
43008
Prg
SAPLV61A
02/24/2007 10:28:26
902144
Prg
SAPLV05E
02/04/2006 07:52:55
411648
Prg
SAPLVADR
02/12/2005 07:46:07
69632
Prg
SAPLV09B
02/13/2005 05:29:08
183296
Prg
SAPLV09C
02/13/2005 05:29:08
444416
Prg
SAPLV09D
02/13/2005 05:29:08
169984
Prg
SAPLV09E
02/13/2005 05:29:08
41984
Prg
SAPLSLG0
02/12/2005 04:57:41
117760
Prg
SAPLSBAL_SERVICE
02/12/2005 05:19:04
135168
Typ
BALOBJ
08/13/1997 13:16:25
1024
Typ
BALSUB
08/13/1997 13:16:26
1024
Typ
BAL_S_LFIL
02/24/1999 03:05:04
12288
Prg
SAPLSBAL
02/12/2005 05:19:04
272384
Prg
SAPLSZA0
04/23/2005 04:01:25
2200576
Prg
SAPLAIEV
05/15/2002 17:25:04
14336
Prg
CL_OS_TRANSACTION_END_NOTIFIER
02/12/2005 05:14:30
8192
Typ
TSAD3T
02/14/1998 17:01:10
2048
Typ
ADCNTRYQU
05/25/2002 08:05:29
1024
Prg
SAPLSZA13
05/15/2002 17:33:08
12288
Prg
SAPLV45T
02/04/2006 07:52:55
141312
Typ
STXDRNAME
05/25/2002 08:20:31
2048
Prg
SAPLSTXD
02/12/2005 05:18:33
410624
Prg
SAPCNVE
01/04/2000 19:06:37
7168
Prg
SAPLLANG
01/04/2000 19:06:49
9216
Prg
SAPLV70T
02/04/2006 07:52:55
211968
Prg
SAPFV45E
02/24/2007 10:28:26
756736
Prg
SAPFV45P
02/24/2007 10:28:26
1394688
Prg
SAPFV45S
02/24/2007 10:28:26
799744
Prg
SAPLV45CU
01/13/2007 13:09:29
61440
Prg
SAPLCUINIT
05/27/2002 11:34:50
7168
Prg
SAPLCUEV
05/27/2002 11:34:50
11264
Prg
SAPLBSVA
02/12/2005 05:42:59
274432
Prg
SAPLBSVX
02/13/2005 05:29:51
99328
Prg
SAPLCO61
01/13/2007 13:09:29
422912
Prg
SAPLCKKA
01/13/2007 13:09:29
93184
Prg
SAPLCK10
01/13/2007 13:09:29
742400
Prg
CL_COSTING_PERSISTENCE========
01/13/2007 13:09:26
160768
Typ
CKIKEKOKEY
11/30/1993 13:25:34
2048
Typ
CKF_PM_COSTING_OBJECT_LINE
11/29/1999 17:38:34
2048
Typ
CKKEKOKEY
02/24/1999 03:07:01
2048
Prg
SAPLCK_ECP_EXITS
01/13/2007 13:09:29
67584
Typ
KINX
05/25/2002 08:11:37
1024
Prg
SAPLCK2U
01/13/2007 13:09:31
376832
Prg
SAPLKKCP
02/12/2005 06:35:44
52224
Prg
SAPLCK00
01/13/2007 13:09:29
379904
Prg
SAPLCKDI
01/13/2007 13:09:29
1000448
Prg
SAPLCKKVMK
11/10/1998 07:16:33
11264
Prg
SAPLCK36
01/13/2007 13:09:29
153600
Prg
SAPFV45V
02/24/2007 10:28:26
794624
Prg
SAPLV45L
02/28/2007 00:00:53
433152
Prg
SAPLV51P
01/13/2007 13:09:29
887808
Typ
HEADER51
02/08/2003 02:38:52
4096
Prg
SAPLV45W
01/13/2007 13:09:29
235520
Prg
SAPLVFRF
01/13/2007 13:09:29
76800
Typ
FPLT
03/17/1999 13:43:44
7168
Prg
SAPLV45I
01/13/2007 13:09:29
514048
Prg
SAPLVKMP
01/13/2007 13:09:30
485376
Prg
SAPLCRDM
02/12/2005 07:37:00
102400
Prg
SAPFV45K
02/24/2007 10:28:26
648192
Prg
SAPLASTAT_TRIG
02/12/2005 05:00:41
12288
Prg
SAPLVS01
06/12/2004 17:01:09
182272
Typ
TVKO
05/06/1998 02:22:47
4096
Prg
SAPLSCAL
02/12/2005 05:15:05
26624
Typ
CVERS
04/26/1999 17:21:32
2048
Typ
KNVP
08/22/1995 12:24:17
3072
Prg
SAPLNDAC
10/14/1999 23:32:54
7168
Prg
SAPLBUOP
06/17/2006 17:03:18
73728
Prg
SAPLITSR
02/12/2005 05:42:29
88064
Typ
TPS01
02/20/1998 09:19:57
2048
Typ
TPS31
09/03/1997 03:01:33
1024
Prg
CONTEXT_X_SP_INFO
05/25/2002 18:07:09
35840
Typ
TPS32
09/03/1997 03:28:18
2048
Typ
TPS34
09/03/1997 03:28:18
2048
Prg
SAPLNDIA
11/08/2003 14:44:32
7168
Prg
SAPLV45K
01/13/2007 13:09:29
114688
Typ
TBE01
08/28/1997 08:32:41
1024
Typ
TBE31
09/03/1997 03:01:11
1024
Typ
TBE32
09/03/1997 03:27:20
2048
Typ
TBE34
09/03/1997 03:27:24
2048
Typ
VBAKKOZ
04/04/1995 16:28:13
1024
Typ
ADRSTATUS
01/29/1997 19:04:23
1024
Typ
ADRC
05/25/2002 08:00:08
11264
Typ
ADRCT
08/28/1997 08:35:27
2048
Typ
ADRG
07/03/1996 22:44:47
1024
Prg
SAPLSZAD
06/12/2004 17:01:09
61440
Prg
SAPLSADR
04/23/2005 04:02:48
207872
Typ
T005
05/25/2002 08:29:07
7168
Typ
T001
05/25/2002 08:28:59
9216
Prg
SAPLV07DCORE
02/08/2003 05:35:56
20480
Typ
TVTA
09/03/1997 03:28:25
3072
Typ
TVKOV
03/30/1998 10:08:08
2048
Typ
TVKOS
05/27/1992 18:18:00
2048
Typ
TVKOT
02/14/1998 14:49:14
2048
Typ
TVTW
05/27/1992 18:19:33
1024
Typ
TVTWT
02/14/1998 14:57:37
2048
Typ
TSPA
06/10/1992 12:18:00
1024
Typ
TSPAT
02/14/1998 14:28:17
2048
Typ
TVSB
03/08/1992 18:33:20
1024
Typ
TVAKT
02/14/1998 14:38:43
2048
Typ
TVAKZ
07/22/1996 17:22:20
2048
Prg
SAPFV45C
03/17/2007 10:26:17
628736
Prg
SAPLSBDC
05/15/2002 17:30:50
66560
Typ
T180
02/20/1998 09:17:43
2048
Prg
SAPLV86E
05/13/2006 09:22:25
344064
Prg
SAPLVFSP
05/13/2006 09:22:25
262144
Prg
SAPLV01Z
01/13/2007 13:09:29
207872
Prg
SAPLCLFM
02/12/2005 07:46:55
697344
Prg
SAPLCUOB
02/12/2005 07:47:11
34816
Prg
SAPLCLSE
02/12/2005 06:58:31
181248
Prg
SAPLCTMS
02/12/2005 07:47:09
957440
Prg
SAPLCTCV
02/12/2005 07:47:09
195584
Prg
SAPLCTCF
02/08/2003 04:58:13
24576
Prg
SAPLV01P
01/13/2007 13:09:29
168960
Prg
SAPLV21F
01/13/2007 13:09:29
149504
Typ
T176
06/09/1992 19:10:22
1024
Prg
SAPLMGF2
01/04/2000 19:06:50
21504
Prg
SAPLSDEX
01/04/2000 19:06:52
20480
Typ
DD07L
05/07/1997 13:31:32
2048
Typ
VBPAKOM
02/12/2005 06:37:19
6144
Prg
CONTEXT_X_SD_PARTNER_CONTEXT
02/13/2005 05:29:05
134144
Prg
SAPLV08D
02/12/2005 07:09:59
20480
Typ
KNA1
05/25/2002 08:11:39
16384
Typ
VBPAVB
05/25/2002 08:24:47
6144
Typ
TPAKD
10/26/1994 17:32:29
1024
Typ
ASTAT_TYP2
11/10/1998 05:35:18
1024
Typ
ASTAT_TYP1
11/30/1998 15:54:16
1024
Typ
TPAER
05/25/2002 08:23:58
2048
Typ
TVPG
08/28/1997 09:10:35
1024
Prg
SAPLSZA8
02/12/2005 05:18:51
74752
Typ
TSAD3
07/16/1997 14:46:19
2048
Typ
VBADR
02/12/2005 06:37:14
5120
Typ
KNVV
11/30/1999 10:18:28
9216
Prg
SAPLWY14
02/12/2005 07:10:19
26624
Typ
KNVK
05/25/2002 08:11:42
10240
Typ
ADRP
04/14/1998 11:18:32
6144
Typ
ADRGP
07/03/1996 22:44:47
1024
Typ
ADCP
04/23/1998 14:45:51
5120
Typ
ADR2
01/25/1999 13:08:51
3072
Typ
ADRT
02/14/1998 05:38:23
2048
Prg
SAPLV02H
02/12/2005 07:49:02
141312
Typ
KNVH
04/04/1995 17:06:51
3072
Typ
THIT
08/27/1994 21:58:41
1024
Prg
SAPLSMOD
02/12/2005 05:11:06
252928
Typ
TFDIR
07/29/1998 19:49:08
2048
Prg
SAPLV45F
05/13/2006 09:22:25
26624
Typ
TVUVF
08/20/1998 11:31:14
2048
Prg
SAPLV04A
01/04/2000 19:06:55
10240
Typ
TPAUM
02/14/1998 14:03:47
2048
Typ
VBPA
05/25/2002 08:24:46
4096
Typ
KUAGV
05/25/2002 08:11:54
9216
Typ
KUPAV
05/25/2002 08:11:54
7168
Prg
SAPLSUNI
02/12/2005 05:10:18
141312
Prg
SAPLSUSM
06/12/2004 17:01:18
35840
Typ
USR21
03/10/1999 18:32:06
2048
Prg
SAPLSUGS
01/04/2000 19:06:54
15360
Prg
SAPLSUG2
01/04/2000 19:06:54
38912
Typ
SVERS
07/30/1992 18:39:23
1024
Typ
UVERS
07/16/1997 14:46:33
3072
Typ
V_ADDR_USR
05/25/2002 12:40:15
15360
Typ
TSADCORR
02/12/2005 04:57:41
1024
Typ
T005T
04/23/2005 04:01:16
2048
Prg
CL_EXITHANDLER================
02/12/2005 05:10:57
13312
Prg
CL_ABAP_TYPEDESCR=============
01/04/2000 19:06:00
17408
Prg
CL_ABAP_ELEMDESCR=============
01/04/2000 19:06:00
13312
Prg
CL_ABAP_DATADESCR=============
01/04/2000 19:06:00
11264
Prg
CL_ABAP_REFDESCR==============
01/04/2000 19:06:00
14336
Prg
CL_ABAP_STRUCTDESCR===========
01/04/2000 19:06:00
16384
Prg
CL_ABAP_COMPLEXDESCR==========
01/04/2000 19:06:00
11264
Prg
CL_ABAP_TABLEDESCR============
01/04/2000 19:06:00
16384
Prg
CL_ABAP_CLASSDESCR============
01/04/2000 19:06:00
23552
Prg
CL_ABAP_OBJECTDESCR===========
01/04/2000 19:06:00
28672
Prg
CL_ABAP_INTFDESCR=============
01/04/2000 19:06:00
21504
Prg
IF_EX_ADDR_PRINTFORM_SHORT====
04/23/2005 04:01:19
7168
Typ
SXS_INTER
11/30/1998 15:55:16
1024
Prg
SAPLSEXV
02/12/2005 05:04:49
154624
Prg
SAPLSXCH
02/12/2005 05:15:27
80896
Typ
V_EXT_ACT
10/14/1999 22:16:55
2048
Prg
CL_EX_ADDR_PRINTFORM_SHORT====
04/23/2005 04:01:18
15360
Prg
CL_EXIT_MASTER================
05/25/2002 08:19:36
10240
Typ
V_EXT_IMP
10/14/1999 22:16:55
2048
Typ
KUWEV
05/25/2002 08:11:54
11264
Typ
KURGV
05/25/2002 08:11:54
7168
Typ
TCSPF
03/01/1999 13:49:57
2048
Typ
T683V
02/24/1999 03:31:49
2048
Typ
KNVA
07/10/1993 03:46:26
5120
Prg
SAPLV52E
05/13/2006 09:22:25
525312
Typ
KNEX
04/15/1998 00:23:05
4096
Prg
SAPLSYGU
05/15/2002 17:17:41
26624
Prg
SAPLRKSRCORE
05/27/2002 01:07:53
41984
Prg
SAPLFACSCORE
05/25/2002 12:35:04
12288
Typ
TKA02
07/10/1993 03:23:03
1024
Typ
TKA01
04/12/1999 16:16:35
6144
Typ
TCURO
04/12/1999 16:16:26
1024
Prg
SAPLFCUE1
04/21/1999 19:18:41
16384
Typ
TCURE
05/04/1999 11:55:27
2048
Typ
TTXOB
08/27/1999 17:40:40
2048
Typ
RVTXOBJ
08/13/1997 12:53:30
1024
Typ
TTXID
08/27/1999 17:40:33
2048
Typ
TTXER
06/09/1992 19:26:49
2048
Prg
SAPLV01A
05/25/2002 12:14:32
36864
Typ
SDPROTTYP
07/10/1997 00:36:13
1024
Typ
SDCTRLFLAG
04/04/1996 12:58:57
1024
Typ
TTXVR
05/25/2002 08:24:11
3072
Typ
STXH
05/25/2002 10:46:15
4096
Prg
SAPLMCS1
01/13/2007 13:09:29
562176
Typ
TVSFK
10/28/1997 17:31:29
2048
Typ
T683C
04/23/1996 20:18:10
2048
Typ
T691U
08/13/1997 13:52:14
2048
Typ
VBKD
05/25/2002 08:45:43
11264
Prg
SAPLSCUR
05/15/2002 17:10:13
57344
Prg
SAPLSCUN
02/12/2005 05:14:57
59392
Prg
/1BCDWBEN/SAPLVEN0000
05/13/2006 09:24:15
152576
Prg
SAPLSENA
01/04/2000 19:06:53
28672
Prg
SAPLBOTM
02/12/2005 05:42:10
23552
Typ
TJ03
05/25/2002 08:31:44
2048
Typ
TJ20
05/12/1997 16:50:45
2048
Typ
TJ21
11/30/1993 16:45:19
1024
Typ
TJ04
11/30/1993 16:45:08
2048
Typ
TJ30
05/25/2002 08:31:45
2048
Prg
SAPLXVVA
02/04/2006 07:52:55
68608
Typ
T014
07/10/1997 00:37:38
2048
Typ
KNKK
11/29/1999 17:40:59
5120
Prg
SAPLF035
02/12/2005 07:47:16
154624
Typ
T000CM
07/29/1998 19:20:34
2048
Typ
T024P
08/27/1994 21:52:42
2048
Prg
SAPLV45C
01/13/2007 13:09:29
358400
Prg
SAPLFACS
02/12/2005 07:44:55
272384
Typ
T009
06/01/1992 11:17:16
2048
Typ
T009B
02/20/1998 09:01:22
2048
Typ
BOOLE
04/04/1995 15:41:35
1024
Typ
COBL
02/12/2005 06:35:48
19456
Typ
VBAK
11/08/2003 14:27:56
21504
Typ
VBAP
02/04/2006 07:52:52
29696
Prg
SAPLAD19
02/04/2006 07:52:54
51200
Typ
TKA00
05/25/2002 08:31:45
5120
Prg
SAPLKACG
02/04/2006 07:52:55
98304
Typ
BAPICOBL_CI
05/06/1998 01:56:08
1024
Prg
SAPLRWIN
02/08/2003 05:30:04
28672
Typ
TRWCI
05/25/2002 08:24:05
1024
Typ
TRWPR
05/25/2002 08:24:05
2048
Typ
TRWCA
05/25/2002 08:24:05
2048
Prg
SAPLSMSG
02/12/2005 05:17:38
110592
Prg
SAPLKACB
02/12/2005 07:37:17
89088
Prg
SAPLKAIP
02/24/2007 10:28:26
367616
Prg
SAPLKAIPTRACE
02/13/2005 05:30:54
51200
Prg
SAPLKOTR
02/12/2005 07:21:39
118784
Prg
SAPLKAIS
02/13/2005 05:30:54
98304
Typ
TJ01
03/01/1999 13:50:12
4096
Typ
TTXD
05/26/2002 22:24:20
2048
Prg
SAPLFMCO
02/12/2005 07:28:10
109568
Typ
TKAZE
11/30/1993 16:46:08
2048
Typ
COBK
05/25/2002 08:08:07
6144
Prg
SAPLGBL5
02/08/2003 05:16:35
34816
Prg
SAPFGBBA
01/04/2000 19:06:37
36864
Prg
GBAAAAAA
05/26/2002 12:06:29
62464
Prg
SAPLGBL6
05/15/2002 15:51:19
106496
Typ
T80D
05/12/1997 15:23:48
1024
Prg
GBTAACO0
03/04/ -
Problem with Run_Product.. FRM-41211 Oracle reports team pls respond
Hi,
I am calling run_product built in my form 3 times on when button pressed trigger I am getting error
FRM-41211 Integration Error: SSL Failure running another product..
how to solve this problem..
In help it is given check with Run_Product ... but no errors are exist in run_product...
pls help me.. its very urgent..
regards
KiranHi every thing is fine problem is
If am running 3 reports consecutive from form builder I am getting frm-41211 error. To solve this I have place message('1') ;pause in-between run_product statements now it is working fine. Could u please find out any solutions for this (not using timers);
Or
Pls pass maild of Oracle reports team usually they answer questions in oracle .com forums. -
hi ,
in script form i added one field is GROSS-WEIGHT from MARA table.
how to add this field in print program using itcsy structure
pls help me.Hello Tulasi,
Do like this,
IN the form insert these lines
/: PERFORM GET_WEIGHT IN PROGRAM ZFORMS
/: USING &MARA-MATNR&
/: CHANGING &WEIGHT&
/: ENDPERFORM
" In the report ZFORMS
FORM GET_WEIGHT TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA: LV_MATNR TYPE MATNR,
LR_MARA LIKE MARA.
* Lesen Eingabeparameter
READ TABLE IN_PAR WITH KEY 'MARA-MATNR'.
CHECK SY-SUBRC = 0.
LV_MATNR = IN_PAR-VALUE.
SELECT SINGLE * FROM INTO LR_MARA WHERE MATNR EQ LV_MATNR.
READ TABLE OUT_PAR WITH KEY NAME = 'WEIGHT'.
IF SY-SUBRC EQ 0.
OUT_PAR-VALUE = LR_MARA-WEIGHT.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDIF
ENDFORM.
Hope this solve ur problem.
Vasanth -
Dear Experts
I'm trying to find solutions for folloiwng interview questions - (pls help)
Whether Cenvat / Excise accounts are Balance sheet A/c or Expense Accounts ?
What is utilisation procedure ?
How does system determines the amount which is payable to Central Excise dept ?
Which elements comes unders excise payable and excise receivable ?
Thanks in advance
RegardsHai,
Please go thro' this link which will give complete details of CIN.
http://help.sap.com/saphelp_erp60_sp/helpdata/en/09/ebf138cdd78a4be10000000a114084/frameset.htm -
EJB 5032 & EJB 5017 errors Pls respond
Hi , We are trying to access a CMP entity bean from the TEST application generated by Sun One Studio(V4-update1, iAS7), we are getting the following error
Error description by SUN docs says that the Bean does not have a public constructor, but we have ejbCreate with public access. Pls Let me know anyone faced similar issues
Rgds,
Girish
SEVERE: EJB5032: Exception in creating new bean : [{0}]
java.lang.NullPointerException
at schemes.ejb.SchemesEJBBean1952982800_ConcreteImpl.jdoLookupPersistenceManagerFactory(SchemesEJBBean1952982800_ConcreteImpl.java:1451)
at schemes.ejb.SchemesEJBBean1952982800_ConcreteImpl.setEntityContext(SchemesEJBBean1952982800_ConcreteImpl.java:1481)
at com.sun.ejb.containers.EntityContainer$EntityContextFactory.create(EntityContainer.java:2599)
at com.sun.ejb.containers.util.pool.NonBlockingPool.getObject(NonBlockingPool.java:176)
at com.sun.ejb.containers.util.pool.NonBlockingPool.getObject(NonBlockingPool.java:133)
at com.sun.ejb.containers.EntityContainer.getPooledEJB(EntityContainer.java:1896)
at com.sun.ejb.containers.EntityContainer.getContext(EntityContainer.java:560)
at com.sun.ejb.containers.BaseContainer.preInvoke(BaseContainer.java:452)
at schemes.ejb.SchemesEJBBean1952982800_ConcreteImpl_RemoteHomeImpl.findAll(SchemesEJBBean1952982800_ConcreteImpl_RemoteHomeImpl.java:99)
at schemes.ejb._SchemesEJBHome_Stub.findAll(Unknown Source)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25)
at java.lang.reflect.Method.invoke(Method.java:324)
at com.sun.forte4j.j2ee.ejbtest.webtest.InvocableMethod$MethodIM.invoke(InvocableMethod.java:233)
at com.sun.forte4j.j2ee.ejbtest.webtest.EjbInvoker.getInvocationResults(EjbInvoker.java:98)
at com.sun.forte4j.j2ee.ejbtest.webtest.DispatchHelper.getForward(DispatchHelper.java:191)
at jasper.dispatch_jsp._jspService(_dispatch_jsp.java:127)
at org.apache.jasper.runtime.HttpJspBase.service(HttpJspBase.java:107)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:853)
at com.iplanet.ias.web.jsp.JspServlet$JspServletWrapper.service(JspServlet.java:552)
at com.iplanet.ias.web.jsp.JspServlet.serviceJspFile(JspServlet.java:368)
at com.iplanet.ias.web.jsp.JspServlet.service(JspServlet.java:287)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:853)
at org.apache.catalina.core.StandardWrapperValve.invokeServletService(StandardWrapperValve.java:720)
at org.apache.catalina.core.StandardWrapperValve.access$000(StandardWrapperValve.java:118)
at org.apache.catalina.core.StandardWrapperValve$1.run(StandardWrapperValve.java:278)
at java.security.AccessController.doPrivileged(Native Method)
at org.apache.catalina.core.StandardWrapperValve.invoke(StandardWrapperValve.java:274)
at org.apache.catalina.core.StandardPipeline.invoke(StandardPipeline.java:505)
at org.apache.catalina.core.StandardContextValve.invoke(StandardContextValve.java:212)
at org.apache.catalina.core.StandardPipeline.invoke(StandardPipeline.java:505)
at org.apache.catalina.core.StandardHostValve.invoke(StandardHostValve.java:203)
at org.apache.catalina.core.StandardPipeline.invoke(StandardPipeline.java:505)
at com.iplanet.ias.web.connector.nsapi.NSAPIProcessor.process(NSAPIProcessor.java:157)
at com.iplanet.ias.web.WebContainer.service(WebContainer.java:598)
SEVERE: EJB5017: Exception while running preinvoke : ejbName = [SchemesEJB]
SEVERE:
javax.ejb.EJBException: nested exception is: java.lang.NullPointerExceptionjava.lang.NullPointerException
at schemes.ejb.SchemesEJBBean1952982800_ConcreteImpl.jdoLookupPersistenceManagerFactory(SchemesEJBBean1952982800_ConcreteImpl.java:1451)
at schemes.ejb.SchemesEJBBean1952982800_ConcreteImpl.setEntityContext(SchemesEJBBean1952982800_ConcreteImpl.java:1481)
at com.sun.ejb.containers.EntityContainer$EntityContextFactory.create(EntityContainer.java:2599)
at com.sun.ejb.containers.util.pool.NonBlockingPool.getObject(NonBlockingPool.java:176)
at com.sun.ejb.containers.util.pool.NonBlockingPool.getObject(NonBlockingPool.java:133)
at com.sun.ejb.containers.EntityContainer.getPooledEJB(EntityContainer.java:1896)
at com.sun.ejb.containers.EntityContainer.getContext(EntityContainer.java:560)
at com.sun.ejb.containers.BaseContainer.preInvoke(BaseContainer.java:452)
at schemes.ejb.SchemesEJBBean1952982800_ConcreteImpl_RemoteHomeImpl.findAll(SchemesEJBBean1952982800_ConcreteImpl_RemoteHomeImpl.java:99)
at schemes.ejb._SchemesEJBHome_Stub.findAll(Unknown Source)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25)
at java.lang.reflect.Method.invoke(Method.java:324)
at com.sun.forte4j.j2ee.ejbtest.webtest.InvocableMethod$MethodIM.invoke(InvocableMethod.java:233)
at com.sun.forte4j.j2ee.ejbtest.webtest.EjbInvoker.getInvocationResults(EjbInvoker.java:98)
at com.sun.forte4j.j2ee.ejbtest.webtest.DispatchHelper.getForward(DispatchHelper.java:191)
at jasper.dispatch_jsp._jspService(_dispatch_jsp.java:127)
at org.apache.jasper.runtime.HttpJspBase.service(HttpJspBase.java:107)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:853)
at com.iplanet.ias.web.jsp.JspServlet$JspServletWrapper.service(JspServlet.java:552)
at com.iplanet.ias.web.jsp.JspServlet.serviceJspFile(JspServlet.java:368)
at com.iplanet.ias.web.jsp.JspServlet.service(JspServlet.java:287)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:853)
at org.apache.catalina.core.StandardWrapperValve.invokeServletService(StandardWrapperValve.java:720)
at org.apache.catalina.core.StandardWrapperValve.access$000(StandardWrapperValve.java:118)
at org.apache.catalina.core.StandardWrapperValve$1.run(StandardWrapperValve.java:278)
at java.security.AccessController.doPrivileged(Native Method)
at org.apache.catalina.core.StandardWrapperValve.invoke(StandardWrapperValve.java:274)
at org.apache.catalina.core.StandardPipeline.invoke(StandardPipeline.java:505)
at org.apache.catalina.core.StandardContextValve.invoke(StandardContextValve.java:212)
at org.apache.catalina.core.StandardPipeline.invoke(StandardPipeline.java:505)
at org.apache.catalina.core.StandardHostValve.invoke(StandardHostValve.java:203)
at org.apache.catalina.core.StandardPipeline.invoke(StandardPipeline.java:505)
at com.iplanet.ias.web.connector.nsapi.NSAPIProcessor.process(NSAPIProcessor.java:157)
at com.iplanet.ias.web.WebContainer.service(WebContainer.java:598)
javax.ejb.EJBException: nested exception is: java.lang.NullPointerException
at com.sun.ejb.containers.EntityContainer$EntityContextFactory.create(EntityContainer.java:2607)
at com.sun.ejb.containers.util.pool.NonBlockingPool.getObject(NonBlockingPool.java:176)
at com.sun.ejb.containers.util.pool.NonBlockingPool.getObject(NonBlockingPool.java:133)
at com.sun.ejb.containers.EntityContainer.getPooledEJB(EntityContainer.java:1896)
at com.sun.ejb.containers.EntityContainer.getContext(EntityContainer.java:560)
at com.sun.ejb.containers.BaseContainer.preInvoke(BaseContainer.java:452)
at schemes.ejb.SchemesEJBBean1952982800_ConcreteImpl_RemoteHomeImpl.findAll(SchemesEJBBean1952982800_ConcreteImpl_RemoteHomeImpl.java:99)
at schemes.ejb._SchemesEJBHome_Stub.findAll(Unknown Source)
at sun.reflHello Girish,
You did not set jndi-name in the cmp-resource correctly.
It must reference persistence-manager-factory-resource not
jdbc-resource.
On the other note - your bean must have a public
constructor for the container to be able to create new
instance. ejbCreate will be called on such instance.
Regards,
Marina -
Just keep getting the pop up saying I have to update my firefox browser to 4.01. I already did this and have done so a few more times and keep getting this message which my norton confirms is okay. Pls. help
PS: Regarding educated guesses below, perhaps it is my Yahoo active x plugin bridge. In any case, how do I resolve this problem?
Thanks,
Donna
[email protected]If you have problems with updating then best is to download the full version and uninstall the currently installed version.
Download a fresh Firefox copy and save the file to the desktop.
* Firefox 4.0.x: http://www.mozilla.com/en-US/firefox/all.html
* Uninstall your current Firefox version.
* Do not remove personal data when you uninstall the current version.
Remove the Firefox program folder before installing that newly downloaded copy of the Firefox installer.
* It is important to delete the Firefox program folder to remove all the files and make sure that there are no problems with files that were leftover after uninstalling.
Your bookmarks and other profile data are stored elsewhere in the [http://kb.mozillazine.org/Profile_folder_-_Firefox Firefox Profile Folder] and won't be affected by a reinstall, but make sure that you do not select to remove personal data if you uninstall Firefox. -
Minimize in set window property will not work--form gurus pls respond
set_window_property('forms_mdi_window',window_state,minimize) not working
is there any bug related to this ?
please respond forms product management.
thanx
aspMaybe this will help you - Note:209891.1 from MetaLink:
fact: SQL*Forms 6.0.8
symptom: OPEN_FORM does not Work the First Time for a Third Form Called
symptom: Called form opens but its window is not activated
symptom: ACTIVATE parameter is used in OPEN_FORM calls
symptom: Caller forms are MINIMIZED previous to performing OPEN_FORM
symptom: Second call to the trigger that makes the OPEN_FORM does activate the called form
change: NOTE ROLE:
STEPS TO REPRODUCE:
FORM1 button1:
SET_WINDOW_PROPERTY('WINDOW', window_state, MINIMIZE);
open_form('FORM2',ACTIVATE,SESSION);
FORM2 button2:
SET_WINDOW_PROPERTY('WINDOW', window_state, MINIMIZE);
open_form('FORM3',ACTIVATE,SESSION);
Run FORM1, press button1 -> gets to FORM2
press button2 -> Still is in FORM2
press button2 again -> now gets to FORM3;
cause: Bug 1055433: OPEN_FORM('FORM',ACTIVATE,SESSION) DOESN'T GET ACTIVATED WHEN FORMER FORM MINIMIZED.
fix:
WORKAROUNDS:
1.- Do not MINIMIZE the window in initial form (FORM1 in e.g)
or
2.- Do not use the ACTIVATE parameter -
Extraction from 0HR_PY_1 error??????? pls respond immediately
i would need to extract data for payroll data from data source 0HR_PY_1 to BW based on the period of time say for example 01.2007 to 12.2007, the infopackage in Production is in full load i would need to initalise it to Delta. for this, i can first run full load for the period 01.2007 to 12.2007 then go for init of delta without data transfer and delta will be intialized and then select the radio button delta and go for delta extractions. this is what i need to do now.
for this i have extracted data from 0HR_PY_1 from R/3 to BW in full load, but in after extracting more than one crore records were extracted with a failure(red color status), it says that data is not extracted from correct client which seems to be wrong because only one client is maintained for R/3 Production and in RSA3 i could see no record for that data source, i wonder how those many records were extracted from ????.
and i also see the error saying "No assignment of payroll data to BW month". it is giving this error while extracting for the year 2007 but for the year 2006,2005 full load is done and it has not thrown such error.
do you think Assignment of payroll data to BW is compulsory, because i could see no assignment in R/3, if that is not done then how could 2006, 2005 years of data been extracted and when they are extracted i am not sure when and how they were extracted.Hi,
Take a look on the notes: 585682,590957
With rgds,
Anil Kumar Sharma .P -
Has anyone tried a *real* role-link ? - (bea support pls respond)
Hi
Has anyone tried using different role-name and role-link in the security-role-ref section of web.xml.
isUserInRole method fails with this.
given a section in web.xml as:
<security-role-ref>
<role-name>xyz</role-name>
<role-link>abc</role-link>
</security-role-ref>
<security-role>
<role-name>abc</role-name>
</security-role>
u would say isUserInRole("xyz"); right?
but weblogic 5.1 always returns false
it instead behaves properly with isUserInRole("xyz"); which is wrong behaviour.
Please correct me if i am wrong.
thanks
sriramI don't have a definitive answer, but I would guess you won't find a tech support service dedicated to the Flash Player since it is free software and customers apparently have problems getting tech support for the products they buy. But here are a couple of things worth considering.
Try posting/looking thru the Flash Player forum...
http://forums.adobe.com/community/webplayers/flash_player
Try submitting a bug report...
http://www.adobe.com/cfusion/mmform/index.cfm?name=wishform -
Query Regarding Data transfer ( Pls Respond Quickly)
Hi,
I need to download the data to XML file. I have hard coded the file path in the Report Program. This Report should be shceduled for every night.
But the problem is that since I have hard coded the path, whenever the program is deployed to production system there will be a problem regarding the file path.
Can any body throw some light on how to avoid hard coding of the filepath ?
Reward points are assured.
Best Regards
Bhagat.Hey Kishan,
In that Program the file path was hard coded. Can you let me know the alternate way so that I can avoid hard coding.
The thing is that that report should be scheduled for every night.
Best Regards
Bhagat.
Maybe you are looking for
-
Large storage question regarding Itunes Library Management
HI I am running Itunes 7.4 and have a 500gb drive physically attached via firewire 800. I currently have my itunes preferences set to copy files to the library when added. My question is. Can I only have itunes physically manage and store my music on
-
Require official Oracle Best Practices about PSU patches
A customer complained about the following Your company statements are not clear... On your web page - http://www.oracle.com/security/critical-patch-update.html The following is stated! Critical Patch Update Fixes for security vulnerabilities are rele
-
How to load Inspection plan If I have 15 operations in my Inspection plan For 1 material & more than 10 MIC for Each Operations is it possible by any lsmw or bdc please Suggest If anyone done this My mail ID is [email protected] Regards Sanjay
-
Automatic Posting Between 2 companies in the same system
Dear colleagues: I have the following scenario: a) Companies GS01 and GS02 are both in the same system. b) Company GS01 paids the telephone bill for both companies. c) Company GS01 charges or bills the proportionale part of the telephone bill to comp
-
Dear Guys we need to configure CUBE-SP of ASR 1006 when i input the commad as CUBESP(CONFIG)#sbc CUBESP system output the message as please unconfigure CUBE(Ent) and try again . so which one meet with this issue and how to enable or resolving this