PADL (caracter + numerico) pode?

[Julio]

Pessoal Boa Tarde

Alguns dias solicitei ajuda e me informaram do comando PADL.
Tenho um campo caracter com 40 posições, neste campo tenho que juntar dados alfanumerico e caracteres.
To fazendo assim:

Código:

m.e= "  "
  m.f1 = "AYW"
  m.f2 = PADL(9,5,'0')
  m.f3 = PADL(101,15,'0')
  m.f4 = SUBSTR(ALLTRIM(STR(ano)),3,2)  && ano é igual 2010 numerico retira somente o 10
 
*!* aqui eu monto
  m.guarda = m.f1 +m.e+ m.f2 +m.e+ m.f3 +m.e+ m.f4
*!* aqui eu gravo
select tabela
replace campo with m.guarda

Quando vai gravar diz que variavel nao existe.

Como junto o resultado ?

julio

[alceu11]

Código:


Local m.guarda, m1, m2
m.guada=''
m1='1'
m2='2'
m.guarda=m1+m2    &&+M3,  E se eu colocar a m3  e ela nao existir, oque vc acha que vai acontecer. Ou seja precisa ver se estas variaveis vc as declarou como locais, e se elas adicionoram conteudo.
e da uns wait windo em cada variavel para o resultado preenchido e cada um depois tira os wait window , Exempo.tipo wait windo m1
*****para depois checar antes de gravar
if !empty(m.guarda)
replace .. with m.guarda
else
wait windo 'nao existe '+ m.guarda
endif


[Julio]

Alceu

Quanto a alimentação das variaveis, ja fiz isso colocando um "WAIT" logo abaixo de cada uma delas e todas estão com os valores armazenados.
Inclusive no m.guarda se qer um wait ele mostra a junção das variaveis, o erro esta na hora de gravar.

[Julio]

Pessoal

Como preciso urgentemente fazer esta atualização na tabela, resolvi de uma forma meio que "bruta"...rs...rs...

Coloquei isso

Código:

select tabela
replace all campo with "A"
..
comandos
...

replace campo with m.guarda



Resolveu temporariamente

julio

[Marcos Guedes]

Pessoal Boa Tarde

Alguns dias solicitei ajuda e me informaram do comando PADL.
Tenho um campo caracter com 40 posições, neste campo tenho que juntar dados alfanumerico e caracteres.
To fazendo assim:

Código:

m.e= "  "
  m.f1 = "AYW"
  m.f2 = PADL(9,5,'0')
  m.f3 = PADL(101,15,'0')
  m.f4 = SUBSTR(ALLTRIM(STR(ano)),3,2)  && ano é igual 2010 numerico retira somente o 10
 
*!* aqui eu monto
  m.guarda = m.f1 +m.e+ m.f2 +m.e+ m.f3 +m.e+ m.f4
*!* aqui eu gravo
select tabela
replace campo with m.guarda

Quando vai gravar diz que variavel nao existe.

Como junto o resultado ?

julio

Comigo funcionou normalmente:

Código:

CREATE TABLE tabela (campo c(50))
APPEND BLANK

m.ano = 2010
m.e= "  "
m.f1 = "AYW"
m.f2 = PADL(9,5,'0')
m.f3 = PADL(101,15,'0')
m.f4 = SUBSTR(ALLTRIM(STR(ano)),3,2)  && ano é igual 2010 numerico retira somente o 10

*!* aqui eu monto
m.guarda = m.f1 +m.e+ m.f2 +m.e+ m.f3 +m.e+ m.f4
?m.guarda
*!* aqui eu gravo
SELECT tabela
REPLACE campo WITH m.guarda

Não entendi qual o seu problema, Julio...

[Julio]

Marcos

Quando mando gravar da erro que variavel nao existe, mas fazendo os teste a variavel m.guarda e alimentada com o resultado, mas na hora de gravar, que na verdade é alterar. Utilizando o comando replace ou update da erro.
Resolvi gravando antes alguma coisa; pq a variavel que ele dava erro era o nome do campo da tabela, depois que percebi isso.
Mas gravando alguma coisa consegui fazer a rtina atualizar o campo.

julio

[Marcos Guedes]

Você testou a modificação que postei e viu que funcionou normalmente?

Você também pode substituir:

Código:

SELECT tabela
REPLACE campo WITH m.guarda

Por:

Código:

UPDATE tabela SET campo=m.guarda

[m@r<3|o]

Tipo....

SUBSTR(ALLTRIM(STR(ano)),3,2) parece retorno caracter por colocar o STR

voce pode estar somando assim
m.guarda = AYW 0000005 0000000151515151 '2010' coloque um set step on ou suspend ou mesmo no erro aparecerem algo como aspas em algum e outros nao ?


m.guarda = m.f1 +m.e+ m.f2 +m.e+ m.f3 +m.e+ m.f4 aparece o erro em questao , mais ainda no caso teria que ser mensagem de Erro de argumets ... vai la sabe


se pegar o ano sem utilizar substr ,
ai capaz que passa o codigo sem erros

tenta pegar o ano assim left(dtos(date()),4) ve se o erro para

[lardecristo]

Olá, Júlio, é o seguinte, vou fazer algumas perguntas e já colocar alguma observação.

1 - Você já está posicionado no registro correto para fazer o "replace"?
- Se não, experimente posicionar no mesmo, e veja se salva sem dar o erro, ou se for o caso force para estar no registro que deseja.

2 - Qual o número do erro e a mensagem?
- Com esta informação nos ajudaria a entender melhor o problema.

Abraços,

[hugo]

fiz assim e funcionou

Código:

ano=2010
m.e="  "
m.f1="AYW"
m.f2=PADL(9,5,'0')
m.f3=PADL(101,15,'0')
m.f4= SUBST(ALLT(STR(ano)),3,2)
m.guarda="" && tenta isto
m.guarda=m.f1+m.e+ m.f2+m.e+m.f3+m.e+m.f4
select tabela
replace campo with m.guarda

[Julio]

Pessoal

To lendo a tabela e gravando.

Código:


select compras
go top
do while not eof()

m.ano = dataver
m.e= "  "
m.f1 = tamanho
m.f2 = PADL(tipo,5,'0')
m.f3 = PADL(cel,15,'0')
m.f4 = SUBSTR(ALLTRIM(STR(m.ano)),3,2)  && ano é igual 2010 numerico retira somente o 10

*!* aqui eu monto
m.guarda = m.f1 +m.e+ m.f2 +m.e+ m.f3 +m.e+ m.f4

*!* aqui eu gravo
SELECT compras
REPLACE verificado WITH m.guarda

skip
enddo

[Marcos Guedes]

Isto quer dizer que conseguiu resolver?

[Julio]

Marcos

Acho que deveria ser algum conflito, exclui o form e fiz um novo.

Pode dar como resolvido.