Implementar amarre MIGO

Para amarrar y ver de que almacén a cual almacén y a razón de que salida de mercancía se va a hacer cierta entrada.

Este caso se resuelve con un USER-EXIT y un ENHANCEMENT para realizar la actualización de los documentos, tanto el de entrada como el de salida. El USER-EXIT de la función EXIT_SAPMM07M_001 dentro tiene un INCLUDE Z llamado ZXMBCU02. Para activarlo crear un proyecto por la CMOD llamado ZMM, ampliación [MBCF0002].
el codigo ZXMBCU02
*&-------------------------------------------------------------*
*&  Include           ZXMBCU02 
*&-------------------------------------------------------------*  ****************************************************************
* Name: ZXMBCU02 
* Description:  Coloca el no. de doc de salida en el texto de 
*               posición del documento de entrada. 
* Date:    2009/02/26 
* Author:  DTSolutions RTorres **************************************************************** 
CONSTANTS: c_godynpro(21)  VALUE '(SAPLMIGO)GODYNPRO'.  
FIELD-SYMBOLS:  TYPE godynpro.  
"Asigna el valor de estructura GODYNPRO de la migo al FC 
ASSIGN (c_godynpro) TO .  
"si se presionó el boton de grabar 
IF sy-ucomm = 'OK_POST' OR sy-ucomm = 'OK_POST1'. 
"Si la operación es de almacenar. 
IF -action = 'A10'.   
"Si se hace con referencia a un documento de material   
IF -refdoc = 'R02'.     
IF -mat_doc <> ''.       
"Actualiza el texto de la posición con el no. del doc. de salida       e_sgtxt = -mat_doc.       
ENDIF.     
ENDIF.   
ENDIF. 
ENDIF.

Para el caso del ENHANCEMENT crear uno utilizando el punto que está definido debajo. 


 Codigo Enh.
 
log.Position :       \PR:SAPLMIGO\EX:GOODS_MOVEMENT_FILL_05\
* DATA:       it_mkpf      TYPE STANDARD TABLE OF mkpf,       it_mseg    TYPE STANDARD TABLE OF mseg,       wa_mseg LIKE LINE OF it_mseg,       xmblnr       TYPE mkpf-mblnr,       msg(70).  "BREAK-POINT.  IF godynpro-action = 'A10'.       "si es una operacion de almacenaje    IF godynpro-refdoc = 'R02'.    "si es con un documento de referencia      SELECT SINGLE SGTXT FROM MSEG INTO xmblnr WHERE MBLNR = godynpro-mat_doc.      IF sy-subrc = 0.        IF xmblnr <> ''.         SELECT * FROM mkpf INTO CORRESPONDING FIELDS OF TABLE it_mkpf WHERE mblnr = xmblnr.          IF SY-SUBRC = 0.            SELECT * FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_mseg WHERE mblnr = xmblnr.            LOOP AT it_mseg INTO wa_mseg.             wa_mseg-sgtxt = godynpro-mat_doc.             MODIFY it_mseg FROM wa_mseg TRANSPORTING sgtxt WHERE mblnr = wa_mseg-mblnr AND ZEILE = wa_mseg-ZEILE.           ENDLOOP.            "Modifica el documento de material cambiando el texto de cabecera.           CALL FUNCTION 'MB_CHANGE_DOCUMENT'             TABLES               zmkpf = it_mkpf               zmseg = it_mseg.            IF sy-subrc <> 0.              CONCATENATE 'El documento de material' xmblnr 'no fue modificado'  INTO msg SEPARATED BY space.              MESSAGE i999(re) WITH msg.           ENDIF.          ENDIF.       ELSE.          CONCATENATE 'El documento de material' xmblnr 'no fue encontrado'  INTO msg SEPARATED BY space.          MESSAGE i999(re) WITH msg.       ENDIF.      ELSE.        CONCATENATE 'El documento de material' xmblnr 'no pudo abrirse'  INTO msg SEPARATED BY space.        MESSAGE i999(re) WITH msg.      ENDIF.   ENDIF. ENDIF.
































Comentarios








Publicar un comentario













Entradas populares de este blog










Direcciones en SAP





















SAP utiliza las siguientes tablas para guardar las direcciones ya sea de una empresa hasta una persona física. Las direcciones se normalizan en las tablas que se muestran a continuación bajos las claves principales de No. dirección [ADDRNUMBER] y No. persona [PERSNUMBER]. ADR10                          Impresora (Business Address Services) ADR10S                        Tabla muestra: Impresora (Business Address ADR10S2                      Tabla muestra_2: Impresora (Business Addre ADR11                           SSF (Business Address Services) ADR11S                         Tabla muestra: SSF (Business Address Servi ADR11S2                       Tabla muestra_2: SSF (Business Address Ser ADR12                           FTP y URL (Business Address Services) ADR12S                         Tabla muestra: FTP y URL (Business Address ADR12S2                       Tabla muestra_2: FTP y URL (Business Addre ADR13                           Pager (Business Address Services) ADR13S             








Leer más










Funcion MD_CONVERT_MATERIAL_UNIT





















La función MD_CONVERT_MATERIAL_UNIT tiene como objetivo convertir de una unidad de medida a otra. Ej.: 1Tonelada = 1000 Kg.   Ejemplo de SAP:  CALL  FUNCTION   'MD_CONVERT_MATERIAL_UNIT'          EXPORTING              I_MATNR  = I_MATNR              I_IN_ME  = I_MEINH_IN              I_OUT_ME = I_MEINH_OUT              I_MENGE  = LD_MENGE_IN          IMPORTING              E_MENGE  = LD_MENGE_OUT          EXCEPTIONS               OTHERS     =  4 .     IF    SY-SUBRC     IS  INITIAL .       "Do something     ENDIF .    Esta es la más correcta, porque si no tiene  conversión  da una  excepción , sin embargo funciones de  conversión  como  MATERIAL_UNIT_CONVERSION, no hacen el trabajo correctamente cuando el material no tiene la conversión explicitamente.








Leer más