marcelosantos escreveu:parece que ignora os espações entre as palavras.
Código: Selecionar todos
#include "hmg.ch"
Function Cadcli
AbreTabelas()
DEFINE WINDOW FrmClientes;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 600 ;
TITLE 'Cadastro de Clientes' ;
modal;
on init atualiza();
DEFINE TAB Tab_1 AT 40 , 30 WIDTH 730 HEIGHT 460 VALUE 1 FONT "Arial" SIZE 9 TOOLTIP "Cadastro de Clientes" ON CHANGE Nil
PAGE "Clientes"
@ 070,180 Label LblNome Value "Nome"
@ 070,230 TEXTBOX TXTNOME WIDTH 413 MAXLENGTH 50
END PAGE
PAGE "Page 2"
END PAGE
END TAB
END WINDOW
ACTIVATE WINDOW FrmClientes
Return
procedure AbreTabelas
SELECT 1
USE C:\PRG\NFEWIN\DADOS\CLIENTES.DBF shared
index on codigo tag codigo to C:\PRG\NFEWIN\DADOS\CLIENTES.CDX
index on nome tag nome to C:\PRG\NFEWIN\DADOS\CLIENTES.CDX
index on endereco tag endederco to C:\PRG\NFEWIN\DADOS\CLIENTES.CDX
set index to C:\PRG\NFEWIN\DADOS\CLIENTES.CDX
set order to tag codigo
dbgotop()
return
procedure atualiza()
FrmClientes.TxtNome.Value :=clientes->nome
return
Código: Selecionar todos
@ 070,230 TEXTBOX TXTNOME WIDTH 413 MAXLENGTH 50 FONT "Courier New" SIZE 10Código: Selecionar todos
procedure atualiza()
clientes->( DbSkip( 5 ) )
FrmClientes.TxtNome.Value := If( clientes->( Eof() ), "Fim de arquivo", clientes->nome )
returnToledo, eu estava testando o dbf, sei que tem que tratar a abertura dos arquivos e índices.Toledo escreveu:Não sei se isto é um teste apenas mas, não é normal criar índices a cada vez que se abre uma tabela. Você deve ter uma rotina específica para isso
Realmente alxts não tem nada estranho, o conteúdo do campo esta correto, é um campo que armazena o município.por exemplo: São Paulo, Rio de Janeiro, Espirito Santo, Santana de parnaiba.alxsts escreveu:Olá!
Tive a mesma impressão do Toledo. Não vi nada estranho no código. É feito um DbGoTop() e o nome do primeiro registro (clientes->nome) é exibido.
Tem certeza que o conteúdo do campo está correto? Experimente este código na tua função atualiza:
Tenho certeza Toledo, eu criei o dbf e cadastrei alguns endereços para testar o form de cadastro, também acho estranho.Toledo escreveu:Marcelo, você tem certeza que tem os espaços no campo do DBF? Pois no seu código não tem nada que retira estes espaços!
finalmente mudei a fonte e deu certo .Toledo escreveu:Marcelo, você tem certeza que tem os espaços no campo do DBF? Pois no seu código não tem nada que retira estes espaços!
Tente o seguinte:
Expandir visualizacaoVer codigo
1@ 070,230 TEXTBOX TXTNOME WIDTH 413 MAXLENGTH 50 FONT "Courier New" SIZE 10
Marcelo, atualize a versão do seu HMG. Hoje estamos na versão 3.1.5 e está mais estável. Ainda não consegui ler bem o seu problema. MAs ter a ultima versão geralmente é o mais indicado.marcelosantos escreveu:Estou usando a HMG 3.1.4
Pablo, saudações.Pablo César escreveu:Marcelo, atualize a versão do seu HMG. Hoje estamos na versão 3.1.5 e está mais estável. Ainda não consegui ler bem o seu problema. MAs ter a ultima versão geralmente é o mais indicado.
|  ANSI Only  |     |  ANSI / UNICODE  |
|---|---|---|
|  LEN()  |  ->  |  HMG_LEN()  |
|  LOWER()  |  ->  |  HMG_LOWER()  |
|  UPPER()  |  ->  |  HMG_UPPER()  |
|  PADC()  |  ->  |  HMG_PADC()  |
|  PADL()  |  ->  |  HMG_PADL()  |
|  PADR()  |  ->  |  HMG_PADR()  |
|  ISALPHA()  |  ->  |  HMG_ISALPHA()  |
|  ISDIGIT()  |  ->  |  HMG_ISDIGIT()  |
|  ISLOWER()  |  ->  |  HMG_ISLOWER()  |
|  ISUPPER()  |  ->  |  HMG_ISUPPER()  |
|  RETURN (ISALPHA(c) .OR. ISDIGIT(c))  |  ->  |  HMG_ISALPHANUMERIC()  |
|  ANSI Only  |     |  ANSI / UNICODE  |
|---|---|---|
|  SUBSTR()  |  ->  |  HB_USUBSTR()  |
|  LEFT()  |  ->  |  HB_ULEFT()  |
|  RIGHT()  |  ->  |  HB_URIGHT()  |
|  AT()  |  ->  |  HB_UAT()  |
|  RAT()  |  ->  |  HB_UTF8RAT()  |
|  STUFF()  |  ->  |  HB_UTF8STUFF()  |
Eu estou usando a versão ANSI da HMG 3.1.4Pablo César escreveu:Oi Marcelo,
Você poderia postar, como você está atribuindo o valor do campo ao TextBox ?
Estas funções devem ser substituídas na versão UNICODE:
Código: Selecionar todos
procedure atualiza()
FrmClientes.TxtCodigo.value := strzero(clientes->codigo,5)
FrmClientes.TxtNome.Value :=clientes->nome
FrmClientes.TxtCnpj.value :=clientes->cnpj
FrmClientes.TxtIe.Value :=clientes->ie
Frmclientes.txtEndereco.Value :=clientes->endereco
FrmClientes.txtNumero.Value :=clientes->numero
FrmClientes.txtCompl.Value :=clientes->complement
FrmClientes.txtBairro.Value :=clientes->Bairro
FrmClientes.TxtUf.Value :=clientes->uf
FrmClientes.TxTCep.Value :=clientes->cep
FrmClientes.TxtEmal.Value :=clientes->email
FrmClientes.TxtSite.Value :=clientes->site
FrmClientes.TxtResponsavel.Value:=clientes->responsave
return