? "-----------------", cBrw , cForm 
 ?v aArray 
    aMassiv := aArray // переопределяем массив на сокращённый 
 ? "LEN(aMassiv)=",LEN(aMassiv) 
  
    oBrw:DeleteRow( .T. )           // Delete All         
    oBrw:aArray := {}               // очистить массив 
    oBrw:reset() 
  
    FOR nI := 1 TO LEN(aMassiv) 
        // нужно сделать массив на +1 больше 
        aRows := Array(1, 13) 
         
        aRows[1][1]  :=  0          
        aRows[1][2]  :=  0          
        aRows[1][3]  := CTOD("")    
        aRows[1][4]  :=  0          
        aRows[1][5]  := CTOD("")    
        aRows[1][6]  := SPACE(20)   
        aRows[1][7]  :=  0          
        aRows[1][8]  :=  0          
        aRows[1][9]  := CTOD("")              
        aRows[1][10] :=  0              
        aRows[1][11] :=  ""               
        aRows[1][12] :=  ""               
        aRows[1][13] :=  ""         
         
        oBrw:AddItem( aRows[1] ) 
        ? "-AddItem-", nI, HB_ValToExp(aRows[1])  
    NEXT 
    oBrw:Reset() 
    oBrw:Refresh(.T.) 
    ? " oBrw:nLen=", oBrw:nLen, " LEN(aMassiv)=", LEN(LEN(aMassiv)) 
 

----------------- Set_Columns1	Form_AYC 
 1	{40.00, 0d20190331, 120.00, 0d20190130, ... }	 
 2	{40.00, 0d20190331,   0.00, 0d20190131, ... }	 
 3	{40.00, 0d20190331,   0.00, 0d20190228, ... }	 
 4	{40.00, 0d20190331,  40.00, 0d20190322, ... }	 
 5	{40.00, 0d20190331,   0.00, 0d20190331, ... }	 
 6	{40.00, 0d20190831,  40.00, 0d20190416, ... }	 
 7	{40.00, 0d20190831,   0.00, 0d20190430, ... }	 
 8	{40.00, 0d20190831,   0.00, 0d20190531, ... }	 
 9	{40.00, 0d20190831,   0.00, 0d20190630, ... }	 
  
 LEN(aMassiv)=	9	 
  
 -AddItem-1	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-2	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-3	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-4	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-5	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-6	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-7	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-8	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
 -AddItem-9	{0, 0, 0d00000000, 0, 0d00000000, "", ...}	 
  
  oBrw:nLen=	8	 LEN(aMassiv)=	9	

 
 *-----------------------------------------------------------------------------* 
 STATIC FUNC Report( oWnd, nEvent, aSelect ) 
 *-----------------------------------------------------------------------------* 
    LOCAL aDatos, aArray, aHead, aSize, oCol, nCol, nLen 
    LOCAL cCapt := 'All' 
  
    oWnd:Action := .F. 
    oWnd:StatusBar:Say('W A I T') 
  
    If aSelect[1] != Nil 
       cCapt := hb_ntos(aSelect[1])+'-'+hb_ntos(aSelect[2]) 
    EndIf 
  
    This.E0.Caption := cCapt 
  
    DO EVENTS 
  
    aDatos := AgeSelect( aSelect[1], aSelect[2] ) 
    aArray := aDatos[1] 
    aHead  := aDatos[2] 
    aSize  := aDatos[3] 
  
    WITH OBJECT oWnd:GetObj('Report'):Tsb  // oBrw 
  
    :Hide() ; nCol := :nColumn('STREET') ; oCol := :GetColumn(nCol) 
  
    AEval(:aColumns, {|oc,nc| oc:nWidth   := aSize[ nc ], ; 
                              oc:cHeading := aHead[ nc ] }) 
  
    :HideColumns( nCol, ! 'All' $ cCapt ) 
  
    :Display() ; :AdjColumns() ; DO EVENTS 
  
    :SetArray(aArray, .T.) 
  
    :Reset() ; :GetColumn('AGE'):cFooting := hb_ntos(:nLen) 
  
    :ResetVScroll( .T. ) ; :oHScroll:SetRange( 0, 0 ) 
  
    :Show() ; DO EVENTS ; :SetFocus() 
  
    END WITH 
  
    oWnd:StatusBar:Say('') 
    oWnd:Action := .T. 
  
 RETURN Nil