PC Toledo

... uxtheme.dll
00007FFA74990000 00000000000B0000 C:\WINDOWS\System32\clbcatq.dll
00007FF9FEC70000 000000000013D000 C:\Program Files\Common Files\System\ado\msado15.dll
00007FFA50430000 000000000002B000 C:\WINDOWS\SYSTEM32\MSDART.DLL
00007FFA73630000 00000000000A3000 C:\WINDOWS\SYSTEM32\sxs.dll ...

Nessas horas, só chutando....
Domínio, assinatura do programa, arquivo manifest
Conforme coloquei no post sobre certificado, a segurança do windows é diferente pra programa local e programa carregado pela rede.
Também é diferente se o programa é marcado como vindo da internet.
Isso afeta um programa ...

Bom dia, Pessoal.

Quintas, onde acho esse ADS que permite usar comandos SQL nos DBFs? Lembro que li algo no seu tutorial de ADO mas tinha uma questão disso aí ser pago ou ser algo propretário, sei lá. Se falei besteira, me perdoe. Se isso founcionar mesmo com DBF pode ser uma mão na roda.

Amigo meu ...

... pagar.

A doação mínima é 50 dólares, se doar 100, 500, 1.000 dólares, não faz diferença, se houver uma nova versão serão mais 50 dólares.

Foi avisado que HMG 25.07 é paga, ok, tudo bem, 25.06 não era paga, não houve aviso nenhum, ou foi muito mal avisado.
Tenho hmg3, hmg extended, oohg, hwgui ...

... de escolher cor das barras do tbrowse
Tem recurso na gtwvg de redimensionar imagens nos buttons na GTWVG
Tem alguns controles a mais na GTWVG
Alterado gtwvg.hbc pra não incluir automaticamente os arquivos CH da gtwvg, pra não dar conflito
Criado gtwvg.ch, pra ser incluído em fonte que use gtwvg ...

... STATIC FUNCTION Ze_CreateMenu()

MenuOption( "Button", { |o| DemoButton( .F., o ) } )
MenuOption( "Browse" )
MenuDrop()
MenuOption( "1.Brw.ADO", { || Nil } )
MenuOption( "2.Brw.Array", { |o| DemoButton( .F., o ) } )
MenuOption( "3.Brw.DBF", { || Nil } )
MenuOption( "5.Brw.BMP", { |o ...

Teste adicional: mais níveis.
Usei copiar/colar no array



FUNCTION Ze_CreateMenu()

MenuOption( "Browse" )
MenuDrop()
MenuOption( "1.Brw.ADO", { || Nil } )
MenuOption( "2.Brw.Array", { || Nil } )
MenuOption( "3.Brw.DBF", { || Nil } )
MenuOption( "4.Brw.Array Edit", { || Nil } )
MenuOption ...

... array

? [END POPUP]

ELSE

? [MENUITEM "] + aItem[1] + [" ACTION { || codeblock que não dá pra traduzir }]

ENDIF
NEXT

RETURN Nil


resultado



BEGIN MAIN MENU OF xDlg
DEFINE POPUP "Browse"
MENUITEM "1.Brw.ADO" ACTION { || codeblock que não dá pra traduzir }
MENUITEM "2.Brw.Array" ACTION ...

... 3] // se é opção sem nível, tem ACTION
ENDIF
NEXT
RETURN Nil


Acho que agora sim



BEGINMENU
MENU ITEM "Browse"
BEGINMENU
MENUITEM "1.Brw.ADO" ACTION { || codeblock que não dá pra traduzir }
MENUITEM "2.Brw.Array" ACTION { || codeblock que não dá pra traduzir }
MENUITEM "3.Brw.DBF" ACTION ...

... o que fiz pra hwgui

STATIC aMenuOptions := {}, nMenuLevel := 0

FUNCTION CreateMenu()

MenuOption( "Browse" )
MenuDrop()
MenuOption( "1.Brw.ADO", { || Nil } )
MenuOption( "2.Brw.Array", { || Nil } )
MenuOption( "3.Brw.DBF", { || Nil } )
MenuOption( "4.Brw.Array Edit", { || Nil ...

Boa Tarde José.

Sim, existem algumas situações específicas em que o LAST_INSERT_ID() pode retornar um valor inesperado ou "errado", mesmo que o comportamento da aplicação aparentemente não tenha mudado.

O LAST_INSERT_ID() é específico por conexão. Se, por algum motivo, duas operações de inserção ...

demoall.prg ? group samples
demobrowsedbf.prg Y ? ? browse dbf
demobrowseado.prg N N ADO Browse (TNX Itamar M. Lins Jr.). For multi platform use BROWSE.
democheckbox.prg Y Checkboxes and tabs
democombobox.prg Y Combobox
demodbfdata.prg Database to insert/delete/edit/navigate
demodlgbox.prg Y ...

... as variáveis direitinho....
Tive que usar um truque aqui, fazer o que....

cria a lista

MenuOption( "Browse" )
MenuDrop()
MenuOption( "1.Browse ADO", { |o| DemoBrowseADO( .F., o ) } )
MenuOption( "2.Browse Array", { |o| DemoBrowseArray( .F., o ) } )
MenuOption( "3.Browse DBF", { |o ...

Tá começando a ficar com visual melhor.
E a lista já ultrapassou o limite da tela, e isso porque tem sub-tabs, com mais de um exemplo.
Por exemplo, browse tem DBF, Array, e ADO.

... PAGE OF oTab2

BEGIN PAGE "browse dbf" ;
OF oTab2

DemoBrowseDBF( .F., oTab2 )

END PAGE OF oTab2

#ifdef __PLATFORM__WINDOWS
BEGIN PAGE "browseado" ;
OF oTab2

DemoBrowseADO( .F., oTab2 )

END PAGE OF oTab2
#endif

END PAGE OF oTab


browse.png

O resultado é a tabpage browse, com a tab ...