Remover Espaço em branco

[Jairo Maia]

Olá Maligno,

na razão social, há uma função chamada Testa_String() que não deve limpar piçiroca nenhuma

Esta função foi uma função que postei as 14h13, para verificar se havia algum caracter como o 255 p.ex. Como acusou caracter inválido, alterei às 15h37 para retornar apenas letras e espaços.

Olá Pablo,

daí pode utilizar a função charrem() da CA-Tools para removê-lo.

Não conhecia esta função. Embora neste caso não serviria, me parece bastante util em campos como CPF, CNPJ, CEP, RG, etc. Valeu a dica.

Na minha opinião o problema está (ou estava) na hora da montagem das variaveis vSETA := "|". Acho que no código original dele está (estava) com espaços.

Judivan, foi resolvido? Nos informe se resolveu, e como vc fez, ou se continua o problema.

[JUDIVAN CONTABIL]

Olá Jairo Maia,

O problema continuar, usei a função abaixo, mas nao resolveu.
//------------------------------------------------------

Código: Selecionar todos

Function removendoespaco(mString)
Local i
Local Razao   := ""
Local Campos  := DbStruct()                 
For i:= 1 to Len(Campos)                     
If Substr(Campos[i,1],1,9)==Upper(mString)                        
Loop                     
Endif                     
If Campos[i,2]=="C"                        
mString += Alltrim(&(Campos[i,1]))+config->Razao                     
Elseif Campos[i,2]=="D"                        
cCampo  := Dtoc(&(Campos[i,1]))                       
 cCampo  := LimpaStr(cCampo)                        
mString += cCampo+config->Razao                     
ElseIf Campos[i,2]=="N"                        
If Campos[i,1]$Upper(wCamposComZeros) .or. lTODOS                                
cCampo  := &(Campos[i,1])                                
*vlipi                                
*cMasq   := "@EZ "+repli('9',Campos[i,3])+'.'+Repli('9',Campos[i,4])                                
cMasq   := "@E "+repli('9',Campos[i,3])+'.'+Repli('9',Campos[i,4])                                 
cCampo:= Transf(cCampo,cMasq)                                
cCampo  := Alltrim(cCampo)                                
mString += cCampo+config->Razao                        
Else                                
cCampo  := &(Campos[i,1])                                
cMasq   := "@EZ "+repli('9',Campos[i,3])+'.'+Repli('9',Campos[i,4])                                
cCampo:= Transf(cCampo,cMasq)                                
cCampo  := Alltrim(cCampo)                               
 mString += cCampo+config->Razao                         
Endif                     
Endif                 
Next
Return (mString) 

//--------------------------------------

Abraços Judivan

[Jairo Maia]

Olá Judivan,

Judivan, o colega Maligno já lhe advertiu para que use a tag

Código: Selecionar todos

 ao postar código. Se vc observar a barra superior (logo acima da caixa de digitação de mensagens), vc verá vários botões com várias tags. Para postar um código, selecione todo o código (apenas o código), e com ele selecionado clique no botão Code. Isso facilita o entendimento do código.

Faça o seguinte:
1- Vc tem dois bancos de dados envolvidos neste problema, a saber: CONFIG.DBF e REG0000.DBF. Faça cópias destes arquivos em outra pasta, use o DBU, e deixe alguns registros nele para diminuir o tamanho.
2- Logo abaixo da barra inferior da caixa de digitação, e abaixo dos botoes [SALVAR], [PREVER] e [ENVIAR], vc verá uma aba "ANEXAR ARQUIVO", anexe ambos arquivos.

Se vc tiver dificuldade para anexar, envie-os para meu email: jms@ebscom.com.br

Pelo regulamento do fórum, não é aconselhável solicitar nada por email, acredito que vc possa sem problemas anexar, mas se enviar por email, no meu próximo post eu anexo os arquivos para que todos tenham acesso.