Elements 11 newbie
Trying to organize and edit large amount of photos. Trying tobreak it up into tags. How do i switch from
organizing to editing so i can accomplish this task in batches?
Use shift+click to select blocks of thumbnails in Organizer then click the Editor button
Similar Messages
-
Adding Data to the database for SAP Transactions
Hi
I'm new to the whole ABAP. I would like to enquire about adding transaction data in SAP through ABAP but it must be immediate.
I know that one can use a BAPI to add data and can rollback if any problems occur.
But if no BAPI exists how does one write code to add a document to the SAP database but with everything SAP transaction requires like the BAPI. What is the process and how???
So let say I wanted to do FB01 which is SAP FI document and must be immediate. There is a BAPI that exists for it but if there was not one how would I do this???
I know one can also use BDC but that creates a batch and then needs to be executed in SM35, I want a way to add data for two or three SAP transactions, if any problems occur with any of the steps rollback everything else commit everything to the database.
Any simple detail examples (code) that satisfy the above will be greatly appreciated and REWARDED.
Thanks in advanceLuis,
i have a code exactly same BDC for FB01.
refer:
REPORT z_etching_fb01
NO STANDARD PAGE HEADING LINE-SIZE 255.
*etching invoice load
INCLUDE bdcrecx1.
TYPE-POOLS: truxs , slis.
*PARAMETERS: dataset(132) LOWER CASE DEFAULT
* 'c:\temp\etchingload.txt'.
PARAMETER: pfile LIKE rlgrap-filename." OBLIGATORY.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETER: p_kunnr LIKE kna1-kunnr OBLIGATORY, "kna1-kunnr
p_bukrs LIKE bseg-bukrs,
p_mwskz LIKE t007a-mwskz OBLIGATORY,"t007a-mwskz
p_prctr LIKE cepc-prctr OBLIGATORY,"cepc-prctr
* p_newko LIKE ska1-saknr OBLIGATORY DEFAULT 41000000,"
p_budat LIKE bkpf-budat OBLIGATORY ,
p_hkont LIKE bseg-hkont OBLIGATORY DEFAULT 41000000 ,
p_waers TYPE waers OBLIGATORY DEFAULT 'GBP'."tcurr-waers
SELECTION-SCREEN END OF BLOCK a.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-002.
PARAMETER : report AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b.
*** DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
* If it is nessesary to change the data section use the rules:
* 1.) Each definition of a field exists of two lines
* 2.) The first line shows exactly the comment
* '* data element: ' followed with the data element
* which describes the field.
* If you don't have a data element use the
* comment without a data element name
* 3.) The second line shows the fieldname of the
* structure, the fieldname must consist of
* a fieldname and optional the character '_' and
* three numbers and the field length in brackets
* 4.) Each field must be type C.
*** Generated data section with specific formatting - DO NOT CHANGE ***
* ALV *
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat LIKE LINE OF it_fieldcat,
it_top_of_page TYPE slis_t_listheader,
ls_layout TYPE slis_layout_alv,
gt_events TYPE slis_t_event.
DATA: it_raw TYPE truxs_t_text_data.
DATA: BEGIN OF record,
* data element: BLDAT
bldat_001(010), "Invoice Date
* data element: BLART
blart_002(002), " Doc Type DR or DG if credit
* data element: BUKRS
bukrs_003(004), " Company Code
* data element: BUDAT
budat_004(010), "Posting Date
* data element: MONAT
monat_005(002), "period"
* data element: WAERS
waers_006(005), "Currency
* data element: XBLNR1
xblnr_007(016), "Invoice Number
* data element: BKTXT
bktxt_008(025), "PO number
* data element: SAEOBJART
docid_009(010),
* data element: NEWBS
newbs_010(002), "posting Key
* data element: NEWKO
newko_011(017), "Customer number or GL account
* data element: WRBTR
wrbtr_012(016), "Amount
* data element: DZTERM
zterm_013(004),
* data element: DZBD1T
zbd1t_014(003),
* data element: DZFBDT
zfbdt_015(010),
* data element: DZUONR
zuonr_016(018), "Invoice Number
* data element: SGTXT
sgtxt_017(050), " PO number
* data element: NEWBS
newbs_018(002),
* data element: NEWKO
newko_019(017), "GL Account
* data element: WRBTR
wrbtr_020(016), "Amount
* data element: MWSKZ
mwskz_021(002), "Tax
* data element: DZUONR
zuonr_022(018), "Invoice Number
* data element: SGTXT
sgtxt_023(050), "PO Number
* data element: PRCTR
prctr_024(010), "Profit Center
* data element: WRBTR
wrbtr_025(016), " Amount
* data element: MWSKZ
mwskz_026(002), "Tax
* data element: DZUONR
zuonr_027(018), "Invoice Number
* data element: SGTXT
sgtxt_028(050), "PO Number
* data element: FMORE
fmore_029(001),
* data element: PRCTR
prctr_030(010), "Pr Center
* data element: FWSTE
fwste_01_031(016),
END OF record.
DATA: BEGIN OF it_excel OCCURS 0,
* data element: XBLNR1
xblnr_007(016), "Invoice Number
* data element: BLDAT
bldat_001(010), "Invoice Date
* data element: WRBTR
wrbtr_012(016), "Amount
* data element: WRBTR
wrbtr_025(016), " Tax Amount
* data element: WRBTR
wrbtr_020(016), "Gross Amount
* data element: BLART
blart_002(002), " No of units
* data element: MONAT
monat_005(002), "No of units second test"
* data element: BKTXT
bktxt_008(025), "PO number
* data element: SGTXT
sgtxt_017(050), " PO number
* data element: BUKRS
bukrs_003(004), " Company Code
* data element: BUDAT
budat_004(010), "Posting Date
* budat_004 TYPE string, "Posting Date
* data element: WAERS
waers_006(005), "Currency*
* data element: NEWKO
newko_011(017), "Customer number or GL account
* data element : kunnr
kunnr_019(010), " customer
mwskz(002),
prctr(010),
date(002),
month(002),
** data element: BKTXT
* bktxt_008(025), "PO number
** data element: SAEOBJART
* docid_009(010),
** data element: NEWBS
* newbs_010(002), "posting Key
** data element: DZTERM
* zterm_013(004),
** data element: DZBD1T
* zbd1t_014(003),
** data element: DZFBDT
* zfbdt_015(010),
** data element: DZUONR
* zuonr_016(018), "Invoice Number
** data element: NEWBS
* newbs_018(002),
** data element: NEWKO
* newko_019(017), "GL Account
** data element: MWSKZ
* mwskz_021(002), "Tax
** data element: DZUONR
* zuonr_022(018), "Invoice Number
** data element: SGTXT
* sgtxt_023(050), "PO Number
** data element: PRCTR
* prctr_024(010), "Profit Center
** data element: MWSKZ
* mwskz_026(002), "Tax
** data element: DZUONR
* zuonr_027(018), "Invoice Number
** data element: SGTXT
* sgtxt_028(050), "PO Number
** data element: FMORE
* fmore_029(001),
** data element: PRCTR
* prctr_030(010), "Pr Center
** data element: FWSTE
* fwste_01_031(016),
END OF it_excel.
DATA : BEGIN OF it_bkpf OCCURS 0,
belnr LIKE bkpf-belnr,
budat LIKE bkpf-budat,
bldat LIKE bkpf-bldat,
xblnr LIKE bkpf-xblnr,
bktxt LIKE bkpf-bktxt,
total LIKE bseg-dmbtr,
numdocs TYPE p DECIMALS 0,
END OF it_bkpf,
BEGIN OF it_bseg OCCURS 0,
belnr LIKE bseg-belnr,
dmbtr LIKE bseg-dmbtr,
mwsts LIKE bseg-mwsts,
pswsl LIKE bseg-pswsl,
END OF it_bseg,
BEGIN OF it_final OCCURS 0,
belnr LIKE bkpf-belnr,
budat LIKE bkpf-budat,
bldat LIKE bkpf-bldat,
xblnr LIKE bkpf-xblnr,
bktxt LIKE bkpf-bktxt,
dmbtr LIKE bseg-dmbtr,
mwsts LIKE bseg-mwsts,
pswsl LIKE bseg-pswsl,
END OF it_final.
***** End generated data section ***
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pfile.
PERFORM sub_browse_file. "Get file name
START-OF-SELECTION.
PERFORM sub_data_load. " Transfer excel into internal table.
PERFORM sub_calc_excel.
IF report = 'X'.
* PERFORM data_selection.
* PERFORM data_move.
*********************************GET ALV DATA
PERFORM alv_get_data.
*********************************ALV GRID DATA
PERFORM alv_grid.
ENDIF.
*if report = ''.
* PERFORM write.
* PERFORM open_dataset USING dataset.
PERFORM open_group.
* DO.
* READ DATASET dataset INTO record.
LOOP AT it_excel.
* IF sy-subrc <> 0. EXIT. ENDIF.
PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF05A-NEWKO'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BKPF-BLDAT'
it_excel-bldat_001.
PERFORM bdc_field USING 'BKPF-BLART'
'DR'." record-blart_002.
PERFORM bdc_field USING 'BKPF-BUKRS'
it_excel-bukrs_003.
PERFORM bdc_field USING 'BKPF-BUDAT'
it_excel-budat_004.
PERFORM bdc_field USING 'BKPF-MONAT'
'3'. "record-monat_005.
PERFORM bdc_field USING 'BKPF-WAERS'
it_excel-waers_006.
PERFORM bdc_field USING 'BKPF-XBLNR'
it_excel-xblnr_007.
PERFORM bdc_field USING 'BKPF-BKTXT'
it_excel-bktxt_008.
PERFORM bdc_field USING 'FS006-DOCID'
'*' ."record-docid_009.
PERFORM bdc_field USING 'RF05A-NEWBS'
'01'." record-newbs_010.
PERFORM bdc_field USING 'RF05A-NEWKO'
it_excel-kunnr_019 .
PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF05A-NEWKO'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BSEG-WRBTR'
it_excel-wrbtr_020." it_excel-wrbtr_012.
PERFORM bdc_field USING 'BSEG-ZTERM'
'NT30' ." record-zterm_013.
PERFORM bdc_field USING 'BSEG-ZBD1T'
'30'."record-zbd1t_014.
PERFORM bdc_field USING 'BSEG-ZFBDT'
it_excel-bldat_001."record-zfbdt_015.
PERFORM bdc_field USING 'BSEG-ZUONR'
it_excel-xblnr_007."record-zuonr_016.
PERFORM bdc_field USING 'BSEG-SGTXT'
it_excel-sgtxt_017.
PERFORM bdc_field USING 'RF05A-NEWBS'
'50'." record-newbs_018.
PERFORM bdc_field USING 'RF05A-NEWKO'
it_excel-newko_011." record-newko_019."Gl account
PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
PERFORM bdc_field USING 'BDC_CURSOR'
'BSEG-SGTXT'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BSEG-WRBTR'
it_excel-wrbtr_012."changes from 12 to 20
PERFORM bdc_field USING 'BSEG-MWSKZ'
it_excel-mwskz." record-mwskz_021.
PERFORM bdc_field USING 'BSEG-ZUONR'
it_excel-xblnr_007." record-zuonr_022.
PERFORM bdc_field USING 'BSEG-SGTXT'
it_excel-sgtxt_017." record-sgtxt_023.
PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING 'BDC_CURSOR'
'COBL-PRCTR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTE'.
PERFORM bdc_field USING 'COBL-PRCTR'
it_excel-prctr ." record-prctr_024.
PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
PERFORM bdc_field USING 'BDC_CURSOR'
'BSEG-WRBTR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=STER'.
PERFORM bdc_field USING 'BSEG-WRBTR'
it_excel-wrbtr_012." it_excel-wrbtr_025.
PERFORM bdc_field USING 'BSEG-MWSKZ'
it_excel-mwskz.
PERFORM bdc_field USING 'BSEG-ZUONR'
it_excel-xblnr_007." record-zuonr_027.
PERFORM bdc_field USING 'BSEG-SGTXT'
it_excel-sgtxt_017." record-sgtxt_028.
PERFORM bdc_field USING 'DKACB-FMORE'
'X' ."record-fmore_029.
PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING 'BDC_CURSOR'
'COBL-PARGB'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTE'.
PERFORM bdc_field USING 'COBL-PRCTR'
it_excel-prctr." record-prctr_030.
PERFORM bdc_dynpro USING 'SAPLTAX1' '0300'.
PERFORM bdc_field USING 'BDC_CURSOR'
'BSET-FWSTE(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=GOBU'.
PERFORM bdc_field USING 'BSET-FWSTE(01)'
it_excel-wrbtr_025." record-fwste_01_031.
PERFORM bdc_transaction USING 'FB01'.
REFRESH:bdcdata,messtab.
ENDLOOP.
REFRESH:bdcdata.
** PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'RF05A-NEWKO'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '/00'.
* PERFORM bdc_field USING 'BKPF-BLDAT'
* record-bldat_001.
* PERFORM bdc_field USING 'BKPF-BLART'
* record-blart_002.
* PERFORM bdc_field USING 'BKPF-BUKRS'
* record-bukrs_003.
* PERFORM bdc_field USING 'BKPF-BUDAT'
* record-budat_004.
* PERFORM bdc_field USING 'BKPF-MONAT'
* record-monat_005.
* PERFORM bdc_field USING 'BKPF-WAERS'
* record-waers_006.
* PERFORM bdc_field USING 'BKPF-XBLNR'
* record-xblnr_007.
* PERFORM bdc_field USING 'BKPF-BKTXT'
* record-bktxt_008.
* PERFORM bdc_field USING 'FS006-DOCID'
* record-docid_009.
* PERFORM bdc_field USING 'RF05A-NEWBS'
* record-newbs_010.
* PERFORM bdc_field USING 'RF05A-NEWKO'
* record-newko_011.
* PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'RF05A-NEWKO'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '/00'.
* PERFORM bdc_field USING 'BSEG-WRBTR'
* record-wrbtr_012.
* PERFORM bdc_field USING 'BSEG-ZTERM'
* record-zterm_013.
* PERFORM bdc_field USING 'BSEG-ZBD1T'
* record-zbd1t_014.
* PERFORM bdc_field USING 'BSEG-ZFBDT'
* record-zfbdt_015.
* PERFORM bdc_field USING 'BSEG-ZUONR'
* record-zuonr_016.
* PERFORM bdc_field USING 'BSEG-SGTXT'
* record-sgtxt_017.
* PERFORM bdc_field USING 'RF05A-NEWBS'
* record-newbs_018.
* PERFORM bdc_field USING 'RF05A-NEWKO'
* record-newko_019.
* PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'BSEG-SGTXT'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '/00'.
* PERFORM bdc_field USING 'BSEG-WRBTR'
* record-wrbtr_020.
* PERFORM bdc_field USING 'BSEG-MWSKZ'
* record-mwskz_021.
* PERFORM bdc_field USING 'BSEG-ZUONR'
* record-zuonr_022.
* PERFORM bdc_field USING 'BSEG-SGTXT'
* record-sgtxt_023.
* PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'COBL-PRCTR'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=ENTE'.
* PERFORM bdc_field USING 'COBL-PRCTR'
* record-prctr_024.
* PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'BSEG-WRBTR'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=STER'.
* PERFORM bdc_field USING 'BSEG-WRBTR'
* record-wrbtr_025.
* PERFORM bdc_field USING 'BSEG-MWSKZ'
* record-mwskz_026.
* PERFORM bdc_field USING 'BSEG-ZUONR'
* record-zuonr_027.
* PERFORM bdc_field USING 'BSEG-SGTXT'
* record-sgtxt_028.
* PERFORM bdc_field USING 'DKACB-FMORE'
* record-fmore_029.
* PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'COBL-PARGB'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=ENTE'.
* PERFORM bdc_field USING 'COBL-PRCTR'
* record-prctr_030.
* PERFORM bdc_dynpro USING 'SAPLTAX1' '0300'.
* PERFORM bdc_field USING 'BDC_CURSOR'
* 'BSET-FWSTE(01)'.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=GOBU'.
* PERFORM bdc_field USING 'BSET-FWSTE(01)'
* record-fwste_01_031.
* PERFORM bdc_transaction USING 'FB01'.
* ENDDO.
PERFORM close_group.
* PERFORM close_dataset USING dataset.
*endif.
*& Form sub_browse_file
* text
* --> p1 text
* <-- p2 text
FORM sub_browse_file .
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
* FIELD_NAME = ' '
IMPORTING
file_name = pfile.
ENDFORM. " sub_browse_file
*& Form sub_data_load
* text
* --> p1 text
* <-- p2 text
FORM sub_data_load .
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = it_raw
i_filename = pfile
TABLES
i_tab_converted_data = it_excel[]
* EXCEPTIONS
* CONVERSION_FAILED = 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.
ENDFORM. " sub_data_load
**& Form data_selection
** text
** --> p1 text
** <-- p2 text
*FORM data_selection .
* SELECT * FROM bkpf
* INTO CORRESPONDING FIELDS OF TABLE it_bkpf
* WHERE budat = p_budat AND
* bukrs = p_bukrs.
* IF NOT it_bkpf[] IS INITIAL.
* SELECT belnr dmbtr mwsts pswsl
* FROM bseg INTO TABLE it_bseg
* FOR ALL ENTRIES IN it_bkpf
* WHERE belnr = it_bkpf-belnr AND
* kunnr = p_kunnr AND
* hkont = p_hkont AND
* pswsl = p_waers.
* ENDIF.
*ENDFORM. " data_selection
**& Form data_move
** text
** --> p1 text
** <-- p2 text
*FORM data_move.
* SORT : it_bseg BY belnr,
* it_bkpf BY belnr.
* LOOP AT it_bseg.
* it_final-dmbtr = it_bseg-dmbtr.
* it_final-belnr = it_bseg-belnr.
* it_final-mwsts = it_bseg-mwsts.
* it_final-pswsl = it_bseg-pswsl.
* READ TABLE it_bkpf WITH KEY belnr = it_bseg-belnr BINARY SEARCH.
* IF sy-subrc = 0.
* it_final-budat = it_bkpf-budat.
* it_final-bldat = it_bkpf-bldat.
* it_final-xblnr = it_bkpf-xblnr.
* it_final-bktxt = it_bkpf-bktxt.
* ENDIF.
* APPEND it_final.
* CLEAR it_final.
* ENDLOOP.
*ENDFORM. " data_move
*& Form alv_get_data
* text
* --> p1 text
* <-- p2 text
FORM alv_get_data .
CLEAR it_fieldcat.
***************** Document number
* wa_fieldcat-col_pos = '1'. " ALV O/P COL-1
wa_fieldcat-fieldname = 'XBLNR_007'.
wa_fieldcat-seltext_m = 'Document number'.
wa_fieldcat-just = 'L'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
***************** Posting Date
* wa_fieldcat-col_pos = '2'. " ALV O/P COL-1
wa_fieldcat-fieldname = 'BUDAT_004'.
wa_fieldcat-seltext_m = 'Posting Date'.
wa_fieldcat-just = 'L'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 20.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
******************** Document Date
* wa_fieldcat-col_pos = '3'. " ALV O/P COL-2
wa_fieldcat-fieldname = 'BLDAT_001'.
wa_fieldcat-seltext_m = 'Document Date'.
wa_fieldcat-just = 'L'.
wa_fieldcat-tabname = 'IT_EXCEL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
********************* REFERENCE DOCUMENT
** wa_fieldcat-col_pos = '4'. " ALV O/P COL-2
* wa_fieldcat-fieldname = 'XBLNR'.
* wa_fieldcat-seltext_m = 'REFERENCE DOCUMENT'.
* wa_fieldcat-just = 'L'.
* wa_fieldcat-tabname = 'IT_EXCEL'.
** wa_fieldcat-outputlen = 15.
* APPEND wa_fieldcat TO it_fieldcat.
* CLEAR wa_fieldcat.
***************** DOCUMENT HEADER TEXT
* wa_fieldcat-col_pos = '5'. " ALV O/P COL-3
wa_fieldcat-fieldname = 'SGTXT_017'.
wa_fieldcat-seltext_m = 'DOCUMENT HEADER TEXT'.
wa_fieldcat-just = 'L'.
wa_fieldcat-tabname = 'IT_EXCEL'.
* wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*******************Invoice Net amount
* wa_fieldcat-col_pos = '6'. " ALV O/P COL-4
wa_fieldcat-fieldname = 'WRBTR_012'.
wa_fieldcat-seltext_m = 'Invoice Net amount'.
wa_fieldcat-just = 'L'.
wa_fieldcat-tabname = 'IT_EXCEL'.
* wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** Tax Amount
* wa_fieldcat-col_pos = '7'. " ALV O/P COL-5
wa_fieldcat-fieldname = 'WRBTR_025'.
wa_fieldcat-seltext_m = 'Tax Amount'.
wa_fieldcat-just = 'L'.
* wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** NEt Amount
* wa_fieldcat-col_pos = '7'. " ALV O/P COL-5
wa_fieldcat-fieldname = 'WRBTR_020'.
wa_fieldcat-seltext_m = 'Net Amount'.
wa_fieldcat-just = 'L'.
* wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** General ledger currency
* wa_fieldcat-col_pos = '7'. " ALV O/P COL-5
wa_fieldcat-fieldname = 'WAERS_006'.
wa_fieldcat-seltext_l = 'General ledger currency'.
wa_fieldcat-just = 'L'.
* wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 25.
wa_fieldcat-tabname = 'IT_EXCEL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " alv_get_data
*& Form alv_grid
* text
* --> p1 text
* <-- p2 text
FORM alv_grid .
* PERFORM fill_list_header USING it_top_of_page[].
* PERFORM event-build USING gt_events[].
PERFORM fill_layout USING ls_layout.
MESSAGE 'Please press F3 to generate a session or call transaction method after getting report!' TYPE 'I'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = ls_layout
it_fieldcat = it_fieldcat
it_events = gt_events[]
i_save = 'A'
TABLES
t_outtab = it_excel
EXCEPTIONS
program_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.
ENDFORM. " alv_grid
* FORM FILL_LAYOUT *
FORM fill_layout USING p_ls_layout TYPE slis_layout_alv.
p_ls_layout-zebra = 'X'.
p_ls_layout-cell_merge = 'X'.
ENDFORM. "fill_layout
*& Form sub_calc_excel
* text
* --> p1 text
* <-- p2 text
FORM sub_calc_excel .
data: idate TYPE sy-datum,
tdat8 type string.
LOOP AT it_excel.
CONCATENATE it_excel-blart_002 '/' it_excel-monat_005 '/' it_excel-bktxt_008 INTO
it_excel-sgtxt_017.
it_excel-bukrs_003 = p_bukrs.
* it_excel-budat_004 = p_budat.
it_excel-waers_006 = p_waers.
it_excel-newko_011 = p_hkont.
it_excel-kunnr_019 = p_kunnr.
it_excel-mwskz = p_mwskz.
it_excel-prctr = p_prctr.
idate = p_budat.
CALL FUNCTION 'DATUMSAUFBEREITUNG'
EXPORTING
* FLAGM = ' '
* FLAGW = ' '
IDATE = idate
* IMONT = ' '
* IWEEK = ' '
IMPORTING
* MDAT4 =
* MDAT6 =
* TDAT4 =
* TDAT6 =
TDAT8 = tdat8
* WDAT4 =
* WDAT6 =
* EXCEPTIONS
* DATFM_UNGUELTIG = 1
* DATUM_UNGUELTIG = 2
* OTHERS = 3
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
it_excel-budat_004 = tdat8.
* CONCATENATE it_excel-budat_004+4(2) '/' it_excel-budat_004+6(2) '/' it_excel-budat_004+0(4)
* INTO it_excel-budat_004.
* SPLIT it_excel-bldat_001 AT '/' INTO it_excel-month it_excel-date.
* CONCATENATE it_excel-date '.' it_excel-month '.' it_excel-bldat_001+6(4) INTO it_excel-bldat_001.
MODIFY it_excel.
CLEAR it_excel.
ENDLOOP.
ENDFORM. " sub_calc_excel
*& Form write
* text
* --> p1 text
* <-- p2 text
*form write .
*OPEN DATASET dataset FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
*data: wa_excel like line of it_excel.
*loop at it_excel into wa_excel.
*TRANSFER wa_excel to dataset.
*endloop.
*CLOSE DATASETdataset.
*endform. " write -
Colour Always Reverts to Black & White
Hi Guys!
Firstly, I should point out that I'm a Photoshop Elements newbie.
I'm trying to create some colour stencils using Photoshop Elements 10.
When I select "threshold" on adjustment layer, the foreground colour always reverts to black and white, sometimes grey. After that, even if I select any other colour, I am unable to fill with anything other than black or white - and I get some weird rainbow-like effect. The program simply won't let me fill with colour.
This wasn't happening until today!
Does anyone know why this is happening and what I can do to stop it?!
I've had a look on a few forums - the general answer is that "greyscale" is selected in mode. It isn't, RGB Colour is selected.
Many thanks in advance for your help!
SamThe whole point of threshold is that it discards all color infomation and mkes every pixel either pure white or pure black. Don't use it if you want to do color, or add a hue/saturation adjustmet layer after using it with the colorize checkbox turned on.
-
Dear All,
I needs to write a BDC For the Tr F-54. Can any one tell me is there any BAPI for
the Clear vendor down payments(F-54). Plz help me.
Thanks & Regards,
Durai.THi
i m sending u the code for BDCFOR F-64 that is to park the document for customer and vendor so it has two recording customer and vendor..
Just see to it
and do reward points pls...
REPORT ZFI_F64_TOS
NO STANDARD PAGE HEADING LINE-SIZE 255.
*include bdcrecx1.
**======================================================
**DATA DECLARATION FOR CUSTOMER
**=======================================================
TYPES : BEGIN OF TY_BSEG,
BELNR TYPE BSEG-BELNR, "Doc no
ZFBDT TYPE BSEG-ZFBDT, "base line date
ZTERM TYPE BSEG-ZTERM, " payment terms
ZLSCH TYPE BSEG-ZLSCH, " pay. mode
VALUT TYPE BSEG-VALUT, " valut date
FIPOS TYPE BSEG-FIPOS, " commitment line
END OF TY_BSEG.
TYPES: BEGIN OF TY_KNB1,
KUNNR TYPE KNB1-KUNNR,
BUKRS TYPE KNB1-BUKRS,
ZWELS TYPE KNB1-ZWELS,
ZTERM TYPE KNB1-ZTERM,
END OF TY_KNB1.
TYPES : BEGIN OF TY_RECO,
SRNO TYPE I,
BLDAT_001(010), " BLDAT
BLART_002(002), " BLART
BUKRS_003 TYPE BSEG-BUKRS, " BUKRS
BUDAT_004(010), " BUDAT
MONAT_005(002), " MONAT
WAERS_006(005), " WAERS
XBLNR_007(016), " XBLNR1
BKTXT_008(025), " BKTXT
XBWAE_009(001), " XBWAE
DOCID_010(010), " SAEOBJART
NEWBS_011(002), " NEWBS
NEWKO_012 TYPE BSEG-KUNNR ,"(017), " NEWKO
WRBTR_013(016), " WRBTR
XMWST_014(001), " XMWST
MWSKZ_015(002), " MWSKZ
ZTERM_016(004), " DZTERM
ZFBDT_017(010), " DZFBDT
ZLSCH_018(001), " SCHZW_BSEG
NEWBS_019(002), " NEWBS
NEWKO_020(017), " NEWKO
WRBTR_021(016), " WRBTR
MWSKZ_022(002), " MWSKZ
XMWST_023(001), " XMWST
VALUT_024(010), " VALUT
FMORE_025(001), " FMORE
GSBER_026(004), " GSBER
FIPEX_027(024), " FM_FIPEX
FIPOS_028(024), " FIPOS
QTY(024),
UOM(020),
FIELD_13_029(032), " EIGXX
FIELD_15_030(032), " EIGXX
FIELD_09_031(032), " EIGXX
FIELD_10_032(032), " EIGXX
FIELD_11_033(032), " EIGXX
FIELD_12_034(032), " EIGXX
FIELD_13_035(032), " EIGXX
FIELD_14_036(032), " EIGXX
FIELD_15_037(032), " EIGXX
GSBER_038(004), " GSBER
PRCTR_039(010), " PRCTR
FIPEX_040(024), " FM_FIPEX
FIPOS_041(024), " FIPOS
NEWBS_042(002), " NEWBS
NEWKO_043(017), " NEWKO
MWSKZ_044(002), " MWSKZ
XMWST_045(001), " XMWST
VALUT_046(010), " VALUT
FMORE_047(001), " FMORE
FIPEX_048(024), " FM_FIPEX
FIPOS_049(024), " FIPOS
END OF TY_RECO.
TYPES: BEGIN OF RECORD_CUST ,
SRNO TYPE I,
data element: BLDAT
BLDAT_001(010),
data element: BLART
BLART_002(002),
data element: BUKRS
BUKRS_003(004),
data element: BUDAT
BUDAT_004(010),
data element: MONAT
MONAT_005(002),
data element: WAERS
WAERS_006(005),
data element: XBLNR1
XBLNR_007(016),
data element: BKTXT
BKTXT_008(025),
data element: XBWAE
XBWAE_009(001),
data element: SAEOBJART
DOCID_010(010),
data element: NEWBS
NEWBS_011(002),
data element: NEWKO
NEWKO_012(017),
data element: WRBTR
WRBTR_013(016),
data element: XMWST
XMWST_014(001),
data element: MWSKZ
MWSKZ_015(002),
data element: DZTERM
ZTERM_016(004),
data element: DZFBDT
ZFBDT_017(010),
data element: SCHZW_BSEG
ZLSCH_018(001),
data element: NEWBS
NEWBS_019(002),
data element: NEWKO
NEWKO_020(017),
data element: WRBTR
WRBTR_021(016),
data element: MWSKZ
MWSKZ_022(002),
data element: XMWST
XMWST_023(001),
data element: VALUT
VALUT_024(010),
data element: FMORE
FMORE_025(001),
data element: GSBER
GSBER_026(004),
data element: FM_FIPEX
QTY(024),
UOM(020),
FIPEX_027(024),
data element: FIPOS
FIPOS_028(024),
data element: EIGXX
FIELD_13_029(032),
data element: EIGXX
FIELD_15_030(032),
data element: EIGXX
FIELD_09_031(032),
data element: EIGXX
FIELD_10_032(032),
data element: EIGXX
FIELD_11_033(032),
data element: EIGXX
FIELD_12_034(032),
data element: EIGXX
FIELD_13_035(032),
data element: EIGXX
FIELD_14_036(032),
data element: EIGXX
FIELD_15_037(032),
data element: GSBER
GSBER_038(004),
data element: PRCTR
PRCTR_039(010),
data element: FM_FIPEX
FIPEX_040(024),
data element: FIPOS
FIPOS_041(024),
data element: NEWBS
NEWBS_042(002),
data element: NEWKO
NEWKO_043(017),
data element: MWSKZ
MWSKZ_044(002),
data element: XMWST
XMWST_045(001),
data element: VALUT
VALUT_046(010),
data element: FMORE
FMORE_047(001),
data element: FM_FIPEX
FIPEX_048(024),
data element: FIPOS
FIPOS_049(024),
END OF RECORD_CUST.
End generated data section ***
DATA : RECORD TYPE STANDARD TABLE OF RECORD_CUST,
WA_RECORD TYPE RECORD_CUST.
DATA : IT_RECO TYPE STANDARD TABLE OF TY_RECO,
WA_RECO TYPE TY_RECO,
IT_RECO1 TYPE STANDARD TABLE OF RECORD_CUST,
WA_RECO1 TYPE RECORD_CUST,
WA_RECO2 TYPE RECORD_CUST.
DATA : TEMP TYPE I.
DATA : IT_BSEG TYPE STANDARD TABLE OF TY_BSEG,
WA_BSEG TYPE TY_BSEG.
DATA : IT_KNB1 TYPE STANDARD TABLE OF TY_KNB1,
WA_KNB1 TYPE TY_KNB1.
DATA: BDCDATA TYPE STANDARD TABLE OF BDCDATA ,
WA_BDCDATA TYPE BDCDATA,
MESSTAB TYPE STANDARD TABLE OF BDCMSGCOLL ,
WA_MESSTAB TYPE BDCMSGCOLL.
**======================================================
**DATA DECLARATION FOR VENDOR
**=======================================================
TYPES : BEGIN OF TY_BSEG_VEN,
BELNR TYPE BSEG-BELNR, "Doc no
ZFBDT TYPE BSEG-ZFBDT, "base line date
ZTERM TYPE BSEG-ZTERM, " payment terms
ZLSCH TYPE BSEG-ZLSCH, " pay. mode
VALUT TYPE BSEG-VALUT, " valut date
FIPOS TYPE BSEG-FIPOS, " commitment line
ZBD1T TYPE BSEG-ZBD1T, " NO OF DAYS
ZLSPR TYPE BSEG-ZLSPR, " STOP PAYMENT
FISTL TYPE BSEG-FISTL, " FUND CENTER
END OF TY_BSEG_VEN.
TYPES: BEGIN OF TY_LFB1,
LIFNR TYPE LFB1-LIFNR,
BUKRS TYPE LFB1-BUKRS,
ZWELS TYPE LFB1-ZWELS,
ZTERM TYPE LFB1-ZTERM,
END OF TY_LFB1.
TYPES : BEGIN OF TY_RECO_VEN,
SRNO TYPE I,
BLDAT_001(010),
BLART_002(002),
BUKRS_003 TYPE BSEG-BUKRS ,
BUDAT_004(010),
MONAT_005(002),
WAERS_006(005),
XBLNR_007(016),
BKTXT_008(025),
XBWAE_009(001),
DOCID_010(010),
NEWBS_011(002),
NEWKO_012 TYPE BSEG-LIFNR ,
WRBTR_013(016),
XMWST_014(001),
MWSKZ_015(002),
ZTERM_016(004),
ZBD1T_017(003),
ZFBDT_018(010),
ZLSPR_019(001),
ZLSCH_020(001),
NEWBS_021(002),
NEWKO_022(017),
WRBTR_023(016),
MWSKZ_024(002),
XMWST_025(001),
VALUT_026(010),
FMORE_027(001),
GSBER_028(004),
QTY(024),
UOM(020),
FISTL_029(016), "FUND CENTER
FIPEX_030(024),
FIPOS_031(024),
FIELD_13_032(032),
FIELD_15_033(032),
FIELD_09_034(032),
FIELD_10_035(032),
FIELD_11_036(032),
FIELD_13_037(032),
FIELD_14_038(032),
FIELD_15_039(032),
GSBER_040(004),
PRCTR_041(010),
FISTL_042(016),
FIPEX_043(024),
FIPOS_044(024),
END OF TY_RECO_VEN.
TYPES: BEGIN OF RECORD_VEN ,
SRNO TYPE I,
data element: BLDAT
BLDAT_001(010),
data element: BLART
BLART_002(002),
data element: BUKRS
BUKRS_003(004),
data element: BUDAT
BUDAT_004(010),
data element: MONAT
MONAT_005(002),
data element: WAERS
WAERS_006(005),
data element: XBLNR1
XBLNR_007(016),
data element: BKTXT
BKTXT_008(025),
data element: XBWAE
XBWAE_009(001),
data element: SAEOBJART
DOCID_010(010),
data element: NEWBS
NEWBS_011(002),
data element: NEWKO
NEWKO_012(017),
data element: WRBTR
WRBTR_013(016),
data element: XMWST
XMWST_014(001),
data element: MWSKZ
MWSKZ_015(002),
data element: DZTERM
ZTERM_016(004),
data element: DZBD1T
ZBD1T_017(003),
data element: DZFBDT
ZFBDT_018(010),
data element: DZLSPR
ZLSPR_019(001),
data element: SCHZW_BSEG
ZLSCH_020(001),
data element: NEWBS
NEWBS_021(002),
data element: NEWKO
NEWKO_022(017),
data element: WRBTR
WRBTR_023(016),
data element: MWSKZ
MWSKZ_024(002),
data element: XMWST
XMWST_025(001),
data element: VALUT
VALUT_026(010),
data element: FMORE
FMORE_027(001),
data element: GSBER
GSBER_028(004),
QTY(024),
UOM(020),
data element: FISTL
FISTL_029(016),
data element: FM_FIPEX
FIPEX_030(024),
data element: FIPOS
FIPOS_031(024),
data element: EIGXX
FIELD_13_032(032),
data element: EIGXX
FIELD_15_033(032),
data element: EIGXX
FIELD_09_034(032),
data element: EIGXX
FIELD_10_035(032),
data element: EIGXX
FIELD_11_036(032),
data element: EIGXX
FIELD_13_037(032),
data element: EIGXX
FIELD_14_038(032),
data element: EIGXX
FIELD_15_039(032),
data element: GSBER
GSBER_040(004),
data element: PRCTR
PRCTR_041(010),
data element: FISTL
FISTL_042(016),
data element: FM_FIPEX
FIPEX_043(024),
data element: FIPOS
FIPOS_044(024),
NEWBS_043(002),
NEWKO_044(017),
END OF RECORD_VEN.
DATA : RECORD_VEN TYPE STANDARD TABLE OF RECORD_VEN,
WA_RECORD_VEN TYPE RECORD_VEN.
DATA : IT_RECO_VEN TYPE STANDARD TABLE OF TY_RECO_VEN,
WA_RECO_VEN TYPE TY_RECO_VEN.
DATA : IT_RECO1_VEN TYPE STANDARD TABLE OF RECORD_VEN ,
WA_RECO1_VEN TYPE RECORD_VEN,
WA_RECO2_VEN TYPE RECORD_VEN.
DATA : TEMP_VEN TYPE I.
DATA : IT_BSEG_VEN TYPE STANDARD TABLE OF TY_BSEG_VEN,
WA_BSEG_VEN TYPE TY_BSEG_VEN.
DATA : IT_LFB1_VEN TYPE STANDARD TABLE OF TY_LFB1,
WA_LFB1_VEN TYPE TY_LFB1.
DATA: BDCDATA_VEN TYPE STANDARD TABLE OF BDCDATA ,
WA_BDCDATA_VEN TYPE BDCDATA,
MESSTAB_VEN TYPE STANDARD TABLE OF BDCMSGCOLL ,
WA_MESSTAB_VEN TYPE BDCMSGCOLL.
DATA: BDCDATA_VEN1 TYPE STANDARD TABLE OF BDCDATA ,
WA_BDCDATA_VEN1 TYPE BDCDATA,
WA_BDCDATA_VEN2 TYPE BDCDATA.
End generated data section ***
**====================================================
**SELECTION SCREEN
**====================================================
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT_001 . "NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(10) TEXT_002.
PARAMETERS: FLNAME TYPE RLGRAP-FILENAME .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT_003 NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS: R01 RADIOBUTTON GROUP R1 DEFAULT 'X' USER-COMMAND RAD.
SELECTION-SCREEN COMMENT 5(15) TEXT_004.
*SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: R02 RADIOBUTTON GROUP R1 .
SELECTION-SCREEN COMMENT 25(15) TEXT_005.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS: R_FOR RADIOBUTTON GROUP R2 DEFAULT 'X' USER-COMMAND RAD.
SELECTION-SCREEN COMMENT 5(15) TEXT_006.
*SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: R_BACK RADIOBUTTON GROUP R2 .
SELECTION-SCREEN COMMENT 25(15) TEXT_007.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
INITIALIZATION.
TEXT_001 = 'Report Specification'.
TEXT_002 = 'File name'.
TEXT_003 = 'Output Specification'.
TEXT_004 = 'Customer Data'.
TEXT_005 = 'Vendor Data'.
TEXT_006 = 'ForeGround'.
TEXT_007 = 'BackGround'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FLNAME.
PERFORM GET_FILENAME.
START-OF-SELECTION.
IF FLNAME IS INITIAL.
MESSAGE 'Please select file' TYPE 'S'.
LEAVE LIST-PROCESSING.
ENDIF.
IF R01 = 'X'.
PERFORM GUI_UPLOAD.
PERFORM FILL_RECORDS.
IF RECORD[] IS NOT INITIAL.
PERFORM BDC_FILL.
ENDIF.
ELSEIF R02 = 'X'.
PERFORM GUI_UPLOAD_VEN.
PERFORM FILL_RECORDS_VEN.
IF RECORD_VEN[] IS NOT INITIAL.
PERFORM BDC_FILL_VEN.
ENDIF.
ENDIF.
*& Form FILL_RECORDS
FORM FILL_RECORDS .
DATA: V_PERIOD TYPE I,
V_PERIOD1 TYPE I.
LOOP AT IT_RECO INTO WA_RECO.
V_PERIOD = WA_RECO-BUDAT_004+3(2) .
IF V_PERIOD = 1.
V_PERIOD1 = '10'.
ELSEIF V_PERIOD = 2.
V_PERIOD1 = '11'.
ELSEIF V_PERIOD = 3.
V_PERIOD1 = '12'.
ELSEIF V_PERIOD = 4.
V_PERIOD1 = '1'.
ELSEIF V_PERIOD = 5.
V_PERIOD1 = '2'.
ELSEIF V_PERIOD = 6.
V_PERIOD1 = '3'.
ELSEIF V_PERIOD = 7.
V_PERIOD1 = '4'.
ELSEIF V_PERIOD = 8.
V_PERIOD1 = '5'.
ELSEIF V_PERIOD = 9.
V_PERIOD1 = '6'.
ELSEIF V_PERIOD = 10.
V_PERIOD1 = '7'.
ELSEIF V_PERIOD = 11.
V_PERIOD1 = '8'.
ELSEIF V_PERIOD = 12.
V_PERIOD1 = '9'.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = WA_RECO-NEWBS_011
IMPORTING
OUTPUT = WA_RECO-NEWBS_011.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = WA_RECO-NEWKO_012
IMPORTING
OUTPUT = WA_RECO-NEWKO_012.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = WA_RECO-BUKRS_003
IMPORTING
OUTPUT = WA_RECO-BUKRS_003.
SELECT SINGLE BELNR ZFBDT ZTERM ZLSCH VALUT FIPOS
FROM BSEG INTO WA_BSEG WHERE KUNNR = WA_RECO-NEWKO_012
AND BUKRS = WA_RECO-BUKRS_003.
AND ZTERM ''
AND ZLSCH '' .
SELECT SINGLE KUNNR BUKRS ZWELS ZTERM
FROM KNB1 INTO WA_KNB1 WHERE KUNNR = WA_RECO-NEWKO_012
AND BUKRS = WA_RECO-BUKRS_003.
SORT IT_BSEG BY ZFBDT DESCENDING.
READ TABLE IT_BSEG INTO WA_BSEG INDEX 1.
DATA: STR TYPE STRING,
STR1 TYPE STRING,
STR2 TYPE STRING,
STR3 TYPE STRING.
STR1 = WA_BSEG-ZFBDT+0(4).
STR2 = WA_BSEG-ZFBDT+4(2).
STR3 = WA_BSEG-ZFBDT+6(2).
CONCATENATE STR3 '.' STR2 '.' STR1 INTO STR.
CONDENSE STR NO-GAPS.
WA_RECORD-SRNO = WA_RECO-SRNO.
WA_RECORD-BLDAT_001 = WA_RECO-BLDAT_001.
WA_RECORD-BLART_002 = WA_RECO-BLART_002.
WA_RECORD-BUKRS_003 = WA_RECO-BUKRS_003.
WA_RECORD-BUDAT_004 = WA_RECO-BUDAT_004.
WA_RECORD-MONAT_005 = V_PERIOD1.
WA_RECORD-WAERS_006 = WA_RECO-WAERS_006.
WA_RECORD-XBLNR_007 = WA_RECO-XBLNR_007.
WA_RECORD-BKTXT_008 = WA_RECO-BKTXT_008.
WA_RECORD-XBWAE_009 = 'X'.
WA_RECORD-DOCID_010 = '*'.
WA_RECORD-NEWBS_011 = WA_RECO-NEWBS_011.
WA_RECORD-NEWKO_012 = WA_RECO-NEWKO_012.
WA_RECORD-WRBTR_013 = WA_RECO-WRBTR_013.
WA_RECORD-XMWST_014 = 'X'.
WA_RECORD-MWSKZ_015 = WA_RECO-MWSKZ_015.
WA_RECORD-ZTERM_016 = WA_KNB1-ZTERM .
WA_RECORD-ZFBDT_017 = WA_RECO-BLDAT_001. "STR." WA_BSEG-ZFBDT .
WA_RECORD-ZLSCH_018 = WA_KNB1-ZWELS.
WA_RECORD-NEWBS_019 = WA_RECO-NEWBS_011.
WA_RECORD-NEWKO_020 = WA_RECO-NEWKO_012.
WA_RECORD-WRBTR_021 = WA_RECO-WRBTR_013.
WA_RECORD-MWSKZ_022 = WA_RECO-MWSKZ_015.
WA_RECORD-XMWST_023 = 'X'.
WA_RECORD-VALUT_024 = WA_RECO-BLDAT_001. "STR """"""""""""""""""""""""""WA_BSEG-VALUT.
WA_RECORD-FMORE_025 = 'X'.
WA_RECORD-GSBER_026 = WA_RECO-GSBER_026.
WA_RECORD-FIPEX_027 = WA_BSEG-FIPOS.
WA_RECORD-FIPOS_028 = WA_BSEG-FIPOS.
WA_RECORD-QTY = WA_RECO-QTY.
WA_RECORD-UOM = WA_RECO-UOM.
WA_RECORD-FIELD_13_029 = WA_RECO-FIELD_13_029.
WA_RECORD-FIELD_15_030 = WA_RECO-FIELD_15_030.
WA_RECORD-FIELD_09_031 = WA_RECO-FIELD_09_031.
WA_RECORD-FIELD_10_032 = WA_RECO-FIELD_10_032.
WA_RECORD-FIELD_11_033 = WA_RECO-FIELD_11_033.
WA_RECORD-FIELD_12_034 = ''. "WA_RECO-FIELD_12_034.
WA_RECORD-FIELD_13_035 = WA_RECO-FIELD_13_035.
WA_RECORD-FIELD_14_036 = WA_RECO-FIELD_14_036.
WA_RECORD-FIELD_15_037 = WA_RECO-FIELD_15_037.
WA_RECORD-GSBER_038 = WA_RECO-GSBER_026.
WA_RECORD-PRCTR_039 = WA_RECO-FIELD_13_029.
WA_RECORD-FIPEX_040 = WA_BSEG-FIPOS.
WA_RECORD-FIPOS_041 = WA_BSEG-FIPOS.
WA_RECORD-NEWBS_042 = WA_RECO-NEWBS_011.
WA_RECORD-NEWKO_043 = WA_RECO-NEWKO_012.
WA_RECORD-MWSKZ_044 = WA_RECO-MWSKZ_015.
WA_RECORD-XMWST_045 = 'X'.
WA_RECORD-VALUT_046 = WA_RECO-BLDAT_001. """str """""""""""""""""""""""WA_BSEG-VALUT.
WA_RECORD-FMORE_047 = 'X'.
WA_RECORD-FIPEX_048 = WA_BSEG-FIPOS.
WA_RECORD-FIPOS_049 = WA_BSEG-FIPOS.
MOVE-CORRESPONDING WA_RECO TO WA_RECORD.
APPEND WA_RECORD TO RECORD.
CLEAR WA_RECORD.
ENDLOOP.
ENDFORM. " FILL_RECORDS
*& Form BDC_FILL
FORM BDC_FILL .
DATA : CNT1 TYPE I VALUE 1.
IT_RECO1[] = RECORD[].
DELETE IT_RECO1 WHERE GSBER_026 = ''.
SORT RECORD BY SRNO ASCENDING .
SORT RECORD BY WRBTR_013 DESCENDING.
DELETE ADJACENT DUPLICATES FROM RECORD COMPARING SRNO .
LOOP AT RECORD INTO WA_RECORD.
TEMP = SY-TABIX.
PERFORM BDC_DYNPRO USING 'SAPLF040' '0100'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RF05V-NEWKO'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD USING 'BKPF-BLDAT'
WA_RECORD-BLDAT_001.
PERFORM BDC_FIELD USING 'BKPF-BLART'
WA_RECORD-BLART_002.
PERFORM BDC_FIELD USING 'BKPF-BUKRS'
WA_RECORD-BUKRS_003.
PERFORM BDC_FIELD USING 'BKPF-BUDAT'
WA_RECORD-BUDAT_004.
PERFORM BDC_FIELD USING 'BKPF-MONAT'
WA_RECORD-MONAT_005.
PERFORM BDC_FIELD USING 'BKPF-WAERS'
WA_RECORD-WAERS_006.
PERFORM BDC_FIELD USING 'BKPF-XBLNR'
WA_RECORD-XBLNR_007.
PERFORM BDC_FIELD USING 'BKPF-BKTXT'
WA_RECORD-BKTXT_008.
PERFORM BDC_FIELD USING 'VBKPF-XBWAE'
WA_RECORD-XBWAE_009.
PERFORM BDC_FIELD USING 'FS006-DOCID'
WA_RECORD-DOCID_010.
PERFORM BDC_FIELD USING 'RF05V-NEWBS'
WA_RECORD-NEWBS_011.
PERFORM BDC_FIELD USING 'RF05V-NEWKO'
WA_RECORD-NEWKO_012.
PERFORM BDC_DYNPRO USING 'SAPLF040' '0301'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RF05V-NEWKO'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD USING 'BSEG-WRBTR'
WA_RECORD-WRBTR_013.
PERFORM BDC_FIELD USING 'BKPF-XMWST'
WA_RECORD-XMWST_014.
PERFORM BDC_FIELD USING 'BSEG-MWSKZ'
WA_RECORD-MWSKZ_015.
PERFORM BDC_FIELD USING 'BSEG-ZTERM'
WA_RECORD-ZTERM_016.
PERFORM BDC_FIELD USING 'BSEG-ZFBDT'
WA_RECORD-ZFBDT_017.
PERFORM BDC_FIELD USING 'BSEG-ZLSCH'
WA_RECORD-ZLSCH_018.
LOOP AT IT_RECO1 WHERE SRNO = RECORD-SRNO.
READ TABLE IT_RECO1 INTO WA_RECO1 WITH KEY SRNO = WA_RECORD-SRNO ."INDEX TEMP.
PERFORM BDC_FIELD USING 'RF05V-NEWBS'
WA_RECO1-NEWBS_019.
PERFORM BDC_FIELD USING 'RF05V-NEWKO'
WA_RECO1-NEWKO_020.
CLEAR cnt1.
LOOP AT IT_RECO1 INTO WA_RECO1 WHERE SRNO = WA_RECORD-SRNO.
CNT1 = 1 + SY-TABIX.
PERFORM BDC_DYNPRO USING 'SAPLF040' '0300'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'BSEG-WRBTR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=ZK'.
PERFORM BDC_FIELD USING 'BSEG-WRBTR'
WA_RECO1-WRBTR_021.
PERFORM BDC_FIELD USING 'BSEG-MWSKZ'
WA_RECO1-MWSKZ_022.
PERFORM BDC_FIELD USING 'BKPF-XMWST'
WA_RECO1-XMWST_023.
PERFORM BDC_FIELD USING 'BSEG-VALUT'
WA_RECO1-VALUT_024.
PERFORM BDC_FIELD USING 'DKACB-FMORE'
WA_RECO1-FMORE_025.
PERFORM BDC_FIELD USING 'BSEG-MENGE'
WA_RECO1-QTY.
PERFORM BDC_FIELD USING 'BSEG-MEINS'
WA_RECO1-UOM.
PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'COBL-GSBER'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=COBL_XERGO'.
PERFORM BDC_FIELD USING 'COBL-GSBER'
WA_RECO1-GSBER_026.
PERFORM BDC_FIELD USING 'COBL-FIPEX'
WA_RECO1-FIPEX_027.
PERFORM BDC_FIELD USING 'COBL-FIPOS'
WA_RECO1-FIPOS_028.
CHANGEED ON 25 APRIL BY RAJAN
PERFORM BDC_FIELD USING 'BSEG-MENGE'
WA_RECO1-QTY.
PERFORM BDC_FIELD USING 'BSEG-MEINS'
WA_RECO1-UOM.
CHANGEED ON 25 APRIL BY RAJAN
PERFORM BDC_DYNPRO USING 'SAPLKEAK' '0300'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RKEAK-FIELD(15)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=P+'.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(13)'
WA_RECO1-FIELD_13_029.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(15)'
WA_RECO1-FIELD_15_030.
PERFORM BDC_DYNPRO USING 'SAPLKEAK' '0300'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RKEAK-FIELD(15)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=WEIT'.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(09)'
WA_RECO1-FIELD_09_031.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(10)'
WA_RECO1-FIELD_10_032.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(11)'
WA_RECO1-FIELD_11_033.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(12)'
WA_RECO1-FIELD_12_034.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(13)'
WA_RECO1-FIELD_13_035.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(14)'
WA_RECO1-FIELD_14_036.
PERFORM BDC_FIELD USING 'RKEAK-FIELD(15)'
WA_RECO1-FIELD_15_037.
PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'COBL-GSBER'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=ENTE'.
PERFORM BDC_FIELD USING 'COBL-GSBER'
WA_RECO1-GSBER_038.
PERFORM BDC_FIELD USING 'COBL-PRCTR'
WA_RECO1-PRCTR_039.
PERFORM BDC_FIELD USING 'COBL-FIPEX'
WA_RECO1-FIPEX_040.
PERFORM BDC_FIELD USING 'COBL-FIPOS'
WA_RECO1-FIPOS_041.
PERFORM BDC_DYNPRO USING 'SAPLF040' '0330'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RF05V-NEWKO'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
READ TABLE IT_RECO1 INTO WA_RECO2 INDEX CNT1.
IF SY-SUBRC = 0.
PERFORM BDC_FIELD USING 'RF05V-NEWBS'
WA_RECO2-NEWBS_042.
PERFORM BDC_FIELD USING 'RF05V-NEWKO'
WA_RECO2-NEWKO_043.
ELSE.
PERFORM BDC_FIELD USING 'RF05V-NEWBS'
WA_RECO1-NEWBS_042.
PERFORM BDC_FIELD USING 'RF05V-NEWKO'
WA_RECO1-NEWKO_043.
ENDIF.
ENDLOOP.
CLEAR CNT1.
PERFORM BDC_DYNPRO USING 'SAPLF040' '0330'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'BSEG-WRBTR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BP'.
PERFORM BDC_DYNPRO_ven USING 'SAPLF040' '0330'.
PERFORM BDC_FIELD_ven USING 'BDC_CURSOR'
'BSEG-LZBKZ'.
PERFORM BDC_FIELD_ven USING 'BDC_OKCODE'
'=BP'.
REFRESH BDCDATA_VEN1.
FREE BDCDATA_VEN1[].
BDCDATA_VEN1[] = BDCDATA[].
DATA : CNT TYPE I,
TEMP TYPE I,
TEMP1 TYPE I,
TEMP2 TYPE I,
TEMP3 TYPE I,
TEMP4 TYPE I.
LOOP AT BDCDATA_VEN1 INTO WA_BDCDATA_VEN1 WHERE DYNPRO = 330.
TEMP = SY-TABIX.
TEMP1 = TEMP + 1.
TEMP2 = TEMP1 + 1.
TEMP3 = TEMP2 + 1.
TEMP4 = TEMP3 + 1.
CNT = SY-TABIX + 5.
READ TABLE BDCDATA_VEN1 INTO WA_BDCDATA_VEN2 INDEX CNT.
IF WA_BDCDATA_VEN2-DYNPRO = 330.
DELETE BDCDATA_VEN1 FROM TEMP TO TEMP4.
EXIT.
ENDIF.
ENDLOOP.
PERFORM BDC_DYNPRO USING 'SAPLF040' '0300'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'BSEG-WRBTR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BP'.
PERFORM BDC_FIELD USING 'BSEG-MWSKZ'
WA_RECORD-MWSKZ_044.
PERFORM BDC_FIELD USING 'BKPF-XMWST'
WA_RECORD-XMWST_045.
PERFORM BDC_FIELD USING 'BSEG-VALUT'
WA_RECORD-VALUT_046.
PERFORM BDC_FIELD USING 'DKACB-FMORE'
WA_RECORD-FMORE_047.
PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'COBL-GSBER'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=ENTE'.
PERFORM BDC_FIELD USING 'COBL-FIPEX'
WA_RECORD-FIPEX_048.
PERFORM BDC_FIELD USING 'COBL-FIPOS'
WA_RECORD-FIPOS_049.
PERFORM BDC_TRANSACTION USING 'F-64'.
READ TABLE MESSTAB INTO WA_MESSTAB WITH KEY TCODE = 'FBV1'
MSGTYP = 'S'
MSGID = 'FP'.
IF SY-SUBRC = 0.
PERFORM BDC_MSG_S.
ELSE.
PERFORM BDC_MSG_E.
ENDIF.
FREE MESSTAB.
ENDLOOP.
ENDFORM. " BDC_FILL
*& Form BDC_MSG_S
FORM BDC_MSG_S.
IF WA_MESSTAB-MSGTYP = 'S'.
DATA : MESS1(10),
MESS2(10).
MESS1 = WA_MESSTAB-MSGV1.
MESS2 = WA_MESSTAB-MSGV2.
WRITE :/1 'Parked Documents',
MESS1 COLOR 6 INTENSIFIED ON INVERSE ON,
'For Company Code',
MESS2 COLOR 6 INTENSIFIED ON INVERSE ON.
ENDIF.
ENDFORM. " BDC_MSG_S
*& Form BDC_MSG_E
FORM BDC_MSG_E.
READ TABLE MESSTAB INTO WA_MESSTAB WITH KEY TCODE = 'FBV1'
MSGTYP = 'E'
MSGID = 'F5'.
READ TABLE RECORD INTO WA_RECORD INDEX TEMP.
IF WA_MESSTAB-MSGTYP = 'E' AND SY-SUBRC = 0.
SKIP.
WRITE: /1 'Error occured during inserting data for sr. no :' COLOR 5 INTENSIFIED ON INVERSE ON,
WA_RECORD-SRNO COLOR 5 INTENSIFIED ON INVERSE ON.
MESSTAB-MSGV1 COLOR 6 INTENSIFIED ON INVERSE ON.
SKIP.
ENDIF.
ENDFORM. " BDC_MSG_E
*& Form GUI_UPLOAD
FORM GUI_UPLOAD .
DATA: FNAME TYPE STRING.
FNAME = FLNAME.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = FNAME
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
VIRUS_SCAN_PROFILE =
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
HEADER =
TABLES
DATA_TAB = IT_RECO
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GUI_UPLOAD
*& Form GET_FILENAME
FORM GET_FILENAME .
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = FLNAME.
ENDFORM. " GET_FILENAME
*& Form bdc_transaction
FORM BDC_TRANSACTION USING VALUE(P_0522).
IF R_FOR = 'X'.
CALL TRANSACTION 'F-64' USING BDCDATA_VEN1
MODE 'A' "A
UPDATE 'A'
MESSAGES INTO MESSTAB.
ELSEIF R_BACK = 'X'.
CALL TRANSACTION 'F-64' USING BDCDATA_VEN1
MODE 'N' "A
UPDATE 'A'
MESSAGES INTO MESSTAB.
ENDIF.
REFRESH BDCDATA.
FREE BDCDATA[].
ENDFORM. " bdc_transaction
*& Form BDC_DYNPRO
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR WA_BDCDATA.
WA_BDCDATA-PROGRAM = PROGRAM.
WA_BDCDATA-DYNPRO = DYNPRO.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO BDCDATA.
ENDFORM. "BDC_DYNPRO
*& Form BDC_FIELD
FORM BDC_FIELD USING FNAM FVAL.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = FNAM.
WA_BDCDATA-FVAL = FVAL.
APPEND WA_BDCDATA TO BDCDATA.
ENDFORM. "BDC_FIELD
*& Form FILL_RECORDS
FORM FILL_RECORDS_VEN .
DATA: V_PERIOD TYPE I,
V_PERIOD1 TYPE I.
LOOP AT IT_RECO_VEN INTO WA_RECO_VEN.
V_PERIOD = WA_RECO_VEN-BUDAT_004+3(2) .
IF V_PERIOD = 1.
V_PERIOD1 = '10'.
ELSEIF V_PERIOD = 2.
V_PERIOD1 = '11'.
ELSEIF V_PERIOD = 3.
V_PERIOD1 = '12'.
ELSEIF V_PERIOD = 4.
V_PERIOD1 = '1'.
ELSEIF V_PERIOD = 5.
V_PERIOD1 = '2'.
ELSEIF V_PERIOD = 6.
V_PERIOD1 = '3'.
ELSEIF V_PERIOD = 7.
V_PERIOD1 = '4'.
ELSEIF V_PERIOD = 8.
V_PERIOD1 = '5'.
ELSEIF V_PERIOD = 9.
V_PERIOD1 = '6'.
ELSEIF V_PERIOD = 10.
V_PERIOD1 = '7'.
ELSEIF V_PERIOD = 11.
V_PERIOD1 = '8'.
ELSEIF V_PERIOD = 12.
V_PERIOD1 = '9'.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = WA_RECO_VEN-NEWBS_011
IMPORTING
OUTPUT = WA_RECO_VEN-NEWBS_011.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = WA_RECO_VEN-NEWKO_012
IMPORTING
OUTPUT = WA_RECO_VEN-NEWKO_012.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = WA_RECO_VEN-BUKRS_003
IMPORTING
OUTPUT = WA_RECO_VEN-BUKRS_003.
SELECT SINGLE BELNR ZFBDT ZTERM ZLSCH VALUT FIPOS ZBD1T ZLSPR FISTL
FROM BSEG INTO WA_BSEG_VEN WHERE LIFNR = WA_RECO_VEN-NEWKO_012
AND BUKRS = WA_RECO_VEN-BUKRS_003.
AND ZTERM ''
AND ZLSCH '' .
SELECT SINGLE LIFNR BUKRS ZWELS ZTERM
FROM LFB1 INTO WA_LFB1_VEN WHERE LIFNR = WA_RECO_VEN-NEWKO_012
AND BUKRS = WA_RECO_VEN-BUKRS_003.
SORT IT_BSEG_VEN BY ZFBDT DESCENDING.
READ TABLE IT_BSEG_VEN INTO WA_BSEG_VEN INDEX 1.
DATA: STR TYPE STRING,
STR1 TYPE STRING,
STR2 TYPE STRING,
STR3 TYPE STRING.
STR1 = WA_BSEG_VEN-ZFBDT+0(4).
STR2 = WA_BSEG_VEN-ZFBDT+4(2).
STR3 = WA_BSEG_VEN-ZFBDT+6(2).
CONCATENATE STR3 '.' STR2 '.' STR1 INTO STR.
CONDENSE STR NO-GAPS.
WA_RECORD_VEN-SRNO = WA_RECO_VEN-SRNO.
WA_RECORD_VEN-BLDAT_001 = WA_RECO_VEN-BLDAT_001.
WA_RECORD_VEN-BLART_002 = WA_RECO_VEN-BLART_002.
WA_RECORD_VEN-BUKRS_003 = WA_RECO_VEN-BUKRS_003. -
I am using elements 10 and only getting audio not video. Can anyone please explain why? I am a total newbie to video.
greenfrogstone
Just saw your thread, and it looked like a candidate for the Premiere Elements 10 NVIDIA GeForce Roll Back the Driver issue. If your computer uses a NVIDIA GeForce video card/graphics card, then the following applies to you. You do not want to update the driver. Rather you want to roll back the driver version, probably to about May 2013. For your convenience I have done a copy/paste of the forum announcement which gives all the details and fix of the matter.
Premiere Elements 10 NVIDIA Video Card Driver Roll Back
If you are a Premiere Elements 10 user whose Windows computer uses a NVIDIA GeForce video card and you are experiencing Premiere Elements 10 display and/or unexplained program behavior, then your first line of troubleshooting needs to be rolling back the video card driver version instead of assuring that it is up to date.
Since October 2013 to the present, there have been a growing number of reports about display and unexplained workflow glitches specific to the Premiere Elements 10 user whose Windows computer has a NVIDIA GeForce video card. If this applies to you, then the “user to user” remedy is to roll back the NVIDIA GeForce video card driver as far as is necessary to get rid of the problems. The typical driver roll back has gone back as far as March – July 2013 in order to get a working Premiere Elements 10. Neither NVIDIA nor Adobe has taken any corrective action in this regard to date, and none is expected moving forward.
Since October 2013, the following thread has tried to keep up with the Premiere Elements 10 NVIDIA reports
http://forums.adobe.com/thread/1317675
Older NVIDIA GeForce drivers can be found
http://www.nvidia.com/Download/Find.aspx?lang=en-us
A February 2014 overview of the situation as well as how to use the older NVIDIA GeForce drivers for the driver roll back can be found
http://atr935.blogspot.com/2014/02/pe10-nvidia-video-card-roll-back.html
This matter has been very specific to the Premiere Elements 10 NVIDIA GeForce card user. So, if your computer is using other than a NVIDIA GeForce card, it is likely that the message does not apply to you, and we can then explore other troubleshooting possibities.
Looking forward to your follow up. Do not hesitate to ask for clarification on anything written here.
Thanks.
ATR -
Newbie question about Premiere Elements Organizer
This is a pre-newbie – let’s say “virgin” question. If there is an answer already posted elsewhere, please send me a link.
I’m about to install Premiere Elements 9 to do some clip editing and animation from still images. This would be my first attempt to edit clip or do some animation from still images, besides using Windows Media Maker with my HS students. However, I have been a pretty serious photographer for 20+ years with 1,000’s of images which I now work on in PS CS5 Extended and Lightroom 3. I use Adobe Bridge and LR library to catalogue and organize my images. I’d like to continue to use AB / LR Library to organize my new clips and projects. From reading Bill’s posts, it seems I can use Adobe Bridge, copy my original file, resize in Photoshop, and save in a new folder to use for a Premiere project. This would seem to be most intuitive way for me to work. I already have keywords, metadata, actions in PS… etc. But I think Bill is using Premiere Pro, while I’ll be installing Premiere Elements, which comes bundled with Elements Organizer. Do I need to install or use Elements Organizer? What are the advantages/disadvantages or EO? I guess I’m a little worried about installing the programs and having EO automatically acquire images using presets/defaults that I don’t want to use as well as issues with subfolders, etc. I'm running Windows 7.
Thanks
FYI- this is a great animation project
http://www.thejohnnycashproject.com/#/explore/TopRatedziggycat4 wrote:
I guess I’m a little worried about installing the programs and having EO automatically acquire images using presets/defaults that I don’t want to use as well as issues with subfolders,
EO doesn't do much with the files themselves, just maintains links to the sources.
For folders you are best to use the folder view in EO to move them as it doesn't keep track of folder locations when changed in Windows Explorer. From the File options in Bridge I think that is pretty much the same.
ziggycat4 wrote:
I would like to get as much input as possible on the advantages/disadvantages of using EO vs say Adobe Bride from others who use Elements Organizer.
Any insights would be appreciated.
Can anyone who has used both EO and AB comment on how EO handles missing (hidden) files, syncing issues, computer hanging up or crashing....etc?
I've only messed around a little with Bridge. But to me it seems lightening fast by comparison to EO. The features Albums and Tags in EO seem much the same as Collections and Keywords in Bridge.
EO has Face Recognition abilities - getting more sophisticated in each version. I've not seen this feature in Bridge.
By default EO allows you to open a file in any of:
Photoshop
Photoshop Elements
Premiere Elements
A single used-defined application (I have mine set to ColorPilot).
Bridge only seems to link to Photoshop.
Missing files can be located manually or by allowing EO to search for them.
Cheers,
Neale
Insanity is hereditary, you get it from your children -
Photoshop Elements 7: Newbie Needs Drop Shadow Help, Please
Hello.
I'm brand new to Adobe Photoshop Elements 7 and need help with the Drop Shadow feature, please.
I've read the documentation, but it's not crystal clear to me, so maybe someone can guide me through it.
I want to create text on a blank white canvas, and add a little bit of drop shadow to it. That's all I want to do--plain and simple.
I can create the text, but I can't for the life of me find any drop shadow options.
The documentation I'm using is the on-line, web-based help. I type in Drop Shadow in Search, and select Add Text to a Slide.
The third step says, "In the Properties palette, set any of the following options" and then offers some options, including Drop Shadow and Drop Shadow Color.
I'll be darned if I can locate the Properties palette. Obviously, I'm not well-versed with Photoshop, so if anyone can just steer me towards this feature, I'll take things from there.
I know this is probably rock-bottom basic, but I'm stumped. Thank you!
J. DannielI need a lot more help with this than I thought.
The problem I'm having is this: After creating the drop shadow effect, when I try to save the image as a transparent GIF, it quite simply.... looks horrible.
Here is what I'm doing in detail:
1. New/Blank File.
2. Blank File is set to transparent. (Is this the right way to make a transparent GIF?)
3. Creating text.
4. Cropping text.
5. Selecting drop shadow effect.
Now, here's where I get confused. Do I just select File/Save As, or File/Save For Web?
When I just use File/Save As, and select the GIF format, the drop shadow effect in the final file looks horrible when I embed the image into a web page. The text looks good, and the file is transparent, but the effect is ugly.
When I try to use Save for Web, there is a Before/After screen. The Before side looks decent; the After screen looks horrible, too.
So, now I don't know what to do. Can you or anyone guide me through this a bit further, please? Thank you! Jd -
Newbie to Photoshop Elements 8.0
Thinking of purchasing Photoshop Elements 8.0. Currently
using Windows 7. I have been using Photoshop CS2.
In Elements 8 am I able to mask a face or some other object
and move it to a new body or object?If the focus of the original question was the specific application mentioned (moving a head or object from one context to another) then selecting the object and copying the data to a new layer is an option, but this can also be done in Photoshop CS2. The benefits of masking are things like not actually losing the non-visible image data, so that adjustments can be made later.
If the focus of the question then was 'does Photoshop Elements have masking', then Barbara is right, masks aren't built into PSE. They can be simulated using adjustment layers (the best tutorial on this is found here: http://graphicssoft.about.com/od/pselements/qt/layermasks.htm ). Once you understand what's going on in that technique, you can make the process easier using this free tool, which uses an action to simplify the procedure - http://graphicssoft.about.com/od/pselements/qt/layermasktool.htm . (Actions can only be made in Photoshop CS versions, but some of them can be used in Elements)
If you've been using Photoshop CS2, and you're thinking of switching to Elements 8, you might also be interested in my article on Photoshop vs Photoshop Elements - http://www.easyelements.com/photoshop-vs-elements.html , which compares Photoshop with Photoshop Elements. They're both great programs, just suited to slightly different audiences and for slightly different purposes. It's worth thinking about what features you use most in CS2, before deciding whether or not to switch to Elements. Masking is a good example.
Hope that helps! Rob. -
Newbe requests help with audio for slide-show on Premiere Elements 4.
I recently wrote you regarding a problem I was having with a slide show I was making on Premiere Elements 4 importing photo clips and music from PhotoShop Elements 9. Thank you for your help.
This very large slide show, some 200 clips that I have not resized is completed. I am now having many problems with the music audio I am adding to various sequences of the slide show. Specifically:the audio will not stay fixed on the places where I put it and end it. Working on the Timeline Usually the length of the audio is shorter than the ending of the photo clips where it must go. I click on the audio and stretch it and end it at the place I designate. However, the other end has moved also so now I am left with a gap where there is no audio at the beginning of the segment. Now in addition, the "Delete and Close Gap" does not work most of the time causing me to manually move the photo tiles which sometimes move when this happens. I have to move each one or two individually to the left to close the gap and many times this causes loss of one or two photo tiles or they are out of order or have increase in number (of the one I am moving).
The program has also shut down for the past 10 days causing me to lose a good deal of work and sometimes photo clips and sometimes I get many duplicates of the photo clips. All I do is edit mostly the same two segments doing this over and over because I can't proceed to importing any more music because I can't get the first segments correct. I have chatted with you people, Sony techs, Microsoft Techs and Canon Techs. The Sony techs suggested the program was at fault and I used the original installation disk and repaired the program. It has still shut down on me but not as much.
I got error messages on the photo-cap instructions page you suggessted otherwise I would show pictures of the above problems.
I tried to copy and/or cut and paste from the Timeline thinking I would start a new slide show in PhotoShop Elements 9 using the same photos in reverse. The program would not let me copy or paste. There is great difficulty in highlighting the photo tiles in Timeline because I have to shift click on each individual tile and there are too many tiles and it would take too long to get a whole segment copied. Maybe you know another way to do this?
I am at a stand-still now and I am quite despondent because I have been working on this slide-show for 3 months and it was a surprise for my daughter's 25th anniversary that was last Tuesday.
I do hope you have some good suggestions that will lelt me complete this Project and get it on a disk. I am not that technical so please be specific.
Thanks in advance.
KathyHere's the basic advice I'd give, based on my experience. Much depends, though, on your goals and the specifics of your computer system:
1) Resize all of your photos to no larger than 1000x750 pixels in size. This is VITAL if you want the program to maintain stability as you work. Also render often (by pressing the Enter key). When the render, the red lines above the clips on your timeline will turn green and the program will run much more efficiently.
2) Work on your large slideshow project in shorter segments. You've got over 15 minutes worth of slides. Try working on this slideshow in 5 minute segments, output each segment and then combined the finished videos.
3) Use only WAV audio as your music and audio for your slideshow.
4) When you add video, audio or stills to a parallel track on your timeline, hold down the Ctrl key to override the ripple function and your current clips will remain in place.
5) Maintain your computer by using a tool like the excellent, free, one-click Advanced System Care available at http://www.iobit.com/advancedsystemcareper.html
As for Delete and Close Gap, how it performs depends on whether you've selected Clear or Delete, whether you've pressed the Backspace key or the Delete key and if there is video or audio on a parallel track. (This is all covered in my books, by the way, if you're interested.)
Without knowing the specifics of your project and your situation, it's hard to give out more specific information -- but this advice should get you a long way toward completing your project! -
Help for Newbie -- Premiere Elements 10
I'm completely new to video editing. I know this is supposed to be the easiest software, but I'm getting nowhere. Part of the problem is that the software doesn't seem to come with a manual -- in paper or pdf. The help button ships me out to various tutorials, etc., but they're all for version 11. I tried following the basic tutorial for organizing videos, and the buttons they wanted me to click just didn't exist. (such as for creating an "album." Maybe it's because of the different version or maybe it's because I'm supposed to already know how to set up the software so that I see the same things they're showing me in the tutorials.
Is there any book that truly takes you through everything from othe very beginning? Better yet, is there any service that would actually let me talk things out with an expert and perhaps let me log onto my computer so he can see what's on my screen and explain why it doesn't look like what's in the tutorial?
Thanks.Yes there is a PDF
User Guide PDF http://help.adobe.com/en_US/premiereelements/using/index.html
Right click PDF link in the upper right corner and select to save to your hard drive
-the page also has links to help pages for previous versions
Importing Video http://forums.adobe.com/thread/1065281
Saving & Sharing http://forums.adobe.com/thread/1051093
Sharing for Computer http://forums.adobe.com/thread/1058237
Steve's Basic Training Tutorials... steps are the same for several versions
-http://forums.adobe.com/thread/537685
-v10 http://www.amazon.com/Muvipix-com-Guide-Premiere-Elements-Version/dp/1466286377/
-All http://www.amazon.com/Tricks-Adobe-Premiere-Elements-Muvipix-com/dp/1451529724/
-and http://forums.adobe.com/thread/498626
FAQ http://forums.adobe.com/community/premiere_elements/premiere_elements_faq
TIPS http://forums.adobe.com/community/premiere_elements/premiere_elements_tips
Another help site http://muvipix.com/ or http://muvipix.com/phpBB3/
Premiere Elements Updates http://www.adobe.com/support/downloads/product.jsp?product=101&platform=Windows -
Newbie how to define variable of type element?
JDEV 10.1.3.1
When I perform the following from BPEL designer in JDEV...
variable new
create variable
Select element type
Select a local file schema xsd
Select element of choice
Seems to define OK but fails to compile. Namespaces appear to include the namespace defined in the xsd.
When I define variables of type message and browse to the appropriate wsdl and pick a message from there this seems to work / compile just fine.
I am sure that since I am just getting started that this is a common error, please assist and thanks. Must all variables be defined as message types and reside in a WSDL?
Thanks,
JohnHello John,
I'm not sure whether it is possible to import a schema into a process directly. What I usually do is to import it into the wsdl-file describing the process interface. This is the file you use to define the client-partnerlink. If your schema is imported correctly, you can access the type-definition via the partner-links-node in the type chooser (this works at least in JDEV 10.1.3.3 and 10.1.3.4).
To import your schema into the wsdl, you need to go to the structure-view in wsdl-editor and after a right-click on the types-node select "insert types". Inside types you insert XML-Schema, inside schema you need to insert an import-tag. The properties for this tag are the file-location and the target namespace used in the schema. The resulting XML-structure should look like this:
<wsdl:definitions xmlns:plnk="http://schemas.xmlsoap.org/ws/2003/05/partner-link/" xmlns:tns="http://xmlns.oracle.com/Order_Booking___Shipment" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" name="Order_Processing_SystemPLT" targetNamespace="http://xmlns.oracle.com/Order_Booking___Shipment">
<wsdl:types>
<schema xmlns="http://www.w3.org/2001/XMLSchema">
<import schemaLocation="Order_Booking___Shipment.xsd"
namespace="http://xmlns.oracle.com/Order_Booking___Shipment"/>
</schema>
</wsdl:types>
</wsdl:definitions>
Greetings,
Christoph -
I have used Adobe's photo management programs for years but Photo Elements is the most mysterious of them all. I have two questions at this point and may have moer later. Hope someone has the answers.
a) How do I get the Timeline to appear at the top of the page? I can't find anything in Preferences that lets me turn it on or off and right clicking various bars does not seem to help.
b)The File, Edit, View etc. menu bar has been boiled down to an inverted triangle which if clicked, exposes the menu items in a box, etc. How can I restore the Menu items to the Menu bar. Again I saw nothing in Preferences and right clicking various bars did not help.
Thanks.a) How do I get the Timeline to appear at the top of the page? I can't find anything in Preferences that lets me turn it on or off and right clicking various bars does not seem to help.
Window > Timeline. But beware that in PSE 6, 7, and 8, the timeline is buggy -- it won't always work if you try to set a date range with it.
b)The File, Edit, View etc. menu bar has been boiled down to an inverted triangle which if clicked, exposes the menu items in a box, etc. How can I restore the Menu items to the Menu bar. Again I saw nothing in Preferences and right clicking various bars did not help.
See this FAQ:
http://www.johnrellis.com/psedbtool/photoshop-elements-faq.htm#The_Organizers_Menu_Bar_doe snt_show -
Newbe requests how to remove "applause" from Project in Premiere Elements 4?
This is the second time I attempted to make a large slide show using Photoshop Elements 9 and Premiere Elements 4 I am having two main problems:
1. I do not know how it got there but every time I run the slideshow on Premiere Elements I hear applause on each photo? Don't know how it got there either and frustrated how to get rid of it
2. When I move a photo to another place it leaves a blank space. I try to get rid of the space by going onto Edit and asking to delete and close gap. Sometimes it works and sometimes it does not. Then sometimes my only option is to remove the present photo and it does not remove it.
3. Lastly I wanted to change composing the slide show from Premiere Elements to Photoshop Elements 9 but the latter would not recognize the file.
THIS PROJECT IS A HUGE RUSH PROJECT FOR MY DAUGHTER'S 25TH ANNIVERSARY. TIME IS RUNNING OUT AND I AM PANICKING.
Thanks for your help.
KathyKathy,
You say that you have PrE 4.0, but I did not see which version of PSE you have. You would need PSE 4.0, to be able to go directly to PrE from PSE. Otherwise, one would need to do, as you have, and Export from PSE as a WMV file, which would then be Imported into PrE.
The weakness in this latter method, the Export/Import, is that a WMV file is highly-compressed, so quality, when coming out of PrE will be compromised. Next, if one has the same versions of the two programs, and they Send to PrE from PSE, once in PrE, they can choose Break Apart, to get all of the elements in the SlideShow separated again - this cannot be donw with the WMV Export/Import.
Now, even with the WMV Export/Import method, one can still edit, but they are now cutting on a finished AV file, and things are not so easy - they are working on one large Video file, and one large Audio file on the Timeline.
For the blank spaces, one can just cut those out of the Video, but if the whole Clip (the WMV file) has Audio, that needs to stay, things are not quite so easy. In your case, however, it might be easiest to just Delete the Audio from the WMV, cut the Video to suit, and then Import the Audio Clips that were used in PSE, and just use those again, listening closely for the one(s) with the applause, and substitute something else, instead. This editing will be much, much easier in Timeline View Mode.
For that applause, it might be easier to go back to the Project in PSE, find where it is being introduced, and substitute for it there.
Now, if the applause comes during otherwise silent passeges, you can just cut it out, or can lower the Volume to the point that it is not heard. If it comes over music or dialog, there is nothing easy, that can be done. To remove it, and save the music, or dialog, will be virtually impossible and take much time, for probably little improvement.
Let us know just a little bit more about your Project and also the version number of PSE.
Good lukc,
Hunt -
Newbie help needed. Cant save to a WD Elements Hard Drive!!!Going Crazy!
We got our imac yesterday! Love it but.....only real issue that is driving me crazy and ruining the experience is that I can't save a pages doc to my WD Elements External Hard Drive. It is installed I can move stuff from it but nothing to it! When I select save as and pick "Elements" a message appears saying <the document "Test" could not be saved as "test". Read-only file system. Can any one explain
Message was edited by: wyleybruceOSX can read but not write to NTFS formatted disks. If you want to keep the disk as NTFS, there are utilities (like NTFS3G ) you can get that will allow you to save to the disk as it is currently formatted.
IMHO it would be better for you to reformat the disk as Mac OS Extended if you intend to use it on an ongoing basis with your new Mac. But remember to back up anything you want or need to keep, because reformatting will erase everything that is on the drive.
(Notes: If you reformat the disk to Mac OS Extended and then you want to use it with a Windows system, you will need Macdrive on the Windows machine. The only format that is natively compatible on both platforms is FAT32.) -
Newbie to graphic software - elements or photoshop?
Hi!
I hope I'm posting this in the correct place.
This question has probably been asked before but I'd like to ask it again given my situation.
I'm a computer programmer by profession and occassionaly do HTML work as well.
To extend my knowledge, I started thinking about acquiring some graphic skills, and perhaps in the future I may use them for work or just as a hobby.
I'm not a photographer though it seems to me that touching photos a bit can be a nice way of making some imporvement (red eye, dust, etc). I know this can be accomplished via both applications (and Elements is by far cheaper).
By question is which application is best for me to focus on, taking in mind that it might aid me in the future?Get Elements and download GIMP.
That should cover anything you need and then some.
GIMP will handle some more advanced stuff, makes it easy to create seamless textures/tiles for web or game graphics and has some neat higher end features along the lines of CS4 like vanishing point, layer effects (via plugin), content-aware rescaling(called Liquid Rescale) Liquify(called iWarp), etc. GIMP basically approaches Photoshop in terms of power for stuff like game or web imagery(though never matches it).
If you find you use advanced features enough and GIMP is offering stuff Elements doesn't handle, or is more geared towards your workflow, then the question is whether or not moving up to Photoshop is worth the price of admission. GIMP is perfectly fine and will do more than most people need, but if you do enough specific work you may find Photoshop's interface may be worth it. I don't say interface meaning where buttons and menu items are, but the actual implementation of the same tools is usually a little smoother. For example setting text along a path is possible on both, but easier done in PS, Content-aware rescaling lets you dynamically scale the image while GIMP has you entering X/Y values, Liquiify is a little more robust than iWarp. That sort of stuff. If you work with 3d models, you may even like CS4's decent handling of UV and 3d models.
Once you take the plunge, the future cost of ownership for Photoshop CS isn't bad, it's upgrade rates for each new release. And Photoshop has a long useful lifespan. The original CS (8.0) is still a hell of a program. The real question is whether or not it's smart to get into it. There's a reason people see Elements as a hell of a bargain and a smart buy over Photoshop. It does most of what you need and there are even some add-ons to bring it just a bit closer to "real" Photoshop. -
Photoshop elements mac, newbie questions for webshop
Hello all,
My name is Jelle and i have photoshop elements for mac, which i mostly use to create banners, headers and backgrounds for my website www.dagelijkseluxe.nl.
Though this is my question, i think there are a lot of people like me, bumping in the same problems. Maybe it's an idea to have a webshop webinar someday (or i missed it) for some basic functions mostly used for websites. Like easy banner creation, background adjustments for sites and products, best product presentation, etc.
Even though i mostly use the guided editing, i sometimes venture off and try to use the full editor. Now, this must be too easy for most of you powerusers, but the background of the webshop is still a bit to dark to my liking. However i feel i have reached all i can do with the different sliders presented in the guided tour.
Is there an easy way to "mistify" the background or any photo for that matter?
I also save the files as PNG as per recommendation from the sitebuilder. what's the difference with interlaced and non interlaced saving.
Thank you in advance for your time!
Kind regards,
Jelle DingemansYou could use:
Filter >> Blur >> Gaussian Blur
That should mystify or blur your image.
Interlaced is a better method for displaying mainly large images on monitors - but you get a slightly larger file. Small images tend to load very quickly so non-interlaced will keep the file size down.
Maybe you are looking for
-
HI, if my earlier sales order cancels, next time when i run mrp, that cancelled sales order should be considered by the system and accordingly that planned ORDER GENERATED must be deleted. as i understand once it is firmed, that planned order will no
-
How to change path for Ev4Excel.xla
Dear All, I'm trying to execute predefined BPF - custom menu (ProcessFunctions.xls). Whenever if click e.g. on Back, forward, open a file following similar message is being prompted: Macro 'E:\Program Files\BPC\Ev4Excel.xla'!'EvMacroCall "OPENFILE","
-
Hi All, Can you please let me know the master database tables for Project System.. Regards Anuj
-
//Initialize the Engine EngineClass myEngine = new EngineClass(); myEngine.LoadTypePaletteFilesEx(TypeConflictHandlerTypes.ConflictHandler_Prompt, 0); Step myStep = myEngine.NewStep(AdapterKeyNames.DotNetAdapterKey
-
How to restrict few users - Work order priority
Hi experts, i have an requirement in WO (IW31), i have implemented a logic that user cannot change the WO priority once it is already released . if sy-tcode = 'IW31' or sy-tcode = 'IW32' or sy-tcode = 'IW38' or sy-tcode = 'IW21' or sy-tcode = 'IW22'