PC Toledo

Enviado: **25 Jun 2011 07:14**

Olá Maligno,

Maligno escreveu: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,

Pablo César escreveu: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.

Enviado: **25 Jun 2011 09:21**

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

Enviado: **25 Jun 2011 10:29**

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.

PC Toledo

Remover Espaço em branco

Remover Espaço em branco

Remover Espaço em branco

Remover Espaço em branco