hI All,
i am using bapi BAPI_FIXEDASSET_CREATE1 for create asset it is working fine and now asset sub-number make mandatory then it is showing error like Subnumber has to be numeric (correct entry) so please sugget what to do.
WA_SCREEN-COMPANYCODE = WA_AS01-BUKRS.
WA_SCREEN-ASSET = WA_AS01-ANLKL.
WA_SCREEN-SUBNUMBER = WA_AS01-NASSETS.
WA_GENARAL-ASSETCLASS = WA_AS01-ANLKL.
WA_GENARAL-DESCRIPT = WA_AS01-TXT50 .
WA_GENARAL-MAIN_DESCRIPT = WA_AS01-ANLHTXT.
WA_GENARAL-BASE_UOM = WA_AS01-MEINS.
WA_GENARAL-SERIAL_NO = WA_AS01-SERNR.
WA_GENARAL-QUANTITY = WA_AS01-QUANTITY.
WA_GENARALX-ASSETCLASS = 'X'.
WA_GENARALX-DESCRIPT = 'X'.
WA_GENARALX-MAIN_DESCRIPT = 'X'.
WA_GENARALX-SERIAL_NO = 'X'.
WA_GENARALX-BASE_UOM = 'X'.
WA_GENARALx-QUANTITY = 'X'.
WA_TIME-COSTCENTER = WA_AS01-KOSTL.
WA_TIME-PLANT = WA_AS01-WERKS.
WA_TIME-LOCATION = WA_AS01-STORT.
WA_TIMEX-COSTCENTER = 'X'.
WA_TIMEX-PLANT = 'X'.
WA_TIMEX-LOCATION = 'X'.
IF WA_AS01-CAP_DATE IS NOT INITIAL.
WA_POST-CAP_DATE = WA_AS01-CAP_DATE.
WA_POSTX-CAP_DATE = 'X'.
ENDIF.
WA_ALLOCATION-ASSETSUPNO = WA_AS01-ANLUE.
WA_ALLOCATIONX-ASSETSUPNO = 'X'.
WA_ORIGIN-PURCH_NEW = 'X'.
WA_ORIGINX-PURCH_NEW = 'X'.
WA_DEP_AREAS-AREA = '01'.
WA_DEP_AREAS-DEP_KEY = WA_AS01-AFASL.
WA_DEP_AREAS-ULIFE_YRS = WA_AS01-NDJAR.
WA_DEP_AREAS-ULIFE_PRDS = WA_AS01-NDPER.
IF WA_AS01-AFABG IS NOT INITIAL.
WA_DEP_AREAS-ODEP_START_DATE = WA_AS01-AFABG.
ENDIF.
WA_DEP_AREAS-SCRAPVALUE = WA_AS01-SCRAPVALUE.
APPEND WA_DEP_AREAS TO WA_DEP_AREAS.
CLEAR WA_DEP_AREAS.
WA_DEP_AREAS-AREA = '15'.
WA_DEP_AREAS-DEP_KEY = WA_AS01-S_AFASL.
WA_DEP_AREAS-ULIFE_YRS = WA_AS01-S_NDJAR.
WA_DEP_AREAS-ULIFE_PRDS = WA_AS01-S_NDPER.
* WA_DEP_AREAS-EXP_ULIFE_SDEP_YRS = WA_AS01-EXP_ULIFE_SDEP_YRS.
* WA_DEP_AREAS-EXP_ULIFE_SDEP_PRDS = WA_AS01-EXP_ULIFE_SDEP_PRDS.
APPEND WA_DEP_AREAS TO WA_DEP_AREAS.
WA_DEP_AREASX-AREA = '01'.
WA_DEP_AREASX-DEP_KEY = 'X'.
WA_DEP_AREASX-ULIFE_YRS = 'X'.
WA_DEP_AREASX-ULIFE_PRDS = 'X'.
WA_DEP_AREASX-SCRAPVALUE = 'X'.
* WA_DEP_AREASX-EXP_ULIFE_SDEP_YRS = WA_AS01-EXP_ULIFE_SDEP_YRS.
* WA_DEP_AREASX-EXP_ULIFE_SDEP_PRDS = WA_AS01-EXP_ULIFE_SDEP_PRDS.
IF WA_AS01-AFABG IS NOT INITIAL.
WA_DEP_AREASX-ODEP_START_DATE = 'X'.
ENDIF.
APPEND WA_DEP_AREASX TO WA_DEP_AREASX.
CLEAR WA_DEP_AREASX.
WA_DEP_AREASX-AREA = '15'.
WA_DEP_AREASX-DEP_KEY = 'X'.
WA_DEP_AREASX-ULIFE_YRS = 'X'.
WA_DEP_AREASX-ULIFE_PRDS = 'X'.
APPEND WA_DEP_AREASX TO WA_DEP_AREASX.
CALL FUNCTION 'BAPI_FIXEDASSET_CREATE1'
EXPORTING
KEY = WA_SCREEN
* REFERENCE =
* CREATESUBNUMBER =
* POSTCAP =
* CREATEGROUPASSET =
* TESTRUN =
GENERALDATA = WA_GENARAL
GENERALDATAX = WA_GENARALX
* INVENTORY =
* INVENTORYX =
POSTINGINFORMATION = WA_POST
POSTINGINFORMATIONX = WA_POSTX
TIMEDEPENDENTDATA = WA_TIME
TIMEDEPENDENTDATAX = WA_TIMEX
ALLOCATIONS = WA_ALLOCATION
ALLOCATIONSX = WA_ALLOCATIONX
ORIGIN = WA_ORIGIN
ORIGINX = WA_ORIGINX
* INVESTACCTASSIGNMNT =
* INVESTACCTASSIGNMNTX =
* NETWORTHVALUATION =
* NETWORTHVALUATIONX =
* REALESTATE =
* REALESTATEX =
* INSURANCE =
* INSURANCEX =
* LEASING =
* LEASINGX =
IMPORTING
* COMPANYCODE =
ASSET = wa_assetno
* SUBNUMBER =
* ASSETCREATED =
RETURN = it_ret
TABLES
DEPRECIATIONAREAS = WA_DEP_AREAS[]
DEPRECIATIONAREASX = WA_DEP_AREASX[]
* INVESTMENT_SUPPORT =
* EXTENSIONIN =
.
Bluesky
