USING Progress.Lang.*.
USING Progress.Windows.Form.



CLASS Adedual.Objetos.ReportViewerFrm INHERITS Form: 
    
    DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO.
    DEFINE PRIVATE VARIABLE reportViewer1 AS Adedual.Objetos.ReportViewer NO-UNDO.

        
    CONSTRUCTOR PUBLIC ReportViewerFrm (INPUT pProgramName AS CHARACTER, INPUT pReportLocation AS CHARACTER, INPUT pSendToPrinter AS INTEGER ):
        
        
        SUPER().
        InitializeComponent(pReportLocation, pSendToPrinter).
        THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components).
        THIS-OBJECT:Text = "Alleanza - Visualiza‡Æo do relat¢rio " + pProgramName.
        
        CATCH e AS Progress.Lang.Error:
            UNDO, THROW e.
        END CATCH.

    END CONSTRUCTOR.

    METHOD PRIVATE VOID InitializeComponent( INPUT pReportLocation AS CHARACTER, INPUT pSendToPrinter AS INTEGER ):
        
        /* NOTE: The following method is automatically generated.
        
        We strongly suggest that the contents of this method only be modified using the
        Visual Designer to avoid any incompatible modifications.
        
        Modifying the contents of this method using a code editor will invalidate any support for this file. */
        THIS-OBJECT:reportViewer1 = NEW Adedual.Objetos.ReportViewer(pReportLocation, pSendToPrinter).
        
       
        
        
        THIS-OBJECT:SuspendLayout().
        /*  */
        /* reportViewer1 */
        /*  */
        THIS-OBJECT:reportViewer1:BorderStyle = System.Windows.Forms.BorderStyle:FixedSingle.
        THIS-OBJECT:reportViewer1:Location = NEW System.Drawing.Point(1, 1).
        THIS-OBJECT:reportViewer1:Name = "reportViewer1".
        THIS-OBJECT:reportViewer1:Size = NEW System.Drawing.Size(780, 550).
        THIS-OBJECT:reportViewer1:TabIndex = 0.
        THIS-OBJECT:reportViewer1:Load:Subscribe(THIS-OBJECT:reportViewer1_Load).
        
        /*  */
        /* form1 */
        /*  */
        THIS-OBJECT:ClientSize = NEW System.Drawing.Size(800, 600).
        THIS-OBJECT:Controls:Add(THIS-OBJECT:reportViewer1).
        THIS-OBJECT:Name = "form1".
        THIS-OBJECT:Text = "form1".
        THIS-OBJECT:ResumeLayout(FALSE).
        CATCH e AS Progress.Lang.Error:
            UNDO, THROW e.
        END CATCH.
    END METHOD.

    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    @VisualDesigner.
    METHOD PRIVATE VOID reportViewer1_Load( INPUT sender AS System.Object, INPUT e AS System.EventArgs ):
        
        RETURN.

    END METHOD.

    DESTRUCTOR PUBLIC ReportViewerFrm ( ):

    END DESTRUCTOR.

END CLASS.
