L'ABAP pour les francophones

TYALGR
12 rue des tamaris 27240 Buis sur Damville
Tel : 09 52 06 57 30 Fax : 01 34 29 60 47 Email : contact [at] tyalgr.com
Connexion
 

Zephyr

ABAP

Aller à   
Rechercher
Auteur
Message Vue en arbre
ECIR ECIR
Posté le: 19 Février 2007 22:17:37
Sujet de la contribution: appel d'interface BADI depuis un report

*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.

data: refToBadi type ref to if_ex_lxser_sn_capture_rf.
data: i_lsern type lser_sern, e_sernr type gernr, e_matnr type matnr.

if sy-ucomm eq 'EXIT'.
   leave to screen 0.
endif.

if sy-ucomm eq 'PRINT' or sy-ucomm = 'BT_PRINT'.
   perform printLabel using e_matnr e_sernr.
endif.

if refToBadi is initial.
   call method cl_exithandler=>get_instance CHANGING instance = refToBadi.
endif.

i_lsern = inputbarcode.
call method refToBadi->sn_decode
  EXPORTING
    iv_lsern = i_lsern
  IMPORTING
    ev_sernr = e_sernr
    ev_matnr = e_matnr
  EXCEPTIONS
    no_decoding_happened = 1
    enter_number_complete = 2.

case sy-subrc.
  when 2.
message 'Nothing found' type 'I'.
  when 1.
message 'Many reference exists' type 'I'.
  when 0.
inputserial = e_sernr.
inputmaterial = e_matnr.
clear inputbarcode.
endcase.

ENDMODULE. " USER_COMMAND_0100 INPUT



Haut 
Aller à   
Rechercher
© 2007 Ecir Consulting. Tous droits réservés.