Xailer & OZ Software

Quiero insertar una linea y en el caso que el precio sea 0 que
automáticamente la edite
El trozo de código es facil de entender
with object ::oDbArray
:AddRow({"","","","",0,0,0,0,0}) //Primero creo la linea en blanco
:GoBottom() //Voy al final
:SetRow({:oDbfArt:ART_COD,::oDbfArt:ART_NOM,space
(10),::oDbfArt:ART_IVA,nBultos,nUnidades,nPrecio,nDto,nImpor te}) //Asigno
los valores
//--- Modificar precio si no existe -----------------
if :GetValue(7) == 0 //Si la posicion del precio (columna
7) es 0 edita la columna
:aCols[7]:Edit()
endif
end with
El resultado de este código es que me crea una linea duplicada y no permite
la edicion.
No se que hacer .

Juan José,
Debería funcionar. Mandanos un pequeño proyecto para probarlo. Es posible
que exista un problema de 'tiempos' ya que es posible que entre en edición
antes incluso de haber refrescado el Browse, pero lo mejor es que nos mandes
un pequeño ejemplo. Gracias.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Juan José García" <correo@jjgsoft.biz> escribió en el mensaje
news:46f0ec8c$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Quiero insertar una linea y en el caso que el precio sea 0 que
> automáticamente la edite
>
> El trozo de código es facil de entender
>
> with object ::oDbArray
> :AddRow({"","","","",0,0,0,0,0}) //Primero creo la linea en blanco
> :GoBottom() //Voy al final
>
> :SetRow({:oDbfArt:ART_COD,::oDbfArt:ART_NOM,space
> (10),::oDbfArt:ART_IVA,nBultos,nUnidades,nPrecio,nDto,nImpor te}) //Asigno
> los valores
>
> //--- Modificar precio si no existe -----------------
> if :GetValue(7) == 0 //Si la posicion del precio
> (columna 7) es 0 edita la columna
> :aCols[7]:Edit()
> endif
>
> end with
>
> El resultado de este código es que me crea una linea duplicada y no
> permite la edicion.
> No se que hacer .
>
>
>