Re: bdc

Former Member — Fri, 24 Nov 2006 06:02:45 GMT

check this programmm...u will understand...

&----

*& Report ZFC_VENDOR_CREATE *

*& *

&----

*& *

&----

REPORT ZFC_VENDOR_CREATE LINE-SIZE 100

NO STANDARD PAGE HEADING

MESSAGE-ID ZZ.

************************************************************************

PROGRAM DECLARATION

************************************************************************

PROGRAM ID : ZFC_VENDOR_CREATE
AUTHOR : C.RAMESH BABU
OWNER(Process Team) : Martin Chisholm
CREATE DATE : 02/17/2005
R/3 RELEASE VERSION : 4.7C
BASED-ON PROGRAM : none
ADS : BP14.GLC.005
DESCRIPTION : Vendor Master Data - Intercompany

************************************************************************

VERSION CONTROL (Most recent on top):
DATE AUTHOR CTS REQ DESCRIPTION
02/17/2005 C.Ramesh Babu DR1K901565 Original Version

06/24/2005 C.Ramesh Babu DR1K904503 Added logic to include change of
data for vendors using FK02. An
update flag is used wherein if
'A' a new vendor is added, 'C'
existing Vendor is changed, 'N'
no data is changed. This is for
Vendor Master as well as
Extended Vendor Master uploads.

************************************************************************

TABLES

************************************************************************

TABLES : SSCRFIELDS. " Fields on selection screens

************************************************************************

CONSTANTS

************************************************************************

DATA : C_SPLIT TYPE C VALUE '#'. " Used for Has Separator in GUI_UPLAOD

************************************************************************

TYPES

************************************************************************

Int'table to hold Vendor Master Data

TYPES : BEGIN OF TY_VENDOR_MASTER,

Added by C.Ramesh Babu DR1K904503

FLAG TYPE C, " Update Flag

End of addition by C.Ramesh Babu DR1K904503

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

KTOKK TYPE KTOKK, " Account Group

ANRED TYPE ANRED, " Title

NAME1 TYPE NAME1_GP, " Name1

NAME2 TYPE NAME2_GP, " Name2

SORTL TYPE SORTL, " Search Term 1

SORT2 TYPE AD_SORT2UL, " Search Term 2

STRAS TYPE STRAS_GP, " Street

PSTLZ TYPE PSTLZ, " Postal Code

ORT01 TYPE ORT01_GP, " City

REGIO TYPE REGIO, " Region

LAND1 TYPE LAND1_GP, " Country

SPRAS TYPE SPRAS, " Language

VBUND TYPE RASSC, " Trading Partner

BANKS TYPE BANKS, " Country

BANKL TYPE BANKK, " Bank Key

BANKN TYPE BANKN, " Bank Account

BKONT TYPE BKONT, " Bank Control Key

BANKA TYPE BANKA, " Name of Bank

AKONT TYPE AKONT, " Reconciliation Account

FDGRV TYPE FDGRV, " Cash Management Group

ZTERM TYPE DZTERM, " Payment Terms

REPRF TYPE REPRF, " Check Double Invoice

ZWELS TYPE DZWELS, " Payment Methods

Added by C.Ramesh Babu DR1K904503

XPORE TYPE XPORE, " Pay all items separately

End of addition by C.Ramesh Babu DR1K904503

END OF TY_VENDOR_MASTER,

Int'table to hold Vendor Extend Data

BEGIN OF TY_VENDOR_EXTEND,

Added by C.Ramesh Babu DR1K904503

FLAG TYPE C, " Update Flag

End of addition by C.Ramesh Babu DR1K904503

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

KTOKK TYPE KTOKK, " Account Group

REF_LIFNR TYPE LIFNR, " Reference Vendor Number

REF_BUKRS TYPE BUKRS, " Reference Company Code

AKONT TYPE AKONT, " Reconciliation Account

FDGRV TYPE FDGRV, " Cash Management Group

ZTERM TYPE DZTERM, " Payment Terms

REPRF TYPE REPRF, " Check Double Invoice

ZWELS TYPE DZWELS, " Payment Methods

Added by C.Ramesh Babu DR1K904503

XPORE TYPE XPORE, " Pay all items separately

End of addition by C.Ramesh Babu DR1K904503

END OF TY_VENDOR_EXTEND,

Int'table to hold Error Records Data

BEGIN OF TY_ERROR,

MSG(200) TYPE C, " To hold Message

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

END OF TY_ERROR.

************************************************************************

DATA (Simple Fields)

************************************************************************

DATA : W_COUNT TYPE I, " Variable to hold count of Records

W_SUCC_REC TYPE I, " No. of Success Records

W_SUCC_REC1 TYPE I, " No. of Updated Records

W_ERR_REC TYPE I, " No. of Error Records

w_noupdate_rec type i. " No. of Records not Changed

************************************************************************

INTERNAL TABLES

************************************************************************

Int'table to hold uploaded data from File

DATA : IT_VENDOR_MASTER TYPE STANDARD TABLE OF TY_VENDOR_MASTER,

WA_IT_VENDOR_MASTER TYPE TY_VENDOR_MASTER,

IT_VENDOR_EXTEND TYPE STANDARD TABLE OF TY_VENDOR_EXTEND,

WA_IT_VENDOR_EXTEND TYPE TY_VENDOR_EXTEND,

WA_IT_BDCDATA TYPE BDCDATA,

IT_BDCDATA TYPE STANDARD TABLE OF BDCDATA,

WA_IT_MESSTAB TYPE BDCMSGCOLL,

IT_MESSTAB TYPE STANDARD TABLE OF BDCMSGCOLL,

IT_ERROR TYPE STANDARD TABLE OF TY_ERROR,

WA_IT_ERROR TYPE TY_ERROR,

Added by C.Ramesh Babu DR1K904503

it_error_fk01 type standard table of ty_error,

wa_it_error_fk01 type ty_error,

it_error_fk02 type standard table of ty_error,

wa_it_error_fk02 type ty_error,

it_succ_rec1 type standard table of ty_error,

wa_it_succ_rec1 type ty_error,

it_noupdate type standard table of ty_error,

wa_it_noupdate type ty_error.

End of addition by C.Ramesh Babu DR1K904503

************************************************************************

FLAGS

************************************************************************

DATA : FL_FLAG1 TYPE C, " Flag to check error upload file

FL_FLAG2 TYPE C, " Flag to hold value

FL_FLAG3 TYPE C, " Flag to hold value

FL_FLAG4 TYPE C. " Flag to hold value

************************************************************************

SELECTION-SCREEN

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.