TDBBrowse TDbfDataSet
Publicado: 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)Â
------=_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)Â