TDBBrowse TDbfDataSet

Ingo · Mensaje por **Ingo** » Mar Dic 06, 2005 5:55 pm

This is a multi-part message in MIME format.
------=_NextPart_000_000F_01C5FA8E.428CC930
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0010_01C5FA8E.428CC930"
------=_NextPart_001_0010_01C5FA8E.428CC930
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hello,
using a scoped (:SetScope) TDbfDataSet with TDBBrowse. The TBrowse shows =
5 records. The first record is shown in the first row (see picture =
"before").
Starting to add a new record to the table and after cancelling this =
procedure the TBrowse shows the first record two times (see the picture =
"after") in the first row and in the second row. Therefore 5 records are =
shown in 6 rows.
Here the Code:
METHOD MP11Edit(lNeu ) CLASS KStamm
LOCAL lOk:=3D.F.
DEFAULT lNeu TO .F.
WITH OBJECT KMp11Edit():New(self)
IF lNeu
IF lOk:=3D::oMp11:AddNew() //oMP11 is the DataSet
:oFK8:Value:=3DDATE()
:oFK14:Value:=3D16
ENDIF
ELSE
lOk:=3D::oMp11:Edit()
ENDIF
IF lOk
:ShowModal()
IF :nModalResult=3D=3DmrOK
::oMp11:Update()
::oMp11Brw:RefreshCurrent() //oMP11Brw is the TDBBrowse
ELSE
::oMp11:Cancel()
ENDIF
ENDIF
:End()
END
RETURN Nil
What is wrong withe the code?
BTW the Vscroll is not working correctly with scoped tables.
Regards
Ingo
------=_NextPart_001_0010_01C5FA8E.428CC930
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.2769" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Hello,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>using a scoped (:SetScope) TDbfDataSet =
with=20
TDBBrowse. The TBrowse shows 5 records. The first record is shown in the =
first=20
row (see picture "before").</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Starting to add a new record to the =
table and after=20
cancelling this procedure the TBrowse shows the first record two times =
(see the=20
picture "after") in the first row and in the second row. Therefore 5 =
records are=20
shown in 6 rows.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Here the Code:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD MP11Edit(lNeu ) CLASS =
KStamm<BR>LOCAL=20
lOk:=3D.F.<BR>DEFAULT lNeu TO .F.<BR>WITH OBJECT=20
KMp11Edit():New(self)<BR>ÂÂ IF =
lNeu<BR>ÂÂÂÂÂ=20
IF lOk:=3D::oMp11:AddNew()ÂÂÂ ÂÂÂ //oMP11 =
is the=20
DataSet<BR> ÂÂÂÂÂÂ ÂÂ=20
:oFK8:Value:=3DDATE()<BR> ÂÂÂÂÂÂ ÂÂ=
=20
:oFK14:Value:=3D16<BR>ÂÂÂÂÂ =
ENDIF<BR>ÂÂ=20
ELSE<BR>ÂÂÂÂÂ =
lOk:=3D::oMp11:Edit()<BR>ÂÂ=20
ENDIF<BR>ÂÂ IF lOk<BR>ÂÂÂÂÂ=20
:ShowModal()<BR>ÂÂÂÂÂ IF=20
:nModalResult=3D=3DmrOK<BR> ÂÂÂÂÂÂ Â&nbs=
p;=20
::oMp11:Update()<BR> ÂÂÂÂÂÂ ÂÂ=20
::oMp11Brw:RefreshCurrent()ÂÂÂ //oMP11Brw is the=20
TDBBrowse<BR>ÂÂÂÂÂ=20
ELSE<BR> ÂÂÂÂÂÂ ÂÂ=20
::oMp11:Cancel()<BR>ÂÂÂÂÂ ENDIF<BR>ÂÂ =
ENDIF<BR>ÂÂ :End()<BR>END<BR>RETURN Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>What is wrong withe the =
code?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>BTW the Vscroll is not working =
correctly with=20
scoped tables.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ingo</DIV></FONT></BODY></HTML>
------=_NextPart_001_0010_01C5FA8E.428CC930--
------=_NextPart_000_000F_01C5FA8E.428CC930
Content-Type: application/x-zip-compressed;
name="pictures.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="pictures.zip"
UEsDBBQAAAAIADqHhjM5mtkmCQkAAC6lAAAKAAAAYmVmb3JlLmJtcO2dP47j NhTG3wIBZo7hMlXK
1ET63MFN7sFbpHWR5ByscwQjhS+wwFbaACmYT5RIvkdS1h/LY9rDb0YSRVLk +/iTKFke7P7y609/
ktPPPxD9iO3vX4h+w/YLvbv8f080Ie1+Seth0/8gYYwh84+hb3//RXRQWI5Y UHBAQweD5UKEbFIH
LEgolCuUK5QrlCuUI4uOKD+i/IidI8qPKD+i/HgZ+0W5Rrk+uhhIo1yjXKMc STqh/ITyE8pPKD8h
84TyE8qxIYNyg3KDcoNyc+qDx4Jy/NIF5ReUX1B+QfkF5ReUXy5D+HTA0v8c sWgsJywGy2WwdkA5
/Cv4V/Cv4F/Bv4J/ZxuVFBIK/hX8K/hX8K/g3w0J/Cv4V/Cv4F/Bv4J/Bf9u uOBfwb+CfwX/Cv4V
/Cv4d0MJ/wr+Ffwr+Ffwr+Bfwb8bZvhX8K/gX8G/gn8F/wr+ewQK/hX8K/hX 8K/gX8G/gn90j+Xg
XGv4d+zhX8O/hn+HBv41/Gv41/Cv4V/Dv4Z/hw3+NfxrmNUwpBG0RmAanTuk 8K/hX8O/hn8N/xr+
Nfw73OhEoyGNyhoZGv41/Gv4d6cC/Gv41/Cv4V/Dv4Z/Df/uNIF/Df8a/jX8 a/jX8K/hvz+FNPxr
+Nfwr+Ffw7+Gfw3/OBzLwdE28G+c8xOW/ucynFrwb+DfwL+BfwP/Bv4N/LvT Dv4N/Bv4N/Bv4N/A
v4F/d0rCv4F/A/8G/g38G/g38O9OV/g38G/g38C/gWkDYwbBu1MZ/g38G/g3 8G/g38C/gX/YxIJy
BGLQmUGDBgd9+8/SH/049QNM1v2StcOm/+mzsOq673ZWrn62vGW1hmVYpVt+ JFfaypSIJ5OuSKSG
Fgd7NN0xy8maKtf/QM1z4YESLeIy+hSVRQtcy7iE49JxozzzLRaMufFQsUNZ Im//QVpwvYzjSzH4
MZ2N6HBFkhhDNqKsBaa11wsLJ3YlYpzmwvtO4/KtiaYepmXzWFlLR/S69mmF a/8WP16NS51qXOpU
41KnHJe3ptrUrpc61bjUqcalTn0qLvToT4vL9QJcsqG+2uKTgFnChb1VKbzv 4BXjy5HkpU12bNRa
LrIZGpZiXGOZLyB/wTwDmnVcBqfebzqisVRkeD7i2KiVXJJmqJCZcfHFWYD1 aikX9oowrMtcmG/B
ZcjYlUsIqsiFGAu//3pcwnDOcuEY7syFR3ONyzi1viAX74fYeopLcC658Nfo TGu5hJuYjYPsd9P3
/OPiq74wlzDI9goXXlXA2ul6YR3wXd92xkXe95/iWXn5fd/bqYmLD2qOi9Az YFnyPbL3TunYTj+P
UTzwHlxiM+JpWcQVO0k5vAiXYGQYh7ie+PzC7iAMT6F01O2fX9LMCS5PwcOr vR+rU41LnWpc6lTj
Uqfa98h1ql0vdapxqVONS516fS5P9XEy6PW/R35xLvLFR/E9DLE3+STrsrck 6Tht5MLe8ZCV0Y0t
xpf/cUPszXKo5SP3TdbwwnkpFz+4V7nImqIuw5McdQMXEVSM7i1UsOTLknVy JAu0Aia91sxj5M+r
8ZTKRpSShODikzty4VubxjXLhTdVHZiVXGz8LY1oMlgfzUXEVeJi/XwlZqsQ VRbv47RyHhPfxRZG
dLAnxyzskb8bCO0xj419iriKXHya7RK77dUDZjEXYs6nuUhn2c7eXPgtmqa4 kLzvWxsSvpkkVQOY
NdeL21JcP55LllHgImukmZKLjPiR2pPL4DE4DeepKM0eQjdxSabEwHwjlxhz zvsxWjOPpWdU/jwm
SSRnn2gg6sZ5bOyDTUuzXIRkzMTDf6Ta+7E61bjUqcalTjUudap9j1ynHJfz Nr3NV1mgfVrh2r/F
j1fjUqcalzrVuEitG4utIzevF+CShf/JuNiwxnNcn8z8D/lWVnNrdlTa2+pR HFqxLJyze7RM4vLl
YjtUClGy7NiuHauN63PsTq7Hfs930RYu3lY6ojYWx90wBpYtXJu4iFb5OsY1 Dq8AEE6Rc5YtovRM
bJIr1paZ211LuQxnpA0nSPTP6pyZY2lG1hDadr24rQwnJCSXcDGdz4FLITsh YEM6tmwn1vfQYi7s
d9yf4sKr3JkL34lbz8XGKj52f0SeHQv8cbx5311xfQ8tnsdEKMNpuohLuBPI iT1q8/0ljqjPFXHl
XGwc6jybrSIXm+SW1/fQFi4+mikuY6hJ6JYtXLfcXxgX1tXIxYaVCL000DFq ztue/X2fTXlyXcF9
f5yEQ3w1cDmzYZnl4oc6tsGzRWBpjEVDd9VduGTe2W52gq3kEifDMKppV/I5 OazG4jRKEeCoNMZS
L/fV/p9f2EOSZZVDIu3t9s8v56SrCS7jKs49WXYILeNivbUzM3RPtfcwdapx qVONS51qXOoUzX+l
2fQA0XtTjWpc6hTuL00VClze7Hy1ojYfKLRPK1z7t/jxalzq1JNy6f+Qf7Kw cZmvM6/NrUyCeVUu
5Ff+pPQZJAdjyn84mYdE/0sdFRpwujaKvqVhQz4oYiVDXhdrpS2ysokIatQ1 LsTSHeWOJrmIhZFZ
z6VjgZBM+9BklH2iwIW18BRYujkuIWMll3Q4u1u5dOz4bVy6oolKdZWLmywo nmcruQyTzR5cRENj
OuUSnwRKXPzs99RcyM/n3PwGLh3jecv9hR/f+XQIjUJy1KvPY+y+P46p9LTk eum6cHaPF1+qBddL
bIh8UPy+H54Nxsav3/cLIVSoq1xChh8fqSXXS+k4qSVcws41hcolLtP7depe XEjsXVPjUlKRS5wS
QqVVXGjNXLHk88uVGjw9VuYtZl6eRCUuS7X5QKF9WuHav8WPV+NSpxqXOtW4 1KlnvCd+BjUudapx
qVM1/FtbTbna9VKn2vVSpxqXOtW41KnGpU7R99s038N1zffwOVV6Hnv/2n0t ZBf0fjuX+U6u6X1h
oE+n4nPyYi7b/21Mrxu5LA702dS41Knxy1f/ZzwDpsjFf1Pp/2yho7jbaxOX vjOfHriELxVFP+5v
KkSXeQSvzYWvu5QLZbVCxe3XiwfznXcjevBkht+pCD4LFyfBRYzXJJfwr+FT /PfuXcL/RwREPB0u
mMglNhzPEMlF5vlQX1P0P1BLAwQUAAAACABsh4YzJl0ZuE4KAACGpgAACQAA AGFmdGVyLmJtcO2d
P47zuhXF7wMCzCxjyqwgNZE+QJbgOqtgk6zDCIKsg3XWkMIbeMCrNEUKvWOK 5L2XpGz9s81xeGZE
SSRF3sMfRY1l4Pv+/Jd//Ju8/vQHoj9i//dfiP6G/S/06fP/+k+akfW/ZO20 u/7gwDlH7r+OfvsP
Gv4y2E7YUPB1xuawXYiQTeYLGw4Myg3KDcoNyg3KkUUnlJ9QfsLJCeUnlJ9Q frqEflFuUW5PPgay
KLcotyjHIZ1Rfkb5GeVnlJ+ReUb5GeXYkUO5Q7lDuUO5O1+Dx4Zy/NIF5ReU X1B+QfkF5ReUXy5T
+PSF7fpzwmaxnbE5bJfJ2hfK4d/Av4F/A/8G/g38e9uoZHBg4N/Av4F/A/8G /v2QwL+BfwP/Bv4N
/Bv4N/Dvhwv+Dfwb+Dfwb+DfwL+Bfz+U8G/g38C/gX8D/wb+Dfz7YYZ/A/8G /g38G/g38G/g/4rA
wL+BfwP/Bv4N/Bv4N/CP7rF9edcW/j17+Lfwb+Hfo4F/C/8W/i38W/i38G/h 32ODfwv/FmYtDFkE
bRGYReceKfxb+Lfwb+Hfwr+Ffwv/Hjc6sWjIorJFhoV/C/8W/v1UgH8L/xb+ Lfxb+Lfwb+HfTxP4
t/Bv4d/Cv4V/C/8W/q9TyMK/hX8L/xb+Lfxb+Lfwj8uxfXnaDv6dd37Gdv25 TFML/h38O/h38O/g
38G/g38/7eDfwb+Dfwf/Dv4d/Dv491MS/h38O/h38O/g38G/g38/XeHfwb+D fwf/DqYdjDkE76cy
/Dv4d/Dv4N/Bv4N/B/+wiQ3lCMShM4cGHS767X8j/es6TtcBptH/0jhOu+vP NQvJAI1Doe/xjmhK
SJz59KNSj0tFBvEJ14nKW7mjrAN5Gtv+UGd+m8bjuqdpMF4mRLCLQwq/JQ4x qHsclF6KYTsHil4p
H8s6Bx54ehQHbkZwyOLiTvJx/6EcUuCTb07LEVSl8cJ0mpcGreSQNVNre4bD a8c/ageHOa0dwbqO
aUXq+BYPVOfQhjqHNtQ5tCHmoPOvHD66nibm8K3U74fnqq9LbahzaEP/txza +PiW9L4cioF+aw76
RUL1vQb515lTTdJ1xVuHfFw2chDvTGjU0YUWKb3s4B3F4NLrlZRNqcmHvpDd ySEO5k0OuqaqK3Bk
V+3goILi6D5ShZFiWZZmV4pAH8ngqgPWJYrzJkyZYgQpO1Ac4uGBHOR+zOO6 y0E29TwQx3AY+bc2
gtngPJuDiqvGYYzrj1p9UlRFvA/QMeuSnFi1EZzs6DFKZxRXc6Uj1qXQp4qr yiEei1MSj60ngNjL
gYTTeQ7aSXFyNAf5SKU5DqSf0+OYDmIz2dFDQRxwP/g9cfp6DkVGhYOukWdq Djrih+gJHCZPyVma
h6q0+KNwE4dsiUuMN3LgmEu+B+uAdSmfMeXfS3rks9mlGmDtXJdCH2KZuctB ScdMMvyHaCeHmhr5
PF3o+BYPVOfQhjqHNtQ5tCHmoPP796LPFXPo34u+Un1dakOdQxvqHBZp3We4 DZ/43pdDMRhvzoHf
HNDMez7x1oer+VRctfu9xtSKel8aXnCouGK52k+VUpQim9ulUC2kI3en09Dv uE4Hcog28hEkLubT
5JnEJrWJg2pVphxXGE414GlKjEW2ijIyoCxXpbTppeBODtOMozQB2K+oMwqH OnhdQ2nb/eD3Opx0
oDmkm2UcE4dKNheMJMLmaAsOubll2stB/IbzOQ6yyoM5yBPeRw7EVWLs8Yoy mwvidbL52F01XaW9
65LqepqGiziklVwvzKzNzwcewZir4io5xFEfx0q2SJgDZbn1dJUO5BB7n+MQ QstCJbFJ7Xk+CA6i
q8CBUqJCrw0sRy350hif02IJ02maZIu1l0NcRFM8LXAYxTDc5RCHltuQ2Sqw PMaqoW16JofCqzgt
JtBKDry4pVHMu9J/t6YkFOdRqgCD8hhrvWzUbg4ymMl+/fMDpZs1DJl4PnAz rP2fH8asqxkOIeG1
pMhOoRUcKFobhaFN2s+hUCOfpwsd3+KB6hzaUOfQhqZVrXN4tZiDzu/fiz5X vC6V34uW98gifdyv
skDHtCJ1fIsH6ta6VOYtUuewQZ1DG+ocFonuVxFaV9vrfTkUg/HmHCil4Zlf +J3ySVfzqbgqj331
qE2tkAhn8O8dsrhiudpPlVKUIpvbpVAtpAN3p9PQ77BOB3KINvIRJC7m0+SZ xCa1iYNqVaYcVxhO
NeBpSgxFtooyMqAsV6UkzC2X5iAvXsRhmnGUJgD7FXUG4VAHr2sobbsf/F6H kw40h3SzDEPiUMnm
goFE2BxtwSE3t0wZB3H1Mg7iN5zPcZBVHsxBnvA+ciCuEmOPV5TZXBCvk83H 7qrpKuUc+PJl65Lq
erp8EQfuSi3MrM3PBx7BmKviKjkQD22ZLRLmQFluPV2lgkO6fjWH2PschxBa FiqJTWrP80FwEF0F
DpQSFXptYDlqyZeGuG6IJUyncj4v0977IS6iKZ4WOMj19S6HOLTchsxWgeUx Vg1t087nQ7xkEYfC
qzgtJtBKDry4pVHMu9J/t6YkFOdRqgCD8hhrvWwU7ft7aVDBTPbrnx8o3axh yMTzgZth7f/8MGRd
zXAICa8lRXYKreBA0dogDG0S7f78UKiRz9OFjm/xQHUObahzaEOdQxuKHO5/ c9f1SEUOn10vVefQ
huafD13P1DyHj83P6UOgHtOK1PEtHqjOoQ29Fwf5EqJQ57BFm1uZBfEuHNL7 L/UyjeLv/IVBabKG
t2PXg4EqDXjdGrXYEqn31/Ft4sB5A9fKWxRlMxE8VRs4kDgeqHQwy0FtgsR6 DoMIhPRxDE1HeT2o
cBAtvBbDVg4pYyWHfPiGvRwGcf02DkPVxLO1hYO/+Ynn0UoO0+JxBAfVUDjO OfCTu8YhrmY/igPF
9Via3cBhEPz2PB/k9UM8TqFROgx6t3VJPKfDGGoPS+6HYUizN9xcuRbcD9wQ xaACIR9aepaHxm8/
pyshPFNbOKSMOB5aS+6H2nVaSzikk1tKlWsc5s+frCdzIHV2S51D0OzzgTNS onT388MiLfn8cKOG
PA6VZYuFl1drBYel2nyh0jGtSB3f4oHqHNpQ59CGOoc2NM+h65nqHNpQ59CG Ioeu1ypw6HqxJg5d
r1bn0IY6hzbUObQhcPh+gO53fFv3e3gzgcOv95/mXp+/Dgurfu7ncL+TW/pc 6qkZreAwLOaw/d/2
i9rJYXGgzahzaEPMIX675r/Ap3jMX8FLDlyXhlSXK27jQOJvhu8YHMUD7ifE J7osI/jhHKKZcCLT
IeeQ/Kc0Vdx+P0QQ37Ib1UOKj/IIZQQ/m4PyrFIvxaFSt8KBYjLNdZ/6g/jv khPJ43RDMAdumGeE
5qDzYqg/TJJDtK0IEH+nLjnU6t7gIMc+S6n2v1dUOeg+iWPjPA71h0lwUHMr zbb6ulSte4eDTGeY
3OaQOtD3Qy2Ct+Ewnc4+pyldncZBVKxw8GvOVg7pacxMiCOsRfDz16WiAh8W 69JMPckhrPlqvEmk
Y35c5VD2UJEs/4kcfgdQSwECFAAUAAAACAA6h4YzOZrZJgkJAAAupQAACgAA AAAAAAAAACAAtoEA
AAAAYmVmb3JlLmJtcFBLAQIUABQAAAAIAGyHhjMmXRm4TgoAAIamAAAJAAAA AAAAAAAAIAC2gTEJ
AABhZnRlci5ibXBQSwUGAAAAAAIAAgBvAAAAphMAAAAA
------=_NextPart_000_000F_01C5FA8E.428CC930--

Attached files pictures.zip (5 KB)Â

Ingo · Mensaje por **Ingo** » Mar Dic 06, 2005 6:08 pm

in addition to my post:
it happens only if there are fewer records than rows.
it happens too with not scoped tables.
Regards
Ingo
--

Guest · Mensaje por **Guest** » Mar Dic 06, 2005 7:35 pm

Ingo,
On scoped filters, if you edit or add new records it is necessary to refresh the complete Browse since some records may go out or in the scope filter.
If you cancel de AddNew() operation nothing should be done. If you could send us a small sample we will take a look.
About the vscroll problem. That is a problem of the ORDSCOPE functions used to set the vscroll values, unfortunatelly some RDDs do not report accurate values when table is under a scope. On those cases you may use the property DataSet:lKeyExact to TRUE, but be aware that is terrible slow, so you can only use it on browses with few records.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje news:[email=4395c289@ozsrvnegro.ozlan.local...]4395c289@ozsrvnegro.ozlan.local...[/email]
Hello,
using a scoped (:SetScope) TDbfDataSet with TDBBrowse. The TBrowse shows 5 records. The first record is shown in the first row (see picture "before").
Starting to add a new record to the table and after cancelling this procedure the TBrowse shows the first record two times (see the picture "after") in the first row and in the second row. Therefore 5 records are shown in 6 rows.
Here the Code:
METHOD MP11Edit(lNeu ) CLASS KStamm
LOCAL lOk:=.F.
DEFAULT lNeu TO .F.
WITH OBJECT KMp11Edit():New(self)
IF lNeu
IF lOk:=::oMp11:AddNew() //oMP11 is the DataSet
:oFK8:Value:=DATE()
:oFK14:Value:=16
ENDIF
ELSE
lOk:=::oMp11:Edit()
ENDIF
IF lOk
:ShowModal()
IF :nModalResult==mrOK
::oMp11:Update()
::oMp11Brw:RefreshCurrent() //oMP11Brw is the TDBBrowse
ELSE
::oMp11:Cancel()
ENDIF
ENDIF
:End()
END
RETURN Nil
What is wrong withe the code?
BTW the Vscroll is not working correctly with scoped tables.
Regards
Ingo
--

Ingo · Mensaje por **Ingo** » Mié Dic 07, 2005 4:06 pm

Ignacio,
the double record showing is solved. The DataSet was not really cancelled because the cancel-button returns 2 instead 0 as I supposed.
DataSet:lKeyExact:=.T. doesn't make the the VScroll working with scoped filters on dbfcdx files.
Regards
Ingo
"Ignacio Ortiz de Zúñiga" <NoName@ozs.com> schrieb im Newsbeitrag news:4396a203$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Ingo,
On scoped filters, if you edit or add new records it is necessary to refresh the complete Browse since some records may go out or in the scope filter.
If you cancel de AddNew() operation nothing should be done. If you could send us a small sample we will take a look.
About the vscroll problem. That is a problem of the ORDSCOPE functions used to set the vscroll values, unfortunatelly some RDDs do not report accurate values when table is under a scope. On those cases you may use the property DataSet:lKeyExact to TRUE, but be aware that is terrible slow, so you can only use it on browses with few records.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje news:[email=4395c289@ozsrvnegro.ozlan.local...]4395c289@ozsrvnegro.ozlan.local...[/email]
Hello,
using a scoped (:SetScope) TDbfDataSet with TDBBrowse. The TBrowse shows 5 records. The first record is shown in the first row (see picture "before").
Starting to add a new record to the table and after cancelling this procedure the TBrowse shows the first record two times (see the picture "after") in the first row and in the second row. Therefore 5 records are shown in 6 rows.
Here the Code:
METHOD MP11Edit(lNeu ) CLASS KStamm
LOCAL lOk:=.F.
DEFAULT lNeu TO .F.
WITH OBJECT KMp11Edit():New(self)
IF lNeu
IF lOk:=::oMp11:AddNew() //oMP11 is the DataSet
:oFK8:Value:=DATE()
:oFK14:Value:=16
ENDIF
ELSE
lOk:=::oMp11:Edit()
ENDIF
IF lOk
:ShowModal()
IF :nModalResult==mrOK
::oMp11:Update()
::oMp11Brw:RefreshCurrent() //oMP11Brw is the TDBBrowse
ELSE
::oMp11:Cancel()
ENDIF
ENDIF
:End()
END
RETURN Nil
What is wrong withe the code?
BTW the Vscroll is not working correctly with scoped tables.
Regards
Ingo
--

Guest · Mensaje por **Guest** » Mié Dic 07, 2005 6:51 pm

Ingo,
Send a sample please.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje news:[email=4396fa73@ozsrvnegro.ozlan.local...]4396fa73@ozsrvnegro.ozlan.local...[/email]
Ignacio,
the double record showing is solved. The DataSet was not really cancelled because the cancel-button returns 2 instead 0 as I supposed.
DataSet:lKeyExact:=.T. doesn't make the the VScroll working with scoped filters on dbfcdx files.
Regards
Ingo
"Ignacio Ortiz de Zúñiga" <NoName@ozs.com> schrieb im Newsbeitrag news:4396a203$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Ingo,
On scoped filters, if you edit or add new records it is necessary to refresh the complete Browse since some records may go out or in the scope filter.
If you cancel de AddNew() operation nothing should be done. If you could send us a small sample we will take a look.
About the vscroll problem. That is a problem of the ORDSCOPE functions used to set the vscroll values, unfortunatelly some RDDs do not report accurate values when table is under a scope. On those cases you may use the property DataSet:lKeyExact to TRUE, but be aware that is terrible slow, so you can only use it on browses with few records.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje news:[email=4395c289@ozsrvnegro.ozlan.local...]4395c289@ozsrvnegro.ozlan.local...[/email]
Hello,
using a scoped (:SetScope) TDbfDataSet with TDBBrowse. The TBrowse shows 5 records. The first record is shown in the first row (see picture "before").
Starting to add a new record to the table and after cancelling this procedure the TBrowse shows the first record two times (see the picture "after") in the first row and in the second row. Therefore 5 records are shown in 6 rows.
Here the Code:
METHOD MP11Edit(lNeu ) CLASS KStamm
LOCAL lOk:=.F.
DEFAULT lNeu TO .F.
WITH OBJECT KMp11Edit():New(self)
IF lNeu
IF lOk:=::oMp11:AddNew() //oMP11 is the DataSet
:oFK8:Value:=DATE()
:oFK14:Value:=16
ENDIF
ELSE
lOk:=::oMp11:Edit()
ENDIF
IF lOk
:ShowModal()
IF :nModalResult==mrOK
::oMp11:Update()
::oMp11Brw:RefreshCurrent() //oMP11Brw is the TDBBrowse
ELSE
::oMp11:Cancel()
ENDIF
ENDIF
:End()
END
RETURN Nil
What is wrong withe the code?
BTW the Vscroll is not working correctly with scoped tables.
Regards
Ingo
--

Ingo · Mensaje por **Ingo** » Jue Dic 08, 2005 9:35 am

This is a multi-part message in MIME format.
------=_NextPart_000_000D_01C5FBDA.AABDB990
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000E_01C5FBDA.AABDB990"
------=_NextPart_001_000E_01C5FBDA.AABDB990
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Here is the sample.
Regards
"Ignacio Ortiz de Z=FA=F1iga" <NoName@ozs.com> schrieb im Newsbeitrag =
news:[email=43972128@ozsrvnegro.ozlan.local...]43972128@ozsrvnegro.ozlan.local...[/email]
Ingo,=20
Send a sample please.=20
Regards,=20
"Ingo" <ingo.jh@web.de> escribi=F3 en el mensaje =
news:[email=4396fa73@ozsrvnegro.ozlan.local...]4396fa73@ozsrvnegro.ozlan.local...[/email]
Ignacio,
the double record showing is solved. The DataSet was not really =
cancelled because the cancel-button returns 2 instead 0 as I supposed.
DataSet:lKeyExact:=3D.T. doesn't make the the VScroll working with =
scoped filters on dbfcdx files.
Regards
Ingo
"Ignacio Ortiz de Z=FA=F1iga" <NoName@ozs.com> schrieb im =
Newsbeitrag news:4396a203$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Ingo,=20
On scoped filters, if you edit or add new records it is necessary =
to refresh the complete Browse since some records may go out or in the =
scope filter.=20
If you cancel de AddNew() operation nothing should be done. If you =
could send us a small sample we will take a look.=20
About the vscroll problem. That is a problem of the ORDSCOPE =
functions used to set the vscroll values, unfortunatelly some RDDs do =
not report accurate values when table is under a scope. On those cases =
you may use the property DataSet:lKeyExact to TRUE, but be aware that is =
terrible slow, so you can only use it on browses with few records.=20
Regards,=20
"Ingo" <ingo.jh@web.de> escribi=F3 en el mensaje =
news:[email=4395c289@ozsrvnegro.ozlan.local...]4395c289@ozsrvnegro.ozlan.local...[/email]
Hello,
using a scoped (:SetScope) TDbfDataSet with TDBBrowse. The =
TBrowse shows 5 records. The first record is shown in the first row (see =
picture "before").
Starting to add a new record to the table and after cancelling =
this procedure the TBrowse shows the first record two times (see the =
picture "after") in the first row and in the second row. Therefore 5 =
records are shown in 6 rows.
Here the Code:
METHOD MP11Edit(lNeu ) CLASS KStamm
LOCAL lOk:=3D.F.
DEFAULT lNeu TO .F.
WITH OBJECT KMp11Edit():New(self)
IF lNeu
IF lOk:=3D::oMp11:AddNew() //oMP11 is the DataSet
:oFK8:Value:=3DDATE()
:oFK14:Value:=3D16
ENDIF
ELSE
lOk:=3D::oMp11:Edit()
ENDIF
IF lOk
:ShowModal()
IF :nModalResult=3D=3DmrOK
::oMp11:Update()
::oMp11Brw:RefreshCurrent() //oMP11Brw is the =
TDBBrowse
ELSE
::oMp11:Cancel()
ENDIF
ENDIF
:End()
END
RETURN Nil
What is wrong withe the code?
BTW the Vscroll is not working correctly with scoped tables.
Regards
Ingo
------=_NextPart_001_000E_01C5FBDA.AABDB990
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.2769" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Here is the sample.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@ozs.com">NoName@ozs.com</A>> schrieb im =
Newsbeitrag <A=20
=
href=3D"news:43972128@ozsrvnegro.ozlan.local">news:43972128@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Ingo, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Send a sample please. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards, </FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ingo" <<A =
href=3D"mailto:ingo.jh@web.de">ingo.jh@web.de</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:4396fa73@ozsrvnegro.ozlan.local">news:4396fa73@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>the double record showing is =
solved. The=20
DataSet was not really cancelled because the cancel-button returns 2 =
insteadÂ0 as I supposed.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>DataSet:lKeyExact:=3D.T. doesn't =
make the the=20
VScroll working with scoped filters on dbfcdx files.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ingo</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@ozs.com">NoName@ozs.com</A>> schrieb im =
Newsbeitrag=20
<A=20
=
href=3D"news:4396a203$1@ozsrvnegro.ozlan.local">news:4396a203$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Ingo, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>On scoped filters, if you edit or =
add new=20
records it is necessary to refresh the complete Browse since some =
records=20
may go out or in the scope filter. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>If you cancel de AddNew()=20
operationÂnothing should be done. If you could send us a =
small sample=20
we will take a look.Â</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>About the vscroll problem. That =
is a problem=20
of the ORDSCOPE functions used to set the vscroll values, =
unfortunatelly=20
some RDDs do not report accurate values when table is under a =
scope. On=20
those cases you may use the property DataSet:lKeyExact to TRUE, =
but be=20
aware that is terrible slow, so you can only use it on browses =
with few=20
records. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards, </FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ingo" <<A =
href=3D"mailto:ingo.jh@web.de">ingo.jh@web.de</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:4395c289@ozsrvnegro.ozlan.local">news:4395c289@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Hello,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>using a scoped (:SetScope) =
TDbfDataSet with=20
TDBBrowse. The TBrowse shows 5 records. The first record is =
shown in the=20
first row (see picture "before").</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Starting to add a new record to =
the table=20
and after cancelling this procedure the TBrowse shows the first =
record=20
two times (see the picture "after") in the first row and in the =
second=20
row. Therefore 5 records are shown in 6 rows.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Here the Code:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD MP11Edit(lNeu ) CLASS=20
KStamm<BR>LOCAL lOk:=3D.F.<BR>DEFAULT lNeu TO .F.<BR>WITH OBJECT =
KMp11Edit():New(self)<BR>ÂÂ IF=20
lNeu<BR>ÂÂÂÂÂ IF=20
lOk:=3D::oMp11:AddNew()ÂÂÂ ÂÂÂ =
//oMP11 is=20
the DataSet<BR> ÂÂÂÂÂÂ ÂÂ=20
=
:oFK8:Value:=3DDATE()<BR> ÂÂÂÂÂÂ ÂÂ=
=20
:oFK14:Value:=3D16<BR>ÂÂÂÂÂ =
ENDIF<BR>ÂÂ=20
ELSE<BR>ÂÂÂÂÂ=20
lOk:=3D::oMp11:Edit()<BR>ÂÂ ENDIF<BR>ÂÂ IF=20
lOk<BR>ÂÂÂÂÂ=20
:ShowModal()<BR>ÂÂÂÂÂ IF=20
=
:nModalResult=3D=3DmrOK<BR> ÂÂÂÂÂÂ Â&nbs=
p;=20
=
::oMp11:Update()<BR> ÂÂÂÂÂÂ ÂÂ=20
::oMp11Brw:RefreshCurrent()ÂÂÂ //oMP11Brw is the=20
TDBBrowse<BR>ÂÂÂÂÂ=20
ELSE<BR> ÂÂÂÂÂÂ ÂÂ=20
::oMp11:Cancel()<BR>ÂÂÂÂÂ =
ENDIF<BR>ÂÂ=20
ENDIF<BR>ÂÂ :End()<BR>END<BR>RETURN =
Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>What is wrong withe the =
code?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>BTW the Vscroll is not working =
correctly=20
with scoped tables.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
size=3D2>Ingo</DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE ></BLOCKQUOTE></=
FONT></BODY></HTML>
------=_NextPart_001_000E_01C5FBDA.AABDB990--
------=_NextPart_000_000D_01C5FBDA.AABDB990
Content-Type: application/x-zip-compressed;
name="Test.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Test.zip"
UEsDBBQAAgAIAAVFiDOkGAYFaAEAAEYCAAAIAAAAVGVzdC54cGpNUUFuwjAQ vEfKV6KGnn2gBNRU
JEEhaiuhHpywgItjW2ubwu+7dqDqKTPjyXo8u9u0zdty0X2lSXczwOAKaVKA HVAYJ7RiHViXJo13
xrtIsmhZ6NEICciurxx77TFNKi5UpfdeAltpHPPM4JFUL50wEkplHVcDWJat sjT53FRciQPNY1lH
vBzorjTZcOQjOEBLpFlWk/mdeMiSZ09p0oIEboERfPFC7gMIabi6sWpeF/O6 +xEqaObWiuPJ0aQO
+R4qjucwlswjKBfgrtl0ZVNv6fVz7/TInRgqGC8cCxgkZYkVxAwF9P5YqoOe 8m69MQjWroWC2o89
YDjD8d8fD8v2pNEN3jmhjtPJB0eliK3hApLlVJJGaGLfIVXFzYq6nbwL0rQE KvYuBC/deiZ/eEFR
trS+pi2X4RVb2sQAhUA2ISpWDdLvo3SHoUL753tgqrv/DgJ9aOyqXMeB+bTz uMrZ/70+RzKbyC9Q
SwMEFAACAAgACkWIM6feEsv2AAAAfwEAAA8AAABTb3VyY2UvVGVzdC5wcmdl j8Fqg0AQhu+C7zDY
iwnEaKEEFnIw1ZQeElrdQK7bddBt1l1Zd8nrVzcNBHKcb775+We9DANYwpfR v3ixBCiO1pOCWRS3
ORlM69kOR94ZFD9OtQRqy4ztdeMkNGggHwYpLswKrbycO6sNuWe5nkCWrrLN 6jVN32a6DoMweBGK
S9cgRGcmJJqEd9HMpz4cG2cQDkyoeDEdAFTl96msKRS7/Xtx9qgupzGnJXyU 1SE/euaLcF+EcCqs
RCBbiOZPoidB1kK1Ej/VaJni3kxo8qydRqzQOqPI9r6ne236LF6QI17jRxsW pO709b/1Y0zl/C9h
cMsKgz9QSwMEFAACAAgAuEaIM1As2SrEAQAArAQAABAAAABTb3VyY2UvRm9y bTEucHJntVJNj5sw
FLwj8R+e0gtZbT6rVSVLOQQw2rQJrIBVe2XhJaHr4MgYJe2vr+2k2bA0t64P YM3Me5439ujOtuAO
ngT/ia+SQIq1NIifSSwJBDzgYjcZ7sVGgS7W+VZg+dJUG2Jk80ZyQf5WNDsC k+lg/GUwHY8fNDqy
Ldv6VFY5awqE3o+sZCiG+bancW85TxJIzQkQxNHqtNcUAHjR6ikKaZgC94qj 6p4lvBE5Tt6z/sva
sCi7lOsKfqi7NW4jJa9uwNOzgxVNHyMfPIEqDO3M6V/jtCilAyzEBlq4Vi6q UpYZK3+jAzzBqkCh
RbZFQ9+M3c7lFPJxvTO5jEaD/7p0z394huv8bWsZefOlioxtyMxgU6dPQjw4 NbK18v59kT5C5H6l
XgqEdFJfBKat2atF5kWhi0/J0GVCL4zxcMZDfxGYnTk32fLDihcZO9Oqp8Er A8ZYN0zOdiJ6vfR6
3hfqbs7yrgstIW+vgMS4Flhv3/TXxm6IvUZgJa9KLp5bU3lZlSNrz6V+oGOz LTMGrQrNxzR9jkMI
S/bBl33zIb67+fZtEvVJcr5Hp6cmmXx+6N3fD9Nhv6Nj3/AXPWa5JDPFf/xc fwBQSwMEFAACAAgA
uEaIM1JSoRyeAgAAcQoAABAAAABTb3VyY2UvRm9ybTEueGZtvZbvb5pAGMff N+n/cPGVJsYgILMm
ewEK4mKlARazvaNwtpfiXXccs926/313Jwi4ql2z6Svu+XWf78MTH67t0PUm YExhxKBD6LrdAeO5
GQQgFKf+5cXlBQAgyB8hHdWjpHk0CiCzSI6TrA204VUX9A21C/SB0gWaooAy Kg7hEwOjj6Ali7YK
M3EIluZQPLQ7xQVt0LoOQBDhDASQolWrC4ZdwEvqtZLYIjSBNGDPKRQlbrNg tpjO7cKdmjkjQUxJ
mgpvz+mVeeMUQcyWKGH3wqPratPjQnR3L6lUwyiruSiBHg8gmbysF5blPDzD iKEoRT/gTmBlKpUW
wjpFO7n0cfI0iVgUkJzGsC+b0DDVuhHAdAXK1OUsdIFnfbLHoSgzuV3JHMi2 NaozL7CAmyobyB/P
2F0hEv4g2QXGN5TEMMukqqm9sH1z3qq8i2i9Fbx+HPaS21XlSr1HiOtdEsaq AfxkLyYH1FgWJZus
6Ed5OqCkNnrKdjx0Pntqf1iLwSaO7wmVIqKH0LuZ207oz6ZuWIbUCUKLbnwY 83vKKxtMu7Ky8m6C
VL1ubwhtaJVZPtlM0HfUmNx0LoCmvvmlihuT9E1x1xH9lkNYBa1dHjT3veXe G4eseN21iXm1B0Lv
hl+fr/HpLsQujDijHATza+v1BulK3S5xHATT5LWso+37N5yO22+Cmim6w2u4 /StiUWM89pRcHVGy
X/csUtQDPdeMo6Tq+Um1A6RD9Sipdn5S/QDpB+UoqX5+0sF/GuTB+aUY7xtk 4+2kb9xBVs4YwdsN
tH0+vX/6qs43j2bw7x9F7KBBLaz69jGTBGC4qTal+KJA8YNw/nx5GY3sBLE2 35qdX+9iVv+KWdXU
gnmoHEQWRKd4nVO8vh1+9hcS5fLiN1BLAwQUAAIACADKRogzGaILHQoBAACS AgAAEAAAAFNvdXJj
ZS9Gb3JtMi5wcme1kE1rgzAYx++C3+Ghu7QFqxXGILBDfWOH+kJ1sKvVp22m JiNG2MdfYh20bN62
nMLveckvf3ttGrCGTPB3bCSBAns5kqCUSAlEPOKiczcf4qygh311EUiPAzuT sW03SC7I98TQEdi6
lvNkuY7zqKltGqbxQFnVDjXC4q2kLYpNdVlo7u93eQ7F+AJEhzS+3nUJAPw0 ztIkTArggad1wprK
7c/SDI7Lvvm15A1ScjaD3flF7uQVh8VLGoAvUDlp3+Xqluco95Q1S+A5shoF rPRcmATjb+/juGb7
eerGOGzb+tOjd85KwW34pjFxwlXQpeomz4TwrBTIpGLH04RVaoeweD0kkND2 f5y/AFBLAwQUAAIA
CADKRogzeNeG498BAAApBgAAEAAAAFNvdXJjZS9Gb3JtMi54Zm2tU9uOmzAU fI+UfziiL0RCETiX
kkiVlluWtCRUwdVKfWODN4tCTAVGu/372gYStirdq598zhwdZsbDxsN+6IJT kJiRVV6c1BE4gRVF
gEWFhoPhAACi6hcplt0p2V4uI8LsvKJJqQJaTDWY6HMNppOZBsZsDu3UHpNH BssvoGBSMqXp5quc
yi4WF3XU7FdB2UQQxbSEiBTpnaKBqYHO1+r6eSO18yIhRcR+Z0SsuC3dtRWE 1y3sZCmh7CZN2L2A
p+jzU8Qn6eFeftxAqIEyhwOkIIloj/G4aTesRo0VN2vsQ2h/9RwsNLi2y1Ev SZkhpVxqLmhLHlQu
IrtreIt9XceEKG6aiTR+78zkfEe8SkkmqSgrf6qcsZDWhCTClwUpPV7QC1le eVu3j3SX8MvIGrpZ
s0XiiZ/QpZv4MSD00Hit9+uYfLSOTVweu1ra+nk9k9b9hf63HCtLD/RE6nCy eLe+9nGPWAOdgf33
dM+qohZ05cGiPePFQum3xPhYS+yKsZzWdtT3F+TQ4C9qiiAKK2adocuP68R0 TzKlY0OexNmOlFUm
B06FY20dL3gTXfQqugYyn6UbHv9HNfz25qChVwcNyXxpMEfvyNn83zH7JE9v uqyf7wnXzsM/dlup
bDj4A1BLAwQUAAAACADCSIgzq5an7lwHAAAAGAAABwAAAE1QOC5DRFjtlmW0 VfUWxeec+9J1gA38
CBW79V5uYqNiN1hY2Ind3d2NAXZ3d3eL3WB3d+G5l/ce433Rj4735Pfh7D3P /u8xzjhzrbmWavQf
OmuiNY1/BJbbPqfxz6ao1sDkfzHJkydLPXpUamoKtR/9l+9O43+bkcNHjFT3 qbq9Rk8LhH8IRVv2
Fxo26i+PTuP/mGhsW/6rq9omQaEOHXoVReHWRxSiRrQT7UUH0VF0Ep1FF9FV dBPdRQ9RET1FL9Fb
lKKP6Cv6qYLor64DxECVg8R0KqcXM4jBYkYxk5hZzCJmFbOJ2cUcYk6Vc4m5 Vc4j5lU5n5hf1Io6
MUTUq9IgGlU2iWaVLWKoWEAsqHIhsbBYRCwqFhPDxOJiCbGkGC6WEkuLZcSy YjmxvFhBrChWEiuL
VcSqYjUxQowUq4s1xJpiLZVri1Eq1xHrivXE+mIDMVpsKDYSG4tNxKZiM7G5 2EJsKbYSW4ttVBkj
thXbie3FDmJHsZPYWewidlW5m9hd7CH2FHuJvcU+Yl+xn9hfHCAOFAeJg8Uh 4lBxmDhc5RHiSJVH
iaPFMeJYcZw4XpwgThQniZPFKeJUcZo4XYwVqh9S11zb3NRQP6Sprqmxeqlv rGtoGTx4cF19YzSu
dfGXKq3VMNX/M6QzxVnibDFOjBfniHPFeeJ8lReIC8VF4mJxibhUXCYuF1eI K8VV4mpxjbhWXCeu
FzeIG8VN4mZxi7hV3CZuF3eIO8Vd4m5xj7hX5X3ifvGAeFA8JB4Wj4hHxWPi cfGEeFI8JZ4Wz4hn
xQTxnHhevCBeFC+Jl8Ur4lXxmnhdvCHeFG+JiWKSyrfFOyrfFe+p8r74QHwo PhIfi0/Ep+Iz8bn4
QnwpvhJfi2/Et+I78b34QfwofhI/i1/Er+I38buYXP2bjU1MYWpctjPtTQfT 0XQynU0X09V0M91N
D1MxPU0v09uUpo/pa/oZTH8zwAw0g8x0ZnozgxlsZjQzuZzZzGJmNbOZ2c0c Zk4zl5nbzGPmNfOZ
+U2tqTNDTL1pMI2myTRXZV1L7dCW5oaq//XN9a5O/X/vf1O+qZbB2NaSaFUt VeVmVcOhqhpqW6pq
QmuptKr6odWIGCP1alNDq6eK9lI5RVVPFoOkvn8ePtP420m1zVuzv2pj9X5q /7dYQ80CZkGzkMuF
zSKuLGoWM8PM4mYJs6QZbpYyS5tlzLJmObO8WcGsaFYyK5tVzKpmNTPCjDSr mzXMmmYts7YZZdYx
65r1zPpmAzPabGg2MhubTcymZjOXm5stzJZmK7O12caMMdua7cz2Zgezo9nJ 7Gx2Mbua3czuZg+z
p9nL7G32Mfua/cz+5gBzoDnIHOzyEHOoOcwc7vIIc6Q5yhzt8hhzrDnOHG9O MCeak8zJ5hRzqjnN
nG7GmjPMmeYsc7YZZ8abc8y55jxzvrnAXGguMhebS1xeai5zebm5wlxprnJ5 tbnGXa8115nrzQ3m
RnOTudncYm41t5nbzR3mTnOXudvcY+4195n7zQPmQfOQedg8Yh41j5nHzRPm SfOUy6fNM+ZZlxOM
1NLQUFvf0jYH6obWNkzp7zb/W7O//O/5/5z1vHnBvOjyJfOyecW86vI187p5 w7xp3jITzSTztnnH
vGveM++bD8yH5iPzsfnEfGo+M5+bL8yX5ivztfnGfGu+M9+bH8yP5ifzs8tf zK+u/GZ+N5Orvzql
Q1IWoSa0C+1Dh9AxdAqdQ5fQNWW30D30CJXQM/QKvUMZ+oS+oV8g9A8DwsAw KOV0YfpUZgiDw4xh
pjBzmCXMGmYLs4c5wpxhrjB3mCfMG+YL84faUBeGhPrQEBpDU2gOLWFoWCAs GBZKuXBYJCwaFgvD
wuJhibBkGB6WCkuHZcKyYbmwfFghrBhWCiuHVcKqYbUwIowMq4c1wpphrbB2 GBXWCeuG9cL6YYMw
OmwYNgobp9wkbJpys7B52CJsmXKrsHXYJoxJqWrmN9XX17ZUN4Cq/81NrTld N6R1/2vt/SlRPdX/
baPtwvZhh1R2DDul3DnsksquYbewe9gj5Z5hr7B32CflvmG/VPYPB6Q8MBwU Dg6HhEPDYeHwcEQq
R4ajwtHhmHBsOC4cH04IJ4aTwsnhlHBqOC2cHsaGM8KZKc8KZ4dxYXw4J5wb zgvnhwvCheGicHG4
JFwaLguXhyvClalcFa5OeU24NuV14fpwQ7gx3BRuDreEW8Nt4fZwR7gz3BXu DveEe8N94f7wQHgw
PBQeDo+ER8Nj4fHwRHgyPBWeTvlMeDZMCM+F58ML4cXwUng5vBJeDa+F18Mb 4c3wVpgYJoW3wzvh
3fBeeD98ED4MH4WPwyfh0/BZ+Dx8kcqX4auUX4dvUn4bvkv5ffgh/Bh+Cj+H X8Kv4bfwe5gcVOCC
FBQFNQXtCtoXNLe2e9X0ltrG5vq6ptrmhsbalobaKTM8rcaXatsBxnuq/x0K dSzoVNC5oEtB14Ju
Bd0LehRUCnoW9CroXVAW9CnoW9CvgIL+BQMKBhbloII/HTvT+LtpmbK1/QFQ SwMEFAAAAAgAs0iI
Mx/ww494JgAA3/wAAAcAAABNUDguREJGtZ3PjxzHdcdlCwlycHI1EPjQ8EF2 QNVoqqe7p+dIakWv
vFqaoSgLmByCIdnkTjg7u5idNW0Cga/5K/IXBDnl3wj8DxgIDAj5E3TiIV1d 9V6/1/Wqu6fUKcCQ
qdV++Lp+ft+rV1Uf/9VP/uZnH3/00Y9/9I8fdcuP6v89XH/0+7/7z5/++Gcf //Hzf//9n/77rz/6
7unhX//j9//7p5/++N/+6Y8fPz7XH7mfPzE//8mPuz9PP6K//yPv9xfs57/0 fp7Bz8/Mz//G+3k+
8PcX8POvpL//bz9K6qIXedKUlU5n8/nFs5dXb5LXHw7J5cMnZw+fPL/d3d8l +XyedIpereZ6rgv7
p6woZgv73wBQWeD68qn5dfXV9n21f598W23fHLssH6gs8DEDZovFLDXAmnd/ 24OypQbqeTlf2l9O
Uz3LVvYH8MkWGPzk+u8IAxMJmCwyBvzm9tXmWCWr9LM0EYoBap0u4I9LD6ga 4Lq2pGGM+eQWqHyg
ysqFaZT729VikJY0wIVpFfvLaVbMVhbU1mEDvGiAIwoDJiJwqWd5A8wCDFZq YDbX2v1ymumZa6D2
kxvgOgqoJGD9Q1eH2YvD5s3NQEU2wEKX9k8qL2clHymJBV5Y2HDhwMQHqjSH Vs5HtnI+X8wtUOl0
NVvYYYgWWuBFAxxRGDARgKQfFiMtLOpPtg040A+LEIQWBpT6oc7npQFefrvd q29u3xw2r6o+S2tg
qedzN86XdZ+bLyhQOeA6Cqh8YN0m9fhOrYVJOkulWZqWdF536xQ6c1ouZ/OU TrDKAdcxQCUAEz1P
57NVBhYuYD7sAdYdG7pNnpr14zkBKgdcRwEVBWYwevR8lhYXz6q7Y/Lb6vD+ /s3d++3+rtrLwGYJ
yOc4keSz1H0qAFUDXHPWebXdv68Ou+3+jQRcpVDPCoGL3M2RWmfNuly9vNrf e7/vFb0qVzUQBkE9
OaR2CQCgssA1WezU2ReXvwnwOkBFgbCo5csIC90ymtSTgxuGCFQNECxMvvwy UUlj4r66HwQqCnRr
Ulwdrtwf6SdbYGQdOqDygXktfILqKwDUqVvo07zIZgX7ZOWARn1d7KrbzVuJ QopRX/W63FilBKAZ
S3lILKnL7w7vV3yuaICpdo2i59lslTKgssDaQuVGsaME7GVAJQA99XW+2b96 cf/yykMR4CqFTtyK
JQQ69YWcgZrkQCUA+wRnV20mCQhOEEut4MQ6RElc//aIdnZAp7EF4GQKtluH oGCHjAwq2EXuFv+o
oed8Ez703CweNTkAkE0OKOdOBtYLPdShD8RPfmq/9PK7l2934UXPAbX0yW4W Bws7/bCeacW6bDp2
TgVnB4gWGkB1fZNcbPbvd9WhC4LCgZKFEd7ovAQg8UbRQuaNDtkHQAdRArAe jwtm4dnh/uXb6nA8
VNsXAtmI9rpRUHbo2bLgQNUA1+dP1XPHMNigpRyoCLDACaMM1aHUzHZN0dhF ilm+ZEBlgdgPv/3D
vnobUkpJB6gY0E0mYOFJIwXXFB/YtfB8c73Zhw3kQG4hzEBOiuDQuN4ek83u WF0n568eeYuLG8uC
FClwfJ8sllpg4gPTtNMPiWqSgWYZnbuwgF4Us2JOgcoBzVhOLr/f9Y4SUxrg wikHDgTvKqqV3Rhn
jQL+H7Ty0ORviwOi/PWA2Woenm1CwFZ9zevJIadA5YCN+jp8eDNUhaC+mk6s BGCv+kpC6muhQf4S
sYR1GFJfsr0MqASgpxyIhb9YaRnY+ilkoQegp776a5IDlQCMUV9LEO1ULEEd MvU13M5MzikB2Iol
q5WGkI1YSuc9nxwj5xAoNAqLHzr7rm+TxSwQFtJNuA+6DQmztI0SEz+Eji0A Jwv3tRZOFJBECzF+
OC7g1wALdG/bcB9a6OKHccDEB7L44biOncMSwOKH7fQVFT90Q08CLvWqiX2R IfxfqyIYD6qB5XwJ
HXtRLGdLPn3pxapZAhzw3XafQIxOLBy4NOqLAVVauzFuLBcPWMxPrtAGWNqO Xc+vy9Usg4XeffKq
XrgyDPfN4VtD7VMDV3MN3mhWlLO8M1IscB0FVAKwXkdNVwIL9Yjo3HyepRhi rjvxookftmO5Aa6j
gEoA6vlqTuowHQGsmxHUV15Lt1xToHLAdRRQMSA65UzBDhWnbVyjMG3j+mac +nLdhgFx4+t0t0KD
nyIAu598dpjVwv1wDEl3BlQCME7OaYiqU/VlY9tEzvUZhsXpQwimecA4OVcL Bvcnqr6gDgNyLmAv
AyoB6CmHcXJOCKYBsCvnBmqSA5UAjJJzCyGYBnVI5dyIdtbBYFqoDqODaZ06 hGDakJE6GEzDTyZy
btwny9vBbaNMtB3cWhgh59I56BiqvsDCCDkHwEQARsm5JTYKVV/Owhg5h0Aq 55ZuFolbAkB9kQnW
Ab0wS7U/3r28qnbJo2aTqxeoBODpM3Y9OWQOyCZYC2QzNhrXU7QNSAozNtRh 3HwIapcMPQB682G/
nRyofCCfvoY/Wge9UbBwst2Kzic793bQRjt9YeheqMOoCRZD9xRorcZtuJNG SmqlCNs1s8B2G45U
nUqaMPmn60t1JgLbQJAHrMtyPitKWX0J4tNKEYwfLgqMHwJQNUCiHHT6WblK Ht1c7aXYLgcqARin
bcCVJVJkCX0zoG0CJjKgEoCRY1mIimAddsZyqPKAEAxVwSfTsTwAM8UOPY2z s/YsjBrLEIOVgHnO
Z2zXNL8IrPvNQl/CJ6dl7SstGFBZ4Pr6tjbHUIbrcFE7X9BFfGDtlC9kC+V1 v1lG8zZEkKF7CxZa
oJUiZ4fqbtZvIwMqCRgXCAJJTBd68AyiAkEwV/pAFgga1w/zel0Gb5TEbXBy iAgEZeiNUqD7d1Ha
BvJtmBRxVne0zbP7m9evQ7SkA+TaxvXHvNSzsjzNQu0Epy4XeraAoQdhVGuh 2WhVtcAx/vKTbRWU
7g6IarVroVos6kYpmyXAZen2Iymwnrx0Nis1BSYTLlIgk+VFKmRjzyIFkeOo bBZpkYJGIYuUA/TV
IgMqAdi3SHk0AK4gRMAWKahDu0iZFa6vu0DhQCUAJ3PAoQ7pqjfUqwEoOuBY hysd1IcPkqfPvuAC
THMHvPZGC1hToA5XmjrgD5LbQ/UK7BRbmTrgPpA54CNaRQcdcGyUqRxwtHCV GQf8+nY3NC+0wAId
8HpRLzt1aIEXDfBbE7L97Dd6Hs40ZcBEALIQwbg6NBs0MN0Tjx4tjNrxgQXJ B0640DsLp1voYT6M
WJcL6NhsXYb5kCiHcd0mny/nkPAkAGnG+LhWNgneYE3vSAFl31sYkI8U20uy ZRkjRWxXSbOsbLuN
3VxwQBPEONtWrw7bYCqjLS4w3lioBGD9t6yaLaTTsgggM03nulWwML5Xdgup 65oF7GVAJQD7Vr0T
XTMH7LpmAzWpw64Z7EnRRWq4WXQ4zAK7ZpOFWfgnuzDLoI3abvoLkfZQo4zL IhD2ArAOyao3rg7N
pr+06kEdRmURSKseAKOWANjdoUsAfHJUWoIT7RJwujUFVO1kawou/mQJGNXK +XyBcRu6BODiH5FF
gJElH8jWlHEWmiUAG6WvH56ypmC38YB6Uc4NkCUQ9FhaA5c6hY5dr6ezvKRA 5YDrKKDygcG0hBBT
N1kEIOdoFgE0SiAtYRRQCcCotIQF5n2RLALsNhFpCQBUAjAqLSGFDRqaRQCt HJOWAEDlA2NPcrkG
IAevWgujTnK5BmBAGD0xgSDYC2BRERjfLhDULMQjs0w1nNcTgHFpCe6T+Z6U Db2QTS6D+/pYvdn1
L/QtUAnA2KgIZIzTIAbUYSgt4cPu7rradtOMGFBJQKq+Bj+4V325T55OfUG0 CUIENEIQNlXbEAGk
8dMQAcTDooIYcNDABzL1Na4OQzEHqMPJYg5gYdSmv+TRg4VRm/6SR+8sjNv0 h2AaFUvOwrhNf/CI
fCBTX+Na2Ygl/wx4OzlEqS//DHjbsYsVmw8vbm5fm669TarD3bHa7Y5dYDHP UXAu6pkFpIjXsYuR
nywfKm/HcmPh+tFhW71+i9YF0QxYu2GehZOdUgegeEq959O1OVSO6oscKoc1 RTylPhaofKCkD3uh
jZzLYOeRyTnXyr4+HA9UAjBKH0KoiutD6IcR+hBjXwIwUh/COXoq51wrx+lD OEfvAeP0YQnZLL6c
i9OHAOT6EDNPI05lLsgEC0cUl5h52px5fLyZJb86VNfVYXO8sqkdolbkQHrm cQmeQbvzaM5Qfnuz
69t4dGIplQQn+C6nZuoSIJPEJcrk0+tQYyCIfHKJ+6UZamyQiF/dv3q3fZOs 322ru05yEAcqHxi3
86hxTWk3CgHo7Tw68wKFA5UAnOwcPdRhSGMHDGVAJQCTuBgsLOok3Id12InB 9ldhB6h8IPMCHOx+
/ypZb6/rYejvDDjRjsNMexbGeQE4zHxgVMgUZ5twHTq3YvCja2A6x5MLYh0S L2CgQUyxol0SS1iH
UTFYQduAhaWdD41ofzBCFVtJDNvBWbpA9xYstMATNTZkBAlAVeYaNPaDRtMN TQ61nFviofJaH7rA
WmthA7xogf2FARMBKOrDHiMbOYdRESrnLFDWh2OBygcaJ6BJuWQHr8xYuWvE 3f3MCChSjBRp44eL
WiyVxeMB4PpdtT3ubGrL61ny6MPh5k11PRsHVO5omJUibhzX/+LTpGMZFAd0 UsQeDeMWZvXSuswv
nlTH9++qw9vkw4vqcHv48LraP6i2exPkPFb75G72cL+bATDDe+dMFlrJgMoC 18+++Pz8yTdPfpU8
+mL98Pyr50mgWCDkLAnARh8uVqcITjPbuHFv9eFzAlQOeIrgbIHKB8YGJN3k S/UhWhgVkHTqywea
FaCcZWVrIWlaM2+3jd4CdQqrnl6WM91p5Qa4Wv/Z/eKQALPABeQaNkBnIara 0+8iwFamdxEAEG5L
MFKkWfYeXu1qX17GdYFKAE6WSIYWyolkITvDiWQAnOwkVwkBtoCcCxQGVAIw 8tg7zDZU27i/hKqv
/gZuig7GYLFRmLYZRFqxhN2GahvoNlEb1tCxfSATS+M+ORAyxUaZKmSKFsbs L+MSQCKcaGHMDjgk
1grA6Y69g4WTHXvHoUdCpuNaOSd3YpAIJ04OMSFTvLXDB7II5zgLAxvWfj/8 gRvWDigKzh5LdXPs
HQJBTB82QFlwjgUqHxjcsA4vAaENa2iUwIb1KKASgHEb1iDaafwQu03MhjWI dgEYd44e0gVp/BBa
Oeocfcr0YcfCKH3oOjaTc2BhlD50Q48BoRqW8wj1Bf7ySuMFESVUQwNcP3uY XFZ/qA7Jl/u742a3
2xy3N/tkc5385sA2VBhQScBQdp/Fe0UHs/vgk+PyD0ESC8CIUJWeQ+ieLfSg JjqhqsCnQuFAJQDj
Dl5BfVGx5OqVqq8B60xhQCUAO+prEGnFEiz00idHqS+8AtcHMvU17pND6gsa ZTL1BcCodEGMfRGx
BJ9M5Ny4T85odM4HdtTXENOKJeHScvzkqS4tb2cbor7GfbLZX5bUF4yeqA1r +DwBmGTzWZq3HXv4
gtlavODmQr1+QO4cDr0GeMpsQ4DKBzJ9OK4OjZyDncfekXKKPoS9UR8o6sMe S3UTPwQgk3PNP2V9
OBaofGBQH4aYVs7B9MXknGuUgD4cBeT60E0YcdtwwvWtDuhd32o69+eb69u7 MUC6DecW8Lrh9ekW
uti1TgVgXuTxwIWuVz03li1QOQtN7tzD/bHa7pLHuw9vwpddUqASLFTOwnVz KWVz4uXrl1c31f54
tdnVrZ6cf7d7TeWiA5YW6FuYxMW+MCOIhKoQ6MJ9AHy6ubt7d3MIidgOkETn HLCuhyULpj0AolyZ
HKiKNj0GLJxsbxQsFINp4aZmQCUAPW0TfQ3I/xuwq2D7+3UHqEYAO337dOBk 93BCK1NJPPC5puhg
QBIbJZxy+cBLuLRA+dwo1mH33GhD6euHgXOj2LEz0IeL5Hk9fb3fXO3MvBhA OgULHTtdzDI+9Diw
HSKhyz01u9hTAE53sSe2cprjQdR3S3NitLetG2CBh4bqfphzYGKBFwTYWxgw EYCRZ3wgLYGIdrQw
yq2AkeIDpzs0BBZOdmgI+yFNWw3PMlDCXgCuKVN5ATg5ZPypDpwYfyH+DQZY C05owHqk5J01RTVA
NsH2fbkFts+deECeB/vy6vv+Kkwa0b5s+6E39KK8gGXbDz0gegF003/gtlWN Cz0V7U59yWmrvYtU
DZTSEtDCwmYRfPvlk+bFgMBmP5RmSx1PB5fzWrqtbEASLSzsTVDvXAx2oDRA TAptgCUFRsZg4bAG
DZmChVExWDis4QMnjMGihVPFYEFZRQUk8RoQEpBcwToTCJk+3L+t9vUcuX8V BioBmPRdAyIIRKe+
YIKl6gt0d0fOBSyTgUoAxkU4HZCpL9itoPvL/daZwoBKAHb3l4eQOnggOtQo 4/aXw43C95dHfXIg
womNMlWEEy2M2l8WApJoYdT+shAyBQsn218GCyfbX8bJge4vj2plsx0M0o1K EWioqP1lkG4+kO8v
j7LQhPsk5eD1wxPih20WgQeEA9G4EzxgZA1czjGBh55ftkA8EB0FVD6w/i+K FNZlkwY1AljOM4hw
Jqa+QIpAx26A6zig8oEswtkmNAbBTixBi5KAJFhII5ynApUAjLtJHtcUsmGN HTvmJnlcU3xgpPpy
FjKx5PphnPpyFvrASPUF2sYXS5HqC7QNA8JKGBXhhAWNRjhhre5m9xlq7Qbs NtUb4Z5ZDlQ+UOcr
8VnG3seV8BqQ0tz9Cq5Z80/lgM3jSo8P1fb6/niVPD+7u3nNtuY5cAEamwHd fspkR8NWbj9lsqNh
aGFEP1yin0K7DVgY0Q+X6KdQIKiJiBzODF8noVFi0DuBHM5AV2RAJQD7TnI1 XkBHZzeSeAlLAD3J
hRbasxXOPIMID5MuUAnAyBM0khfgLGQn/ftss4UBlQDseAGDSCfahZugULBG eQGgg3wgP5iP9l3f
ts8Md4GBx5WwUSaLwQKQhkzVYMy0Aeb4wgsNmcInk6DuuFZugUoCxhwagovs 2KEh+GQ8NBQBTARg
N8I54pONaIehR0U7TA5RXgBMDj6wGz8cYWEgy9Tvhz8wy9QBxWuR0NJPk/Pq 8P4F22wNXYtkgfK1
SD2f3mhsdMB9YDCLgBvJgKv21TAmiV2jBLIIRgGVAIzS2AWeeaSSGLpNhMYu 8FSmD5wwwulaeboI
J1gYFeF0dehLkdgIp6tDBnTVEPVaE8zYbKF31dC5H7thbo5X1fYu+ST5lTmz /fKtl+cAMzYDwvju
0TaBp35rIGz6+8DWQvPr1sp6lFSHq81eSmhhQNHCohSfS+61EC+LXmQrfBsO LLRAsNBduh22sdE2
eLUUAzrd3bk64OH93fGz31THY3X47Hxz/z8+MNgozjOYqttkeCjQZTsDEJ7E qDvP1f531eH1zAem
QrYzAperUgb+9ma3uzseOK8DzMx2kWZASJ9eX+rk6f3Lq/3go4cNEKSIb6Gy FtZAUQ56hQMFC/Vq
ER4pQSDcwFN3yllZUqBywCYJ6v717cGM4b5PZ0DlA3s9qZ4EHug2reODdUg9 KfCiekxkQCUAO17A
YENrm4kBUeJWtCMw7pEviBILwGzZrMtiK39z672woc1J/ww2aNIMb+PHOrTA xpMyvzz0zQyoJKCL
tDeifcRQaUR7Jrx4hZ/sIu3tJz/9ah2ANf+5BfqR9q6FJ4buhy2MA0oWUi9g XB2aF1H967naoRf1
xKp/PVfbbYgXMM7CNnRPvYC2Y0+0F4DzYWcvYETHNqF73wvA+bCzFzAS6ISR Dwx6ASGwE+2uUYho
x0YJeAGjgEoAxkXacaOwFe1tt4mJtONWpg+M9AJctyGiHVs5zgtwHdsHTucF tBZO5AVkKKAiboLS
QvwQgZCC7gfGxeuvOJCkoAOwXpZTqmDNDQmYjv6oOrzd3IeB9bJcL1IwfXXu ++rqw+D1XE2knawp
aCG/78s822aMer75/cub/fFw0/dgHwJJknz7nNGpFpbtM7XMQjwRYq9fMBYa wsXsfvZ1clb7FvXM
8HD/vqOIO0By/YIENJ+czkwW+6wGJ/ezBNEESFuZAd2MH9VthEvYAMhOLhjA 09ebF10KKRyofGCq
i9N3fCCBxzyKBGn8DqgcsNnxGTCuKRaYuomAAYf95aBrhjs+dCxjxI579I/N mdG3SbCwNH7lA+m9
xEOsplDRzu4lBgujngeF66wloCfaR2Td1x44yDki2nF8W7fi8qn59Tb3PvT5 HKh8IM9pH65FbZOg
MEajPQvj0rQwiuQDY+4lbq84a3Pa2zqkNyc/aO5N7vtyza8484FsP2VcHS7a MAsVnFiHUVlV6Jp5
QJZVNc5C+emi1sKJni5CC6MuOsZdM+L44DGdmIuOcdfMBzJPalwdyvsp7QQ7 0X6K0A+LkRbKTxcJ
/fCU/RRwFH0g2U8h+x9hU43j095lSh0ftwSQ/ZTTgcoHJt2squFFalW2Gptk VbUdm2dVnQZUPjDk
64XAOnSvCFoY8PVGAZUAjPL1cghiUNcMO3aErwdAJQDjfD281Y24ZtAPo3w9 vNXNA06X095aOFFO
e4bnLWL0IYxlJudga45vLlxuXl6p85v7UFzEauy5oA/h6GeUNzoXFCyI0O57 9Ntd7xFABhQsNF7F
fOZt0IS5jVhK0QEv01nJLXTAU7aQWmDCgLEOOG1l6knhg0udM+AX2+qu5wJ9 1srMk8J0j6n6IaZ7
8H54sTlUd9X2mARKTz9082KMWwH32zC3wgKp4zNkXFMoUAnAJMZPEU8HI7B7 +mPATg5UAnCqw7zY
ytTxGVGLOpT31dZh1PspIKyIW4HV4PspfYZqfpyEAmP36Ff02R3asf09ejNS vqqa4PAnZov5UAWv
BMeQigfM9SI8fQnFdhsIqRT1IrVin6wccN0+OW1t/KTPwpXdC1ACkHcb9719 pafbuHqdKqERgZ0b
vIds1Na9FUIE2DdP3nkkwMQH6uUqnOcgA80bNLC/XAMdCFrZAdfXt8ZjftD8 I3sQ9vwYUPlA7uuN
a2XjmsESQFwzHHpRvh4sUj6Q+XrjLAz4etgPp/L1sNvkzWyDt3/sj3cvr3Yf 7u6q5gaBX/78vDps
f/7pz59u7nc//4dGErdSxFwDUuSPGVA1wPXAdSJYOFBRYGzySRN2xqg6mb7k 9JjLw/3bd5skWBiQ
zYd4yWKMhVBfArBr4aPtYf92Yy72T8TCgJKFvdomfC+x/ZdMilgg1Tbu1/tt dNqmqUMlAJO4GCwI
Tjp9AbCrbQYqkQOVD2RrylCLJH1rSntD/0RrSueT3ZoyaKOTIsKaEmqUcTnt wpqCdUhisOPqUD7Z
2tbhRCdbWwujbu2AmYWETNHCqBgszH0+MC6bRbi7Dy2c6u6+dvoi6/K4Vs7J sXeyjLa32Masy+Ab
+0C2Lo+zUD7ZKvTDE9ZlKZvFAcWb8XqKthfZub+cXGEBM7Z4J0bPpzOg8oHB CGeIqU1AEhIaWYQT
GiUQ4RwFVAJwsqd+224z0VO/2MpxEU7XyjQgCa0cF+F0rewDY8+NgoUkIIkW Rp0bBQspEFStrL5M
7EtiOznnfpmJJdDdTn21gIvNXXW9rQ7qcrO/2vCLkzlQCcAofVgIOe2thflq tkpJ7KvHvC5Q6UU6
K2FdtsCFXp0e+4LtYF3UQLfR4IDKAYlH328jBSoBmJi0+9DdLD2xL5AptY5Z dRpFNcB1avfnP5h0
ezTSw3WBSgDWtVg3ysNnH16+NS+Wbo5H40B1vpsBa/cb3bC6lRcpB0YF0yBk yvSh6zY8mNbfZwBY
wuQgAD19yCrzL4nurNaNPpxjHizVh9AoVsGe0Chai1ERtDAq3Ae/TKJzaGH3 7j4X8QvYyIFKAGZ5
J8Xo6dnD5x4Hi27ysfHgVd2iGlY9aOXcphg1nJ7Kc8UCUbr5wN4U9H11LwLb R7FJxjhaaFPQXVt0
U9i9woBKANb/p7nLdCBRHEvjBeSwjKbmukLeKMoC11FAJQKj3AoniZkXgI0y zR3jaOFUlwGihVNd
BkhWvdatGO7X4AWA10S9AGfhVBfmtK1M3IpxFspHZdtWnuiobNsoPHFihHIo 28fmaOIEdhueOHEa
UAnArhcwUHTz5DToQ+sFOAXrPrnrpwyUGrhqz41KwKkeZGm7zUQPsgBwQrei AU7pVoCFUYkTcFGJ
5wXEJk7ARSUUiHHZ0zPG28A42QFfYFyWZYz/+rs3Q5MDAdIt9YUdPVHbcLn7 ZLZrZoFkG85sDW52
20rkYLFAl5wsAJvWOVnBrjDFiApON0dSBTvCRgbkCvYHnAvA6/1ZK8vnAn5d +wAvduZeH7lwoPKB
3jFPPNnaA8Q3F1bkVKYF4jHP2kLnmvXb2ADxIV0GxH37CAccPpm5txAp8R3w w8ak3MiFAZUA7HXA
n3/xdbcutd0LEFKMuha6FKNe8xIACo+zZxksC1FbSKi0PGB3C+nZ/fHoP4Ud AHILAyNlMMUoNB9m
fKRgitFvq7vBNC1xPsyxK01kYY5diVv4+NA73QxaGHecxDUKO/1hgew4yYBx TWmAeK6MAZ1nYA9e
nRiqgqAuPXjlgN5JrlkCU6N5OaAeOPd31GoGVALQO+lP15TA9Qv1EuAahZ6j BwvdwXye3Scah0A9
x5xXCgTdHZXAI8yHOXgGnVS3w/e1dFDndq/ev5CGAdlYLiAw3ok5/Pr+cLYJ 51XZfoj+MgkRFBAY
tzEHx7n4/qr/0QULxP0UCnRhgxgLU7wP1gd2LDy72e2ql/0J3gYIDSBYGKUP IaeBzjZgIVEOhjBk
IgcqHxilHPCwH13oC5cHi8phuP5MsUCoQx9Yl9p5XEp1KKt3N5ZhjJsoccGB qgGaOsTgku4xlgMV
AS5RhJ6sHDDVjY3lJYpQNpbrWbsew58aMXu9Pb5X59//rqKLNAMqARh1HQ0q B3J7DFooXkdj7ezC
PKASgL1egLFQuq6wxCssiGgHC9ELqH/bOgJt3QVisAhUAnC6KDEA/RdemvNr oUrUwSgxfjI9vBZs
Cyw6mDiBjTJV4gRaOFWEEy2cKsIJFk52DQhYONk1IDg50MNro1rZ3NrhllEa kMTpK+oaECeWBGD3
MsDecWeBBXl2p7cfnhLhlPohaMaOaH+2OV79SzgQ5LQNBCTJMroEVRvhViAw 8YFRcZvCQViYxQKF
9Gn3zZ8kX22E1/Ea4BKS8XxgEnkgGkL3ZBsOgPRAtMKUvGDTcKASgFmtJsIP YYAlFFi7O3gmKp/P
iowBlQXWFn7zdKjLmMKASgB2kvH6W8QC0zmGnaVPjkrwBqDUKDFLAApOaejR Rcp9cO3vhb7YAhfi
IgXAqGcmYKGnSwB8ctQzEyBFBKB5RTEnjSK8B0dLA1ygF1BPsBksAdBtGuC6 2VU+NHX4YBeqwMQB
2/0UARi3SJGoSMmBkWfAQaATYBmI24zxpHI4Kksn2JLHbcCTuvzy8/OHX3yV XG4Ox+0++dX1i/Me
IF0CStfyUUsAzoc+0Luo5Hc3++TcuClygI4DmYWgdyJiDgs4gUndCngEthPh /Pp42LCbPDuFAVUP
8Pr2WN0dB3l2+oJ3KyRghGvWAqVP1nXrnOhJpXW3cSNlWY9bp2kcUDlg/cnm t02aQ/9XM6DygSY4
d6pySPXcdRW9zMpZkVKgcsDawmTQuoZhgM4LUAJwQi8AWnkyL6B93Xiah4HQ wqkeBmpHCr0S/Hi4
fzEoReRHD9uRMtGjh20rUy9gsNcYYOAyQGzlqdKnYSx3LgOsu8ErtPST5MxU qvqaAZftBEtvnICx
3LkM0GM1f+4A8SI7H9gmTryziRMjJliTOAH6kCROYD90qR0OOFQ4MBGAoUvL 2acz4Gq+4peWP6bA
4KXlY4BKAEYmeIOCNYkTGbcwLsEbTn+QTAzoh5NlYkA/nCwTgwPjLBSAyQ+y UPjk2BR0IVcEPzkq
BV3IFSldZ49SX6IUcZ29e0Sx2u6rZoRc3F8JL30xoBKAUZcb5M7xYef1LJAd ABwwrgUWtpWVAEz6
Yg7uCjUfuML36Il7C0DngJuABZjYVzhQ+UCWfDKCqFeBh8XRwpj0mDaxVgAK dxH0GaqDdxFgo8Tc
6oZPW/pAFiIYV4eL9hYjttBDHUbFsVEfesDpDgCihVMdAAQLp1OwPyhEIClY mL6Igh3XyoFL2HCC
neoSNr8fFiMtDBwA9PvhD1Ww9p9dBTtiCVjONWgbJjjtjN1VsCcBlQ9MurnE I4DmJUoYBFRwQsvz
XOKhduFA5QNDCpZbyoCBS9jAwoCCHQVUAjDuEjbo2ExwQseOuYQNhp4AjNOH MDkwOef6YZQ+hCwC
HzjhJWxo4VSXsMG1CjH6ENQX04cr8KE9fTicb5NL+Yf4dnBEhqSYw4mvG4OF +OrOY7Of2XeFhRZz
OFdYDcE8h2AdtrMNCZmuOjFYV4df3+xfVQf77MmjLz5PuoUDaQx2xNNFYS9g IdWh60pQh5bQ3N10
/+rd9k1yXr28OibdYi2E2UYApqvi1Ct95vMl3AdUzxKzjAGVA5KdR9kyBsRj nj4widx5hN0KItoB
2L0GpN/ADlD5QOYFDMBMsaIdz4AT0Q4WRnkBeJxEAOLOo9XpQ0Y2ol3jHSJC HUY9aoN3iEh1SLyA
cXW4aG9opGIJ6zDKCxC2MgG4yPgbNFny9fHVLPlLssw/VcnZpQA0D9+6Py0L 3IaDT7bA9dPP1Z9f
mGnmw2tzOjj48Q0wxUspBWCcn4IKtnUrsA6j/BTYUveB050oBAsnO1GIEyzx U8b1w8CJQlwCpjpR
6I+UYqSFRfvKdv9IOSXfRvCXHRAvi7az1jtyu4horzZuRSH5KW5NoY9vJr0o AlzCPUs+MOn6KSPm
w3Ke49VSxK3Ajs39lNOAygeG/JQQWAf9FLAw4KeMAioBmMQ9DEQj7c6twI4d 9TCQEGmHfhj39Lmb
vqhbAf0w7ulzN8H6QHM/xHJWLC7Oasr+UN1uDpvj/SFZfJrD2pLN67Xlnwmw /mA8hdT0OV6HFrju
AIPFAvEiuwb4nAIjPKm8riUI3VPHB+rwZE+qBSofaKabYqYXtYVfPiGNoj4/ Sy5ubrce2QJhgk2K
1azo1KEFrr843G2O7w3HrPaGLBcDJJlpDdBZCJ09wgvI8A5JKtqhs3Nfz5xM Mfeimmnxk/qrd7vq
TcVjDi0QvIC//z9QSwECFAAUAAIACAAFRYgzpBgGBWgBAABGAgAACAAAAAAA AAAAACAAtIEAAAAA
VGVzdC54cGpQSwECFAAUAAIACAAKRYgzp94Sy/YAAAB/AQAADwAAAAAAAAAA ACAAtIGOAQAAU291
cmNlL1Rlc3QucHJnUEsBAhQAFAACAAgAuEaIM1As2SrEAQAArAQAABAAAAAA AAAAAAAgALSBsQIA
AFNvdXJjZS9Gb3JtMS5wcmdQSwECFAAUAAIACAC4RogzUlKhHJ4CAABxCgAA EAAAAAAAAAAAACAA
tIGjBAAAU291cmNlL0Zvcm0xLnhmbVBLAQIUABQAAgAIAMpGiDMZogsdCgEA AJICAAAQAAAAAAAA
AAAAIAC0gW8HAABTb3VyY2UvRm9ybTIucHJnUEsBAhQAFAACAAgAykaIM3jX huPfAQAAKQYAABAA
AAAAAAAAAAAgALSBpwgAAFNvdXJjZS9Gb3JtMi54Zm1QSwECFAAUAAAACADC SIgzq5an7lwHAAAA
GAAABwAAAAAAAAAAACAAtoG0CgAATVA4LkNEWFBLAQIUABQAAAAIALNIiDMf 8MOPeCYAAN/8AAAH
AAAAAAAAAAEAIAC2gTUSAABNUDguREJGUEsFBgAAAAAIAAgA1QEAANI4AAAA AA==
------=_NextPart_000_000D_01C5FBDA.AABDB990--

Attached files Test.zip (14.7 KB)Â

Guest · Mensaje por **Guest** » Jue Dic 08, 2005 10:34 am

Ingo,
oBrw:Refresh( .T. ) after setting the scope.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje news:[email=4397f06a@ozsrvnegro.ozlan.local...]4397f06a@ozsrvnegro.ozlan.local...[/email]
Here is the sample.
Regards
"Ignacio Ortiz de Zúñiga" <NoName@ozs.com> schrieb im Newsbeitrag news:[email=43972128@ozsrvnegro.ozlan.local...]43972128@ozsrvnegro.ozlan.local...[/email]
Ingo,
Send a sample please.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje news:[email=4396fa73@ozsrvnegro.ozlan.local...]4396fa73@ozsrvnegro.ozlan.local...[/email]
Ignacio,
the double record showing is solved. The DataSet was not really cancelled because the cancel-button returns 2 instead 0 as I supposed.
DataSet:lKeyExact:=.T. doesn't make the the VScroll working with scoped filters on dbfcdx files.
Regards
Ingo
"Ignacio Ortiz de Zúñiga" <NoName@ozs.com> schrieb im Newsbeitrag news:4396a203$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Ingo,
On scoped filters, if you edit or add new records it is necessary to refresh the complete Browse since some records may go out or in the scope filter.
If you cancel de AddNew() operation nothing should be done. If you could send us a small sample we will take a look.
About the vscroll problem. That is a problem of the ORDSCOPE functions used to set the vscroll values, unfortunatelly some RDDs do not report accurate values when table is under a scope. On those cases you may use the property DataSet:lKeyExact to TRUE, but be aware that is terrible slow, so you can only use it on browses with few records.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje news:[email=4395c289@ozsrvnegro.ozlan.local...]4395c289@ozsrvnegro.ozlan.local...[/email]
Hello,
using a scoped (:SetScope) TDbfDataSet with TDBBrowse. The TBrowse shows 5 records. The first record is shown in the first row (see picture "before").
Starting to add a new record to the table and after cancelling this procedure the TBrowse shows the first record two times (see the picture "after") in the first row and in the second row. Therefore 5 records are shown in 6 rows.
Here the Code:
METHOD MP11Edit(lNeu ) CLASS KStamm
LOCAL lOk:=.F.
DEFAULT lNeu TO .F.
WITH OBJECT KMp11Edit():New(self)
IF lNeu
IF lOk:=::oMp11:AddNew() //oMP11 is the DataSet
:oFK8:Value:=DATE()
:oFK14:Value:=16
ENDIF
ELSE
lOk:=::oMp11:Edit()
ENDIF
IF lOk
:ShowModal()
IF :nModalResult==mrOK
::oMp11:Update()
::oMp11Brw:RefreshCurrent() //oMP11Brw is the TDBBrowse
ELSE
::oMp11:Cancel()
ENDIF
ENDIF
:End()
END
RETURN Nil
What is wrong withe the code?
BTW the Vscroll is not working correctly with scoped tables.
Regards
Ingo
--