lechuga
08 de Junio del 2005

HOLA COLEGAS.

ESPERO QUE ALGUIEN ME PUEDA AYUDAR, COMO PUEDO VALIDAR UN CAMPO MEMO...

HAGO LO SIGUIENTE PERO NO ME FUNCIONA :'(

IF ALLTRIM(thisform.descri.Value)<>"" then
SELECT rm_otro
=tableupdate(.t.)
ELSE
SELECT rm_prod
DELETE ALL FOR rm_prod.numero=usuario(1,1) AND rm_prod.mes=usuario(1,2) and rm_prod.prodcc=rm_otro.conotr
=TABLEUPDATE(.t.)
SELECT rm_otro
delete
=tableupdate(.t.)
ENDIF

YA PROBE TAMBIEN ASI, PERO TAMPOCO

IF EMPTY(ALLTRIM(thisform.descri.Value))<>"" then
SELECT rm_otro
=tableupdate(.t.)
ELSE
SELECT rm_prod
DELETE ALL FOR rm_prod.numero=usuario(1,1) AND rm_prod.mes=usuario(1,2) and rm_prod.prodcc=rm_otro.conotr
=TABLEUPDATE(.t.)
SELECT rm_otro
delete
=tableupdate(.t.)
ENDIF
thisform.Refresh


DE ANTEMANO MUCHISIMAS GRACIAS.

lechuga
08 de Junio del 2005

Hola todos...

La solución es:

IF EMPTY(ALLTRIM(thisform.descri.Value)) then
SELECT rm_otro
=tableupdate(.t.)
ELSE
SELECT rm_prod
DELETE ALL FOR rm_prod.numero=usuario(1,1) AND rm_prod.mes=usuario(1,2) and rm_prod.prodcc=rm_otro.conotr
=TABLEUPDATE(.t.)
SELECT rm_otro
delete
=tableupdate(.t.)
ENDIF
thisform.Refresh