Code: Alles auswählen.
DATA lv_name TYPE string VALUE 'TREIBSTOFF'.
ASSIGN COMPONENT lv_name OF STRUCTURE station_struc1 TO FIELD-SYMBOL(<lfs_sstruc1>).
IF sy-subrc = 0.
" komponente gefunden
ENDIF.
Code: Alles auswählen.
player_struc
Folgende Benutzer bedankten sich beim Autor lausek für den Beitrag:
Abaphalbsocke
Code: Alles auswählen.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CNCL'.
LEAVE PROGRAM.
WHEN 'FCT_BUY'.
CALL FUNCTION 'ZCB_HANDELSMODUL'
EXPORTING
iv_preis = ls_gueter-preis
iv_menge = lv_menge
CHANGING
cv_credits = player_struc-credits
cv_station_inv = station_struc1-treibstoff
cv_spieler_inv = player_struc-treibstoff
cv_station_credits = station_struc1-credits.
WHEN 'FCT_BACK'.
CALL SCREEN 0100.
ENDCASE.
ENDMODULE.
Folgende Benutzer bedankten sich beim Autor lausek für den Beitrag:
Abaphalbsocke
Folgende Benutzer bedankten sich beim Autor lausek für den Beitrag:
Abaphalbsocke
Folgende Benutzer bedankten sich beim Autor lausek für den Beitrag:
Abaphalbsocke
Code: Alles auswählen.
ASSIGN COMPONENT lv_name OF STRUCTURE station_struc1 TO FIELD-SYMBOL(<lfs_sstruc1>).
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CNCL'.
LEAVE PROGRAM.
WHEN 'FCT_BUY'.
CALL FUNCTION 'ZCB_HANDELSMODUL'
EXPORTING
iv_preis = ls_gueter-preis
iv_menge = lv_menge
CHANGING
cv_player_credits = player_struc-credits
cv_station_inv = <lfs_sstruc1>
cv_spieler_inv = <lfs_sstruc1>
cv_station_credits = station_struc1-credits.
WHEN 'FCT_BACK'.
CALL SCREEN 0100.
ENDCASE.
ENDMODULE.
Code: Alles auswählen.
FIELD-SYMBOLS <lfs_sstruc1> TYPE zcb_menge.
Folgende Benutzer bedankten sich beim Autor lausek für den Beitrag:
Abaphalbsocke
Code: Alles auswählen.
ASSIGN COMPONENT lv_name OF STRUCTURE station_struc1 TO <lfs_sstruc1>.
Code: Alles auswählen.
ASSIGN COMPONENT lv_name OF STRUCTURE station_struc1 TO FIELD-SYMBOL(<lfs_sstruc1>).
Folgende Benutzer bedankten sich beim Autor schick für den Beitrag:
Abaphalbsocke
Code: Alles auswählen.
ASSIGN COMPONENT 'TREIBSTOFF' OF STRUCTURE station_struc1 TO FIELD-SYMBOL(<lv_treibstoff_01>).
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
Abaphalbsocke
Code: Alles auswählen.
ASSIGN COMPONENT lv_name OF STRUCTURE station_struc1 TO <lfs_sstruc1>.
ASSIGN COMPONENT lv_name OF STRUCTURE player_struc TO <lfs_sstruc2>.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CNCL'.
LEAVE PROGRAM.
WHEN 'FCT_BUY'.
CALL FUNCTION 'ZCB_HANDELSMODUL'
EXPORTING
iv_preis = ls_gueter-preis
iv_menge = lv_menge
CHANGING
cv_player_credits = player_struc-credits
cv_station_inv = <lfs_sstruc1>
cv_spieler_inv = <lfs_sstruc2>
cv_station_credits = station_struc1-credits.
WHEN 'FCT_BACK'.
CALL SCREEN 0100.
ENDCASE.
ENDMODULE.