PDA

Ver la Versión Completa : Tablas MM, Urgente ˇˇˇ


virgilio_avila
03/03/08, 17:53:42
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

asantos
03/03/08, 18:38:43
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

virgilio_avila
04/03/08, 18:16:54
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.

Frank_Shamrock
20/10/15, 23:58:20
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. :) :) :) :) :)