topic-2951

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

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.

Code: Select all Collapse

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 )

Gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion