HwGUI - Error BASE/1004 No exported method: LEDITABLE

[alxsts]

Olá!

Alguém sabe o que causa este erro?

Código: Selecionar todos

Error BASE/1004  No exported method: LEDITABLE
Called from ->LEDITABLE(0)
Called from source\winapi\hbrowse.prg->HBROWSE:REBUILD(644)
Called from source\winapi\hbrowse.prg->HBROWSE:PAINT(721)
Called from source\winapi\hbrowse.prg->HBROWSE:ONEVENT(333)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from source\winapi\hdialog.prg->HDIALOG:ACTIVATE(177)
Called from frmtools.prg->NCMIMPORT(113)
Called from frmtools.prg->(b)MAIN(26)
Called from source\winapi\hwindow.prg->ONCOMMAND(660)
Called from source\winapi\hwindow.prg->(b)HMAINWINDOW(317)
Called from source\winapi\hwindow.prg->HMAINWINDOW:ONEVENT(423)
Called from ->HWG_ACTIVATEMAINWINDOW(0)
Called from source\winapi\hwindow.prg->HMAINWINDOW:ACTIVATE(412)
Called from frmtools.prg->MAIN(37)

HWGUI 2.23 Build 2
Date:01/04/2022
Time:10:23:37

Usando HwGUI HWGui-2.23-b1

Código: Selecionar todos

         cInFile  := Alltrim( :edtOrigem:getText() )
         cTmpFile := "NCMALX.DBF"  // hwg_CreateTempfileName( "NCM",".DBF" )

         aStruct := { { "NCM",       "C",  8, 0 }, ;
                      { "dtInicio",  "C", 10, 0 }, ;
                      { "dtFinal",   "C", 10, 0 }, ;
                      { "cdUnidade", "C",  6, 0 }, ;
                      { "dsUnidade", "C", 30, 0 }  ;
                    }
      
         DbCreate( "NCMALX", aStruct )   // DbCreate( cTmpFile, aStruct )
      
         USE NCMALX EXCLUSIVE NEW Alias INFile
         APPEND FROM ( cInFile ) DELIMITED

         // As duas primeiras linhas são de Cabeçalho. Delete...
         INFile->( dbGoTop(), DbGoTo( 1 ), DbDelete(), DbGoTo( 2 ), DbDelete(), DbGoTop() )
         //METHOD New( cHeading, block, type, length, dec, lEditable, nJusHead, nJusLin, cPict, bValid, bWhen, aItem, bColorBlock, bHeadClick )
         :brwImportados:aColumns := { "NCM", "Início de vigência", "Fim de vigência", "Unidade Abreviada", "Descrição da Unidade" }
         //:brwImportados:AddColumn( HColumn():New( "ncm" ,                 FieldBlock( "ncm"),      "C", 8 , 0 ,        .F.,  DT_CENTER, DT_CENTER, "@!",,,,,,,,, ) )
         //:brwImportados:AddColumn( HColumn():New( "Início Vigência" ,     FieldBlock( "dtInicio"), "C", 10 , 0 ,  .F.,  DT_CENTER, DT_CENTER, "@!",,,,,,,,, ) )
         //:brwImportados:AddColumn( HColumn():New( "Fim Vigência",         FieldBlock( "dtFinal"),  "C", 10 , 0 , .F.,  DT_CENTER, DT_CENTER, "@!",,,,,,,,, ) )
         //:brwImportados:AddColumn( HColumn():New( "Unidade Abrev",        FieldBlock( "cdUnidade"),"C",  6 , 0 , .F.,  DT_LEFT  , DT_LEFT  , "@!",,,,,,,,, ) )
         //:brwImportados:AddColumn( HColumn():New( "Descrição da Unidade", FieldBlock( "dsUnidade"),"C", 30 , 0 , .F.,  DT_LEFT  , DT_LEFT  , "@!",,,,,,,,, ) )

         :brwImportados:Alias := "INFile"

         Add Column FieldBlock("ncm") to :brwImportados ;
         Header "NCM" Length 10

[alxsts]

Olá!

Era uma sujeira deixada pelo designer, que configurou o browse como ARRAY e depois alterei para DATABASE.