lchecbox:leditable no se activa

PILO · Mensaje por **PILO** » Dom Dic 17, 2006 3:12 pm

This is a multi-part message in MIME format.
------=_NextPart_000_0035_01C721ED.C90EE1F0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0036_01C721ED.C90EE1F0"
------=_NextPart_001_0036_01C721ED.C90EE1F0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Seg=FAn imagen adujuna=20
tegon un tchecbox que cuando esta desativado
el Tdbmaxkedit de precios esta leditable a Falso
y Tdbmaxkedit de Valor animal a True
En la opcion normal cuando pongo el valor
en Peso y doy un intro pasa al de El valor de animal
pero cuando cambio el chexbox hago lo siguiente en=20
el metodo
if oSender:lChecked
oSender:cText :=3D "Valor dado por Kilos"
WITH OBJECT ::oDBMPREKI_CO
:lTabStop :=3D TRUE
:lEDitable :=3D TRUE
END WITH
WITH OBJECT ::oDBMPRECIO_CO
:lTabStop :=3D FALSE
:lEditable :=3D FALSE
END WITH
else
oSender:cText :=3D "Valor dado Animal "
WITH OBJECT ::oDBMPRECIO_CO
:lTabStop :=3D TRUE
:lEditable :=3D TRUE
END WITH
WITH OBJECT ::oDBMPREKI_CO
:lTabStop :=3D FALSE
:lEDitable :=3D FALSE
END WITH
end if
Esto hace que:=20
el Tdbmaxkedit de precios esta leditable pase a True
y Tdbmaxkedit de Valor animal a Faso
Entoces el de peso me permite modificar el valor,=20
ero el de precio (Segundo) se seleciona todo lo que hay
pero no me permite cambiar nada,
si vuelvo a marcar el chexbox, la accion anterior funciona bien
en lo objetos estos valores por defecto esta a .f. aunque he probado de =
todas
las formas y sigui dando el error, la primera opcion que ponga funciona =
bien
pero la segunda no me funciona bien, alg=FAn consejo o hace fatal algo =
mas
Gracias.
------=_NextPart_001_0036_01C721ED.C90EE1F0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2995" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Seg=FAn imagen adujuna </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>tegon un tchecbox que cuando esta=20
desativado</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>el Tdbmaxkedit de precios esta =
leditable a=20
Falso</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y TdbmaxkeditÂ de Valor animal a=20
True</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ En la opcion normal =
cuando pongo=20
el valor</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ en Peso y doy un =
intro pasa al=20
de El valor de animal</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ pero cuando cambio =
el chexbox=20
hago lo siguiente en </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ el =
metodo</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff00ff size=3D2>ÂÂÂ if=20
oSender:lChecked<BR>ÂÂÂÂÂ oSender:cText :=3D =
"Valor dado=20
por Kilos"<BR>ÂÂÂÂÂ WITH OBJECT=20
::oDBMPREKI_CO<BR> ÂÂÂÂÂÂ ÂÂ =
:lTabStop :=3D=20
TRUE<BR> ÂÂÂÂÂÂ ÂÂ :lEDitable :=3D =
TRUE<BR>ÂÂÂÂÂ END=20
WITH<BR>ÂÂÂÂÂ WITH OBJECT=20
::oDBMPRECIO_CO<BR> ÂÂÂÂÂÂ ÂÂ =
:lTabStop :=3D=20
FALSE<BR> ÂÂÂÂÂÂ ÂÂ :lEditable =
:=3D=20
FALSE<BR>ÂÂÂÂÂ END WITH<BR>ÂÂ=20
else<BR>ÂÂÂÂÂ oSender:cText :=3D "Valor dado=20
AnimalÂÂ "<BR>ÂÂÂÂÂ WITH OBJECT=20
::oDBMPRECIO_CO<BR> ÂÂÂÂÂÂ ÂÂ =
:lTabStop :=3D=20
TRUE<BR> ÂÂÂÂÂÂ ÂÂ :lEditable :=3D =
TRUE<BR>ÂÂÂÂÂ END=20
WITH<BR>ÂÂÂÂÂ WITH OBJECT=20
::oDBMPREKI_CO<BR> ÂÂÂÂÂÂ ÂÂ =
:lTabStop :=3D=20
FALSE<BR> ÂÂÂÂÂÂ ÂÂ :lEDitable =
:=3D=20
FALSE<BR>ÂÂÂÂÂ END WITH<BR>ÂÂ end=20
if<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff00ff size=3D2><FONT =
color=3D#000000>Esto hace que:=20
<DIV><FONT face=3DArial size=3D2>el Tdbmaxkedit de precios esta =
leditable pase=20
aÂ True</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y TdbmaxkeditÂ de Valor animal a=20
Faso</FONT></DIV>
<DIV>Entoces el de peso me permite modificar el valor, </DIV>
<DIV>ero el de precio (Segundo) se seleciona todo lo que hay</DIV>
<DIV>pero no me permite cambiar nada,</DIV>
<DIV>si vuelvo a marcarÂ el chexbox, la accion anterior funciona =
bien</DIV>
<DIV>Â</DIV>
<DIV>en lo objetos estos valores por defecto esta a .f. aunque he =
probado de=20
todas</DIV>
<DIV>las formas y sigui dando el error, la primera opcion que ponga =
funciona=20
bien</DIV>
<DIV>pero la segunda no me funciona bien, alg=FAn consejo o hace fatal =
algo=20
mas</DIV>
<DIV>Â</DIV>
<DIV>Gracias.</DIV></FONT></DIV></FONT></BODY></HTML>
------=_NextPart_001_0036_01C721ED.C90EE1F0--
------=_NextPart_000_0035_01C721ED.C90EE1F0
Content-Type: image/jpeg;
name="xailer.jpg"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="xailer.jpg"
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQE BQoHBwYIDAoMDAsK
CwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkF BQkUDQsNFBQUFBQU
FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/ wAARCACIAN8DASIA
AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAA AgEDAwIEAwUFBAQA
AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcY GRolJicoKSo0NTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKT lJWWl5iZmqKjpKWm
p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP0 9fb3+Pn6/8QAHwEA
AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQA AQJ3AAECAxEEBSEx
BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2 Nzg5OkNERUZHSElK
U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOk paanqKmqsrO0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMB AAIRAxEAPwD7VrLv
fFWi6bcvb3er2FrcJjdFNcojrkZGQTnoQa1K+f8AxZ8QPAnwp+JPjfxT8RPA 0Hi7wwl5oGm32oS6
Yt9/YcE8N7/pbIUY+X5scEbAYJ8xcb2Co3JGPM7Gzdj27TvE2j6vdra2Oq2V 7csGZYbe4SRyFBZi
ADngAk+wNaVeb/svzX/xCXxR8Tl+Gmh/DbwNrMaW3gyxg0yC21SeyWC5aW8u WjQELcEwMqbioWFS
oIxNN2/iXRj4j8O6ppIvrzTDfWstr9t06Xyrm33oV8yJ8Ha65yrYOCAaco8r BO5o0V8Yf8L78V/8
KP8A+FUfbP8Ai/H9qf8ACC/6yXzun/IY+/8AafI+y/vftW3/AFnzbNtdn46/ aZvfgpe634P0zw3e
eMYvBGg2lxf6vqOoXM9zc5hdsyva2lwsblYtzPdNBuLFgNnzlcrHc+nKK+Uv +F9n/hoX/hLPtesf
8IN/wp3/AIS7+xPM/wCnrzN/k7/L8/yvkzn23Yrs/BX7Surax4k+GOneIfCV npFt8RNLn1LRrjTd
Xe9eLyreO4KXCPbwhMxydUZ/mGMYO4HKwue9UV5D+zJ8btb/AGgvAJ8YX/hG HwppFzM0emhdVF5L
dKjMkjsoiTy1DqVGSSSrHAG0t4N+1H+0n4x8QfBP4o3PgrRJtH0jw34jXw1c +JLfXGtdRtpoZoDL
MkCR/wCqZ2EIKzbyJNxQDcAKLvYL9T7Xor5z+Lf7Wd78OPFni7RdM8Hf29F4 W0qDUr+6+1XJz5kc
kmzFraXKwYWPrdNBnduA2fOdK9/ab1DxDr+haH4C8G/8JDquq+DV8arBq2pr p3+iyMqRQIyxzAzs
zEEMURcD5zk4XKwue9UV8c/s3ftC+IrP4JfBHQ3tpvGfjfxtNrIivNe1WSKJ Y7Sad3aa48uaQtt8
tEUIRjOSoUA/QPwS+L3/AAt7R/EUk+lf2Nqnh7Xbzw9qNtHcfaIftFuwy0Mp VC6FWUgsiHORjgEj
TQJ3PRaK+W9S/bM1vSdM+I3iW4+HkI8EeBvEZ8P32pLroN3dMLlIHeC28jBZ RJG5V5EB3gByQ2Or
8bftK6to/iX4n6b4d8JWer23w60uDUtZuNT1d7J5fNt5LgJbolvMHxHH1dk+ Y4xgbicrC6PeaK8G
0z9pvUPFvxa8EeEPC/g3+0NP8ReGLXxbPquoamtq+n2UrlTuhEcnmOPkAVX5 aQAlVBccH+2r8YfF
Hwe+J/wg1Dw7PM8MkWtm7sXluPsLqtvEBcXcUCs8kVuHadgFJCxtgqTkHK72 C59a0V86eINctvg/
4F+FhvNb1j4k3Hirxjp8D6+uvTWqTT3YdhcIsLGM2oAG20X9yVK5ycs3GfDv 9oLVvAmj+P5L9bzx
Zqmp/GK78I6JbahqDpDb+a0flI0pEhigRRIQERsHAC8kh8rC59fUV8/ah+1T d+HNG+Lo1nwXNL4j
+HUVpNd6dod4b2C6juYRJE6zNFG6qg3GUmLCIhYb+QO8+DXxVuvila61NNY6 Otvp9ylvDqXh3X4d
XsLvMauwSRVSRHQthkkjXqpUsG4VmFz0WiiikMKKKKACiiigAqLSNE0HTZvE s02mvfP4kgjtNWiu
Xjlt7qBEdFiaJ42XZtkkBBzu3nORgCWimm1sK1zp73xo19btFKlxINrhA8se 1SyMmfljBOAx71zF
FFDbe4Wsedf8KE8Jf8Ly/wCFr/Y/+Kp/sv8Asz/VxeV1/wCPj7m/z9n7rfu/ 1fy4xWL40/Zp0fxb
r/jTVbXxHr/htvGdhFp/iC30trV4r+OOJ4VJ8+CVo28qQp+7ZBgA43ZJ9foo uwseL+Hv2UfCei3M
Et5qGs66kfg5vArQ6hNEqS6YZC4VvJjjO8KRGHUg7QCctljZ8G/s0aN4U17w Zql34j1/xI3g2wl0
7w/b6o1qsVhHJEkLEeRBE0jeVGE/eM4wScbsEevbh6ijcPUUXYWON+Dvwp0n 4JfDrSfBeh3F5daX
pvneTNqDo8zeZM8rbiiqD80hAwo4x9a8x8c/sX+F/HFh4m0o+KvFeieHfEes tr+o6Jpd1bpbzXrB
d8hZ4HlKsyK/llygYAqo2rj6BoouwseP+Mv2Z9H8V674z1O08R6/4bbxnYRa d4gt9La1eK/jjieF
SfPglaNvKkKfu2QYAON2Sc6P9k/R7KDQ30vxj4r0XVtK8Ot4TXWbCe1S7n0z eHjhYm3KI0eAFliV
JO5Zjg17jQeAaLsLHh+h/skeF/C3hfwBpWia5r+l3/geW9k0fW4pbeS7Rbsv 9oR1khaF1bzO8WRs
XBHzZ7z4V/CjSfhJo+qWemXF5f3GrapcazqWoag6NNd3c7AySMEVI14CqFRF UBRxnJNL4eJ8X/if
4Tt/EmjWfgqHTLma4hiW/vbuOb91O8LFlWJgMtGSMMeCK6Q/D345jrB8Ph/3 Eb3/AOMVpySZPMj5
n+H37Id94ik+Ldt481PX9N8O+JvG1zqg8OWt7bNY6lZLOk8ErYR5YWdgQ3ly ROVRAcbQa9W8Zfs0
aN4r17xnqlp4j1/w23jOwi07xBbaW1q8V/HHE8Kk+fBK0beVIU/dsgwAcbsk +hf8K9+OeM+R8Pse
v9o3v/xilHw6+Oh6W3w//wDBje//ACPT5ZBdHLeG/gP4Z8I/ELS/F2km8tbn TPDEXhK0sPOD20dj
HKJE+8DIXBUDcXOR1Gea0fFXwn0jxf8AEbwT40vLi8j1Twl9t+wwwuggk+1R CKTzQVJOFAK7WXB6
56Vrj4efHMnAt/h8T6f2je//ABigfDz45k4Fv8PifT+0b3/4xS5JBzI81l/Z S8Jg6dbWuo6zp+h6
X4ntvFmm6FbTRCysLuLeWjgVoyyQSNIztEG2hv8AV+WCwKXH7KXhKbR9Vs01 DWYLi98Yt46g1COa
IzWGpllIaEGMxlAAVCSpIMMc5OCPTP8AhXXx0/59vh//AODG9/8Akej/AIV1 8dP+fb4f/wDgxvf/
AJHo5JBdHC6X+zrpGn2vjqSTxJ4lufEHjLyP7S8SJfJZ36+RGI7fyWtkijj8 sAkYT5txD71O2tn4
b/B3TfhxrvijXl1PUte8ReJZbeTUtV1RoRJKsEXlQoEgjjiVVXd0QEljuJ4x 0P8Awrr46f8APt8P
/wDwY3v/AMj0f8K6+On/AD7fD/8A8GN7/wDI9HJIOZG5RWH/AMK6+On/AD7f D/8A8GN7/wDI9H/C
uvjp/wA+3w//APBje/8AyPS9nIfMjcoqe6tGsWhidxJL5ELyOq7QXaNWbAyc DJOBk4Hc9agrMoKK
KKACiiigAooooAKKKKAPz0+D4tfEfxs8e+FvH1xPafDS9+JOryWFsYgLDWta WWMpZ3su7hVRY5Io
GUJO+7LOY1jO3+1l41OteE/2ptAGiaPYDRD4W/4mdla+Xe3/AJ0kL/6TJk+Z sxtTgbVJHNfWn/Ci
vAp8MeLfDsnh+GfRfFd/PqmsWk8ski3N1MVMkoLMTG2URl2FdhUFdpGaztU/ Zs+Hmt6f4pstQ0Oa
+h8URWEOstc6ldSS3q2YUWxeQy79y7VywILnlyxJrTmV7k2PN/HHx78cJ4p+ NNl4aOgabYfDLRbX
UXXVNPmvZdTkltJbogMlxCIVARU+7Ic5bP8ACIPHH7R/jmDw/wCFfEWkaLZe HfC+reDv+Ekl1zUd
KvtatortkjcWUv2Pa9uio5drl1KkZ2rlGB9X8Xfs++BvG+r6vqepabeRXms2 qWWqNpurXlgmowor
Kq3CW8qLNhXZMuGO07c4AFL4u/Z78A+NhaDUNB+zi10ttEj/ALJvJ9Ozp7Yz aP8AZnj3wfKMRNlR
zgDJzN0PU6GPxVcyeBbLX7PS/wDhIrm4tYLhbLw9eQzpP5gUkwTzNDHIgDFg 7FNyjIGSFqz4V1++
8RabLc3/AIc1LwxMspjFpqkls8rqADvBt5pU2nJHLA5U8YwSab4O0vRtQtbr T4prFLWwXTbext7q
WOxhgUgqqWoYQqwwAHCbgo2528VtHkGpGfP407wVc/Az4PXXiTTdQ8eeJINY 1+Lwx8MYHhktPEl9
Lc3Me+6glRk8u2RmkNy21YAzMSSyoxqf7HPxD0K0/Za0O+0TQvjBa+A7PXYf EA8S3wh0wfaYk+zQ
nzY5pHjiIEcZWBv9RGSsQI2+s+Bv2ffCl74E8Cw+O7G4k8U+FZtUn07UND8R y2EtkL24d5FWW2uY
mJMZRG6jhgCQST3evfCr4eeJtJ8N2Wp2er3c3hyaafStXbxTcDVbRplZZgt+ LsXJV1cqyGQqQEBG
EUDr5kYWZ8q2/i/wX+0L4t/Yxj0vwXY6H8NvEI8V3Vz4EmtYW0xbq2tWQk26 r5UmyYzskhQH94Ww
jOwr3X/gmrq99rP7EHw3uNQvLi+uEhvrdZbmVpGWKK+uI4kBJJ2pGiIo6Kqq BgAV1Vz8D/hNL4W8
H+H7bwv/AGRYeEPM/sKbRdXOn3en+YjJN5d1b3CTfvQzGTLnzGO59zYNdB4S 8HeB/AWleFNL8N6Z
PoWk+GIZYNN03TtY8i12yLhzPCtwEuWJy2+cOwdmcEOxYnMgsz4B/ZCdrTxR +xx4lhJh8ReMv+E6
/wCEl1dDi71zY8kifbZfvXG10Vh5hbBUEcgU79j5ja+LP2NfEkJMXiLxkfHX /CS6uhxd65seSRPt
sv3rja6Kw8wtgqCOQK+3PBPwP+E3w78U2PiDQPC/2O/077Z/ZkMmrme00v7U ++5+xWslw0Np5hyD
5CJwSv3SQV8E/BD4TfDrxVY+IdA8L/Y7/Tvtn9mRSauZrTS/tT77n7FayXDQ 2nmHg+QicEr90kE5
kFme6UVz/wDwmdn/AHP/ACZt/wD45R/wmdn/AHP/ACZt/wD45RzILM6Ciuf/ AOEzs/7n/kzb/wDx
yj/hM7P+5/5M2/8A8co5kFmdBSHpWB/wmdn/AHP/ACZt/wD45QfGdn/c/wDJ m3/+OUcyCzPMdc/4
/k/694P/AEUlZ9aGulft4Cuj7YYUJjYMMiJQRkcHkGs+uV7m4UUUUgCiiigA ooooAK8puv2oPh9a
nxC323Wbm38PXVxZareWfhzUri2s5oP9csk0du0Y2DkndjGDnBBr1avkH9nP QfHmtj46weFfFej+
Gbab4ia5F5t5oL39zFKfLHmxv9pjj4BXCtGwypJ3A7Q0l1EfWumanaa1p1rq Gn3UN9YXUSz291bS
CSKaNgGV0YZDKQQQRwQas18geEvhdB4D/au8HfDXQ/EHiXT/AAV4Y8CDWYdJ t9Ymigvbz+0ZVaS5
VSFk3NKXZQApKquPLGw+afBnx9428RSfDOa/8bRWHj648WyR67p934n1G71G 5gFxcrcWkuhrA8Fo
ojBIchEjESNujzlXyiufoVWdo2vW2vfbvs0V5F9juns5PtllNbbnTGTH5qL5 ic8SJuRucMcGvkLw
/wCM9IvvEPxPPxH+JPibwr4wsfHctloVhpmrXCXosVe2FktvpS747hJA2Mm2 k8xXZiTyw5u++I3i
4eD/ABU9z4m1mDQ0+Or6Nq+ofb5Y/sGieZHuj+0hg1rAG8tdyMgG/bkByCco 7n3lQehr51/Zl8S3
GsfFX4x6fpGv3viX4daddaWNBv59Sk1SHznsw12kV5I7tJhvLLJvIQtwF3HP tGiyaA3i3xKmn6x9
t1xPs/8Aamn/ANqyXH2LMZ8n/Rmcrbb1y3yqnmY3HcRmk1YDyfSrvwL4a+C2 l+Pvil8b/E3g5tRu
r6OK0g1CItMsN69uBbweRJNLtHlF9obbu3HA6e+j9ku2K5/4Wh8QMYz/AMhC 1/8Akavmj49Lu/4J
NeKeMn7ce3/UxCvvnUPFWi6Tqmk6JfavY2es6ukv9nafcXKJcXvlIHl8mMnd JsUhm2g7QcnArrsj
G7PknwTpnwp+Inimx8P6B8dPiBeX+o/bP7MmkYQWmqfZX2XP2K6kslhu/LOS fId+AW+6CQeCdM+F
PxE8U2Ph/QPjp8QLy/1H7Z/Zk0jCC01T7K+y5+xXUlksN35ZyT5DvwC33QSP nz9kAG58Vfsb+G4l
M3iHwafHR8TaQgzd6JveSNPtsX37fc7Ko8wLksAOSK9p/ZW8T/DD4+/EPwz4 8g1bwn4Wj0ManZfD
r4W6TcW1reaZFIZFvb26t4yGa4uFjd/KUGKOL5syOxkBZBdm14J0v4VfEXxV Y+HtA+OnxAvL/Uft
n9mSyMIbTVPsr7Ln7FdSWSw3flnk+Q78At90Ej1X/hkm3/6Kf8QP/Bha/wDy NXxR+x8puvFn7Gvh
uEGXxF4NPjr/AISXSEGbvQ97yRp9ti+9b7ndVHmBclgByRX6o0WQXZ4L/wAM k2//AEU/4gf+DC1/
+RqP+GSbf/op/wAQP/Bha/8AyNXvVFFkF2eC/wDDJNv/ANFP+IH/AIMLX/5G o/4ZJt/+in/ED/wY
Wv8A8jV71RRZBdngv/DJNv8A9FP+IH/gwtf/AJGo/wCGSrcf81P+IH/gwtf/ AJGr3qkPSiyC7PDd
RtY7GWCCIERpbQAbmLE/ukySTySepJ5J5NVK0Nc/4/k/694P/RSVn1yPc3Ci iikAUVxnxl8eah8L
/hh4i8W6boX/AAklxo1qbx9O+1ra+ZChBmbzGVgNke98YJbZgDJFc58T/j/p /gv4X+HfFugWP/CV
XPii6sLLw7pvmtaf2lNdlTEvmOhEP7su+ZAB8uCQSKLAerUVyl98WfBGl+Jk 8N3vjDQbPxE0scA0
ifU4UuzJIFMaCItu3NuXaMZO4Y6iuc8NfHC01n4nfFLwtf2kOjWHgSKwnn1i 5vAIpo7i3adncFQI
ljCnJLEEc8YosB6dQAB0GK5TQ/iz4I8Tafql/o/jHQdVsdKi8/ULmy1OGaOz jwzb5WViEXCOctgY
VvQ1peFPGvh7x5p0moeGtd03xDYRymB7rS7uO5iWQAEoWQkBgGU464YetAGz gZzjmk2KDnAz64rx
j/hqDw//AMNQf8KY8n/iYf2Z9q+37pP+Pvb5v2TZ5eP+Pf8AfeZv2/wfe4rv b/4teB9K8UL4avfG
OgWfiJpY4F0ifU4UuzJIFMaCItu3NuXaMZO4Y6iizA6rYpOcDPrijaMYwMVx k3xP0nSNY8WR65rX
hrSdL0H7J51y+tJ51v56/L9siZFFtuYgR5d/MBz8vSix+Nnw81P+z/sfjvw1 d/2jdGys/I1e3f7T
cDZmGPD/ADuPNi+UZP7xOPmGSwHaBQvQAfSkIHPauW8VfFnwR4F1GOw8SeMd B8P30kQnS21TU4ba
RoySocK7AlSVYZ6ZU+lYZ+L4P7Qn/CrxpWR/wi//AAkn9q/aP+nr7P5Plbf+ Bb93tt70WA774X+P
PB/wr8D2Hhmx8V2V5bWrzS+dciHezyzPM/ScADdI2B2GASTyer/4aA8N5H/F RaXx7R//ACRXzr8M
NK0u3+Gvw3stM+B+i/ETxJ4o1LWxc65rFksWn6fFb3Nw268vVtrh0Z8RxxKU IYgjcu0A0PD3xn+H
fxC0z4EP4O/Z88F3Wo/FOHVzFBrv2eyh06XTh+/VpI7OYyKxWQIwRSQqEqu4 heuz7mN12PpgfH7w
0DkeItLB+kf/AMkUD4++GgcjxDpQPrtj/wDkivG/iI+h+AfHPwm8C/8ADP3w 0vfGPj3+1f3f2tI9
PsfsUazf8fH9nGSTfG3/ADxXawx8w+avavDHwH8EXWgW8/iP4UeA9L1ghjPa aXZQ3tumGO3ZM9tC
zZXaTmNcEkcgZJZ9wuuxEPj/AOGgcjxFpYPriP8A+SKX/hoHw5/0Mel/lH/8 kV83/Bz4x/C74qeK
fhpbz/APwnpHhz4lf23/AMI1qEcFtcXY/s1yH+225tkSDeisw8uWbDYU8EsF +DXxi+F3xW8V/DO2
n+AfhLSPDnxLOtjwzqEcFtcXY/s1yH+225tkSDeisw8uWbBwp4JYFn3C67H0 f/w0D4c/6GPS/wAo
/wD5Io/4aB8Of9DHpf5R/wDyRW1/wz58Lv8Aom/hL/wSW3/xFH/DPnwu/wCi b+Ev/BJbf/EUWfcL
rsYv/DQPhz/oY9L/ACj/APkij/hoHw5/0Mel/lH/APJFbX/DPnwu/wCib+Ev /BJbf/EUf8M+fC7/
AKJv4S/8Elt/8RRZ9wuuxi/8NA+HP+hj0v8AKP8A+SKP+GgfDn/Qx6X+Uf8A 8kVtf8M+fC7/AKJv
4S/8Elt/8RR/wz58Lv8Aom/hL/wSW3/xFFn3C67HCza1YeIW+26XdJe2ICW4 njZWBZI0DDKkgHoc
Z6MPWo63/Enh7S/CttFpei6baaRpsFzL5VnYwLDDHujhZtqKABliScDqSawK 5ZKzNVsFFFFIYEBg
Qehr5T+Bf7MHiDwH8cr2fWZ/O+HXgv7V/wAIBabYx5H9oMZLr5lkMreUN0P7 /dv37124r6sopp2F
Y+Dvi/8As4+Ptd8KfGPRbbwdrGr694k8UNq2j6ho+twWejNaNJbOontDdRK0 4WKRWd7dmZwG3scP
XRfE79nvx/8AEi1/aQltNB/s2Txra+G7jRoL+8gDzPZxo9xA3lu4RwyGMFiE LEEPtyw+z6KfMxWP
lDxz8LvHHxP+IHxE8WQ+Ebzw/bXnwwu/CNjYatd2f2m8vpZZJF2eRNLGqAbQ WkdeWGARkj2H4U+G
dU+FP7OXhvSLHw3C/iPR/DkQbQ4JooFnv1gDSRmUZQNJNu3ScjLFiTkk+nUU m76DsfGH/DG/jH/h
SH9o/wDCaaz/AMLR/tT/AIT3+zvs+n/Yv+Ehxv248v8A7ZZ87yt3z7NvyVi/ FD9nb4h/Eix+PuuN
4FhtPEfjGx8MDSYGv7WWVGhED39us28YVHiUEnaJDEpUHAr7pop8zCyPi/43 /s9eP/GH/DS/9k6D
9r/4TH/hGf7E/wBMgT7X9k8v7R95xs2bT9/bnHy5rO+MH7K/inW/+Ghv+Ec8 G2f/ABP7Xw3ZeF/I
ktYd1va+R9qhjyw8lF8hPlbaG8tMA4FfcNFHMxWPj/4zfBDxfrXjv4zX0fhX WNfg8V6Da2WgXPhv
WItNihmS1middRQ3Nubj946kGRZx5ZCg4GwbfwG+E3jTw98XPA/iDW/Ds2j6 bpfwrtfC10891byM
l/DdqWQCKR8qyJvVhxhgDhsqPqWg0cztYdjwqw8PfEDxx8BfhX4W0Pw5q/iH 4ZalqevHxxb+HL+1
s9SuLZL2b7PZpJcTw4hnkZlm2MHMaFQ6hiH9d+KXwy0jxrY/CzWL/wDZy/4S qy8Pi8sovDV1f6fF
caDA8IjQpZGf7Bcxt5EQ2mcGIGNkUsGCXNA+JXhXwppMGl6RfaLpunwbvLtr fUnRFLMWY4E3UsSx
PUkknJJrQ/4XZpH/AEHNL/8ABrJ/8erfn8jPlPG/Av7NWteGfgT8BtO+J/wj g+M/iHwnDqFvdW7a
3DLNo8VzvaFFt7p0tbtURYIGDygQmNDD5gGR69+yP4Q8dfBn9n/4X+AvGml3 +ra7HZ3Meoajb3sF
xb6Qgd5Le3maSVZG2xvHAogSVFMeMhArGb/hdmkf9BzS/wDwayf/AB6j/hdm kf8AQc0v/wAGsn/x
6jn8g5T56/Zv/Zc+JvgzxT+ztpWv+Gv7KsPhR/wlf9p65JfW0lpqf293W2+x LHI0xyJA58+KHAU/
xYUr+zZ+y98TfBXiz9nTS9f8Nf2XYfCc+KjqeuSX1tJaan9vd1tvsSxyNMch 958+KHAU/wAWFP0J
/wALs0j/AKDml/8Ag1k/+PUf8Ls0j/oOaX/4NZP/AI9Rz+Qcp71RXgv/AAuz SP8AoOaX/wCDWT/4
9R/wuzSP+g5pf/g1k/8Aj1HP5BynvVFeC/8AC7NI/wCg5pf/AINZP/j1H/C7 NI/6Dml/+DWT/wCP
Uc/kHKe9UV4L/wALs0j/AKDml/8Ag1k/+PUf8Ls0j/oOaX/4NZP/AI9Rz+Qc p1fxD/4/W/6+X/8A
RMFchS/8JxYeMHMNle2V5JAGnkFpcmZ8HYpZsuxxwgz05HrSVhLV3NFsFFFF SMKKKKACiiigArO8
Q6Xc61o9xZ2er3mg3Em3bqGnpC00WGBO0TRyR8gFTuQ8E4wcEaNFAHzJ8Opv Hfi347/FvwXefFTx
LHpfhH+yfsMsNjpImk+1WzSyeaTZEHDKAu1VwOuetdXrv7W3hjQIfFGpSaHr 914V8MayNC1jxNBF
b/ZLS63xRyAxtMLh1R5kDFIWzgldw5PV+CPhD/whvxe+JPjn+1ftf/CY/wBn f6B9n2fZPssDRff3
Hfv3Z+6uMY5615l4l/ZBu9d0Lx74Tg8Yw2vgjxp4j/4SPUrWTSTJqMcjSwSy xw3InWNVLQfKWgYq
Gwd5GTWjZOpPZftTX+lfEb442HiTw1eQ+Fvh9a2l3DPp9ss91IskRdhIqTNu 8z78bBVVI1YzNGRV
fUv2wdB8ZeDfiTZeFZZ9L8X6F4TvNftGa4sb+MrHG4EiyWs9xFuSQR5jkIJD qdrKTjS+JP7I9p8Q
tR+Kr/8ACSTWFj8QbDT47yEWgkltbyxI+zzRvuAMRCqHiKlmOSsiZwKniT9m HxX418b6/wCJdb8c
6MbjWfB134Mmg0/w5LCiW8xd1mXdeud6yMCc8MoK4UncH7oanpHw0+IkJ+An gvxl4x1uzsTd6Fp9
7qOqX8kdrD500MZLMTtRNzvgAYGWAA6Cuq8LeNPD/jrTZb/w3rum+ILGOQwP c6Xdx3MayAAlCyEg
MAynHXDD1rF+HHgjVvh/4d8MeHDq9lf6FomhW2l7P7PaO5muIUVPP8zziqoV X/VbCQTnzCOK7PaF
U4AH0qGUeM/DDStLt/hr8N7LTPgfovxE8SeKNS1sXOuaxZLFp+nxW9zcNuvL 1ba4dGfEccSlCGII
3LtANDw98Z/h38QtM+BD+Dv2fPBd1qPxTh1cxQa79nsodOl04fv1aSOzmMis VkCMEUkKhKruIVbD
w98QPHHwF+FfhbQ/Dmr+IfhlqWp68fHFv4cv7Wz1K4tkvZvs9mklxPDiGeRm WbYwcxoVDqGIf134
pfDLSPGtj8LNYv8A9nL/AISqy8Pi8sovDV1f6fFcaDA8IjQpZGf7Bcxt5EQ2 mcGIGNkUsGCdpznK
/ER9D8A+OfhN4F/4Z++Gl74x8e/2r+7+1pHp9j9ijWb/AI+P7OMkm+Nv+eK7 WGPmHzV7V4Y+A/gi
60C3n8R/CjwHpesEMZ7TS7KG9t0wx27JntoWbK7ScxrgkjkDJ+d/Av7NWteG fgT8BtO+J/wjg+M/
iHwnDqFvdW7a3DLNo8VzvaFFt7p0tbtURYIGDygQmNDD5gGR69+yP4Q8dfBn 9n/4X+AvGml3+ra7
HZ3Meoajb3sFxb6Qgd5Le3maSVZG2xvHAogSVFMeMhArEA8V+Dnxj+F3xU8U /DS3n+AfhPSPDnxK
/tv/AIRrUI4La4ux/ZrkP9ttzbIkG9FZh5cs2Gwp4JYL8GvjF8Lvit4r+Gdt P8A/CWkeHPiWdbHh
nUI4La4ux/ZrkP8Abbc2yJBvRWYeXLNg4U8EsMn9m/8AZc+JvgzxT+ztpWv+ Gv7KsPhR/wAJX/ae
uSX1tJaan9vd1tvsSxyNMciQOfPihwFP8WFK/s2fsvfE3wV4s/Z00vX/AA1/ Zdh8Jz4qOp65JfW0
lpqf293W2+xLHI0xyH3nz4ocBT/FhSAfX3/DPnwu/wCib+Ev/BJbf/EUf8M+ fC7/AKJv4S/8Elt/
8RXoFFAHn/8Awz58Lv8Aom/hL/wSW3/xFH/DPnwu/wCib+Ev/BJbf/EV6BRQ B5//AMM+fC7/AKJv
4S/8Elt/8RR/wz58Lv8Aom/hL/wSW3/xFegUUAeYax8PfC3gSyu/+Ea8N6T4 f+1Wx+0f2XYxW3nb
Zotu/Yo3Y3NjPTcfWuQr0/4h/wDHk3/Xs/8A6OgrzCuap8RtHYKKKKzKCiii gAooooAKKKKACiii
gAooooAKKKKAL/h/UoPCukQaXo+nQabp8G7y7a2mnRFLMWY4EnUsSxPUkknJ JrR/4TO8/uf+TNx/
8crn6KfMxWR0H/CZ3n9z/wAmbj/45R/wmd5/c/8AJm4/+OVz9FHMwsjoP+Ez vP7n/kzcf/HKP+Ez
vP7n/kzcf/HK5+ijmYWR0H/CZ3n9z/yZuP8A45R/wmd5/c/8mbj/AOOVz9FH MwsjoP8AhM7z+5/5
M3H/AMco/wCEzvP7n/kzcf8Axyufoo5mFkdB/wAJnef3P/Jm4/8AjlH/AAmd 5/c/8mbj/wCOVz9F
HMwsjYvvE1xf28sUkSfvF2b2klcgblbA3OQMlR27Vj0UUm7jCiiigAooooAK KKKACiiigAooooAK
KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP//Z
------=_NextPart_000_0035_01C721ED.C90EE1F0--

Attached files

PILO · Mensaje por **PILO** » Dom Dic 17, 2006 9:59 pm

Esto es lo que tengo en todos los controles del anterior grafico
--

PILO · Mensaje por **PILO** » Dom Dic 17, 2006 9:59 pm

Se me olvido ponerlo esto es:
METHOD CkilosChange( oSender ) CLASS TFAnimales
if oSender:lChecked
oSender:cText := "Valor dado por Kilos"
WITH OBJECT ::oDBMPREKI_CO
:lTabStop := TRUE
:lEDitable := TRUE
END WITH
WITH OBJECT ::oDBMPRECIO_CO
:lTabStop := FALSE
:lEditable := FALSE
END WITH
else
oSender:cText := "Valor dado Animal "
WITH OBJECT ::oDBMPRECIO_CO
:lTabStop := TRUE
:lEditable := TRUE
END WITH
WITH OBJECT ::oDBMPREKI_CO
:lTabStop := FALSE
:lEDitable := FALSE
END WITH
end if
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBMPESO_COExit( oSender, oNextCtl ) CLASS TFAnimales
IF ::OCkilos:lChecked
if ::oDBMPREKI_CO:VALUE > 0 .and. ::oDBMPESO_CO:VALUE > 0
::oDBMPRECIO_CO:VALUE := ::oDBMPREKI_CO:VALUE * ::oDBMPESO_CO:VALUE
::oDBMEURO_CO:VALUE := ::oDBMPREKI_CO:VALUE * ::oDBMPESO_CO:VALUE
END IF
else
if ::oDBMPRECIO_CO:VALUE > 0 .and. ::oDBMPESO_CO:VALUE > 0
::oDBMPREKI_CO:VALUE := ::oDBMPRECIO_CO:VALUE / ::oDBMPESO_CO:VALUE
::oDBMEURO_CO:VALUE := ::oDBMPRECIO_CO:VALUE
END IF
end if
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBMPREKI_COExit( oSender, oNextCtl ) CLASS TFAnimales
IF ::OCkilos:lChecked
if ::oDBMPREKI_CO:VALUE > 0 .and. ::oDBMPESO_CO:VALUE > 0
::oDBMPRECIO_CO:VALUE := ::oDBMPREKI_CO:VALUE * ::oDBMPESO_CO:VALUE
::oDBMEURO_CO:VALUE := ::oDBMPREKI_CO:VALUE * ::oDBMPESO_CO:VALUE
END IF
else
if ::oDBMPRECIO_CO:VALUE > 0 .and. ::oDBMPESO_CO:VALUE > 0
::oDBMPREKI_CO:VALUE := ::oDBMPRECIO_CO:VALUE / ::oDBMPESO_CO:VALUE
::oDBMEURO_CO:VALUE := ::oDBMPRECIO_CO:VALUE
END IF
end if
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBMPRECIO_COExit( oSender, oNextCtl ) CLASS TFAnimales
IF ::OCkilos:lChecked
if ::oDBMPREKI_CO:VALUE > 0 .and. ::oDBMPESO_CO:VALUE > 0
::oDBMPRECIO_CO:VALUE := ::oDBMPREKI_CO:VALUE * ::oDBMPESO_CO:VALUE
::oDBMEURO_CO:VALUE := ::oDBMPREKI_CO:VALUE * ::oDBMPESO_CO:VALUE
END IF
else
if ::oDBMPRECIO_CO:VALUE > 0 .and. ::oDBMPESO_CO:VALUE > 0
::oDBMPREKI_CO:VALUE := ::oDBMPRECIO_CO:VALUE / ::oDBMPESO_CO:VALUE
::oDBMEURO_CO:VALUE := ::oDBMPRECIO_CO:VALUE
END IF
end if
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBMPRECIO_COCreate( oSender ) CLASS TFAnimales
oSender:oDataSet := ::oParent:oDbfEntraBajaTMP // cojo los datos del anterior formulario
IF ::OCkilos:lChecked
osender:lEditable := .f.
osender:lTabStop := .f.
ELSE
osender:lEditable := .T.
osender:lTabStop := .T.
end if
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBMPREKI_COCreate( oSender ) CLASS TFAnimales
oSender:oDataSet := ::oParent:oDbfEntraBajaTMP // cojo los datos del anterior formulario
IF ::OCkilos:lChecked
osender:lEditable := .t.
osender:lTabStop := .t.
ELSE
osender:lEditable := .F.
osender:lTabStop := .F.
end if
RETURN Nil
//---------------------------------------------------------- --------------------
--

Mensaje por **jfgimenez** » Lun Dic 18, 2006 12:58 pm

PILO,
por favor, envíanos un pequeño ejemplo que podamos comprobar.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--