Como seria:
select base
do while .not. eof()
.....
end do
Asi no:
do while ::odbfDataset <> eof()
....
end do
Ni idea....
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.
Hasta el final
Hasta el final
Ramon:
Muchas Gracias. Me estaba liando.
Lo mas facil creo:
do while .not. ::oDbfDataset1:eof()
"Ramón Zea" <zeasoftware@hotmail.com> wrote:
>checa esto:
>
> With Object ::oDataSet4
> :Seek(cFolio)
>
> While ( cFolio == :Folio .And. !:EoF() )
> cCodigo := :Codigo
> ::oDataSet2:Seek(cCodigo)
>
> aAdd(aPartidas, { :Cantidad, ;
> :Codigo, ;
> ::oDataSet2:Descrip, ;
> :Precio, ;
> :Precio * :Cantidad })
> :Skip(1)
>
> End
>
> End With
>
>Saludos.
>
>
Muchas Gracias. Me estaba liando.
Lo mas facil creo:
do while .not. ::oDbfDataset1:eof()
"Ramón Zea" <zeasoftware@hotmail.com> wrote:
>checa esto:
>
> With Object ::oDataSet4
> :Seek(cFolio)
>
> While ( cFolio == :Folio .And. !:EoF() )
> cCodigo := :Codigo
> ::oDataSet2:Seek(cCodigo)
>
> aAdd(aPartidas, { :Cantidad, ;
> :Codigo, ;
> ::oDataSet2:Descrip, ;
> :Precio, ;
> :Precio * :Cantidad })
> :Skip(1)
>
> End
>
> End With
>
>Saludos.
>
>
Hasta el final
while .not. oDbfdataset1:eof()
...
oDbfdataset1:skip()
end
"Paco V" <ssi@ono.com> escribió en el mensaje
news:445f1665$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Como seria:
>
> select base
> do while .not. eof()
> ....
> end do
>
> Asi no:
> do while ::odbfDataset <> eof()
> ...
> end do
>
> Ni idea....
...
oDbfdataset1:skip()
end
"Paco V" <ssi@ono.com> escribió en el mensaje
news:445f1665$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Como seria:
>
> select base
> do while .not. eof()
> ....
> end do
>
> Asi no:
> do while ::odbfDataset <> eof()
> ...
> end do
>
> Ni idea....
-
zeasoftware
- Mensajes: 1831
- Registrado: Mar Oct 11, 2005 9:53 am
Hasta el final
checa esto:
With Object ::oDataSet4
:Seek(cFolio)
While ( cFolio == :Folio .And. !:EoF() )
cCodigo := :Codigo
::oDataSet2:Seek(cCodigo)
aAdd(aPartidas, { :Cantidad, ;
:Codigo, ;
::oDataSet2:Descrip, ;
:Precio, ;
:Precio * :Cantidad })
:Skip(1)
End
End With
Saludos.
With Object ::oDataSet4
:Seek(cFolio)
While ( cFolio == :Folio .And. !:EoF() )
cCodigo := :Codigo
::oDataSet2:Seek(cCodigo)
aAdd(aPartidas, { :Cantidad, ;
:Codigo, ;
::oDataSet2:Descrip, ;
:Precio, ;
:Precio * :Cantidad })
:Skip(1)
End
End With
Saludos.
Ramón Zea
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
Hasta el final
Muchas gracias Ronaldo.
Paco V
"Rolando" <rsarrailh@gmail.com> wrote:
>while .not. oDbfdataset1:eof()
> ...
> oDbfdataset1:skip()
>end
>
>"Paco V" <ssi@ono.com> escribió en el mensaje
>news:445f1665$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> Como seria:
>>
>> select base
>> do while .not. eof()
>> ....
>> end do
>>
>> Asi no:
>> do while ::odbfDataset <> eof()
>> ...
>> end do
>>
>> Ni idea....
>
>
Paco V
"Rolando" <rsarrailh@gmail.com> wrote:
>while .not. oDbfdataset1:eof()
> ...
> oDbfdataset1:skip()
>end
>
>"Paco V" <ssi@ono.com> escribió en el mensaje
>news:445f1665$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> Como seria:
>>
>> select base
>> do while .not. eof()
>> ....
>> end do
>>
>> Asi no:
>> do while ::odbfDataset <> eof()
>> ...
>> end do
>>
>> Ni idea....
>
>