ABAP

ABAP
Showing posts with label soft repair. Show all posts
Showing posts with label soft repair. Show all posts

Thursday, January 3, 2013

XML upload download

*-------------- DATA
data : t001 like table of yautmm0004 with header line.
data : begin of itab occurs 0,
a(100) type c,
end of itab.

data: xml_out type string .

data : begin of upl occurs 0,
f(255) type c,
end of upl.
data: xmlupl type string .

******************************* FIRST PHASE
******************************* FIRST PHASE
******************************* FIRST PHASE

*------------------ Fetch Data

select * from tabloadı into table t001 up to 2 rows.

*------------------- XML
call transformation ('ID')
source tab = t001[]
result xml xml_out.

*------------- Convert to TABLE

call function 'HR_EFI_CONVERT_STRING_TO_TABLE'
exporting
i_string = xml_out
i_tabline_length = 100
tables
et_table = itab.
*-------------- Download

call function 'GUI_DOWNLOAD'
exporting
filetype = 'BIN'
filename = 'c:\dene.xml'
tables
data_tab = itab.

******************************* SECOND PHASE
******************************* SECOND PHASE
******************************* SECOND PHASE
*BREAK-POINT.
*REFRESH t001.
*CLEAR t001.

call function 'GUI_UPLOAD'
exporting
filename = 'C:\dene.XML'
filetype = 'BIN'
tables
data_tab = upl.

loop at upl.
concatenate xmlupl upl-f into xmlupl.
endloop.

*------------------- XML
call transformation ('ID')
source xml xmlupl
result tab = t001[]
.
break-point.

selection screen F1 help, message tipleri



http://saptechnical.com/Tutorials/ABAP/F1Help/Create.htm



SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS: cb_check AS CHECKBOX .
SELECTION-SCREEN COMMENT 4(60) text-003 FOR FIELD cb_check.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.



AT SELECTION-SCREEN ON HELP-REQUEST FOR cb_check.
  CALL FUNCTION 'DSYS_SHOW_FOR_F1HELP'
    EXPORTING
      dokclass         = 'TX'
      doklangu         = sy-langu
      dokname          = 'Y_F1_HELP_FOR_CHECK'
    EXCEPTIONS
      class_unknown    = 1
      object_not_found = 2
      OTHERS           = 3.


se61 den general text olarak yarat yarattıgını fonksiyona gonder





**** Mesaj Tipleri ***

A (Abend)
Termination
E (Error)
Error
I (Info)
Information
S (Status)
Status message
W (Warning)
Warning
X (Exit)
Termination with short dump

 message e000(yuauth) with text-025 gt_itab-value.

Total Pageviews