v2

    'CONTROLLO SE ESISTE UN RECORD APERTO A MIO N0ME
    sql = "SELECT prcolt_des,prcolt_cod,prcolt_anno,prcolt_prg,prcolt_art,prcolt_artprg,prcolt_lav,pra_ristp,pra_riscod,pra_riga,pra_dtinistim,pra_oraistim "
    sql = sql + " FROM prd_comlvt,prd_attsched WHERE prcolt_anno = pra_annocomm AND prcolt_cod = pra_codcomm AND prcolt_prg = pra_prgcomm "
    sql = sql + " AND prcolt_art = pra_art AND prcolt_artprg = pra_artprg AND prcolt_lav = pra_lav AND pra_riscod <> '.' "
    sql = sql + " AND pra_stato = 'E' AND pra_dtfstim IS NULL "
    sql = sql + " AND pra_operatore =" + sy_cvs(ope)
    sql = sql + " ORDER BY pra_dtinistim ASC, pra_oraistim ASC "
    set rse = conn.execute(sql)
    if not rse.eof then
        dlav          = rs("prcolt_des")
        prcolt_cod    = rs("prcolt_cod")
        prcolt_anno   = rs("prcolt_anno")
        prcolt_prg    = rs("prcolt_prg")
        prcolt_art    = rs("prcolt_art")
        prcolt_artorg = rs("prcolt_artprg")
        prcolt_lav    = rs("prcolt_lav")
        prcold_ristp  = rs("pra_ristp")
        prcold_riscod = rs("pra_riscod")
        pra_riga      = rs("pra_riga")
    else
        rse.close
        'ESTRAGGO TUTTE LE COMMESSE RAGGRUPPATE PER ANNO,CODICE
        sql = "SELECT pra_annocomm,pra_codcomm FROM prd_attsched WHERE "
        sql = sql + " pra_stato <> 'F'"
        sql = sql + " GROUP BY pra_annocomm,pra_codcomm"
        sql = sql + " ORDER BY pra_annocomm,pra_codcomm"
        set rsl = conn.execute(sql)
        primo_loop   = true
        do until rsl.eof or primo_loop = false
            'ESTRAGGO TUTTE LE COMMESSE DI UN DETERMINATO ANNOO,CODICE NON ANCORA ESEGUITE
            sql = "SELECT prcolt_des,prcolt_cod,prcolt_anno,prcolt_prg,prcolt_art,prcolt_artprg,prcolt_lav,pra_ristp,pra_riscod,pra_riga,"
            sql = sql + "pra_sequen,pra_operatore,pra_codcomm,pra_dtinistim,pra_oraistim,pra_priorita"
            sql = sql + " FROM prd_comlvt,prd_attsched WHERE prcolt_anno = pra_annocomm AND prcolt_cod = pra_codcomm AND prcolt_prg = pra_prgcomm"
            sql = sql + " AND prcolt_art = pra_art AND prcolt_artprg = pra_artprg AND prcolt_lav = pra_lav AND pra_riscod <> '.' "
            sql = sql + " AND pra_annocomm = " + sy_cvn(rsl("pra_annocomm"))
            sql = sql + " AND pra_codcomm = " + sy_cvs(rsl("pra_codcomm"))
            sql = sql + " AND pra_stato <> 'F'"
            sql = sql + " ORDER BY pra_codcomm,pra_dtinistim,pra_oraistim,pra_priorita"
            nprint sql
            set rsa = conn.execute(sql)
            secondo_loop = true
            do until rsa.eof or secondo_loop = false
                if rsa("pra_sequen") = "S" then
                    log "SEQ = S"
                    log rsa("pra_operatore") + " | " + ope
                    if rsa("pra_operatore") = ope then
                        dlav          = rs("prcolt_des")
                        prcolt_cod    = rs("prcolt_cod")
                        prcolt_anno   = rs("prcolt_anno")
                        prcolt_prg    = rs("prcolt_prg")
                        prcolt_art    = rs("prcolt_art")
                        prcolt_artorg = rs("prcolt_artprg")
                        prcolt_lav    = rs("prcolt_lav")
                        prcold_ristp  = rs("pra_ristp")
                        prcold_riscod = rs("pra_riscod")
                        pra_riga      = rs("pra_riga")
                        primo_loop   = false
                    end if
                    secondo_loop = false
                else
                    log "SEQ != S"
                    log rsa("pra_operatore") + " | " + ope
                    if rsa("pra_operatore") = ope then
                            dlav          = rs("prcolt_des")
                            prcolt_cod    = rs("prcolt_cod")
                            prcolt_anno   = rs("prcolt_anno")
                            prcolt_prg    = rs("prcolt_prg")
                            prcolt_art    = rs("prcolt_art")
                            prcolt_artorg = rs("prcolt_artprg")
                            prcolt_lav    = rs("prcolt_lav")
                            prcold_ristp  = rs("pra_ristp")
                            prcold_riscod = rs("pra_riscod")
                            pra_riga      = rs("pra_riga")
                        primo_loop   = false
                        secondo_loop = false
                    else
                        rsa.movenext
                    end if
                end if
            loop
            rsa.close
            set rsa = nothing
            rsl.movenext
            log ""
        loop
        rsl.close
    end if