Página 1 de 1
Hasta el final
Publicado: Lun May 08, 2006 11:59 am
por Paco V
Como seria:
select base
do while .not. eof()
.....
end do
Asi no:
do while ::odbfDataset <> eof()
....
end do
Ni idea....
Hasta el final
Publicado: Lun May 08, 2006 1:55 pm
por Paco V
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.
>
>
Hasta el final
Publicado: Lun May 08, 2006 2:10 pm
por Rolando
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....
Hasta el final
Publicado: Lun May 08, 2006 3:24 pm
por zeasoftware
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
Publicado: Lun May 08, 2006 4:54 pm
por Paco V
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....
>
>