
WITH/ENDWITH
Publicado por Ana (186 intervenciones) el 04/05/2005 19:02:46
Tengo el siguiente codigo en el boton Nuevo :
SET EXCLUSIVE on
OPEN DATABASE stock
SELECT 0
USE articulos
APPEND BLANK
thisform.text1.Value = 0
thisform.text2.Value = SPACE(35)
CLOSE DATABASES
thisform.command1.Enabled = .f
thisform.command2.enabled = .t.
thisform.command2.SetFocus
return
y este otro el Aceptar :
SET EXCLUSIVE on
OPEN DATABASE stock
SELECT 0
USE articulos
GO bottom
replace articulos.codart WITH thisform.text1.Value
replace articulos.nombre WITH thisform.text2.Value
thisform.command2.Enabled = .f
thisform.command1.Enabled = .t.
CLOSE databases
thisform.command1.SetFocus
return
cuando lo ejecuto me aparece el siguiente error :
La expresion no es valida fuera de WITH/ENDWITH
SET EXCLUSIVE on
OPEN DATABASE stock
SELECT 0
USE articulos
APPEND BLANK
thisform.text1.Value = 0
thisform.text2.Value = SPACE(35)
CLOSE DATABASES
thisform.command1.Enabled = .f
thisform.command2.enabled = .t.
thisform.command2.SetFocus
return
y este otro el Aceptar :
SET EXCLUSIVE on
OPEN DATABASE stock
SELECT 0
USE articulos
GO bottom
replace articulos.codart WITH thisform.text1.Value
replace articulos.nombre WITH thisform.text2.Value
thisform.command2.Enabled = .f
thisform.command1.Enabled = .t.
CLOSE databases
thisform.command1.SetFocus
return
cuando lo ejecuto me aparece el siguiente error :
La expresion no es valida fuera de WITH/ENDWITH
Valora esta pregunta


0