Posting FI documents to FB01 transaction

Question

Hi ,
My program collects data from database tables and sends the final data to a file in SAP directory.
Now my requirement is to post this data into FB01 transaction.
When the program runs, the following entry is posted
       Dr   210001023        
       Cr   229001017.
SO which FM do I need to use to post these two GL accounts?Is there any other method to do so.
My file contains Vendor info and check details like no, date,amount...
I appreciate quick response.
Thanks in Advance.
Swathi.

Answer 1

Hi Rhea,
Have a look at my program below. Its has no customer no's.but  dr and cr accounts.
*---SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_zbukr LIKE payr-zbukr OBLIGATORY,      " Paying Company
            p_hbkid LIKE payr-hbkid OBLIGATORY,      " House Bank
            p_hktid LIKE payr-hktid OBLIGATORY,      " Account ID
            p_file LIKE rlgrap-filename OBLIGATORY.  " Output file name
SELECT-OPTIONS: s_prundt FOR sy-datum OBLIGATORY NO-EXTENSION,
                                                     " Previuos run date
                s_crundt FOR sy-datum NO-EXTENSION.
" Current run date
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS      p_chkvd AS CHECKBOX DEFAULT 'X'.     " Update TVARV
SELECTION-SCREEN COMMENT 04(79) text-014.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(64) text-013 FOR FIELD p_mon.
PARAMETERS  p_mon(2) TYPE n DEFAULT '24'.   " Months considered
" for abandoned period of uncashed checks
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END   OF BLOCK b1.
*---INITIALIZATION
INITIALIZATION.
Initialize Unix File Path
  PERFORM initialize_filepath.
*---AT SELECTION-SCREEN
AT SELECTION-SCREEN.
Selection Screen Validations
  PERFORM validations.
Populate current extraction date
  PERFORM get_current_date.
*---START-OF-SELECTION
START-OF-SELECTION.
Get data from PAYR
  PERFORM get_payr.
Get data from VF_KRED
  PERFORM ger_vf_kred.
Process data
  PERFORM process_data.
*---END-OF-SELECTION
END-OF-SELECTION.
  IF f_data IS INITIAL.
Transfer data to file
    PERFORM transfer_data.
Write report
    PERFORM write_report.
  ENDIF.
*---PAGE HEADING
TOP-OF-PAGE.
Write the Page Heading
  PERFORM page_heading.
*&      Form  Initialize_filepath
      Initialize Unix File Path
FORM initialize_filepath.
Output File
  CONCATENATE '/int/'
              sy-sysid
              sy-mandt
              '/out/'
              INTO p_file.
ENDFORM.                    " Initialize_filepath
*&      Form  Validations
      Selection Screen Validations
FORM validations.
Local variable
  DATA: l_text(5).  " variable to hold 5 char data
Validate paying company
  SELECT SINGLE bukrs INTO l_text FROM t001 WHERE bukrs = p_zbukr.
  IF sy-subrc <> 0.
    MESSAGE e003 WITH 'Invalid Paying Company'(002) p_zbukr.
  ENDIF.
Validate House bank
  SELECT SINGLE hbkid INTO l_text FROM t012 WHERE bukrs = p_zbukr AND
                                                  hbkid = p_hbkid.
  IF sy-subrc <> 0.
    MESSAGE e003 WITH 'Invalid Hoouse Bank'(003) p_hbkid.
  ENDIF.
Validate Account Id
  SELECT SINGLE hktid INTO l_text FROM t012k WHERE bukrs = p_zbukr AND
                                                   hbkid = p_hbkid AND
                                                   hktid = p_hktid.
  IF sy-subrc <> 0.
    MESSAGE e003 WITH 'Invalid Account ID'(004) p_hktid.
  ENDIF.
Validate File name
  PERFORM validate_filename.
ENDFORM.                    " Validations
*&      Form  validate_filename
      Validate File name
FORM validate_filename.
  DATA : l_len TYPE i.
  l_len = strlen( p_file ).
  IF p_file CA space.
    IF sy-fdpos < l_len.
      MESSAGE e003 WITH
        'File name should not contain spaces'(005).
    ENDIF.
  ENDIF.
  IF p_file CA '\'. "File name should not contain '\'.
    MESSAGE e003 WITH
      'File name should not contain \'(006).
  ENDIF.
  IF p_file0(1) = '/' AND p_file1(127) = space.
    MESSAGE e003 WITH
      'File name should not contain only /'(007).
  ENDIF.
ENDFORM.                    " validate_filename
*&      Form  get_payr
      Get data from PAYR
FORM get_payr.
  SELECT zbukr
         hbkid
         hktid
         checf
         laufd
         lifnr
         vblnr
         zaldt
         waers
         rwbtr FROM payr INTO TABLE t_payr
         BYPASSING BUFFER
         WHERE zbukr = p_zbukr AND
               hbkid = p_hbkid AND
               hktid = p_hktid AND
               zaldt IN s_crundt AND
               bancd = '00000000' AND
               voidr = '00'.
  IF sy-subrc = 0.
    SORT t_payr.
Get the sending company code from REGUH
    SELECT laufd
           zbukr
           lifnr
           vblnr
           absbu FROM reguh INTO TABLE t_reguh
           BYPASSING BUFFER
           FOR ALL ENTRIES IN t_payr
           WHERE laufd = t_payr-laufd AND
                 xvorl = space AND
                 zbukr = t_payr-zbukr AND
                 lifnr = t_payr-lifnr AND
                 vblnr = t_payr-vblnr.
    IF sy-subrc = 0.
      SORT t_reguh.
    ENDIF.
  ELSE.
    MESSAGE i003 WITH 'No data exists for the given selection'(011).
    f_data = c_f.
    STOP.
  ENDIF.
ENDFORM.                    " get_payr
*&      Form  ger_VF_KRED
      Get data from VF_KRED
FORM ger_vf_kred.
  IF NOT t_reguh[] IS INITIAL.
    SELECT lifnr
           bukrs
           name1
           ort01
           ort02
           pstlz
           regio
           stcd1
           stras
           qsrec
           adrnr
           FROM vf_kred INTO TABLE t_lfa1
           BYPASSING BUFFER
           FOR ALL ENTRIES IN t_reguh
           WHERE lifnr = t_reguh-lifnr AND
                 bukrs = t_reguh-absbu.
    IF sy-subrc = 0.
      SORT t_lfa1.
    ELSE.
      MESSAGE i003 WITH 'No vendor data exists'(012).
    ENDIF.
  ENDIF.
ENDFORM.                    " ger_VF_KRED
*&      Form  process_data
      Process data
FORM process_data.
  LOOP AT t_payr.
Get the sending company code from T_REGUH
    READ TABLE t_reguh WITH KEY laufd = t_payr-laufd
                                zbukr = t_payr-zbukr
                                lifnr = t_payr-lifnr
                                vblnr = t_payr-vblnr
                                BINARY SEARCH TRANSPORTING absbu.
    IF sy-subrc <> 0.
      CLEAR t_reguh-absbu.
    ENDIF.
    clear t_lfa1.
Get the vendor data from T_LFA1
    READ TABLE t_lfa1 WITH KEY lifnr = t_payr-lifnr
                               bukrs = t_reguh-absbu
                               BINARY SEARCH.
    IF sy-subrc <> 0.
      CLEAR t_lfa1.
      SELECT SINGLE name1 stcd1 adrnr INTO
                   (t_lfa1-name1, t_lfa1-stcd1, t_lfa1-adrnr)
                   FROM lfa1 WHERE lifnr = t_payr-lifnr.
      IF sy-subrc <> 0.
        CLEAR t_lfa1.
      ENDIF.
    ENDIF.
    clear t_address.
    clear : t_lfa1-ort01,
            t_lfa1-ort02,
            t_lfa1-pstlz,
            t_lfa1-regio,
            t_lfa1-stras.
Vendor Address
  select single city1
                str_suppl1
                post_code1
                region
                street
           from adrc into t_address
           where addrnumber = t_lfa1-adrnr.
  if sy-subrc = 0.
    move-corresponding t_address to t_lfa1.
  endif.
Vendor Type
    CASE t_lfa1-qsrec.
      WHEN c_01.
        t_file-vend_type = c_s.
      WHEN c_07 OR c_20.
        t_file-vend_type = space.
Clear Vendot TIN
        CLEAR t_lfa1-stcd1.
      WHEN OTHERS.
        t_file-vend_type = c_f.
    ENDCASE.
Vendor TIN
    t_file-vend_tin = t_lfa1-stcd1.
Vendor Name
    t_file-vend_name = t_lfa1-name1.
Mail Address1
    t_file-addr1 = t_lfa1-stras.
Mail Address2
    t_file-addr2 = t_lfa1-ort02.
City
    t_file-city  = t_lfa1-ort01.
State
    t_file-state = t_lfa1-regio.
Zip Code
    t_file-zip   = t_lfa1-pstlz.
Check ID
    t_file-check_id = c_ms08.
Check Number
    t_file-check_no = t_payr-checf.
Application Description
    t_file-appl_desc = c_app_desc.
Check Date
    t_file-check_dt = t_payr-zaldt.
*TPR 1944 : Begin   "Vinay
Check Amount sign
   IF T_PAYR-RWBTR GE 0.
     T_FILE-CHECK_SIGN = C_POS.
   ELSE.
     T_FILE-CHECK_SIGN = C_NEG.
   ENDIF.
    IF t_payr-rwbtr GE 0.
      t_file-check_sign = c_neg.
    ELSE.
      t_file-check_sign = c_pos.
    ENDIF.
*TPR 1944: End "Vinay
Check Amount
    UNPACK t_payr-rwbtr TO t_file-check_amt1.
    t_file-check_amt2 = t_file-check_amt1.
    t_file-amt = t_payr-rwbtr.
    t_file-vend_no = t_payr-lifnr.
    t_file-waers = t_payr-waers.
    APPEND t_file.
    CLEAR t_file.
  ENDLOOP.
ENDFORM.                    " process_data
*&      Form  transfer_data
      Transfer data to file
FORM transfer_data.
  DATA : l_pgm_id LIKE sy-repid,
         l_file_mode LIKE pppch-acces VALUE 'A'.
  l_pgm_id = sy-repid.
Open data file
  CALL FUNCTION 'ZZ_OPEN_OUTBOUND_INTERFACE'
    CHANGING
      file_name                     = p_file
      pgm_id                        = l_pgm_id
      mode                          = l_file_mode
  FILE2                         =
  FILE3                         =
  FILE4                         =
  FILE5                         =
  FILE6                         =
  FILE7                         =
  FILE8                         =
  FILE9                         =
  FILE10                        =
  ABEND_ON_ERROR_IF_SPACE       =
   EXCEPTIONS
     error                         = 1
     OTHERS                        = 2
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
Transfer data to the file
  LOOP AT t_file.
    TRANSFER t_file+0(1221) TO p_file.
    v_count = v_count + 1.
  ENDLOOP.
Close data file
  CALL FUNCTION 'Z_CLOSE_INTERFACE_FILE'
       EXPORTING
            pgm_id = l_pgm_id.
ENDFORM.                    " transfer_data
*&      Form  get_current_date
      Populate current extraction date
FORM get_current_date.
  DATA: l_date LIKE sy-datum,
       l_mon(2) TYPE n,
       l_months TYPE i.
  l_mon = sy-datum+4(2).
  l_mon = l_mon - 1.
  l_date = sy-datum.
  l_date+4(2) = l_mon.
  CALL FUNCTION 'SG_PS_GET_LAST_DAY_OF_MONTH'
       EXPORTING
            day_in            = l_date
       IMPORTING
            last_day_of_month = l_date
       EXCEPTIONS
            day_in_not_valid  = 1
            OTHERS            = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
Calculate date with no.of months considered for abandoned period of
uncashed checks
  l_months = p_mon * -1.
  CALL FUNCTION 'MONTH_PLUS_DETERMINE'
       EXPORTING
            months  = l_months
            olddate = l_date
       IMPORTING
            newdate = s_crundt-high.
Begin of D02K921571
  CALL FUNCTION 'SG_PS_GET_LAST_DAY_OF_MONTH'
       EXPORTING
            day_in            = s_crundt-high
       IMPORTING
            last_day_of_month = s_crundt-high
       EXCEPTIONS
            day_in_not_valid  = 1
            OTHERS            = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
End of D02K921571
  REFRESH s_crundt.
  s_crundt-low = s_prundt-high + 1.
  s_crundt-sign = 'I'.
  s_crundt-option = 'BT'.
  APPEND s_crundt.
  CLEAR s_crundt.
ENDFORM.                    " get_current_date
*&      Form  write_report
      Write Report
FORM write_report.
Selection Report
  PERFORM select_report.
Audit Report
  PERFORM audit_report.
Detail Report
  PERFORM detail_report.
ENDFORM.                    " write_report
*&      Form  Page_heading
      page heading
FORM page_heading.
  FORMAT COLOR COL_HEADING INTENSIFIED ON.
  ULINE.
  WRITE: /1 sy-vline,
          2  sy-repid,
          65 'ABBOTT LABORATORIES'(015) CENTERED,
            146 sy-datum,
            156 sy-vline.
  WRITE: /1 sy-vline,
          2   sy-sysid,
          5  '/',
          6  sy-mandt,
          59 'SAP to Tracker Outbound Interface'(016) CENTERED,
          148 sy-uzeit,
          156 sy-vline.
  WRITE: /1 sy-vline,
          2 sy-uname,
          (120) v_title CENTERED,
          145 'Page:'(017), sy-pagno,
          156 sy-vline.
  ULINE.
  IF v_title = 'Detail Report'(030).
    FORMAT COLOR COL_HEADING INTENSIFIED OFF.
    WRITE: /1 sy-vline,
            2 'Paying Company'(031),
            17 sy-vline,
            18 'House Bank'(032),
            29 sy-vline,
            30 'Account ID'(033),
            41 sy-vline,
            42 'Current Extract Range'(034),
            156 sy-vline.
    FORMAT COLOR OFF.
    WRITE:   /1 sy-vline,
             2 p_zbukr CENTERED,
             17 sy-vline,
             18 p_hbkid CENTERED,
             29 sy-vline,
             30 p_hktid CENTERED,
             41 sy-vline.
    LOOP AT s_crundt.
      WRITE: 44 s_crundt-low,
             58 'to'(035),
             62 s_crundt-high.
    ENDLOOP.
    WRITE: 156 sy-vline.
    ULINE.
    FORMAT COLOR COL_HEADING INTENSIFIED OFF.
    WRITE: /1 sy-vline,
            2 'Vendor Type'(036),
            14 sy-vline,
            15 'Vendor TIN'(037),
            26 sy-vline,
            27 'Vendor No.'(038),
            38 sy-vline,
            39 'Vendor Name'(039),
            82 sy-vline,
            83 'Vendor State'(040),
            96 sy-vline,
            97 'Check Number'(041),
            118 sy-vline,
            119 'Check Issue Date'(042),
            136 sy-vline,
            137 'Check Amount'(043),
            156 sy-vline.
    ULINE.
  ENDIF.
ENDFORM.                    " Page_heading
*&      Form  select_report
      selection-report
FORM select_report.
  NEW-PAGE.
  v_title = 'Selection Report'(028).
  FORMAT COLOR COL_NORMAL INTENSIFIED ON.
  WRITE: /1 sy-vline,
          2 'Paying company code      :'(018),
          28 p_zbukr,
         156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
  WRITE: /1 sy-vline,
          2 'House bank               :'(019),
          28 p_hbkid,
         156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED ON.
  WRITE:/1 sy-vline,
         2 'Account ID               :'(020),
         28 p_hktid,
        156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
  WRITE:/1 sy-vline,
         2 'Output file name         :'(021),
         28 p_file,
        156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED ON.
  WRITE: /1 sy-vline,
          2 'Previous extraction date :'(022).
  LOOP AT s_prundt.
    WRITE: 28 s_prundt-low,
           42 'to'(035),
           46 s_prundt-high.
  ENDLOOP.
  WRITE: 156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
  WRITE: /1 sy-vline,
   2 'Current extraction date  :'(023).
  LOOP AT s_crundt.
    WRITE: 28 s_crundt-low,
           42 'to'(035),
           46 s_crundt-high.
  ENDLOOP.
  WRITE: 156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED ON.
  WRITE: /1 sy-vline,
   2 'Update TVARV             :'(024),
   28 p_chkvd,
  156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
  WRITE:   /1 sy-vline,
     2 text-025,
     67 p_mon,
      156 sy-vline.
  ULINE.
ENDFORM.                    " select_report
*&      Form  audit_report
      Audit Report
FORM audit_report.
  NEW-PAGE.
  v_title = 'Audit Report'(029).
  FORMAT COLOR COL_NORMAL INTENSIFIED ON.
  WRITE: /1 sy-vline,
         2 'No. of records extracted          :'(026),
         36 v_count,
         156 sy-vline.
  FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
  WRITE: /1 sy-vline,
         2 'No. of records transferred to file:'(027),
         36 v_count,
         156 sy-vline.
  ULINE.
ENDFORM.                    " audit_report
*&      Form  detail_report
      Detail Report
FORM detail_report.
  DATA : l_inten TYPE i,
         l_date LIKE sy-datum.
  NEW-PAGE.
  v_title = 'Detail Report'(030).
  LOOP AT t_file.
    l_inten = sy-tabix MOD 2.  " for alternate colors in report
    IF l_inten = 0.
      FORMAT COLOR COL_NORMAL INTENSIFIED ON.
    ELSE.
      FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
    ENDIF.
    l_date = t_file-check_dt.
    WRITE: /1 sy-vline,
            2 t_file-vend_type,
            14 sy-vline,
            15 t_file-vend_tin,
            26 sy-vline,
            27 t_file-vend_no,
            38 sy-vline,
            39 t_file-vend_name,
            82 sy-vline,
            83 t_file-state,
            96 sy-vline,
            97 t_file-check_no,
            118 sy-vline,
            119 l_date,
            136 sy-vline,
            137 t_file-amt CURRENCY t_file-waers,
            156 sy-vline.
  ENDLOOP.
  ULINE.
ENDFORM.                    " detail_report