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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Una peque
-
jrcpoli-quitar
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Una peque
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
>
>
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
>
>