FiveTech Software tech support forums

... Gn -aa -Tpe -s @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
rem signtool.exe sign /fd sha256 %1.exe
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
@type warnings.log
ECHO * Compile errors *
GOTO EXIT

:LINKERROR
ECHO ...

... piv partita_iva FROM ute WHERE rag like '%MAX%'"
/opt/mssql-tools18/bin/sqlcmd -S $cServer -U $cUser -P $cPass -d BEG_DATI -p -Q "$cQuery" -C
exit 0


This code made on harbour on the same machine gives ERROR BASE/0 Parameter error: SQLCONNECT


#require "hbodbc ...

Resolved

The problem was that the calculation of the difference between the time of entry and exit was done inside the loop, and therefore it was added multiple times in the case in which multiple "Entrance" and "Exit" records were present for the same user.

Moving the calculation of nTotalTime out ...

... Do While !oUtenti:Eof()
If AllTrim(oUtenti:UserName) == AllTrim(cUser)
cStatus := AllTrim(oUtenti:Status)
dAccessDate := oUtenti:Fecha
Exit
EndIf
oUtenti:Skip()
EndDo

// Se l'utente è ancora connesso, restituisci "Attualmente connesso"
IF cStatus == "Ã"
oUtenti:Close()
Select ...

... atoi" importa el s¡mbolo "libucrt.lib(atox.obj)" definido en "hbrdd.lib(wafunc.obj)" en la funci¢n "hb_rddGetTempAlias"
LINK : warning LNK4217: "exit" importa el s¡mbolo "libucrt.lib(exit.obj)" definido en "hbrtl.lib(errint.obj)" en la funci¢n "hb_errInternal"
LINK : warning LNK4217: "fclose ...

... BldDlg1())
MENUITEM "Item &2" ACTION MsgInfo("Test Menu Item2")
MENUITEM "Item &3" ACTION MsgInfo("Test Menu Item3")
SEPARATOR
MENUITEM "Exit" ACTION oWnd:End()
ENDMENU
ENDMENU
return oMenu

//----------------------------------------------------------------------------//

function ...

... floppy.bmp" ;
FLAT SIZE 20, 14 PIXEL OF oDlg NOBORDER ;
ACTION SET_COLOR( oMemo, nColor )

@ 300, 150 BTNBMP oBtnCan FILENAME "..\bitmaps\16x16\Exit.bmp" ;
FLAT SIZE 20, 14 PIXEL OF oDlg NOBORDER ;
ACTION( oDlg:End() )

oBtnCan:lCancel := .T.

ACTIVATE DIALOG oDlg CENTERED ON INIT oMemo ...

... FUNCTION RLOK
if rlock()
RETURN ""
endif
DO WHILE .T.
if rlock()
exit
else
MsgInfo("Infobox","Datensatz gesperrt!")
endif
INKEY(.01)
ENDDO
RETURN ""

FUNCTION FLOK
if flock()
RETURN ""
endif
DO WHILE .T.
if ...

... FazBrowseSkip( nSkip )

LOCAL nSkipped := 0

IF Empty( nSkip )
RETURN 0
ENDIF
IF nSkip > 0
DO WHILE nSkipped < nSkip
SKIP
IF Eof()
SKIP -1
EXIT
ENDIF
nSkipped++
ENDDO
ELSE
DO WHILE nSkipped > nSkip
SKIP -1
IF Bof()
SKIP
EXIT
ENDIF
nSkipped--
ENDDO
ENDIF

RETURN nSkipped

... Length", "Decs" ACTION { | oI | MyAction( oI ) }
//LEFTWIDTH if( lSys, 24, 1 ) ;
//LOGOMENU "..\bitmaps\fivetechv.png" ;
ENDMENU
MENUITEM "EXIT" ACTION oWnd:End() WHEN ( !lPopup .and. !lSys )
if lPopup
ENDMENU
if nC < oWnd:nRight - 400
ACTIVATE MENU oMenu AT nR, nC OF oWnd // Limit zone ...

... bitmaps\16x16\Help.bmp" FLAT ;
ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!"

DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
ACTION( oWnd:End(), LIBERA_TUDO() ) TOOLTIP "Exit this app" GROUP

DEFINE MESSAGE OF oWnd ;
PROMPT FWVERSION + " " + FWCOPYRIGHT ...

... bitmaps\16x16\Help.bmp" FLAT ;
ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!"

DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
ACTION oWnd:End() TOOLTIP "Exit this app" GROUP

DEFINE MESSAGE OF oWnd ;
PROMPT FWVERSION + " " + FWCOPYRIGHT ;
NOINSET CENTERED ...

Hi Marc,

Thank you.
This is what I needed: "Seek the ID in the dbf. If found, start a second loop as long as the ID = OLDID and change the data. Exit the second loop and process the CSV for next values"

It was the second loop that I was missing. This should run much much faster

... sid=e8fd5a67b9626e28fc1ce4a7da0eb769#p276253

For each token you can do the check with the DBF (indexed) and update if needed.

Seek the ID in the dbf. If found, start a second loop as long as the ID = OLDID and change the data. Exit the second loop and process the CSV for next values

Can it help ?

... 0,0 TO 12,34 TITLE "Test Program"
@ 20, 20 SAY "ENTER" OF oWnd PIXEL
@ 60, 20 GET oName VAR cName OF oWnd PIXEL SIZE 200,30
@ 100, 80 BUTTON "EXIT" OF oWnd PIXEL SIZE 70,30 ACTION oWnd:End()
SET FONT OF oWnd TO oFont0
ACTIVATE WINDOW oWnd ON INIT VarSet()
CLOSE ALL
CLEAR ALL
QUIT
return ...