saudaões
ao exibir o conteúdo de um campo no texbox aparece da seguinte forma:
riodejaneiro
mas no dbf o correto é rio de janeiro.
parece que ignora os espações entre as palavras.
obrigado pela ajuda

Moderador: Moderadores
marcelosantos escreveu:parece que ignora os espações entre as palavras.
#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
@ 070,230 TEXTBOX TXTNOME WIDTH 413 MAXLENGTH 50 FONT "Courier New" SIZE 10
procedure atualiza()
clientes->( DbSkip( 5 ) )
FrmClientes.TxtNome.Value := If( clientes->( Eof() ), "Fim de arquivo", clientes->nome )
return
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
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:
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!
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 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()  |
Pablo 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:
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
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes