FiveTech Software tech support forums

... Two"
ENDMENU

return oPop


Function test(oPop,oBtn)
local n
Msginfo("change")

for n=1 to len(oPop:aItems)
oPop:aItems[n]:SetCheck(.f.)
next n

oBtn:refresh()

return nil







and I wish checked a item of this menu How I must make ?

it not found aItems

If I make oPop:aItems[2 ...

... nBar,oBar,oDlg) // ,aBtnBar

local aBtnBar
local x

if Valtype( oBar ) = "O"
For x := Len( oBar:aControls ) to 1 step - 1
oBar:Del( x )
Next x
endif

Do case
case nbar = 0
DEFINE BUTTONBAR oBar OF oDlg SIZE 80,70 TOP NOBORDER 2015

case nbar = 1
aBtnBar := array(6)
DEFINE BUTTON ...

Lailton wrote: Tue Feb 11, 2025 4:30 am Hi Maurizio,

We will provide support for the oAuth2 on the next version FWH
with samples to send e-mail using GMail/Outlook(Office365).

Outlook 2010 too?

I wainting until the next release came
TIA

Hi Maurizio,

We will provide support for the oAuth2 on the next version FWH
with samples to send e-mail using GMail/Outlook(Office365).

... Str( nCont, 3 ) ) + "0%" + Chr(30)
aStatic[ GRAF_TXT_BAR ] := Stuff( aStatic[ GRAF_TXT_BAR ], ( nPos - Len( cTxt ) ) + 1, Len( cTxt ), cTxt )
NEXT
aStatic[ GRAF_TXT_BAR ] := Chr(30) + aStatic[ GRAF_TXT_BAR ]
ENDIF
mSetDevice := Set( _SET_DEVICE, "SCREEN" )
DO CASE
CASE ValType( xContNow ...

Excellent, we look forward to the next release
TIA

... CASE cType == 'D'
cFilter += oCol:cExpr + " = " + ( uVal )
OTHERWISE
cFilter += oCol:cExpr + " == " + cValToChar( uVal )
ENDCASE
ENDIF
NEXT
IF Empty( cFilter )
IF ! Empty( dbFilter() )
dbClearFilter()
oBrw:Refresh()
ENDIF
ELSE

IF !( dbFilter() == cFilter )
oClp:SetText(cFilter ...

... n]:nClrBorder := DLG_nColorBtnB
oBtnSel[n]:oCursor:= oCursorBtn
oBtnSel[n]:nClrFocusRect := DLG_nColorBar2
oBtnSel[n]:nDeepFocusRect := 0
next

ACTIVATE DIALOG oDlg CENTERED


RETURN NIL

function validaEmail(cEmail) //Nageswarao
static preCompiled
DEFAULT preCompiled := hb_regexComp ...

Please wait for the next release.

... id"
for each v in { "Manzana", "Pera", "Naranja", "Mandarina", "Mango", "Banana", "Papaya", "Grape", "Guva", "Durian" }
oRs:AddNew( "fruit", v )
next

return oRs

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

function InsertFruits( oRs, aFruits )

local oCn ...

... and business processes.
The advantage here is that I use HTML to store the documents. This allows me to make the information immediately available via a web browser without needing to change the format.
Next step: Integration of full-text search.

https://winhotel-sandbox.com/docs/docuware.gif

... oRs:Sort := "id"
for each v in { "Manzana", "Pera", "Naranja", "Mandarina", "Mango", "Banana", "Papaya", "Grape" }
oRs:AddNew( "fruit", v )
next

return oRs

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

function InsertFruit( oRs )

local nSave := oRs ...

... TO LEN(aVentanasMdi)
IF aVentanasMdi[i]==Self:cCaption
MENUITEM aVentanasMdi[i] OF oMenu CHECKED
ELSE
MENUITEM aVentanasMdi[i] OF oMenu
ENDIF
NEXT I
ENDMENU

FOR I=1 TO LEN(aVentanasMdi)
oMenu:aItems[i]:bAction := HazBlock(i)
NEXT I

oMenu:Activate( nRowMenu,nColMenu, Self , .f. )

RETURN(NIL ...

... TO LEN(aVentanasMdi)
IF aVentanasMdi[i]==Self:cCaption
MENUITEM aVentanasMdi[i] OF oMenu CHECKED
ELSE
MENUITEM aVentanasMdi[i] OF oMenu
ENDIF
NEXT I
ENDMENU

FOR I=1 TO LEN(aVentanasMdi)
oMenu:aItems[i]:bAction := HazBlock(i)
NEXT I

oMenu:Activate( nRowMenu,nColMenu, Self , .f. )

RETURN(NIL ...