MSKA

From Sapwiki

Jump to: navigation, search
[bearbeiten]

MSKA Kundenauftragsbestand

[bearbeiten]

Schlüsselfelder

MATNR
Material
WERKS
Werk
LGORT
Lagerort
CHARG
Charge
SOBKZ
Sonderbestandskennzeichen (Bei Kundeneinzelbeständen E)
VBELN
Vertriebsbelegnummer
POSNR
positionsnummer


[bearbeiten]

Codebeispiel

In einem Userexit des Programms MV45AFZB soll vor einer Änderung der Auftragsposition geprüft werden, ob es schon Bestand gibt. 


*&---------------------------------------------------------------------*
*&      Form  USEREXIT_CHECK_VBAP
*&---------------------------------------------------------------------*
*                                                                     *
*       This Userexit can be used to add addtional logic for          *
*       checking the position for completeness and consistency.       *
*                                                                     *
*       US_DIALOG  -  Indicator, that can be used to suppress         *
*                     dialogs in certain routines, e.g. in            *
*                     copy mode.                                      *
*                                                                     *
*       This form is called from form VBAP_PRUEFEN_ENDE.              *
*                                                                     *
*---------------------------------------------------------------------*
FORM userexit_check_vbap USING us_dialog.

* ...

* Nur im Änderungsmodus.
IF sy-tcode <> 'VA01' and sy-tcode <> 'VA03'
   and sy-cprog <> 'ZSAPRCK_MCSO'."bei Kdauftragskalk. auch nicht prüfen

* Bedarfsarten prüfen (= Einzelfertigung, evtl. eigene Bedarfsarten aufnehmen).
  IF vbap-bedae = 'KE'  OR
     vbap-bedae = 'KEK'.

* Prüfen, ob es schon einen Bestand gibt
      select kalab from mska into zzkalab
        where matnr = vbap-matnr
          and werks = vbap-werks " Evtl. ohne Werksprüfung aufrufen
          and vbeln = vbap-vbeln
          and posnr = vbap-posnr.
          MESSAGE E123(ZV).
*   Achtung: Kundenauftragsbestand vorhanden.
          exit.
        endif.
      endselect.
Von "http://sapwiki.iwoars.net/index.php/MSKA"
Persönliche Werkzeuge