Vendor Code against Vendor Name

Dear All,
Is there any standar report or any other way by using we can find Vendor Code against Vendor description,,
Pl note we are having 960 vendor descriptions and we want to find vendor code against each..
We want to avoid indivisual search for vendor
Pl help

hi,
You can't find them all at once...
but in the other way you can make a search using the single table...
Do execute the table LFA1...w/o putting any entry...
And then inside the table you'll find the description with the codes to search..
Regards
Priyanka.P

Similar Messages

Vendor code and vendor name in ME5A

Dear Experts,
In T.code ME5A Vendor and name of Vendor fields display in output but it is showing blank whenever po is created how can I found that which PR,s Po make vendor code and name display.
RC

Hi,
Using T-code ME5A report vendor,name of vendor if required,
you will create using T-code ME01-Maintain source list input data's are Material,Plant,Vendor,pur.org.,valid from,valid to and fixed source field tick, to be given and SAVE.
After that you will see ME5A report. vendor,name of vendor data's are display.
Hope, it is useful for you and resolve the issue.
Regards,
K.Rajendran.

How to knock off Vendor downpayment against Vendor Invoice

Hi,
I have made a Vendor downpayment from F-48 & my entries are
Vendor 7000 Dr
Bank      7000 Cr
I Posted a Invoice for service tax from FB60 with entries
Vendor                            7000     Cr
Building construction       6410.7 Dr
A/P Service tax interim    641.07 Dr
A/P Service Tax ECS      12.82    Dr
A/P Service Tax SHEC    6.41     Dr
TDS                                 71        Cr
In FBL1N the invoice is showing as Open Item.
I want to knock off the Downpayment against Invoice. What is the procedure?

Hi,
Please use F-44 and make sure you have to mention special GL indicator under open item selection tab.
Then only the line item will be diplayed.
Rgds
Murali. N

Payment Wizard - step 6of 9 - recommendation report PLD has no vendor code

Dear all,
Our customer is on SAP2007A SP00 PL41, US localization, SQL2005, no 3rd party add-on
They are using Payment Wizard. On create new >> step 6 of 9, recommendation report, when they tried to print the report, we cannot see vendor code and vendor name. They are blank. We are using the system PLD.
If we just go through the exsiting recommandation, we can have vendor code and vendor name on the report. This only happened when we create new payment.
I can reproduce this in SAP2007 SP01 PL08, CA localization. Is it a bug or a system behavior? Thanks.
Regards,
Yuka

Hi,
Please check the issue in the Demo database on the Latest patch.
I think the customer is doing the Print Preview when the Payment wizard is being run.
Check for the saved recommended run , whether you can get the Print/print preview or not.
Kind Regards,
Jitin
SAP Business One Forum Team

Multple Services Vendors to have Single Vendor Code and also Multiple TaxCd

Hey SAP Gurus,
Please help me with my problem.
Background:
1. Currently on SAP 4.7 there are close to 10,000 Vendors. Many of these Vendors are acting as more than ONE Goods / Services Provider.
2. Few Services rendered by Vendors are subject to Withholding Tax (Tax Deduction at Source).
3. For the Withholding Tax we are using Std SAP provided functionalities and hence for each Service, attracting a separate TDS Provision, we have set up a dedicated Vendor Code. All Vendor codes are linked to one Payee so that the Automatic Payment Run issues the Cheques to ONE Vendor code only.
4. The Vendors masters creation is an ongoing activity. So, say for ex, in 2008 one Vendor was providing X service, started providing Y Service in 2009 leading to creation of dedicated Vendor code. The same Vendor is now providing 3rd service attracting a different provision of With. tax - Hence in 2010 for the "same" Vendor / Party, a 3rd Vendor Master Record with different Vendor Code (system generated internal numbering) is created.
Problem:
A. Our client wants to have ONE single Vendor code with MULTIPLE Roles assignment. I am not very sure if we can have it done in SAP by creating some ROLES.
B. The MM module is not live here. This means, the PO related functionalities (if possible) cannot be used.
C. There are multiple systems from where the Vendor Liability Line item is generated and it comes to SAP for GL Posting and Final payout (Thru Cheque or Electronic Fund Transfer etc.).
D. In our Indian Scenario, each Section or Provision, leads to set up of 4 TDS Tax Codes: Basic, Surcharge, Cess 1 and Cess 2.
Due to this requirement, we have configured the said respective 4 Tax Codes per section.
E. If a Vendor is providing 4 different services attracting 4 different Sections of TDS, this will lead to having 4 X 4 = 16 Tax Codes for each such Vendor.
F. The problem would become more complex on receiving the Transactional Data File (thru Interface) from various Applications generating the Liability Line Item for Vendor.
Revisiting the Requirement:
Have One Vendor Code per Vendor or Party.
Your help would be highly appreciated.
Many Thanks
SAP Consultant

Hi
To overcome this problem you have two options.
1. you can create only one vendor code.For the withholding tax purpose you can have multiple tax code options.At the time of giving input you can select withholding tax code from the drop down list.why dont you use that option?
2. Here you can use the Head office concept.
first you create vendor(ex: xyz).
after that you can create one more vendor code(for same vendor for different service) and assign first vendor(main vendor) in the head office field in the account information tab under recon account field.
what ever the posting are doing for the different services automatically routed to main vendor(Ex: xyz)

The vendor code is not coming against some Assignment line items with the

Hi All,
While executing t.code FBL3N,the vendor code is not coming against some Assignment line items with the GL A/C4607000, some line items it is coming.
The GL A/c 4607000 is GR/IR clearing a/c.
Please let us know why this situation is happeing at the time of FBL3N.
Thanks
Ram

HI,
By activating the special fields you can the vendor number, but use the new reprot called "FAGLL03 - Display/Change Items (New) ".
First go to SPRO> Financial Accounting (New)> General Ledger Accounting (New)--> Master Data > G/L Accounts>Line Items --> Define Special Fields for Line Item Display
Click on New Entries -
Table - BSEG - Field - LIFNR
Save. Now execute the report - FAGLL03 - Display/Change Items (New)
Give the gl account number and execute.
After getting the line items list from menu select --Settings --> Special Fields --> Click on New Entries --> Enter Table BSEG, Field Name LIFNR.
After this come back and execute again. It will give you the vendor number.
Thanks & Regards,
Shashi Kanth.

Vendor code with the same name - Check required

Hi experts,
We are using three account groups for creating vendor thru tcode XK01. A/C group 1000, 2000, 3000 & two company codes SCL , SGL.
We want to built some error msg control that if some body tries to create vendor with the same name again with in the same company code, purchase organisation, account group, system should throw a error message.
Currently warning msg is appearing in our system which is only based on the duplicate name but not considering porg, co. code, a/c group.
Please suggest. Suggestions / Solutions will be highly rewarded.
Regards,
( Rajneesh Gulati )

If You are Using Internal Number Assignments for Vendor Master then Set Messages F2144 - Vendor found with same address & F2272 - Vendor's with same VAT Reg numbers and your Problem will solve.
Else Try User Exit EXIT_SAPMF02K_001

Storing ItemCode,Vendor Name,Vendor Code in Database

Hi All,
i have created UDO in user defined form, in the form all the fields are stored in database except ItemCode,Vendor Name,Vendor Code. i want to know how to store these values. please help me, it's very urjent.
Jayanth

Hi Jayanth,
Maybe I need to enhance my English skills , but you wrote:
"...in the form all the fields are stored in database <b>except</b> ItemCode,Vendor Name,Vendor Code"
...ok in the subject you wrote "Storing ItemCode,Vendor Name,Vendor Code in Database" - so maybe this is a bit self-contradictory?
Anyway:
Can you please explain a bit more detailed what you want to do?
How are these values connected - or not - to your UDO?
Frank

Table name from which to extract bank name and swift code by key field as vendor code

Please help with the table name from which we can extract the bank name and swift code of vendors with the key input as vendor numbers

Hello Subhadra, I'm sorry, I should've said join of LFBK and BNKA. The fields for the join will be the bank country(BANKS) and bank key (BANKL).
If you have not found a docu on SQVI already, you can refer to this:
How to create Report by using SQVI
This is how your join should look in BASIS mode, your selection parameter should be vendor code LIFNR; output fields with be bank name BANKA and swift code SWIFT.

IView to search vendor code based on Vendor Name

Hi Guys
We have developed an Web Template in BW 3.5 to browse quality score for our suppliers. The selection screen is expecting to have a Vendor Code Number being input. However, our management is not always aware of the code. The dimension used in 0VENDOR. Did somebody create an application (BSP, JSP, ...)to we could put in a EP6 iView that would allow me to enter a partial segment of a vendor name , it would go either in R3 or BW, and it would return all the vendor code(s) containing the segment and then I would be able to choose the vendor code i want to extract data from... Basically something similar than performing a search from MK03
Thanks!
Eric L.

Thanks for the reply.
My manager posted many of his articles through his meta link ID but kept my name as the Author.
So I want to go through those metalink notes. Since my manager has left the current organization I am unable to reach him
Please guide me

MD04 Including Vendor code & vendor name Permanently

Hi All,
In MD04, there is pushbutton by which one can display Vendor code & vendor name for the receipt elements. But it has to be done every time when MD04 is accessed.
Is there any way so that the vendor code and the vendor name in the list will apear by default when MD04 is accessed?
Regards,
MHP

In MD04, if for a given material there is no supply proposal with vendor related info, then even if you click that, system prompts a info msg. & does not display it. The display is done only when there is some info. Hence no option to keep it activated by default.
But if you want to have that info, you might add a column to your display using badi - MD_ADD_COL_EZPS.
Inform your abaper the info is to be pulled from EKKO table for the vendor details & populate to your custom column.

Need to capture Vendor code & Service Order no during Goods Issue

We have a typical req of tracking Goods issued to contractors to whom Service Orders ( Labour jobs ) is awarded. Even though contract is pure labour type , we intend to track materials issued against work orders.Std transaction of Goods issue to Purchase order can not be done here as materials are already lying in stocks but when issue to Contractor who is working in our premises , we need to track Goods issue against Work Order no in SAP as well as Vendor code , If these things get captured , we will customise the report.
Umesh Bagul

Hi,
You can make Goods issue from MIGO with Movement Type-261.
Capture the details as follows
MIGO -> Goods Issue > Other > 261
Maintain Work Order Number in Material Slip
And the maintain Vendor code in Partner Details ,you can find this tab under Item detail field.Field name -Vendor Code
THen there is no need to make seprate Z report.
You can find all these details through MB51.
Regards,
Sandesh Sawant

Clear Down payment against Vendor Invoice through Automatic Payment Program

Hi
We have to adjust vendor invoice against down payment (Advance) made through automatic payment program (F110)
Please guide us is there any configuration require to consider Down payment transactions during F110 to clear against Vendor Invoice
Ex :1. Advance payment made through special GL indicator 50K.
2. Invoice document 75K posted in vendor.
3. Now we have to clear down payment made (50K) against 75K through F110.
Regards
Sreenivasulu

Hi srinivasulu,
First u create down payment request through F-47 and define the spl gl indicator for down payment and assign the gl account for down payment gl code..
Regards,
Nivas

I need a code for VENDOR AGEING REPORT

plz help me i am in urgent need of source code of
VENDOR AGEING REPORT.
if any body help me regarding this above report i will be
great ful to him/her.
bcoz deadline is today.
i need ur urgent help, i treid very much but i failed,
so hope help from anybody there.

REPORT zvender_os NO STANDARD PAGE HEADING
                              LINE-SIZE 132
                              LINE-COUNT 65.
Tables
TABLES: bsik,          "open items (A/C: Secondary Index for Customers)
        lfa1,          "customer master
        lfb1,
        rf140,        "temp stru (Work Fields for Corrence(SAPF140*))
        bsak,          "cleared items (A/c Secnd Index for Cust(Clrms))
        skat.
constants and variables
TYPE-POOLS: slis.
DATA: fieldcat             TYPE slis_t_fieldcat_alv,
      fieldcat1             TYPE slis_t_fieldcat_alv,
      fieldcat_ln          TYPE slis_fieldcat_alv,
      layout_in            TYPE slis_layout_alv,
      layout_in1           TYPE slis_layout_alv,
      sortcat              TYPE slis_t_sortinfo_alv,
      sortcat1              TYPE slis_t_sortinfo_alv,
      sortcat_ln           LIKE LINE OF sortcat,
      eventcat1             TYPE slis_t_event,
      eventcat             TYPE slis_t_event,
      eventcat_ln          LIKE LINE OF eventcat,
      col_pos              TYPE i.
DATA: targ_month(2)         TYPE n,                        "0001
       targ_year(4)          TYPE n,                        "0001
       targ_mth_abs          TYPE p,                        "0001
       doc_month(2)          TYPE n,                        "0001
       doc_year(4)           TYPE n,                        "0001
       doc_mth_abs           TYPE p,                        "0001
       mth_result            TYPE p,                        "0001
       doc_days              TYPE p,
       targ_days             TYPE p,
       addl_days             TYPE p,
       ext_days              TYPE p,
       v_days(3)             TYPE c,
       v_kkber               LIKE knkk-kkber.
DATA:
      BEGIN OF inrec OCCURS 1000,                           "0001
        lifnr    LIKE bsik-lifnr,
        belnr    LIKE bsik-belnr,
        gjahr    LIKE bsik-gjahr,
        bldat    LIKE bsik-bldat,
        xblnr    LIKE bsik-xblnr,
        blart    LIKE bsik-blart,
        sgtxt    LIKE bsik-sgtxt,
        shkzg    LIKE bsik-shkzg,
        dmbtr    LIKE bsik-dmbtr,
        zfbdt    LIKE bsik-zfbdt,
        zbd1t    LIKE bsik-zbd1t,
        zbd2t    LIKE bsik-zbd2t,
        zbd3t    LIKE bsik-zbd3t,
        zuonr    LIKE bsik-zuonr,
      END OF inrec.
DATA:
      BEGIN OF inrect OCCURS 1000,                          "0001
        lifnr    LIKE bsik-lifnr,
        belnr    LIKE bsik-belnr,
        gjahr    LIKE bsik-gjahr,
        bldat    LIKE bsik-bldat,
        xblnr    LIKE bsik-xblnr,
        blart    LIKE bsik-blart,
        sgtxt    LIKE bsik-sgtxt,
        shkzg    LIKE bsik-shkzg,
        dmbtr    LIKE bsik-dmbtr,
        zfbdt    LIKE bsik-zfbdt,
        zbd1t    LIKE bsik-zbd1t,
        zbd2t    LIKE bsik-zbd2t,
        zbd3t    LIKE bsik-zbd3t,
        zuonr    LIKE bsik-zuonr,
      END OF inrect,
      BEGIN OF t_item OCCURS 1000,                          " 0001
        lifnr LIKE bsik-lifnr,
        belnr LIKE bsik-belnr,
        gjahr LIKE bsik-gjahr,
        bldat LIKE bsik-bldat,
        xblnr LIKE bsik-xblnr,
        blart LIKE bsik-blart,
        sgtxt LIKE bsik-sgtxt,
        zfbdt LIKE bsik-zfbdt,
        dmbtr LIKE bsik-dmbtr,
        days(3) TYPE c,
        zuonr    LIKE bsik-zuonr,
      END OF t_item,
      t_line LIKE t_item OCCURS 1000 WITH HEADER LINE,      " 0001
      BEGIN OF itab OCCURS 1000,
        lifnr    LIKE lfa1-lifnr,
        total    LIKE bsik-dmbtr,
        zfuture LIKE bsik-dmbtr,
        zcurrent LIKE bsik-dmbtr,
        crbal   LIKE bsik-dmbtr,
        30days   LIKE bsik-dmbtr,
        60days   LIKE bsik-dmbtr,
        90days   LIKE bsik-dmbtr,
        99days   LIKE bsik-dmbtr,
        120days LIKE bsik-dmbtr,
        180days LIKE bsik-dmbtr,
        365days LIKE bsik-dmbtr,
        bzirk    LIKE knvv-bzirk,
        vkbur    LIKE knvv-vkbur,
        vwerk    LIKE knvv-vwerk,
        vkgrp    LIKE knvv-vkgrp,
        klimk    LIKE knkk-klimk,
        cashd    LIKE knkk-cashd,
        grupp    LIKE knkk-grupp,
        erdat    LIKE lfa1-erdat,
        name1    LIKE lfa1-name1,
        name2    LIKE lfa1-name2,
        stras    LIKE lfa1-stras,
        ort01    LIKE lfa1-ort01,
        telf1    LIKE lfa1-telf1,
        psort(10),
        sperr    LIKE lfa1-sperr,
        totsal   LIKE bsik-dmbtr,
        txt50    LIKE skat-txt50,
        gsber    LIKE bsik-gsber,
      END OF itab.
DATA: sel_tab     TYPE TABLE OF rsparams WITH HEADER LINE,
      p_debit(1) TYPE c,
      p_credit(1) TYPE c.
DATA: t_variant LIKE disvariant OCCURS 0 WITH HEADER LINE.
parameters and select-options
SELECTION-SCREEN BEGIN OF BLOCK blck0 WITH FRAME TITLE text-002.
PARAMETERS: stida LIKE sy-datum DEFAULT sy-datum OBLIGATORY,
            p_bukrs LIKE t001-bukrs DEFAULT 'PIIL' MEMORY ID buk
OBLIGATORY.
          P_BUKRS LIKE T001-BUKRS DEFAULT 'CC01' OBLIGATORY. "0003
SELECT-OPTIONS: s_lifnr   FOR bsik-lifnr ,
               s_vkbur FOR knvv-vkbur,
               s_vkgrp FOR knvv-vkgrp,
               s_bzirk FOR knvv-bzirk,
               s_konda FOR knvv-konda,
               s_kdgrp FOR knvv-kdgrp NO-DISPLAY ,
               s_kvgr2 FOR knvv-kvgr2 NO-DISPLAY ,
               s_kkber FOR knkk-kkber NO-DISPLAY ,
               s_grupp FOR knkk-grupp NO-DISPLAY ,
               s_ctlpc FOR knkk-ctlpc,
                s_akont FOR lfb1-akont,
                s_gsber FOR bsik-gsber.
PARAMETERS: p_future AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blck0.
SELECTION-SCREEN BEGIN OF BLOCK blck1 WITH FRAME TITLE text-002.
PARAMETERS: p_abs RADIOBUTTON GROUP zrad,
            p_due RADIOBUTTON GROUP zrad DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blck1.
*SELECTION-SCREEN BEGIN OF BLOCK blck2 WITH FRAME TITLE text-003.
*PARAMETERS: c_run RADIOBUTTON GROUP zrac DEFAULT 'X',
           c_blk RADIOBUTTON GROUP zrac,
           c_all RADIOBUTTON GROUP zrac.
*SELECTION-SCREEN END OF BLOCK blck2.
*SELECTION-SCREEN BEGIN OF BLOCK blck3 WITH FRAME TITLE text-004.
*PARAMETERS: p_debit AS CHECKBOX DEFAULT 'X' ,
           p_credit AS CHECKBOX DEFAULT 'X' NO-DISPLAY,
*selection-screen end of block blck3.
start-of-selection.
START-OF-SELECTION.
PERFORM BUILD_EVENTCAT.
p_debit = 'X'.
p_credit = 'X'.
PERFORM get_customer_invoices.
filter records based on selection criteria
PERFORM filter_records.
END-OF-SELECTION.
PERFORM add_sort_field.
PERFORM modify_field.
PERFORM write_report.
*&      Form FILTER_RECORDS
      To collect all the required data from DB and store them in
      internal table.
--> p1        text
<-- p2        text
FORM filter_records.
delete records based on selection criteria
LOOP AT itab.
   SELECT vkbur vkgrp vwerk erdat konda kdgrp bzirk kvgr2
     INTO (itab-vkbur, itab-vkgrp, itab-vwerk, knvv-erdat,
           knvv-konda, knvv-kdgrp,itab-bzirk,knvv-kvgr2)
     FROM knvv WHERE lifnr = itab-lifnr
               ORDER BY erdat DESCENDING.
AKS :- Not Required for PI
     CASE itab-vkbur.
       WHEN 'SA1'.
         itab-vkbur = 'SF25'.
       WHEN 'QLD1'.
         itab-vkbur = 'SF23'.
       WHEN 'WA1'.
         itab-vkbur = 'SF26'.
     ENDCASE.
AKS.
     EXIT.
   ENDSELECT.
   IF itab-vkbur IN s_vkbur AND
      itab-vkgrp IN s_vkgrp AND
      knvv-konda IN s_konda AND
      knvv-kdgrp IN s_kdgrp AND
      itab-bzirk IN s_bzirk AND
      knvv-kvgr2 IN s_kvgr2.
   ELSE.
     DELETE itab.
     CONTINUE.
   ENDIF.
   SELECT SINGLE klimk grupp cashd
     INTO (itab-klimk, itab-grupp, itab-cashd)
     FROM knkk WHERE lifnr = itab-lifnr
               AND   kkber IN s_kkber
               AND   ctlpc IN s_ctlpc
               AND   grupp IN s_grupp.
   IF SY-SUBRC NE 0.
     DELETE ITAB.
     CONTINUE.
   ENDIF.
    SELECT SINGLE skat~txt50
         INTO (itab-txt50)
         FROM lfb1 INNER JOIN skat
         ON lfb1akont EQ skatsaknr
         WHERE lfb1~lifnr = itab-lifnr
                   AND   lfb1~akont IN s_akont
                   AND   skat~spras EQ 'EN'.
    IF sy-subrc NE 0.
      DELETE itab.
      CONTINUE.
    ENDIF.
    SELECT SINGLE name1 name2 telf1 erdat stras ort01 sperr
         INTO (itab-name1, itab-name2, itab-telf1,
                 itab-erdat, itab-stras, itab-ort01, itab-sperr )
           FROM lfa1
           WHERE lifnr = itab-lifnr
    IF sy-subrc NE 0 .
      DELETE itab.
      CONTINUE.
    ENDIF.
AKS For Filteration of Customer base on Block Area.
   IF c_all NE 'X'.
     IF c_run EQ 'X' AND itab-sperr EQ 'X'.
       DELETE itab.
       CONTINUE.
     ELSE.
       IF c_blk EQ 'X' AND itab-sperr NE 'X'.
         DELETE itab.
         CONTINUE.
       ENDIF.
     ENDIF.
   ENDIF.
    MODIFY itab.
ENDLOOP.
ENDFORM.                               " FILTER_RECORDS
*&      Form GET_CUSTOMER_INVOICES
      text
--> p1        text
<-- p2        text
FORM get_customer_invoices.
DATA:ztotcre LIKE bsik-dmbtr.
DATA:ztotsal LIKE bsik-dmbtr.
DATA: fsdate LIKE sy-datum.
DATA: l_perio(4) TYPE c.
MOVE stida             TO rf140-stida.
MOVE rf140-stida+4(2) TO targ_month.
MOVE rf140-stida+0(4) TO targ_year.
MOVE rf140-stida+6(2) TO targ_days.
targ_mth_abs           = ( targ_year * 12 ) + targ_month.
CALL FUNCTION 'ZGET_PERIOD_FROM_DATE'
    EXPORTING
      i_date = stida
    IMPORTING
      e_perio = l_perio.
CONCATENATE l_perio '0401' INTO fsdate.
select open items.
IF p_due EQ 'X'.
    SELECT lifnr belnr gjahr bldat xblnr blart sgtxt        " 0001
           shkzg dmbtr zfbdt zbd1t zbd2t zbd3t
           zuonr
      FROM bsik INTO TABLE inrect
      WHERE bukrs = p_bukrs
      AND   budat LE stida
      AND   lifnr IN s_lifnr
      AND   gsber IN s_gsber
      AND   umskz NE 'T'
      AND   umskz NE 'F'
      AND   umskz NE 'R'
      AND   umskz NE 'P'
      AND   umskz NE 'J'
      AND umskz NE 'L'.
LOOP AT INREC.
   IF INREC-SHKZG = 'H'.
     INREC-DMBTR = INREC-DMBTR * -1.
   ENDIF.
   MOVE-CORRESPONDING INREC TO T_ITEM.                     " 0001
   PERFORM COLLECT_INVOICE USING   INREC-lifnr    INREC-DMBTR
                                   INREC-ZFBDT    INREC-ZBD1T
                                   INREC-ZBD2T    INREC-ZBD3T.
   APPEND T_ITEM.
   CLEAR T_ITEM.
ENDLOOP.
    LOOP AT inrect.
      inrec-lifnr = inrect-lifnr.
      inrec-belnr    = inrect-belnr.
      inrec-gjahr    = inrect-gjahr.
      inrec-bldat    = inrect-bldat.
      inrec-xblnr    = inrect-xblnr.
      inrec-blart    = inrect-blart.
      inrec-sgtxt    = inrect-sgtxt.
      inrec-shkzg    = inrect-shkzg.
      inrec-dmbtr    = inrect-dmbtr.
      CALL FUNCTION 'NJ_CAL_DATE_IN_INTERVAL'
        EXPORTING
          date      = inrect-zfbdt
          days      = inrect-zbd1t
          months    = 00
          signum    = '+'
          years     = 00
        IMPORTING
          calc_date = inrec-zfbdt.
      inrec-zbd1t    = inrect-zbd1t.
      inrec-zbd2t    = inrect-zbd2t.
      inrec-zbd3t    = inrect-zbd3t.
      inrec-zuonr    = inrect-zuonr.
      APPEND inrec.
      CLEAR inrec.
    ENDLOOP.
ELSE.
    SELECT lifnr belnr gjahr bldat xblnr blart sgtxt        " 0001
           shkzg dmbtr zfbdt zbd1t zbd2t zbd3t
           zuonr
      FROM bsik INTO TABLE inrec
      WHERE bukrs = p_bukrs
      AND   budat LE stida
      AND   lifnr IN s_lifnr
      AND   gsber IN s_gsber
      AND   umskz NE 'T'
      AND   umskz NE 'F'
      AND   umskz NE 'R'
      AND   umskz NE 'P'
      AND   umskz NE 'J'
      AND umskz NE 'L'.
ENDIF.
SORT inrec BY lifnr shkzg zfbdt .
LOOP AT inrec.
    AT NEW lifnr.
For Customers Credit Balance Transaction to be display in Report
End of Credit Balance
      ztotcre = 0.
      ztotsal = 0.
    ENDAT.
    IF inrec-shkzg = 'H'.
      inrec-dmbtr = inrec-dmbtr * -1.
      ztotcre = ztotcre + inrec-dmbtr.
    ELSE.
      IF inrec-blart = 'RV'.
        IF inrec-bldat GE fsdate.
          ztotsal = ztotsal + inrec-dmbtr.
        ENDIF.
      ENDIF.
      ztotcre = ztotcre + inrec-dmbtr.
   endif.
      IF p_debit EQ 'X'.
        IF ztotcre > 0.
          MOVE-CORRESPONDING inrec TO t_item.               " 0001
          PERFORM collect_invoice USING inrec-lifnr    ztotcre
                                      inrec-zfbdt    inrec-zbd1t
                                      inrec-zbd2t    inrec-zbd3t
                                      ztotsal.
          APPEND t_item.
          CLEAR t_item.
          ztotcre = 0.
          ztotsal = 0.
        ENDIF.
      ENDIF.
    ENDIF.
    IF p_credit EQ 'X'.
     AT END OF lifnr.
      IF ztotcre < 0.
        MOVE-CORRESPONDING inrec TO t_item.                 " 0001
        PERFORM collect_invoice USING inrec-lifnr    ztotcre
                                    inrec-zfbdt       inrec-zbd1t
                                    inrec-zbd2t    inrec-zbd3t
                                    ztotsal.
        APPEND t_item.
        CLEAR t_item.
        ztotcre = 0.
        ztotsal = 0.
       APPEND t_item.
       CLEAR t_item.
      ENDIF.
     ENDAT.
    ENDIF.
ENDLOOP.
select cleared items
IF p_due EQ 'X'.
    REFRESH inrect. CLEAR inrect.
    SELECT lifnr belnr gjahr bldat xblnr blart sgtxt
           shkzg dmbtr zfbdt zbd1t zbd2t zbd3t
           zuonr
      FROM bsak INTO TABLE inrect
      WHERE bukrs = p_bukrs
      AND   budat LE stida
      AND   augdt > stida
      AND   lifnr IN s_lifnr
      AND   gsber IN s_gsber
    REFRESH inrec. CLEAR inrec.
    LOOP AT inrect.
      inrec-lifnr = inrect-lifnr.
      inrec-belnr    = inrect-belnr.
      inrec-gjahr    = inrect-gjahr.
      inrec-bldat    = inrect-bldat.
      inrec-xblnr    = inrect-xblnr.
      inrec-blart    = inrect-blart.
      inrec-sgtxt    = inrect-sgtxt.
      inrec-shkzg    = inrect-shkzg.
      inrec-dmbtr    = inrect-dmbtr.
      CALL FUNCTION 'NJ_CAL_DATE_IN_INTERVAL'
        EXPORTING
          date      = inrect-zfbdt
          days      = inrect-zbd1t
          months    = 00
          signum    = '+'
          years     = 00
        IMPORTING
          calc_date = inrec-zfbdt.
      inrec-zbd1t    = inrect-zbd1t.
      inrec-zbd2t    = inrect-zbd2t.
      inrec-zbd3t    = inrect-zbd3t.
      inrec-zuonr    = inrect-zuonr.
      APPEND inrec.
      CLEAR inrec.
    ENDLOOP.
ELSE.
    REFRESH inrec. CLEAR inrec.
    SELECT lifnr belnr gjahr bldat xblnr blart sgtxt
           shkzg dmbtr zfbdt zbd1t zbd2t zbd3t
           zuonr
      FROM bsak INTO TABLE inrec
      WHERE bukrs = p_bukrs
      AND   budat LE stida
      AND   augdt > stida
      AND   lifnr IN s_lifnr
      AND   gsber IN s_gsber
ENDIF.
SORT inrec BY lifnr shkzg zfbdt .
LOOP AT inrec.
    AT NEW lifnr.
      ztotcre = 0.
      ztotsal = 0.
    ENDAT.
    IF inrec-shkzg = 'H'.
      inrec-dmbtr = inrec-dmbtr * -1.
      ztotcre = ztotcre + inrec-dmbtr.
    ELSE.
      IF inrec-blart = 'RV'.
        IF inrec-bldat GE fsdate.
          ztotsal = ztotsal + inrec-dmbtr.
        ENDIF.
      ENDIF.
      ztotcre = ztotcre + inrec-dmbtr.
endif.
      IF p_debit EQ 'X'.
        IF ztotcre > 0.
          MOVE-CORRESPONDING inrec TO t_item.               " 0001
          PERFORM collect_invoice USING inrec-lifnr    ztotcre
                                      inrec-zfbdt    inrec-zbd1t
                                      inrec-zbd2t    inrec-zbd3t
                                      ztotsal.
          APPEND t_item.
          CLEAR t_item.
          ztotcre = 0.
          ztotsal = 0.
        ENDIF.
      ENDIF.
    ENDIF.
    IF p_credit EQ 'X'.
     AT END OF lifnr.
      IF ztotcre < 0.
        MOVE-CORRESPONDING inrec TO t_item.                 " 0001
        PERFORM collect_invoice USING inrec-lifnr    ztotcre
                                    inrec-zfbdt    inrec-zbd1t
                                    inrec-zbd2t    inrec-zbd3t
                                    ztotsal.
        APPEND t_item.
        CLEAR t_item.
        ztotcre = 0.
        ztotsal = 0.
       APPEND t_item.
       CLEAR t_item.
      ENDIF.
     ENDAT.                                                " 0001
    ENDIF.
ENDLOOP.
ENDFORM.                    " GET_CUSTOMER_INVOICES
*&      Form COLLECT_INVOICE
      text
     -->P_bsik_lifnr text
     -->P_bsik_DMBTR text
     -->P_bsik_ZFBDT text
     -->P_bsik_ZFBDT1 text
     -->P_bsik_ZFBDT2 text
     -->P_bsik_ZFBDT3 text
FORM collect_invoice USING    pp_lifnr
                              pp_dmbtr
                              pp_zfbdt
                              pp_zbd1t
                              pp_zbd2t
                              pp_zbd3t
                              pp_ztotsal.
doc_month            = pp_zfbdt+4(2).
doc_year             = pp_zfbdt+0(4).
doc_mth_abs          = ( doc_year * 12 ) + doc_month.
mth_result           = ( targ_mth_abs    - doc_mth_abs ).
logic given by Mr. Ashok Singhvi
doc_days             = pp_zfbdt+6(2).
addl_days            = ( doc_days - targ_days ).
IF addl_days <= 0.
    ADD 1 TO mth_result.
ENDIF.
IF NOT pp_zbd3t IS INITIAL.
    MOVE pp_zbd3t TO ext_days.
ELSEIF NOT pp_zbd2t IS INITIAL.
    MOVE pp_zbd2t TO ext_days.
ELSEIF NOT pp_zbd1t IS INITIAL.
    MOVE pp_zbd1t TO ext_days.
ELSE.
    CLEAR ext_days.
ENDIF.
CHECK with Andrew whether this is working or not
if extended payment terms exist, subtract no of mths from mth_result
IF NOT ext_days IS INITIAL.
   CASE ext_days.
     WHEN 30.
       SUBTRACT 1 FROM mth_result.
     WHEN 60.
       SUBTRACT 2 FROM mth_result.
     WHEN 90.
       SUBTRACT 3 FROM mth_result.
     WHEN 120.
       SUBTRACT 4 FROM mth_result.
   ENDCASE.
ENDIF.
change to key date
IF pp_dmbtr > 0.
    IF p_future = 'X'.                                      " 0001
      IF mth_result      <= 0.
        itab-zcurrent    = pp_dmbtr.
        t_item-days       = 'CUR'.
      ELSEIF mth_result = 1.
        itab-30days      = pp_dmbtr.
        t_item-days       = '30D'.
      ELSEIF mth_result = 2.
        itab-60days      = pp_dmbtr.
        t_item-days        = '60D'.
      ELSEIF mth_result = 3.
        itab-90days      = pp_dmbtr.
        t_item-days        = '90D'.
      ELSEIF mth_result > 3 AND mth_result <= 4 .
        itab-99days      = pp_dmbtr.
        t_item-days        = '99D'.
      ELSEIF mth_result > 4 AND mth_result <= 6 .
        itab-120days      = pp_dmbtr.
        t_item-days        = '120D'.
      ELSEIF mth_result > 6 AND mth_result <= 12 .
        itab-180days      = pp_dmbtr.
        t_item-days        = '180D'.
      ELSEIF mth_result > 12 .
        itab-365days      = pp_dmbtr.
        t_item-days        = '365D'.
      ENDIF.
    ELSE.
      IF mth_result      < 0.
        itab-zfuture     = pp_dmbtr.
        t_item-days       = 'FUT'.
      ELSEIF mth_result = 0.
        itab-zcurrent = pp_dmbtr.
        t_item-days       = 'CUR'.
      ELSEIF mth_result = 1.
        itab-30days      = pp_dmbtr.
        t_item-days       = '30D'.
      ELSEIF mth_result = 2.
        itab-60days      = pp_dmbtr.
        t_item-days       = '60D'.
      ELSEIF mth_result = 3.
        itab-90days      = pp_dmbtr.
        t_item-days       = '90D'.
      ELSEIF mth_result > 3 AND mth_result <= 4 .
        itab-99days      = pp_dmbtr.
        t_item-days        = '99D'.
      ELSEIF mth_result > 4 AND mth_result <= 6 .
        itab-120days      = pp_dmbtr.
        t_item-days        = '120D'.
      ELSEIF mth_result > 6 AND mth_result <= 12 .
        itab-180days      = pp_dmbtr.
        t_item-days        = '180D'.
      ELSEIF mth_result > 12 .
        itab-365days      = pp_dmbtr.
        t_item-days        = '365D'.
      ENDIF.
    ENDIF.                                                  " 0001
    itab-crbal         = 0.
    itab-total         = pp_dmbtr.
ELSE.
    IF p_future = 'X'.                                      " 0001
      IF mth_result      <= 0.
        itab-zcurrent    = pp_dmbtr.
        t_item-days       = 'CUR'.
      ELSEIF mth_result = 1.
        itab-30days      = pp_dmbtr.
        t_item-days       = '30D'.
      ELSEIF mth_result = 2.
        itab-60days      = pp_dmbtr.
        t_item-days        = '60D'.
      ELSEIF mth_result = 3.
        itab-90days      = pp_dmbtr.
        t_item-days        = '90D'.
      ELSEIF mth_result > 3 AND mth_result <= 4 .
        itab-99days      = pp_dmbtr.
        t_item-days        = '99D'.
      ELSEIF mth_result > 4 AND mth_result <= 6 .
        itab-120days      = pp_dmbtr.
        t_item-days        = '120D'.
      ELSEIF mth_result > 6 AND mth_result <= 12 .
        itab-180days      = pp_dmbtr.
        t_item-days        = '180D'.
      ELSEIF mth_result > 12 .
        itab-365days      = pp_dmbtr.
        t_item-days        = '365D'.
      ENDIF.
    ELSE.
      IF mth_result      < 0.
        itab-zfuture     = pp_dmbtr.
        t_item-days       = 'FUT'.
      ELSEIF mth_result = 0.
        itab-zcurrent = pp_dmbtr.
        t_item-days       = 'CUR'.
      ELSEIF mth_result = 1.
        itab-30days      = pp_dmbtr.
        t_item-days       = '30D'.
      ELSEIF mth_result = 2.
        itab-60days      = pp_dmbtr.
        t_item-days       = '60D'.
      ELSEIF mth_result = 3.
        itab-90days      = pp_dmbtr.
        t_item-days       = '90D'.
      ELSEIF mth_result > 3 AND mth_result <= 4 .
        itab-99days      = pp_dmbtr.
        t_item-days        = '99D'.
      ELSEIF mth_result > 4 AND mth_result <= 6 .
        itab-120days      = pp_dmbtr.
        t_item-days        = '120D'.
      ELSEIF mth_result > 6 AND mth_result <= 12 .
        itab-180days      = pp_dmbtr.
        t_item-days        = '180D'.
      ELSEIF mth_result > 12 .
        itab-365days      = pp_dmbtr.
        t_item-days        = '365D'.
      ENDIF.
    ENDIF.                                                  " 0001
    itab-total         = pp_dmbtr.
    itab-crbal         = 0.
ENDIF.
itab-lifnr         = pp_lifnr.
itab-totsal        = pp_ztotsal.
COLLECT itab.
CLEAR itab.
ENDFORM.                    " COLLECT_INVOICE
*&      Form ADD_SORT_FIELD
      text
--> p1        text
<-- p2        text
FORM add_sort_field.
DATA: l_amount(9) TYPE n.
IF p_future = 'X'.
    LOOP AT itab.
      l_amount = 999999999.
      IF     itab-365days > 0.
        l_amount = l_amount - itab-365days.
        CONCATENATE 'A' l_amount INTO itab-psort.
      ELSEIF     itab-180days > 0.
        l_amount = l_amount - itab-180days.
        CONCATENATE 'B' l_amount INTO itab-psort.
      ELSEIF     itab-120days > 0.
        l_amount = l_amount - itab-120days.
        CONCATENATE 'C' l_amount INTO itab-psort.
      ELSEIF     itab-99days > 0.
        l_amount = l_amount - itab-99days.
        CONCATENATE 'D' l_amount INTO itab-psort.
      ELSEIF itab-90days > 0.
        l_amount = l_amount - itab-90days.
        CONCATENATE 'E' l_amount INTO itab-psort.
      ELSEIF itab-60days > 0.
        l_amount = l_amount - itab-60days.
        CONCATENATE 'F' l_amount INTO itab-psort.
      ELSEIF itab-30days > 0.
        l_amount = l_amount - itab-30days.
        CONCATENATE 'G' l_amount INTO itab-psort.
      ELSEIF itab-zcurrent > 0.
        l_amount = l_amount - itab-zcurrent.
        CONCATENATE 'H' l_amount INTO itab-psort.
    ELSEif itab-zfuture > 0.
      L_AMOUNT = L_AMOUNT - ITAB-zfuture.
      CONCATENATE 'F' L_AMOUNT INTO ITAB-PSORT.
      ELSE.
        l_amount = ABS( itab-total ).
        CONCATENATE 'I' l_amount INTO itab-psort.
      ENDIF.
      MODIFY itab.
    ENDLOOP.
ELSE.
    LOOP AT itab.
      l_amount = 999999999.
      IF     itab-365days > 0.
        l_amount = l_amount - itab-365days.
        CONCATENATE 'A' l_amount INTO itab-psort.
      ELSEIF     itab-180days > 0.
        l_amount = l_amount - itab-180days.
        CONCATENATE 'B' l_amount INTO itab-psort.
      ELSEIF     itab-120days > 0.
        l_amount = l_amount - itab-120days.
        CONCATENATE 'C' l_amount INTO itab-psort.
      ELSEIF     itab-99days > 0.
        l_amount = l_amount - itab-99days.
        CONCATENATE 'D' l_amount INTO itab-psort.
      ELSEIF itab-90days > 0.
        l_amount = l_amount - itab-90days.
        CONCATENATE 'E' l_amount INTO itab-psort.
      ELSEIF itab-60days > 0.
        l_amount = l_amount - itab-60days.
        CONCATENATE 'F' l_amount INTO itab-psort.
      ELSEIF itab-30days > 0.
        l_amount = l_amount - itab-30days.
        CONCATENATE 'G' l_amount INTO itab-psort.
      ELSEIF itab-zcurrent > 0.
        l_amount = l_amount - itab-zcurrent.
        CONCATENATE 'H' l_amount INTO itab-psort.
      ELSEIF itab-zfuture > 0.
        l_amount = l_amount - itab-zfuture.
        CONCATENATE 'I' l_amount INTO itab-psort.
      ELSE.
        l_amount = ABS( itab-total ).
        CONCATENATE 'J' l_amount INTO itab-psort.
      ENDIF.
      MODIFY itab.
    ENDLOOP.
ENDIF.
ENDFORM.                    " ADD_SORT_FIELD
*&      Form WRITE_REPORT
      text
--> p1        text
<-- p2        text
FORM write_report.
PERFORM build_fieldcat.
PERFORM build_sortcat.
PERFORM build_eventcat.
PERFORM build_layout.
PERFORM start_list_viewer.
ENDFORM.                    " WRITE_REPORT
*&      Form BUILD_FIELDCAT
      text
--> p1        text
<-- p2        text
FORM build_fieldcat.
lifnr
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'lfa1'.
fieldcat_ln-fieldname          = 'LIFNR'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
APPEND fieldcat_ln TO fieldcat.
Name1
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'lfa1'.
fieldcat_ln-fieldname          = 'NAME1'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-seltext_l          = 'Name'.
APPEND fieldcat_ln TO fieldcat.
City Details
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'lfa1'.
fieldcat_ln-fieldname          = 'ORT01'.
fieldcat_ln-seltext_l          = 'City'.
fieldcat_ln-col_pos            = col_pos.
APPEND fieldcat_ln TO fieldcat.
Credit Limit
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'KNKK'.
fieldcat_ln-fieldname          = 'KLIMK'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-emphasize = 'C41'.
APPEND fieldcat_ln TO fieldcat.
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = 'CRBAL'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-seltext_l          = 'Cr. Bal.'.
fieldcat_ln-seltext_m          = 'Cr. Bal.'.
fieldcat_ln-seltext_s          = 'Cr. Bal.'.
APPEND fieldcat_ln TO fieldcat.
Total Amount
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-fieldname          = 'TOTAL'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-seltext_l          = 'Out.St.Amt.'.
fieldcat_ln-seltext_m          = 'Out.St.Amt.'.
fieldcat_ln-seltext_s          = 'Out.St.Amt.'.
fieldcat_ln-ref_tabname        = 'zbsik'.
fieldcat_ln-ref_fieldname      = 'ZDMBTR'.
APPEND fieldcat_ln TO fieldcat.
IF p_future NE 'X'.
Future
    ADD 1 TO col_pos.
    CLEAR fieldcat_ln.
   fieldcat_ln-ref_tabname        = 'bsik'.
   fieldcat_ln-ref_fieldname      = 'DMBTR'.
    fieldcat_ln-fieldname          = 'ZFUTURE'.
    fieldcat_ln-col_pos            = col_pos.
    fieldcat_ln-do_sum             = 'X'.
    fieldcat_ln-hotspot            = 'X'.
    fieldcat_ln-emphasize = 'C41'.
    fieldcat_ln-seltext_l          = 'Future Due'.
    fieldcat_ln-seltext_m          = 'Future Due'.
    fieldcat_ln-seltext_s          = 'Future Due'.
    APPEND fieldcat_ln TO fieldcat.
ENDIF.
Current
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = 'ZCURRENT'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = 'Normal Due'.
fieldcat_ln-seltext_m          = 'Normal Due'.
fieldcat_ln-seltext_s          = 'Normal Due'.
APPEND fieldcat_ln TO fieldcat.
30 Days
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = '30DAYS'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = '0-30 Days'.
fieldcat_ln-seltext_m          = '0-30 Days'.
fieldcat_ln-seltext_s          = '0-30 Days'.
APPEND fieldcat_ln TO fieldcat.
60 Days
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = '60DAYS'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = '31-60 Days'.
fieldcat_ln-seltext_m          = '31-60 Days'.
fieldcat_ln-seltext_s          = '31-60 Days'.
APPEND fieldcat_ln TO fieldcat.
90 Days
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = '90DAYS'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = '61-90 Days'.
fieldcat_ln-seltext_m          = '61-90 Days'.
fieldcat_ln-seltext_s          = '61-90 Days'.
APPEND fieldcat_ln TO fieldcat.
99 Days
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = '99DAYS'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = '91-120 Days'.
fieldcat_ln-seltext_m          = '91-120 Days'.
fieldcat_ln-seltext_s          = '91-120 Days'.
APPEND fieldcat_ln TO fieldcat.
*120Days
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = '120DAYS'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = '121-180 Days'.
fieldcat_ln-seltext_m          = '121-180 Days'.
fieldcat_ln-seltext_s          = '121-180 Days'.
APPEND fieldcat_ln TO fieldcat.
*180 Days
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = '180DAYS'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = '181-365 Days'.
fieldcat_ln-seltext_m          = '181-365 Days'.
fieldcat_ln-seltext_s          = '181-365 Days'.
APPEND fieldcat_ln TO fieldcat.
*365 Days
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'bsik'.
fieldcat_ln-ref_fieldname      = 'DMBTR'.
fieldcat_ln-fieldname          = '365DAYS'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-do_sum             = 'X'.
fieldcat_ln-hotspot            = 'X'.
fieldcat_ln-emphasize = 'C41'.
fieldcat_ln-seltext_l          = '>365 Days'.
fieldcat_ln-seltext_m          = '>365 Days'.
fieldcat_ln-seltext_s          = '>365 Days'.
APPEND fieldcat_ln TO fieldcat.
Last Payment Date
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'KNKK'.
fieldcat_ln-fieldname          = 'CASHD'.
fieldcat_ln-col_pos            = col_pos.
APPEND fieldcat_ln TO fieldcat.
Street Name
ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-REF_TABNAME        = 'lfa1'.
FIELDCAT_LN-FIELDNAME          = 'STRAS'.
FIELDCAT_LN-COL_POS            = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.
Telephone
ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-REF_TABNAME        = 'lfa1'.
FIELDCAT_LN-FIELDNAME          = 'TELF1'.
FIELDCAT_LN-COL_POS            = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.
Credit Group
ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-REF_TABNAME        = 'KNKK'.
FIELDCAT_LN-FIELDNAME          = 'GRUPP'.
FIELDCAT_LN-COL_POS            = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.
*Sales District
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'KNVV'.
fieldcat_ln-fieldname          = 'BZIRK'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-seltext_l          = 'S_Distt'.
fieldcat_ln-seltext_m          = 'S_Distt'.
fieldcat_ln-seltext_s          = 'S_Distt'.
APPEND fieldcat_ln TO fieldcat.
Sales Office
ADD 1 TO col_pos.
CLEAR fieldcat_ln.
fieldcat_ln-ref_tabname        = 'KNVV'.
fieldcat_ln-fieldname          = 'VKBUR'.
fieldcat_ln-col_pos            = col_pos.
fieldcat_ln-seltext_l          = 'S_Off'.
fieldcat_ln-seltext_m          = 'S_Off'.
fieldcat_ln-seltext_s          = 'S_Off'.
APPEND fieldcat_ln TO fieldcat.
Cust Creat Date
ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-REF_TABNAME        = 'lfa1'.
FIELDCAT_LN-FIELDNAME          = 'ERDAT'.
FIELDCAT_LN-COL_POS            = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.

Failed to open the connection - database vendor code 17

I'm upgrading a VB.net Windows Forms application from 1.1 to 4.0. In the reporting form, the list of reports you can choose are pulled from a folder where the .rpt files reside. Once the user chooses a report and executes it, vb code populates the current database connection information and displays the report in the report viewer control.
The following things are true:
- Version 1.1 works on my systems and my customers systems
- The code has not been changed, except that it now targets .Net 4.0 instead of 1.1
- The exact same .rpt files are being used
- Version 4.0 connects to the same database my customer is using, and I can run the reports just fine from here.
- Version 4.0 is able to connect to the database just fine from my customers systems (using the same connection information provided to the report)
- My customer installed this: http://downloads.businessobjects.com/akdlm/cr4vs2010/CRforVS_redist_install_32bit_13_0_2.zip
The only problem is that my customer encounters this error when trying to run any report from his systems:
Failed to open the connection.
Details: Database Vendor Code: 17
Failed to open the connection.
Orders.BOL.TaskDetail {393C9017-0ED1-4E1E-8824-E222F4B9D14C}.rpt
Details: Database Vendor Code: 17
I read all of the articles I could find, and they either don't describe this exact situation, or there is insufficient information for troubleshooting this issue. Are there steps that I've missed to make Crystal Reports for VS2010 work on my customer's systems?
Your help is appreciated,
Mark

Hi Mark,
More information required -
- Does this happen with all reports or few?
- What is the connection type used for the report to connect to the database (OLEDB,ODBC etc)
- Are you changing the database at runtime?
few things you could check
- Check if the database is accaessible from the client machine with proper permissions / rights.
- If its an ODBC connection check if the DSN with same name is created on the client machine.
- Check the driver / provided used by the report to connect to the DB, verify that the same is installed on the client machine. (SQL NAtive client, SQL Server etc)
Also take a look at below articles discussing the simillar issue.
[CR for VS2010: Failed to Open Connection [Database Vendor Code: 17 ]|CR for VS2010: Failed to Open Connection [Database Vendor Code: 17 ]]
[1474461 - Unknown Database Connector Error when connecting to a Dataset in a VS .NET application |http://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/oss_notes_boj/sdn_oss_boj_bi/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/scn_bosap/notes%7B6163636573733d36393736354636443646363436353344333933393338323636393736354637333631373036453646373436353733354636453735364436323635373233443330333033303331333433373334333433363331%7D.do]
Hope this helps,
- Bhushan.

Vendor Code against Vendor Name

Similar Messages

Maybe you are looking for