Ayuda a optimizar...
Posted: Sat May 06, 2006 12:46 am
Estimados,
Estoy queriendo ver si esta funcion me dan una idea de optimizacion,
yo no tengo la facilidad que tienen otros de optimizar ya que no
conozco bien el lenguaje. alguien podría darme una mano.
Que quede claro algo, esta funcion no está completamente terminada
van a ver que hay variables declaradas pero aun no las uso.
lo que me interesa es ver si lo que esta dentro del DO WHILE se puede optimizar.
Gracias.
Estoy queriendo ver si esta funcion me dan una idea de optimizacion,
yo no tengo la facilidad que tienen otros de optimizar ya que no
conozco bien el lenguaje. alguien podría darme una mano.
Que quede claro algo, esta funcion no está completamente terminada
van a ver que hay variables declaradas pero aun no las uso.
lo que me interesa es ver si lo que esta dentro del DO WHILE se puede optimizar.
Code: Select all
FUNCTION STATUS()
LOCAL cRespuesta := ""
LOCAL nItem := 1
LOCAL cSurtidor := Space( 02 )
LOCAL nSurtidor := 1
LOCAL nManguera := 1
LOCAL alCambio := Array( Len( aEstados ) )
AFill( alCambio, .f. )
oTimer:deactivate()
DBSelectArea( "CARGAS" )
CARGAS->( DBGoTop() )
nItem:= 1
DO WHILE !eof()
IF cSurtidor != CARGAS->SURTIDOR
nItem := 1
cSurtidor := CARGAS->SURTIDOR
ENDIF
IF ( aEstados[ Val( CARGAS-> SURTIDOR ) ][ nItem ]!= CARGAS->ULT_ST )
alCambio[ Val( CARGAS->SURTIDOR ) ]:= .T.
ENDIF
aEstados[ Val( CARGAS-> SURTIDOR ) ][ nItem ] := CARGAS->ULT_ST
nItem++
CARGAS->( DBSkip() )
ENDDO
cRespuesta:= AllTrim( cRespuesta )
grabarlogdbf( 99, cRespuesta )
oTimer:activate()
RETURN ( cRespuesta )