Define Class rlswap As ReportListener

   ListenerType = 1  && to see the results, use a preview
   OutputType = 1
   realFRX = ""
   strFilter = ""
   tempFRX = Forcepath(Sys(2015),Sys(2023))


   Procedure LoadReport
      If !Used('CombineDD')
         Use CombineDD In 0
      Endif
      Select CombineDD
      mfilterCond = 'Condition = "' + This.strFilter + '"'
      Set Filter To &mfilterCond
   Endproc

   Protected Procedure clearFRX(tFRX)
   Endproc

   Procedure UnloadReport
*      This.Parent.Visible = .F.
   Endproc

   Procedure getBusRuleType(strCondition)
      strCondition = Alltrim(strCondition)
      Do Case
         Case strCondition = "Criteria"
            mRetValue = "Business Rule for Combine Process - QLP Report"
         Case strCondition = "ErrorTbl"
            mRetValue = "Business Rule for Combine Process - Error Report"
         Case strCondition = "Distrib"
            mRetValue = "Transmission Rules for Combine Process - Ditribution Updates List"
         Case strCondition = "EditTbls"
            mRetValue = "Transmission Rules for Combine Process - Edit Table Updates"
      Endcase
      Return mRetValue
   Endproc

   Procedure getTable(strMthDay, strTableName)
      Do Case
         Case "ELE"$strTableName
            mRetValue = strTableName
         Case "EDIT"$strTableName
            mRetValue = strTableName
         Otherwise
            mRetValue = Iif(strMthDay = 'M', 'bepm', 'becm') + strTableName
      Endcase
      Return mRetValue
   Endproc

   Procedure getTargetDirectory(strtargetdir)

      If Left(strtargetdir, 2) = 'N='
         mRetValue = 'runreports.objChkDFiles.' + Substr(strtargetdir, 3)
         mRetValue = &mRetValue
      Else
         mRetValue = "Corp2.dfas.mil" + Strtran(strtargetdir, "2=", "")
      Endif
      Return mRetValue
   Endproc

   Procedure GetCopyType(strCopyType, strTableName)

      If Type('strCopyType') = "L"
         mRetValue = Iif(strTableName = "Combine", "QLP Driver Table Final Format", "") + Iif(Left(strTableName,1) = "G", "Intermediate Import Table " + ;
            Right(Alltrim(strTableName), 1), "") + Iif(Left(strTableName,1) = "H", Iif(!Isdigit(Right(Alltrim(strTableName),1)), ;
            "Error Driver Table Import Format", ""), "") + Iif(Left(strTableName,1) = "H" And Isdigit(Right(Alltrim(strTableName),1)), ;
            "Error Driver Table Final  Format", "")
      Else
         mRetValue = Iif(Left(copyitype,1) = 'B', "Monthly & Daily", Iif(Left(copyitype,1) = 'M', "Monthly", "Daily")) + " Operation" + Chr(13) + ;
            iif("Z"$Substr(copyitype, 2), "Zip Created", "")  + Iif("N"$ Substr(copyitype, 2), Chr(13) + "Copied to Network", "") + ;
            iif("2"$ Substr(copyitype, 2), Chr(13) + "Sent to Corp2 via Secure FTP", "")
      Endif
      Return mRetValue
   Endproc
Enddefine