sera valida esta rutina
Publicado por LOLY (103 intervenciones) el 18/06/2009 18:57:13
Hola buenas tardes.. tengo un combo que estoy modificandola... ya que esta dentro de un formset... pero se me hace mucho poner tanto THISFORM ,, y quiero saber si es valido lo siguiente:
WITH thisform
.setall("readonly", .F., "textbox")
.setall('disabledbackcolor', rgb(192,192,192), 'textbox')
.setall("readonly", .F., "ComboBox")
.setall('disabledbackcolor', rgb(192,192,192), 'ComboBox')
.setall("readonly", .F., "Editbox")
.setall('disabledbackcolor', rgb(192,192,192), 'EditBox')
.Combo1.Visible=.f.
.Command2.Visible=.t.
.Command3.Visible=.t.
.Command4.Visible=.f.
SELECT energia
SET ORDER TO l_folio
SEEK VAL(ALLTRIM(.Combo1.Value)) &&Si validará aqui...??
nfolio=l_folio &&Traer datos de la tabla a las variables del form
dfecha=l_fecha
cdescripcio=descripcion
nnota=nota
cproveedo=prove
crfc=rfc
cdomicilio=domici
cciudad=ciudad
cpartida=l_ptda
ncantidad=l_importe
pvalor=l_importe
nump=l_letra
crecibe=l_recibe
rpuesto=l_puesto
rrfc=l_rfc
rcurp=l_curp
EndWith
ThisformSet.Form4.Refresh
Que opinan...???????
WITH thisform
.setall("readonly", .F., "textbox")
.setall('disabledbackcolor', rgb(192,192,192), 'textbox')
.setall("readonly", .F., "ComboBox")
.setall('disabledbackcolor', rgb(192,192,192), 'ComboBox')
.setall("readonly", .F., "Editbox")
.setall('disabledbackcolor', rgb(192,192,192), 'EditBox')
.Combo1.Visible=.f.
.Command2.Visible=.t.
.Command3.Visible=.t.
.Command4.Visible=.f.
SELECT energia
SET ORDER TO l_folio
SEEK VAL(ALLTRIM(.Combo1.Value)) &&Si validará aqui...??
nfolio=l_folio &&Traer datos de la tabla a las variables del form
dfecha=l_fecha
cdescripcio=descripcion
nnota=nota
cproveedo=prove
crfc=rfc
cdomicilio=domici
cciudad=ciudad
cpartida=l_ptda
ncantidad=l_importe
pvalor=l_importe
nump=l_letra
crecibe=l_recibe
rpuesto=l_puesto
rrfc=l_rfc
rcurp=l_curp
EndWith
ThisformSet.Form4.Refresh
Que opinan...???????
Valora esta pregunta
0