Problem on logic need ur help so bad
hi im kindda new to logic and i hope my english's fine ... i got logic on my macbook pro for like only 2 weeks
im runnin it in some big show based on the logic project , every time i tried it in home nothing bad happend but when i get to large stages with bass vibrations after 2 or 3 songs i get "disk too slow" problem and after clickin 3-4 times "continue" logic seems to be ok .
i found this thread
https://discussions.apple.com/thread/2609440?start=0&tstart=0
and still got no answer and i relly gotta solve this problem .
shud i buy an external drive ? shud i try isolating my mac by cases , foams and stuff ?
what do i do ?
thanks
well if u wanna know , after i got no replys i found a thread talkin about disabling the "sms" thing on mac ,
it workd like a magic just got back from 2 gigs in one night logic was workin perfect , this "disk too slow" error is gone and i can run multitrack and record in any enviroment . hope this help's other people in the future coz this problem was a real pain in the *** .
Similar Messages
-
having problem buying online.need your help since it's my first time here.apple is asking for my billing address but when i enter my address here in qatar,it's saying i should enter a valid zip code within the u.s.does it mean i can't buy online even if it wil be shipped within u.s. only?
To buy in for delivery in Qatar, you should be starting from the Apple Qatar site:
http://www.apple.com/qa/
Do you have an Apple-ID? if you do, then you should not have to enter your Address again, and may be able to sidestep the US Zip Code issue. -
I have reset my iPhone, but later I could not activate it, it's not accepting my ID / Password. I restored it but still having the same problem. I need your help. Thank you.
Try making a new Apple ID? I don't really understand what you mean.. Make a new apple ID, log in with that one and then when you are on your phone log out of it and THEN log in our old ID? If you still can't log in the old one then it's most probably a bug or something.. Anyway.. Good luck with your problem!!
-
Cannot connect new iPhone 4S to my Prius V bluetooth . Have been trying so many different fixes. Maybe if the almighty Apple read the posts, the problem could be fixed. Help!!!
From http://www.toyota.com/entune/what-is-entune/phones.html we read:
"Android™ and Blackberry® wirelessly connect your phone to the available Entune™-equipped Toyota using Bluetooth®. The iPhone® is connected via a USB data cable."
There's clearly something different about the iPhone's bluetooth capabilities than the other two phones. To say it's only Apple's or Toyota's problem isn't very helpful for anyone because, yes, Toyota should have designed Entune for full compatibility with iOS devices and, yes, Apple should have designed the iPhone to be at least as capable as the other phones wrt bluetooth.
I still don't know who to holler at. -
I have a big problem, please I need your help
Hi I was typing a message to send and my laptop off the sending page, and I received a message from Hp allowing me to stop my machine because on a system error. after five minutes I try to re-start my laptop but no way! How could I do as it refuse to start? my laptop is Hp pavillon Entertainment PC) AMD AthlonX2 64 I need your help please very soon
I'm not suggesting anything. Your options are:
Start over. It'll take anywhere between a few days and a few months depending on your CD collection
Go to a CD ripping agency. It'll take a day or two, and they charge about a buck or two a CD.
Go to a data recovery agency. They charge a few hundred dollars an hour. -
External Instrument problem, in serious need of help!!??
Dear all,
I have a really big problem... I can't get the external instrument plugin to work properly.
My setup is mostly below, but I wish I could post a diagram. Here's what's going on.
I have my PB, my X-Station, my CME UF5 and my M-Audio midisport 2x2
Connected to my PB are: FirePod by FW, Dongle by USB and Midi2x2 by USB
The outs of my X-Station are going in to the Pod, and Logic sees input using the external plugin telling it to get input from ins 3-4, and I can hear it. Great.
On the transport it shows midi in from my UF5 (controller keyboard) and plays its internal instruments fine.
What I need to be able to do, through this setup is have my X-Station working from midi respones through Logic. I can plug my UF5 straight in, and I get it to play. What I want to be able to do is play my UF5 or have a pre-recorded midi part play the X-Station. I can hear sound from it and all.
My problem is is getting midi TO the X-Station from within Logic, and in the section where one should be able to select ports/hardware etc in the external plugin, I cannot see my midisport whose out is connected to the X-station. I ought to be able to play it from Logic with, for example, the caps keys. I know this is possible, unless it is impossible with my midisport, but I was under the impression that it would. I just need to see its outs to assign in the external plugin...
I hope I have made sense, much appreciated guys, I know I must have overlooked something. Maybe someone with fresher eyes (and an imagination, knowing myself) might be able to help.
Cheers, best, FredOpen the Environment. Select the MIDI Instrument layer. From the local New menu, select Instrument (top of menu). New icon appears in the layer. Select it, rename the icon to X-Station. In the parameters adust the port to the port # the X-Station is on and adjust the MIDI channel you want to send MIDI on.
Now go back to your External Plugin, select MIDI Destination-MIDI Instruments-X-Station.
Your there.
You may want to set this up as a Multi-Instrument, but this will get you going.
Randall -
Weird problem and I need your help!
Hello,
I'll keep this short and hopefully someone will be able to give me a simple answer to this problem - it's been driving me nuts for days!
Here's the situation, as concise as I can be:
- import clips from my video camera to iMovie, no problem
- sort clips, edit them, throw them into the timeline, no problem
- add transitions, effects, titles, no problem
- export to Quicktime so I can watch it on my computer and share it on my computer network - no problem, the movie looks great
Here's the problem!
- I now want to burn the Quicktime movie, as is, on to a DVD
- I put the movie into Toast, tell it to do what it does
- Toast burns great
- When I watch the DVD, there's a constant weird flickering, especially when the camera is moving. It's not anything extra, it's like a kind of strobe effect on the whole thing. It looks almost like it's having trouble keeping up with the picture. I wish I could show you but it only happens with a DVD player... and I've tried it on several TVs and DVD players.
I've burned AVI files with Toast the exact same way and have no problems.
What am I doing wrong? I don't want to use iDVD because I don't want any menus and titles and all that - just the movie. It looks great on my computer but as soon as I watch it on a TV, it looks like ... well, it flickers. I've tried burning with different settings and resolutions, but it always comes out the same.
I hope this makes sense to someone. Help?
tubaindy
ps. In case you are wondering, I need it on DVD to mail to some relatives overseas who are afraid of new things - but they are able to put a DVD in the tray, which is all I want... they put in the DVD, it plays a movie. That's all.1. Start up Terminal by using Spotlight or starting it from Applications -> Utilities
2. Type: killall OpaqueMenuBar (case sensitive spelling)
Nothing should come up as a result. If it says "no processes belong to you were found" check the spelling or skip to the next step
3. Go to your applications folder (commandshiftA in Finder) and drag the OpaqueMenuBar app to the trash
4. Go into the System Preferences -> Desktop, change the wallpaper to something else and then back again.
Uninstallation should be complete. -
Problem with subroutine- need urgrnt help
hai all,
need help in subroutine.
in a report program,
i had calculated to get the total collection amount and need to generate a list for every day.
on next day that collection amount must come as a poeninig balance at the top of the list.
this i had done using two subroutines.
i have to call the subroutine for opening balance for previous day's collection first. after that in have to calculate the todays collection.
how can i have this please give me a suggession.
thanks in advance.
this is my report.
i want the 'Progressive Total C/O ' from subroutine form f002_item_data. of today to be come in
'Progressive Total B/F -
' ,106 w_total_bf. of the subroutine form f001_progressive_total on next day..
here is the code.....
*& Report ZVR023_COLL_STATEMENT *
report zvr023_coll_statement no standard page heading .
MODULE. MSD *
Objective : *
Program : Updates Tables ( ) Downloads data ( ) *
Outputs List ( X ) *
Date Created *
Author *
Location *
LDB ..... *
External Dependencies *
Amendment History *
Who Change ID Reason *
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ *
XXXXXXXXX AADDMMYYYY Where XXXX = Developers Name................. *
AA- Developers Initial ................................ *
Includes *
*INCLUDE : *
Tables *
tables : vbak,bsid,kna1,t001,adrc,vbrk,knvv.
Types Begin with TY_ *
types : begin of ty_cust,
belnr type bseg-belnr,
wrbtr type bseg-wrbtr,
xref1 type bseg-xref1,
kunnr type kna1-kunnr, " sarang
bschl type bseg-bschl,
hkont type bseg-hkont,
end of ty_cust.
types : begin of ty_bp,
kunnr type vbak-kunnr,
bukrs type bseg-bukrs,
budat type bkpf-budat,
end of ty_bp.
types : begin of ty_kna1,
kunnr type kna1-kunnr,
name1 type kna1-name1,
ort01 type kna1-ort01,
end of ty_kna1.
types : begin of ty_lst,
vbeln type vbrk-vbeln, " INVOICE NO
fkart type vbrk-fkart,
posnr type vbrp-posnr ,
fkimg type vbrp-fkimg , " qty
fkdat type vbrk-fkdat, " date
vkorg type vbrk-vkorg, " sales org
vtweg type vbrk-vtweg, " division
spart type vbrk-spart, " distribution
knumv type vbrk-knumv, " Number of the document condition
matnr type vbrp-matnr ,
med_prod type jptmg0-med_prod,
kunrg type vbrk-kunrg,
kwert type konv-kwert,
kbetr type konv-kbetr,
netwr type vbrk-netwr,
Address Details
KUNRG type vbrk-KUNRG,
name1 type kna1-name1,
stras type kna1-stras,
pstlz type kna1-pstlz,
***Added For Billing
bukrs type vbrk-bukrs, " Company code
xblnr type vbrk-xblnr, " Bill Ref
ismpublication type mara-ismpublication,
Condition Type
kschl_zj01 type konv-kschl,
kschl_zdis type konv-kschl,
kschl_znet type konv-kschl,
kwert_zj01 type konv-kawrt, " Base Condition
kwert_zdis type konv-kawrt,
kwert_znet type konv-kawrt,
adrnr type kna1-adrnr,
end of ty_lst.
types : begin of ty_lst1,
vbeln type vbrk-vbeln, " INVOICE NO
fkart type vbrk-fkart,
fkdat type vbrk-fkdat, " date
fkimg type vbrp-fkimg, " qty
kunrg type vbrk-kunrg, " Payer
fkimg_1 type vbrp-fkimg, " qty
fkimg_2 type vbrp-fkimg, " qty
fkimg_3 type vbrp-fkimg, " qty
fkimg_4 type vbrp-fkimg, " qty
fkimg_5 type vbrp-fkimg, " qty
matnr type vbrp-matnr,
med_prod type jptmg0-med_prod,
kwert type konv-kwert,
kbetr type konv-kbetr,
netwr type vbrk-netwr,
Address Details
KUNRG type vbrk-KUNRG,
name1 type kna1-name1,
stras type kna1-stras,
pstlz type kna1-pstlz,
***Added For Billing
bukrs type vbrk-bukrs ,
xblnr type vbrk-xblnr,
ismpublication type mara-ismpublication,
****SPLIT FOR RATE
kbetr_1 type konv-kbetr,
kbetr_2 type konv-kbetr,
kbetr_3 type konv-kbetr,
Condition Type
kschl_zj01 type konv-kschl,
kschl_zdis type konv-kschl,
kschl_znet type konv-kschl,
kwert_zj01 type konv-kawrt, " Base Condition
kwert_zdis type konv-kawrt,
kwert_znet type konv-kawrt,
end of ty_lst1.
types : begin of ty_condition,
kschl type konv-kschl, " Condition Type
kwert type konv-kwert, " Condition Value
knumv type konv-knumv, " Document Condi
kposn type konv-kposn,
kbetr type konv-kbetr, " Condition Rate
end of ty_condition.
types : begin of ty_bkpf ,
belnr type bkpf-belnr,
gjahr type bkpf-gjahr,
bukrs type bkpf-bukrs,
end of ty_bkpf.
Constants Begin with C_ *
*CONSTANTS: *
Data Begin with W_ *
data : w_cnt type i .
*DATA : W_DMBTR TYPE BSID-DMBTR. " Open Value
*DATA : W_KWERT TYPE VBRP-FKIMG. " Invoice Value
*DATA : W_QTY_CON TYPE VBRP-FKIMG. " QTY
*DATA : W_TO_QTY_CON TYPE VBRP-FKIMG. " QTY
*DATA : W_DIFF TYPE BSID-DMBTR. " W_DIFF Bt Open & Invoice
*DATA : W_DMBTR_CR TYPE BSID-DMBTR. " Cr Value
*DATA : W_DMBTR_DR TYPE BSID-DMBTR. " Dr Value
*DATA : W_DMBTR_TO TYPE BSID-DMBTR. " Total Value
*DATA : W_KDGRP(2) .
*DATA : W_CNT_IS TYPE I.
*DATA : W_CNT_IS1 TYPE I.
*DATA : W_CNT_IS2 TYPE I.
*DATA : W_CNT_FIRST TYPE I.
*DATA : W_CNT_ITAB TYPE I.
*DATA : W_CNT_FIRST1(2).
*DATA : W_CNT_TAB(62),
W_CNT_TAB_HEA(62),
*data: W_CNT_POS TYPE I.
Variable for balance window
data : w_open_bal type dmshb_x8,
w_total_bf type dmshb_x8,
w_sub_tot type dmshb_x8,
w_total_co type dmshb_x8,
w_bill_bal type dmshb_x8,
w_drn_bal type dmshb_x8,
w_othr_chr type dmshb_x8,
w_total_bal type dmshb_x8,
w_coll_bal type dmshb_x8,
w_unsd_cr type dmshb_x8, "Unsold Credit
w_inceve type dmshb_x8, "Incentive
w_cr_nt type dmshb_x8. "Cr Note
data : w_pos type bseg-wrbtr. " Total Value
data : w_neg type bseg-wrbtr. " Total Value
data : w_du_start_date like sy-datum,
w_du_end_date like sy-datum .
**vARIABLE DEFINED FOR CONSOLIDATED WINDOW
data : w_prod_cnt type i .
data : w_prod_ch(2) .
data : w_prod_rate type i .
Infotypes ( HR Module Specific) *
*INFOTYPES : *
Internal tables Begin with IT_ *
data : it_bp type table of ty_bp with header line,
it_bp1 type table of ty_bp with header line,
it_bp2 type table of ty_bp with header line,
it_bp3 type table of ty_bp with header line,
it_kna1 type table of ty_kna1 with header line,
it_cust type table of ty_cust with header line,
it_cust1 type table of ty_cust with header line,
it_bkpf type table of ty_bkpf with header line,
it_cust2 type table of ty_cust with header line,
it_cust3 type table of ty_cust with header line.
data : it_pos like rfposxext occurs 1 with header line,
it_check like rfposxext occurs 1 with header line,
it_pos_bc1 like rfposxext occurs 1 with header line,
it_pos_bc like rfposxext occurs 1 with header line,
it_pos_nc like rfposxext occurs 1 with header line,
it_pos1 like rfposxext occurs 1 with header line,
it_sec like rfposxext occurs 1 with header line.
data : it_bal like rfposxext occurs 1 with header line.
data : w_text(100) type c.
data : w_cnt1(3).
data : l_date like mara-ismpublperiod .
data : p_date1 like jkpaz-jkpavon.
data : l_day_c(2).
data : l_month_c(2).
data : l_base_yr_c(4).
data : w_text1(100) type c.
data : w_text2(100) type c.
Field Symbols Begin with FS_ *
*FIELD-SYMBOLS: *
field-symbols: type ty_condition.
Insert *
*INSERT : *
Select Options Begin with SO_ *
selection-screen skip 1.
selection-screen: begin of block b1 with frame title text-001.
select-options : so_bukrs for vbrk-bukrs no intervals no-extension obligatory .
select-options : so_kunrg for vbrk-vkorg no intervals no-extension obligatory,
so_vkbur for knvv-vkbur no intervals no-extension ,
so_fkdat for bsid-budat no-extension obligatory ,
so_bdat1 for bsid-budat no-display ,
so_bdat3 for bsid-budat no-display ,
so_kunnr for kna1-kunnr no-display.
selection-screen: end of block b1.
Parameters Begin with PR_ *
*PARAMETERS : *
selection-screen begin of block b3 with frame title text-003.
parameters pr_3 radiobutton group rad1.
parameters pr_4 radiobutton group rad1.
selection-screen end of block b3.
selection-screen begin of block b2 with frame title text-002.
parameters pr_1 radiobutton group rad.
parameters pr_2 radiobutton group rad.
selection-screen end of block b2.
*INITIALISATION :
At selection-screen *
*AT SELECTION-SCREEN.
S T A R T O F S E L E C T I O N *
start-of-selection.
if pr_3 is not initial.
Code commented/added by Praveen on 20.07.2006
SELECT kunnr INTO CORRESPONDING FIELDS OF TABLE it_bp1 FROM knvv
WHERE vkorg IN so_kunrg
AND kunnr GE '0004000000'
AND kunnr LE '0004999999'.
select kunnr into corresponding fields of table it_bp1 from knvv
where vkorg in so_kunrg
and aufsd <> '01'
and kunnr ge '0004000000'
and kunnr le '0004999999' .
and
PLTYP ne 'HB'.
*ends here
endif.
if pr_4 is not initial.
clear so_kunnr[].
clear so_kunnr.
so_kunnr-sign = 'I'.
so_kunnr-option = 'BT'.
so_kunnr-low = '0001000000'.
so_kunnr-high = '0001999999'.
append so_kunnr.
so_kunnr-sign = 'I'.
so_kunnr-option = 'BT'.
so_kunnr-low = '0002000000'.
so_kunnr-high = '0002999999'.
append so_kunnr.
so_kunnr-sign = 'I'.
so_kunnr-option = 'BT'.
so_kunnr-low = '0007000000'.
so_kunnr-high = '0007999999'.
append so_kunnr.
Code commented/added by Praveen on 20.07.2006
select kunnr into corresponding fields of table it_bp1 from knvv
where vkorg in so_kunrg and
kunnr in so_kunnr and
vkbur in so_vkbur.
AND kunnr GE '0001000000'
AND kunnr LE '0001999999' .
select kunnr into corresponding fields of table it_bp1 from knvv
where vkorg in so_kunrg and
aufsd <> '01' and
kunnr in so_kunnr and
vkbur in so_vkbur.
AND kunnr GE '0001000000'
AND kunnr LE '0001999999' .
ends here
endif.
if pr_1 = 'X'.
perform cust_prog.
perform cust_line.
perform f001_progressive_total.
perform f002_item_data.
elseif pr_2 = 'X'.
perform cust_line.
perform f002_item_data.
endif.
*& Form cust_prog
text
form cust_prog.
clear it_bp3[].
p_date1 = so_fkdat-low.
call function 'Z_VF053_DATE_GET_YEAR_MONTH'
exporting
i_date = p_date1
importing
e_dd = l_day_c
e_month = l_month_c
e_year = l_base_yr_c.
ranges so_bdat2 for bsid-budat.
clear : so_bdat3[].
if l_day_c > 01.
l_day_c = '01'.
concatenate l_base_yr_c l_month_c l_day_c into l_date.
so_bdat2-low = l_date.
so_bdat2-high = so_fkdat-low - 1.
else.
so_bdat2-low = '00000000'.
so_bdat2-high = '00000000'.
endif.
so_bdat2-sign = 'I'.
so_bdat2-option = 'BT'.
append so_bdat2 to so_bdat3.
select kunnr bukrs budat into corresponding fields of table it_bp3 from bsid
for all entries in it_bp1
where bukrs in so_bukrs
and kunnr = it_bp1-kunnr
and budat in so_bdat3.
select kunnr bukrs budat
appending corresponding fields of table it_bp3
from bsad
for all entries in it_bp1
where bukrs in so_bukrs
and kunnr = it_bp1-kunnr
and budat in so_bdat3.
sort it_bp3 by kunnr .
delete adjacent duplicates from it_bp3 comparing kunnr.
sort it_bp3 by kunnr .
clear w_total_bf.
endform. "cust_prog
*& Form cust_line
text
form cust_line.
clear it_bp[].
select kunnr bukrs budat
into corresponding fields of table it_bp
from bsid
for all entries in it_bp1
where bukrs in so_bukrs
and kunnr = it_bp1-kunnr
and budat in so_fkdat.
select kunnr bukrs budat
appending corresponding fields of table it_bp
from bsad
for all entries in it_bp1
where bukrs in so_bukrs
and kunnr = it_bp1-kunnr
And budat in so_fkdat.
sort it_bp by kunnr .
delete adjacent duplicates from it_bp comparing kunnr.
sort it_bp by kunnr .
endform. "cust_line
*& Form f001_progressive_total
text
form f001_progressive_total.
if not it_bp3[] is initial.
clear : w_text ,w_cnt,p_date1,l_base_yr_c, l_month_c,l_day_c,l_date.
w_cnt1 = sy-tabix .
CONCATENATE w_cnt1 ' Feaching Data ' INTO w_text.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
text = w_text.
ranges so_bdat2 for bsid-bldat.
clear : so_bdat1[].
p_date1 = so_fkdat-low.
call function 'Z_VF053_DATE_GET_YEAR_MONTH'
exporting
i_date = p_date1
importing
e_dd = l_day_c
e_month = l_month_c
e_year = l_base_yr_c.
if l_day_c > 01.
l_day_c = '01'.
concatenate l_base_yr_c l_month_c l_day_c into l_date.
so_bdat2-low = l_date.
so_bdat2-high = so_fkdat-low - 1.
else.
l_day_c = so_fkdat-low.
so_bdat2-low = l_date.
so_bdat2-high = '00000000'.
endif.
so_bdat2-sign = 'I'.
so_bdat2-option = 'BT'.
append so_bdat2 to so_bdat1.
export so_bdat1 to memory id 'DATE1'.
export it_bp3 to memory id 'IT_BP3'.
clear : so_bdat1, it_bp3.
submit z_rfitemar1
with x_aisel = 'X'
with x_norm = 'X'
with dd_bukrs-low = so_bukrs-low "#EC *
and return.
clear : it_pos[], it_pos .
import it_pos from memory id 'zit_pos'.
free memory id 'zit_pos'.
delete it_pos where blart <> 'DZ'.
Here Plz Clear all the varible to avoid overlap
clear : w_open_bal,w_du_start_date,w_du_end_date.
select belnr bukrs gjahr into corresponding fields of table it_bkpf
from bkpf for all entries in it_pos where belnr = it_pos-belnr and gjahr = it_pos-gjahr
and bukrs = it_pos-bukrs and xreversal = ' '.
endif.
loop at it_pos.
clear it_bkpf.
read table it_bkpf with key bukrs = it_pos-bukrs belnr = it_pos-belnr gjahr = it_pos-gjahr.
if sy-subrc eq 0.
append it_pos to it_check.
endif.
endloop.
it_pos[] = it_check[].
***opening bal
since runtime error is coming while summing the alternate way is being used ... done by jayakumar on 11 10 06
LOOP AT it_pos .
SUM .
w_open_bal = it_pos-dmshb .
EXIT .
ENDLOOP .
loop at it_pos .
read table it_cust3 with key belnr = it_pos-belnr.
it_pos-dmshb = it_cust3-wrbtr.
w_open_bal = w_open_bal + it_pos-dmshb .
endloop .
if w_open_bal < 0 .
w_open_bal = w_open_bal * -1.
endif.
w_total_bf = w_total_bf + w_open_bal.
endif.
write :20 'Progressive Total B/F -
' ,106 w_total_bf.
skip 1 .
endform. "f001_progressive_total
*& Form f002_item_data
text
form f002_item_data.
if not it_bp[] is initial.
select * into corresponding fields of table it_kna1 from kna1
for all entries in it_bp
where kunnr = it_bp-kunnr .
export so_fkdat to memory id 'DATE'.
export it_bp to memory id 'IT_BP'.
clear : so_fkdat, it_bp.
submit z_rfitemar1
with x_aisel = 'X'
with x_norm = 'X'
with dd_bukrs-low = so_bukrs-low "#EC *
and return.
DELETE it_pos WHERE u_xreversal <> ' '.
clear : it_pos[], it_pos .
import it_pos from memory id 'zit_pos'.
free memory id 'zit_pos'.
delete it_pos where blart <> 'DZ'.
sort it_pos by belnr.
APPEND LINES OF it_pos TO it_pos1.
DELETE ADJACENT DUPLICATES FROM it_pos COMPARING belnr." commented by sarang
clear : it_cust[], it_cust.
if not it_pos[] is initial.
select belnr wrbtr xref1 kunnr bschl
into corresponding fields of table it_cust
from bseg
for all entries in it_pos
where belnr = it_pos-belnr
and bukrs = it_pos-bukrs
and gjahr = it_pos-gjahr
and bschl in ('15','40') .
it_cust2[] = it_cust[].
delete it_cust where bschl ne 15.
delete it_cust2 where bschl ne 40.
sort it_pos by konto.
else.
write : 20 '**No Transaction to Display**'.
endif.
DELETE it_pos WHERE u_xreversal = 'X'.
tables bkpf.
loop at it_pos.
select single * from bkpf where belnr = it_pos-belnr and bukrs = it_pos-bukrs and gjahr = it_pos-gjahr and xreversal = ' '.
if sy-subrc = 0.
append it_pos to it_pos_bc1.
endif.
endloop.
clear it_pos.
it_pos[] = it_pos_bc1[].
sort it_pos by konto belnr xref3.
loop at it_pos.
read table it_cust2 with key belnr = it_pos-belnr.
on change of it_pos-konto or "IT_CUST2-xref1 or
it_pos-belnr.
it_pos_bc[] = it_pos[].
delete it_pos_bc[] where konto ne it_pos-konto.
delete it_pos_bc[] where belnr ne it_pos-belnr.
loop at it_pos_bc.
sum.
exit.
endloop.
append it_pos_bc to it_pos_nc.
endon.
endloop.
free it_pos.
it_pos[] = it_pos_nc[].
data : w_amt1 type bseg-dmbtr,
w_amt2 type bseg-dmbtr.
clear : w_amt1 , w_amt2.
sort it_pos by budat belnr konto.
data : w_ch(5) type c,
w_i type i.
w_i = 0.
loop at it_pos where shkzg = 'H' .
clear w_text.
w_i = w_i + 1 .
w_ch = w_i.
read table it_cust with key belnr = it_pos-belnr kunnr = it_pos-konto.
read table it_kna1 with key kunnr = it_pos-konto .
CONCATENATE it_kna1-name1 INTO w_text.
w_text = it_kna1-name1.
CONDENSE w_text NO-GAPS.
write : / w_ch left-justified , 07 it_pos-budat ,20 it_pos-belnr(10) ,31 it_pos-konto(10),42 w_text(60).
read table it_cust2 with key belnr = it_pos-belnr.
if it_cust2-xref1 = 'Cash Payment' or it_cust2-xref1 = 'Cash'.
if it_pos-dmshb < 0 .
it_pos-dmshb = it_pos-dmshb * -1 .
it_pos-dmshb = it_cust2-wrbtr.
else. "+PM28072006
it_pos-dmshb = it_pos-dmshb * -1 . "+PM28072006
it_pos-dmshb = it_cust2-wrbtr.
endif.
write : 72 it_pos-dmshb.
w_amt1 = w_amt1 + it_pos-dmshb.
else.
if it_pos-dmshb < 0 .
it_pos-dmshb = it_pos-dmshb * -1 .
it_pos-dmshb = it_cust2-wrbtr.
else. "+PM28072006
it_pos-dmshb = it_pos-dmshb * -1."+PM28072006
it_pos-dmshb = it_cust2-wrbtr.
endif.
write : 87 it_pos-dmshb.
w_amt2 = w_amt2 + it_pos-dmshb.
endif .
endloop .
else.
write : 20 '**No Transaction to Display**'.
endif.
clear : it_cust1[] ,w_pos .
it_cust1[] = it_cust[] .
sort it_cust1 by wrbtr.
delete it_cust1 where xref1 <> 'Cash Payment' .
delete it_cust1 where xref1 <> 'Cash' .
loop at it_cust1.
sum .
w_pos = it_cust1-wrbtr .
exit .
endloop .
clear :it_cust1[],w_neg .
it_cust1[] = it_cust[] .
sort it_cust1 by wrbtr.
delete it_cust1 where xref1 = 'Cash Payment' .
delete it_cust1 where xref1 = 'Cash' .
loop at it_cust1.
sum .
w_neg = it_cust1-wrbtr .
exit .
endloop .
if w_pos < 0.
w_pos = w_pos * -1 .
else. "+PM28072006
w_pos = w_pos * -1. "+PM28072006
endif.
if w_neg < 0.
w_neg = w_neg * -1 .
else. "+PM28072006
w_neg = w_neg * -1. "+PM28072006
endif.
write sy-uline(125) .
write : /20 'Total Collection Amount -
>'.
write : 76 w_amt1 ,91 w_amt2.
w_sub_tot = w_amt1 + w_amt2.
if w_sub_tot < 0.
w_sub_tot = w_sub_tot * -1.
endif.
write : 106 w_sub_tot.
if pr_1 = 'X'.
w_total_co = w_total_bf + w_sub_tot.
if w_total_co < 0.
w_total_co = w_total_co * -1.
endif.
write : /20 'Progressive Total C/O -
>'.
write : 106 w_total_co.
endif.
write sy-uline(125) .
endform. "f002_item_data
ENDIF .
*END-OF-SELECTION.
E N D O F S E L E C T I O N *
At line selection *
*AT LINE-SELECTION.
User Command Processing *
*AT USER-COMMAND.
Top Of Page *
top-of-page.
select single * from t001 where bukrs = so_bukrs-low .
select single * from adrc where addrnumber = t001-adrnr . "EC *
write : /05 t001-butxt.
CONCATENATE adrc-house_num1 '-' adrc-street INTO w_text1.
CONCATENATE adrc-city1 '-' adrc-post_code1 INTO w_text2.
WRITE : /05 w_text1 .
WRITE : /05 w_text2 .
write : /05 'Sales Organisation:', so_kunrg-low.
write : /05 'Sales Office:', so_vkbur-low.
skip 1.
if pr_3 = 'X'.
write : /05 'Agent Circulation Collection Statement From ' , so_fkdat-low , ' to ' ,so_fkdat-high .
else.
write : /05 'Advertisement Collection Statement From ' , so_fkdat-low , ' to ' ,so_fkdat-high .
endif.
if pr_3 = 'X'.
write :/ sy-uline(125) .
write :/07 'Date' ,20 'Doc No',31 'Code' ,42 'Agent Name & Place',84 'BY CASH' ,97 'BY CHQ/DD' ,115 'Prog. Total'.
write :/ sy-uline(125) .
else.
write :/ sy-uline(125) .
write :/07 'Date' ,20 'Doc No',31 'Code' ,42 'Advertisers Name' , 84 'BY CASH' ,97 'BY CHQ/DD' ,115 'Prog. Total'.
write :/ sy-uline(125) .
endif .
End Of Page *
END-OF-PAGE.END-OF-PAGE.Hello Selvi
There is no need to use two subroutine. Actually, this would be bad programming. Instead use a switch for your subroutine which determines whether the calculation should be done for the actual and the previous day, e.g.:
PERFORM do_calculation
USING 'X' " 'X' = calculate for previous day as well
USING p_date " current date
CHANGING gt_list. " itab with list data
And that's how the subroutine could look like:
FORM do_calculation
USING VALUE(ud_calculate_previous_day) TYPE c
VALUE(ud_date) TYPE d
CHANGING ct_list TYPE <table type>.
* define local data
DATA:
ld_date_prev TYPE d,
lt_list_prev TYPE <table type>. " list for previous day
* Do the calculations for the current day
IF ( ud_calculate_previous_day = 'X' ).
ld_date_prev = ud_date - 1.
PERFORM do_calculation
USING ' ' " ' ' = no calculation for previous day
ld_date_prev
CHANGING lt_list_prev. " itab with list data
ENDIF.
* Post-processing after calculation for both days
ENDFORM.
Regards
Uwe -
My switch Linksys srw224g4 has problem and I need someone help
Hello,
My switch Linksys srw224g4 has problem that it keeps rebooting continuously and cannot bootup successfuly. Can someone tell me how to fix this problem? Firmware version is 1.2.2b , boot version is 1.0.2
Here is console capture:
==================
------ Performing the Power-On Self Test (POST) ------
UART Channel Loopback Test........................PASS
Testing the System SDRAM..........................PASS
Boot1 Checksum Test...............................PASS
Boot2 Checksum Test...............................PASS
Flash Image Validation Test.......................PASS
BOOT Software Version 1.0.2 Built 17-Aug-2006 14:55:46
Linksys SmartSwitch based on 88E6218 with ARM946E-S.
32MByte SDRAM. I-Cache 8 KB. D-Cache 8 KB. Cache Enabled.
Autoboot in 2 seconds - press RETURN or Esc. to abort and enter prom.
Preparing to decompress...
100%
Decompressing SW from flash
100%
OK
Running from RAM...
*** Running SW Ver. 1.2.2b Date 20-Mar-2007 Time 11:44:49 ***
HW version is 00.03.00
Base Mac address is: 00:1d:7e:74:b6:14
Dram size is : 32M bytes
Dram first block size is : 16969K bytes
Dram first PTR is : 0xF6D840
Flash size is: 8M
01-Jan-2000 01:01:02 %CDB-I-LOADCONFIG: Loading startup configuration.
LZMA: Decompressing file failed!
HOSTG_rscode_file_load: could not load file
Device configuration:
Slot 1 - SRW24F4G HW Rev. 0.2
Tapi Version: v1.3.3.1
Core Version: v1.3.3.1
01-Jan-2000 01:01:09 %SYSLOG-F-OSFATAL:
L FATAL ERROR: ROOT: ABORT DATA exception
***** FATAL ERROR *****
SW Version : 1.2.2.16
Version Date: 20-Mar-2007
Version Time: 11:44:49
Instruction 0x121fc0
Exception vector 0x10
Program state register 0x20000013
***************** SYSTEM RESET *****************
------ Performing the Power-On Self Test (POST) ------
UART Channel Loopback Test........................PASS
Testing the System SDRAM..........................PASS
Boot1 Checksum Test...............................PASS
Boot2 Checksum Test...............................PASS
Flash Image Validation Test.......................PASS
BOOT Software Version 1.0.2 Built 17-Aug-2006 14:55:46
Linksys SmartSwitch based on 88E6218 with ARM946E-S.
32MByte SDRAM. I-Cache 8 KB. D-Cache 8 KB. Cache Enabled.
Autoboot in 2 seconds - press RETURN or Esc. to abort and enter prom.
Preparing to decompress...
100%
Decompressing SW from flash
100%
OK
Running from RAM...
*** Running SW Ver. 1.2.2b Date 20-Mar-2007 Time 11:44:49 ***
HW version is 00.03.00
Base Mac address is: 00:1d:7e:74:b6:14
Dram size is : 32M bytes
Dram first block size is : 16969K bytes
Dram first PTR is : 0xF6D840
Flash size is: 8M
01-Jan-2000 01:01:02 %CDB-I-LOADCONFIG: Loading startup configuration.
LZMA: Decompressing file failed!
HOSTG_rscode_file_load: could not load file
DelScr fatal Error: Invalid Variant type01-Jan-2000 01:01:03 %SYSLOG-F-OSFATAL: DelScr fatal Error
***** FATAL ERROR *****
Reporting Task: ROOT.
Software Version: 1.2.2b (date 20-Mar-2007 time 11:44:49)
***************** SYSTEM RESET *****************
Thanks,
TienHi,
Please follow the steps in this link to reload the image:
http://www.cisco.com/en/US/products/ps9967/products_qanda_item09186a0080a36371.shtml
And this is the link to download boot code 1.00.86:
http://ip.gliebetronics.com:800/firmware/Linksys%20SRW2024/Firmware/
Hope this help. -
DVI to TV problem. I need some help please
OK, Im running a MAcbook pro latest OSX all updates etc... In the past i have been able to plug in the adapter to the DVI and run on end of an RCA cable out of it to the RCA video in on any tv. I would normally just hit f7 and the display would be seen on the tv. The problem is now I can get a picture on the tv what so ever. I have tried the detect display feature and no luck. I have tried multiple tvs and cables..no luck....
No when i connect to an external computer monitor using the other DVI adapter everything is fine on the external monitor.
I believe the problem started when I hooked up the external computer monitor. It seems some setting has changed that will only recognize the the computer monitor.
I don't think its the DVI to to tv adapter having a problem as it's newer..never been abused or anything like that... Im very confused and frustrated any help would be appreciated
thanks
pspThis means that the phone was previously unlocked by unauthorized methods and becomes re-locked whenever you update or restore the iOS.
Only the original carrier can unlock your phone by authorized means that will be permanent. Many carriers do not offer unlocking, particularly if you don't have an account with them. -
I have a working problem, but still need some help
import javax.swing.JOptionPane;
class testing
public static void main(String args[])
int firstNum = 0, secondNum = 0;
int evensTotal = 0, oddsTotal = 0;
while(firstNum >= secondNum)
int num = Integer.parseInt(JOptionPane.showInputDialog("Enter a number"));
if(firstNum == 0) firstNum = num;
else secondNum = num;
for(int i = firstNum; i <= secondNum; i++)
if(i % 2 == 0) evensTotal += i;
else
System.out.println("odd number = " + i);
System.out.println("Even numbers total = " + evensTotal);
for(int i=firstNum; i<= secondNum; i++)
if( i % 2 == 0 ) evensTotal=i;
System.out.println(i+" squared is " + (i*i) );
for(int i = firstNum; i <= 10; i++)
if(i % 2 == 0) evensTotal += i;
else
oddsTotal += i*i;
System.out.println("Odd numbers(squared) total = " + oddsTotal);
System.exit(0);
}I have everything I need, but I don't want it to display the even numbers squared. I want it to display the odd numbers squared. And also at the end I need to Output all of the uppercase letters. Any ideas of what that means or how to go about it??
By the way. The program outputs the following when I use firstNum=1 and secondNum=13:
odd number = 1
odd number = 3
odd number = 5
odd number = 7
odd number = 9
odd number = 11
odd number = 13
Even numbers total = 42
2 squared is 4
4 squared is 16
6 squared is 36
8 squared is 64
10 squared is 100
Odd numbers(squared) total = 165
Edited by: mk9000 on Oct 29, 2008 9:09 PMimport javax.swing.JOptionPane;
class testing
public static void main(String args[])
int firstNum = 0, secondNum = 0;
int evensTotal = 0, oddsTotal = 0;
while(firstNum >= secondNum)
int num = Integer.parseInt(JOptionPane.showInputDialog("Enter a number"));
if(firstNum == 0) firstNum = num;
else secondNum = num;
for(int i = firstNum; i <= secondNum; i++)
if(i % 2 == 0) evensTotal += i;
else
System.out.println("odd number = " + i);
System.out.println("Even numbers total = " + evensTotal);
for(int i=firstNum; i<= 10; i++)
if( i % 2 == 0 ) evensTotal+=i;
else
System.out.println(i+" squared is " + (i*i) );
for(int i = firstNum; i <= 10; i++)
if(i % 2 == 0) evensTotal += i;
else
oddsTotal += i*i;
System.out.println("Odd numbers(squared) total = " + oddsTotal);
System.exit(0);
}Ok. I figured out how to display the odd numbers squared. I was forgetting to place the else after the if statement. But I still don't understand what my teacher could be talking about when she says "the last step is to output all the uppercase letters"
Any help here? It makes no sense to me. It's all numbers. How could I output any uppercase letters?
Edited by: mk9000 on Oct 30, 2008 5:53 AM -
Hello,
I have a query. I need to call a screen with a field from a BADI. Doing that gives me a dump. Is this possible? Can any one kindly suggest on this.
Thanks,
GaneshHi Ganesh,
Can you please let me know which BAdI are you using.
Is it with SRM-EBP ? Or can you post your error dump to have a look.
Regards.
Pras Durafe. -
Burn problems ... need urgent help!
I have a video project I need to burn at the latest thursday morning, and my burner is acting super screwy. It is telling me that it cant calibrate the drive to burn the discs. I am using verbatim dvd-r 16x. PLEASE HELP ME
1. no, just the webapps found on http://www.apple.com/webapps/ but you cannot download them.
2. you have to select your home network and then enter your wifi password. after that a checkmark appears next to the network - you are now connected. please note that you do NOT press the blue arrow next to a network, but the name of the network itself (so you press on the text that spells the network-name left of the blue arrow) -
Hi
I have to add 'Upload excel file' option in Material consumption program. Current logic is Uploading Unix file. Can any one give me some idea pls.
following is my coding
PROGRAM ZMDM0081 MESSAGE-ID ZM.
TABLES: MARA.
* Resource file record structure
DATA: BEGIN OF RECORD,
MATERIAL_NUMBER(10),
PLANT(5),
CORRECTED_VALUE_19(11),
CORRECTED_VALUE_18(11),
CORRECTED_VALUE_17(11),
CORRECTED_VALUE_16(11),
CORRECTED_VALUE_15(11),
CORRECTED_VALUE_14(11),
CORRECTED_VALUE_13(11),
CORRECTED_VALUE_12(11),
CORRECTED_VALUE_11(11),
CORRECTED_VALUE_10(11),
CORRECTED_VALUE_09(11),
CORRECTED_VALUE_08(11),
CORRECTED_VALUE_07(11),
CORRECTED_VALUE_06(11),
CORRECTED_VALUE_05(11),
CORRECTED_VALUE_04(11),
CORRECTED_VALUE_03(11),
CORRECTED_VALUE_02(11),
CORRECTED_VALUE_01(11),
END OF RECORD.
* Working variables
DATA: RECORD_READ(6) TYPE P,
RECORD_INSERT(6) TYPE P,
RECORD_OMIT(6) TYPE P,
MATERIAL_NUMBER LIKE MARA-MATNR,
G_BRGEW LIKE MARA-BRGEW,
N_NTGEW LIKE MARA-NTGEW,
PLANT LIKE MARC-WERKS,
REMARKS(50),
FLAG(1),
RECORD_FLAG(1),
INTENSIFIED_FLAG(1),
NUMBER(6) TYPE P.
* Constant variables
CONSTANTS: VALID VALUE '1',
INVALID VALUE '0',
ON VALUE '1',
OFF VALUE '0'.
* Reporting groups
FIELD-GROUPS HEADER.
* Insert into groups
INSERT MATERIAL_NUMBER
PLANT
REMARKS
INTO HEADER.
* BDC parameters
SELECTION-SCREEN BEGIN OF BLOCK ONE WITH FRAME TITLE TEXT-010.
PARAMETERS: FILE(30) TYPE C
DEFAULT '/export/remote/data.txt'
LOWER CASE
OBLIGATORY,
SESSION LIKE RL04I-MAPPE
OBLIGATORY
DEFAULT '8301_MM02',
UNAME LIKE SY-UNAME DEFAULT SY-UNAME.
SELECTION-SCREEN END OF BLOCK ONE.
* Data conversion parameters
SELECTION-SCREEN BEGIN OF BLOCK TWO WITH FRAME TITLE TEXT-020.
PARAMETERS MONTH(2) TYPE N DEFAULT 1.
SELECTION-SCREEN END OF BLOCK TWO.
* Notes to user
SELECTION-SCREEN BEGIN OF BLOCK THREE WITH FRAME TITLE TEXT-030.
SELECTION-SCREEN COMMENT /5(70) TEXT-040.
SELECTION-SCREEN COMMENT /5(70) TEXT-050.
SELECTION-SCREEN END OF BLOCK THREE.
MOVE UNAME TO SY-UNAME.
* Including SAP R/3 BDC customized include
INCLUDE ZSIN0001.
* Verifying the path & file name
AT SELECTION-SCREEN ON FILE.
PERFORM RESOURCE_FILE_OPEN.
* Processing BDC
START-OF-SELECTION.
PERFORM SESSION_OPEN.
PERFORM SESSION_GENERATION.
PERFORM SESSION_CLOSE.
CLOSE DATASET FILE.
* Printing execution report
END-OF-SELECTION.
SKIP.
WRITE /15 'BDC & SYSTEM PARAMETERS -' COLOR 3.
SKIP.
WRITE: /15 'Resource path & filename ..........', FILE,
/15 'Session name ......................', SESSION,
/15 'ABAP/4 Program name ...............', SY-REPID,
/15 'Client ............................', SY-MANDT,
/15 'SAP System ID .....................', SY-SYSID,
/15 'SAP Release .......................', SY-SAPRL,
/15 'Host ..............................', SY-HOST,
/15 'Operating system ..................', SY-OPSYS,
/15 'Database system ...................', SY-DBSYS,
/15 'User ID ...........................', SY-UNAME,
/15 'Date ..............................', SY-DATUM,
/15 'Time ..............................', SY-UZEIT.
SKIP 3.
WRITE /15 'DATA CONVERSION DEFAULT PARAMETERS -' COLOR 3.
SKIP.
WRITE: /15 'Start at previous month ............', MONTH.
SKIP 3.
WRITE /15 'EXECUTION REPORT -' COLOR 3.
SKIP.
WRITE: /15 'Total records read form file ......', RECORD_READ,
/15 'Total records insert to BDC .......', RECORD_INSERT,
/15 'Total records omitted .............', RECORD_OMIT.
NEW-PAGE.
SORT.
LOOP.
ADD 1 TO NUMBER.
IF INTENSIFIED_FLAG EQ ON.
FORMAT COLOR 2 INTENSIFIED ON.
MOVE OFF TO INTENSIFIED_FLAG.
ELSE.
FORMAT COLOR 2 INTENSIFIED OFF.
MOVE ON TO INTENSIFIED_FLAG.
ENDIF.
WRITE: /1 NUMBER, MATERIAL_NUMBER, PLANT, REMARKS.
POSITION SY-LINSZ.
WRITE ' '.
ENDLOOP.
* Reading resource file and generating BDC session
FORM SESSION_GENERATION.
DO.
READ DATASET FILE INTO RECORD.
IF SY-SUBRC NE 0 OR RECORD IS INITIAL.
EXIT.
ENDIF.
ADD 1 TO RECORD_READ.
PERFORM RECORD_CONDENSATION.
PERFORM RECORD_VERIFICATION.
CHECK RECORD_FLAG EQ VALID.
REFRESH BDCDATA.
PERFORM SCREEN_SEQUENCE.
PERFORM BDC_TRANSACTION USING 'MM02'.
IF SY-SUBRC EQ 0 .
ADD 1 TO RECORD_INSERT.
ELSE.
ADD 1 TO RECORD_OMIT.
ENDIF.
ENDDO.
ENDFORM. "SESSION_GENERATION
* Condensing the record fields
FORM RECORD_CONDENSATION.
CONDENSE: RECORD-MATERIAL_NUMBER,
RECORD-PLANT,
RECORD-CORRECTED_VALUE_19,
RECORD-CORRECTED_VALUE_18,
RECORD-CORRECTED_VALUE_17,
RECORD-CORRECTED_VALUE_16,
RECORD-CORRECTED_VALUE_15,
RECORD-CORRECTED_VALUE_14,
RECORD-CORRECTED_VALUE_13,
RECORD-CORRECTED_VALUE_12,
RECORD-CORRECTED_VALUE_11,
RECORD-CORRECTED_VALUE_10,
RECORD-CORRECTED_VALUE_09,
RECORD-CORRECTED_VALUE_08,
RECORD-CORRECTED_VALUE_07,
RECORD-CORRECTED_VALUE_06,
RECORD-CORRECTED_VALUE_05,
RECORD-CORRECTED_VALUE_04,
RECORD-CORRECTED_VALUE_03,
RECORD-CORRECTED_VALUE_02,
RECORD-CORRECTED_VALUE_01.
ENDFORM. "RECORD_CONDENSATION
* Verifying record fields
FORM RECORD_VERIFICATION.
MOVE VALID TO RECORD_FLAG.
UNPACK RECORD-MATERIAL_NUMBER TO MATERIAL_NUMBER.
SELECT SINGLE * FROM MARA
WHERE MATNR EQ MATERIAL_NUMBER.
IF SY-SUBRC NE 0.
ADD 1 TO RECORD_OMIT.
MOVE: RECORD-PLANT TO PLANT,
TEXT-060 TO REMARKS,
INVALID TO RECORD_FLAG.
EXTRACT HEADER.
EXIT.
ELSE.
IF MARA-NTGEW > MARA-BRGEW. "add to check for net weight > grow
MOVE '1' TO FLAG.
ELSE.
MOVE ' ' TO FLAG.
ENDIF.
ENDIF.
MOVE RECORD-PLANT TO PLANT.
SELECT SINGLE MATNR WERKS INTO (PLANT, MATERIAL_NUMBER)
FROM ('MARC')
WHERE MATNR EQ MATERIAL_NUMBER
AND WERKS EQ PLANT.
IF SY-SUBRC NE 0.
ADD 1 TO RECORD_OMIT.
MOVE: TEXT-070 TO REMARKS,
INVALID TO RECORD_FLAG.
EXTRACT HEADER.
ENDIF.
ENDFORM. "RECORD_VERIFICATION
* Performing the screen sequence
FORM SCREEN_SEQUENCE.
PERFORM SCREEN_SAPLMGMM_0060.
PERFORM SCREEN_SAPLMGMM_0070.
PERFORM SCREEN_SAPLMGMM_3005.
PERFORM SCREEN_SAPLMGMM_0081.
PERFORM SCREEN_SAPLMGMM_3006.
PERFORM SCREEN_SAPLMGMM_3110.
ENDFORM. "SCREEN_SEQUENCE
* Change Material: Initial Screen
FORM SCREEN_SAPLMGMM_0060.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0060'.
PERFORM BDC_FIELD USING 'RMMG1-MATNR' RECORD-MATERIAL_NUMBER.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '/5'. " Select view(s)
ENDFORM. "SCREEN_SAPLMGMM_0060
* Select view(s)
FORM SCREEN_SAPLMGMM_0070.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.
PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(01)' 'X'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '/0'. " Enter
ENDFORM. "SCREEN_SAPLMGMM_0070
* Change Material: Basic data
FORM SCREEN_SAPLMGMM_3005.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3005'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' 'SP08'. " MRP 1
IF FLAG EQ '1'.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3005'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '/0'.
ENDIF.
ENDFORM. "SCREEN_SAPLMGMM_3005
* Organizational levels
FORM SCREEN_SAPLMGMM_0081.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0081'.
PERFORM BDC_FIELD USING 'RMMG1-WERKS' RECORD-PLANT.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTR'. "Continue
ENDFORM. "SCREEN_SAPLMGMM_0081
* Change Material: MRP 1
FORM SCREEN_SAPLMGMM_3006.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3006'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' 'ZU11'. " Consumption
ENDFORM. "SCREEN_SAPLMGMM_3006
* Change Material: Consumption
FORM SCREEN_SAPLMGMM_3110.
CONSTANTS: PREVIOUS_MONTH VALUE 'X',
THIS_MONTH VALUE ' '.
DATA: ROW_POSITION(2) TYPE N VALUE 0,
WS_POSITION(2) TYPE C,
FIELDNAME LIKE BDCDATA-FNAM,
CONSUMPTION_QUANTITY LIKE RECORD-CORRECTED_VALUE_01.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3110'.
* if month eq previous_month.
* move 1 to row_position.
* elseif month eq this_month.
* move 0 to row_position.
* endif.
MOVE MONTH TO ROW_POSITION.
DO 19 TIMES VARYING CONSUMPTION_QUANTITY
FROM RECORD-CORRECTED_VALUE_01
NEXT RECORD-CORRECTED_VALUE_02.
IF ROW_POSITION GT 11.
MOVE 1 TO ROW_POSITION.
PERFORM BDC_FIELD USING 'BDC_OKCODE' 'VWNP'. " Page down
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3110'.
ENDIF.
UNPACK ROW_POSITION TO WS_POSITION.
CONCATENATE 'RM03M-VBWRT(' WS_POSITION ')' INTO FIELDNAME.
IF CONSUMPTION_QUANTITY+0(1) EQ '-'.
SHIFT CONSUMPTION_QUANTITY LEFT BY 1 PLACES.
CONCATENATE CONSUMPTION_QUANTITY '-' INTO CONSUMPTION_QUANTITY.
ENDIF.
PERFORM BDC_FIELD USING FIELDNAME CONSUMPTION_QUANTITY.
ADD 1 TO ROW_POSITION.
ENDDO.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3110'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '/11'. " Save
ENDFORM. "SCREEN_SAPLMGMM_3110
Include Program
* BDC data table and record structure defination
DATA BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
* Opening a resource file
FORM RESOURCE_FILE_OPEN.
DATA ERROR_MESSAGE(40).
*Begin of changes Mod01
* OPEN DATASET FILE FOR INPUT IN TEXT MODE MESSAGE ERROR_MESSAGE.
OPEN DATASET FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT MESSAGE
ERROR_MESSAGE.
*End of changes Mod01
IF SY-SUBRC NE 0.
MESSAGE E000 WITH FILE ERROR_MESSAGE.
ENDIF.
ENDFORM.
* Opening of BDC session
FORM SESSION_OPEN.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING CLIENT = SY-MANDT
DEST = SY-HOST
GROUP = SESSION
USER = SY-UNAME
KEEP = 'X'
EXCEPTIONS CLIENT_INVALID = 01
DESTINATION_INVALID = 02
GROUP_INVALID = 03
HOLDDATE_INVALID = 04
INTERNAL_ERROR = 05
QUEUE_ERROR = 06
RUNNING = 07
USER_INVALID = 08.
CASE SY-SUBRC.
WHEN 01. MESSAGE E001 WITH SY-MANDT.
WHEN 02. MESSAGE E002.
WHEN 03. MESSAGE E003.
WHEN 04. MESSAGE E004.
WHEN 05. MESSAGE E005.
WHEN 06. MESSAGE E006.
WHEN 07. MESSAGE E007.
WHEN 08. MESSAGE E007.
ENDCASE.
ENDFORM.
* Closing BDC session
FORM SESSION_CLOSE.
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS NOT_OPEN = 01
QUEUE_ERROR = 02.
CASE SY-SUBRC.
WHEN 01. MESSAGE E009.
WHEN 02. MESSAGE E010.
ENDCASE.
ENDFORM.
* Inserting data into BDC
FORM BDC_TRANSACTION USING TRANSACTION_CODE.
CALL FUNCTION 'BDC_INSERT'
EXPORTING TCODE = TRANSACTION_CODE
TABLES DYNPROTAB = BDCDATA
EXCEPTIONS INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
OTHERS = 5.
ENDFORM.
* Insert program name & screen number
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
MOVE: PROGRAM TO BDCDATA-PROGRAM,
DYNPRO TO BDCDATA-DYNPRO,
'X' TO BDCDATA-DYNBEGIN.
APPEND BDCDATA.
ENDFORM.
* Inserting field name/BDC_OKCODE/BDC_CUESOR and value
FORM BDC_FIELD USING FNAM FVAL.
CLEAR BDCDATA.
MOVE: FNAM TO BDCDATA-FNAM,
FVAL TO BDCDATA-FVAL.
APPEND BDCDATA.
ENDFORM.i have changed the selection screen as follows
SELECTION-SCREEN BEGIN OF BLOCK one WITH FRAME TITLE text-010.
* "1)
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_unix RADIOBUTTON GROUP rad1 . "
SELECTION-SCREEN COMMENT 5(26) text-008.
SELECTION-SCREEN POSITION 33. "
PARAMETERS: file(128) TYPE c
DEFAULT '/export/remote/data.txt' LOWER CASE.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_xls RADIOBUTTON GROUP rad1 . "excel file
SELECTION-SCREEN COMMENT 5(26) text-009.
SELECTION-SCREEN POSITION 33. "
PARAMETERS: filf(128).
SELECTION-SCREEN END OF LINE.
*>>
*PARAMETERS: file(128) TYPE c
* DEFAULT '/export/remote/data.txt' LOWER CASE OBLIGATORY,
PARAMETERS: session LIKE rl04i-mappe OBLIGATORY
DEFAULT '8301_MM02',
uname LIKE sy-uname DEFAULT sy-uname.
SELECTION-SCREEN END OF BLOCK one.
* Data conversion parameters
SELECTION-SCREEN BEGIN OF BLOCK two WITH FRAME TITLE text-020.
PARAMETERS month(2) TYPE n DEFAULT 1.
SELECTION-SCREEN END OF BLOCK two.
* Notes to user
SELECTION-SCREEN BEGIN OF BLOCK three WITH FRAME TITLE text-030.
SELECTION-SCREEN COMMENT /5(70) text-040.
SELECTION-SCREEN COMMENT /5(70) text-050.
SELECTION-SCREEN END OF BLOCK three. -
Logic needed and help needed in BAPI..
Hi,
I am looking 2 BAPI's for posting an accounting doc in GL.
BAPI_ACC_DOCUMENT_POST
BAPI_ACC_GL_POSTING_POST
But in the above mentioned BAPI's I dont find any posting key field.
Here my scenario is to use the posting keys 40 and 50 for posting's.
Can any body suggest me how to approach for this.
Thanks in Advance.
Message was edited by: KDeepak
Message was edited by: KDeepak
Message was edited by: KDeepakHi
I changed my code to create three documents:
TABLES: bapiache09, mard.
DATA: t_items LIKE STANDARD TABLE OF bapiacgl09 WITH HEADER LINE,
t_amount LIKE STANDARD TABLE OF bapiaccr09 WITH HEADER LINE,
t_result LIKE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: belnr TYPE belnr_d,
gjahr TYPE gjahr.
DATA times TYPE n.
DO 3 TIMES.
Header Data
bapiache09-comp_code = 'ZN01'.
bapiache09-doc_date = sy-datum.
bapiache09-pstng_date = sy-datum.
bapiache09-doc_type = 'PV'.
bapiache09-ref_doc_no = 'BAPI Test'.
bapiache09-username = sy-uname.
bapiache09-bus_act = 'RFBU'.
MOVE sy-index TO times.
CONCATENATE 'BAPI TEST N.' times INTO bapiache09-ref_doc_no.
REFRESH t_items.
First Item
MOVE 1 TO t_items-itemno_acc.
Account number
t_items-gl_account = '0012440130'.
The posting key are 40/50 by default, if you need different keys, set
the transaction business code here: check hits of table T030B to see
the link between transaction and posting keys
*accountgl-acct_key = 'ACC'. <----
APPEND t_items.
Second Item
MOVE 2 TO t_items-itemno_acc.
Account number
t_items-gl_account = '0012440140'.
The posting key are 40/50 by default, if you need different keys, set
the transaction business code here: check hits of table T030B to see
the link between transaction and posting keys
*accountgl-acct_key = 'ACC'. <----
APPEND t_items.
REFRESH t_amount.
Set amount
MOVE 1 TO t_amount-itemno_acc.
t_amount-currency = 'EUR'.
MOVE 1000 TO t_amount-amt_doccur.
APPEND t_amount.
MOVE 2 TO t_amount-itemno_acc.
t_amount-currency = 'EUR'.
MOVE 1000 TO t_amount-amt_doccur.
t_amount-amt_doccur = t_amount-amt_doccur * -1.
APPEND t_amount.
REFRESH t_result.
check posting
CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
EXPORTING
documentheader = bapiache09
TABLES
accountgl = t_items
currencyamount = t_amount
return = t_result.
LOOP AT t_result WHERE ( type = 'E' OR
type = 'A' ).
EXIT.
ENDLOOP.
IF sy-subrc <> 0.
REFRESH t_result.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
documentheader = bapiache09
TABLES
accountgl = t_items
currencyamount = t_amount
return = t_result.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDIF.
Print Message
LOOP AT t_result.
WRITE: t_result-message.
Get Number
IF t_result-id = 'RW' AND
t_result-number = '605'.
belnr = t_result-message_v2(10).
gjahr = t_result-message_v2+14(4).
ENDIF.
ENDLOOP.
ENDDO.
Just as you can see, I insert my code into DO/ENDO cycle and so I re-call the BAPI three times.
In this situazione I posted document 3 documents and the field AWKEY is correctly filled.
Max
Maybe you are looking for
-
Can i use Boolean Expressions in Mail Rules?
Can i use Boolean Expressions in Mail Rules? I need to create a rule to check whether a message contains BOTH a first and last name of EITHER of two people. For example, the rule im looking to create goes something like this: If ANY of the following
-
How do I import text into the Keynote Titile
I am trying to use the Keynote title in FCPX - I have "imported" the title over the picture image clip that I want to use, and that works fine, but I am having extreme difficulty in changing the text in the boxes that appear from ex TITILE to what te
-
Replication between Oracle 7 and Oracle 10g. Is it possible?
Hello, I have two DBs which exist on two different versions of Oracle (7.3.3 and 10g). Those DBs have different structures of tables, data from which can be casted from one structure to other. Can I organise bi-directional replication between those D
-
Regarding the Post Installation and SP Level
Hi All, We have installed NWDI on our existing EP Dev Server.Installation was successful but regarding the post installation we are in a thinking as how best we could patch the newly installed NWDI system. As our EP system is on SP 11and NWDI system
-
Capturing JCheckBox edit from within a JTable cell
Hey, I've gone through as many posts as i can from this forum and i have managed to understand quite a bit but there is just this one probelm that i have. What i have is a checkbox in a cell in a jtable that causes the a jpanel elsewhere to repaint i