PC Toledo

Desculpe a demora. mas resolvi usando a hbwin

#include <hmg.ch>
#include "hbwin.ch"

FuncTion Main()

SET DECIMALS TO 3

Load Window Main
Main.Center
Main.Activate

Return
********************************************************************************
Function Le()

LOCAL cString:=Chr( 5 ...

Ok Asimoes, muito obrigado, vou testar aqui e ja dou um retorno.

Boa noite a todos.

Estou tentando tentando fazer a leitura de peso de uma balança Elgin DP-3000 plus, mas sem sucesso, tem os exemplos em vb e delphi mas não consegui converte-los.

#include <hmg.ch>
#include "hbdyn.ch"

Function Main

Load Window Main
Main.Center
Main.Activate

Return ...

Nos inicio eu ja compilei a lib mysql, mas agora não me lembro como, eu uso a HMG do Roberto Lopez, não preciso gerar nada, simplesmente instalo a hmg e copio a libmariadb.dll (renomeio para libmysql.dll) para o diretório da aplicação criada.

Vc gerou esta lib do mysql? se sim vc talvez tenha que gerear com os do mariadb.

De uma olhada nestes anexos.

Tem como conectar, tem inserts,updates,delete e selects em mysql ou mariadb, use dll do mariadb que é lgpl, nao tem licensa dupla como a dll do mysql.

Poste o trecho do código onde não está dando certo.

Vou testar aqui, e já posto o resultado.

Obrigado pela ajuda.

Bom dia Paulo, se eu entendi deve ser isso que vc quer.

if cAlterar = .t.

i := cliente.grid_cliente.Value

if i = 0
Return
endif

dbselectarea("ibge")
ordsetfocus("cidade")
go top
seek alltrim(cliente.txt_cidade.Value)
if found()
cliente.txt_ibge.Value := ibge->codigo
else
MsgBox ...

Boa noite a todos, tenho uma simples duvida com relação a pesquisa em array. Verificar se um código existe, se não existir, uso ele.

Com dbf faço assim:

bus := 0
DO WHILE .T.
bus++
SELECT CLI
GO TOP
SEEK STRZERO(bus,4,0)
IF .NOT. FOUND()
EXIT
ENDIF
ENDDO


Mas preciso fazer isto em ...

Foi uma pergunta para aproveitar o tópico, mas obrigado pela ajuda de todos.

Show de bola, deu certo, mas se estiver usando somentes icone nos botoes, com o caption em branco.

Boa noite a todos, estou precisando vincular uma tecla a um botão, vi que com ON KEY posso fazer isso, mas não me permite que seja usada somente as teclas de A a Z. No clipper fazia assim KEYBOARD "I" + CHR(27).

Quero eliminar o uso do mouse o maximo possivel na tela de vendas.

Estou usado HMG 3.0 ...

Boa noite, consegui com pesquisa aqui no forum utilizar com sucesso a TipClientHttp().

Function ver_update

local oHttp, oExe, oEmpresa, oExecutavel, oUrl, oTamanho, oProgress

use mat shared alias mat
go top

oEmpresa:= alltrim(mat->update)
oExecutavel:= alltrim(mat->executavel)

close ...

Lanca o itens no tbrowse quando fechar a venda joga tudo num dbf.

Agora vou ter que aprender como se deleta um item, como se altera um item, ja estou fazendo testes, mas vi que sempre que adiciono algo na array do tbrowse tenho que dar um oMybrowser:refreshAll(), diferentemente do dbedit que não ...