Cargar Pedidos de Compra

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • vamp_01
    Senior Member
    • jun
    • 109

    #1

    Cargar Pedidos de Compra

    Hola a todos, soy yo nuevamente, solicito si alguien por ahí tiene algún programa o sabe de alguna parte donde exista, el programa para subir pedidos de compra de manera masiva..
    De ante mano Gracias
  • gdmj1107
    Member
    • mar
    • 93

    #2
    Hola te sugeriría crear tu propio programa y utilizar la bapi BAPI_PO_CREATE.
    Espero te sirva

    Comentario

    • beltsoft
      Member
      • sep
      • 99

      #3
      BAPI_PO_CREATE es lo correcto.


      REPORT ZEX_POCREATE .



      Data: int_pohead like BAPIEKKOC,
      int_poitem like BAPIEKPOC occurs 0 with header line,
      int_posched like BAPIEKET occurs 0 with header line,
      int_ret like BAPIRETURN occurs 0 with header line.
      Data: d_purchord like BAPIEKKOC-PO_NUMBER.

      Move: 'NB' to int_pohead-DOC_TYPE,
      '1000' to int_pohead-PURCH_ORG,
      '001' to int_pohead-PUR_GROUP,
      '0000001234' to int_pohead-vendor,


      '00010' to int_poitem-po_item,
      'Material' to int_poitem-material,
      'Material' to int_poitem-pur_mat,
      '1000' to int_poitem-plant,


      '00010' to int_posched-PO_ITEM,
      '20080531' to int_posched-DELIV_DATE,
      '2' to int_posched-QUANTITY.


      Append int_poitem.
      Clear int_poitem.
      APPEND int_posched.
      CLEAR int_posched.

      CALL FUNCTION 'BAPI_PO_CREATE'
      EXPORTING
      PO_HEADER = int_pohead
      * PO_HEADER_ADD_DATA =
      * HEADER_ADD_DATA_RELEVANT =
      * PO_ADDRESS =
      SKIP_ITEMS_WITH_ERROR = 'X'
      * ITEM_ADD_DATA_RELEVANT =
      IMPORTING
      PURCHASEORDER = d_purchord
      TABLES
      PO_ITEMS = int_poitem
      * PO_ITEM_ADD_DATA =
      PO_ITEM_SCHEDULES = int_posched
      * PO_ITEM_ACCOUNT_ASSIGNMENT =
      * PO_ITEM_TEXT =
      RETURN = int_ret
      * PO_LIMITS =
      * PO_CONTRACT_LIMITS =
      * PO_SERVICES =
      * PO_SRV_ACCASS_VALUES =
      * PO_SERVICES_TEXT =
      * PO_BUSINESS_PARTNER =
      * EXTENSIONIN =
      * POADDRDELIVERY =
      .

      If sy-subrc = 0.
      Write:/ 'Purchase Order Number is', d_purchord.
      endif.



      --------------------------------------------------------------------------------

      Saludos.
      SSE BeltSoft México
      Your Business, our motivation ...

      Comentario

      • vamp_01
        Senior Member
        • jun
        • 109

        #4
        Muchas Gracias

        Comentario

        Trabajando...