Tablas MM, Urgente ¡¡¡

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • virgilio_avila
    Senior Member
    • jun
    • 327

    #1

    Tablas MM, Urgente ¡¡¡

    Alguno de ustedes sabra de que tabla sale el stock que se presenta en la Tx MMBE??.

    El problema es el siguiente por pograma debo presentar el stock que esta en libre utilizacion, menos la cantidad de los pedido de venta ya generados.

    Ejemplo:
    Tengo en stock 100 unidadades, pero tengo una orden de venta por 10, por tanto debo presentar 90 disponibles.

    Actualmente se presenta la disponibilidad del material de la tabla MARD.

    Saludos
    Saludos.
  • asantos
    Senior Member
    • oct
    • 428

    #2
    Hola
    Los datos a nivel de almacén están en la MARD y los datos de centro en la MBEW.
    Desbes tomar en cuenta que cuando realizas traspasos entre centros no necesariamente tienes el datoa nivel de almacén.

    Saludos
    Alex

    Comentario

    • virgilio_avila
      Senior Member
      • jun
      • 327

      #3
      Finalmente lo que hice fue implementar una BAPI. Les dejo el codigo esperando que alguien se beneficie.

      Saludos.

      DATA : STOCK LIKE BAPICM61V-WKBST,
      ls_return TYPE TABLE OF BAPIRETURN WITH HEADER LINE.

      *Definimos la tablas que regresa la BAPI
      DATA: LV_TABIX LIKE SY-TABIX,
      LT_WMDVSX TYPE TABLE OF BAPIWMDVS WITH HEADER LINE,
      LT_WMDVEX TYPE TABLE OF BAPIWMDVE WITH HEADER LINE.

      *Variable para fecha del dia actual.
      DATA: DELIV_DATE LIKE SY-DATUM.
      *Verificamos la Clase de Documento.
      IF XVBAP-PSTYV = 'ZSO' OR XVBAP-PSTYV = 'ZAG'.

      LOOP AT XVBAP. "Hacemos un Loop para leer las posiciones del documento
      CLEAR: LT_WMDVSX, LT_WMDVEX. "Limpiamos el cabecero
      REFRESH: LT_WMDVSX, LT_WMDVEX."Borramos la Tabla.

      *llamamos la BAPI de disponibilidad de material

      CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
      EXPORTING
      plant = XVBAP-WERKS
      material = XVBAP-MATNR
      unit = XVBAP-MEINS
      check_rule = '03'
      IMPORTING
      return = ls_return
      AV_QTY_PLT = STOCK
      TABLES
      wmdvsx = LT_WMDVSX
      wmdvex = LT_WMDVEX.


      IF SY-SUBRC EQ 0.
      *Asignamos la fecha del dia actual
      DELIV_DATE = SY-DATUM.
      CLEAR LT_WMDVEX.
      READ TABLE LT_WMDVEX WITH KEY
      COM_DATE = DELIV_DATE.
      *Validamos que la venta sea menor al stock
      IF XVBAP-KWMENG > LT_WMDVEX-COM_QTY.
      MESSAGE E999(/ccsat/zpv)
      WITH TEXT-C05 LT_WMDVEX-COM_QTY TEXT-C06 XVBAP-POSNR.
      ENDIF.
      ENDIF.
      ENDLOOP.
      ENDIF. "TERMINA CLASE DE DOC
      *END VAB.
      Saludos.

      Comentario

      • Frank_Shamrock
        Junior Member
        • may
        • 1

        #4
        Estimado Virgilio... muchas gracias por esa información que sembraste,
        era lo que estaba buscando para poder DETERMINAR LA DISPONIBILIDAD DE MATERIAL.
        Muchas gracias, si desde la fecha optimizaste tu codigo o encontraste otra manera te agradeceré la compartas.
        Pero desde ya... MUCHAS GRACIAS.

        Comentario

        Trabajando...