cPicture en EDITOR

zeasoftware · Mensaje por **zeasoftware** » Vie May 29, 2009 11:03 pm

Quiero asignar a una columna lo siguiente:
"999,999" + GetDecimal()
Pero me asigna:
'"999,999" + GetDecimal()'
Me toma todo como una cadena, y no quiero que lo tome asi si no como:
cPicture := "999,999" + GetDecimal()
Alguna sugerencia?
Gracias de antemano.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

Mensaje por **jfgimenez** » Sab May 30, 2009 2:40 pm

Ramón,
Quiero asignar a una columna lo siguiente:
"999,999" + GetDecimal()
Pero me asigna:
'"999,999" + GetDecimal()'
Me toma todo como una cadena, y no quiero que lo tome asi si no como:
cPicture := "999,999" + GetDecimal()
Esa expresión es correcta, vamos, siempre que la función GetDecimal() devuelva una cadena correcta. Revísala bien, o muestra todo el código.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--

zeasoftware · Mensaje por **zeasoftware** » Sab May 30, 2009 8:56 pm

Éste es un mensaje de varias partes en formato MIME.
------=_NextPart_000_0027_01C9E12E.5F4432E0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0028_01C9E12E.5F4432E0"
------=_NextPart_001_0028_01C9E12E.5F4432E0
Content-Type: text/plain;
charset="utf-8"
Content-Transfer-Encoding: quoted-printable
Anexo la imagen de lo que quiero hacer, al parecer no me explique =
bien....
No lo ingreso desde codigo en el IDE, lo hago desde el Editor de =
Propiedades como se ve en la imagen, pero me encierra todo lo de la =
celda cPicture entre comillas.
Gracias.
--=20
Ram=C3=B3n Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
------=_NextPart_001_0028_01C9E12E.5F4432E0
Content-Type: text/html;
charset="utf-8"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dunicode" =
http-equiv=3DContent-Type>
<META name=3DGENERATOR content=3D"MSHTML 8.00.6001.18702"></HEAD>
<BODY style=3D"PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: =
15px"=20
id=3DMailContainerBody leftMargin=3D0 topMargin=3D0 =
CanvasTabStop=3D"true"=20
name=3D"Compose message area">
<DIV><FONT size=3D2 face=3DArial>Anexo la imagen de lo que quiero hacer, =
al parecer=20
no me explique bien....</FONT></DIV>
<DIV><FONT size=3D2 face=3DArial>No lo ingreso desde codigo en el IDE, =
lo hago desde=20
el Editor de Propiedades como se ve en la imagen, pero me encierra todo =
lo de la=20
celda cPicture entre comillas.</FONT></DIV>
<DIV><FONT size=3D2 face=3DArial></FONT>Â</DIV>
<DIV><FONT size=3D2 face=3DArial>Gracias.<BR>-- <BR>Ram=C3=B3n=20
Zea<BR>01.993.231-62-29<BR><A=20
title=3D"http://www.paginasprodigy.com/zeasoftware/
CTRL + clic para =
seguir el v=C3=ADnculo"=20
href=3D"http://www.paginasprodigy.com/zeasoftwa ... aginaspro=
digy.com/zeasoftware/</A><BR><A=20
title=3D"mailto:zeasoftware@prodigy.net.mx
CTRL + clic para seguir =
el v=C3=ADnculo"=20
href=3D"mailto:zeasoftware@prodigy.net.mx">zeasoftware@prodigy.net.mx</A>=
<BR><A=20
title=3D"mailto:zeasoftware@hotmail.com
CTRL + clic para seguir el =
v=C3=ADnculo"=20
href=3D"mailto:zeasoftware@hotmail.com">zeasoftware@hotmail.com</A><BR><A=
=20
href=3D"mailto:ramonzea@yahoo.com">ramonzea@yahoo.com</A><BR><A=20
title=3D"mailto:zeasoft.movil@hotmail.com
CTRL + clic para seguir el =
v=C3=ADnculo"=20
href=3D"mailto:zeasoft.movil@hotmail.com">zeasoft.movil@hotmail.com</A><B=
R><A=20
href=3D"mailto:dirza_com@hotmail.com">dirza_com@hotmail.com</A></FONT></D=
IV></BODY></HTML>
------=_NextPart_001_0028_01C9E12E.5F4432E0--
------=_NextPart_000_0027_01C9E12E.5F4432E0
Content-Type: image/png;
name="Picture + Funcion.png"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Picture + Funcion.png"
iVBORw0KGgoAAAANSUhEUgAAA5QAAADRCAIAAAA8KWpdAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAATi9JREFU
eF7tnXmQVdW978lft+rmpjov9eq+90dXqlJUbkyVyTX3xgzqjY97k2s0UXFA BRUQBI2CARkamkEa
44CCgtIoARQN4MTkPCDQKtIKtG2DoOIIMrZiQwPGAb3vd87qs3qdtdZee+29 195n732+q454ep81
ftf0Ob/z22t/a8SIEVOmTJk7f/H/+d/fHjBgQI/YwgsvvHDqqafGln2FM85f 6/LXogoPERQPBRJU
APNXEjtnglg257777qNt/ZYZc8aOuooE+dnPfnbTTTctWrSIi9M27m+7/uN7 p59++ve+971/+qd/
+sd//Ef69x/+4R82bNp86cV9vv3tb0+YMGHYsGGtra2U5Ouvv/7qq6+OO+64 UaNGfec73/noo48e
eughltUZZ5xBmW/atOmvC5bEzRIJTiP3RX3rW9/6n//5H/f5ZiTHL7744t57 7+3fvz+J8PXX39CI
+uYb+vebg4cOHfvqWDF8/eWXX1K0mprvrG9e1+f8Pvfe/wgbvYcPH6YxRkNx 1apVheYSvB48eHDa
9MaFCxdSdvGFpqam+DKveM75a13+WlTxQYIKQIHEFMD8laTOmSCWzWHbOu3v TI0TTjjh6aefvlgI
x2/55rvf/W7fvn2vvvrqurq6hoaGGTNmzJ49u//AoYQI69ev79Wr17JlyyZN mjRx4sTx48ePHj16
/vz5NTU1tbW1lOGDpdDZ2dmzZ8+Ojo4EWCKxSRRHQQRdcWSblTw///zzu+66 6+jRo0eOHDl0qPPT
Tzs++eTA/v0fv7393a1b32pre6Olpa25eWNT07rW1rbGOY3t7e189LIxRv/S gKQgwytljQAFoAAU
gAJQAApkXQHAa9qoDvAaF7y+bx3eK4UdO3a89NJLixcvpq9rFBqFoF4RP8V7 KAAFoICvAmwZ4YGW
GlpwaNlBgALVrMBOi+AWXuvr611ZXiWGC410oRNWCmrVCvfoMUV8RakYy0fK QXtRW4p9zNCVjNHy
ajEd5Ci7d++m7WTXrl1kByanBAQoAAWgQHwK0AJECw4tOwhQoJoV2FMe9u3b R7+xHjhwgPwA6adV
2o7pz7jhlXxemeNAULcBwCvjP4kXQ+CjbxLfCJxE7WOmEV73Wgc+cWiGzJkz h5wYDh8uwGtnZ/eL
fBroJV7BeygABaBAIAXYMkKvgwcPfVoIHXPnzqVlBwEKVJUCH+vCJ6VA2Epz g5ErbcSJwSvjV8Cr
Jc8p1K6xlVpmpcVfNa09ktrHDFRDMXKMltf95YGWBnaBZsWhQ4WdQ4pAf9Kc ISeGI0cIXg9THJo8
CFDASwFaV2mo0Ev7BrpBAYMChK3t7bRXH5g3bx4tOwhQoJoVoO2YWVjp38JX uo4Omju0BZvh9amn
ngp9wxa5DYwZM0a8YYvI1RJe+d3wJeQqu29JRDopZtE82RUEG2H33fU8Q3ZJ /DM0Y8WX0B5eVV8C
rYMBvyjZcc2RRe8Ch34LvrolDa+MXPv06UP/esErfdMr2kUK947hBQW8FCBm Pfmkk4YOGSK9mdrQ
QFegGxQwKEDkunfffvpGDXitZmhD25kCtC8TudIBAoxf7eG1X79+nF8DnTbg Ba/Er2bLq8SmIo8a
oFbnHlpgU21uItdKcXyJKskI9vCq/pqv5VTRXMrfay+KzbSP6VacROGVkesP fvADOkfDCK+HP+04
SBtPe/vHeEEBLwXILjB40KD7Fi6U3qxcsYKuQDcoYFCAwHX3nr2AV9AbFODw +sMf/pDsSoxfbSyv
Tz75JB2Mxfk1eXg1W16l40olqyojP18Uzge8qgZRe071glfLPN0Ca2XcBhi5 fv/736dDjBcsWGCA
VzKb0VdB2nj27duPFxTwUoCW13F1dY8++qj0Zs2aNXQFukEBgwJ79uzdtWs3 /fgDyyvoDQowyyvB
Kz2GgH7NL952UvDcM7sNELxeeOGFxK/M+JpCeJXIKZydNbWnEFhaXiNyasTk eYBXmgY/+clPTjzx
RDqdePny5QZ43b+//cMPd2zf/u62bW/hBQW8FCD4YPAqvSF4pSvQDQoYFHjj jW2tr29+e/t2wCvQ
DQoweKXnXdHuTD/cL126lPjVF16feOKJCy644KKLLmLG1+ThVbWeiobSoKhq sMXGR2BRcjbDq/nX
/IhIap88SgPNaZNzG2CWVxri06dPpydzGOCV7CXvvffBm2++vXnzVryggJcC O3Z8xOBVekPwSleg
GxQwKPD661s2bXqNFhnAK9ANCjB4PeWUU+jkOHouq6Xl9fHHHz///POJX5nz gCW8Tp48mZ6wFdrn
Vb3pynBUVqDbs6Q7tMQ/4yOwKDnrHHmnaM95tf+J34C8opssv6PL5mKUNhrS Jgev5F7G+PXGG29c
u3atAV737t1HZtctW7a99lobXlDAS4H33/9w1syZq1evlt40NzfTFegGBQwK bNzU+sorG7dtexPw
CnSDAgxehw4dSluzvc8rweu5555LbrLkPED218TgNSYYyly2qfVnSEZJJ/BK XgCax8Nqj8pi/EpH
bBjgldzR3nxze2vr5g0bWvCCAl4KvPvu+3Rv1oYNG6Q3bW1tdAW6QQGDAkSu 69Y1k/MA4BXoBgUY
vNKPooFOG3jsscd69+7N+dUeXidNmqRaXh9++GF2WlbQc16TQaUUlgJ4jf54 2ADwanPO686PdpHJ
5OWXX6XdBS8o4KUAfb1566136KV9A92ggEGBF19cv3btS5u3vAF4BbpBgXDn vJLL1llnnUX8et55
55HzQHR4ZfwKeLUEZcCrE3glfu0xYsQIust72vRG9hw5r4cUqMe78ivsIQVk NmtqWrdmzQvPr27C
CwpAASjgWIHnm1atWvvcc2va2jYDXoFuUKD4tLnuYHnO68qVK88888yzzz77 nHPOIefXQPA6YcIE
6SEFRK6AV0ts1Z4RFihtDiK7chvQwCt/1pzvG/6kOpozjzzyyIYNG+l2ipaW 1+mOCrygABSAAjEp
sH79K/fffz8tOwhQAApwBcRDXg2PhyV4/eMf/0jGV+JXch5wAq/Er6LldQqC twLM8lq1CsUIr+qX
OemK+ifNmdbWVgLhexCgABSAAjErsGjRomeffRbP0YUC1aYA3XNiDuyEV0au FOh+a/aDKv2yyox2
9Dgugtc//OEPjF/JeSAOeGWFImgVgNtAXG4DNNwRoAAUgALpV8Dgy4SPoED+ FAgxJQ3wypwHAK8J
QzbgNRZ4pYGOAAWgABSAAlAACuRDAa3llRlfiV8Br4DXJBWIxW0gyQagLCgA BaAAFIACUCABBVS3
AYJXxq+A1wT0F4uA5RWW13x8K0YroAAUgAJQAArEpYCX5ZXxa0R4pXu12YED QY/K4o/RYm+q5058
r8fDqs9uFa+QPr5P4fJwse1+fBePYJmV9sFdgVhffUhYLJZXmjprW97BCwpA ASgABaAAFMiHAqmF
V3t7ZJ6slb7wqlIsJ9cS4hd41OtiuapdMcXIIfKXMNqSX7XwDXgFZEMBKAAF oAAUgAI+CsQNr8z4
GsLyCnjVMmUIuJRAVrKw2iCvuVAn8MqqEQu8WtI0okEBKAAFoAAUgAJZUcDL 59WJ24AlvHI/Aa2H
ALNHiv4DkjuBFIFHVqOl3EzrW730wKvN8DZwrfajJOA1Lgcc5AsFoEDlFJDW o8pVBCVDASgQlwLS
NI8bXolfzZZXkdg4hopuryLRaiOryKvyrmBx7HKitcGvhOP4wis3o3KHUdF0 anOx3KTd7fPKnA0C
5e8rjg28ip6vccGr9N3It96IAAWgQOYUwDTPXJehwlAgqALiNE8VvGotr17w KkU2c61Kw0FFSyC+
DbwKFN7ttBriokqxUgO16GnpJCDdjMXJ2KueLH7a4ZW+hCUwCFJYRA4anoMm xDcw8iEO4DW+EYKc
Y1IgH1PPiTiWUlQhvDqR13kmIlKLTg42BdnDpS9xOszKl4lLXznKyBvwatPj FYtjuaxUrH4WBeeg
CRatDBklH+IAXkN2P5JVToF8TD0n+llK4QWvjz76KDsky9VRWeQzEM5tQFXD 4NiqmmBT4jagsql0
RTF2+rg05NLnlZtp47K8OplalInl7HJVXHryyUHDc9CE+MYDxIlPW+QMBQwK YOpxcUJIIboNVARe
qfLSd2btr+f8ovoFW/qIZcj/5Wgb1LTpO+mCsqlNhhZxuh1VeWTLw1mLmnSb PIOm8rXg+lZejKC6
FsQCr+whyE7CoUOHnOSTuUxy0PAcNCG+YQNx4tMWOUMBgwKYelycQFKwbV2C V3qwVlDL66RimDBh
wpgxY+bPn19TU1NbW0s5M7Orr+U1tWPbOZv6tjSQz6tvbmoEt/QZogLmJIBX 55K6yTDQsuKmSNe5
5KAJriXpzg/ixKctcoYCgFebMRBoFfKCV+JXhrCWT9jKKLwmz6a+PRg3vPpW oLIRAK+V1d+z9EDL
SjrbkIMmxCcsxIlPW+QMBQCvNmMg0CrkCl4nFkMKLa9mPLXRM+E4gNe77rrr 6NGjR44cOXSo89NP
Oz755MD+/R+/vf3drVvfamt7o6Wlrbl5Y1PTutbWtsY5je3t7fx3A3YcG/27 vBh6jBgx4uDBg/Sx
Q7cByjDhAZGS4nLQ8Bw0Ib7BAHHi0xY5QwGDAph6XJxAUpjhlYyvlpbXSsFr Ck2nEecp4DX/8CqO
2hDDRR0iNoPGJk70FVYqxVCob0zLCltGo6YFWhlD9AtLYuhcgyO/fStCV8yc MBlxYqp8FrONuAho
mxxiFIVIkkW101znWKeeREghdEhyhASSwgm8Ll26lGyuxK/19fU2Pq9TrIMv m1rnlJmIbKhkprqu
K5p2t4GOjo4Q819M4gttXvnbg6CrjU3Mx7LhDltnuWhaRqO2WDYhSv8amu9V T/v6R6mYb9oExPGt
Q1VFEPu9UmOgUuVWVUf7NjbWqRd6QfatdhwRAknhEF6JX8ePH28Dr/xXXF82 jUOflOdZ5etJjPD6
1VfH/v75l1Fex459vXdfe8R8qIPD1cGQ0CZPmzheFbNvuFSKfaFsLeAVkP40 KGZZhH0TwvUOS2VZ
GbGIEEmi1FCbNhlxnFc70xmGnimZbjUqLykQ99TL0DALKoUTeKXDBMjmSmHc uHGjR4/mpw2ATUOA
MuA1LreBiNBJi05xdu2PmI8XrPDZImKQyHD8Pc9BnGA8lZYC7VnQG26sGu61 VrLrUnMkhjPAqyQO
z8q+XU76znfrtexctf6B+tS3GkEjJCNO0FrlO76BKrxGu/TVThoz/LuTuiyI 482QiTRD861/SloX
99TTDjN1W1HXXnF0eW0ubjUMKkUUeLVh06wflRWCPiMmAbzGBa9ffnXss79/ EeVFs2v3nr0R86EO
NteBRWCzi8XkV7R/8ghitlISbRx7KewbLrVObIJXc9RGadtr33Ztu+ybYC+L GlPbueJFr34xXxfb
HqV6XmmTESeOmmc3T8NM4Y2ynPiGmWU/rtQFJ7vaZqjmcU89idKklSTK0uRc 5KBSaOH1zDPPpFu1
fNl01apV69ev79WrFxEqOQxQqKurGzVqlHjOK7nDZvqc14gkGiI54LVK4VWc bxJrWu5hHHn5PqSu
TeFWHPtlJcSWbAOvvuL4tsu+Cb5ZGSIAXqOoV1VpzV/z+IBXv7eoYywQvHpl 6GqtqKpOjN7YuNcl
84qkoq3X6EpgeNhL4cum7KhXm9MGGLySz8DYsWNdwatUPXsKlOAvcyyYuQrb d41NzBh9XiNaTGmd
+vrrr3ft3hMxn4h8w7nW/ktzdLudfcMjwqtI7dKWLO4TIVZS+yZE2ZAidq5N n0apnlfaZMSJo+bZ
zdNmpmjHPOA1u52u1jzuqecLr1KVKgivXApfNmV19rK8kvGV2V8t4ZXIlcHr tddeK1lemfGVncFJ
N5MFOnYzBMmxJCES2qBVAnGyW3Mn4sQJr19+dfSzz6O8jn399Ue79nwZLR/q YLEO7E/xou8V3wg8
QzXbcM23b7i2db4NFCPwHNQ3Udpl34RwErFUETvXZhhEqZ5X2mTEiaPm2c3T a24axoDvxPeNYJhB
rtaK7PZIRWoe99STViRpmbJZcLwGVWi5fNnUMmczvBK/OoFX4lfAqyXbAV5j cxuIBp00o1wtNOLs
5RNVuqjdS6R1RM3H5orl0iBGC9Rwr9aJLVU3UXWRlRRg2drIpW1goCaEkMir Yny3sKy/oQej1Mqc
NjFx4mtC5nLWThPzaFHHmJZFzMuLbybqd7DMaZuhCsc99czwyvraa2lSR5cU U6tzaDYNKoUKr489
9hgzu7IQCF7pnKyRI0fOmzevpqamtraWcI2wlQVfeOVNNpyJyUyqLPBo0hX2 EY8j/ikltKTJhKOJ
TUu46DQUF6Pl9Ysvvzpy9O9RXuSUs2Pnruj5RKlDRdLmoOGZawItBIn1debE SUyZLBaU5MjJoj6p
qnMWp54ZT0PLG1QKLbyeddZZoeGVHskZAl4lGBXB1ItlOZVKkaXrXtHSAGra OgBe47K8fv7Fl4eP
fBblRbPrwx0fRc8nSh0qkjYHDc9EE8RdIcmOzoQ4SQqS6bJoFGW6/lVV+RRO PV/TaUwdFFSKFMKr
wfKqMq7XFX4d8JpaTNdWLEbLa3ToDDq7YprkyWebg4bnoAnx9TvEiU9b5AwF DAokP/Uqxaa+wyCo
FF7wyo2vQd0GolteAa/Zwk23tY0TXj//svPw0SivY8eOffDhzs8j5xOlDhVJ m4OG56AJ8XU9xIlP
W+QMBQwKOJ96vmya2u4IKoUBXhm/Jg+vXi4E0hkCcBtwS40pyS1GeP37518c 6jwS5fXVsWPvf7Aj
ej5R6lCRtDloeA6aEF/XQ5z4tEXOUMCgQNCp58um2VU7qBRxw+uyZcsqcsMW J13csJUSKrWsBuA1
El7HtHIFXVZiqkaUbHPQhCjNN6eFOPFpi5yhgD285phNfYdB0FVIC69nn302 mV1ZiGh5JXhl/Op7
2oAl3ISLlqG7oDJU1XB9YU4VI7xuRYACUAAKQAEoUCEFfNm0QvXKZLGA1zgI LEqegNe4Thv4ykX4
kh5RUJUhBw3PQRPiG3oQJz5tkXOVKODLplodMPW4LIGkSAZeyfhaWctrFJpM OC3gNS54PRg5sNlC
BwlX1Yua3NTUlPA0cF5cDprgXBOeIcSJT1vknBsFfNk0REsx9UKvQl7wSp4D zHnAidsA4NV+VANe
MwCv9t2Z9ZjsaSA5WGFz0IT4xhLEiU9b5JwVBeJgU9+2Y+plC16nIHgrwOC1 ahWK0ec1suH1ILe8
+i5JuYkAeM1NVxoagh20Gnq5yttYETb11RxTLyZ4JeMrLK++w89tBFheYXl1 O6Ii5QZ4jSRfRhJj
B81IR6GaJgXMeJpO7TD1HMLr448/3rt3b+Y2AHhNfsADXgGvyY86zxIBrynq jNiqgh00NmmRsTMF
0mk6jdg8TD3Aa8QhlJ7kgFcOr0eOHKXX4cOHDx3q3Lt3/65de3bu3PXBBzu3 bNnW1LSutbWtcU5j
e3v7tOmNrPvYTYH07/Ji6EFPeyNXAfqY/dwPt4EQoxzwGkK0zCXBDpq5Lstf hXPJpr7dhKnnHF65
8RVuA77Dz20EwCuH188++/vJJ500eNCgcXV17DVr5syVK1a88877gFe3ow6W 14T0TGcx2EHT2S95
qlV1sqlvD2LqxQGvxK8UkoFXTmziCPftdx5Bmhd0XX14rH1ulY3pBa89ekwR X5WtZHylizdsEbwO
HTLkvoULHy2F1atXb9iwAfAan/5yzrC8Jqd15UrCDlo57XNSMtg0XEdi6qUW XunXW/aQLfM5r1rW
tLdBegNf4c59+3zCDT+3qcy1JX51W1zachPhFW4Dle8dwGvl+yD+GmAHjV/j bJcANo2p/zD13MLr
OcXgxPIaBV7tRwvg1V6rlMeULK9wG6hwfwFeK9wBiRSPHTQRmdNbCNi0Un2D qVdxeB0/fvy4cePG
jBlDN8nMmzevpqamtraWasVunQlneeWN4jOLXeFmWtHZQBp7oimXJedp1T8r NW615cLyKvq8wm2g
woMT8FrhDkikeOygichcsULAphWT3q9gTL2Uwyvxawi3AbXbvbBV9ZSV4FWk XomA/QZX0p8DXnHa
QNJjzlAe4DVFnRFbVbCDxiZtEhmDTZNQOZ4yMPXigFfmOWB5w5bZ8hoRXiU2 FfHO68YsL3g1ZBXP
2AycK+AVpw0EHjTxJQC8xqdtenLGDpqevtDabMx4mubKo25mBTD13MLrueee y91eA8Hr2LFjR44c
qboNRIFXM6oGhVdpIKXwXi7AqwivUxsa6GysNaXQ3Nzc1taG0waS2xEAr8lp XbmSsINWTvuCGxzY
tIL6V7ZoTL2Y4JUQtoLwqoKpzRXVK0DrGutFvZUdyVQ64BVuAxUfhN0VALym qDNiqwp20NikLWQM
No1V3kxnjqnnEF6feOIJsrxy42uS8CpNc96oiG4DIhHyrETGTdXgl+BVOhvL /GeqGhKuMuJpA/Rg
rU8/7fjkkwP793/89vZ3t259q63tjZaWtubmjXhIQTh5A6cCvAaWLIMJsING 6TQ/y2nXzcJRikDa
vCqAqRcHvDJ+TQZe8zoyQ7QrhZ4MIVoROgngNbR0sSQEvMYia8oyxQ5q6BCw acpGa66qg6nnFl7P
O+88ZnylAHhNeKoAXrnbACyvCY89TXGA18r3Qfw1qOYdFGwa//hCCZ4KVPPU k0QJKsXChQsph2nT
G1k+J5xwArkNELyyAHhNftYBXgGvyY86zxIBrynqjNiqEnTbiK0i7jMGm7rX FDm6UyDHUy+oSEGl
cAKvS5cuZUdlhT5tIGgzcxwf8Ap4TdHwBrymqDNiq0rQbSO2igTOGGwaWDIk SJMC2Z16zlUMKoUW
Xs8///xAlteg8DoFwVsBBq9VqxB8Xp2vCZEyBLxGki8jiYNuG4k1C2yamNQo qCIKpHbqJa9GUCnM
8EoIa+PzSvBaX18Py6uT7oblFZZXJwPJTSaAVzc6pjuXoNuGq9aATV0piXwy qkClpl4K5QoqhRe8
kvGV2V8Brwn3MuAV8JrwkDMVB3hNUWfEVpWg24ZlRcCmlkIhWtUqENPUy6Ke QaVQ4fXJJ59k5BoU
XsntFT6v0ccM4BXwGn0UOcsB8OpMyhRnFHTbYE0Bm6a4S1G1bCgQbuplo20B axlUCi289unTB/Aa
UHhn0QGvgFdngyl6RoDX6BqmPwfttgE2TX/HoYZZVyAosWW9vYb6B5XCDK+E sPZuA1Esr/xhrdLD
tBz2lLQUO8zZbVZe8ErP1hJfbgtNT264YSs9fcGsa4V/gy4r6WpDsTY5aIJz VfHYUueSIkMoEEgB
rEtcrqBSeMErGV+Z/TUovF577bXz5s2rqampra2lWq1YsWJ5MXR2dvbs2bOj o4POlGWFioHDq3ox
0EhQI3MWDGfRDJcqSp3NJUqPh41SUDrTAl7T1S+A13T1R5Da2JtOg24bQWqB uFAACngqgKkXE7wS
v0aHV8avgFfLCQx4hduA5VBJIhrgNQmVQ5Vhz6a+2WMH9ZUIEaBAHApg6rmF 1wsuuIBZXl3BK/Fr
FHjlqzRrJvtTfC+ZV9UILJXWLitF1uYfx6D1yhPwCnhNcrz5lAV4rVRnOGRT 3yZgB/WVCBGgQBwK
YOo5h1fOr04sr/bwavZ5lbwLRM4TvWY514rMquYcKHkc41abJ+AV8JrYYPMv CPDqr1GoGEmyqW8F
sYP6SoQIUCAOBTD1HMLrU089ReRaKXj14jnR+KqaXbn1VMujIsuK+Rsic+qF z2scE9aQZyw+r1J5
B8MG5qytM+EnrFJyxQFew2mdKjb1bQJ2UF+JEAEKxKEApl5oeGUJ6SYq9uaE E07g8Mr4NWHLqzo8
XPGoiqGA1zgmY8Q844JX8dtPWHY9CHiN2LsVTO52k8gWm/rK7lYc3+IQAQpA AaYApl4IeBV3cwle
LywGZn+1hNcJEyawo7LU0wbIZ8DebSA0vEoeBZSPwceAlQJ4TeECAnhNV6dU p+U1Z2zqO6Swg/pK
hAhQIA4FMPVyDK+MMrVuA+JHXjyqUqw4AsVstTgrXYxj9Ep5ShZi6Wws858J VC/uIgCvcSscLP9c
wmu1salvl2MH9ZUIEaBAHApg6qUBXuvr60NbXuMYFRnNM3kv21QJFRe8io2E 24B9l2cRXsGm9v3L
YmIHDaoY4kMBJwpg6oWAV1F5rdsAcx6wdxsgeK2rqwvnNuBkGOQjE8ArThtI 0UhOIbyGY1NsEoZR
BXFSNOVQlWpSAFMvNLyqT9iiG7YuKgbAa0XmEOAV8FqRgacvtCLwasbTcOpg kwC8hhs5SAUF4lMA
61Ic8Mr4NajlddSoUdLjYW1u2IpvbGQuZ8Ar4DVFgzYOeA1nOo0oCjYJwGvE IYTkUMC5AliX3MJr
3759ufE1BLzOnz+/pqamtraWasXIVTptYAqCtwIMXqtWoVh8XtnvC6FdXXlC HJVls3ZXhE19K4ZN
AvDqO0gQAQokrADWpZjglRA2DnhlDICgVQCWV1heUzQ1VMtrOtnUVzJsEoBX 30GCCFAgYQWwLjmH
V258BbwmPJgBr4DXhIdcWXEZZVNfybBJAF59BwkiQIGEFcC65BBen376aSJX Fiwtr8uWLaOHFLDT
Bsjn1ddtAJZXwwQBvAJek1s/VVSVyo7D5zW55gklYZMAvFZk4KFQKICpZzMG gi7R6mkDBK/9+vUL
Aa/Er4BXmz4yxwG8Al6jjyJnOQBenUmZ4oyCbhspbgqqBgWypACmnlvLK4dX QlgbtwFmeY0Cr8wA
pBh9Cle0MCc9+pUnzAH5eTWBnq0lvrI0P4PUFTdsBVEr/riA1/g1rnwJ2EEr 3weoQVUqgKnnHF45
v1YcXg0j2ot3Mz0JzPwtPR420y3VVh7wmq4+Bbymqz/iqQ120Hh0Ra5QwEcB TD238HrxxReHg9dx
48aF83lVLak2NlTAa/6WBsBruvoU8Jqu/oinNthB49EVuUIBwKvtGAi6Cml9 XgleWSCEDWR5jQNe
OaGKrgUcdvkNJ0wgKbINAdsqm1Q8WF7h85rUWLMoB/BqIVLmowTdNjLfYDQA CqRDAUw9h5bXZ555
RoVXujJ8+PDx48c3NDTMmDFj9uzZ/QcOXbVq1fr163v16sV9XuODV5FKOaSK nCfabtXr6RinVrUA
vAJerQZKMpEAr8noXNlSsINWVn+UXrUKYOq5hddLLrlEsrz+y7/8y29+8xs6 DCtWeDVQqWhVtYFX
8QigbM0LwCvgNUUjFvCaos6IrSrYQWOTFhlDAZMCmHpu4fXSSy/l/MrcBk47 7bQELK9meBX51ctH
1usUggzNH8Ar4DVFwxXwmqLOiK0q2EFjkxYZQwHAq9UYCLoKqT6v5DagwisZ YocNG0bHuMZteZUs
rCrOmt0Dwt34ZaVsUpEAr4DXpMaaRTmAVwuRMh8l6LaR+QajAVAgHQpg6jm0 vD777LMEr5xfmeWV
7ty6+uqrDfA6ceJEOuc1os8ra4VEb1V+w5Z0Npb5z3RMx0i1wGkDkeRznhjw 6lzSFGaIHTSFnYIq
VYMCmHpu4bV///4MXimI8EpsOnXqVO0NWwSvFELDazWMUss2ZvGEBMum2UQD vNqolFwcwGtyWleu
JOygldMeJVe1Aph6ccAr49dA8ErHEYQ757Wqh2954wGvcBtI0XQAvKaoM2Kr CnbQ2KRFxlDApACm
nlt4HTBgADO+UuDwSj6vxKZmyyvgNfpEBbwCXqOPImc5AF6dSZnijLCDprhz ULU8K4CpFwe8Mn5l
8Mpu2CI2vf7662+77Tb1nFfmNkARRo8ePX/+/JqamtraWqrVilLo7Ozs2bNn R0fHtOmN7C4xBK0C
gFfAa4qmBuA1RZ0RW1Wwg8YmLTKGArC8Wo2BoKuQetoA3bBFlldmfKUQB7xO QfBWgMFr1SoEn1er
eZ5YJMBrYlJXsKCg20YFq4qioUCeFMDUc2555fzK4PXCCy+88soryao6efLk m2++GZbX+KYPLK+w
vMY3ugLnDHgNLFkGE2AHzWCnocp5UABTzy28Dhw4UILXvn378qOypk+ffvfd d0uPh4XbgKuJBHgF
vLoaSw7yAbw6EDH1WWAHTX0XoYL5VABTzyG8PvfccwSvnF+Z5dUXXidNmgSf VyezC/AKeHUykNxk
Anh1o2O6c8EOmu7+Qe1yqwCmnlt4veyyywCvlZotgFfAa6XGnqZcwGuKOiO2 qmAHjU1aZAwFTApg
6sUBr4xfA1le6+vr3Z42oH3aVr7xLmjr6Jlb0osPBnZd+pNHNkdjn3plrs3Z nET8VJzMUhG4YStd
az3gNV39EU9tsIPGoytyhQI+CmDqOYdXZnylkEJ4TWY+BIVIV7VSeL0MQNVS fDlSS41iKkMOZuLU
4q+Um1Rh9VOpJoBXVwPJTT6AVzc6pjsX7KDp7h/ULrcKYOq5hddBgwYRvDJ+ DQqvY8aMcXXOK8M4
EeaSBMokyyq3RBZareVC7QQOB6+GIsx8GRSF1YLMrAx4TdcyDXhNV3/EUxvs oPHoilyhgI8CmHrO
4ZXzazLwyjlVRVXDFfqIB4657EqJsbo+Z59KWUkxpThS/MQmodbyyn/9F39k D8SRBoNoYpZXtfJF
zctMy4DXxEaaVUGAVyuZMh4JO2jGOxDVz6oCmHpxwCvj18TgVSROTqKcQcU3 XhZZLYwacpDyNFQg
yYlh6TbAmc/S51UbX8RfL8dZlS/5FW0SGwdcg9MC4DXJweZfFuDVX6Psx8AO mv0+RAsyqQCmnkN4
XbVqFWErC0nCK2+CwVtA/CiojVZFVdVqqyJy8vPBDK8qGoZzG0je59WrRFhe kx9jAUoEvAYQK7NR
sYNmtutQ8WwrgKnnFl4HDx7M+TUxy6sKr5JXADfHGiyvXgTsa1U1o3CS08MA r1r+yxa8+ro9wPKa
5GDzLwvw6q9R9mNgB81+H6IFmVQAU6/i8EqPjaXnFNBRWeFu2FK9UaWBqNpc I1pefQ29EkQmNjES
gFdOkCVLc5nXaRw3bBnyxGkDiQ2tMAUBXsOolrU02EGz1mOob04UwNRzDq9k fGX2V0vLK4PXCRMm
JAavzBBr+dO/ZHkV05YArvsefzVykvNEhWbV4CrSp6XltdjkAqT62j6dwKtU ii+88viwvCY52PzL
Arz6a5T9GNhBs9+HaEEmFcDUcwuvl19+ecLwGnHYVcpKGrHa2uR5aksIfZzA 67Jly5YvX95jxIgR
Bw8enDa9ceHChVQVeh8xsHxKZ1mEaF32kgBes9dnwWuMHTS4ZkgBBRwogKnn HF45vyZjeQ0xCFSP
2BCZpDAJ4DX642EJXinECK+EdNXzokmSgxU2B02Ib7WCOPFpi5yhgEEBTL04 4JXxa2rhNa8zAvAa
F7ySURcBCkABKAAFoAAUyLoC7IdQ+mWVseAJJ5zw/PPPDxkyhMgV8FoRPga8 RofXpUuXaiyv71uH
90phx44dL7300uLFi2cXQ6MQ1Cvip3gPBaAAFIACUCABBdhmxANtWLRt0eaV 3bDTIpjhlfjV0vJ6
3XXX2d+wNQXBWwEGr1WrkBOfV4JXCrLbgMV0kKPs3r2bFoJdu3YdOXLkMAIU gAJQAApAgXQrQNsY
bVu0eWU37CkP+/bta29vP3DgAN210tnZSdsx/ekFr9z4yuD1lFNOOe2003r3 7n3BBRdceuml9913
X/+BQ+lxBuvXr+/VqxdZuQLBKysUQasALK/RLa+PPPKIBl73Wgc+cWiGzJkz 5+jRo4cPF+C1s7P7
dehQJ73EK3gPBaAAFIACUCBhBdhmRK+DBw99Wggdc+fOpc0rQ+FjXfikFAhb qVWMXGkjDgSvp/3x
3D4XXzZg6PCh14z9c90ULbzSaVmhj8oCyHIFAK9O4JX4Vba87i8PNLHZBZoV hw4V5rwUgf6kOUO1
OXKE4PUwxYl4WAGSQ4EqV4C2HppN9NK+qXJx0HwoEFEBwtb2diK+A/PmzaPN K7uBtmNmYaV/CzDe
0UHK0BZsCa/M+Mosr5bwOnHixHDnvAJeAa9MASduAw8//LAtvDJy7dOnD/3r Ba/0Ta/4jbaDFgW8
oAAUCK0AMevJJ500dMgQ6c3Uhga6EjpbJIQCUIAUIHLdu28/2WVyAK9ErnQP FuNXe3gdOpRWl64Q
FF7Hjh07f/78mpqa2tpaYpEVpUAV6NmzJ9WBH7sJYIXbgKqAE3h96KGHiF/9 La+MXH/wgx/U1dUZ
4fXwpx0Hi0vDx3hBASgQWgEyndCjb+5buFB6s3LFCroSOlskhAJQgBQgcN29 Z29u4PWHP/wh2ZUY
v1paXlV4HTBgwMiRI8mxddq0aXRPm5fbAFleXcGrk2NclUetFu6FSvnv8vbV o6dSSfBneICW+lAu
6SGxKfkukRy8MnL9/ve/f/rppy9YsMAAr2QTIpebwtKwbz9eUAAKhFaAdqBx dXWPPvqo9GbNmjV0
JXS2SAgFoAApsGfP3l27dtNPiPmwvBK8EnrSr/nF204Knnu+bgMEr5xf1dMG ZsyYQfyq3rBFPq8M
XokEolteRYaz5zkF5rof+powtrqrs0yogoOBBl5VBlUZl8Xxul5ZinUCrw8+ +CAZX30srzQNfvKT
n5x44onjx4+n53EZ4HX//vYPP9yxffu727a9hRcUgAKhFaCdlcGr9Ibgla6E zhYJoQAUIAXeeGNb
6+ub396+PR/wetxxx9HuTHs53X9N/GoDr1dccQXnVxt4pa2fjLJpg1eGj04g OATPAV5DiObK59UK
Xpnl9eKLL54+ffrTTz9tgFf6Rvveex+8+ebbmzdvxQsKQIHQCuzY8RGDV+kN wStdCZ0tEkIBKEAK
vP76lk2bXqOtKh/wSqdc0ZlfmzZtsre8Erxyfk0GXjlocubTQif3JWBUKkYW PypZFvXw6pVKWwde
ilgcL12qrVqlEACnuDpM4SZS6Yd+rdsALK9kUSV4pWDr83rjjTeuXbvWAK97 9+4js+uWLdtee60N
LygABUIr8P77H86aOXP16tXSm+bmZroSOlskhAJQgBTYuKn1lVc2btv2Zj7g lWyotDUH8nkNAa90
qD4ZX0O7DUjYJ9KhF8VaEqpofBVtsWq22jqIpfCsAqUNyq8qvHrxqNnnVfQu 0Lq35tht4IEHHrCC
V35O1lNPPWWAV3IkevPN7a2tmzdsaMELCkCB0Aq8++77dG/Whg0bpDdtbW10 JXS2SAgFoAApQOS6
bl0zOQ/kA17pR9FApw3Qt2IGr8z4aml5jQ6vAmx5/tyv2mW9fAMMyGufxFAc N/Ta5BaIXw3wKt6P
pXVa1fJoFfq8ErxS8Le8Wp7zuvOjXfSl9uWXX6V1AS8oAAVCK0DfAN966x16 ad+EzhYJoQAUIAVe
fHH92rUvbd7yRg7gNcQ5ryK8Er8Ggld6Qmy4G7a0tkwJZ1Ubqq8pVPIl8LW8 egG06h4g8ai5/k7g
VWRQ9h5uA41zGulUEDp8jSnMjmOjf4PBq3q8K7/CHlJANqGmpnVr1rzw/Oom vKAAFIACUAAKpE6B
55tWrVr73HNr2to25wBei48K6wqW57wSvF555ZXc+BoUXunEzBCnDbiFV8l4 KTGuja1UimOAV5vc
AK/2Cjg5bWDJkiVlllepeP7QOa83/El1NGfoaQcbNmwkR/iWltfJFx4vKAAF 0qmANM3TWUnUCgrE
rcD69a/cf//9tHnlJoiHvErTnNuu6IkGDF45vzJ47dev39VXX01g2tDQoB6V RacNMLcBsrw6hFfJ
bmq2vIqRbeBVdas1ALTWf0D1kdU6yNpzm5RcdFotfTTFfFyr1zmv2jrk2OeV 4JVCt9uA2Nn0nn2b
o4ktfrfTvqc509raSuP7HgQoAAXSrYA0zdNdWdQOCsSlwKJFi5599tmIT5pN ODndc2IO7IRXCtI0
94VXOlBo2LBh8cFrUMIz/GofIisVdkNk4ipJqirjqlH2+biyvJrglVwNEKAA FMiZAtKulrPWoTlQ
IKgCBo+4tH1k3zQbeGX2V2Z5/bd/+7fhw4fTebExWV7t4cbDiFj2MAKb3KQ7 rmySJBMH8EpepnSs
G91lSM/TIAMpPZZ1//6P397+7tatb7W1vdHS0tbcvJF8UFtb27x8Xn0srwsR oAAUyJ0C0q6Wu/ah
QVAACiwMCq+nnXbaOeecU19fn054TQYrkykF8BoLvCbTeSgFCkABKAAFoAAU SEYByW3gT8UgWl7J
bSDNltdkVEqmFMBrlcIrn4TJjDOUAgWgABSAAlAg0wr4wmvfvn0d3rBFd3ch eCnA4LVq9YnL5zX9
85MmIV5QAApAASgABaCAvQJsc2enDTDLKzO+Wh6VRe4EUU4bSD9aJFZDWF5h eU1ssKEgKAAFoAAU
gAKZV4Dgdc2aNeHglYyFoY/Kyrxw7hoAeK1eeE34dBIUBwWgABSAAlAgBwow eL3qqqs4v9pbXgle
J0+eHO6cV3fsl/mcAK+A1xysJGgCFIACUAAKQIGEFAC8Vhx+Aa+A14RmO4qB AlAACkABKJADBTi8
cuNrpSyvEc9h9XrIVlA2TR4ltSVKT8MSn7MVtEUpj5/oDVviIEu+p6WeIP/0 HKwgaAIUgAJQAApA
gYQVSBW88s09BFe4gtfkUU+qucqpIsim8xGvUURLGl5D1DXEcLQpBfCa8GKH 4qAAFIACUCAfCojw
yoyvFbS8RoRXkTGYic0GISoex9fyCngN84Qtbb+GGxPhUvkOLMBrPtZQtAIK QAEoAAUSVoDBKx3p
SuTKQjLwynhAREwJPdnWz3/mVSOLH0mfev3Ji5DKlUphydVMfGkkXATAa3I+ rx5adw0A8cuTOkT4
sOBD02tQSvl4DQvAa8KLHYqDAlAACkCBfChQQXgVUVLkVC+KlZhBMtNy3BTR U8UGMZoXjRioOhye
mlMBXhOFV+lLj9g30uBQR5I6NL1oWBxbXoZbwGs+1lC0AgpAASgABRJWgMMr N74maXk186gWAMyA
oSKsZMG1h1cJjuPAVrH5Uv5ergLweW1vb+fPh+vs7OzZsyf9+8ADDyxZsqTH iBEjaP4YHrtqtryq
Y0vqITO8ciyWvpbB8prwoobioAAUgAJQIN8KiPDK+DXT8GrgXS0oe9GI1vob E7/C8hrd8hoeXm2M
qVoY9f0aZPhqwj6C5TXfaytaBwWgABSAAjEpAHg1uB/44ocTnAW8OoFX4tcw lldfY6rX9yFfePW1
vwJeY1rUkC0UgAJQAArkWwEJXsn4amN5XbFixdSpU6M8YUvLDKo7ogoAnBmk yCoCSkWI8X0/SpXl
tYhPU9jLCS6nKhMnR2URuYaEV+7gzMaH5GWi+o7waKqPgdZtQPvVBJbXfK+q aB0UgAJQAArEqkCl
4DUiPxmQIHTOceRpU5lKlWtTtwTiJAqvCbTHvghYXmNd2pA5FIACUAAK5FUB 5/C6vBjINMtupuno
6KA9euHChfZ7uk1MV8CnGstsSncbx1Vb3NYqsdwAr3ldW9AuKAAFoAAUgAKx KBAFXhsaGiZPnlxX
V7dgwYKampra2loinmTgNTG0SqAgwGtyPq8JdKd9EbC8xrKkIVMoAAWgABTI uwIEr2vXriVXVx7s
fV4N8EoIG6vl1Z4Q0h8T8Ap4zfsyg/ZBASgABaAAFHCnAIPXYcXA+DUovI4b N061vErwSrd2IXgp
wOC1avVx4jbw4IMPWt2wlaqvMrC8ulvHkBMUgAJQAApUkQJO4PWee+6R3AZg ebXHJFheo1teZXgl
LszEq4pWGjQVCkABKAAFoIAjBUR4ZcbXEJZXwKs9qqoxAa+O4XUWAhSAAlAA CkABKJBfBSR4JX4F
vEYh0RBpAa9O4JWMr10PKQjRB0gCBaAAFIACUAAKZEUBwGvFewrw6h5eDx04 gBcUgAJQAApAASiQ
PwWI21IFr9pHFIlwKUbIDfP5NsT32VrsyVs2z9+yiZMwzbu6YavM8pq/uYoW QQEoAAWgABSAAqRA
quBVYjj16ZtFPut6ficDLF/sS5jDwhXn2wpLeLUpHfAKiywUgAJQAApAASiQ YQXSDK9aPK1aeJUM
qyKDBuLRQJFtaDh6HFheM7yCwAYABaAAFIACUCBhBSoIr9ywynlUa4CUonnB K3cnEJGXXeR0JcWJ
Tl2uclAbzkytHDRVrwAtvIrRJGMtz1DMUy1CROTEMBfwCniFAlAACkABKAAF bBWoLLxK2GqGV06l
ql+s5BTL3AkMmfv+TO+KSi3zUYi84MBaam+3M6uXtVVlXF/qVbOSklh60Fo2 0BwN8Go7XRP+aovi
oAAUgAJQAAqkUIHKwqtoE/VyYJU8X724UyJayeDKcTadxlcDvIoIy4FSsrBq SVdlX5srXjk7gVSv
TACvgFcoAAWgABSAAlDAVoF8wKsWVW3IOFYms88c8Br9qKyHHnoIpw3YTvsU fo1GlaAAFIACUAAK
WCqQZngVba42frHcr0Ay4kq2Wy8Trz1rOo9p6TYgWWHVX/a9XGMNTgJiJqFv AosoiBPLK8Erhe6H
FFhOAESDAlAACkABKAAFsqVAFHi9/vrrGxoaJk+ePG7cuBCPh1XNpdKP+1oY De02IGYeEbacJ7e8
YSs0vDJCVW8CU2/qkjwQnLdUmyHgFRZTKAAFoAAUgAJQwFaBCsJrMmCUiVLS dgNZwqIBXm2na7a+
GaO2UAAKQAEoAAXiUCAivE6dOvW6664LZ3lNmJDSXBzg1YnPK9wGAMFQAApA ASgABXKrAJFca2sr
0TDgNQ1QC3gFvOZ2rYnjOzfyhAJQAApAgSpUYO/evStWrODwumbNmmFCOH7L N9/97nf79u171VVX
1dXVkWPrjBkzZs+efemAIatWrVq/fn2vXr1WrlxJPq/M8jp+/PgQPq9poMaU 1AHwCngFvEIBKAAF
oAAUgAJWCjDLK8Hr1VdfzfFVhFdyCSBC5fD63HPPMXgl9g0Er1MQvBVg8Fq1 CjnxeX344YfhNmA1
56vwyzqaDAWgABSAAtlVQPQWEN0GDPDqZXkNCq8LFy5MiZkzhdWA5TW65RXw CnKFAlAACkABKJBD
Bbi3gOo2QJZXFsj+yi2v9Kdoee0/cCh3GwC8OoRgwCvgNYfLTXa/5aPmUAAK QAEokGYFRLeBQPAK
n1fAqysFXLkNkPG1x5gxYw4ePEg1S/OsQ92gABSAAlAACkABswJabwHVbcAA r7fddhvdsMUsr83N
zf/5n/8Jy6srdGNPT3CYW+aycgmvN998M+AVCyIUgAJQAApAgawrwJ0Edu7c SdYpao7BbYAQlrkN
nHTSSb/73e/OPPPMSy65hM4TSAZeCeN4KD1QqgzsxAi5YT7fhkiPwlLxVH0w rBfCis+AtcFc8dFc
QdPa5E9xXMIrkSvgNesLFuoPBaAAFIACUMCggOo2wOH1wgsvuuKKK0aMGDli xLVDhgxpbGzsP/CK
559/XrW81tfXOzkqS2I49qcW7HxpT8KmoPEtqctVNN/qWcKrTX3CAWjQVIHi xwKvNlogDhSAAlAA
CkABKJBFBfhRWfyeLWZ5Pffc8/r3HzB48JBRo0Zf1PciuqVmwGVXrl69+pVX XiG3gUcffZQflSXB
67JiWL58eWdnZ8+ePTs6OqZNb7Q5bcCeU31pL3/wWuT4KbxdXu99R2AgrNQW 51uEVFXf+C7hlUYz
AhSAAlAACkABKJBvBUaNGvXYY49xcuWW13POOffiiy8dNOhygtd+/foxeKVD tV599VUGr3/5y1+I
X+khBVp4JX41wys3rHISNcAr8xYQWEp2EvVyNlBL8WWp5COoDec/1pd8JwrY 6guvovOAZKwVf/3n
eYpxeObqGy2MamvIY/qaikWRXcLrM8XwbDyBZR4iPO0RnrIOT5aHJ4zhcUeB 1gUngRYLr0A3fqqB
CqUWkDYkm9STdNC0FMgNnwf6Ycgr0Ndur0CLmm9gaSlzKp0GAFWMqked4Ejp uLLhw0QsIGifGrrP
4UfakWC4yIpmQ4WaSfODTSbqmhAz1EkSr2nu5Do1ja0BfNRR2x3q7zaroGOs muM7UZ4JyKY5mw7i
jJAmheX2qC62/Iq46krvDYuw+JFhQZY+MizO1NhZs2ap8Nq79zmXXNL/8suH jh49pt/F/e6+++6B
g65cu3bthg0b/uu//ouEYvBKR+uHhlcJW83wKuKO1sGgxGRlzgYG34PkIdWr RKU5soVVdWnVgiyP
JgGoGtlwxQZefZMHsu+6hNdLi6F/nIEVoQbyDfcKFwuBvghKgZ5lx8NFxXCh Ei4ohT7FcL4unCeE
c43hHCH0NoazvcNZ1oEc51n4oxL+oIQzzjiDYlGx1ESShXpyQCkMLIXLimFQ KQwePPjyUiAPJxaG
lgI5P1G4sjz8SQn0OEEexNWQvaePKAXlQ+VQ0VQr6kTqE5KctDRrGOJTsYN8 35v7WhoVrLYkr3Xv
ncW7z/eN2r/2V9SR4HuFMqcqUVtIARot1B00d6hfDDMx1o/EaR7lvbpE0BWa C9Q6aiNNfz7qqBO1
08pedt8+DR3BfoBVeUxLhQ19SjmQhjQRaGrTBKfpQCOEzwgaOXxS8G1L2iH5 Gktv+DLL3rDFVlpy
aemlVZcFvvayN3wF9lqK2YKsXZZpkVZXZnbFvD6zVXrE7LnkNvDrX//6/PP7 9O8/cMiQK8aMGUsz
8a9//etlg6964YUXWlpaOLwSvxK8Tpgw4d57762pqamtrSU+Y24DlpZXLXGq nGqg1aK1ryzwPM02
3UzAq2h5Fe2a0nuzgdYeXiXbrZfbgPYuLq0d10ZkJ/D6SDH08Jqcbmk2KLyy LZPtZzbwasOvKsKK
mELvDUyj8pABsAz8Go6BpFVYyygUh6pEbSTFSG22thrgVVxGpUXTa62UVklf eBX5lWpCtaJdQSSJ
EJBqTuKLrTyCJb9SNJYkUMcxQrIM9thkMwzM/MrglW3b1Kg08Cuf5s7hlfEr faslfqWWMn5l/RiR
X5mMzkOVI2nQ5vvqb4ZXlV9pkNDqRAOGfaOjAcm2IXHzErdF1UZgCa8qwkr8 yu0I9EZcjVWbQhR4
vemmm/5j6fPHXXHtr371a2ox+QxcccWfxo0bf2n/SxcsWDB4yLCXXnrptdde I3gly/QNN9yQHnhV
IUn0NAjqI2uDXA7jGCyvqYVXneBTtFZbX6GyB68050PwK9/PIvIrM75qTbCW /KqlosT41cb+StRC
qz/BFi2+pJtqf1WNrwb7qw2/ivDK3kv2V3aRkJeWYCqL1nqqGFWPNgkGhRWE V2Zu8QpJGl8jgpSv
tVWKwPmVxKfms92aII9v1bGaWrWZR8FWwxLBja+cX6m9zIgeUXPAa1DQjCO+ L7yae5klF+2v3PjK
ZoSWX7XwKlkKbIyvvvZX6XewEMZX8/pM5HrZ/MU/nb/sn//5n8844w/M7HrV VcMmTJhIzaE7ri4f
Onz9+vV0QOxvf/tbcqggeKXQ0NAQk+VV/MXf1/IqucPaOCT4QlViESzdBiSQ VV1RvbwLbCyvBp9a
r4K05l61Dr4yxgKvlXIeoHJDOA+IngPs98FwxldmkuFBSzMcdCSEDQ2vgcx4 9v4DzHmA2kJSkKSc
X832V+mnK3XRFN0HQjgP0BpKOZBpgX44E50HGEk4D66Mr+yXRBY4agfqOHv7 a2jjKyUMCq8UnzsP
kFbUOuJXydSURX7Veg6I/MpM/mzURTe+2pBTuDhxcF5e87RR2MZ5gP0QwaY8 jRPmTqN1HpB2SS/n
AdFzQPTXMjgPqP4D0fnV03mgcd6pS1cRuf7f//e7k08+hRyIyNuVyHX48BHX XTeFKrlo0aKhV/6Z
jhrYsmULnf9K7uM3FoNDeJUcAAweBbo7nLo8B8RULEPpii9LJR/B8oat0PDK 6FO9xUq9qcvgJyDJ
Yr5hS+Vdg6ou4ZVcXvCCAlAACkABKAAFqkGBH/3tyR9fPoxsrv/xm9+QrwS5 6RK5/vnPI6+9dvT1
1/9lyNAhDz744J+uvnbTpk1bt24leKW7M8lSS/A6derUiRMnkl02qM9r8oyY 2hJT7tUQt24u4fV/
IUABKAAFoAAUgALVoQBh66mnnkqGZnKOoBvJ6OYuejbBqFFjx44df9NN0664 8oqlS5deNXz066+/
/vbbb5922ml0ZgI9iZP4FfAane0Ar3QQ29GjR48cOXLoUOenn3Z88smB/fs/ fnv7u1u3vtXW9kZL
S1tz88ampnWtrW2Ncxrb29vp5GAmOzuOjf7tumFLuvMRf0IBKAAFoAAUgAK5 UYA8AU4++WTBf2wQ
+STQTQqErddc8+eRI0eNGVNXV0fPhZ14yy23krMBPXTg6mvGELy+9dZb//3f /00nhRG8wvIanVxF
3wYnuWUuE5eW13EIUAAKQAEoAAWgQE4VGDNmDBlQ6QkF15YCHYlVVzdu1Ogx Y8eOGz++fuLEyZMn
T7nuuqkzZ84afs1wOl7gmhHj3njjjXfffZcS0nGzt9xyC1le6ahXuA1E5EVY XqNbXumXgcJRWcwR
GwEKQAEoAAWgABTInwL0cz/dlEa3W9FBrfSUrMmTr5sypWHq1OsnTiow65Qp U6+/nk7CuumGG26e
M+fukdeOJD+BkaMmbN++fceOHaeffjo99eDWW28l4yudljVp0iRfn1fKEcFL AQavVauPE8trF7zS
8zYQoAAUgAJQAApAgVwqMGPGDDpCgQCUDKjTphVeFG69dfoNN5I5laCU3s+4 9dbbpk+/fcGCe8bW
jaVna40eO/mDDz7YvXs3wWtTU9P06dOnTZvG4PW+++7DDVuh7a+wvDqxvBK/ 9qDjiBGgABSAAlAA
CkCBXCowd+5cOuSLoGHOnDmzZzfSi8KcOXfdfvusmTPvmDXrzjvuaLzzzjn0 WrRocf2E+pdffrmu
fupHH320f/9+eoIjPa2A8Jd4F/AamlmFc6m6zvOKnlUWc3BleS3A68OWof63 PX5bL8fVXrTM0GE0
qoYQ1GqGLOqOgT/qyvZHFAbeETKb7mRChtrciu2Qq19+kTf1RwMH/tZQp1I8 XzHKtaPyfzSwq8KF
2vomf9hckLZFlLFZTabTb+u7UxcvFBNxDXk9bbtFI51n5e3abluyRzy1mSEy 1Co88Ef+HcfK8o0p
jQ/bfEO0pJAkdX3E2+E7aG1bnJXFKt3dYat2uHi6PvKYCF7rZ7pG8pIlS+ik bTq99f7771+48L57
76Vf/sl+ev/cufPo9de/zp837x56zZ07/+GHl06+bvKGDRvqJ92wd+/eAwcO 0EG5xLK33347GW7p
OQWwvEZERlhenVle6eEZNmHoj388dL4cUXvRJjfnceYP/fHvG1iuDb/voalq d4lCVHM1ultHSRzl
SSUWyv/9772q2N0OoXKli9S0Hl3NLFTJXKdCem1ucqvLBGmgmoXoHUNBykfU ilJfeZXU1dDC/0pC
UcV+zPvYql1lmZukC56bUSHrAVYYqgUpxGYG1t44YPxzs2l7YUx0zX2LvvMv 06fXCx8rw9umngFK
tu+jrkxdNjwji1Uqp0yAPo4UVdtH+omgWT9TJ93KlSvp8Yd0hsCyZcseeYRu dul63f+3RX/72+L7
76d/l9Dr3nv/tnLlY1Ovn0rnDEy87iYi14MHDxK80qO2Zs6cSfBK3sDkJAu3 gSj8Cnh1Bq8v2oRb
zuxx5i1yRO1Fm9w84iwZfjz1q1SO5iK7VAjHD1/SlRdd6054y5nsAzFiVzyq sxhKaTQxX3xx+PHd
+fMqd8fkpXvkySsgtahY00IVu2XgOZx5S3c71Iuldkn6aSvP4oiqFC/wTI+n h9N0qdelXVmVSvHK
6q5pe6kqckHaFrHINsOGSirqQz1dqkGhelyA7uLkwSB0RkHM0iDxkE6rkmXb iyUff3zXWCwNFd8B
JgzawgCVmxl4/ihdrOt33ZTxGCGaCgjidQ2SYiuLPcPaywdzd0FnHt89IzWj Tjs3NfPNY4Al10fa
QeuhZ64Wq3ROmSDzw/mGok6EQnXU9TN90tFxAXTUAN2GRYdePfss/X9V4b9V q5566pmnn36Grjz7
7KrHHntyyZKH6MqNN91Izya4buotRK6HDx+mnYIetUXwSm6vDuG1bCMuPRlL hEIGeRLqOSc/5xn6
cq25RPHhrr5ZZTGCS7eBFotwx7k/Hb1Sjqe9aJGZZ5SVo39K/XruHWURlIt3 nNujVJnCZ13R6W13
Qv7HHXewzOhCdwPKopbK8orZNcOEEn86uitNMdPu91K9S+XKLSqV3q2e0Apq W5cAuovaihfK0Va+
WAFRleKfgl5lMhbbyZtTUqUsudTe8shyzFI53S3iSnf3X6DBUhCs0JFFnUvF 6QZDSTpqbKHbikJ7
SqdTiVXLpu2F1rF+p3d8AKiFGaULpIIaWepiTeULldNMGV1MfV2KndgVeCuF cotdUwzdo7pbGo9R
pwzaNPeRoCDrbL2eeVqs0twdllPG+YainQiFRYlNjtIsSKF0zc3NdIgr/fq/ bt06MqP+67/+a++z
zx502WWDBw26fPDgCfX1d991V1PTS488snzVqtV0QxedM9Dwl+lErp999hk9 W/jVV1+l+9g4vJLv
QfQbtnypUYzA3/umsuQ55xlalms451V6BKt9htmK6RJet/mGZ8b/7IK5cizt Rd+sokeYe8HPxj/D
s+G1KKtO6Q/6P990u1Ppaq6PKRbToyCBGK2YcylXazW6I5YaUp507gWlggTJ tRe7pTRUvqznvCrZ
db1QIal/xOSebS+mkWKqlec5U5+oo8liXHRVj8nWVZx2MJSaKcYx949ufMst KrcTdPW7UL6gnlKY
WTqLthuidI0NQ8dt85gyLIm27VJuZc3s0dV9QkKh7VSdUujqZQ/p1UGb5j4q G7RGPcuky/Jilebu
iDZlylMH6SPtRCjsCoWx3j0LUigduQHQCVmvvfYaPfG1tbX1gj596HlZ9Ovt 3XffTfdykUfs448/
/vLLzStWPN7U9OKt02997733rr/xdiLXL774guCVXGAJXumeLTqbgNwGAK9R eBGWV2duA3Qchjnc
2/ffJ6+Vo2gv+uXk4vPygtdO/ve+9xay5W8Kf7A4dKkH+7B0hb0vi1q6oo0p 1LerWK9mq3l6tJXq
1B3+vXAWSXnSe/sWa6K92NUuKWevZhajleTxaLiXIKUiypIbu1yMqa98d55c 60DjoVA8776u4rSD
oVR8WRzryvM62bRdyLVUPe0Ai222CEO8TExD5aWhWhbTo0PKql/6Q0gotJ3n QMUI/SVnrB20Ke6j
Mp09liCNeJlerFLcHYEWDp/I9n1Uvo10r8bq4p8+6egpr3RQAGE7+QNs3Ur/ Fgie/m1paW1peY3+
3bTptZdeWv/EE8+8+OK6226/jY53/ctNM4lcv/zySzogduPGjfRLyW233Ubw ShAcAl4ZsbG9j5Gf
F8OJZgIejSfUpuJJxJzFsnjRYj68SlLFooCpTVrAqzN4pYPcTOHlqT//+VQ5 gvaiT0b+H1Ou1K+X
LCqLqVxcdIlQn6k/74pO0XjCQoyXd+8WLlHGxUvF0F35RZew4rQxy9tYyp6S SBX0yLN0uaxFYi13
71brSZe6BChvD1el0BmldnRVxauZxQoIqrA/y5J3/VFeK1H98uQebVcL8qg8 y5ly6a6E/6DgMbr7
nd79vKu3dYOhVHpX5btUltsu9qKkEivSpu2lvIvN4sNSHWCFRuuGjUfzC6PA Nr4+Z7nyuimja6a+
QkIzu1vCx1Jh1nblL1RGmD6aUecxaDXDu1SjyvZR+aDVL0FsaSnvuSwvVspy kZIpYz87HG8ofMUu
rWOavad7uCoLdUVHMhE8neZKj8ui8N5775/485/369t3+LBh1wynx2kNv/GG GxYvWtTauvmpp55b
v/6VmbNm0iFZN06bReR67Ngxgley10aHVwlbJUhViVaCSy/kFVnQC5G1cXiG vjxtg6T2cQCv0eGV
7jssHJX1iTE81L9H/4fkGNqL5nxsPt14wy+oX6Xi1IvsCgu/uGFjIWeqkBhK WfDLv/hFWc7d11ly
IYPumGIxvCC5rO7KqnlS3LLK8wyLiUrxCy0Qqt+/UNNf3FBeTvfFrhxZY03N lBTp0kmXXCyc97RH
8rLLrHh9TG2LusZAqNFT6vNiQwpKdjVeGQxdJVO8QhJSsnihEFuM2pVaW3nb tpfyo7xKSdQeKQ2w
cp3UKSXOD15jm0nzyQ2/0OQmXdRMmVLe2uRKbYTZxUvrHsE3lCTWjI9CVhrl u/Uom5up7aPyQeul
Z34WKzYC0tgdAWaH2w1FWhdKK5B2/UyddHv27CGPVULSnTt37tq1u3///nMa GxcvXkwOAw888AD5
DNBjCDZv3vrcc2teeWXDrDtmEWnfdMudXxdD7969CV7vvPPO6JZXyTKqAp8X ZRr4smzrV+7xEglY
W7paoj2GhospwStzdeVZ4Yatlpa25uaNTU3rWlvbGuc0tre3T5veyPTp7Ozs 2bMn/UvwSqEHvfMM
r0/75S+nyZ9qL5pywWdQQFRg2WU9LlsGSbwUoPnV45fTXrcVaNovNWJqL2pz tI9pW6F8xsOgTUe/
Bpwd6ah05Wvx8ccf00Gt9MSBfYVA/xbe7Nmz9733Pnjnnfe2b3/nzTe3t7S8 vmrV2o0bW4hT6YTX
m2+dTeT6zTffpB9eJYg02FlFPwQvW284JLVPBcurE8trAV7JKRsBCiSpwJZb f/WrW7ckWWKWylo5
qMeglfYVpug9AiWwzxoxBQUwaFMxHALOjlTUOQWV6OjooN/96dxWsqcfOPDp r3/1q4EDBoweNYpe
Y0aPnjF9Op37Svy6evUL5P9KT+AitCV4JXJl8ErHO6TZ8iqYLeXTtdJveVXI u9sKaw/EGYrp5LQB
Znn9/wIOUdNzLKZFAAAAAElFTkSuQmCC
------=_NextPart_000_0027_01C9E12E.5F4432E0--

Attached files

jlcapel · Mensaje por **jlcapel** » Dom May 31, 2009 5:14 pm

Ramón,
Prueba ponerlo en el oncreate.
SAludos,
José Luis capel
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=4a21814d@svctag-j7w3v3j....]4a21814d@svctag-j7w3v3j....[/email]
Anexo la imagen de lo que quiero hacer, al parecer no me explique bien....
No lo ingreso desde codigo en el IDE, lo hago desde el Editor de Propiedades como se ve en la imagen, pero me encierra todo lo de la celda cPicture entre comillas.
Gracias.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

zeasoftware · Mensaje por **zeasoftware** » Dom May 31, 2009 9:19 pm

Eso pense pero son muchos donde modificar....
Surgio a raiz que uno de mis clientes usar 3 decimales para determinar sus existencias y otro solo trabaja con enteros, y otro con 2 decimales, en fin....
Me gustaria mas una solucion directa para solo hacer un reemplazo general, en cambio asi tendir aque hacer mas de 100 OnCreate, por los lugares donde nececito validar este dato.
Gracias, sigo acepto aun mas ideas.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

jrcsistemas · Mensaje por **jrcsistemas** » Lun Jun 01, 2009 1:37 am

Ramón.
Recuerdo que una vez alguien necesitaba poner todos los edit de un color determinado en toda la aplicación. Y le respondieron la forma de hacerlo modificando las propiedades de la clase TEdit para que no tuviera que hacer Edit por Edit.
Creo que te serviria en este caso con el Picture.
Quien sepa hacerlo por favor que lo ponga en este hilo.
Juan
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=4a22d849@svctag-j7w3v3j....]4a22d849@svctag-j7w3v3j....[/email]
Eso pense pero son muchos donde modificar....
Surgio a raiz que uno de mis clientes usar 3 decimales para determinar sus existencias y otro solo trabaja con enteros, y otro con 2 decimales, en fin....
Me gustaria mas una solucion directa para solo hacer un reemplazo general, en cambio asi tendir aque hacer mas de 100 OnCreate, por los lugares donde nececito validar este dato.
Gracias, sigo acepto aun mas ideas.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

YouTube · Mensaje por **ignacio** » Lun Jun 01, 2009 10:39 am

Ramón,
Me temo que no se puede. No se admiten más que expresiones simples en el inspector de objetos. Lo siento. Le recomiendo que realice la operación en el evento OnCreate del control. Si son muchos los objetos a los cuales tiene que cambiar, seleccionelos todos de golpe y asigneles el mismo evento utilizando oSender para cambiar la propiedad:
oSender:cPicture := ...
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:4a204dc0$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Quiero asignar a una columna lo siguiente:
"999,999" + GetDecimal()
Pero me asigna:
'"999,999" + GetDecimal()'
Me toma todo como una cadena, y no quiero que lo tome asi si no como:
cPicture := "999,999" + GetDecimal()
Alguna sugerencia?
Gracias de antemano.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

jrcsistemas · Mensaje por **jrcsistemas** » Lun Jun 01, 2009 2:42 pm

Ramón.
Mi idea es establecer la propiedad cPicture para eso tendrias que usar algo como
CLASS TBrwColumn FROM XBrwColumn
PUBLISHED:
PROPERTY cPicture INIT Formato()
ENDCLASS
y en algun lado
Function Formato()
Return "999,999.99" // o el formato que quieras
Pero esto te pone TODOS los Picture a ese formato. Mi conocimiento no me alcanza para ayudarte más.
Abria que agregarle a la funcion que averigue si esa columna es la que quieres modificar. Tal vez con la propiedad Cargo, no se.
Seria algo asi
Function Formato()
Local cFormato := cPicture // el actual
If Cargo == "EXISTENCIAS"
cFormato := "999,999.99"
EndIf
Return cFormato
Lo que no se es como se sabe la columna actual, con oSender.... pero no se pasarla como parametro.... que alguien nos ayude para terminar la idea.
Juan
"Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje news:[email=4a2314d3@svctag-j7w3v3j....]4a2314d3@svctag-j7w3v3j....[/email]
Ramón.
Recuerdo que una vez alguien necesitaba poner todos los edit de un color determinado en toda la aplicación. Y le respondieron la forma de hacerlo modificando las propiedades de la clase TEdit para que no tuviera que hacer Edit por Edit.
Creo que te serviria en este caso con el Picture.
Quien sepa hacerlo por favor que lo ponga en este hilo.
Juan
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=4a22d849@svctag-j7w3v3j....]4a22d849@svctag-j7w3v3j....[/email]
Eso pense pero son muchos donde modificar....
Surgio a raiz que uno de mis clientes usar 3 decimales para determinar sus existencias y otro solo trabaja con enteros, y otro con 2 decimales, en fin....
Me gustaria mas una solucion directa para solo hacer un reemplazo general, en cambio asi tendir aque hacer mas de 100 OnCreate, por los lugares donde nececito validar este dato.
Gracias, sigo acepto aun mas ideas.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

zeasoftware · Mensaje por **zeasoftware** » Lun Jun 01, 2009 10:47 pm

Gracias, incluso yo tengo el bloque de cambio de color, pero eso aplicaria a absolutamente todos los Edit's, incluyendo los que no sean numericos, en fin... creo que tendre que hacerlo "1 by 1".
Seria bueno que en la version 2, se puede poner tanto expresiones simples como complejas.
J.Castro, tu opciones es buena, y me ha dado una idea. Gracias.
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

Mensaje por **jfgimenez** » Mar Jun 02, 2009 11:09 am

Ramón,
hay muchas formas de hacer lo que quieres. Una de las más sencillas es
utilizar la propiedad Cargo de los controles. P.ej., podrías poner el texto
"Decimales" en aquellos controles que quieras que tengan decimales, y
sobrecargar la clase TMaskEdit más o menos así:
CLASS TMaskEdit FROM XMaskEdit
METHOD Create( oParent )
ENDCLASS
METHOD Create( oParent ) CLASS TMaskEdit
IF ValType( ::Cargo ) == "C" .AND. ::Cargo == "Decimales"
::cPicture += GetDecimal()
ENDIF
RETURN Super:Create( oParent )
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
PD: perdona, antes me he equivocado y te he enviado la respuesta
directamente a tu correo.

Carlos Ortiz · Mensaje por **Carlos Ortiz** » Mar Jun 02, 2009 4:32 pm

Hemos tocado la clase tEdit para hacer lo del cambio de color según si el
dato es obligatorio o no, espero te sirva para lo de los decimales, arriba
de este mensaje hay una solución planteada por Jose.
Atte. Carlos Ortiz.
Assist Informática
#include "Xailer.ch"
//---------------------------------------------------------- --------------------
CLASS TEdit FROM XEdit
PUBLISHED:
PROPERTY lObligatorio INIT .F. WRITE METHOD SetOblig
PUBLIC:
METHOD SetOblig
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD SetOblig( Value ) CLASS TEdit
::FlObligatorio := Value
::nClrPane := IIf( Value, clRed, clWindow )
IF Value
::nClrPane:=AppData:nColorObligatorios
::nClrPaneFocus:=AppData:nColorObligatorios
ELSE
::nClrPane := clWindow
::nClrPaneFocus:=clWindow
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------

zeasoftware · Mensaje por **zeasoftware** » Mar Jun 02, 2009 7:42 pm

Gracias master, no problem por el correo.
Exactamente asi lo hice, pero usando un evento en el programa principal, ya
que puede variar de cliente a cliente.
Seria bueno que en el IDE acepte cadenas y funciones.
Otra: Podria poner en el la ventana DEBUG una pestaña con los controles
activos?
Se podria hacer un inspector de variable, esto lo que me daria
seria el valor de dicha variable, despues de ejecutar una linea.
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com