MEMBER('lmsinvoicesjc.clw')


!--------------------------------------------------
RIDelete:ACTDetails  FUNCTION
Current:Position     STRING(512)
  CODE
  Current:Position = POSITION(ACTDTL:byActid)
  LOGOUT(2,ACTDetails)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:LogoutError,'Delete','ACTDetails')
    DO RICloseFiles
    RETURN(1)
  END
  REGET(ACTDTL:byActid,Current:Position)
  DELETE(ACTDetails)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:RIDeleteError,'ACTDetails')
    DO RICloseFiles
    RETURN(1)
  ELSE
    COMMIT
    DO RICloseFiles
    RETURN(0)
  END
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT

!--------------------------------------------------
RIDelete:BLDetails   FUNCTION
Current:Position     STRING(512)
  CODE
  Current:Position = POSITION(BLDTL:byBilref)
  LOGOUT(2,BLDetails)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:LogoutError,'Delete','BLDetails')
    DO RICloseFiles
    RETURN(1)
  END
  REGET(BLDTL:byBilref,Current:Position)
  DELETE(BLDetails)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:RIDeleteError,'BLDetails')
    DO RICloseFiles
    RETURN(1)
  ELSE
    COMMIT
    DO RICloseFiles
    RETURN(0)
  END
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT

!--------------------------------------------------
RIDelete:ChargesDetail FUNCTION
Current:Position     STRING(512)
  CODE
  Current:Position = POSITION(ChargesDetail)
  LOGOUT(2,ChargesDetail)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:LogoutError,'Delete','ChargesDetail')
    DO RICloseFiles
    RETURN(1)
  END
  REGET(ChargesDetail,Current:Position)
  DELETE(ChargesDetail)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:RIDeleteError,'ChargesDetail')
    DO RICloseFiles
    RETURN(1)
  ELSE
    COMMIT
    DO RICloseFiles
    RETURN(0)
  END
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT

!--------------------------------------------------
RIDelete:ContainerDetail FUNCTION
Current:Position     STRING(512)
  CODE
  Current:Position = POSITION(CONDTL:byBilref)
  LOGOUT(2,ContainerDetail)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:LogoutError,'Delete','ContainerDetail')
    DO RICloseFiles
    RETURN(1)
  END
  REGET(CONDTL:byBilref,Current:Position)
  DELETE(ContainerDetail)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:RIDeleteError,'ContainerDetail')
    DO RICloseFiles
    RETURN(1)
  ELSE
    COMMIT
    DO RICloseFiles
    RETURN(0)
  END
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT

!--------------------------------------------------
RIDelete:RcpData     FUNCTION
Current:Position     STRING(512)
  CODE
  Current:Position = POSITION(RcpData)
  REGET(RcpData,Current:Position)
  DELETE(RcpData)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:RIDeleteError,'RcpData')
    DO RICloseFiles
    RETURN(1)
  ELSE
    DO RICloseFiles
    RETURN(0)
  END
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT