FiveTech Support Forums

Application
===========
   Path and name: C:\Work\Prg\Orario\Main.Exe (32 bits)
   Size: 6,389,760 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725)
   FiveWin  Version: FWHX 15.01
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 1 mins 57 secs 
   Error occurred at: 09-10-2015, 09:28:40
   Error description: Error BASE/1133  Limiti superati: assegnazione all'array
   Args:
     [   1] = N   13

Stack Calls
===========
   Called from: Lib\xbrowse\xbrowse_15.prg => TXBROWSE:GODOWN( 3037 )
   Called from: Lib\xbrowse\xbrowse_15.prg => TXBROWSE:VSCROLL( 2862 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 )
   Called from: Lib\xbrowse\xbrowse_15.prg => TXBROWSE:HANDLEEVENT( 12668 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: source\PDocenti.prg => CATTEDRE( 2717 )
   Called from: source\PDocenti.prg => (b)DOCENTI( 226 )
   Called from: Lib\vtaskbar\VMenu.prg => TVMENU:EVALACTION( 1700 )
   Called from: Lib\vtaskbar\VMenu.prg => TVMENU:LBUTTONUP( 1398 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: Lib\vtaskbar\VMenu.prg => TVMENU:HANDLEEVENT( 905 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1152 )
   Called from: source\Main.prg => TAPPLICATION:ACTIVATE( 407 )
   Called from: source\Main.prg => MAIN( 68 )

  

 SELECT LZ
                         LZ->(DbSetOrder(1))
                         LZ->( OrdScope(0, { || ndocente }))
                         LZ->( OrdScope(1, { || ndocente }) )
                         LZ->(DbGoTop())
       aBrowse     :=  {{"PROF"         ,i18n("Prof")         ,nil      ,50  },;
                        { "CLASSE"      ,i18n("Classe")       ,nil      ,90 },;
                        { "AULA"        ,i18n("Aula")         ,nil      ,45  },;
                        { "MATERIA"     ,i18n("Materia")      ,nil      ,37  },;
                        { "FLAG"        ,i18n("Flag")         ,nil      ,80  },;
                        { "GRUPPO"      ,i18n("Gruppo")       ,nil      ,60  },;
                        { "ORESEQ"      ,i18n("Sequenz.")     ,nil      ,50  },;
                        { "GG_ORA"      ,i18n("Giorno/Ora")   ,nil      ,80  },;
                        { "BLOCCO"      ,i18n("Blocco")       ,nil      ,80  }}

@ 0, 0.2 XBROWSE oBrw       ;
      OF oFld:adialogs[1] DATASOURCE "LZ" ;
      COLUMNS aBrowse CELL LINES  FOOTERS NOBORDER   FONT oFontgrid


    WITH OBJECT oBrw

           WITH OBJECT  oBrw:aCols[2]
                :nEditType := EDIT_BUTTON
                :bEditBlock := { | nRow, nCol, oCol, nKey | LookClasse( nRow, nCol, oCol, nKey ) }
                :nWidth   := 60
             END

            WITH OBJECT  oBrw:aCols[3]
                :nEditType := EDIT_BUTTON
                :bEditBlock := { | nRow, nCol, oCol, nKey | LookAula( nRow, nCol, oCol, nKey ) }
                :nWidth   := 60
             END

            WITH OBJECT  oBrw:aCols[4]
                :nEditType := EDIT_BUTTON
                :bEditBlock := { | nRow, nCol, oCol, nKey | LookMateria( nRow, nCol, oCol, nKey ) }
                :nWidth   := 60
             END

           WITH OBJECT  oBrw:aCols[5]
              :nEditType := EDIT_LISTBOX
              :aEditListTxt:={"1","0"}
              :nWidth   := 60
            END

             WITH OBJECT  oBrw:aCols[6]
                :nEditType := EDIT_BUTTON
                :bEditBlock := { | nRow, nCol, oCol, nKey | LookGruppo( nRow, nCol, oCol, nKey ) }
                :nWidth   := 60
             END

             WITH OBJECT  oBrw:aCols[7]
                :nEditType := EDIT_LISTBOX
                :aEditListTxt:={" ","A","B","C","D","E","F","G","H","I"}
                :nWidth   := 60
             END

              WITH OBJECT  oBrw:aCols[8]
                :nEditType := EDIT_LISTBOX
                :aEditListTxt:={"","11","12","13","14","15","16",;
                                   "21","22","23","24","25","26",;
                                   "31","32","33","34","35","36",;
                                   "41","42","43","44","45","46",;
                                   "51","52","53","54","55","56",;
                                   "61","62","63","64","65","66"   }
                :nWidth   := 60
             END
             WITH OBJECT  oBrw:aCols[9]
                :nEditType := EDIT_LISTBOX
                :aEditListTxt:={" ","*"}
                :nWidth   := 60
             END


            :lFastEdit = .T.
            :lHscroll:=.F.
            :lVscroll:=.T.
            :lRecordSelector     := .F.
            :nRowDividerStyle := LINESTYLE_LIGHTGRAY
            :nColDividerStyle := LINESTYLE_LIGHTGRAY
            :nStretchCol  := -1 // STRETCHCOL_LAST
      END