Tweet
Ayuda con Bapi_requisition_create
olas, soy nuevo en sap y kisiera saber si alguien me puede ayudar con el uso de la bapi para crear solicitud de pedido, si tienes algun eje`mplo completo de su uso y me lo pueden pasar, les agradesco de antemano la ayuda, nos vemos.,
-
-
Ejemplo de Bapi_requisition_create
Hago envio de ejemplo de Bapi_requisition_create, probarla en IDES.
Saludos.
Jose Villamil.
Consultor ABAP.
REPORT ZPROGRAMMAYO29.
DATA:
NUMBER LIKE BAPIEBANC-PREQ_NO,
RETURN LIKE STANDARD TABLE OF BAPIRETURN WITH HEADER LINE,
TI_REQUISITION_ITEMS LIKE STANDARD TABLE OF BAPIEBANC WITH HEADER LINE,
TI_ACCOUNT_ASSIGNMENT LIKE STANDARD TABLE OF BAPIEBKN WITH HEADER LINE,
TI_REQUISITION_SERVICES LIKE STANDARD TABLE OF BAPIESLLC WITH HEADER LINE,
TI_REQUISITION_ITEM_TEXT LIKE STANDARD TABLE OF BAPIEBANTX WITH HEADER LINE,
TI_REQUISITION_LIMITS LIKE STANDARD TABLE OF BAPIESUHC WITH HEADER LINE,
TI_REQUISITION_CONTRACT_LIMITS LIKE STANDARD TABLE OF BAPIESUCC WITH HEADER LINE,
TI_REQUISITION_SRV_ACCASS_VALU LIKE STANDARD TABLE OF BAPIESKLC WITH HEADER LINE,
TI_REQUISITION_SERVICES_TEXT LIKE STANDARD TABLE OF BAPIESLLTX WITH HEADER LINE,
TI_REQUISITION_ADDRDELIVERY LIKE STANDARD TABLE OF BAPIMERQADDRDELIVERY WITH HEADER LINE,
TI_EXTENSIONIN LIKE STANDARD TABLE OF BAPIPAREX WITH HEADER LINE.
selection-screen begin of block BAPI with frame.
parameters: pa_bapi(080) type C default 'BAPI_REQUISITION_CREATE'.
selection-screen end of block BAPI.
START-OF-SELECTION.
TI_REQUISITION_ITEMS-PREQ_ITEM = '00010'.
TI_REQUISITION_ITEMS-DOC_TYPE = 'NB'.
TI_REQUISITION_ITEMS-PUR_GROUP = '000'.
TI_REQUISITION_ITEMS-SHORT_TEXT = 'SERVICIO UNO'.
TI_REQUISITION_ITEMS-PLANT = '1000'.
TI_REQUISITION_ITEMS-MAT_GRP = '007'.
TI_REQUISITION_ITEMS-QUANTITY = 1.
TI_REQUISITION_ITEMS-UNIT = 'UA'.
TI_REQUISITION_ITEMS-DELIV_DATE = '20080414'.
TI_REQUISITION_ITEMS-C_AMT_BAPI = '0'.
TI_REQUISITION_ITEMS-ITEM_CAT = '9'.
TI_REQUISITION_ITEMS-ACCTASSCAT = 'K'.
TI_REQUISITION_ITEMS-DISTRIB = ' '.
TI_REQUISITION_ITEMS-GR_IND = 'X'.
TI_REQUISITION_ITEMS-IR_IND = 'X'.
TI_REQUISITION_ITEMS-PCKG_NO = '0000000001'.
APPEND TI_REQUISITION_ITEMS.
CLEAR TI_REQUISITION_ITEMS.
TI_REQUISITION_ITEMS-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEMS-DOC_TYPE = 'NB'.
TI_REQUISITION_ITEMS-PUR_GROUP = '000'.
TI_REQUISITION_ITEMS-SHORT_TEXT = 'SERVICIO DOS'.
TI_REQUISITION_ITEMS-PLANT = '1000'.
TI_REQUISITION_ITEMS-MAT_GRP = '007'.
TI_REQUISITION_ITEMS-QUANTITY = 1.
TI_REQUISITION_ITEMS-UNIT = 'UA'.
TI_REQUISITION_ITEMS-DELIV_DATE = '20080414'.
TI_REQUISITION_ITEMS-C_AMT_BAPI = '0'.
TI_REQUISITION_ITEMS-ITEM_CAT = '9'.
TI_REQUISITION_ITEMS-ACCTASSCAT = 'K'.
TI_REQUISITION_ITEMS-DISTRIB = ' '.
TI_REQUISITION_ITEMS-GR_IND = 'X'.
TI_REQUISITION_ITEMS-IR_IND = 'X'.
TI_REQUISITION_ITEMS-PCKG_NO = '0000000003'.
APPEND TI_REQUISITION_ITEMS.
CLEAR TI_REQUISITION_ITEMS.
TI_ACCOUNT_ASSIGNMENT-PREQ_ITEM = '00010'.
TI_ACCOUNT_ASSIGNMENT-SERIAL_NO = '01'.
TI_ACCOUNT_ASSIGNMENT-PREQ_QTY = 1.
TI_ACCOUNT_ASSIGNMENT-G_L_ACCT = '0000417000'.
TI_ACCOUNT_ASSIGNMENT-COST_CTR = '0000001000'. "'1000'.
APPEND TI_ACCOUNT_ASSIGNMENT.
CLEAR TI_ACCOUNT_ASSIGNMENT.
TI_ACCOUNT_ASSIGNMENT-PREQ_ITEM = '00020'.
TI_ACCOUNT_ASSIGNMENT-SERIAL_NO = '01'.
TI_ACCOUNT_ASSIGNMENT-PREQ_QTY = 1.
TI_ACCOUNT_ASSIGNMENT-G_L_ACCT = '0000417000'.
TI_ACCOUNT_ASSIGNMENT-COST_CTR = '0000001000'. "'1000'.
APPEND TI_ACCOUNT_ASSIGNMENT.
CLEAR TI_ACCOUNT_ASSIGNMENT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00010'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B01'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO POSICION SERVICIO UNO'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00010'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B02'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'NOTA DE POSICION SERVICIO UNO'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00010'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B03'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO DE SUMINISTRO SERVICIO UNO'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00010'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B04'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO PEDIDO DE MATERIAL SERVICIO UNO'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B01'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO POSICION SERVICIO DOS'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B01'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO POSICION SERVICIO DOS'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B01'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO POSICION SERVICIO DOS'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B01'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO POSICION SERVICIO DOS'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B02'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'NOTA DE POSICION SERVICIO DOS'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B03'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO DE SUMINISTRO SERVICIO DOS'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_ITEM_TEXT-PREQ_ITEM = '00020'.
TI_REQUISITION_ITEM_TEXT-TEXT_ID = 'B04'.
TI_REQUISITION_ITEM_TEXT-TEXT_FORM = '*'.
TI_REQUISITION_ITEM_TEXT-TEXT_LINE = 'TEXTO PEDIDO DE MATERIAL SERVICIO DOS'.
APPEND TI_REQUISITION_ITEM_TEXT.
CLEAR TI_REQUISITION_ITEM_TEXT.
TI_REQUISITION_LIMITS-PCKG_NO = '0000000001'.
TI_REQUISITION_LIMITS-LIMIT = '800000'.
TI_REQUISITION_LIMITS-EXP_VALUE = '10000'.
TI_REQUISITION_LIMITS-NO_FRLIMIT = 'X'.
APPEND TI_REQUISITION_LIMITS.
CLEAR TI_REQUISITION_LIMITS.
TI_REQUISITION_LIMITS-PCKG_NO = '0000000003'.
TI_REQUISITION_LIMITS-LIMIT = '1000000'.
TI_REQUISITION_LIMITS-EXP_VALUE = '10000'.
TI_REQUISITION_LIMITS-NO_FRLIMIT = 'X'.
APPEND TI_REQUISITION_LIMITS.
CLEAR TI_REQUISITION_LIMITS.
TI_REQUISITION_SERVICES-PCKG_NO = '0000000001'.
TI_REQUISITION_SERVICES-LINE_NO = '0000000001'.
TI_REQUISITION_SERVICES-EXT_LINE = '0000000000'.
TI_REQUISITION_SERVICES-OUTL_IND = 'X'.
TI_REQUISITION_SERVICES-SUBPCKG_NO = '0000000002'.
TI_REQUISITION_SERVICES-FROM_LINE = '1'.
APPEND TI_REQUISITION_SERVICES.
CLEAR TI_REQUISITION_SERVICES.
TI_REQUISITION_SERVICES-PCKG_NO = '0000000002'.
TI_REQUISITION_SERVICES-LINE_NO = '0000000002'.
TI_REQUISITION_SERVICES-EXT_LINE = '0000000010'.
TI_REQUISITION_SERVICES-SUBPCKG_NO = '0000000000'.
TI_REQUISITION_SERVICES-SERVICE = '000000000000100000'.
TI_REQUISITION_SERVICES-QUANTITY = 5.
TI_REQUISITION_SERVICES-BASE_UOM = 'UA'.
TI_REQUISITION_SERVICES-UOM_ISO = 'PCE'.
TI_REQUISITION_SERVICES-PRICE_UNIT = 1.
TI_REQUISITION_SERVICES-MATL_GROUP = '007'.
TI_REQUISITION_SERVICES-GR_PRICE = '150000'.
APPEND TI_REQUISITION_SERVICES.
CLEAR TI_REQUISITION_SERVICES.
TI_REQUISITION_SERVICES-PCKG_NO = '0000000003'.
TI_REQUISITION_SERVICES-LINE_NO = '0000000002'.
TI_REQUISITION_SERVICES-EXT_LINE = '0000000000'.
TI_REQUISITION_SERVICES-OUTL_IND = 'X'.
TI_REQUISITION_SERVICES-SUBPCKG_NO = '0000000004'.
TI_REQUISITION_SERVICES-FROM_LINE = '1'.
APPEND TI_REQUISITION_SERVICES.
CLEAR TI_REQUISITION_SERVICES.
TI_REQUISITION_SERVICES-PCKG_NO = '0000000004'.
TI_REQUISITION_SERVICES-LINE_NO = '0000000003'.
TI_REQUISITION_SERVICES-EXT_LINE = '0000000010'.
TI_REQUISITION_SERVICES-SUBPCKG_NO = '0000000000'.
TI_REQUISITION_SERVICES-SERVICE = '000000000000100000'.
TI_REQUISITION_SERVICES-QUANTITY = 10.
TI_REQUISITION_SERVICES-BASE_UOM = 'UA'.
TI_REQUISITION_SERVICES-UOM_ISO = 'PCE'.
TI_REQUISITION_SERVICES-PRICE_UNIT = 1.
TI_REQUISITION_SERVICES-MATL_GROUP = '007'.
TI_REQUISITION_SERVICES-GR_PRICE = '90000'.
APPEND TI_REQUISITION_SERVICES.
CLEAR TI_REQUISITION_SERVICES.
TI_REQUISITION_SRV_ACCASS_VALU-PCKG_NO = '0000000001'.
TI_REQUISITION_SRV_ACCASS_VALU-LINE_NO = '0000000000'.
TI_REQUISITION_SRV_ACCASS_VALU-SERNO_LINE = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-SERIAL_NO = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-PERCENTAGE = '100'.
APPEND TI_REQUISITION_SRV_ACCASS_VALU.
CLEAR TI_REQUISITION_SRV_ACCASS_VALU.
TI_REQUISITION_SRV_ACCASS_VALU-PCKG_NO = '0000000002'.
TI_REQUISITION_SRV_ACCASS_VALU-LINE_NO = '0000000002'.
TI_REQUISITION_SRV_ACCASS_VALU-SERNO_LINE = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-SERIAL_NO = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-PERCENTAGE = '100.0'.
APPEND TI_REQUISITION_SRV_ACCASS_VALU.
CLEAR TI_REQUISITION_SRV_ACCASS_VALU.
TI_REQUISITION_SRV_ACCASS_VALU-PCKG_NO = '0000000003'.
TI_REQUISITION_SRV_ACCASS_VALU-LINE_NO = '0000000000'.
TI_REQUISITION_SRV_ACCASS_VALU-SERNO_LINE = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-SERIAL_NO = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-PERCENTAGE = '100.0'.
APPEND TI_REQUISITION_SRV_ACCASS_VALU.
CLEAR TI_REQUISITION_SRV_ACCASS_VALU.
TI_REQUISITION_SRV_ACCASS_VALU-PCKG_NO = '0000000004'.
TI_REQUISITION_SRV_ACCASS_VALU-LINE_NO = '0000000003'.
TI_REQUISITION_SRV_ACCASS_VALU-SERNO_LINE = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-SERIAL_NO = '01'.
TI_REQUISITION_SRV_ACCASS_VALU-PERCENTAGE = '100.0'.
APPEND TI_REQUISITION_SRV_ACCASS_VALU.
CLEAR TI_REQUISITION_SRV_ACCASS_VALU.
CALL FUNCTION 'BAPI_REQUISITION_CREATE'
EXPORTING
SKIP_ITEMS_WITH_ERROR = ''
AUTOMATIC_SOURCE = 'X'
IMPORTING
NUMBER = NUMBER
TABLES
REQUISITION_ITEMS = TI_REQUISITION_ITEMS
REQUISITION_ACCOUNT_ASSIGNMENT = TI_ACCOUNT_ASSIGNMENT
REQUISITION_ITEM_TEXT = TI_REQUISITION_ITEM_TEXT
REQUISITION_LIMITS = TI_REQUISITION_LIMITS
REQUISITION_CONTRACT_LIMITS = TI_REQUISITION_CONTRACT_LIMITS
REQUISITION_SERVICES = TI_REQUISITION_SERVICES
REQUISITION_SRV_ACCASS_VALUES = TI_REQUISITION_SRV_ACCASS_VALU
RETURN = RETURN
REQUISITION_SERVICES_TEXT = TI_REQUISITION_SERVICES_TEXT
REQUISITION_ADDRDELIVERY = TI_REQUISITION_ADDRDELIVERY
EXTENSIONIN = TI_EXTENSIONIN
.
READ TABLE RETURN INDEX 1.
IF NOT RETURN IS INITIAL.
IF RETURN-TYPE NE 'S'.
ULINE (142).
LOOP AT RETURN WHERE TYPE NE 'W'.
WRITE:/ '|', ICON_CANCEL as icon, RETURN-TYPE, 20 RETURN-MESSAGE, 142 '|'.
ULINE (142).
ENDLOOP.
ENDIF.
ELSE.
ULINE (142).
WRITE:/ '|', ICON_CHECKED as icon, 7 'SOLICITUD DE PEDIDO: ', 30 NUMBER, 142 '|'.
ULINE (142).
ENDIF.
END-OF-SELECTION. -
Hola Tendran un ejemplo creacion de peticion de oferta BS01_MM_QUOTATION_CREATE... gr
Favor tendran un ejempolo de peticion de creacion de oferta.
BS01_MM_QUOTATION_CREATE
Originalmente publicado por Jose VillamilComentario
-
Mensaje de error
Hola,
Trato de crear una solicitud de pedido usando la bapi BAPI_REQUISITION_CREATE, pero me genera el siguiente mensaje de error.
Tipo: E
Codigo: SE139
Mensaje: "Línea 0000000010: indicar texto breve o número de servicio"
Gracias por la ayuda,Comentario
Comentario