Case Statement?? 4

[TEM3]

Using Crystal Reports 8.5.......

This is ugly:

if {LABSTAT.Status Code} = "ESVD" and {LABSTAT.Locker} = "VD01" then "Tapes Completed" else
if {LABSTAT.Status Code} = "ESRS" and {LABSTAT.Locker} = "MVR1" then "South Transfer To Duplication" else
if {LABSTAT.Status Code} = "ESRS" and {LABSTAT.Locker} = "MVR2" then "South Transfer From Duplication" else
if {LABSTAT.Status Code} = "ESRS" and {LABSTAT.Locker} = "SESTS" then "South Tapes In" else
if {LABSTAT.Status Code} = "ESRN" and {LABSTAT.Locker} = "MR01" then "North Transfer To Duplication" else
if {LABSTAT.Status Code} = "ESRN" and {LABSTAT.Locker} = "MP01" then "North Transfer From Duplication" else
if {LABSTAT.Status Code} = "ESRN" and {LABSTAT.Locker} = "NESTS" then "North Tapes In" else
if {LABSTAT.Status Code} = "ESVD" and {LABSTAT.Locker} = "VD02" then "Central Tapes In" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED01" then "Turned Over to Station" else
if {LABSTAT.Status Code} = "EDRS" and {LABSTAT.Locker} = "ED15" then "South Turned Over to Station" else
if {LABSTAT.Status Code} = "EDRN" and {LABSTAT.Locker} = "ED15" then "North Turned Over to Station" else
if {LABSTAT.Status Code} = "ESVD" and {LABSTAT.Locker} = "VD06" then "Repair Completed" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "VD05" then "Training Tapes In" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "VD04" then "Training Completed" else
if {LABSTAT.Status Code} = "EDRC" and {LABSTAT.Locker} = "ED24" then "Tapes Pending Destruction" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED06" then "Tapes Destroyed" else
if {LABSTAT.Status Code} = "EDRC" and {LABSTAT.Locker} = "ED22" then "Tapes Destroyed" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED05" then "Turned Over To Long Term Storage" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED04" then "Turned Over To OPS/IAB" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED03" then "Turned Over To Pursuit Review Board" else
if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED01" then "Turned Over To CJRB" else
"Not Reported";

Would a Case statment be the way to go? If so (I have not used Case statments in CR yet), how would a partial example look? Or is there an even more elegent way??

 

[MisterMo]

I can't see an easy way, select case is not in crystal

This might be a bit cleaner

local stringVar myString1;
local stringvar myString2;
myString2 := 'Not Reported';
myString1 :=  {LABSTAT.Status Code} + {LABSTAT.Locker};
if myString1 = "ESVDVD01" then  Mystring2 := 'Tapes South Transfer To Duplication';
if myString1 = "ESRSMVR1" then  Mystring2 := 'South Transfer From Duplication';

Mystring2

Mo

 

[Turkbear]

Hi,
Sure it is..Here is an example of its use from the help files:

//Select example 1
Select {Customer.Fax}[1 To 3]
   Case "604", "250" :
      "BC"
   Case "206", "509", "360" :
      "WA"
   Default :
      "";

You can use this model to set yours up.







To Paraphrase:"The Help you get is proportional to the Help you give.."

 

[lbass]

Try clustering your first clause in combination with the case statement like this:

if {LABSTAT.Status Code} = "ESVD" then
(
select {LABSTAT.Locker}
case "VD01" : "Tapes Completed"
case "VD02" : "Central Tapes In"
case "VD06" : "Repair Completed" //etc.
) else
if {LABSTAT.Status Code} = "ESRS" then
(
select {LABSTAT.Locker}
case "MVR1" : "South Transfer to Duplication"
case "MVR2" : "South Transfer from Duplication" //etc.
) else
if //etc.

-LB

 

[kskid]

Interesting....

I have used the Select/Case but I wasn't sure you could cluster them.

That is definitely worth a star!

 

[MisterMo]

I have learned something new today. thanks

Here is another way

select {Table.Field1}
case 1 :
    (
    select {Table.Field2}
    case "ABCD" : "Hello Live Test1"
    case "EFGh" : "Hello test2"
    )
CASE 2 :
    (
    select {Table.Field2}
    case "BLABLA" : "WHATEVER"
    case "SOANDSO" : "qqqq"
    )

Mo

 

[TEM3]

I tried to follow the last example but I am getting an error about at missing "(". Also, I'm not sure how to impliment the "Not Reported" catagory if the tape location is not one of the fields of interest???

//if {LABSTAT.Status Code} = "ESVD" and {LABSTAT.Locker} = "VD01" then "Tapes Completed" else
//if {LABSTAT.Status Code} = "ESRS" and {LABSTAT.Locker} = "MVR1" then "South Transfer To Duplication" else
//if {LABSTAT.Status Code} = "ESRS" and {LABSTAT.Locker} = "MVR2" then "South Transfer From Duplication" else
//if {LABSTAT.Status Code} = "ESRS" and {LABSTAT.Locker} = "SESTS" then "South Tapes In" else
//if {LABSTAT.Status Code} = "ESRN" and {LABSTAT.Locker} = "MR01" then "North Transfer To Duplication" else
//if {LABSTAT.Status Code} = "ESRN" and {LABSTAT.Locker} = "MP01" then "North Transfer From Duplication" else
//if {LABSTAT.Status Code} = "ESRN" and {LABSTAT.Locker} = "NESTS" then "North Tapes In" else
//if {LABSTAT.Status Code} = "ESVD" and {LABSTAT.Locker} = "VD02" then "Central Tapes In" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED01" then "Turned Over to Station" else
//if {LABSTAT.Status Code} = "EDRS" and {LABSTAT.Locker} = "ED15" then "South Turned Over to Station" else
//if {LABSTAT.Status Code} = "EDRN" and {LABSTAT.Locker} = "ED15" then "North Turned Over to Station" else
//if {LABSTAT.Status Code} = "ESVD" and {LABSTAT.Locker} = "VD06" then "Repair Completed" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "VD05" then "Training Tapes In" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "VD04" then "Training Completed" else
//if {LABSTAT.Status Code} = "EDRC" and {LABSTAT.Locker} = "ED24" then "Tapes Pending Destruction" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED06" then "Tapes Destroyed" else
//if {LABSTAT.Status Code} = "EDRC" and {LABSTAT.Locker} = "ED22" then "Tapes Destroyed" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED05" then "Turned Over To Long Term Storage" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED04" then "Turned Over To OPS/IAB" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED03" then "Turned Over To Pursuit Review Board" else
//if {LABSTAT.Status Code} = "EDVD" and {LABSTAT.Locker} = "ED02" then "Turned Over To CJRB" else
//"Not Reported";


select {LABSTAT.Status Code}
case "ESVD" :
(
select {LABSTAT.Locker}
case "VD01" : "Tapes Completed"
case "VD02" : "Central Tapes In"
case "VD06" : "Repair Completed"
)
case "ESRS" :
(
select {LABSTAT.Locker}
case "MVR1" : "South Transfer To Duplication"
case "MVR2" : "South Transfer From Duplication"
case "SESTS" : "South Tapes In"
)
case "ESRN" :
(
select {LABSTAT.Locker}
case "MR01" : "North Transfer To Duplication"
case "MP01" : "North Transfer From Duplication"
case "NESTS" : "North Tapes In"
)
case "EDVD" :
(
select {LABSTAT.Locker}
case "ED01" : "Turned Over to Station"
case "ED02" : "Turned Over To CJRB"
case "ED03" : "Turned Over To Pursuit Review Board"
case "ED04" : "Turned Over To OPS/IAB"
case "ED05" : "Turned Over To Long Term Storage"
case "ED06" : "Tapes Destroyed"
case "VD05" : "Training Tapes In"
case "VD04" : "Training Tapes Completed"
)
case "EDRC" :
(
select {LABSTAT.Locker}
case "ED22" : "Tapes Destroyed"
case "ED24" : "Tapes Pending Destruction"
)
case "EDRN" :
(
select {LABSTAT.Locker}
case "ED15" : "North Turned Over to Station"
)
case "EDRS" :
(
select {LABSTAT.Locker}
case "ED15" : "South Turned Over to Station"
)

 

[MisterMo]

after your last case just add a

default:
"Not Reported"



Mo

 

[MisterMo]

I have tested your formula and it checks out alright

select  {LABSTAT.Status Code}
   case "ESVD" :
      (
      select {LABSTAT.Locker}
         case "VD01" : "Tapes Completed"
         case "VD02" : "Central Tapes In"
         case "VD06" : "Repair Completed"
      )
   case "ESRS" :
      (
      select {LABSTAT.Locker}
         case "MVR1" : "South Transfer To Duplication"
         case "MVR2" : "South Transfer From Duplication"
         case "SESTS" : "South Tapes In"
      )
   case "ESRN" :
      (
      select {LABSTAT.Locker}
         case "MR01" : "North Transfer To Duplication"
         case "MP01" : "North Transfer From Duplication"
         case "NESTS" : "North Tapes In"
      )
   case "EDVD" : 
      (
      select {LABSTAT.Locker}
         case "ED01" : "Turned Over to Station"
         case "ED02" : "Turned Over To CJRB"
         case "ED03" : "Turned Over To Pursuit Review Board"
         case "ED04" : "Turned Over To OPS/IAB"
         case "ED05" : "Turned Over To Long Term Storage"
         case "ED06" : "Tapes Destroyed"
         case "VD05" : "Training Tapes In"
         case "VD04" : "Training Tapes Completed"
      )
   case "EDRC" :
      (
      select{LABSTAT.Locker}
         case "ED22" : "Tapes Destroyed"
         case "ED24" : "Tapes Pending Destruction"
      )
   case "EDRN" :
      (
      select {LABSTAT.Locker}
         case "ED15" : "North Turned Over to Station"
      )
   case "EDRS" :
      (
      select {LABSTAT.Locker}
         case "ED15" : "South Turned Over to Station"
      )
default :
    "Not Reported"

Mo

 

[TEM3]

I took out the "()"'s and the formula saves without an error. Also added the "default" catagory. However, the logic is not working......

select {LABSTAT.Status Code}
case "ESVD" :

select {LABSTAT.Locker}

case "VD01" : "Tapes Completed"
case "VD02" : "Central Tapes In"
case "VD06" : "Repair Completed"


case "ESRS" :

select {LABSTAT.Locker}
case "MVR1" : "South Transfer To Duplication"
case "MVR2" : "South Transfer From Duplication"
case "SESTS" : "South Tapes In"

case "ESRN" :

select {LABSTAT.Locker}
case "MR01" : "North Transfer To Duplication"
case "MP01" : "North Transfer From Duplication"
case "NESTS" : "North Tapes In"

case "EDVD" :

select {LABSTAT.Locker}
case "ED01" : "Turned Over to Station"
case "ED02" : "Turned Over To CJRB"
case "ED03" : "Turned Over To Pursuit Review Board"
case "ED04" : "Turned Over To OPS/IAB"
case "ED05" : "Turned Over To Long Term Storage"
case "ED06" : "Tapes Destroyed"
case "VD05" : "Training Tapes In"
case "VD04" : "Training Tapes Completed"

case "EDRC" :

select {LABSTAT.Locker}
case "ED22" : "Tapes Destroyed"
case "ED24" : "Tapes Pending Destruction"

case "EDRN" :

select {LABSTAT.Locker}
case "ED15" : "North Turned Over to Station"

case "EDRS" :

select {LABSTAT.Locker}
case "ED15" : "South Turned Over to Station"

default : "Not Reported

 

[MisterMo]

you do need the ( ) otherwise the nested case statements will not work.

I am wondering if this is a version issue in which case you might be forced to used LBass option.

Mo

 

[lbass]

For a default, you would end the case statement with:

default : ""

Please note that "select case" is simply another way of writing an if then statement. Some people think it saves time, although I don't think it saves much effort. Like a nested if-then statement, you would have to use parens for a nested select case statement.

-LB

 

[rosemaryl]

Dear All,

The issue you are having with parens is specifically a bug in Crystal 8.5 with the Select Case statement.

The issue was correct in CR 10 (probably in CR 9, but I don't have that version).

In Crystal 8.5, if a paren was used in the statement, a non-intuitive final close paren is needed at the end of the statement resulting in unequal open and closed parens.


See this thread, for an example:
thread767-915207

Dear LBASS,

Why do you state that Default should be written as:

Default : ""

The syntax is such that if all of the values in the case evaluate to False, then Default is true and you place the value you want returned. I have often used it for statements similar to TEM3.

Default : 'Value not found, contact Microflo'
Default : 'Age greater then 5 days'

and so on....

Regards,

ro

Rosemary Lieberman
rosemary-at-microflo.com,

http://www.microflo.com

Microflo provides expert consulting on MagicTSD and Crystal Reports.

You will get answers more quickly if you read this before posting: faq149-3762

 

[lbass]

Ro,

I didn't actually say "should", and I can't remember why I even mentioned using "" as opposed to "Not Reported", except to show that "" would be the "default" default. I agree that "Not Reported" or some other text would be fine.

I didn't remember about the unequal opening/closing parens issue. Thanks for pointing that out.

-LB

 

[rosemaryl]

Dear LB,

No problem ... I just read it that way and was curious ...

Best regards,

ro

Rosemary Lieberman
rosemary-at-microflo.com,

http://www.microflo.com

Microflo provides expert consulting on MagicTSD and Crystal Reports.

You will get answers more quickly if you read this before posting: faq149-3762