I need urgrnt help in working with JasperReports

I just want to know how can I pass a query to a JasperReport. I've just gone thru the JasperReports.sourceforge.net but couldn't make it. Please if someone can make it.
Thanx for the interest.

Well if you have looked at a sample JRXML file (it is the begining point for generating a report using JasperReports), that comes with the JasperReports, you will see the query (with in <queryString> </queryString> tags).
One such sample file I have come across is under %JasperReports Home%/demo/samples/query/QueryReport.jrxml

Similar Messages

Is there any where that I can voice why I returned my beloved new Ipad? I was told I could move my Keynote presentations to it and then use it for my business presentations. Unfortunately that turned out to not be true. I need the IPad to work with a remo

Is there any where that I can voice why I returned my beloved new Ipad? I was told I could move my Keynote presentations to it and then use it for my
business presentations. Unfortunately that turned out to not be true. I need the IPad to work with a remote.
The Ipad is on a short cable to my projector. I am usually on a podium 30 feet away. No infra red receiver on the IPad and
the Iphone remote needs wi fi which is not always available in all the locations I do my teaching and lecturing in.
If you can build a remote into the Ipad in the future I would really like to use an Ipad to replace my heavier lap top for business travel. Thank You Kathy McNeil.

"The Ipad is on a short cable to my projector."
Get a longer cable?

I have an ipod touch and just updated my software to ios 7.1.2. Now I get the message that my adapter, accessory does not support my device. Is there a new adapter that I need to buy that works with the ios 7.1.2?

i have an ipod touch and just updated my software to ios 7.1.2. Now I get the message that my adapter, accessory does not support my device. Is there a new adapter that I need to buy that works with the ios 7.1.2?

This is not my problem. However, I think it may be related to an old speaker. I was using the 30 pin adapter for about a week after the upgrade to 7.1.2. But I think with the update the speaker won't work anymore. I will try with a new speaker system. Thank you for trying to assist.

I m coming from linux platform ... now need my g to work with vim ... how to install g which supports C 0x ... why does not it has repository with apple ... its so easy rather than going to UI ...

i m coming from linux platform ... now need my g to work with vim ... how to install g which supports C 0x ... why does not it has repository with apple ... its so easy rather than going to UI ...

tom i have been using ubuntu for c++ project
i use lambda and atomic (c++0x) but now as I am working on MAC not able to use them
installed xcode(4.3) and changed compiler settings to LLVM3.1 but still both features are not available
to compile wanted to have g++ which supports c++0x features ...
new to MAC (2-3 days) so was in rush to solution
let me know if you have some suggestion ...
else will try with eclipse cdt ....

Help Required: Working with relational data

Hi,
I'm looking for some advice
Scenario
We have a customer who has an SE relational database with Apex for transaction processing. They require reporting functionality and are debating whether to buy BI SE One or BI EE; they will not buy the enteprise edition database though.
Questions
Here are my questions:
1. In order to use answers and dashboards, does the relational data have to be in a dimensional format. Is this reccommended.
2. We were debating on whether to create data marts for various business requirements. Is this standard procedure for relational data (Which is not too complex)
3. If the data has to be in a dimensional format, is this best modelled using warehouse builder or the model layer of the repository using BI Administrator. (Baring in mind that the customer is an SME using a SE database)
The main problem where having, been fairly new to warehouse building, is that we dont know what the best path is to take when working with relational data. Do we create dimensional models? What should we use? Is a relational structure suitable enough?
Can anyone shed light on our problems
Regards
Kevin

1. In order to use Answers and Dashboards you do not need to have a Data Warehouse. It can report out of both Transactional database as well as a data warehouse.
2. It depends on what your business requirements are. BI EE/SE1 does not require you to have data marts. Data Marts would give performance gains, would help you in visualizing the transactional data from a business standpoint, is a big plus but not a mandate. If you want to go that route of creating Datamarts, you can easily do that using BI SE1 since that gives you warehouse builder which can be both used as a data modelling tool and a ETL tool.
3. Warehouse Builder is a ETL tool. It helps in you visualizing/deploying data warehouses in databases. But BI EE Admin tool is more of a logical dimension modelling tool wherein the facts and dimensions do not exist physically but the tool uses them to do the querying/processing.
Since you are just starting, what you can do is to use BI EE directly on top of the transactional system for the time being. But as a long term solution you can start working on your data marts and as soon as they are ready you can port the BI EE on top of them rather than the transactional system.
Thanks,
Venkat
http://oraclebizint.wordpress.com

Need tech help creating project with PE11, Windows 7

I still need help creating a slideshow set to music for DVD playback at my 50th high school reunion.
Video Media = 700 still images in .jpg or .tff format. Pixel sizes range from 200x200 to over 3000x4000.
I first created this project using PE's presets and original image sizes. Images added to PE were more blurred than originals & images burned to DVD were even more blurred so I asked for advice.
Last week several people in the forum tried to help. I really appreciate everyone's suggestions but would still appreciate further advice.
Forum experts said to restart my project with project settings changed to DV 720x480...and to resize my images to 1000x750 pixels. Then today in a PE11 chat session, I was told something different: use project settings changed to DVD 720p 30 and resize only larger images down to 1280 x 720 (leave smaller images alone).
So what project settings and resizing should I use for better image clarity? How do I change project settings? By clicking on "new" under "file" >change project settings >DVD 720p 30 or something else?

Up-rezzing small Still Images, regardless of the program and the Scaling algorithm used, can lead to a diminished quality. As Steve says, pixels are created, where none existed. I try to stay away from up-rezzing, whenever possible, due to that diminished qualtiy.
If I have to work with very small Images, I often use another workflow, and a different asethetic choice. When faced with the prospect of using small Images, I will create a background of some sort (many options here), and then use that small Image at its original size, "framed" within that background - no Scaling involved, but obviously, that small Image will not fill the screen. The viewer usually has fewer problems with the small Image, than one that is larger, but has started to fall apart, due to the up-rezzing.
One "trick" that I use is to use that small Image AS the background, but alter it greatly, probably dropping its contrast and upping its brightness, and even adding a Blur to it, then do a PiP (Picture in Picture) of the Image at its original size. I might even create a "picture frame" in Photoshop, to really set that small Image apart from the background. That is but one of dozens of such possible treatments, and one is only limited by their imagination.
Another possible treatment would be to do a "photo wall" with several of the small Images in say a 3 x 2 matrix of PiP's. Sort of like a Contact Sheet.
Good luck,
Hunt

I need Bandwidth, Filtering & Accounting work with Aironet 1310

Hi Mates,
Please I need an affordable Cisco hardware or software (for SMB) to control about 200 clients in my wlan (hotsopt internet caffe)
all work with two Aironet 1310 .
I'm not concerned about security in the first palce, but Bandwidth, Filtering & Accounting.
MY Regards
Saher

Just to be clear: You want to give wireless access to 200 clients over two APs *?at the same time?*
That would be a Very Bad Thing, and almost certainly not possible.
Generally speaking, with "normal" traffic (no such animal exists), you can expect to run 20 - 30 clients tops per AP.
It is not likely that you can impose your restrictions at the AP level. More likely, you'd want to do it at the switch, possibly at the router.
The problem is that the AP acts as a hub: shared bandwidth, and collision avoidence. Basically it boils down to every client getting a timeslot to communicate. When you have too many clients on a single AP, the clients are not talked to often enough, and you get association drops. Before association drops, you get really poor performance that progresses to request timeouts.
The other issue is the uncontrolled mix of clients that you're likely to see. If one client is using 802.11b (11 meg), the net effect is an additional drop in available bandwidth.
The bottom line is that it's not a plan that's likely to succeed.
You may want to investigate 802.11a (5GHz). It has more non-overlapping channels (802.11g has three). To get that many poeple in a confined space and maintain acceptable connections and performance, the extra bandwidth will help a lot.
Good Luck
Scott

Need a developer to work with me - FMS/Flex/RTMFP/RTMP etc.

Hi,
I already own a video chat website that uses strictly Stratus (RTMFP), as you may already know, the connections between the peers are not always stable, as in people don't always connect to each others.
From my past programmer's opinion, it was because of Stratus, he is sure his coding is good.
With the release of FMS 4, which includes RTMFP, my plan is to modify my website so it works with FMS 4 Enterprise Edition, which I will be purchasing.
I want to combine both RTMP and RTMFP in the connections between the peers.
There are also a lot of improvements to come for my website, which is all about Flex/FMS/php/MySQL.
If you want to be the first to take part in a project that's going to be very big because of :
1. The opportunities that FMS 4 offers us;
2. The motivation I have, and that you should have!
3. The resources I have to keep growing effectively.
So, if you are competent with this type of programming project, please reply and contact me
Thanks,
Dany

http://www.adobe.com/products/flashmediaserver/helpmechoose.html
If this is correct the RTMFP peer introduction services is available only to the Enterprise version, FMIS support RTMFP and IP unicast only, means communication is only betweend Client and FMIS possible but no peer2peer. I'm not a FMS Guru, but I think you can't replace with FMIS the Stratus service for a application as Webcam chat and if you use FMIS for it without Stratus you need to provide the needed bandwith.
If I have missunderstand I would be happy, this will save for me many bucks :-)

I need a router that works with Apple eMac OS 10.3 and is WEP encryption capable.

The WRT54G router has been recommended by TV provider Sky Angle. (I will receive Sky Angle over my DSL modem and must send signal to my TV via wireless router.)
But, I use an Apple eMac running OS 10.3. 1GHz that the router must be compatible with. And, before I buy, I want to get the fastest, newest, compatible version of a wireless router in hopes it will work with any new Apple lap top that I hope to get. Please help! I can't find any way to ask this question to the LINKSYS web site or company. Additionally, what is "G" mode or "N" mode: that might be important in the ultimate model of router to buy.
Thanks very much for any help.

You can buy WRT300N. For more information on this product you can browse website www.linksys.com

I need a keyboard that works with IOS 7, Any ideas?

I have tried two different keyboards,one from Belkin and one from logitech...neither one works with IOS 7....I need a keyboard that works...anyone have any ideas?

I have the apple mini wireless keyboard. Works!

Need digital camera that works with Quicksilver

I need a relatively cheap digital camera that will work with a G4 Quicksilver. I know I'll probably have to get a used one, but that's OK. I just have no idea which older brands or models will work with a Power Mac. Anybody have any suggestions?

Cameras often allow a direct USB cable connection to a computer. This could possibly lead to compatibility problems, depending upon the requirements for each camera.
For cameras with a flash memory card slot (many modern models have one), an alternative solution would be to use an appropriate USB memory card reader connected to the computer. One could then move the memory card (for example, SD or CompactFlash) to the USB reader. The transfer is usually relatively fast, and no power is drawn from the camera batteries. The G4 should not have difficulties reading files from memory cards.
Jan

I need a keyring (that works with network-manager)

Hi there,
I'm new to Arch linux (coming from Ubuntu) and I'm wondering how to set up a keyring that works with that gnome-network-manager applet and ssh(fs). I previously used GNOME and the gnome keyring, and all out of the box.
I couldn't find any manuals on how to set up the gnome-keyring in Arch linux, neither regarding ssh(fs) nor network-manager. I read people are complaining about network-manager asking for the keyring-unlocking-password, but this doesn't happen for me.
How do I set up the gnome-keyring propertly?

siriusb wrote:moljac024:
https://bugs.launchpad.net/wicd/+bug/377471
From this bug page:
The /etc/wicd/wireless-settings.conf file is made root-readable only. This means that any malicious users must have root access or physical access to the machine. In either of these cases, you have far more problems than worrying about the wireless network key.
Please see http://developer.pidgin.im/wiki/PlainTextPasswords for a very good explanation as to why the passwords are not encrypted.
It may be plain text, but only root can read/write.

WCS does need WLC or can works with stands alone APs

Hi all, I'm student and curently reading about WCS capacity. I would know if WCS requier AP to pass through a WLC to work with WCS or if WCS can work with multiple "stand alone" APs (without any WLC)
Thanks.

WCS can work with standalone APs that you can add in WCS.
Nevertheless the configuration options are limited.
The configuration guide is a good resource for more information.
http://www.cisco.com/en/US/products/ps6305/products_installation_and_configuration_guides_list.html
Also you can get an evaluation license for WCS for 60 days for 20 APs.
You can download the software and play with it as well:
http://tools.cisco.com/support/downloads/go/Redirect.x?mdfid=279705270
WCS general product page:
www.cisco.com/go/wcs

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

Interface help needed (Edirol FA-66) - works with Tiger, not Leopard

I have an Edirol FA66 that works fine on my Macbook running Tiger, but doesn't show up as a device on my iMac running Leopard. Can anyone help please? Thanks....

I used Edirol FA-66 interface successfully with my Intel iMac using Tiger & Logic, iTunes etc for a year, and it worked great. I upgraded from 10.4.4 to 10.4.11 when the system wouldn't recognize M-Audio Radium keyboard. After the upgrade keyboard is on board but now FA-66 doesn't work at all, crackles, static, no sound or device recognition. Must be some glitch in 10.4.11..? Downgraded and the keyboard is gone. Upgraded and the interface is gone. Crazy!
If I buy Leopard, will it resolve both?? I don't want to get Leopard and weigh down my system with all the stuff that goes with it and have the Edirol stuck in the same situation. Is there anyone out there who has experienced this and can recommend a particular version of Leopard?
Thank you
Mara

I need urgrnt help in working with JasperReports

Similar Messages

Maybe you are looking for