FiveTech Support Forums

Application
===========
   Path and name: C:\Work\Errori\mezzi\test.Exe (32 bits)
   Size: 3,538,944 bytes
   Compiler version: Harbour 3.2.0dev (r1406271520)
   FiveWin  version: FWH 17.02
   C compiler version: Borland C++ 5.8.2 (32-bit)
   Windows version: 6.1, Build 7600 

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 09/16/17, 10:07:53
   Error description: Error BASE/2022  Argument error: ALLTRIM
   Args:
     [   1] = A   { ... } length: 1

Stack Calls
===========
   Called from:  => ALLTRIM( 0 )
   Called from: .\source\classes\COMBOBOX.PRG => (b)TCOMBOBOX_DEFAULT( 904 )
   Called from:  => ASCAN( 0 )
   Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:DEFAULT( 904 )
   Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:INITIATE( 829 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 259 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 647 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 898 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: test.prg => TEST( 47 )

#include "FiveWin.ch"
#include "constant.ch"


REQUEST DBFCDX
REQUEST DBFFPT
EXTERNAL ORDKEYNO,ORDKEYCOUNT,ORDCREATE,ORDKEYGOTO



Function test()

Local oDlg
  local aMezzi:={}
   Local nBottom   := 43
   Local nRight    := 86
   Local nRow:= 10
   Local nCol := 10
   Local nCol2:= 104
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H

    Local oFont
    Local oFontTablet
    LOCAL cRfauto
    Local aGet[1]

    RddSetDefault( "DBFCDX" )

  createDbf()

USE MEZZI ALIAS ME

     SELECT ME
    ME->(DbGoTop())
      Do while ! Me->(eof())
        AaDd(aMezzi,{ME->MENOMBRE}) //+" con targa "+ME->METARGA
        Me->(dbskip())
     Enddo
     DbCloseAll()





 DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, 8
 DEFINE FONT oFontTablet NAME "TAHOMA" SIZE 0,-25

 DEFINE DIALOG oDlg        ;
   TITLE "W"     ;
   SIZE nWidth, nHeight  PIXEL               ;
   FONT oFont      STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION,  4 )

 @ nRow, nCol SAY "Automezzo :" OF oDlg SIZE 75, 18 PIXEL FONT oFontTablet
 @  nRow-2, nCol2 COMBOBOX aGet[1] VAR cRfauto ITEMS aMezzi  SIZE 200, 460 OF oDlg PIXEL HEIGHTGET 50 FONT oFontTablet

 ACTIVATE DIALOG oDlg

 return nil

Function createDbf()
   Local cDir:= ""
    DbCreate(cDir+'ME', {    { "MENUMERO"  , "C",     2,    0 },;
                              { "MENOMBRE"  , "C",     40,    0 },;
                              { "METARGA"   , "C",     10,    0 } } , 'DBFCDX')

       close all
      use &(cDir+'ME') new
      select ME
      if FILE(cDir+'MEZZI.DBF')
         delete file &(cdir+'MEZZI.cdx')
         append from &(cdir+'MEZZI')
         dbcommitall()
         close all
         delete file &(cdir+'MEZZI.dbf')
      endif
      close all
      rename &(cdir+'ME.dbf') to &(cdir+'MEZZI.dbf')
       DbCloseAll()
    return nil