forum.clarionlife.net

Код: Выделить всё

   MEMBER('debtpay.clw')                              ! This is a MEMBER module


   INCLUDE('ABASCII.INC')
   INCLUDE('ABTOOLBA.INC')
   INCLUDE('ABUTIL.INC')
   INCLUDE('ABWINDOW.INC')

                     MAP
                       INCLUDE('DEBTP067.INC')        !Local module prodecure declarations
                     END


Report40 PROCEDURE                                    !Generated from procedure template - Window

FilesOpened          BYTE
ViewerActive1        BYTE(False)
AsciiFilename1       STRING(FILE:MaxFilePath),AUTO,STATIC,THREAD
AsciiFile1           FILE,DRIVER('ASCII'),NAME(AsciiFilename1),PRE(A1),THREAD
RECORD                RECORD,PRE()
TextLine                STRING(255)
                      END
                     END
ViewWindow           WINDOW('View an ASCII File'),AT(3,7,296,136),FONT('FixedSys',7,,),SYSTEM,GRAY
                       LIST,AT(5,5,285,110),USE(?AsciiBox),IMM,FONT('FixedSys',7,,),FROM('')
                       BUTTON('&Print...'),AT(130,120,52,11),USE(?Print)
                       BUTTON('&Close'),AT(255,120,35,10),USE(?Close)
                     END

ThisWindow           CLASS(WindowManager)
Init                   PROCEDURE(),BYTE,PROC,VIRTUAL
Kill                   PROCEDURE(),BYTE,PROC,VIRTUAL
Reset                  PROCEDURE(BYTE Force=0),VIRTUAL
TakeAccepted           PROCEDURE(),BYTE,PROC,VIRTUAL
TakeEvent              PROCEDURE(),BYTE,PROC,VIRTUAL
TakeFieldEvent         PROCEDURE(),BYTE,PROC,VIRTUAL
TakeWindowEvent        PROCEDURE(),BYTE,PROC,VIRTUAL
                     END

Toolbar              ToolbarClass
Viewer1              AsciiViewerClass
Printer3             AsciiPrintClass ! Ascii Printer for ?AsciiBox

  CODE
  GlobalResponse = ThisWindow.Run()


ThisWindow.Init PROCEDURE()

ReturnValue          BYTE,AUTO
  CODE
  SELF.Request = GlobalRequest
  ReturnValue =PARENT.Init()
  IF ReturnValue THEN RETURN ReturnValue.
  SELF.FirstField = ?AsciiBox
  SELF.VCRRequest &= VCRRequest
  SELF.Errors &= GlobalErrors
  SELF.AddItem(Toolbar)
  CLEAR(GlobalRequest)
  CLEAR(GlobalResponse)
  SELF.AddItem(?Close,RequestCancelled)
  OPEN(ViewWindow)
  SELF.Opened=True
  INIMgr.Fetch('Report40',ViewWindow)
  CLEAR(AsciiFilename1)
  ViewerActive1=Viewer1.Init(AsciiFile1,A1:Textline,AsciiFilename1,?AsciiBox,GlobalErrors,EnablePrint)
  IF ~ViewerActive1 THEN RETURN Level:Fatal.

Код: Выделить всё

 SELF.SetAlerts()
  RETURN ReturnValue


ThisWindow.Kill PROCEDURE()

ReturnValue          BYTE,AUTO