MEMBER('lmsreceipts.clw')    ! This is a MEMBER module
Main PROCEDURE

LocalRequest         LONG
OriginalRequest      LONG
LocalResponse        LONG
FilesOpened          LONG
WindowOpened         LONG
WindowInitialized    LONG
ForceRefresh         LONG
Window               WINDOW('Receipt Generation'),AT(,,63,1),GRAY
                     END
numstar         LONG
StopPos         LONG
NewString       STRING(1024)
ResultArr       STRING(200) DIM(10)
  CODE
  PUSHBIND
  data_rcpdta = 'C:\advantumreports\rcpdata.txt'
  data_bldtl  = 'C:\advantumreports\bldtl.tps'
  data_contdtl= 'C:\advantumreports\contdtl.tps'
  data_chgdtl = 'C:\advantumreports\chgdtl.tps'
  LocalRequest = GlobalRequest
  OriginalRequest = GlobalRequest
  LocalResponse = RequestCancelled
  ForceRefresh = False
  CLEAR(GlobalRequest)
  CLEAR(GlobalResponse)
  IF KEYCODE() = MouseRight
    SETKEYCODE(0)
  END
  DO PrepareProcedure
  ACCEPT
    CASE EVENT()
    OF EVENT:OpenWindow
      IF NOT WindowInitialized
        DO InitializeWindow
        WindowInitialized = True
      END
      SELECT(1)
    OF EVENT:GainFocus
      ForceRefresh = True
      IF NOT WindowInitialized
        DO InitializeWindow
        WindowInitialized = True
      ELSE
        DO RefreshWindow
      END
    OF Event:Rejected
      BEEP
      DISPLAY(?)
      SELECT(?)
    END
  END
  DO ProcedureReturn
!---------------------------------------------------------------------------
PrepareProcedure ROUTINE
  IF BLDetails::Used = 0
    CheckOpen(BLDetails,1)
  END
  BLDetails::Used += 1
  BIND(BLDTL:RECORD)
  IF ChargesDetail::Used = 0
    CheckOpen(ChargesDetail,1)
  END
  ChargesDetail::Used += 1
  BIND(CHGSDTL:RECORD)
  IF ContainerDetail::Used = 0
    CheckOpen(ContainerDetail,1)
  END
  ContainerDetail::Used += 1
  BIND(CONDTL:RECORD)
  IF RcpData::Used = 0
    CheckOpen(RcpData,0)
  END
  RcpData::Used += 1
  BIND(RCPDAT:RECORD)
  FilesOpened = True
  OPEN(Window)
  WindowOpened=True
    DO ReadReceiptData
    PrintReceipt()
    DO ProcedureReturn
!---------------------------------------------------------------------------
ProcedureReturn ROUTINE
!|
!| This routine provides a common procedure exit point for all template
!| generated procedures.
!|
!| First, all of the files opened by this procedure are closed.
!|
!| Next, if it was opened by this procedure, the window is closed.
!|
!| Next, GlobalResponse is assigned a value to signal the calling procedure
!| what happened in this procedure.
!|
!| Next, we replace the BINDings that were in place when the procedure initialized
!| (and saved with PUSHBIND) using POPBIND.
!|
!| Finally, we return to the calling procedure.
!|
  IF FilesOpened
    BLDetails::Used -= 1
    IF BLDetails::Used = 0 THEN CLOSE(BLDetails).
    ChargesDetail::Used -= 1
    IF ChargesDetail::Used = 0 THEN CLOSE(ChargesDetail).
    ContainerDetail::Used -= 1
    IF ContainerDetail::Used = 0 THEN CLOSE(ContainerDetail).
    RcpData::Used -= 1
    IF RcpData::Used = 0 THEN CLOSE(RcpData).
  END
   REMOVE(BLDetails)
   REMOVE(ChargesDetail)
   REMOVE(ContainerDetail)
  IF WindowOpened
    CLOSE(Window)
  END
  IF LocalResponse
    GlobalResponse = LocalResponse
  ELSE
    GlobalResponse = RequestCancelled
  END
  POPBIND
  RETURN
!---------------------------------------------------------------------------
InitializeWindow ROUTINE
!|
!| This routine is used to prepare any control templates for use. It should be called once
!| per procedure.
!|
  DO RefreshWindow
!---------------------------------------------------------------------------
RefreshWindow ROUTINE
!|
!| This routine is used to keep all displays and control templates current.
!|
  IF Window{Prop:AcceptAll} THEN EXIT.
  DISPLAY()
  ForceRefresh = False
!---------------------------------------------------------------------------
SyncWindow ROUTINE
!|
!| This routine is used to insure that any records pointed to in control
!| templates are fetched before any procedures are called via buttons or menu
!| options.
!|
!---------------------------------------------------------------------------
ReadReceiptData         ROUTINE
  SET(RcpData)
  LOOP
    NEXT(RcpData)
    IF ERRORCODE() THEN BREAK.

    IF (SUB(RCPDAT:line,1,3)= 'HDR')
      numstar = 10
      DO SplitLine

      GLO:Rcpnbr =  DEFORMAT(ResultArr[2])
      GLO:RcpDate = DEFORMAT(ResultArr[3],@d12)
      GLO:RcpTime = DEFORMAT(ResultArr[4],@t4)
      GLO:RcpCur  = CLIP(ResultArr[5])
      GLO:RcpUser = CLIP(ResultArr[6])
      GLO:RCPCustomer = CLIP(ResultArr[7])
      GLO:CustomerAddress = ReplaceString(CLIP(ResultArr[8]),'&^#%','<13><10>')
      GLO:CusTot = DEFORMAT(ResultArr[9])
      GLO:ReprintFlag = UPPER(CLIP(ResultArr[10]))
    END

    IF (SUB(RCPDAT:line,1,2)= 'BL')
      numstar = 8
      DO SplitLine
      CLEAR(BLDTL:RECORD)
      BLDTL:bilref =   DEFORMAT(ResultArr[2])
      BLDTL:bilno =    CLIP(ResultArr[3])
      BLDTL:linename=  CLIP(ResultArr[4])
      BLDTL:shipname = CLIP(ResultArr[5])
      BLDTL:reportdate= DEFORMAT(ResultArr[6],@d12)
      BLDTL:voynum   =  CLIP(ResultArr[7])
      BLDTL:consigname= CLIP(ResultArr[8])
      ADD(BLDetails)
    END

    IF (SUB(RCPDAT:line,1,3)= 'CTN')
      numstar = 3
      DO SplitLine

      CLEAR(CONDTL:Record)
      CONDTL:bilref = DEFORMAT(ResultArr[2])
      CONDTL:contnbr = CLIP(ResultArr[3])
      ADD(ContainerDetail)
    END

    IF (SUB(RCPDAT:line,1,3)= 'DTL')
      numstar = 5
      DO SplitLine

      CLEAR(CHGSDTL:RECORD)
      CHGSDTL:bilref = DEFORMAT(ResultArr[2])
      CHGSDTL:chgdesc = CLIP(ResultArr[3])

      CHGSDTL:amount =  DEFORMAT(ResultArr[4])
      CHGSDTL:amountdc =   DEFORMAT(ResultArr[5])
      ADD(ChargesDetail)
    END


    IF (SUB(RCPDAT:line,1,5)= 'PYDTL')
      numstar = 2
      DO SplitLine
      Glo:PayStr = CLIP(ResultArr[2])
    END
  END


SplitLine      ROUTINE

 StopPos = 0
 NewString = RCPDAT:line
 I# = 1

 LOOP numstar TIMES
   IF INSTRING('*', NewString, 1, 1)
     ResultArr[I#] = SUB(NewString,1,INSTRING('*', NewString, 1, 1)-1)
   ELSE
     ResultArr[I#] =NewString
     NewString = ''
   END

   I#+=1

   StopPos = INSTRING('*', NewString, 1, 1)
   NewString = SUB(NewString,StopPos+1,len(NewString) - StopPos)
 END
PrintReceipt PROCEDURE
RejectRecord         LONG
LocalRequest         LONG
LocalResponse        LONG
WindowOpened         LONG
RecordsToProcess     LONG,AUTO
RecordsProcessed     LONG,AUTO
RecordsPerCycle      LONG,AUTO
RecordsThisCycle     LONG,AUTO
PercentProgress      BYTE
RecordStatus         BYTE,AUTO
FilesOpened          LONG
PRINT::VGEDtl        BYTE
PRINT::BOLDtl        BYTE
PRINTED::BolDtl      BYTE
Container1           STRING(20)
Container2           STRING(20)
Container3           STRING(20)
Container4           STRING(20)
Container5           STRING(20)
Container6           STRING(20)
!-----------------------------------------------------------------------------
Process:View         VIEW(ChargesDetail)
                       PROJECT(CHGSDTL:amount)
                       PROJECT(CHGSDTL:chgdesc)
                     END
!--------------------------------------------------------------------------
! Tinman Report Viewer
!--------------------------------------------------------------------------
TintRptViewer  TinReportViewer
!--------------------------------------------------------------------------
! Tinman Report Viewer
!--------------------------------------------------------------------------
report               REPORT,AT(125,2302,8063,2333),PAPER(PAPER:USER,8500,5500),PRE(RPT),THOUS
                       HEADER,AT(115,469,8063,1833)
                         STRING('CUSTOMER'),AT(1688,323,781,198),USE(?String23),TRN,FONT('Times New Roman',10,,FONT:bold)
                         STRING('DATE'),AT(615,823,417,177),USE(?String33),TRN,FONT('Times New Roman',10,,FONT:bold)
                         STRING('RECEIPT'),AT(344,323),USE(?String32),TRN,FONT('Times New Roman',12,,FONT:bold)
                         LINE,AT(344,521,1042,0),USE(?Line12),COLOR(COLOR:Black)
                         STRING(@P<<<<<<<<<<P),AT(302,531,969,240),USE(GLO:Rcpnbr),TRN,FONT('Arial',12,COLOR:Blue,FONT:bold)
                         LINE,AT(260,1010,1042,0),USE(?Line13),COLOR(COLOR:Black)
                         STRING(@d8),AT(313,1021,896,208),USE(GLO:RcpDate),TRN,CENTER,FONT('Times New Roman',10,,)
                         STRING(@s10),AT(6719,1208,854,219),USE(GLO:ReprintFlag),TRN,FONT(,12,COLOR:Red,)
                         STRING(@s80),AT(2573,333,3271,208),USE(GLO:RCPCustomer),TRN,FONT('Times New Roman',10,,)
                         TEXT,AT(2573,500,3104,417),USE(GLO:CustomerAddress),FONT('Times New Roman',9,,)
                         BOX,AT(104,1521,7500,313),COLOR(COLOR:Black)
                         LINE,AT(5802,1531,0,302),COLOR(COLOR:Black)
                         STRING(@s10),AT(6740,1531),USE(GLO:RcpCur,,?GLO:RcpCur:2),TRN,CENTER,FONT('Times New Roman',10,,)
                         STRING('Amount'),AT(6792,1667,563,167),TRN,CENTER,FONT('Times New Roman',10,,)
                         STRING('Item Description'),AT(156,1594,2063,167),TRN,FONT('Times New Roman',10,,)
                       END
VGEDtl                 DETAIL,AT(,,8052,177),USE(?VGEInfo)
                         STRING(@s20),AT(5115,10,802,146),USE(BLDTL:voynum),TRN,FONT('Times New Roman',10,,)
                         STRING('Voyage#:'),AT(4510,10,583,146),USE(?String43),TRN,FONT('Times New Roman',10,,)
                         STRING(@s60),AT(667,10,3740,146),USE(BLDTL:shipname),TRN,FONT('Times New Roman',10,,)
                         STRING('Reported:'),AT(6188,10,563,146),USE(?String21),TRN,FONT('Times New Roman',10,,)
                         STRING(@D17),AT(6781,10,698,146),USE(BLDTL:reportdate),TRN,FONT('Times New Roman',10,,)
                         STRING('Vessel:'),AT(146,10,427,146),USE(?String20),TRN,FONT('Times New Roman',10,,)
                       END
BOLDtl                 DETAIL,AT(,,,177),USE(?BOLInfo)
                         STRING(@s25),AT(656,0,2083,146),USE(BLDTL:bilno),TRN,FONT('Times New Roman',10,,)
                         LINE,AT(83,156,7500,0),USE(?Line7),COLOR(COLOR:Black)
                         STRING('BOL#:'),AT(146,0,354,146),USE(?String25),TRN,FONT('Times New Roman',10,,)
                       END
detail                 DETAIL,AT(,,8052,208)
                         LINE,AT(5802,0,0,198),COLOR(COLOR:Black)
                         STRING(@s100),AT(146,0,5615,188),USE(CHGSDTL:chgdesc),TRN,FONT('Times New Roman',10,,)
                         STRING(@N-15.2B),AT(6333,10,1115,188),USE(CHGSDTL:amount),TRN,RIGHT(20),FONT('Times New Roman',10,,)
                       END
BOLContainer           DETAIL,AT(,,,229),USE(?BOLContainer)
                         LINE,AT(83,10,7500,0),USE(?Line11),COLOR(COLOR:Blue)
                         STRING(@s20),AT(115,31,1281,198),USE(Container1),TRN,FONT('Times New Roman',10,,)
                         STRING(@s20),AT(1427,31,1281,198),USE(Container2),TRN,FONT('Times New Roman',10,,)
                         STRING(@s20),AT(2740,31,1281,198),USE(Container3),TRN,FONT('Times New Roman',10,,)
                         STRING(@s20),AT(4052,31,1271,198),USE(Container4),TRN,FONT('Times New Roman',10,,)
                         STRING(@s20),AT(5365,31,1271,198),USE(Container5),TRN,FONT('Times New Roman',10,,)
                         STRING(@s20),AT(6677,31,1271,198),USE(Container6),TRN,FONT('Times New Roman',10,,)
                         LINE,AT(83,208,7500,0),USE(?Line10),COLOR(COLOR:Blue)
                       END
EORUline               DETAIL,AT(,,,10),USE(?Uline)
                         LINE,AT(83,0,7500,0),USE(?Line8),COLOR(COLOR:Black)
                       END
                       FOOTER,AT(135,4625,8042,646),FONT('Arial',10,,FONT:regular)
                         LINE,AT(6031,21,1531,0),USE(?Line6),COLOR(COLOR:Black)
                         TEXT,AT(4542,219,3052,375),USE(GLO:PayStr),TRN,LEFT,FONT('Times New Roman',10,,)
                         STRING(@s80),AT(125,198,1542,208),USE(GLO:RcpUser),TRN,CENTER,FONT('Times New Roman',10,,)
                         STRING(@n15.2),AT(6271,31),USE(GLO:CusTot),TRN,RIGHT,FONT('Times New Roman',11,,)
                         STRING('CASHIER'),AT(583,31,625,125),USE(?String34),TRN,FONT('Times New Roman',10,,FONT:bold)
                         LINE,AT(167,177,1500,0),USE(?Line14),COLOR(COLOR:Black)
                         STRING('Total'),AT(4885,21,406,167),USE(?String11),TRN,FONT('Times New Roman',11,,FONT:bold)
                         STRING(@s10),AT(5365,31,667,156),USE(GLO:RcpCur),TRN,FONT('Times New Roman',11,,)
                       END
                     END
tmpBilref    LONG
FilledContainer   LONG
SaveShip          STRING(60)
SaveDate         LONG
Progress:Thermometer BYTE
ProgressWindow WINDOW('Progress...'),AT(,,142,59),CENTER,TIMER(1),GRAY,DOUBLE
       PROGRESS,USE(Progress:Thermometer),AT(15,15,111,12),RANGE(0,100)
       STRING(''),AT(0,3,141,10),USE(?Progress:UserString),CENTER
       STRING(''),AT(0,30,141,10),USE(?Progress:PctText),CENTER
       BUTTON('Cancel'),AT(45,42,50,15),USE(?Progress:Cancel)
     END
PrintSkipDetails BOOL,AUTO
PrintPreviewQueue QUEUE,PRE
PrintPreviewImage   STRING(80)
                  END
  CODE
  PUSHBIND
  !--------------------------------------------------------------------------
  ! Tinman Report Viewer
  !--------------------------------------------------------------------------
  !--------------------------------------------------------------------------
  ! Tinman Report Viewer
  !--------------------------------------------------------------------------
  tmpBilref = 0
  SaveShip=''
  SaveDate = 0
  PrintSkipDetails = FALSE
  PRINTED::BolDtl = FALSE
  LocalRequest = GlobalRequest
  LocalResponse = RequestCancelled
  CLEAR(GlobalRequest)
  CLEAR(GlobalResponse)
  IF BLDetails::Used = 0
    CheckOpen(BLDetails,1)
  END
  BLDetails::Used += 1
  BIND(BLDTL:RECORD)
  IF ChargesDetail::Used = 0
    CheckOpen(ChargesDetail,1)
  END
  ChargesDetail::Used += 1
  BIND(CHGSDTL:RECORD)
  IF ContainerDetail::Used = 0
    CheckOpen(ContainerDetail,1)
  END
  ContainerDetail::Used += 1
  BIND(CONDTL:RECORD)
  FilesOpened = True
  RecordsToProcess = BYTES(ChargesDetail)
  RecordsPerCycle = 1000
  RecordsProcessed = 0
  PercentProgress = 0
  OPEN(ProgressWindow)
  Progress:Thermometer = 0
  ?Progress:PctText{Prop:Text} = '0% Completed'
  ProgressWindow{Prop:Text} = 'Generating Report'
  ?Progress:UserString{Prop:Text}=''
  SEND(ChargesDetail,'QUICKSCAN=on')
  ACCEPT
    CASE EVENT()
    OF Event:OpenWindow
      SET(ChargesDetail)
      Process:View{Prop:Filter} = ''
      IF ERRORCODE()
        StandardWarning(Warn:ViewOpenError)
      END
      OPEN(Process:View)
      IF ERRORCODE()
        StandardWarning(Warn:ViewOpenError)
      END
      LOOP
        DO GetNextRecord
        DO ValidateRecord
        CASE RecordStatus
          OF Record:Ok
            BREAK
          OF Record:OutOfRange
            LocalResponse = RequestCancelled
            BREAK
        END
      END
      IF LocalResponse = RequestCancelled
        POST(Event:CloseWindow)
        CYCLE
      END
      OPEN(report)
      report{Prop:Preview} = PrintPreviewImage
    OF Event:Timer
      LOOP RecordsPerCycle TIMES
        PRINT::VGEDtl = FALSE
        PRINT::BOLDtl = FALSE
        
        IF ~(CHGSDTL:bilref = tmpBilref)
          CLEAR(BLDTL:record)
          BLDTL:bilref = CHGSDTL:bilref
          GET(BLDetails,BLDTL:byBilref)
          IF ~ERRORCODE()
             PRINT::BOLDtl = TRUE
             PRINTED::BolDtl = TRUE
             IF ~(SaveShip=BLDTL:shipname) AND ~(SaveDate = BLDTL:reportdate)
                PRINT::VGEDtl = TRUE
                SaveShip=BLDTL:shipname
                SaveDate = BLDTL:reportdate
             END
          END
          tmpBilref =CHGSDTL:bilref
        END
        
        OMIT('@@@END@@@')
        PrintSkipDetails = FALSE
        
        IF ~PrintSkipDetails THEN
          PRINT(RPT:VGEDtl)
          PRINT(RPT:BOLDtl)
          PRINT(RPT:detail)
          PRINT(RPT:BOLContainer)
          PRINT(RPT:EORUline)
        END
        
        !@@@END@@@
        PrintSkipDetails = FALSE
        IF PRINT::VGEDtl THEN
          PRINT(RPT:VGEDtl)
        END
        
        IF PRINT::BOLDtl THEN
          PRINT(RPT:BOLDtl)
        END
        
        IF FALSE THEN
          PrintSkipDetails = TRUE
          PRINT(RPT:EORUline)
        END
        
        IF ~PrintSkipDetails AND CHGSDTL:amount
          PRINT(RPT:detail)
        END
        LOOP
          DO GetNextRecord
          DO ValidateRecord
          CASE RecordStatus
            OF Record:OutOfRange
              LocalResponse = RequestCancelled
              BREAK
            OF Record:OK
              BREAK
          END
        END
        IF LocalResponse = RequestCancelled
          LocalResponse = RequestCompleted
          BREAK
        END
        LocalResponse = RequestCancelled
      END
      IF LocalResponse = RequestCompleted
        POST(Event:CloseWindow)
      END
    END
    CASE FIELD()
    OF ?Progress:Cancel
      CASE Event()
      OF Event:Accepted
        LocalResponse = RequestCancelled
        POST(Event:CloseWindow)
      END
    END
  END
     IF PRINTED::BolDtl
        SET(ContainerDetail)
        FilledContainer = 0
        LOOP
          NEXT(ContainerDetail)
          IF ERRORCODE() THEN BREAK.
          FilledContainer += 1
          CASE FilledContainer
          OF 1
            Container1 = CONDTL:contnbr
          OF 2
            Container2 = CONDTL:contnbr
          OF 3
            Container3 = CONDTL:contnbr
          OF 4
            Container4 = CONDTL:contnbr
          OF 5
            Container5 = CONDTL:contnbr
          OF 6
            Container6 = CONDTL:contnbr
          OF 7
            PRINT(RPT:BOLContainer)
            FilledContainer = 1
            Container1 = CONDTL:contnbr
            CLEAR(Container2)
            CLEAR(Container3)
            CLEAR(Container4)
            CLEAR(Container5)
            CLEAR(Container6)
          END
        END
        IF FilledContainer
          PRINT(RPT:BOLContainer)
        END
     END
  IF SEND(ChargesDetail,'QUICKSCAN=off').
  !--------------------------------------------------------------------------
  ! Tinman Report Viewer
  !--------------------------------------------------------------------------
  IF LocalResponse = RequestCompleted
    ENDPAGE(report)
    CLOSE(ProgressWindow)
    IF TintRptViewer.PreviewOption = TinViewOpt:ViewReport
      TintRptViewer.Display(report,PrintPreviewQueue,'Generate Receipt')
    ELSE
        report{PROP:FlushPreview} = True
    END
  END
  OMIT('***TINTOOLS***')
  !--------------------------------------------------------------------------
  ! Tinman Report Viewer
  !--------------------------------------------------------------------------
  IF LocalResponse = RequestCompleted
    ENDPAGE(report)
    ReportPreview(PrintPreviewQueue)
    IF GlobalResponse = RequestCompleted
      report{PROP:FlushPreview} = True
    END
  END
  !***TINTOOLS***
  CLOSE(report)
  FREE(PrintPreviewQueue)
  DO ProcedureReturn
ProcedureReturn ROUTINE
!|
!| This routine provides a common procedure exit point for all template
!| generated procedures.
!|
!| First, all of the files opened by this procedure are closed.
!|
!| Next, GlobalResponse is assigned a value to signal the calling procedure
!| what happened in this procedure.
!|
!| Next, we replace the BINDings that were in place when the procedure initialized
!| (and saved with PUSHBIND) using POPBIND.
!|
!| Finally, we return to the calling procedure.
!|
  IF FilesOpened
    BLDetails::Used -= 1
    IF BLDetails::Used = 0 THEN CLOSE(BLDetails).
    ChargesDetail::Used -= 1
    IF ChargesDetail::Used = 0 THEN CLOSE(ChargesDetail).
    ContainerDetail::Used -= 1
    IF ContainerDetail::Used = 0 THEN CLOSE(ContainerDetail).
  END
  IF LocalResponse
    GlobalResponse = LocalResponse
  ELSE
    GlobalResponse = RequestCancelled
  END
  POPBIND
  RETURN
!-----------------------------------------------------------------------------
ValidateRecord       ROUTINE
!|
!| This routine is used to provide for complex record filtering and range limiting. This
!| routine is only generated if you've included your own code in the EMBED points provided in
!| this routine.
!|
  RecordStatus = Record:OutOfRange
  IF LocalResponse = RequestCancelled THEN EXIT.
  RecordStatus = Record:OK
  EXIT
GetNextRecord ROUTINE
!|
!| This routine is used to retrieve the next record from the VIEW.
!|
!| After the record has been retrieved, the PROGRESS control on the
!| Progress window is updated.
!|
  NEXT(Process:View)
  IF ERRORCODE()
    IF ERRORCODE() <> BadRecErr
      StandardWarning(Warn:RecordFetchError,'ContainerDetail')
    END
    LocalResponse = RequestCancelled
    EXIT
  ELSE
    LocalResponse = RequestCompleted
  END
  RecordsProcessed += BYTES(ChargesDetail)
  RecordsThisCycle += BYTES(ChargesDetail)
  IF PercentProgress < 100
    PercentProgress = (RecordsProcessed / RecordsToProcess)*100
    IF PercentProgress > 100
      PercentProgress = 100
    END
    IF PercentProgress <> Progress:Thermometer THEN
      Progress:Thermometer = PercentProgress
      ?Progress:PctText{Prop:Text} = FORMAT(PercentProgress,@N3) & '% Completed'
      DISPLAY()
    END
  END

ReplaceString        FUNCTION (strInputString,strSearchString,strReplaceString) ! Declare Procedure
ReturnString         STRING(1024)
SearchStringPosition LONG
LastStringPosition   LONG
  CODE                                            ! Begin processed code
 CLEAR(ReturnString)
 SearchStringPosition = 1
 LastStringPosition   = 1
 LOOP
   SearchStringPosition = INSTRING(CLIP(strSearchString), strInputString, 1, LastStringPosition)
   IF SearchStringPosition
     ReturnString = CLIP(ReturnString) & SUB(strInputString, LastStringPosition, (SearchStringPosition-LastStringPosition)) & CLIP(strReplaceString)
     LastStringPosition = SearchStringPosition + LEN(CLIP(strSearchString))
     IF LastStringPosition > LEN(CLIP(strInputString))
       BREAK
     END
   ELSE
     ReturnString = CLIP(ReturnString) & SUB(strInputString, LastStringPosition, (LEN(CLIP(strInputString))-LastStringPosition+1))
     BREAK
   END

 END

 If SUB(ReturnString,1,2)= '  '
    ReturnString = SUB(ReturnString,3,LEN(CLIP(ReturnString))-2)
 END
 RETURN(ReturnString)