SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

IDoc creation from inbound file



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Interfaces | Интерфейсы
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Mon Sep 10, 2007 8:22 pm    Post subject: IDoc creation from inbound file Reply with quote

Code:
REPORT ZS7BM000006 message-id ZS7.
*______________________________________________________________________

*/ Program Name: Creation of DESADV & INVOIC IDocs from file E021
*/ Description : This program reads in external file E021 containing
*                shipping and invoice data from internal vendors and
*                creates one DESADV and one INVOIC IDoc per invoice.
*/ Transaction : n/a - run from job Z_ccc_S7B_Annnnn, where
*                'ccc' = 3-digit client and 'nnnnn' = zero-filled
*                sequence number matching the scheduled job for E020.
*______________________________________________________________________
tables:  lfa1,
         lfm1,
         ekpo,
         eine,
         e1edk01,
         e1edk02,
         e1edk07,
         e1edk08,
         e1edk06,
         e1edk03,
         e1edka1,
         e1edka2,
         e1edp07,
         e1edp09,
         e1edp19,
         e1edp01,
         e1edp02,
         e1edp26,
         e1edp04,
         e1eds01,
         e1eds02,
         zst7f_ty_vendors.

parameters:  p_path like PATH-PATHEXTERN
                   default '/ftp/atac/in/'.

data:  INFILE LIKE PATH-PATHEXTERN,
       back_path(7) type c value 'backup/',
       offset like sy-fdpos,
       p07_ctr like sy-index,
       invoice_total type p decimals 3,
       d_seg_num like sy-index,
       i_seg_num like sy-index.

data:  OUTFILE LIKE PATH-PATHEXTERN,
       today(8)     type c.

data:  begin of uty_vendors occurs 10,
          lifnr like lfa1-lifnr,
          waers like lfm1-waers,
          name_abbr like zst7f_ty_vendors-name_abbr,
          ship_days like zst7f_ty_vendors-ship_days,
       end of uty_vendors.

data:  iZSS7B21 like ZSS7B21.

data:  desadvdata like edi_dd occurs 5 with header line.
data:  invoicdata like edi_dd occurs 5 with header line.
data:  dedidc like edi_dc occurs 1 with header line.
data:  iedidc like edi_dc occurs 1 with header line.

data:  begin of ie021 occurs 10,
        lifnr            like lfa1-lifnr,
        ship_days        like zst7f_ty_vendors-ship_days,
        invoice_no       like e1edk08-vbeln,
        stat             like e1edk01-action,
        po_number(10)    type n,
        po_lineno(5)     type n,
        slip_number      like e1edp09-vbeln,
        shipto_id        like e1edka1-partn,
        vendor_id        like e1edka1-partn,
        endcust_name     like e1edka1-name1,
        cust_partno      like e1edp09-kdmat,  "char 35
        vendor_partno    like e1edp09-matnr,  "char 35
        invoice_qty      like e1edp09-lfimg,
        qty_uom          like e1edp01-menee,
        unit_price       like e1edp01-vprei,
        price_uom        like e1edp01-pmene,
        price_qty        like e1edp01-peinh,
        line_amount      like e1edp26-betrg,
        currency         like e1edk01-curcy,
        etd              like e1edk06-datum, "ship date
        eta              like e1edk06-datum, "delivery date
        ship_id          like e1edk08-traid,
        ship_method      like e1edk08-traty,
        create_date      like e1edk03-datum,
        plant            like ekpo-werks,
       end of ie021.

data: save_po like ie021-po_number,
      save_line like ie021-po_lineno,
      save_stat like ie021-stat,
      save_invoice like ie021-invoice_no.

constants: hun_thou type p decimals 5 value '100000',
           thou type p decimals 3 value '1000'.

*&---------------------------------------------------------------------*
*&      DEFINITION:  append_idoc_rec
*&---------------------------------------------------------------------*
*       add a data record to the IDoc internal table
*----------------------------------------------------------------------*
define append_idoc_rec.

&1-tabnam = &1-segnam.
&2_seg_num = &2_seg_num + 1.
&1-segnum = &2_seg_num.
shift &1-segnum left deleting leading space.
append &1.
clear &1.

end-of-definition.       " append_idoc_rec


*------------------------------------------------------------------
* MAIN PROCESSING LOOP
*------------------------------------------------------------------

START-OF-SELECTION.

today = sy-datum.

* find all internal vendors
select a~lifnr
       b~waers
       c~name_abbr  c~ship_days
   into corresponding fields of table uty_vendors
     from lfa1 as a
          inner join lfm1 as b
             on a~lifnr = b~lifnr
          inner join zst7f_ty_vendors as c
             on a~lifnr = c~lifnr
     where a~ktokk = 'ZZTY' and
           b~ekorg = '7100' and
           c~ship_code = ' '.

perform init_desadv.
perform init_invoic.

concatenate 'SAP' sy-sysid(3) into: iedidc-sndpor, dedidc-sndpor.

loop at uty_vendors.

  clear ie021. refresh ie021.

  if not uty_vendors-name_abbr is initial.
* datafiles are received with naming convention:
* E020_<customer name abbreviation>_UTY
    concatenate p_path 'E021_' uty_vendors-name_abbr '_UTY'
        into infile.
    if not sy-subrc is initial.  "pathname too long
* Filename too long: &
      message i016 with infile.
      continue.
    endif.
    condense infile.
    OPEN DATASET INFILE FOR INPUT IN TEXT MODE.
    if not sy-subrc is initial.
*'Cannot open dataset & on &'
      message i013 with infile sy-datum.
      continue.
    else.
      concatenate p_path back_path 'E021_'
          uty_vendors-name_abbr '_UTY' today
                into outfile.
      if not sy-subrc is initial.  "pathname too long
* Filename too long: &
        message i016 with outfile.
        continue.
      endif.
      condense outfile.
      OPEN DATASET OUTFILE FOR OUTPUT IN TEXT MODE.
* if the datestamped file cannot be created, do not process the
* input file, because the input file is deleted after processing,
* and there would be no record of the data.
      if not sy-subrc is initial.
*'ERROR opening file & for output'
        close dataset infile.
        message i033 with outfile.
        continue.  "process next vendor's file
      endif.
      do.
        read dataset infile into izss7b21.
        case sy-subrc.
          when 0.
            transfer izss7b21 to outfile.
            if izss7b21-datacode = 'T'. "trailer rec
              perform process_one_vendor using infile.
              exit.  "process next vendor's file
            endif.
            check: izss7b21-datacode = 'A'. "data rec
            case izss7b21-status.
              when ' '.  "new
                ie021-stat = '000'.
              when 'M'.  "modification
                ie021-stat = '002'.
              when 'D'.  "deletion
                ie021-stat = '003'.
            endcase.
            move-corresponding uty_vendors to ie021.
            move-corresponding izss7b21 to ie021.
            perform convert_po_no using izss7b21-pono_poline
                               changing ie021-po_number
                                        ie021-po_lineno.
            perform convert_dates using ie021-lifnr
                                        izss7b21-etd
                                        izss7b21-eta
                                        izss7b21-ship_method
                                        izss7b21-create_date
                               changing ie021-eta
                                        ie021-ship_days.
            perform quantity_conversion
                                using izss7b21-qty_uom
                                      izss7b21-invoice_qty
                                      izss7b21-unit_price
                                changing ie021-qty_uom
                                         ie021-invoice_qty
                                      izss7b21-line_amount.
            perform money_conversion
                                using izss7b21-currency
                                      izss7b21-unit_price
                                      izss7b21-price_uom
                                      izss7b21-line_amount
                                changing ie021-currency
                                         ie021-price_uom
                                         ie021-price_qty
                                         ie021-unit_price
                                         ie021-line_amount.
            perform SAP_vendor_partno
                                changing ie021-cust_partno.
            append ie021.
          when 4.  "EOF
            perform process_one_vendor using infile.
            exit.  "process next vendor's file
          when others.
*ERROR reading dataset & - &
            message i015 with infile sy-datum.
            exit.
        endcase.
      enddo.
      close dataset: infile, outfile.
      delete dataset infile.
    endif.
  endif.
endloop. "UTY_VENDORS

*&---------------------------------------------------------------------*
*&      Form  process_one_vendor
*&---------------------------------------------------------------------*
*       Pre-processed records from one vendor file are now in the
*       internal table ie021 - ready to create IDocs
*----------------------------------------------------------------------*
FORM process_one_vendor using value(infile).

  sort ie021 by invoice_no stat po_number po_lineno.
  loop at ie021.
    if ( ie021-invoice_no <> save_invoice or
         ie021-stat <> save_stat ).
      if sy-tabix > 1.
        perform post_idocs using ie021-stat.
      endif.
      perform idoc_header_segs using ie021-stat.
    endif.
    if ( ie021-stat <> save_stat or
         ie021-po_number <> save_po or
         ie021-po_lineno <> save_line or
         ie021-invoice_no <> save_invoice ).
      if ( sy-tabix > 1 and
           ie021-stat = '000' ).
        perform idoc_poheader_segs.
      endif.
    endif.
    perform idoc_item_segs using ie021-stat.
    save_po = ie021-po_number.
    save_line = ie021-po_lineno.
    save_invoice = ie021-invoice_no.
    save_stat = ie021-stat.
  endloop.
  perform post_idocs using ie021-stat.
* File successfully processed: &
  message s035 with infile.

ENDFORM.                    " process_one_vendor

*&---------------------------------------------------------------------*
*&      Form  convert_po_no
*&---------------------------------------------------------------------*
*       Break the PO number & line field into separate fields
*----------------------------------------------------------------------*
FORM convert_po_no using value(infield)
                   changing po_number like ie021-po_number
                            po_line like ie021-po_lineno.

data:  cpos like sy-fdpos,
       lpos like sy-fdpos,
       cline(6) type c.

* if the infield contains a hyphen, assume that the preceding characters
* represent the po number, if they are numeric. The po line number is
* assumed to be all numeric characters after the hyphen.
  if infield ca '-'.
    if infield(sy-fdpos) co ' 0123456789'.  "numeric
      po_number = infield(sy-fdpos).
      cpos = sy-fdpos + 1.
    endif.
  else.  "no hyphen - PTY
    if infield(2) = '71'.  "SAP number range
      cpos = 10.
    else.                  "SyteLine number
      cpos = 6.
    endif.
    if infield(cpos) co ' 0123456789'.  "numeric
      po_number = infield(cpos).
    endif.
  endif.
  if not po_number is initial.
    while infield+cpos(1) co '0123456789'.
      cline+lpos(1) = infield+cpos(1).
      lpos = lpos + 1.
      cpos = cpos + 1.
    endwhile.
    shift cline left deleting leading '0'.
    if not cline is initial.
      po_line = cline.
    endif.
  endif.

* Put out a warning in the job log, but create the IDoc to save the data
  if ( po_number is initial or
       po_line is initial ).
* PO number - line item conversion failed: &
    message i034 with infield.
  endif.
ENDFORM.                    " convert_po_no

*&---------------------------------------------------------------------*
*&      Form  convert_dates
*&---------------------------------------------------------------------*
*       Convert ship date to delivery date, if necessary
*----------------------------------------------------------------------*
FORM convert_dates using value(vendor_no)
                         value(i_ship_date)
                         value(i_delivery_date)
                         value(i_ship_code)
                         value(i_create_date)
                changing o_delivery_date
                         ship_days.

data:  ship_date type d.

* if delivery date not sent, calculate it from ship date plus
* ship days.
* Note that this logic could leave delivery date blank,
* if ship date is not numeric.
  if ( i_delivery_date is initial or
       i_delivery_date co ' 0' ).  "no delivery date sent
    if ( i_ship_date co ' 0123456789' and
         i_ship_date cn ' 0' ).    "ship date sent
* move the ship date into a date field to add days
      ship_date = i_ship_date.
    elseif ( i_create_date co ' 0123456789' and
             i_create_date cn ' 0' ).
      ship_date = i_create_date.
    endif.
    if not i_ship_code is initial.
      select single ship_days from zst7f_ty_vendors
               into ship_days
              where lifnr = vendor_no
                and ship_code = i_ship_code.
    endif.
    if not ship_date is initial.
      if ship_days > 0.
        ship_date = ship_date + ship_days.
        o_delivery_date = ship_date.
        shift o_delivery_date left deleting leading ' '.
      endif.
    endif.
  else.  "delivery date sent
    o_delivery_date = i_delivery_date.
  endif.

ENDFORM.                    " convert_dates

*&---------------------------------------------------------------------*
*&      Form  quantity_conversion
*&---------------------------------------------------------------------*
*       The quantities in the input file are implied 3-decimal,
*       so need to be converted into a "real" number.
*       Also, the unit of measure may be 'KP' indicating that the qty
*       is given in thousands.
*----------------------------------------------------------------------*
FORM quantity_conversion USING    value(i_UOM)
                                  value(i_invoice_qty)
                                  value(i_unit_price)
                    CHANGING o_uom like iE021-qty_UOM
                             o_invoice_qty like IE021-INVOICE_QTY
                             c_LINE_AMOUNT like izss7b21-line_amount.

data:  f_invoice_qty type f.
data:  n_invoice_qty like lips-kcmeng.
data:  f_unit_price type f.
data:  f_line_amt type f.
data:  n_line_amt0 type p decimals 0.

  if ( i_invoice_qty co ' 0123456789' and
       i_invoice_qty cn ' 0' ).
    f_invoice_qty = i_invoice_qty.
* if no extended price is sent, calculate it
    if c_line_amount is initial.
* the qty is implied 3-dec, the price is still implied
* 5-dec, and line amount should be implied 3-dec.
      f_unit_price = i_unit_price.
      f_line_amt = ( f_invoice_qty * f_unit_price ) / 100000.
      n_line_amt0 = f_line_amt.
      c_line_amount = n_line_amt0.
      shift c_line_amount left deleting leading space.
    endif.
* if the invoice qty is per 1000, the implied 3-dec times 1000 equals
* the unconverted value. Otherwise, divide by 1000 to get the PCE qty
    if i_uom = 'KP'.
      n_invoice_qty = f_invoice_qty.
    else.
      n_invoice_qty = f_invoice_qty / thou.
    endif.
  endif.

  o_uom = 'PCE'.

  if not n_invoice_qty is initial.
    o_invoice_qty = n_invoice_qty.
    shift o_invoice_qty left deleting leading space.
  else.
    clear o_invoice_qty.
  endif.

ENDFORM.                    " quantity_conversion

*&---------------------------------------------------------------------*
*&      Form  money_conversion
*&---------------------------------------------------------------------*
*       Add the implied decimals and store price-per qty, if
*       price per 1,000 is sent.
*----------------------------------------------------------------------*
FORM money_conversion USING    value(I_CURR)
                               value(i_UNIT_PRICE)
                               value(i_UOM)
                               value(i_LINE_AMOUNT)
                      CHANGING o_CURRENCY like ie021-currency
                               o_PRICE_UOM like ie021-price_uom
                               o_PRICE_QTY like ie021-price_qty
                               o_UNIT_PRICE like ie021-unit_price
                               o_LINE_AMOUNT like ie021-line_amount.

data:  n_unit_price type p decimals 5,
       n_line_amount type p decimals 3.

* not all of the vendors send the currency code, so use the vendor
* master default
  case i_curr(2).
    when 'US'.
      o_currency = 'USD'.
    when 'JP'.
      o_currency = 'JPY'.
    when others.
      o_currency = uty_vendors-waers.
  endcase.

* unit price is implied 5-dec
  if ( i_unit_price cn ' 0' and
       i_unit_price co ' 0123456789' ).
    n_unit_price = i_unit_price.
    n_unit_price = n_unit_price / hun_thou.
  endif.

* line price is implied 3-dec
  if ( i_line_amount co ' 0123456789' and
       i_line_amount cn ' 0' ).
    n_line_amount = i_line_amount.
    n_line_amount = n_line_amount / thou.
  endif.

* 'KP' = price per thousand
  if i_uom = 'KP'.
    o_price_qty = '1000'.
  else.
    o_price_qty = '1'.
  endif.

  o_price_uom = 'PCE'.

  if not n_unit_price is initial.
    o_unit_price = n_unit_price.
    shift o_unit_price left deleting leading space.
  else.
    clear o_unit_price.
  endif.
  if not n_line_amount is initial.
    o_line_amount = n_line_amount.
    shift o_line_amount left deleting leading space.
  else.
    clear o_line_amount.
  endif.

ENDFORM.                    " money_conversion

*&---------------------------------------------------------------------*
*&      Form  SAP_vendor_partno
*&---------------------------------------------------------------------*
*       replace UTY part number sent by vendor with SAP material no.
*       from PO line item.
*----------------------------------------------------------------------*
FORM SAP_vendor_partno changing cust_partno like ie021-cust_partno.

tables: makt.

data: partno_sent like makt-maktx.

  partno_sent = cust_partno.
  clear: makt, cust_partno.
  select single matnr from ekpo into cust_partno
         where ebeln = ie021-po_number and
               ebelp = ie021-po_lineno.
  if sy-subrc is initial.
*compare material description to part number sent by vendor
    select single maktx from makt into makt-maktx
        where matnr = cust_partno.
    if partno_sent <> makt-maktx.
* 'Part No. Mismatch: PO & - &, Part sent &, SAP mat.no. &'
      message i031 with ie021-po_number ie021-po_lineno
                        partno_sent makt-maktx.
    endif.
  else.  "PO line not found
*try to find SAP material number using 20-char catalog no. sent
    select single matnr from makt into cust_partno
        where maktx = partno_sent.
    if not sy-subrc is initial.
* 'SAP material no. not found for & - PO & - &'
      message i032 with partno_sent ie021-po_number ie021-po_lineno.
    endif.
  endif.
*if not found, IDoc will go to workflow for missing material no.

ENDFORM.                    " SAP_vendor_partno

*&---------------------------------------------------------------------*
*&      Form  idoc_header_segs
*&---------------------------------------------------------------------*
*       create internal table entries for header segments.
*  DESADV:
*          E1EDK07
*          E1EDKA1
*          E1EDK03
*          E1EDK08
*          E1EDKA2
*          E1EDK06
*  INVOIC:
*          E1EDK01
*          E1EDKA1(s)
*          E1EDK02
*          E1EDK03(s)
*----------------------------------------------------------------------*
FORM idoc_header_segs using value(desadv_ok).

* INVOIC
  clear i_seg_num.
  invoicdata-segnam = 'E1EDK01'.
  e1edk01-action = ie021-stat.
  if ie021-currency(2) = 'US'.
    e1edk01-curcy = 'USD'.
  else.
    e1edk01-curcy = 'JPY'.
  endif.
  invoicdata-sdata = e1edk01.
  append_idoc_rec invoicdata i.

  clear e1edka1.
  invoicdata-segnam = 'E1EDKA1'.
  e1edka1-parvw = 'RE'.
  e1edka1-partn = ie021-shipto_id.
  invoicdata-sdata = e1edka1.
  append_idoc_rec invoicdata i.

  clear e1edka1.
  invoicdata-segnam = 'E1EDKA1'.
  e1edka1-parvw = 'LF'.
  e1edka1-partn = ie021-lifnr.
  e1edka1-lifnr = ie021-shipto_id.
  invoicdata-sdata = e1edka1.
  append_idoc_rec invoicdata i.

  if not ie021-endcust_name is initial.
    clear e1edka1.
    invoicdata-segnam = 'E1EDKA1'.
    e1edka1-parvw = 'WE'.
    e1edka1-name1 = ie021-endcust_name.
    invoicdata-sdata = e1edka1.
    append_idoc_rec invoicdata i.
  endif.

  clear e1edk02.
  invoicdata-segnam = 'E1EDK02'.
  e1edk02-qualf = '009'.
  e1edk02-belnr = ie021-invoice_no.
  invoicdata-sdata = e1edk02.
  append_idoc_rec invoicdata i.

  clear e1edk03.
  invoicdata-segnam = 'E1EDK03'.
  e1edk03-iddat = '012'.
  e1edk03-datum = ie021-create_date.
  invoicdata-sdata = e1edk03.
  append_idoc_rec invoicdata i.
  invoicdata-segnam = 'E1EDK03'.
  e1edk03-iddat = '024'.
  invoicdata-sdata = e1edk03.
  append_idoc_rec invoicdata i.

  check desadv_ok = '000'.

* DESADV
  clear d_seg_num.
  desadvdata-segnam = 'E1EDK07'.
  e1edk07-action = ie021-stat.
  e1edk07-bolnr = ie021-invoice_no.
  desadvdata-sdata = e1edk07.
  append_idoc_rec desadvdata d.

  clear e1edka1.
  desadvdata-segnam = 'E1EDKA1'.
  desadvdata-sdata = e1edka1.
  append_idoc_rec desadvdata d.

  clear e1edk03.
  desadvdata-segnam = 'E1EDK03'.
  desadvdata-sdata = e1edk03.
  append_idoc_rec desadvdata d.

  clear e1edk08.
  desadvdata-segnam = 'E1EDK08'.
  e1edk08-vbeln = ie021-invoice_no.
  e1edk08-traid = ie021-ship_id.
  e1edk08-traty = ie021-ship_method.
  desadvdata-sdata = e1edk08.
  append_idoc_rec desadvdata d.

  clear e1edka2.
  desadvdata-segnam = 'E1EDKA2'.
  desadvdata-sdata = e1edka2.
  append_idoc_rec desadvdata d.

  clear e1edk06.
  desadvdata-segnam = 'E1EDK06'.
  e1edk06-iddat = '025'.  "document date
  e1edk06-datum = ie021-create_date.
  desadvdata-sdata = e1edk06.
  append_idoc_rec desadvdata d.

  if not ie021-eta is initial.
    clear e1edk06.
    desadvdata-segnam = 'E1EDK06'.
    e1edk06-iddat = '001'.  "delivery date
    e1edk06-datum = ie021-eta.
    desadvdata-sdata = e1edk06.
    append_idoc_rec desadvdata d.
  endif.

  if not ie021-etd is initial.
    clear e1edk06.
    desadvdata-segnam = 'E1EDK06'.
    e1edk06-iddat = '010'.  "ship date
    e1edk06-datum = ie021-etd.
    desadvdata-sdata = e1edk06.
    append_idoc_rec desadvdata d.
  endif.

ENDFORM.                    " idoc_header_segs

*&---------------------------------------------------------------------*
*&      Form  idoc_poheader_segs
*&---------------------------------------------------------------------*
*       create internal table entries for DESADV PO/item segments
*          E1EDP07
*----------------------------------------------------------------------*
FORM idoc_poheader_segs.

*DESADV
  clear e1edp07.
  desadvdata-segnam = 'E1EDP07'.
  e1edp07-bstnk = ie021-po_number.
  e1edp07-posex = ie021-po_lineno.
  desadvdata-sdata = e1edp07.
  append_idoc_rec desadvdata d.

  p07_ctr = p07_ctr + 1.

ENDFORM.                    " idoc_poheader_segs

*&---------------------------------------------------------------------*
*&      Form  idoc_item_segs
*&---------------------------------------------------------------------*
*       create internal table entries for PO item segments:
*          DESADV:   E1EDP09
*          INVOIC:   E1EDP01        Qtys
*                    E1EDP02        ref nos. (PO number / line)
*                    E1EDP19        part numbers
*                    E1EDP26        amounts
*                    E1EDP04        taxes
*----------------------------------------------------------------------*
FORM idoc_item_segs using value(desadv_ok).

data:  n_line_amt  type p decimals 3.

*INVOIC
  clear e1edp01.
  invoicdata-segnam = 'E1EDP01'.
  e1edp01-menee = ie021-qty_uom.
  e1edp01-menge = ie021-invoice_qty.
  e1edp01-vprei = ie021-unit_price.
  e1edp01-pmene = ie021-price_uom.
  e1edp01-peinh = ie021-price_qty.
  e1edp01-netwr = ie021-line_amount.
  invoicdata-sdata = e1edp01.
  append_idoc_rec invoicdata i.

  clear e1edp02.
  invoicdata-segnam = 'E1EDP02'.
  e1edp02-qualf = '001'.
  e1edp02-belnr = ie021-po_number.
  e1edp02-zeile = ie021-po_lineno.
  invoicdata-sdata = e1edp02.
  append_idoc_rec invoicdata i.

  clear e1edp19.
  invoicdata-segnam = 'E1EDP19'.
  e1edp19-qualf = '001'.
  e1edp19-idtnr = ie021-cust_partno.
  invoicdata-sdata = e1edp19.
  append_idoc_rec invoicdata i.

  clear e1edp19.
  invoicdata-segnam = 'E1EDP19'.
  e1edp19-qualf = '002'.
  e1edp19-idtnr = ie021-vendor_partno.
  invoicdata-sdata = e1edp19.
  append_idoc_rec invoicdata i.

  clear e1edp26.
  invoicdata-segnam = 'E1EDP26'.
  e1edp26-qualf = '003'.
  e1edp26-betrg = ie021-line_amount.
  invoicdata-sdata = e1edp26.
  append_idoc_rec invoicdata i.

* dummy tax seg
  clear e1edp04.
  invoicdata-segnam = 'E1EDP04'.
  e1edp04-msatz = '0.00'.
  invoicdata-sdata = e1edp04.
  append_idoc_rec invoicdata i.

  n_line_amt = ie021-line_amount.
  invoice_total = invoice_total + n_line_amt.

  check desadv_ok = '000'.

*DESADV
  clear e1edp09.
  desadvdata-segnam = 'E1EDP09'.
  e1edp09-vbeln = ie021-slip_number.
  e1edp09-matnr = ie021-vendor_partno.
  e1edp09-vrkme = ie021-qty_uom.
  e1edp09-lfimg = ie021-invoice_qty.
  desadvdata-sdata = e1edp09.
  append_idoc_rec desadvdata d.

ENDFORM.                    " idoc_item_segs


***********************************************************************
*&    Form  post_idocs
*&---------------------------------------------------------------------*
*     create database IDocs from the idocdata tables and clear tables.
*----------------------------------------------------------------------*
FORM post_idocs using value(desadv_ok).

*INVOIC
  clear e1eds01.
  invoicdata-segnam = 'E1EDS01'.
  e1eds01-sumid = '010'.
  e1eds01-summe = invoice_total.
  e1eds01-waerq = ie021-currency.
  shift e1eds01-summe left deleting leading space.
  invoicdata-sdata = e1eds01.
  append_idoc_rec invoicdata i.

  CALL FUNCTION 'INBOUND_IDOC_PROCESS'
    TABLES
      IDOC_CONTROL       =  iedidc
      IDOC_DATA          =  invoicdata.

  commit work.

*DESADV
  if desadv_ok = '000'.
    clear e1eds02.
    desadvdata-segnam = 'E1EDS02'.
    e1eds02-sumid = '001'.
    e1eds02-summe = p07_ctr.
    shift e1eds02-summe left deleting leading space.
    desadvdata-sdata = e1eds02.
    append_idoc_rec desadvdata d.

    CALL FUNCTION 'INBOUND_IDOC_PROCESS'
      TABLES
        IDOC_CONTROL       =  dedidc
        IDOC_DATA          =  desadvdata.

    commit work.
  endif.

  refresh: desadvdata,
           invoicdata.
  clear:
    desadvdata,
    invoicdata,
    p07_ctr,
    invoice_total,
    save_stat,
    save_po,
    save_line,
    save_invoice.

ENDFORM.                    " post_idocs


*&---------------------------------------------------------------------*
*&      Form  init_desadv
*&---------------------------------------------------------------------*
*       add a DESDAV control record and initialize fields
*----------------------------------------------------------------------*
FORM init_desadv.

clear dedidc. refresh dedidc.

* initialize control record:
move:  '2'        to  dedidc-direct,
      'DESADV01'  to  dedidc-doctyp,
      'DESADV'    to  dedidc-mestyp,
      'F'         to  dedidc-std,
      'E021'      to  dedidc-stdmes,
      'LS'        to  dedidc-sndprt,
      'TY_VENDORS' to dedidc-sndprn,
      sy-datlo    to  dedidc-credat,
      sy-timlo    to  dedidc-cretim.

append dedidc.

ENDFORM.              " init_desadv

*&---------------------------------------------------------------------*
*&      Form  init_invoic
*&---------------------------------------------------------------------*
*       add a INVOIC control record and initialize fields
*----------------------------------------------------------------------*
FORM init_invoic.

clear iedidc. refresh iedidc.

* initialize control record:
move:  '2'        to  iedidc-direct,
      'INVOIC01'  to  iedidc-doctyp,
      'INVOIC'    to  iedidc-mestyp,
      'MM'        to  iedidc-mescod,
      'F'         to  iedidc-std,
      'E021'      to  iedidc-stdmes,
      'LS'        to  iedidc-sndprt,
      'TY_VENDORS' to iedidc-sndprn,
      sy-datlo    to  iedidc-credat,
      sy-timlo    to  iedidc-cretim.

append iedidc.

ENDFORM.              " init_invoic
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Interfaces | Интерфейсы All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.