Hallo mico,
ich poste hier nochmals die Coding.
* Methodenaufrufe
call method c_oi_container_control_creator=>get_container_control
importing
control = control
error = error
retcode = retcode.
append error to error_table.
create object container
exporting
* PARENT =
container_name = 'CONTAINER'
* STYLE =
* LIFETIME = lifetime_default
* REPID =
* DYNNR =
* NO_AUTODEF_PROGID_DYNNR =
* EXCEPTIONS
* CNTL_ERROR = 1
* CNTL_SYSTEM_ERROR = 2
* CREATE_ERROR = 3
* LIFETIME_ERROR = 4
* LIFETIME_DYNPRO_DYNPRO_LINK = 5
* others = 6
.
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 method control->init_control
exporting
* DYNPRO_NR = SY-DYNNR
* GUI_CONTAINER = ' '
inplace_enabled = 'X'
* INPLACE_MODE = 0
* INPLACE_RESIZE_DOCUMENTS = ' '
inplace_scroll_documents = 'X'
* INPLACE_SHOW_TOOLBARS = 'X'
no_flush = 'X'
* PARENT_ID = cl_gui_cfw=>dynpro_0
r3_application_name = 'kundenliste'
* REGISTER_ON_CLOSE_EVENT = ' '
* REGISTER_ON_CUSTOM_EVENT = ' '
* REP_ID = SY-REPID
* SHELL_STYLE = 1384185856
parent = container
* NAME =
* AUTOALIGN = 'x'
importing
error = error
retcode = retcode.
append error to error_table.
call method control->get_document_proxy
exporting
document_format = document_format
document_type = document_type
* NO_FLUSH = ' '
* REGISTER_CONTAINER = ' '
importing
document_proxy = document
error = error
retcode = retcode.
append error to error_table.
call method document->create_document
exporting
create_view_data = ' '
document_title = 'Kundenliste'
* NO_FLUSH = ' '
open_inplace = ' '
* OPEN_READONLY = ' '
* ONSAVE_MACRO = ' '
* STARTUP_MACRO = ''
importing
error = error
retcode = retcode.
append error to error_table.
call method document->get_spreadsheet_interface
exporting
no_flush = 'X'
importing
error = error
sheet_interface = spreadsheet
retcode = retcode .
append error to error_table.
sort it_schema by znr.
* Erstmal die Verdichteten Gruppenwerte ausgeben
loop at it_ksthier into fl_ksthier where level lt '2'.
* Bezugszeile für die Prozentrechnung lesen
perform lesen_bezugz.
loop at it_schema into fl_schema.
case fl_schema-summz.
* Titel der verdichtung ausgeben
when 'T'. "Titelzeile
perform ausg_titel.
* Einzelzeile der verdichtung ausgeben
when 'E'. "Einzelwertzeile
perform ausg_einzel_v.
* Summenzeile der verdichtung ausgeben
when 'S'. "Summenzeile
perform ausg_summe_v.
endcase.
endloop.
* Neues Blatt einfügen
call method spreadsheet->add_sheet
exporting
name = fl_ksthier-kstid
no_flush = 'X'
importing
error = error
retcode = retcode.
******hier liefert das Programm call_no_flushed****
call method spreadsheet->insert_range
exporting
columns = 20
rows = 25
no_flush = 'X'
name = 'Deckung'
* UPDATING = -1
importing
error = error
retcode = retcode.
append error to error_table.
call method spreadsheet->insert_one_table
exporting
ddic_name = 'ZCO_DB_EXCEL'
data_table = it_excel
* FIELDS_TABLE =
rangename = 'Deckung'
no_flush = 'X'
wholetable = spreadsheet->spreadsheet_insertall
* UPDATING = -1
importing
error = error
retcode = retcode
.
append error to error_table.
* Formatieren
call method spreadsheet->cell_format
exporting
no_flush = ' '
cells = it_cells
importing
error = error
retcode = retcode.
append error to error_table.
Wenn ich die fehlermeldung anzeige , kommt der Text " Fehler beim Lesen einer Objekt-Property".
Das dumme ist, das Programm läuft auf meinem MiniWAS ohne Probleme, auf unserem Testsystem von der Firma kommt es zu dem Fehler. Ich habe noch testweise die Beipielprogramm von dem Buch "Enjoy SAP Controls" von Frank Wolf auf unserem Entwicklungssystem hochgeladen, da brechen die Programme auch ab. Für eine brauchbare Antwort bekommt derjenige ein feines Essen beim nächsten Antwerpen besuch bei Kerzenschein

gespendet.
Ornella