DAFT3020 - First FOREACH of piCarregaTT

FOR EACH da-projeto NO-LOCK
       WHERE da-projeto.cod-projeto     >= tt-param.cod-projeto-ini
         AND da-projeto.cod-projeto     <= tt-param.cod-projeto-fim
         /*AND da-projeto.cod-planejador  >= tt-param.cod-planejador-ini
         AND da-projeto.cod-planejador  <= tt-param.cod-planejador-fim,*/

         AND (
               (da-projeto.cod-planejador >= tt-param.cod-planejador-ini AND
                da-projeto.cod-planejador <= tt-param.cod-planejador-fim AND
                NOT CAN-FIND(FIRST tt-digita)
               )
              OR
                 (CAN-FIND(FIRST tt-digita) AND
                  CAN-FIND(FIRST tt-digita
                           WHERE tt-digita.cod-planejador = da-projeto.cod-planejador)
                 )
             )

        ,

              EACH da-plano-montagem NO-LOCK
             WHERE da-plano-montagem.cod-projeto  = da-projeto.cod-projeto
               AND da-plano-montagem.cod-estabel  >= tt-param.cod-estabel-ini
               AND da-plano-montagem.cod-estabel  <= tt-param.cod-estabel-fim
               AND da-plano-montagem.seq-etapa    >= tt-param.seq-etapa-ini
               AND da-plano-montagem.seq-etapa    <= tt-param.seq-etapa-fim
               AND da-plano-montagem.nome-abrev   >= tt-param.nome-abrev-ini
               AND da-plano-montagem.nome-abrev   <= tt-param.nome-abrev-fim
               AND da-plano-montagem.nr-pedcli    >= tt-param.nr-pedcli-ini
               AND da-plano-montagem.nr-pedcli    <= tt-param.nr-pedcli-fim
               AND da-plano-montagem.nr-sequencia >= tt-param.nr-sequencia-ini
               AND da-plano-montagem.nr-sequencia <= tt-param.nr-sequencia-fim
               AND da-plano-montagem.it-codigo    >= tt-param.item-ini
               AND da-plano-montagem.it-codigo    <= tt-param.item-fim
               AND da-plano-montagem.seq-etapa    <> 9999,
             FIRST ped-venda NO-LOCK
             WHERE ped-venda.cod-estabel  = da-plano-montagem.cod-estabel
               AND ped-venda.nome-abrev   = da-plano-montagem.nome-abrev
               AND ped-venda.nr-pedcli    = da-plano-montagem.nr-pedcli
               AND ped-venda.cod-sit-ped <> 6,
            FIRST  ped-item NO-LOCK
             WHERE ped-item.nome-abrev   = da-plano-montagem.nome-abrev
               AND ped-item.nr-pedcli    = da-plano-montagem.nr-pedcli
               AND ped-item.nr-sequencia = da-plano-montagem.nr-sequencia
               AND ped-item.it-codigo    = da-plano-montagem.it-codigo
               AND ped-item.cod-refer    = da-plano-montagem.cod-refer :