Report 2.5 batch modifying reports

Hi
Is it possible to go through 300+ reports and change a report heading from one string to another automatically?

I think not.
The one thing that might be helpful in the future is to give those headings/titles as a parameter that is to be passed to the report when called.
Or, even better as a field that is to be obtained by querying somekind of a system-parameters-table.
This way you wouldn't have to change all the 300+ reports the next time, but only a record in the given table.
Such things do happen even to me and my colleagues.
null

Similar Messages

Cost apportionments batch modify

Hi, anybody knows how to batch modify cost apportionments to co-product in materail master data? tks a lot!
Duplicate post locked
Edited by: Rob Burbank on Dec 29, 2009 1:10 PM

> Total Questions: 7 (7 unresolved)
I just locked two of your duplicate posts. You may only have ten open questions at a time.
If you keep this up, you will run out of room soon.
Rob

Programming batch modify properties of shared variables DSC Module

DSC module to establish a large number of shared variables, you need to modify the property values programmed variables, rather than setting property values when creating variables.
DSC module to build tens of thousands of shared variables, alarm limit properties of these variables need to be set after the software is released by the customers themselves, rather than set when you create the variable.
So many variables, how programming in the software interface can be set variable attributes?
Solved!
Go to Solution.

请参考http://digital.ni.com/public.nsf/allkb/5292824E278CF8B948257254002DEE60

Need applescript to batch modify email type field in address book

When migrating from Address Book to Entourage, somehow all of my email address fields were changed to the type "Other" as opposed to "Work" or "Home" this is causing these email address fields not to sync with Entourage or my exchange server.
I need a quick way to change each email from other to work as the default (even if there are two mail addresses).
Any applescript gurus who can help me write this script?
Thanks!

You don't need an AppleScript to do that; it would take longer to write the script than just doing it the old fashioned way. Select all those contacts you want to change, drag them to your Desktop as a single vCard, then open it with a Text editor and use the Find/Replace feature to change them all at once.
You'll need to Find "type=OTHER" and replace it with "type=WORK". Simple and fast.
Mulder

How to batch change PDF content

I have lot of PDF document need to modify something,
can I use some-method to batch modify?
Thanks.

It is not a big task for u prasobh...Just play in CEWB for 5-10 mins you will understand everything....
If you face any issue let me know..
For ur information I am also an IBM employee...
Gobi

Deleting modified photos

I've deleted several rolls and individual photos from within iPhoto6 that I no longer want, but now I see that any that were modified still exist in the Modified folder of the iPhoto library (when I use Finder to locate them) although there are no longer corresponding photos in the Originals folder and neither the originals nor the modified appear in iPhoto. I had just assumed that when a photo was deleted from within iPhoto, any modified versions were as well, but that appears not to be the case. Should I delete them from the Modified folder via Finder? This seems incredibly awkward and time-consuming, not to mention the pain of having to identify which need to be deleted. I also have read that messing with iPhoto through Finder can be problematic, but I don't know how else to make the deletions since the photos no longer appear in iPhoto. Next time I suppose I could "revert to original" before deleting (I'll have to check if you can mass-revert a roll or multiple photos), although even that seems a convoluted way of accomplishing a simple deletion. And that won't help with the retrospective deletion I want to do now.
Suggestions?
MacBook ; G4 iMac Mac OS X (10.4.8) iPhoto6

Thanks for the reply. I did some further looking and experimentation and it appeared to only involve full rolls that I had deleted. I tried importing another small batch, modifying one photo, and then deleting the roll and it worked as it should. I also discovered a roll that no longer appears in iPhoto, but that has folders in both Originals and Modified. Although I don't remember doing it in this manner, I can only guess that I did delete the rolls/folders in question from within Finder and that is what created the problem. I know I made the deletions shortly after starting to use iPhoto and probably thought its contents could/should be managed like all other files.
I'll take your advice and leave things as they are - I don't want to mess things up any more than I already have. There aren't that many folders involved and they don't take up much space.
Thanks again - for showing me that it was likely my own foolishness that caused the problem.

Manual lens profile creation?

Hi all,
Just looking for tips or "best way" to create profiles for lenses old manual lenses that do not record exif data in the images. What is the best way for me to take these images and in a batch modify the lens name, aperture and other relavent exif info that I would need to properly identify these images in ALPC and CameraRaw?
Thanks all,
Greg

Eric wrote: > "Hi Greg, if you regularly supply missing EXIF metadata (e.g., lens name, f-number, focal length, focus distance, etc.) for these images, then you can proceed in the usual way".....
OK, making some progress here. I've shot all the charts with a D700 and a legacy (old) 24mm Nikkor f2.8, and now I'm pulling the metadata from a new AF 24 f2.8 that was mounted to the same body. Shooting with the legacy lens produces some erroneous metadata, and leaves some blank, so shooting a frame with the new lens gives me everything I need. Except for the subject distance.
Shooting for the metadata on the D700 with the new AF lens, both of these entries are ALWAYS listed as 3/100, no matter what my focus distance:
<exif:SubjectDistance>3/100</exif:SubjectDistance>
<aux:ApproximateFocusDistance>3/100</aux:ApproximateFocusDistance>
Testing just to see what those numbers should look like, I tested with my 5D and a Canon 35mm lens, and with the lens set to manual focus, I ALWAYS get 203/100. With the lens set to auto focus, I always get 4294967295/1, no matter what my focus distance.
So my question is, does it matter what I put in there?
Thanks for any insights,
George

Finder and EXIF - creation date

The 'date of creation' of pictures, normally stated in the exif-file of the picture, will be used to sort the pictures after the date of creation, as in iPhoto and any other photo program. In the finder, however, another 'date of creation' is used.
Is it not possible to force the finder tot use the exif data? What data is the finder now using?
Regards,
Goos.

In the finder you can show and sort on EITHER the modification date or the creation date of a file. I believe by default the finder view only shows the Mod date and not the creation date. So if you go into view options and then turn ON showing the creation date column (you can also turn off the mod date column if you like) give you the correct date and time or did iPhoto mess those up as well? If they are there, then now all you have to do is resort by that new column in the finder.
Otherwise, you will have to use a third party application to batch modify the date and time of the files to match those contained in the EXIF metadata. There are a large number of programs that will do that including Graphics Converter.
Patrick

ACDSee or similar for Mac

I have recently moved from PC to an iMac. I really don't like iPhoto as a photo editor, and have been looking for a Mac version of ACDSee (which is what I have been using on my PC), but can't find it Is there a Mac versiion, or is there any Mac-compatible software that approxmate ACDSee? Features i am looking for:
- I get to decide how to manage my images (not the softare deciding for me, the way iPhoto works)
- Ability to view a large number of different image file types
- Ability to see all the images in a folder at once as icons (like lightbox)
- Ability to batch modify files (rename, convert, rotate, etc.)
- Ability to attach tags or metadata to the file
I don't mind paying for it, if it suits my needs (rather than forces me to change my habits to suit the software).
Thanks

I found it, you can display all your pics in thumbs, do some batch operations (batch rename, batch resize…), basic editing (rotate, straighten, resize, crop, color adjustment, colour temperature, and more…). And it is 100% free. It is PhotoScape X. Check it out for more info on FastStone vs PhotoScape X functions...

Modify Batch Sequence to generate two reports per UUT with different names.

I have a special situation for the batch model.
Each UUT consist of two separate products that must be tested as a single unit.
I can run each UUT and generate a test report for each. - aka. The standard use case works great.
However we are keeping records using this method. So I need a separate copy with a different name for each run.
The idea behind this is that we might have a running history for each half of the UUT. Since the two halves will probably never meet again.
I have looked at the BatchModel.seq and read some of the documentation, however I am having a hard time figuring out what is going on.
I assume the Highlighted Items above are where the UUT Reports are generated. I do not however know the mechanism for giving them the names from the Report Options->Report File Pathname menu or how to change it between those points in time. Also is there any tricks to getting duplicate Report with a diffrent path put into this setup.
Any links to relevant information would be useful. Thanks
Solved!
Go to Solution.

Just copy those two steps and between them and the copies have another step that is just a Statement. In there you can change the report path by setting parameters.TestSocket.ReportFilePath to the new path.
Ideally what you would do is have the client set it by using a callback. So your code would look like this:
Write UUT Report
Write UUT Report (on the fly)
Set Report Path Callback (override in client OR statement step)
Write UUT Report
Write UUT Report (on the fly)
Hope this helps,
jigg
CTA, CLA
teststandhelp.com
~Will work for kudos and/or BBQ~

Batch Number Transaction Report

Dear Experts,
Is it possible to modify the form settings of Batches table in Batch Number Transaction Report as I need to add in some user-defined fields into it?
Below is the layout of my Batches table in the report:
Batches
#   Item No   Item Description   Batch   WhsCode   Qty   Status   Manufacturing Date
and I would like to add in Width, Length & Height columns in the table.
I can't preset the value of length, width & height of the item in Item Master Data because different batches of same item will have different length, width & height. So I created these fields (Width, Length, Height) in Goods Issue & Goods Receipt and assigned different values there. After that, I need to do some references at Batch Number Transaction Report to find out which batches got the specified measurement of that item.
Thanks in advance.

Hi Sachin. I think you have misunderstood what I mentioned before.
I want the report to show like this
Item No.   Item Description              Batch   WhsCode   Qty   Direction   Status        T     W        L
A893S     Pine 14 x 125 x 1030mm          A123    WH01       100   In        Released   14   125    1030
A893S     Pine 14 x 125 x 1030mm          A123    WH01       -10 Out       Released     14   125    1030
A126B     Ash 14 x 125 x 1090mm          J123     WH01        50   In         Released   14   125    1090
In fact, below is the result table that I get
Item No.   Item Description                Batch   WhsCode   Qty   Direction   Status        T     W        L
A893S     Pine 14 x 125 x 1030mm            A123    WH01       100   In           Released   14   125    1030
A126B     Ash 14 x 125 x 1090mm            J123     WH01        50   In            Released   14   125    1090
using this query
SELECT T0.[ItemCode], T0.[ItemName], T0.[BatchNum], T0.[WhsCode], T0.[Quantity],
case when T0.[Direction]=0 then 'In' when T0.[Direction]=1 then 'Out' end Direction,
Case when T1.[Status]=0 then 'Released' end Status, T2.[U_Height], T2.[U_Width], T2.[U_Length]
FROM IBT1 T0
INNER JOIN OIBT T1 ON T0.BatchNum = T1.Batchnum and T0.Itemcode=T1.ItemCode
INNER JOIN IGN1 T2 ON T1.ItemCode = T2.ItemCode and T0.Quantity = T2.Quantity
WHERE T1.[ItemCode] =[%0]
Thanks,
Xavier

How can I redirect Batch Report Files to a different directory.

I have a custom version of the Batch Process Model that allows for on the fly report updates. At the end of execution the final report is written. I need to redirect this final report to another directory, but I am having trouble identifying where the report directory is specified. Right now, it is writing in the same directory as the sequence file and I need to change this.

Hi Terry,
have a look at the following inside the process model TestUUTs (or Single Pass)
Locals.ModelData.ReportOptions.DirectoryType
set this to "SpecificDirectory"
then in
Locals.ModelData.ReportOptions.Directory
set this to your target directory.
If it's a permanent setting, then I'd suggest updating these values before run time in the report options panel from the Configure menu option.
If it can be determined before the sequence is run, then you could do it as part of the report options callback. Otherwise, slot it in as and when needed, just before the call to the Determine Report File Path and Determine UUT Report File Path steps, although I guess that depends on how much you've modified the process model so far.
Hope that helps
S.
// it takes almost no time to rate an answer

Problem in Batch Export Report

Hi all,
I have developed a report in PP module for Batch exports.
Here iam providing the input as plant, material no & batch and the output will be Orderwise material no, batch, mat desc, density and Quantity.
While executing the report the output is coming exactly for the first order while for the second order the values are not fetching correctly.
Pls suggest me.
*& Report ZPP_EXPORTBATCH
REPORT ZPP_EXPORTBATCH.
TABLES: MSEG,MKPF,AUFK,AFPO. "
TYPE-POOLS SLIS.
DATA: IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      LIST_LAYOUT TYPE SLIS_LAYOUT_ALV,                     "#EC *
      GS_KEYINFO TYPE SLIS_KEYINFO_ALV,                     "#EC *
      W_PROG TYPE SY-REPID,
      P_RS_LINEINFO TYPE SLIS_LINEINFO.
Internal Tables**********************************
TYPES: TY_SCLASS TYPE STANDARD TABLE OF SCLASS.
TYPES: TY_OBJECTDATA TYPE STANDARD TABLE OF CLOBJDAT.
TYPES: BEGIN OF T_MSEG,
       BWART LIKE MSEG-BWART,
       MATNR LIKE MSEG-MATNR,
       MAKTX LIKE MAKT-MAKTX,
       CHARG LIKE MSEG-CHARG,
       MENGE LIKE MSEG-MENGE,
       ERFME LIKE MSEG-ERFME,
       AUFNR LIKE MSEG-AUFNR,
       AUSP1 LIKE CLOBJDAT-AUSP1,
       ERROR(30),
       END OF T_MSEG.
TYPES: INT_MSEG_FINAL TYPE STANDARD TABLE OF T_MSEG .
TYPES: BEGIN OF TY_MENGE1,
         MATNR TYPE MSEG-MATNR,
         CHARG TYPE MSEG-CHARG,
         MENGE TYPE MSEG-MENGE,
         ERFME TYPE MSEG-ERFME,
         MBLNR TYPE MSEG-MBLNR,
         ZEILE TYPE MSEG-ZEILE,
       END OF TY_MENGE1.
TYPES: TY_MENGE TYPE STANDARD TABLE OF TY_MENGE1.
DATA : LENGTH     TYPE     I,
DIFFERENCE     TYPE     I,
IT_CLASS     TYPE     TY_SCLASS,
IT_OBJECTDATA     TYPE     TY_OBJECTDATA,
WA_CLASS     TYPE     SCLASS,
WA_OBJECTDATA     TYPE     CLOBJDAT,
L_MATNR     TYPE     MATNR,
INT_MSEG_FINAL     TYPE     INT_MSEG_FINAL,
WA_MSEG_FINAL     TYPE     T_MSEG,
WA_MSEG     TYPE     MSEG,
WA_WEMNG     TYPE     AFPO-WEMNG,
WA_PSMNG     TYPE     AFPO-PSMNG,
WA_AMEIN     TYPE     AFPO-AMEIN,
BAL_QTY     TYPE     AFPO-WEMNG,
INT_MSEG_TEMP1     TYPE     INT_MSEG_FINAL,
WA_CALCULATED1     TYPE     AFPO-WEMNG,
IT_MENGE     TYPE     TY_MENGE,
WA_MENGE1     TYPE     TY_MENGE1,
WA_MAKTX     TYPE     MAKT-MAKTX,
WA_HSDAT     TYPE     MCH1-HSDAT,
WA_MAKTX_MAIN     TYPE     MAKT-MAKTX,
MAIN_DEN     TYPE     STRING,
DENSITY     TYPE     STRING,
MDENSITY     TYPE     STRING,
IDENSITY     TYPE     STRING.
data : tqty like mseg-menge.
data:INT_MSEG_TEMP2   LIKE MSEG OCCURS 0 WITH HEADER LINE.
data:INT_MSEG_TEMP3   LIKE MSEG OCCURS 0 WITH HEADER LINE.
**************Initialization********************************************
INITIALIZATION.
**************Input Parameters List*************************************
SELECTION-SCREEN SKIP 3.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-T01 . "#EC
      SELECT-OPTIONS : S_WERKS FOR MSEG-WERKS OBLIGATORY, "PLANT
                       S_MATNR FOR MSEG-MATNR OBLIGATORY, "MATERIAL NUMBER
                       S_CHARG FOR MSEG-CHARG,            "BATCH
                       S_BUDAT FOR MKPF-BUDAT.            "POSTING DATE
SELECTION-SCREEN END OF BLOCK BLOCK1.
START-OF-SELECTION.
PERFORM READ_DATA.
PERFORM SUB_PREPARE_FIELDCATALOG.
PERFORM FILL_EVENTS_TABLE.
END-OF-SELECTION.
PERFORM DISPLAY_DATA_USING_GRID.
*&      Form READ_DATA
      text
--> p1        text
<-- p2        text
FORM READ_DATA .
DATA :INT_AFPO LIKE AFPO OCCURS 0 WITH HEADER LINE.
DATA :INT_MSEG        LIKE MSEG OCCURS 0 WITH HEADER LINE,
INT_MSEG_TEMP   LIKE MSEG OCCURS 0 WITH HEADER LINE.
SELECT SINGLE MAKTX
INTO WA_MAKTX_MAIN
FROM MAKT
WHERE MATNR IN S_MATNR.
DATA : WA_MENGE LIKE MSEG-MENGE.
SELECT SINGLE *
FROM AFPO
INTO INT_AFPO
WHERE MATNR IN S_MATNR
AND   CHARG IN S_CHARG
AND   DWERK IN S_WERKS.
MOVE INT_AFPO-WEMNG TO WA_WEMNG.
MOVE INT_AFPO-PSMNG TO WA_PSMNG.
MOVE INT_AFPO-AMEIN TO WA_AMEIN.
SELECT *
INTO TABLE INT_MSEG
FROM MSEG
WHERE AUFNR = INT_AFPO-AUFNR
AND BWART IN ('261' , '262' )
AND WERKS IN S_WERKS.
REFRESH INT_AFPO.
int_mseg_temp3[] = int_mseg[].
LOOP AT INT_MSEG.
clear tqty.
    loop at int_mseg_temp3 WHERE MATNR = INT_MSEG-MATNR
                             and charg = int_mseg-charg
                             AND AUFNR = INT_MSEG-AUFNR
          if int_mseg_temp3-bwart = '261' .
               tqty = tqty + int_mseg_temp3-menge.
          elseif int_mseg_temp3-bwart = '262'.
               tqty = tqty - int_mseg_temp3-menge.
          endif.
     endloop.
    int_mseg-menge = tqty.
SELECT SINGLE *
FROM AFPO
INTO INT_AFPO
WHERE MATNR = INT_MSEG-MATNR
AND   CHARG = INT_MSEG-CHARG
AND   DWERK IN S_WERKS.
IF SY-SUBRC EQ 0 AND INT_AFPO-AUFNR <> ' '.
    SELECT * FROM MSEG
    INTO    TABLE INT_MSEG_TEMP
    WHERE AUFNR = INT_AFPO-AUFNR
    AND    BWART IN ('261' , '262' )
    AND    WERKS IN S_WERKS.
    LOOP AT INT_MSEG_TEMP.
      WA_CALCULATED1 = ( INT_MSEG_TEMP-MENGE / INT_AFPO-WEMNG ) * INT_MSEG-MENGE.
      WA_MENGE1-MENGE = WA_CALCULATED1.
      WA_MENGE1-MATNR = INT_MSEG_TEMP-MATNR.
      WA_MENGE1-CHARG = INT_MSEG_TEMP-CHARG.
      WA_MENGE1-ERFME = INT_MSEG_TEMP-ERFME.
      WA_MENGE1-MBLNR = INT_MSEG_TEMP-MBLNR.
      WA_MENGE1-ZEILE = INT_MSEG_TEMP-ZEILE.
      APPEND WA_MENGE1 TO IT_MENGE.
      CLEAR: WA_CALCULATED1, WA_MENGE1.
    ENDLOOP.
    SORT IT_MENGE BY MBLNR ZEILE MATNR CHARG.
     ENDLOOP.
    CLEAR INT_MSEG.
    MODIFY TABLE INT_MSEG FROM INT_MSEG_TEMP.
    LOOP AT INT_MSEG_TEMP.
      MOVE-CORRESPONDING INT_MSEG_TEMP TO INT_MSEG.
      READ TABLE IT_MENGE INTO WA_MENGE1
      WITH KEY MATNR = INT_MSEG_TEMP-MATNR
               CHARG = INT_MSEG_TEMP-CHARG
               MBLNR = INT_MSEG_TEMP-MBLNR
               ZEILE = INT_MSEG_TEMP-ZEILE.
      INT_MSEG-MENGE = WA_MENGE1-MENGE.
      APPEND INT_MSEG.
      CLEAR INT_MSEG.
*Added for Changes given by anup ART:09MAR08
     CLEAR WA_MENGE1-MENGE.
*End of for Changes given by anup ART:09MAR08
    ENDLOOP.
    REFRESH INT_MSEG_TEMP.
    CLEAR INT_AFPO.
ELSE.
   MOVE: INT_MSEG-MATNR TO   WA_MSEG_FINAL-MATNR,
    INT_MSEG-CHARG TO WA_MSEG_FINAL-CHARG,
    INT_MSEG-MENGE TO WA_MSEG_FINAL-MENGE,
    INT_MSEG-ERFME TO WA_MSEG_FINAL-ERFME,
    INT_MSEG-BWART TO WA_MSEG_FINAL-BWART .
    APPEND WA_MSEG_FINAL TO INT_MSEG_FINAL.
    CLEAR WA_MSEG_FINAL.
    CLEAR INT_AFPO.
ENDIF.
ENDLOOP.
INT_MSEG_TEMP1[] = INT_MSEG_FINAL[].
REFRESH INT_MSEG_FINAL.
SORT INT_MSEG_TEMP1 BY MATNR CHARG.
LOOP AT INT_MSEG_TEMP1 INTO WA_MSEG_FINAL.
ON CHANGE OF WA_MSEG_FINAL-MATNR
OR WA_MSEG_FINAL-CHARG.
    IF WA_MSEG_FINAL-BWART = '261'.
      WA_MENGE = WA_MENGE + WA_MSEG_FINAL-MENGE.
    ELSEIF WA_MSEG_FINAL-BWART = '262'.
      WA_MENGE = WA_MENGE - WA_MSEG_FINAL-MENGE.
    ENDIF.
    WA_MSEG_FINAL-MENGE = WA_MENGE.
    CLEAR WA_MENGE.
    APPEND WA_MSEG_FINAL TO INT_MSEG_FINAL.
    CLEAR WA_MSEG_FINAL.
ENDON.
ENDLOOP.
LOOP AT INT_MSEG_FINAL INTO WA_MSEG_FINAL.
SELECT SINGLE MAKTX
    INTO WA_MAKTX
    FROM MAKT
    WHERE MATNR = WA_MSEG_FINAL-MATNR.
WA_MSEG_FINAL-MAKTX = WA_MAKTX.
MODIFY INT_MSEG_FINAL FROM WA_MSEG_FINAL TRANSPORTING MAKTX.
CLEAR WA_MAKTX.
****************CHGS BY MURALI.C FOR
DATA: WA_OBJECT(50) TYPE C.
LENGTH = STRLEN( WA_MSEG_FINAL-MATNR ).
IF LENGTH LT 18.
DIFFERENCE = 18 - LENGTH.
DO DIFFERENCE TIMES.
CONCATENATE WA_MSEG_FINAL-MATNR SPACE INTO L_MATNR.
ENDDO.
ENDIF.
CONCATENATE L_MATNR WA_MSEG_FINAL-CHARG INTO WA_OBJECT RESPECTING
BLANKS.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
EXPORTING
CLASS                      = ' '
CLASSTEXT                  = 'X'
CLASSTYPE                  = '023'
CLINT                      = 0
FEATURES                   = 'X'
LANGUAGE                   = SY-LANGU
OBJECT                     = WA_OBJECT
OBJECTTABLE                = 'MCH1'
KEY_DATE                   = SY-DATUM
INITIAL_CHARACT            = 'X'
NO_VALUE_DESCRIPT          = NO_VALUE_DESCRIPT
CHANGE_SERVICE_CLF         = 'X'
INHERITED_CHAR             = ' '
CHANGE_NUMBER              = ' '
TABLES
T_CLASS                    = IT_CLASS
T_OBJECTDATA               = IT_OBJECTDATA
I_SEL_CHARACTERISTIC       = I_SEL_CHARACTERISTIC
T_NO_AUTH_CHARACT          = T_NO_AUTH_CHARACT
EXCEPTIONS
NO_CLASSIFICATION          = 1
NO_CLASSTYPES              = 2
INVALID_CLASS_TYPE         = 3
OTHERS                     = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
read TABLE IT_OBJECTDATA INTO wa_objectdata
with KEY SMBEZ = 'Density'.
if wa_objectdata-ausp1 <> '?'.
perform density_calc using wa_objectdata-ausp1 changing idensity.
WA_MSEG_FINAL-AUSP1 = idensity.
else.
WA_MSEG_FINAL-ERROR = 'classification value missing'.
endif.
MODIFY INT_MSEG_FINAL FROM WA_MSEG_FINAL TRANSPORTING AUSP1 ERROR.
CLEAR :WA_MSEG_FINAL-MATNR,WA_MSEG_FINAL-CHARG,WA_MSEG_FINAL-AUSP1,WA_OBJECT,WA_OBJECTDATA-AUSP1.
ENDLOOP.
ENDFORM.                    " READ_DATA
*&      Form SUB_PREPARE_FIELDCATALOG
      text
--> p1        text
<-- p2        text
FORM SUB_PREPARE_FIELDCATALOG .
X_FIELDCAT-FIELDNAME = 'MATNR'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'MATERIAL NUMBER'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 10.
X_FIELDCAT-KEY = 'X'.
X_FIELDCAT-KEY_SEL = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'MAKTX'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'MATERIAL DESCRIPTION'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 17.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'CHARG'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'BATCH'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 10.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'AUSP1'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'DENSITY'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 6.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'MENGE'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'QUANTITY'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 9.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'ERFME'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'UOM'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 9.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
*X_FIELDCAT-FIELDNAME = 'EDATU1'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'CONFIRMED QUANTITY DATED'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 9.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'ETENR1'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'CONFIRM SL NO'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 9.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'LFIMG'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'DELIVERED QUANTITY'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 18.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'ERDAT'.
X_FIELDCAT-TABNAME = 'INT_MSEG_FINAL'.
X_FIELDCAT-SELTEXT_M = 'DELIVERED DATE'. "#EC NOTEXT
X_FIELDCAT-JUST = 'C'.
X_FIELDCAT-OUTPUTLEN = 18.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM.                    " SUB_PREPARE_FIELDCATALOG
*&      Form FILL_EVENTS_TABLE
      text
--> p1        text
<-- p2        text
FORM FILL_EVENTS_TABLE .
   WA_EVENTS-NAME = 'TOP_OF_PAGE'.
   WA_EVENTS-FORM = 'PRINT_HEADING'.
   APPEND WA_EVENTS TO IT_EVENTS.
ENDFORM.                    " FILL_EVENTS_TABLE
FORM PRINT_HEADING. "#EC CALLED
DATA IT_HEADINGS TYPE SLIS_T_LISTHEADER.
DATA WA_HEADINGS LIKE LINE OF IT_HEADINGS.
CLEAR WA_HEADINGS.
WA_HEADINGS-TYP = 'H'.
WA_HEADINGS-INFO = '                                          '.
WA_HEADINGS-TYP = 'H'.
WA_HEADINGS-INFO = ' BATCH EXPORT DETAILS REPORT '.
APPEND WA_HEADINGS TO IT_HEADINGS.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = IT_HEADINGS
      I_LOGO                   = 'APARLOGO' .
ENDFORM.                    "PRINT_HEADING
*&      Form DISPLAY_DATA_USING_GRID
      text
--> p1        text
<-- p2        text
FORM DISPLAY_DATA_USING_GRID .
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   I_BYPASSING_BUFFER                = 'X'
   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = SY-CPROG
   IT_FIELDCAT                       = IT_FIELDCAT
   I_SAVE                            = 'A'
   IT_EVENTS                         = IT_EVENTS
   TABLES
   T_OUTTAB                          = INT_MSEG_FINAL
IF SY-SUBRC <> 0. "#EC *
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " DISPLAY_DATA_USING_GRID
*&      Form density_calc
      text
     -->P_WA_OBJECTDATA_AUSP1 text
     <--P_IDENSITY text
FORM density_calc USING    WA_OBJECTDATA_AUSP1
                   CHANGING DENSITY.
data: den type float,density1(8).
density1(8) = wa_objectdata-ausp1.
call function 'CHAR_FLTP_CONVERSION'
exporting
DYFLD                    = ' '
MASKN                    = ' '
MAXDEC                   = '16'
MAXEXP                   = '59+'
MINEXP                   = '60-'
string                   = density1
MSGTYP_DECIM             = 'W'
importing
DECIM                    =
EXPON                    =
flstr                    = den
IVALU                    =
EXCEPTIONS
EXPONENT_TOO_BIG         = 1
EXPONENT_TOO_SMALL       = 2
STRING_NOT_FLTP          = 3
TOO_MANY_DECIM           = 4
OTHERS                   = 5
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
if den gt 0.
density = 1 / den.
density = density(5).
density = density / 10.
den = strlen( density ).
if den ge 6.
density = density(6).
clear: den.
den = strlen( density ).
elseif den lt 6.
   density = density.
   clear: den.
   den = strlen( density ).
endif.
else.
density = '0.000'.
endif.
den = strlen( density ).
data: den3(5) type c.
if den gt 3.
case den.
    when '6'.
              clear: den3.
              compute den3 = 10000 * ( density(6) - density(5) ).
              if den3 between 6 and 9.
                clear: den3.
                compute den3(2) = 10000 * ( density(5) - density(4) ).
                compute den3 = den3(1) + 1.
                compute den3 = den3 / 1000.
                compute density = density(4) + den3.
              endif.
    when '5'.
              clear: den3.
              compute den3 = 1000 * ( density(5) - density(4) ).
              if den3 between 6 and 9.
                clear: den3.
                compute den3(2) = 1000 * ( density(4) - density(3) ).
                compute den3 = den3(1) + 1.
                compute den3 = den3 / 100.
                compute density = density(3) + den3.
              endif.
endcase.
endif.
density = density(5).
ENDFORM.                    " density_calc

Hello,
I haven't checked the code but from the symptom you describe it could be possible that some fields used to calculate valeus are not getting cleared between calculations. This could result in some values from order the first order one being used in the calculation for values in the second order.
Regards,
Steve.

How to include batch details to the template of a GRPO in Crystal Reports?

Hello Experts,
I have created my GRPO template for items in Crystal Reports. But I also want the batch number and attributes to show on this document. Is that Possible?
Looking forward to your comnents,

Hi Pam......
Try this and modify as you want......
SELECT Distinct T3.[DocDate], T0.[ItemCode], T2.[ItemName], T2.[BatchNum], T0.[Quantity],
T0.[DocEntry], T0.Price, (T0.Price*T0.[Quantity]) As 'Total'
FROM PDN1 T0 inner join OIBT T2 on T2.ItemCode=T0.ItemCode and T2.BaseEntry=T0.DocEntry
INNER JOIN OPDN T3 ON T0.DocEntry = T3.DocEntry
WHERE T2.[BaseType]=20 and T2.[Direction]=0
Regards,
Rahul

Adding batch serial number to report file name in sequential model

Hi,
I'm using a Sequential model in TS 4.0 and have learned how to add the UUT serial number to the report file name. But I would like to add the batch serial number instead. Is this possible? Any modifications to the ReportOptions callback seem to only modify the temp report name.
Thanks!
Chris

Hi Chris,
While Paul's suggestion may be useful in this case, if you would like the flexibility of customizing your Report File Pathnames further, you may want to consider upgrading to TestStand 4.2.
In TestStand 4.2 we introduced predefined macros and the ability to use custom expressions to specify the Report File Pathname. For example, the <Batch> macro will add the Batch Serial Number to the Report File Pathname as you specify it.
Please see the Using Expressions to Customize Report File Paths section of the TestStand 4.2 Reference Manual for more information on these new reporting features and how one might use them. For a specific explanation of the different macros and what they might be used for, please see the Specifying Report File Paths by Expression section of the TestStand 4.2 Online Help.
Manooch H.
National Instruments

Report 2.5 batch modifying reports

Similar Messages

Maybe you are looking for