Página 1 de 1

AddNew funciona bien?

Publicado: Dom Nov 05, 2006 7:53 am
por zeasoftware
This is a multi-part message in MIME format.
------=_NextPart_000_000E_01C70074.CC3CA000
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000F_01C70074.CC3CA000"
------=_NextPart_001_000F_01C70074.CC3CA000
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Tengo algunos problemas con el AddNew, no entiendo, todo jalaba bien, =
recompile todo con F9, y ahora no me deja agregar nuevos registros.
Pongo el codigo que uso para agregar nuevo registro:
METHOD AddNew(oSender, oFrm) CLASS ZCatMaintenance
WITH OBJECT oFrm
::oDataSet:AddNew()
::lOnAppend :=3D .t.
:New( oSender )
:cText +=3D " (Nuevo)" + str(::oDataSet:reccount())
::OnCatPostAppend( oSender ) //HB_QWith() )
:ShowModal()
if :nModalResult =3D=3D mrOK
::oDataSet:Update()
::oDBBrowse1:Refresh()
else
::oDataSet:Cancel()
endif
::lOnAppend :=3D .f.
:End()
END WITH
RETURN NIL
Resulta que todos los campos, los cuales tengo relacionados con TDBEdit. =
Etc, me dan longitud cero. por lo que no me deja capturar nada, y =
ademas, supongo deberia marcar que el #registros es 3 al momento de =
addnew?.
Anexo imagen.
Gracias de antemano.
--=20
Ram=F3n Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
------=_NextPart_001_000F_01C70074.CC3CA000
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.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Tengo algunos problemas con el AddNew, =
no entiendo,=20
todo jalaba bien, recompile todo con F9, y ahora no me deja agregar =
nuevos=20
registros.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Pongo el codigo que uso para agregar =
nuevo=20
registro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1>METHOD AddNew(oSender, =
oFrm) CLASS=20
ZCatMaintenance<BR>ÂÂ WITH OBJECT oFrm</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ=20
::oDataSet:AddNew()<BR>ÂÂÂÂÂ ::lOnAppend :=3D=20
..t.</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ :New(=20
oSender )<BR>ÂÂÂÂÂ :cText +=3D " (Nuevo)" +=20
str(::oDataSet:reccount())<BR>ÂÂÂÂÂ =
::OnCatPostAppend(=20
oSender ) //HB_QWith() )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ=20
:ShowModal()</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ if=20
:nModalResult =3D=3D =
mrOK<BR> ÂÂÂÂÂÂ ÂÂ=20
::oDataSet:Update()<BR> ÂÂÂÂÂÂ ÂÂ=20
::oDBBrowse1:Refresh()</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ=20
else<BR> ÂÂÂÂÂÂ ÂÂ=20
::oDataSet:Cancel()</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ=20
endif</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ=20
::lOnAppend :=3D .f.</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D1>ÂÂÂÂÂ=20
:End()<BR>ÂÂ END WITH</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D1>RETURN =
NIL<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Resulta que todos los campos, los =
cuales tengo=20
relacionados con TDBEdit. Etc, me dan longitud cero. por lo que no me =
deja=20
capturar nada, y ademas, supongo deberia marcar que el #registros es 3 =
al=20
momento de addnew?.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Anexo imagen.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias de antemano.</FONT><BR><FONT =
face=3DArial=20
size=3D2>-- <BR>Ram=F3n Zea<BR></FONT><A =
href=3D"mailto:ramonzea@yahoo.com"><FONT=20
face=3DArial size=3D2>ramonzea@yahoo.com</FONT></A><BR><A=20
href=3D"mailto:zeasoftware@hotmail.com"><FONT face=3DArial=20
size=3D2>zeasoftware@hotmail.com</FONT></A><BR><A=20
href=3D"mailto:zeasoft.movil@hotmail.com"><FONT face=3DArial=20
size=3D2>zeasoft.movil@hotmail.com</FONT></A><BR><A=20
href=3D"http://www.paginasprodigy.com/zeasoft/"><FONT face=3DArial=20
size=3D2>http://www.paginasprodigy.com/zeasoft/< ... </BODY></=
HTML>
------=_NextPart_001_000F_01C70074.CC3CA000--
------=_NextPart_000_000E_01C70074.CC3CA000
Content-Type: image/png;
name="AddNew.PNG"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="AddNew.PNG"
iVBORw0KGgoAAAANSUhEUgAAAhkAAACYCAIAAADGC2yIAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAJdBJREFU
eF7tnQuwX0V9x08SJKnTdqbKMA7ttPVZpzrWUEdBwAcgoBELJJEEQgyaAEZI CKZqKRVUHOuDDlQt
ra1tnTI0jJlOpsU2SqYGzWiUpLnyDHhDbu77lZt784Lk5tHf+e//7t27r7Nn z2v/5/+9s/Ofc/e/
z+/u+X3Ob/f8z5n1y+Fj7zx7btT4o2N24BfDMvJCWFGp/o4++/NX/vH5Yha1 wIxVWNpTXMmpREBi
KAAFPBRQrYdHIciSSQGy/ixwnPjFcCDx7GkPtm7dKmVhTRKDGmOqxT2l2P20 bUZ6KAAFQlBAtR4h
tKp92tB0R7KzJBdzrGWJiIRUuAJL2mceo6dQACypdg60Nku4OyY6UhwhHDwi gUxZLGlSAaza4UTt
UKBtFQBLqh36FmCJtPgmosK0Fict1mkdFL8FvWpHC7VDAShgUgAsqXZu1Iol nDrSgpu6Sia6LCYg
SQyrdpxQOxSAAnYFwJJqZ0hrsESEhMUvMSHExZXRkkP1XaodLdQOBaAA/JIw 50CtWCIxQ0WI5KBo
/Rh7mjBHEa2CAlAAfkm1c2D6NyXahSBx/UfaglY3sSXT7NGxtPcE2/feTa6G lIv/K23aa70Zj04h
CxSAAiUoAJaUILKlCvnXG7akC3bO+nAHhejy5+Lwod3NcFVXtHBfdF1vtHyA fc66cThaPhRdNxAt
G4oP6JOFJSMIbaDAWLQEob4KLB2MEOqtwAxDTTN5pt2+eiSKQ1/8uWCgcdAX H7igjCHkzJsPz73j
5KvvPH3OF+Pw+i+f/qP7Ts//xun53zr97gficNG34/DeB42BJUCotwKWCYCv aqBAvWcveqc14xTJ
LDz/ZDZfDMksIYrMvmGIQDL71om5608RSzhOXvvV0xSIKG+5fzoQWlgQI3EM BaAAFIACLaEAmXQW
WGvZMTkPLNAxs/w8UCQdJ7Akev8vo6u6o4UvzFo1QiG6eT8LxJU5a47MWXuc 6BJ9+uScO05TYMf0
ySPZAYs8c90pcmtYSgQoAAVaVIFZt55CqLcCNDOpg8ywMwPOwqzVx2evOjbn lsNzVk3MWnEk+tjB
6LrG5/UH43/ta1wxSxbsjK7bOx1oU+TjQ4wrRBQWYq4YQvwt1c3DqglqBwIU gAJQAAq0jAKfGJ1D
4cYR2gunZSoK8Xb4kv44LO5rBttm+7mPRx/qjFmy8IVmYFBp4IQTpemsfPJg xMOU+0JfxdRZMdYM
y0YjhPorINxtwW+7wAEUgAItpAChQgoNbLzioz03fXOob3TytPJn80siYgmF 9/8yvneL4URhCVv7
Epe/GD/iGHJf2A1d7FYu1jKGMgQoAAWgABQIU4FFPRELzOdgx7TZcVXXTQ8M HN/XOfL1Tw/95YqB
dYv7V1/Zd9MVvTde3PuJS60secPDOpY07v2d8ks4Szg/BIQMNO4SngqSQ8Q9 IxzUTAE+Edv8QPzh
Eo7TKkA/M0CoXAF2ClMzGiCZdWUneSOj933mwL/dP/7wt8a+8+WR+/58+Ctr hr9wy9DdN1lZ8prv
xyy5aMfsD4h+ydQvSBpux3h399++9a1b77nn/te9LvZCuC/CHRHRF2lz44Lu t4kCDbupLgIgxl2B
JnoqN6Zt2wD61WB81xWjSAwSzpKhu1eNP/LgxMbvjH33q6MP3Dny9TuGv3zb 0BducWJJ/MvE5gJX
77ObNn3xlb95VxT9x4oV/U8++Zkouv8Nb9q0cuXDV11FGzLTi1rada2aXYCj O1oF2gQYpm6CIu7E
SEoZE6VtrXmFHW/yg1FkiiULuqIFXTRig+uXEEUOfO++/d++e+Rr64a/tHro r1YOfm55Ekvm/yx6
75Px79uJS4t6/nP16nvOOOOvzznnny++mEb5rtmzt9z1eTp44Uc/2nrvvWx/ P97iF0GibvfDBEOB
uioAkCThIe33MU7qOluC7Rf9jl3EyZU9EYUplgysvWb0gb8Y/eZdBJKXdvyE BnTgjqUDty20suSc
LdG7noguIJZ0xlcHi/vWR9GdUTTe23t4cJBckM9F0cHhYbpRbNs3vrF70yY6 4Dhp3jQ2td8uTaCS
Jwer3VKpJYHYcl6CmD6x8Hw7yzqidqeEZtg1zLebamnagSi60nTlAyRpQeGW PsYJe1AHQskKMIrM
ZAntt498Zc3I124nj4QPYN8tVyax5J1PRu/rjFnS2NMnlnx+9mxa4CKKkINC B/96xRUPX7Now7Jl
nR0dEktinEw9tYZV+crXfImCi9VzSeN+nvPaTVlMCUzNFtMnFm6v1L0XDCFM RlUf72a4NyDfQXGv
V+y44/xJVXhuicESNzakTQXXJLcp6ugJcWLpWNK36jLaHYmXtj6/avCzy/lo OrOESl/c17VtGy1z
bV6//p558+496yzaJqHP+6+44tHNW7Zv3/7Qhg0dHR008HNuGOUhvht46aBk 6RKtUr6WMbE0bQIR
JGwsGQtF0ybFpxryxFZpr81FHlMJkqvEmldcSBy44qo2iV9cjelKBkjSIiJN euAk3WzMxQiQzZ92
SqbXuIglg3euGLzr4/Hn+usH1ixqmgXbbxVpjYv5JbR2Rnf0kpOxbOjo2Bht udNOCW2Q0ADv2L17
w4YN/H6/HTt2bNi4cQf5KFM4iX+cuGREsJvD0eJh8V9xRtFX/Nsps6WPEZOx XGqQ5mrDzjarFguX
2sPLkdosli/5Bw2bbmun2lqXXks9chFN7KPYJLuwUpdNKpmEMulfULxlXDxr THu7qiF9GtuItOkU
aLBEf5ojvigFuHdCzwBuLnP10LD13HDh4Pqlg5+9YfAzN9BOSf/ahX2f+khs A20s+cPt0Xm7o8t6
42VKGsglI3SzFq1u3XXGGX+/bNnmLVs2Pfrotm3biCUbN24kj4TeH0Cuyfbt O2LXZMWEiJPp87/x
+GLp3xlrXzMT8DUNKY1kzdUHuYtehZTYUp1YjtRI01eOhVP26fUZtz5KnRLb o3Zf+60otSoIK7+J
VWFQTCnVgdM/P7/Ic55bIEbNfCiQS4Phl6SjQ7rUYElRwLBM/uaz5dkT5hsP mb+ywZKl7xq47erB
O64d/PTSgXXX9q+5Jv7F4s2XO7OE7M6y0Udvv33TvfcSOggbvb29Dz204aEN G2mYaYFrM7GlEdkE
CbGkEeixXxQESxe/10H8V+M96BLEtkOIF0torn7MfGeGWoWIJW0bWBU8SG02 faWyxFK4tlUujUks
M7Fk9wSmlFIbKnlJici5GQ1gVKnwvSlgSTo6pEtd8eBWOK+qqnrxRMSDABUa tu5F5/Z9csHA7YsG
1n108PbFdFtX/61XUryVJX/wZHRRZ+yX0OpbgyWECnJBdu/eTUP76ObN5JCw DZIzVx9rhpsP09Pp
59x4lIf4+ZHXHZk2TzPRovUeZrBH5JDuOO5Do0wpiDVK5l6cxTE/ZhbLy5Ha LJbvXbg2I2+A2rDE
SkVUU3a1O+5910BRUcaiiXYU8o2cARLdoDfdFO1XRUfWgiUkYKKNd0mTWEja BA2WHEKoQIFpooxH
V4/TwO37s7fQE1P6P/URosjA2oX9a65mo5nEkgu6GiwZjrc96NnCFBp/Gzdt Iu+EcELHW7ZsoaWt
zs5OTpQ5t8SPJo6fTjwFFW4FCC0UVLMlRjoeUzLuarBixSDWqFbHXBkWpOp4 IVKbcylc2yqxAVLD
EivVtjZV33ntDEWi96YqY9GEtyR+DHUBgVufmJf28vnKVwHNMFbtYIXTGtDy 07twwiVN7i2Ph7TM
0URdXAGG8Cmi0Mh2LXhjz/KL+m6+ov/Wj/TfdhUfaytLXv9sFLNkOF4sa4Ak thcrY0gQPMgpoU92
wKBy5q0neCCccKJQlunr2RXTxzMWnYT4yOG4ScKZKSkjD9oa1UiWXoxXCxHT qOk1l/NTBVoSJ/ZR
bIa9HMdaTH3nLWEssTTMIpTa2txjZjglwkDbKmJQcUycMZmZJRxt02fdVJRq c6XEouFmx/xT+opl
bJ4XvBShVWozpPbwwtmBWCCPsaQR6tQ4N4kiiL3Ty5JxgJDdXYFlxyIeGFRi nBymQEOz9wO/373k
nb0fv7jv5g/ykeq/5QMOLKFNfFrgaoCE/IzGu1COx37Jho0s0EYJzYO5a0+K Yc6a07NXn6JAr0+h
IE2OpkOw8hjHjHjVSZE8XjwWrYmYUSyNpVdzMUMpVac2Q8xuqVps3vSl+hQy te0Ua2fHLn1Uu6Mt
h5cmlSypKo6CJBrTR5tdjefJVLkKilGNi3tF3Iq5Z/FIabpaN8GAG32xay6J JWaIxl0kjcgJbRop
gZYWaoG8dpemqlXYW2jSsNm2FScihJIUYBflJHjjgHFl6cvRkpdoLF5832v2 Xf22nmXvJpwcefwH
FNO/6pL+Ve9PXOPqjhbQ3T5jjCUMJHM+NUmj3tXV9fTTT4+Pj8cguaP5OkU6 oPcnskA4ocBeQEZQ
EVdv6JiRhgXTVyxeTaNmFEtLLFmsTk2sFpWY3rGdYkekLlj6KLaHWXxtOTzS rqqpL2wUTNLxeI4c
k+DFxUuTRGqtS73MDrqk9EiTYAd1/oF04c/popppETwuRlybxuQ3uCT2SyNh UipEao9FwCZLVp2M
EMpXgNOrQRQaiz0XnkXLXPsWze+5/vze5Rf1fuyi3uUX9C0/3/5bxV3RBU2W iE4JseRMejvv2iY2
pkHSeDsvex1vzBL+Lt4GVFjwOEuRRTTlNJZVCcL9raoakEu9BRHFbgpFzyAx pSmxugrkFyM5eXY4
qf6TWqkpjepN8rpUERJZksvooxB3BWaQe4ooNKa73/Xbv77k9/Z8+M0vXvMn exf/ade17+haPL/r
o/NTsIThhG2E0L5Ic0WLPBLulEyxxI4TzhUceCjAPAOPjNmzcKfEXpT7ZK0w Jb8ozqsNJlPo4ka4
rAVxJ0b0ZvxYIjVVtO+JBYrN8FhGc1yF00Ior5FCOe4KqDjp239y5wffvOO8 V+94z+/uuvS1uy5/
467L37Trsjd0XP56V5awt8Oz/RK20hXftSURRVjg0vol7n1ASosCHss7eelZ YdV5dUEqJy83JXGN
S7vCozWaIi3UbQxu7i0FqgDj5WjbqRKCs1YEhkQaKY22Uim7Y5vBkoJme6pi 5RXFhmty04OHxp7t
+MGlb374Lb+18e2/8/35r3rk3LMeefurNp776kSW0DPrG/sldHt+45P9ArHh oBxuEoX9uGTqJi5a
AVMD6wPzaRDqrUBLLmpzu+i9Hl3WPcH2tSDVCtcjJh4f76FBRj8FmutaUzfH NvZLXnH90Zv+rvnb
c3mx1Po8LtovabCEHsZCzwluvpo4/tFitCLejZ+zaqIZYq7wEN+4JQWaB+ze mJJu0HS/+w0p81eg
le+3YVDxuFsGLCmSWo1BgfUoSwHCBp0C7N4tdkPwtUfpJq440AHdHHx1fH9w /MkOWEhmSYyTLnpT
b3TJrlmXdtD7euNX9tLbsRqB3gDMQvyyLEIOf4PK9Msdp97MJT6+GMdQIGQF uJvi3siyWFKkxQ63
7HhALqPfuiGUokD82qsevdqXdMZP+6VAj0Rh4T0vNP91Zcklu2KWNHDCicK4 IgWWIA48vZBx+lue
DAf1UoDmSX0Cg4pLj8CSIklEg9C0J8yYIBSsgNOcl84LYgmNk/Zz7jteOHv1 2LzFe0aHdiNAgbZV
gHspFgXacxujSHzMKJvkbdvp1yodj+iJv6Y/sKRVRhHtLEcBBhVtXWBJoVwB S8qZ4VlqsT0WFCzJ
oizy1lUBLVEsLOFuTUZra6qiHTAGloR/NoElWL6DAj4KSAtfLoa+IKNfULEZ yZdvdrAELPE5S8NX
DS2EAlwBd7dDMvrsXx6plsNi1N+KiymlY5cCW5E9YEn4Zxz8EtAOCuSgALf7 2utx7bdipGjftYxx
efqIY4Eib/L1HoorDSxpDZaYLoiwXxL++KGFgSjgcrGv9UuY/eXnoOSL8G9V h0N8PImYzHJsB15x
JMheMlgSyDy338o47ZpIF0RgSfjjhxYGokB2lshPpJj5mHrVmRAXxxxZoibL buXLKQEsCWSegyU5
LGKEP5ZoYbUKaHGiLl6p/oTEiSxrXJbCLS0phwfetQAk1U5sx9qbm3taVxp+ iaOISAYFSAGTa6Ku
IWv9A9NSs33vna+PaR0XaVHL1BJvK19OxlxYMnGgG8FPgXVrV7qc4GAJXBYo kJsCLitdHva3oGI9
WlJ+llxAQqaQzGj5ja9BjRs3/ANYkpuBcGEy0kABpkBedl/cja+BSfLrQl4g 4SzBLE2rAFgCkECB
yhRo3dul/Cx+EbmYhmkNnyU980tyLLBNisqHJb+BZzvioZZQwFcBECULY3K3 1GCJn6QpWML37qTb
POhfsMRPfeSCAlyBLPa0nfPmPoXAEj9J07HENGXbjSV3f/eHwQa/eYBcUAAK MAXAEr+ZAJb4rJUT
SMK8EqSG+c0D5IICUAAsyTIHwBKwxEeBLHMOeaFAyArAL/EbHbDEx5LCL/Gb bcgFBcJXACzxGyOw
BCzxUcBvtiEXFAhfARNLBvue2du586lf/fSJXzxGn3RMMeF3p7QW1pYl4g+4 mJo53oQu+SWmZ1qo
N7yljUm7K4P9ktLOHFRUVwVUlowMPte9d9czT217sXNHf89TwwPP0ScdUwzF 07d1lSJVv+rJEgkb
7N+CWKI+CC+vmLQgofRgSarZj8RQQFVAZQkBo/P5J1RmUAzF07cmGcm8Oirs ntKxwPKTtQVLCvVL
iiCH99M1wJLyTyHUWDMFJJbQQhb5Hybng+LpW9NiVyIhEhO0kLbtyBK+JKUy hvsuljSUS1zjAkta
aLqjqVAgUQGJJbQvQstZLFf33o6O/3v8J4//D33SMYukbymNWizjhJ0WYIm8 +hLabxW1y1lqpLr2
ZYqRJkpxLMn4OA34JYmWAgmggF0BiSW0zU67IywLIWTrj3/AAh2zSPqW0jiy hODBAkvPj1XwSGnC
p05b+yWiF0LjqjolpsfGFccS7fsq3DdOwBIYSiiQUQGJJXTXFm22szLJI+Es oWMWSd9SGqlS0fSL
VODJJHiYWKItJ2MHC8qeD0vmzX/+7NVj8xbvKaiVaYu1+CXiVxaW2GsES9KO CNJDgVZRIBe/JJEl
3C/RHljwE6yMbcESceVKyxLRKbEc81EsgiXqvou7O8JTwi8J9kxDw1pFgVz2 S/halrSiZXJfJHiA
JaH4JYwHpv1z9SuJH2J2NvaSo4Pfl7SKXUA7oUBaBbLfx6XubSQuYZnWsrDG VfOfUuMZKmnPT6SH
Aq2iQPbfl5hYQgpIe+8shn9K6138X9G5CVbGeq5xFS03WFK0wigfClSlAH73 7qc8WOLjQoElfrMN
uaBA+ArgeVx+YwSWgCU+CvjNNuSCAuErgOcE+40RWOJjSeGX+M025IIC4SsA lviNEVjiyRK8o9dv
wiEXFAhcAbDEb4DAEh+W+GmNXFAACoSvAFjiN0ZgCVgCBaAAFJhWACwBS3A+ QAEoAAWyKgCWVMmS
ufN3B/U8Lj8tkAsKQAEoAJb4zYF81rjAEj/1kQsKQIHQFABL/EYELPHxiIO9 iQsNgwLtrICfEZRy
gSV+MoIlnix57LHTCFAACoSjQF4Pycbv3sESHyr4qUazNpxTCC2BAlCAFCiO JfRS9+69u+i97vQ6
XnqLIr38ij7pmGIo3vQqeD/b0rq54Jf4EAgsgfGCAqEpUBxLCBidzz+hMoNi KJ6+VQEgvr/Eggf1
icJgSXvdxwWWhGZH0B4oUBBLBvueIf/D5HxQPH1LaSQGtNB7R/KiVwq/ZKv5 r/z7uKSXU2lfymvX
yCMLLxAsgeWCAqEpUBBL9nbupOUsizGhbykNWJKCJZZXxlbCEtPbdh0xC5aE ZgvQHiiQRYGCWPLU
r35KuyMWq0LfUhpHlkjvwhLfxdsSL7yyr9etW7vSxfxGYAn8kiynOvJCgUIV KIglT/ziMdpst5hI
+pbSqCxRX6EoplFfp8i+bd0dlBb2S0h37ltIPgp7ozsbG/Gt79p4KaWaS6yI fYs1rkKNAgqHAh4K
FMSSgvwSiSWOe/UuV/1VpakbS9SFL5U3LMYlpUoRsMTjJEcWKFCCAgWxJMf9 EnVDPvFl71WBwaPe
1mYJt/UmB0Xru7iwhHsz2m2VtH6JWFoJJxWqgAJtqEBBLMnxPi6wpLnqE9p+ CSentHIlxnuzxI7l
tCxhJ7ZIFPW4DU9+dBkK5KhAQSwhU5Dj70uktSx17x37JWX/vkTdIOH7HPmy JBe/RD1hVE/FRJoc
TzYUBQVqrEBxLCnud++tSw71arvl17i0CNF6KtI6mLqKZd/AF7Xz80tMp7F9 BQyMqbH5Q9dyVKA4
lrBznxa7aO+EtuLpri36pGP1J4pptxnAEnm5q/zfl6Qds3zT58sS8XRy31kB Y3I0QyiqBgoUzZJ8
bUj9SmtVv6TakSiOJX5cMeXivKmBpUAXoIBdAbCkWqsIlrTGsx3d/RXt+QYn Boa49gqAJWCJjzWv
VrVy/BK//ZVUJgOMSSUXEoesAFhSrVWEX+JDsmpZol3RyvckB2Py1ROllaAA WAKW+FjzalUL8DWo
ovUvrnkmxhRXI0qGAu4K5GIW8I5ePxnhl7QeyRJH2v6j/cTsHgm0jPEoB1mg QOUKgCV+QwCW1JAl
4lQonyvib0XBGL/TErkqVAAs8RMfLKk5SwLhiqkZFaLO74RBrtorAJb4DTFY 0kYsCZArYIzfeYtc
xSlgYkkRv3svrhfll5wPS+bNL/t5XOUrVeMaA3cOsFBW47kXYNdUlhT3PK4A u+/dJLCkTf0S04wJ
nCvYjPE+1ZHRUQGVJR7PCaa67O9VdGxM2mQVvq4RLAFLjApwrqSd0BWmN921 XGGTUHVrKSCxJMf3
l5Sgg+lhkSU8RBIsAUuSFWgVZ8VyroIxJRiyelQhsST7exXLlAUsSTZnZY4H 6nI0yjUQCoypwSDm
2wWJJdnf986bp75XkS+FsTTat75La2V8FUsqTUxmecVWcStv8EuAMX8FauCv uOwbteJaX77mta1K
k1hCbysZHnjOogB9S2nUBKrVVlkiGn3GEgk82hjHXC6l5TiyYIm/Jc1xGGpQ VI25wkenQifGVDXi
i1bAzy8Rz2jJ9HMXRDowsURyVlwIoe7Am2JytDxgCViSvwLtwBXxJCyUMaxw +fVz+L8sBZj+Fpv7
YucO2lOxJLCzRESInRMm9phyuVAHLMnf/OWoKYoy2dl2UyY7Y0CRspCRUI8J J/TTk2ee2qa+rNe0
NSLui6gUcbH+7mlcUuZ4SsIvAZbKU6Dd/JVUmzGqtQJIAgEJa4Y6QASSzuef oF+faAdau8vNIiWK
WLbKWUqeS7sOJqbRFi5lF/9tPZZMHNi772d/M/Lg2/q//tYWCr0PXrjnJ/dR 43NUHEUxBcAVdSZI
fkxQlhSNYTjp73mKNtvpk5a2yCMhkBBR8jqpRU8irzJLK6ckv4RAMvYv84/9 8LzT2y9soTD5v+dT
s6nxpY1He1aEG6W0XAncfGdxm1hexxIsyfjMyUWrxPZQAtqKp7u26JP2SNSl rYznL1hyOvF5XHu+
t/DY5vNO//zClgvUbGr8Iz/88QP//mhQ4Xv/9dj2X+0kn4mFjmc7AmykXTGx C3BWpE2mXIxjoYUk
Wt7E2h1LMCUT4x2LsjfJpRD7PnxGlrR09nz8krlJz3Z84B//6cSJUy0aqPG9 Q6OJJ0bJCfZPHPrv
bTsJIQwkdBxgI+2aiF2wL/i09Dnm0XjJqPGrePUy3HRh7p5FchHSVsHcC/bH 9xVMhXBfRFzNkxwU
qRyL++LCEnsateWJZzFYYprPYEky4Yglp0L8O9kzNEK+CLGEPnuGRkNsY0Kb prtgN7ii6fEwzS2X
RWWJavFNJlg06GIaqQTJrPNc3Jia0icmUM23CQ9ivKlYTilxDiS2TSpN7Z1W PUl2LVfAErAkmRkm
t4lYcvLkicbfZDhhcvL40cMHaRGJWEKf1MIAG2mXS+yCu7lvB66oLJGsoep2 OGYR3QhHiyz5EFlY
IgJM5ZzYx+w+h6Wdqv+kSmFyUMCSoFkiTtbi1sGoFr/CiSXHjx8LLLx85PDB 8bFhzpLj8V9ojbS3
Z0YX3Fki7SvwyeNXQpi5HMFguY5WL/ktfon2Kt7kqVTFEj+/RKKXSAhVPfgl WU6H6te4JBPvbfET
OeFdMrHk5ZePBhVeeunIoYmx/cP9nCUvv/xSUC1MbIzUhSyTuH779h4sSZtF XDuyrAipy1NZWCJV
qgWexDyeRXUUXHwX7eqWy4Ie/JK0p2RwLElEgneCLCw5evTw0aOHxCBeJUlf lfDvkSMHJ8ZHRga7
OUsaLQyrkUwHEkoriNSFtBO33vsrjmAQF6wk22fyS3gW0wU7n9giM7RLQBJm 1BqlVSyxEH6sssoS
o8WJBButb2FyOKTOwi/JchoGzRI+0owfDAYskhNFTcO/1WbnJaiFWPZLGtbw IA8N+2j8V/xKOpYy
WlLSV5bER45MTIwPjwzuE1jCUJdDI+2t8uu4WqbUhSyT2JErxVWRe8kuRs10 4Rx4fNFdS8USD62o
/NyHux4FBsQSk+nXUoRzRYQKTylRQUwsIUTMIn4llkBrXHQRTbaPB0op/ut+ nCqjJfHhw+PjB4aG
B7oEllAL82lkQd2RipW6UMLpxCdY+OagaIPrYUOzZBGVz1KOS15VunzFDH/y lHAqaasIiCWi8yF6
D9wR0WJAnKYSS7RfiZGiB2NZOmuwZIJsHw+UUfxXjGflsxh2IMWI34pf8ZRS Al6UmPjQoQMHxgaH
+qdZwiy1XyN5yYntce+OWKZLF0o+AQLnSr7mz8UEI42jAjQ0/AFZOJAUWLd2 pcuJbHvqdZbfKoqE
sHsJWpZoXRAVKqJzo8WG1AzJLyFrSOabB0os/suOxUh2zAyW+K0loza7qeSD B8fG9g8M9sV3A7N7
gpm99mukVAtvvNRfv+6YSpO64DIFC0oTIFfAEkfLXn4yGhqymAgmBVxO0jJY ws5qyUHRYoAls9DF
9JVjFoUlRIsxHhr2cfpfdixGsuPEGG7FpMRSgWo5Bw/uH9vfP9j3osCSA4cP Z2okr4U3XjSy3t0x
SSF1wWUKlpAmEK6AJeVDwrFGGpoS5mG9qyiKJdJmuGTr7XRRN9K12SXwcHsh beBb9t7JkpLt44FK
EP9lx2IkO7bE2BNLBaqJJyZG94/2DfTu4Sxh+MnSSF6L2vjEDib2NLELAZ48 FXIFLHG07OUnA0uy
n6o2liQ+27HVn8dFCzITE/t5oPmk/itGsmNLTMbE4+OjoyN9/T3TLKEWZmwk b1Ji43nXpCxMEym7
qTSpC9knaKEllMyV0FiitselhaJo/CcdLDKRAS5pEgspIgFYkv1Ea3OWkJUc FYN4nvB4HsliGma0
mYsfiwdqehajzSV+NT4+MjrS29/Tyf0S5jpkaaSlhR7dSSxN6kL2CVpaCSVw JVhLKv1Q0W6spV6I
/yZ2MDFBEZxwKRMsyX6itTVLyJiS7QsnHDgwNDLc09f9a84SZu7DaWFiS6Qu ZJ+glZTAuZJv7Vo/
QLqi51XzS37xp4u8BHZgzysRQoSlWLhYjli+VLiURYufxA66NJunSev0uDDD lAYsyT7V25ol4+PD
QQW6IXh4cF9v9/OcJQ3bHVYj7e2RupB9glZbQr7OSuIVvXqNzw26hSKS8WVs EI2mpRAxsZrMVJSI
GYtfYukOL9kljQljWeAh5QVLsp9obc2SkZE+CrRFMTrSX3mglgzFIHmha8/T nCXUqqAaaVdJ7UL2
CRpOCdm5YmGJeJkvuiYSQuwm2LRUZS/EZM0lD0k13C4MU0222kjJYTKBMEdy aPsSzkxr0Za0NUvo
3gEEKOChgGj+3LMnskRr1tX1KMldcLfpqnOTWJTFgrvXa1kQs3RZcq2KZon7 OCKlVoH2ZYn30ySR
EQqICohcsSvjvsZlWpUS/RItGLTLQY5+ieMalwSGtGtcpuyJtUvq5YsWKhyz OqMCYIn/27QySo/s
9VPAzhXVGqrrSJJJTcSAZMp5du1FvQk/WnRpi2Iwk75SY9QlOxVyYmNEF0cl rlpdviBhnarfbCy5
R1lZMnniVLChZClRHRSw+ys5XlnnWFTudrkVCwRLsp+8WVmSvQVFlkDv4A0z wBlqLwVEfyUXUwuW
5CKj6D8VaYjaYraDJZXApi3mFk5OSQG+kgMS5EuC7KXBL8l+tmZlyeTkqWBD dnXasoRK4OpSacsD
GAjJbvQLKiFmyeSp6dB4TR9CKgWysiRVZUjcVECctaEd4xQqUgHgpCAYZCkW TkkultnOkufPXj02
b/Ee029n6C7jyRMngw2hbpa4XINXlmZy8mSYIZfpXlghruMFlmQx+gXlbbBk xghircXjTMnKEo8q
S8zieoaXTJ1g73yjhp2YPBloCPQ2iniOpTI9wElBSPArloZDdzUc7u2pwVqP 7CwJ1F6nPcNTmYOM
iUtGF6orXoF0a+vAiZ/dzz2X6pEUP1WyGcxgL/UmT2ZlSZjrIc1Whbr+FuiF P5umoV7+hzzTPEQz
/RIwd3OJArUKMP09Bq7aLMFuKFDDMrMkVHtNfat21G21B3xxEa5oIQ+o73a9 +LsTHJepQNJKe6jW
I2DTkZUlIV9iB8vwoEULde89ZL8k5LaFO9lCvjgI1mQHLFpmlgTct2A3qcI9 vQkkoTqaIYsWsjMX
LOdCHtBgRQu5YZlZEizAA25YyBMiWJYE3TA4c+kVCBnAwXIu5LMALKngFliw xOOUCPb0bjTsRMCh
ghnuMlhBaxaqdx6y6cjKkpD7Fm7bArY8wV4thjua6S/Jy+yLi1mvJE3ILKlE EJdKy5w5aevKzpIT
k5PBhkB/wp12kMpNj9H0mDbBihawvxQwg0+E+leuKUh3ImRmSa7OYHTZM+rq hzbSvkjCstBpRAf8
0++sYiXwIP3rV2bA9CWbmG4ClZg+ZHsd7j0LJQ5QsDMndcMC9s7DPQv+H6Oe 3c0yfD6/AAAAAElF
TkSuQmCC
------=_NextPart_000_000E_01C70074.CC3CA000--

Attached files

AddNew funciona bien?

Publicado: Lun Nov 06, 2006 4:10 am
por zeasoftware
me respondo.....
reinstale todo y jala bien, no me explico que paso.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=454d8a73@news.xailer.com...]454d8a73@news.xailer.com...[/email]
Tengo algunos problemas con el AddNew, no entiendo, todo jalaba bien, recompile todo con F9, y ahora no me deja agregar nuevos registros.
Pongo el codigo que uso para agregar nuevo registro:
METHOD AddNew(oSender, oFrm) CLASS ZCatMaintenance
WITH OBJECT oFrm
::oDataSet:AddNew()
::lOnAppend := .t.
:New( oSender )
:cText += " (Nuevo)" + str(::oDataSet:reccount())
::OnCatPostAppend( oSender ) //HB_QWith() )
:ShowModal()
if :nModalResult == mrOK
::oDataSet:Update()
::oDBBrowse1:Refresh()
else
::oDataSet:Cancel()
endif
::lOnAppend := .f.
:End()
END WITH
RETURN NIL
Resulta que todos los campos, los cuales tengo relacionados con TDBEdit. Etc, me dan longitud cero. por lo que no me deja capturar nada, y ademas, supongo deberia marcar que el #registros es 3 al momento de addnew?.
Anexo imagen.
Gracias de antemano.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--