aferra

Dê uma olhada em ..\FWH\samples\BlockChain.prg, talvez goste dessa opção.

Bom dia.
Veja em samples gradbrus.prg

Gostei. 

isso eu mudei, como não iria mais usar o xharbour passei para HB_ISCHAR, HB_ISARRAY, onde dá erro das funções próprias eu acrescento o hb_ tem um .ch que deixa compatível, mas não encontrei o nome para te passar.

Bindinda. rsrsrsrsrsrs eu já compilo e foi a única coisa que alterei.

Acho que seria só mudar os caminhos desses arquivos.
ilink32.cfg e bcc32.cfg, devem estar com o nome da pasta onde estão salvos.
exemplo:
-Ld:\bcc74\lib;d:\bcc74\lib\psdk

se for unidade c

-Lc:\bcc74\lib;c:\bcc74\lib\psdk

Bem vindo.

Utilize assim

oBrw:bChange :=<||
If Valtype(aArray[oBrw:nArrayAt,1]) $ "C|N|"
     oBrw:aCols[1]:nEditType := EDIT_GET
Else
     oBrw:aCols[1]:nEditType := EDIT_LISTBOX
     oBrw:aCols[1]:aEditListBound := ;
     oBrw:aCols[1]:aEditListTxt   := aArray[oBrw:nArrayAt,2] // <- assumindo que a 2ª seja um array
Endif
oBrw:Refresh()
>
 

https://datebest.net - visit link to find love or quick sex, visit link!

https://datebest.net - visit link to find love or quick sex, visit link!

Verifpro.net - paypal, ebay, stripe, banks, crypto, docs and more!
Follow channel https://t.me/Verifpro_accounts to get more info

Rapazes... o Sr. Vailton já deu a dica correta. CT.LIB para xharbour e HBCT.LIB para habour.
Essa lib vem na xharbour 123 a build eu não sei mas tem um bom tempo + 5 anos.
no Harbour vem da 3.0+

de onde vc está copiando? será que não tem algum caractere, tipo ENTER, no meio?

eu pesquiso por aqui,
fivewin_class_fwmariarowset [FiveTech Software]
quanto ao acento. não sou experte em sql. mas acredito que possa ser o Character set e collation, agora não sei dizer qual utilizar.

Utilizando a classe nativa seria isso
oQry:Requery( { <sua query>} )
oBrw:SetMySql(oQry)

Está com cara de ser os caminhos dentro dos arquivo .cfg altere para os nomes de sua pasta. aqui uso em d:\
ilink32.cfg
-Ld:\bcc74\lib;d:\bcc74\lib\psdk
bcc32.cfg
-Id:\bcc74\include\windows\crtl;d:\bcc74\include\windows\sdk;d:\bcc74\include\dinkumware

23 horas atrás, kapiaba disse:

Perfeito meu Bolsonarista predileto. Único Bozolino que eu gosto. kkkkkkkkkkkkkk, Funciona dos dois modos. Muito obrigado. Forte abraço.

Benhêêêê. já lhe disse. sou eleitor. sou e-lei-tor. kkkkkkkkkkkkkkkkkkk

Boa tarde...

bom vc pode incluir a hbcompat.ch ou usar essa função HB_REGEXLIKE( (<exp2>), (<exp1>) )

IF ( HB_REGEXLIKE( ALLTRIM( LOWER( cEMAILNOCONTA ) ), cRegEx )  )

Abra o pellesc e verifique se no Properties do button o type está Pushbutton e o tabstop yes

é na mesma maquina?

qual o windows? se for maquina diferente pode ser segurança do windows.

pelo que estou entendendo é que vc não está salvando, assim que pega o certificado, no arquivo .ini. ou não tem acesso para salvar no arquivo .ini.

Boa tarde.
Procure na classe vonfeutil2g.prg, mas, senão me engano, é salvo na pasta c:\windows

Bom, me parece que é o ponto e o traço.

Acho que todas as colunas deveriam ser assim 

o_produto:<nome_campo>
(((o_produto:vlmmaster/o_produto:vlCusto)-1)*100)

Olá, se vc já tem o meter basta colocar assim que vai dar certo
 

bProgress := {|| oMeter:Set( nMeter += 20 ),SysRefresh() }

BackUp( , , bProgress )

Veja se assim resolve.

oDlg_BUSCA:bPainted := {||  ImagemFundo(oDlg_BUSCA) }

ou 

Active ....  ON PAINT ImagemFundo( oDlg_BUSCA )

Static Function ImagemFundo( oDlg )
Local oImg

        oImg := TImage():Define(  "ACG_BUSCARACGINV", , oDlg )
        oDlg:SayBitmap( 0, 0, oImg, oDlg:nWidth(), oDlg:nHeight() )
 

Return(.T.)