Ver Mensaje Individual
  #5  
Antiguo 04-08-2018
marco3k marco3k is offline
Miembro
 
Registrado: feb 2015
Posts: 60
Reputación: 10
marco3k Va por buen camino
Miguel A. Valero, revise mi código en versión Visual FoxPro y si había que aplicar un filtro. Este es el código FoxPro que expuse en el primes post:
Código:
...
       SCAN FOR cur_boleta_rep.seleccion = .T.
            SELECT cur_bol
            REPLACE ALL cur_bol.seleccion WITH 1 FOR cur_bol.anio + cur_bol.mes + cur_bol.mes_sup + ALLTRIM(cur_bol.dni) + cur_bol.tipo_pla + ALLTRIM(cur_bol.nro_bol) =;
            cur_boleta_rep.anio + cur_boleta_rep.mes + cur_boleta_rep.mes_sup + ALLTRIM(cur_boleta_rep.dni) + cur_boleta_rep.tipo_pla + ALLTRIM(cur_boleta_rep.nro_bol)    
        ENDSCAN 

...
En el REPLACE ALL hay un FOR que es un filtro, entonces me faltaba aplicar ESO en Delphi y con eso mejoro la velocidad.

Última edición por marco3k fecha: 04-08-2018 a las 01:45:20. Razón: Código FoxPro
Responder Con Cita