FiveTech Software tech support forums

... hdir%\bin\win\bcc32c\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log


if errorlevel 1 goto COMPILEERRORS
@type comp.log
@type warnings.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include -I%fwh%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc ...

MaxP wrote: Fri Feb 14, 2025 10:11 am Hi Silvio,

if MARRIED field is logical type

Code: Select all | Expand

cFilter:= "MARRIED=.T."

Massimo

Sorry I found the solution tonight

Hi Silvio,

if MARRIED field is logical type
Massimo

... POST, .T. )
curl_easy_setopt( ::hCurl, HB_CURLOPT_URL, ::cUrl + "/" + ::cModel + ":generateContent?key=" + ::cKey )

aHeaders := { "Content-Type: application/json" }

curl_easy_setopt( ::hCurl, HB_CURLOPT_HTTPHEADER, aHeaders )
curl_easy_setopt( ::hCurl, HB_CURLOPT_USERNAME, "" )
curl_easy ...

... cTxt )
NEXT
aStatic[ GRAF_TXT_BAR ] := Chr(30) + aStatic[ GRAF_TXT_BAR ]
ENDIF
mSetDevice := Set( _SET_DEVICE, "SCREEN" )
DO CASE
CASE ValType( xContNow ) == "C"
cTexto := xContNow
aStatic[ GRAF_SEC_INI ] := Int( Seconds() )
CASE xContTotal == NIL
nPercent := xContNow
CASE xContNow ...

... middle messages for 1-shot prompting
def get_gsm8k_questions(split = "train") -> Dataset:
data = load_dataset('openai/gsm8k', 'main')[split] # type: ignore
data = data.map(lambda x: { # type: ignore
'prompt': [
{'role': 'system', 'content': SYSTEM_PROMPT},
{'role': 'user', 'content': x ...

... 0)
return rewards

# our model we are going to use as policy
model_config = ModelConfig(
model_name_or_path="Qwen/Qwen2.5-3B-Instruct",
torch_dtype="bfloat16",
attn_implementation="flash_attention_2",
use_peft=True,
load_in_4bit=True
)

device = torch.device("cuda" if torch.cuda.is_available ...

Hi,

There is an object of type TXBrowse. I need to hide/show its vertical scroll while working. How can I do this ?

How can I create and edit with xbrowse multi dimensional array of the type

{"Campo1",.t.,1,"nomedbf",{"test1","test2","test3"} ,0}

I wish add/edit only the subarray {"test1","test2","test3"}


but an init I have {"Campo1",.t.,1,"nomedbf",{} ,0}

and I wish edit only the sub array {} 5 field of main ...

In many cases, the function works well even without specifying the type in the 2nd parameter

Sample:
function TestStr2Val()

local aStr := { "34512.01", "1,234.56", "3.456,34", "12.5%", "true", "FALSO", ;
"10/20/2020", "25-02-1998", "10 jan 2010", "feb 15, 78" }

SET DATE ITALIAN
SET CENTURY ON ...

... curl_easy_setopt( ::hCurl, HB_CURLOPT_POST, .T. )
curl_easy_setopt( ::hCurl, HB_CURLOPT_URL, ::cUrl )

aHeaders := { "Content-Type: application/json" }

curl_easy_setopt( ::hCurl, HB_CURLOPT_HTTPHEADER, aHeaders )
curl_easy_setopt( ::hCurl, HB_CURLOPT_USERNAME, '' )
curl_easy ...

... cName3 := "3 "
local cName4 := "4 "
local cName5 := "5 "
local cName6 := "54321 "
local cName7 := "567890 "
local lRESERVE := .F.
local cPROV_TYPE:= SPACE(20)
local cPHONE := SPACE(18)
local dCERT_DATE:= CTOD(' / / ')
local nPROC_DAYS:= 9876
local cTEXT := "Use Tab or Shift Tab to move to ...

... having the same <cIndexName>.
<xIndexValue>
This is the index value to be added to the index for the current record. It must be of the same data type as the value returned by the index expression. If omitted, <xIndexValue> is obtained by evaluating the index expression with the data of the current ...

... ResetBrowse() is a more general reset, while ResetData() specifically handles switching data sources.

Analogy: These methods are like choosing the type of fuel and engine for your car (TXBrowse). You choose one (RDD, Array, etc.) to power the data display. ResetData is like changing the engine ...

... based on margins and padding (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

164. Resize( nSizeType, nWidth, nHeight )

Description: Resizes the browse control to the specified dimensions or using predefined size types.

Parameters:

nSizeType ...