PROGRAM

   INCLUDE('Equates.CLW')
   INCLUDE('TplEqu.CLW')
   INCLUDE('Keycodes.CLW')
   INCLUDE('Errors.CLW')
  INCLUDE('Tintrptv.inc')
!--------------------------------------------------------------------------
! -----------Tintools-------------
!--------------------------------------------------------------------------
   INCLUDE('PRNPROP.CLW')
!--------------------------------------------------------------------------
! -----------Tintools-------------
!--------------------------------------------------------------------------
   MAP
     MODULE('lmsin001.clw')
       Main
       PrintInvoice
       ReplaceString(STRING,STRING,STRING), STRING
     END
     MODULE('lmsin_SF.CLW')
       CheckOpen(FILE File,<BYTE OverrideCreate>,<BYTE OverrideOpenMode>)
       ReportPreview(QUEUE PrintPreviewQueue)
       Preview:JumpToPage(LONG Input:CurrentPage, LONG Input:TotalPages),LONG
       Preview:SelectDisplay(*LONG Input:PagesAcross, *LONG Input:PagesDown)
       StandardWarning(LONG WarningID),LONG,PROC
       StandardWarning(LONG WarningID,STRING WarningText1),LONG,PROC
       StandardWarning(LONG WarningID,STRING WarningText1,STRING WarningText2),LONG,PROC
       SetupStringStops(STRING ProcessLowLimit,STRING ProcessHighLimit,LONG InputStringSize,<LONG ListType>)
       NextStringStop,STRING
       SetupRealStops(REAL InputLowLimit,REAL InputHighLimit)
       NextRealStop,REAL
       INIRestoreWindow(STRING ProcedureName,STRING INIFileName)
       INISaveWindow(STRING ProcedureName,STRING INIFileName)
       RISaveError
     END
     MODULE('lmsin_RU.CLW')
       RIUpdate:ACTDetails(BYTE=0),LONG
       RISnap:ACTDetails
       RIUpdate:BLDetails(BYTE=0),LONG
       RISnap:BLDetails
       RIUpdate:ChargesDetail(BYTE=0),LONG
       RISnap:ChargesDetail
       RIUpdate:ContainerDetail(BYTE=0),LONG
       RISnap:ContainerDetail
       RIUpdate:RcpData(BYTE=0),LONG
       RISnap:RcpData
     END
     MODULE('lmsin_RD.CLW')
       RIDelete:ACTDetails,LONG
       RIDelete:BLDetails,LONG
       RIDelete:ChargesDetail,LONG
       RIDelete:ContainerDetail,LONG
       RIDelete:RcpData,LONG
     END
   END


data_rcpdta   STRING(255)
data_bldtl   STRING(255)
data_actdtl   STRING(255)
data_contdtl   STRING(255)
data_chgdtl   STRING(255)
GLO:Invnbr   LONG
GLO:InvDate   LONG
GLO:InvTime   LONG
GLO:InvCur   STRING(10)
GLO:InvUser   STRING(20)
GLO:InvCustomer   STRING(80)
GLO:CustomerAddress   STRING(250)
GLO:CusTot   DECIMAL(13,2)
GLO:ReprintFlag   STRING(10)
GLO:RemarkStr   STRING(200)
GLO:InvCust   STRING(10)

SaveErrorCode        LONG
SaveError            CSTRING(255)
SaveFileErrorCode    LONG
SaveFileError        CSTRING(255)
GlobalRequest        LONG(0),THREAD
GlobalResponse       LONG(0),THREAD
VCRRequest           LONG(0),THREAD
RcpData                 FILE,DRIVER('ASCII'),NAME(data_rcpdta),PRE(RCPDAT),BINDABLE,THREAD
Record                   RECORD,PRE()
line                        STRING(1024)
                         END
                       END
RcpData::Used        LONG,THREAD

ACTDetails              FILE,DRIVER('TOPSPEED'),NAME(data_actdtl),PRE(ACTDTL),CREATE,BINDABLE,THREAD
byActid                  KEY(ACTDTL:actid),DUP,NOCASE,OPT
Record                   RECORD,PRE()
actid                       LONG
jobno                       LONG
bilno                       STRING(30)
actdesc                     STRING(60)
actstrdate                  STRING(20)
actstrtime                  STRING(20)
actenddate                  STRING(20)
actendtime                  STRING(20)
                         END
                       END
ACTDetails::Used     LONG,THREAD

ContainerDetail         FILE,DRIVER('TOPSPEED'),NAME(data_contdtl),PRE(CONDTL),CREATE,BINDABLE,THREAD
byBilref                 KEY(CONDTL:bilref),DUP,NOCASE,OPT
Record                   RECORD,PRE()
bilref                      LONG
contnbr                     STRING(30)
                         END
                       END
ContainerDetail::Used LONG,THREAD

ChargesDetail           FILE,DRIVER('TOPSPEED'),NAME(data_chgdtl),PRE(CHGSDTL),CREATE,BINDABLE,THREAD
Record                   RECORD,PRE()
bilref                      LONG
chgdesc                     STRING(100)
amount                      DECIMAL(13,2)
amountdc                    DECIMAL(13,2)
actid                       LONG
                         END
                       END
ChargesDetail::Used  LONG,THREAD

BLDetails               FILE,DRIVER('TOPSPEED'),NAME(data_bldtl),PRE(BLDTL),CREATE,BINDABLE,THREAD
byBilref                 KEY(BLDTL:bilref),DUP,NOCASE,OPT
Record                   RECORD,PRE()
bilref                      LONG
bilno                       STRING(25)
linename                    STRING(60)
shipname                    STRING(60)
reportdate                  LONG
voynum                      STRING(20)
consigname                  STRING(100)
                         END
                       END
BLDetails::Used      LONG,THREAD

Sort:Name STRING(ScrollSort:Name)
Sort:Name:Array STRING(3),DIM(100),OVER(Sort:Name)
Sort:Alpha STRING(ScrollSort:Alpha)
Sort:Alpha:Array STRING(2),DIM(100),OVER(Sort:Alpha)
!--------------------------------------------------------------------------
! -----------Tintools-------------
!--------------------------------------------------------------------------
TinToolsViewRecord  EQUATE(15)
TinToolsCopyRecord  EQUATE(16)
!--------------------------------------------------------------------------
! -----------Tintools-------------
!--------------------------------------------------------------------------
  CODE
  Main
!---------------------------------------------------------------------------