Xailer & OZ Software

En este metodo:
METHOD AddNew() CLASS Tclientes
LOCAL oFrm
local codigo1 := space(15)
WITH OBJECT oFrm := TENVIOS():createform( Self )
:cText := "CREA NUEVO CLIENTE"
WITH OBJECT ::oDataSet
Aqui creo el formulario nuevo en
tengo que buscar en el odataset, el ultimo registro ordenador por
codigo
Goto Bottom // BUSCO EL ULTIMO CODIGO
codigo1 := ltrim(STR((VAL(::oDataSet:CODIGO) + 1),15,0))
GOTO TOP
coger el ultimo registro de odataset y sumarle 1, despues
comprobar si hay algun registro igual, si lo hay seguir sumando hasta que
encuentre
uno que no lo tenga
locate FOR :CODIGO = CODIGO1 // BUSCO CODIGO DUPLICADOS
WHILE FOUND()
codigo1 := ltrim(STR((VAL(CODIGO1) + 1),15,0))
GOTO TOP
locate FOR :CODIGO = CODIGO1
END WHILE
end with
::oDataSet:AddNew()
::oDataSet:CODIGO := codigo1 // tAqui añado el nuevo codigo a registro
nuevo
:ShowModal()
if :nModalResult == mrOK
::oDataSet:Update()
::oDBBrowse1:Refresh()
else
::oDataSet:Cancel()
endif
END WITH
RETURN NIL
Lo estoy haciendo mal ya que no me hace lo de buscar el ultimo registro, y
poner en el
nuevo creado, Me puedes ayudar un poco, Gracias de antemano

Pilo:
Abre tu correo srmpilo@hotmail.com y encontrarás lo que te he enviado.
José Ramón Castro.
PILO escribió:
> En este metodo:
>
> METHOD AddNew() CLASS Tclientes
> LOCAL oFrm
> local codigo1 := space(15)
> WITH OBJECT oFrm := TENVIOS():createform( Self )
> :cText := "CREA NUEVO CLIENTE"
> WITH OBJECT ::oDataSet
> Aqui creo el formulario nuevo en
> tengo que buscar en el odataset, el ultimo registro ordenador por
> codigo
> Goto Bottom // BUSCO EL ULTIMO CODIGO
> codigo1 := ltrim(STR((VAL(::oDataSet:CODIGO) + 1),15,0))
> GOTO TOP
> coger el ultimo registro de odataset y sumarle 1, despues
> comprobar si hay algun registro igual, si lo hay seguir sumando hasta que
> encuentre
> uno que no lo tenga
> locate FOR :CODIGO = CODIGO1 // BUSCO CODIGO DUPLICADOS
> WHILE FOUND()
> codigo1 := ltrim(STR((VAL(CODIGO1) + 1),15,0))
> GOTO TOP
> locate FOR :CODIGO = CODIGO1
> END WHILE
> end with
> ::oDataSet:AddNew()
> ::oDataSet:CODIGO := codigo1 // tAqui añado el nuevo codigo a registro
> nuevo
> :ShowModal()
> if :nModalResult == mrOK
> ::oDataSet:Update()
> ::oDBBrowse1:Refresh()
> else
> ::oDataSet:Cancel()
> endif
> END WITH
>
> RETURN NIL
> Lo estoy haciendo mal ya que no me hace lo de buscar el ultimo registro, y
> poner en el
> nuevo creado, Me puedes ayudar un poco, Gracias de antemano
>
>