9706 - Tirar espaços entre campos
Problema: Está sendo desenvolvida uma regra no ERP que é necessário remover espaço em branco dentro de uma string.
Um Exemplo do que estou tentando fazendo tenho uma string com essas informações AL + AD + PE preciso que essa string fique dessa forma AL+AD+PE
Rotina / Tela: Regras
Solução: Solução 9706: Segue abaixo um exemplo de regra:
Definir alfa vteste;
vteste=Limpa espaco A B C;
TamanhoAlfa(vteste,vtam);
Para (i=1;i<=vtam;i++)
Inicio
PosicaoAlfa( ,vteste,VRet);
Se (vret=0)
Pare;
DeletarAlfa(vteste,Vret,1);
InserirAlfa (,vteste,vret);
Fim;
@A variável vteste ficou com a informação: LimpaespacoABC @
Um Exemplo do que estou tentando fazendo tenho uma string com essas informações AL + AD + PE preciso que essa string fique dessa forma AL+AD+PE
Rotina / Tela: Regras
Solução: Solução 9706: Segue abaixo um exemplo de regra:
Definir alfa vteste;
vteste=Limpa espaco A B C;
TamanhoAlfa(vteste,vtam);
Para (i=1;i<=vtam;i++)
Inicio
PosicaoAlfa( ,vteste,VRet);
Se (vret=0)
Pare;
DeletarAlfa(vteste,Vret,1);
InserirAlfa (,vteste,vret);
Fim;
@A variável vteste ficou com a informação: LimpaespacoABC @