thisform.dwg_no_txt.value = ''
thisform.eqp_no_txt.value = ''
thisform.dwg_title_txt.value = ''
thisform.sch_issue.value = ''
thisform.rev_no.value = ''
thisform.rece_date.value = ''
thisform.cmdERS.enabled = .f.
thisform.cmdExcel.enabled = .f.
thisform.cmdInsert.enabled = .f.
thisform.cmdEdit.enabled = .f.
thisform.cmdDel.enabled = .f.
thisform.cmdDelAll.enabled = .f.
thisform.cmdSave.enabled = .f.
thisform.cmdCancel.enabled = .f.
thisform.cmdExit.enabled = .t.
thisform.dwg_no_txt.enabled = .f.
thisform.eqp_no_txt.enabled = .f.
thisform.dwg_title_txt.enabled = .f.
thisform.sch_issue.enabled = .f.
thisform.rev_no.enabled = .f.
thisform.rece_date.enabled = .f.
prj_no_i = upper(this.displayvalue)

thisform.label2.caption = prj_no_lst.prj_desc
pj_desc = prj_no_lst.prj_desc
select dwg_grid
zap
store '' to title_ar,old_dwg_no,old_eqp_no,old_title,iss_d,rev0a_d,rev0b_d,rev0_d,rev1_d,rev2_d
store space(10) to rev3_d,rev4_d,rev5_d,rev6_d,rev7_d,rev8_d,rev9_d,rev10_d,rev11_d,rev12_d,rev13_d,rev14_d,rev15_d
store 0 to title_idx
sql1 = "select prj_no,equip_no,ctci_no,iss_rev,iss_date_eg rece_d,"
sql2 = "isnull((select dwg_desc from fas.dbo.drawing_master where prj_no = a.prj_no and equip_no = a.equip_no and ctci_no = a.ctci_no and dwg_id = a.dwg_id),'') dwg_desc,"
sql3 = "isnull((select sch_iss_d from fas.dbo.drawing_master where prj_no = a.prj_no and equip_no = a.equip_no and ctci_no = a.ctci_no and dwg_id = a.dwg_id),'') sch_date,"
sql4 = "isnull((select rev_iss_d from fas.dbo.drawing_master where prj_no = a.prj_no and equip_no = a.equip_no and ctci_no = a.ctci_no and dwg_id = a.dwg_id),'') rev_date"
sql5 = " from fas.dbo.xmitl_dtl a where prj_no = '" + prj_no_i + "' order by equip_no,ctci_no,iss_rev"
sql = sql1 + sql2 + sql3 + sql4 + sql5
res = sqlexec(han2,sql,'curs2')
if res > 0 and !empty(curs2.prj_no)
    select curs2
    go top
    old_dwg_no = curs2.ctci_no
    old_eqp_no = curs2.equip_no
    old_title = alltrim(curs2.dwg_desc)
    if len(alltrim(curs2.rev_date)) > 0
        iss_d = left(curs2.rev_date,4) + '/' + substr(curs2.rev_date,5,2) + '/' + substr(curs2.rev_date,7,2)
    else
        if len(alltrim(curs2.sch_date)) > 0
            iss_d = left(curs2.sch_date,4) + '/' + substr(curs2.sch_date,5,2) + '/' + substr(curs2.sch_date,7,2)
        else
            iss_d = ''
        endif
    endif
    do while !eof()
        scatter memvar
        m.rev_no = strtran(m.iss_rev," ","")
        m.rev_no = left(m.rev_no + space(2),2)
        if old_eqp_no <> m.equip_no
            if title_idx > 0
                rev0_d = title_ar(1,2) + '(' + left(title_ar(1,1),2) + ')'
                if title_idx > 6
                    idx_base = title_idx - 5
                else
                    idx_base = 2
                endif
                idx = 0
                for i = idx_base to title_idx
                    idx = idx + 1
                    if idx > 15
                        idx = 15
                    endif
                    r_f = 'rev' + alltrim(str(idx)) + '_d'
                    &r_f = title_ar(i,2) + '(' + left(title_ar(i,1),2) + ')'
                next
                insert into dwg_grid values(old_dwg_no,old_eqp_no,old_title,iss_d,rev0_d, ;
                    rev1_d,rev2_d,rev3_d,rev4_d,rev5_d,rev6_d,rev7_d,rev8_d,rev9_d,rev10_d,;
                    rev11_d,rev12_d,rev13_d,rev14_d,rev15_d)
            endif
            store '' to title_ar,old_dwg_no,old_title,iss_d,rev0_d,rev1_d,rev2_d,rev3_d,rev4_d,rev5_d
            store space(10) to rev6_d,rev7_d,rev8_d,rev9_d,rev10_d,rev11_d,rev12_d,rev13_d,rev14_d,rev15_d
            title_idx = 0
            old_dwg_no = m.ctci_no
            old_eqp_no = m.equip_no
            old_title = alltrim(m.dwg_desc)
            if len(alltrim(m.rev_date)) > 0
                iss_d = left(m.rev_date,4) + '/' + substr(m.rev_date,5,2) + '/' + substr(m.rev_date,7,2)
            else
                if len(alltrim(m.sch_date)) > 0
                    iss_d = left(m.sch_date,4) + '/' + substr(m.sch_date,5,2) + '/' + substr(m.sch_date,7,2)
                else
                    iss_d = ''
                endif
            endif
        endif
        if old_dwg_no <> m.ctci_no
            if title_idx > 0
                first_d = title_ar(1,2)
                first_no = title_ar(1,1)
                rev0_d = title_ar(1,2) + '(' + left(title_ar(1,1),2) + ')'
                if title_idx > 6
                    idx_base = title_idx - 5
                else
                    idx_base = 2
                endif
                idx = 0
                for i = idx_base to title_idx
                    idx = idx + 1
                    if idx > 15
                        idx = 15
                    endif
                    r_f = 'rev' + alltrim(str(idx)) + '_d'
                    &r_f = title_ar(i,2) + '(' + left(title_ar(i,1),2) + ')'
                next
                insert into dwg_grid values(old_dwg_no,old_eqp_no,old_title,iss_d,rev0_d, ;
                    rev1_d,rev2_d,rev3_d,rev4_d,rev5_d,rev6_d,rev7_d,rev8_d,rev9_d,rev10_d,;
                    rev11_d,rev12_d,rev13_d,rev14_d,rev15_d)
            endif
            store '' to title_ar,old_dwg_no,old_title,iss_d,rev0_d,rev1_d,rev2_d,rev3_d,rev4_d,rev5_d
            store space(10) to rev6_d,rev7_d,rev8_d,rev9_d,rev10_d,rev11_d,rev12_d,rev13_d,rev14_d,rev15_d
            store 0 to title_idx
            old_dwg_no = m.ctci_no
            old_eqp_no = m.equip_no
            old_title = alltrim(m.dwg_desc)
            if len(alltrim(m.rev_date)) > 0
                iss_d = left(m.rev_date,4) + '/' + substr(m.rev_date,5,2) + '/' + substr(m.rev_date,7,2)
            else
                if len(alltrim(m.sch_date)) > 0
                    iss_d = left(m.sch_date,4) + '/' + substr(m.sch_date,5,2) + '/' + substr(m.sch_date,7,2)
                else
                    iss_d = ''
                endif
            endif
        endif
        m.rece_d = left(m.rece_d,4) + '/' + substr(m.rece_d,5,2) + '/' + substr(m.rece_d,7,2)
        tit_idx = 0
        for i = 1 to title_idx
            if title_ar(i,1) = m.rev_no
                tit_idx = i
                i = title_idx
            endif
        next
        if tit_idx > 0
            title_ar(tit_idx,2) = m.rece_d
        else
            title_idx = title_idx + 1
            title_ar(title_idx,1) = m.rev_no
            title_ar(title_idx,2) = m.rece_d
        endif
        select curs2
        skip
    enddo
    if len(alltrim(old_dwg_no)) > 0
        if title_idx > 0
            first_d = title_ar(1,2)
            first_no = title_ar(1,1)
            rev0_d = title_ar(1,2) + '(' + left(title_ar(1,1),2) + ')'
            if title_idx > 6
                idx_base = title_idx - 5
            else
                idx_base = 2
            endif
            idx = 0
            for i = idx_base to title_idx
                idx = idx + 1
                if idx > 15
                    idx = 15
                endif
                r_f = 'rev' + alltrim(str(idx)) + '_d'
                &r_f = title_ar(i,2) + '(' + left(title_ar(i,1),2) + ')'
            next
            insert into dwg_grid values(old_dwg_no,old_eqp_no,old_title,iss_d,rev0_d, ;
                rev1_d,rev2_d,rev3_d,rev4_d,rev5_d,rev6_d,rev7_d,rev8_d,rev9_d,rev10_d,;
                rev11_d,rev12_d,rev13_d,rev14_d,rev15_d)
        endif
    endif
endif
select dwg_grid
go top
thisform.grid1.enabled = .t.
if reccount() = 0
    thisform.cmdInsert.enabled = .t.
    thisform.cmdEdit.enabled = .f.
    thisform.cmdDel.enabled = .f.
    thisform.cmdSave.enabled = .f.
    thisform.cmdCancel.enabled = .f.
else
    thisform.cmdInsert.enabled = .t.
    thisform.cmdEdit.enabled = .t.
    thisform.cmdDel.enabled = .t.
    thisform.cmdSave.enabled = .f.
    thisform.cmdCancel.enabled = .f.
endif
thisform.cmdExit.enabled = .t.
keyboard "{Tab}"
store 0 to ins_sw,edit_sw,del_sw
thisform.refresh