Saber si es correcto

[PILO]

Estoy haciendo una actualizacion de variable en una base de datos
que todas son igual,
Esto es correcto ( En rojo)
do while !:Eof()
:EDIT()
:LIBROHOJA := CONTARHOJA
:LIBROLINEA := CONTARLINEA
:BA_FINAL := BALANCEFINAL
:BA_ANTES := BALANCEANTES
:UPDATE()
::oDbfMaestro:GOTOP()
:SELECT()
SKIP + 1
END WHILE
A cualquiera que me quiera hechar una manita
Gracias
--

[jrcpoli-quitar]

PILO escribió:
> Estoy haciendo una actualizacion de variable en una base de datos
> que todas son igual,
> Esto es correcto ( En rojo)
>
> do while !:Eof()
> :EDIT()
> :LIBROHOJA := CONTARHOJA
> :LIBROLINEA := CONTARLINEA
> :BA_FINAL := BALANCEFINAL
> :BA_ANTES := BALANCEANTES
> :UPDATE()
> ::oDbfMaestro:GOTOP()
> :SELECT()
> SKIP + 1
> END WHILE
> A cualquiera que me quiera hechar una manita
> Gracias
Saludos:
Yo lo harí­a así­:
WITH OBJECT ::Basededatos
** Comprobar que tiene registros
IF :RecCount() > 0
** Ponemos la base de datos en Edicción
:Edit()
** La posicionamos en el primer registro
:GoTop()
** Entramos en el Bucle
DO WHILE !:= :EoF()
** Actualizamos los registros
** Grabamos el registro actualizado
:Update()
** Avanzamos un registro
:Skip()
END DO
** Cerramos Editar
:Cancel()
ENDIF
END
José Ramón Castro.

[PILO]

Gracias José Ramón.
Que diferencia hay
entre "do while !:Eof()"
y " DO WHILE !:= :EoF()"
que estas utilizando tu

[Rolando]

Pilo y José: el :edit() debe estar dentro del while.
Saludos.
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:[email=45aa0ef2@news.xailer.com...]45aa0ef2@news.xailer.com...[/email]
> Gracias José Ramón.
> Que diferencia hay
> entre "do while !:Eof()"
> y " DO WHILE !:= :EoF()"
> que estas utilizando tu
>
>

[jrcpoli-quitar]

PILO escribió:
> Gracias José Ramón.
> Que diferencia hay
> entre "do while !:Eof()"
> y " DO WHILE !:= :EoF()"
> que estas utilizando tu
>
>
Perdón si puse eso me equivoqué
DO WHILE !:EoF() el := Esta mal es que no lo copié lo hice sobre la marcha.
Jose Ramón Castro

[jrcpoli-quitar]

Rolando Sarrailh escribió:
> Pilo y José: el :edit() debe estar dentro del while.
> Saludos.
>
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje
> news:[email=45aa0ef2@news.xailer.com...]45aa0ef2@news.xailer.com...[/email]
>> Gracias José Ramón.
>> Que diferencia hay
>> entre "do while !:Eof()"
>> y " DO WHILE !:= :EoF()"
>> que estas utilizando tu
>>
>>
>
>
Pues me gustarí­a que eso me lo aclararan porque yo lo tengo así­ fuera
del While y funciona, no te quito la razón pero fuera también funciona.
Este código que adjunto funciona perfectamente:
** Asignamos puntos y coeficiente
WITH OBJECT ::oDbfListado1
*
** Ponemos la base de datos en modo Editar
:Edit()
** La pasicionamos en el primer registro
:GoTop()
*
DO WHILE !:EoF()
*** Hacemos una serie de operaciones de cambios
*** en los registros
** Grabamos los datos
:UpDate()
*
** Suma uno al contador
nContador++
*
** Avanza un registro
:Skip()
*
END DO
*
** Salimos de Editar
:Cancel()
END WITH
RETURN NIL
José Ramón Castro.

[jrcpoli-quitar]

Saludos Rolando:
He leí­do la ayuda de Edit() y veo claramente que afecta directamente a
cada registro, por lo tanto es mejor que esté dentro de While, tení­as
razón, al Cesar lo que es del Cesar.
Gracias.
José Ramón Castro.
José Ramón Castro Polinio escribió:
> Rolando Sarrailh escribió:
>> Pilo y José: el :edit() debe estar dentro del while.
>> Saludos.
>>
>> "PILO" <srmpilo@hotmail.com> escribió en el mensaje
>> news:[email=45aa0ef2@news.xailer.com...]45aa0ef2@news.xailer.com...[/email]
>>> Gracias José Ramón.
>>> Que diferencia hay
>>> entre "do while !:Eof()"
>>> y " DO WHILE !:= :EoF()"
>>> que estas utilizando tu
>>>
>>>
>>
>>
>
> Pues me gustarí­a que eso me lo aclararan porque yo lo tengo así­ fuera
> del While y funciona, no te quito la razón pero fuera también funciona.
>
> Este código que adjunto funciona perfectamente:
> ** Asignamos puntos y coeficiente
> WITH OBJECT ::oDbfListado1
> *
> ** Ponemos la base de datos en modo Editar
> :Edit()
> ** La pasicionamos en el primer registro
> :GoTop()
> *
> DO WHILE !:EoF()
>
> *** Hacemos una serie de operaciones de cambios
> *** en los registros
>
> ** Grabamos los datos
> :UpDate()
> *
> ** Suma uno al contador
> nContador++
> *
> ** Avanza un registro
> :Skip()
> *
> END DO
> *
> ** Salimos de Editar
> :Cancel()
>
> END WITH
>
> RETURN NIL
>
> José Ramón Castro.