WITH CREATEOBJECT("Form_1")
  	.show(1)
  ENDWITH
 DEFINE CLASS form_1 AS Form
    AutoCenter = .T.
  	Height     =  305
  	Width      =  500
  	Caption    = "Form_1"
  	Name       = "Form_1"
    BackColor  = RGB(245,243,222)

PROCEDURE load
  CREATE CURSOR table_1 (Art N(2), data_ D(8), prim_ C(15)) 
    INSERT INTO table_1 VALUES ( 1, DATE()   , 'Смирнов №1')
    INSERT INTO table_1 VALUES ( 1, DATE()-10, 'Смирнов №2')
    INSERT INTO table_1 VALUES ( 2, DATE()-20, 'Смирнов №3')
    INSERT INTO table_1 VALUES ( 2, DATE()-30, 'Смирнов №4')
    INSERT INTO table_1 VALUES ( 3, DATE()-40, 'Смирнов №5')
    GO TOP
  CREATE CURSOR table_2 (Artcd N(2), sum_ N(5)) 
    INSERT INTO table_2 VALUES ( 1, 1    )
    INSERT INTO table_2 VALUES ( 1, 12   )
    INSERT INTO table_2 VALUES ( 2, 123  )
    INSERT INTO table_2 VALUES ( 2, 1234 )
    INSERT INTO table_2 VALUES ( 3, 12345)
    GO TOP
    
ENDPROC



 PROCEDURE Init
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*  LABEL
 This.AddObject('Label_1','Label')
 WITH This.Label_1
     .BackStyle= 0
     .Visible  = .T.
     .TOP      = 10
     .LEFT     = 10
     .Height   = 20
     .Width    = 500
     .Alignment = 2
     .Caption  = 'Простое копирование!'
 ENDWITH
 This.AddObject('Label_2','Label')
 WITH This.Label_2
     .BackStyle= 0
     .Visible  = .T.
     .TOP      = 40
     .LEFT     = 0
     .Height   = 20
     .Width    = 250
     .Alignment = 2
     .Caption  = 'Table_1'
 ENDWITH
  This.AddObject('Label_3','Label')
 WITH This.Label_3
     .BackStyle= 0
     .Visible  = .T.
     .TOP      = 40
     .LEFT     = 250
     .Height   = 20
     .Width    = 250
     .Alignment = 2
     .Caption  = 'Table_2'
 ENDWITH
 
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~* GRID
This.AddObject('Grid_1','Grid')
WITH This.Grid_1
 .Height = 200
 .Width  = 230
 .AllowCellSelection = .F. 
 .Top          =  70
 .Left         =  10
 .Visible      = .T. 
 .DeleteMark   = .F.
 .RecordMark   = .F.
 .ReadOnly     = .T.
 .ScrollBars   =  2
 .ColumnCount  =  3
 .HeaderHeight =  0
 .RecordSource = 'Table_1'
 .column1.ControlSource = 'Art'
 .column2.ControlSource = 'data_'
 .column3.ControlSource = 'prim_'
 .column1.width = 50
 .column2.width = 70
 .column3.width = 70
 .column1.Resizable = .F.
 .column2.Resizable = .F.
 .column3.Resizable = .F.
 .column1.Alignment = 4
 .column2.Alignment = 4
 .column3.Alignment = 4
ENDWITH
This.AddObject('Grid_2','Grid')
WITH This.Grid_2
 .Height = 200
 .Width  = 230
 .AllowCellSelection = .F. 
 .Top          =  70
 .Left         =  260
 .Visible      = .T. 
 .DeleteMark   = .F.
 .RecordMark   = .F.
 .ReadOnly     = .T.
 .ScrollBars   =  2
 .ColumnCount  =  2
 .HeaderHeight =  0
 .RecordSource = 'Table_2'
 .column1.ControlSource = 'Artcd'
 .column2.ControlSource = 'sum_'
 .column1.width = 50
 .column2.width = 70
 .column1.Resizable = .F.
 .column2.Resizable = .F.
 .column1.Alignment = 4
 .column2.Alignment = 4
ENDWITH
* Artcd N(2), sum_ N(5)) 

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~* CommandButton 1
 ThisForm.AddObject('com_1','CommandButton_1')
 WITH ThisForm.com_1
     .Caption = 'Скопировать'
     .default = .T.
     .Visible  = .T. 
     .TOP      = 275
     .LEFT     = 200
     .Height   = 25
     .Width    = 100
 ENDWITH


 ENDPROC
 ENDDEFINE
*================================================================*

DEFINE CLASS CommandButton_1 as CommandButton
PROCEDURE click

SELECT Art, data_, prim_, sum_ FROM  Table_1, Table_2 WHERE Table_1.Art = Table_2.Artcd INTO CURSOR Table_1
WITH ThisForm.Grid_1
 .Height = 200
 .Width  = 230
 .AllowCellSelection = .F. 
 .Top          =  70
 .Left         =  10
 .Visible      = .T. 
 .DeleteMark   = .F.
 .RecordMark   = .F.
 .ReadOnly     = .T.
 .ScrollBars   =  2
 .ColumnCount  =  4
 .HeaderHeight =  0
 .RecordSource = 'Table_1'
 .column1.ControlSource = 'Art'
 .column2.ControlSource = 'data_'
 .column3.ControlSource = 'prim_'
 .column4.ControlSource = 'sum_'
 .column1.width = 15
 .column2.width = 70
 .column3.width = 80
 .column4.width = 45
 .column1.Resizable = .F.
 .column2.Resizable = .F.
 .column3.Resizable = .F.
 .column4.Resizable = .F.
 .column1.Alignment = 4
 .column2.Alignment = 4
 .column3.Alignment = 4
 .column4.Alignment = 4
ENDWITH      

      
ThisForm.Refresh 
ENDPROC