prj_no_i = upper(this.parent.pj_no.displayvalue)
ddr_no_s = upper(this.parent.ser_no.displayvalue)
issue_d = strtran(this.parent.issue_da.value,"/","")
pj_desc = prj_no_lst.prj_desc
store '' to dept_sel_ar,old_dwg_no,old_rev_no,sel_dept_ar
sel_idx = 0
select grid3_f
zap
sql1 = "select distinct dept_cd,hand_sw,tel_nos from fas.dbo.drawing_issue where prj_no = '" + prj_no_i
*sql2 = "' and iss_date_eg = '" + issue_d + "' order by dept_cd"
sql2 = "' and ddr_no = '" + ddr_no_s + "' order by dept_cd"
sql = sql1 + sql2
res = sqlexec(han2,sql,'curs1')
if res > 0 and !empty(curs1.dept_cd)
    do while !eof()
        scatter memvar
        dept_idx = val(right(m.dept_cd,3))
        select cpy_set_f
        locate for dept_cd = m.dept_cd
        if found()
            dept_sel_ar(dept_idx,1) = alltrim(cpy_set_f.dept_na)
            dept_sel_ar(dept_idx,2) = 0
            sel_idx = sel_idx + 1
            sel_dept_ar(sel_idx) = alltrim(cpy_set_f.dept_na)
            replace sel_sw  with .t.
            replace hand_sw with m.hand_sw
            replace tel_txt with alltrim(m.tel_nos)
        endif
        select curs1
        skip
    enddo
    seq_no = 0
    for i = 1 to 100
        if len(alltrim(dept_sel_ar(i,1))) > 0
            seq_no = seq_no + 1
            dept_sel_ar(i,2) = alltrim(str(seq_no,2))
        endif
    next
endif
sql1 = "select *,"
sql2 = "isnull((select distinct 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),'') dwg_desc"
sql3 = " from fas.dbo.drawing_issue a where prj_no = '" + prj_no_i
sql4 = "' and ddr_no = '" + ddr_no_s + "' order by equip_no,ctci_no,iss_rev,dept_cd"
sql = sql1 + sql2 + sql3 + sql4
res = sqlexec(han2,sql,'curs1')
if res > 0 and !empty(curs1.prj_no)
    old_dwg_no = curs1.ctci_no
    old_rev_no = curs1.iss_rev
    old_dwg_des = alltrim(curs1.dwg_desc)
    store '' to qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28
    do while !eof()
        scatter memvar
        if old_dwg_no <> m.ctci_no
            if len(qty1) > 0 or len(qty2) > 0 or len(qty3) > 0 or len(qty4) > 0 or len(qty5) > 0 or len(qty6) > 0 or len(qty7) > 0 or len(qty8) > 0 or len(qty9) > 0 or len(qty10) > 0 or len(qty11) > 0 or len(qty12) > 0 or len(qty13) > 0 or len(qty14) > 0 or len(qty15) > 0 or len(qty16) > 0 or len(qty17) > 0 or len(qty18) > 0 or len(qty19) > 0 or len(qty20) > 0 or len(qty21) > 0 or len(qty22) > 0 or len(qty23) > 0 or len(qty24) > 0 or len(qty25) > 0 or len(qty26) > 0 or len(qty27) > 0 or len(qty28) > 0
                insert into grid3_f values(old_dwg_no,old_rev_no,qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28,old_dwg_des)
            endif
            old_rev_no = m.iss_rev
            old_dwg_no = m.ctci_no
            old_dwg_des = alltrim(m.dwg_desc)
            store '' to qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28
        endif
        if old_rev_no <> m.iss_rev
            if len(qty1) > 0 or len(qty2) > 0 or len(qty3) > 0 or len(qty4) > 0 or len(qty5) > 0 or len(qty6) > 0 or len(qty7) > 0 or len(qty8) > 0 or len(qty9) > 0 or len(qty10) > 0 or len(qty11) > 0 or len(qty12) > 0 or len(qty13) > 0 or len(qty14) > 0 or len(qty15) > 0 or len(qty16) > 0 or len(qty17) > 0 or len(qty18) > 0 or len(qty19) > 0 or len(qty20) > 0 or len(qty21) > 0 or len(qty22) > 0 or len(qty23) > 0 or len(qty24) > 0 or len(qty25) > 0 or len(qty26) > 0 or len(qty27) > 0 or len(qty28) > 0
                insert into grid3_f values(.f.,old_dwg_no,old_rev_no,qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28,old_dwg_des)
            endif
            old_rev_no = m.iss_rev
            old_dwg_no = m.ctci_no
            old_dwg_des = alltrim(m.dwg_desc)
            store '' to qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28
        endif
        dept_idx = val(right(m.dept_cd,3))
        qty_s = 'qty' + dept_sel_ar(dept_idx,2)
        &qty_s = alltrim(str(m.dept_qty,2)) + 'P'
        select curs1
        skip
    enddo
    if len(alltrim(old_dwg_no)) > 0
        if len(qty1) > 0 or len(qty2) > 0 or len(qty3) > 0 or len(qty4) > 0 or len(qty5) > 0 or len(qty6) > 0 or len(qty7) > 0 or len(qty8) > 0 or len(qty9) > 0 or len(qty10) > 0 or len(qty11) > 0 or len(qty12) > 0 or len(qty13) > 0 or len(qty14) > 0 or len(qty15) > 0 or len(qty16) > 0 or len(qty17) > 0 or len(qty18) > 0 or len(qty19) > 0 or len(qty20) > 0 or len(qty21) > 0 or len(qty22) > 0 or len(qty23) > 0 or len(qty24) > 0 or len(qty25) > 0 or len(qty26) > 0 or len(qty27) > 0 or len(qty28) > 0
            insert into grid3_f values(old_dwg_no,old_rev_no,qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28,old_dwg_des)
        endif
    endif
else
    old_dwg_no = ''
endif
txt_cnt = 0
idx1 = 2
for i = 1 to 100
    if len(alltrim(dept_sel_ar(i,1))) > 0
        txt_cnt = txt_cnt + 1
        idx1 = idx1 + 1
        if idx1 > 30
            idx1 = 30
        endif
        col_s = 'thisform.grid3.column' + alltrim(str(idx1,2)) + '.header1.caption'
        &col_s = dept_sel_ar(i,1)
        col_s = 'thisform.grid3.column' + alltrim(str(idx1,2)) + '.width'
        &col_s = 60
    endif
next

select grid3_f
if reccount() > 0
    width_tot = 1000
    thisform.grid3.width = width_tot
    thisform.cmdPrint.enabled = .t.
    this.parent.grid3.enabled = .t.
else
    thisform.cmdPrint.enabled = .f.
    this.parent.grid3.enabled = .f.
    this.parent.pj_no.enabled = .t.
endif
go top
this.parent.cmdExit.enabled = .t.
thisform.refresh
keyboard "{Tab
*sql2 = "' and iss_date_eg = '" + issue_d + "' order by dept_cd"
sql2 = "' and ddr_no = '" + ddr_no_s + "' order by dept_cd"
sql = sql1 + sql2
res = sqlexec(han2,sql,'curs1')
if res > 0 and !empty(curs1.dept_cd)
    do while !eof()
        scatter memvar
        dept_idx = val(right(m.dept_cd,3))
        select cpy_set_f
        locate for dept_cd = m.dept_cd
        if found()
            dept_sel_ar(dept_idx,1) = alltrim(cpy_set_f.dept_na)
            dept_sel_ar(dept_idx,2) = 0
            sel_idx = sel_idx + 1
            sel_dept_ar(sel_idx) = alltrim(cpy_set_f.dept_na)
            replace sel_sw  with .t.
            replace hand_sw with m.hand_sw
            replace tel_txt with alltrim(m.tel_nos)
        endif
        select curs1
        skip
    enddo
    seq_no = 0
    for i = 1 to 100
        if len(alltrim(dept_sel_ar(i,1))) > 0
            seq_no = seq_no + 1
            dept_sel_ar(i,2) = alltrim(str(seq_no,2))
        endif
    next
endif
sql1 = "select *,"
sql2 = "isnull((select distinct 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),'') dwg_desc"
sql3 = " from fas.dbo.drawing_issue a where prj_no = '" + prj_no_i
sql4 = "' and ddr_no = '" + ddr_no_s + "' order by equip_no,ctci_no,iss_rev,dept_cd"
sql = sql1 + sql2 + sql3 + sql4
res = sqlexec(han2,sql,'curs1')
if res > 0 and !empty(curs1.prj_no)
    old_dwg_no = curs1.ctci_no
    old_rev_no = curs1.iss_rev
    old_dwg_des = alltrim(curs1.dwg_desc)
    store '' to qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28
    do while !eof()
        scatter memvar
        if old_dwg_no <> m.ctci_no
            if len(qty1) > 0 or len(qty2) > 0 or len(qty3) > 0 or len(qty4) > 0 or len(qty5) > 0 or len(qty6) > 0 or len(qty7) > 0 or len(qty8) > 0 or len(qty9) > 0 or len(qty10) > 0 or len(qty11) > 0 or len(qty12) > 0 or len(qty13) > 0 or len(qty14) > 0 or len(qty15) > 0 or len(qty16) > 0 or len(qty17) > 0 or len(qty18) > 0 or len(qty19) > 0 or len(qty20) > 0 or len(qty21) > 0 or len(qty22) > 0 or len(qty23) > 0 or len(qty24) > 0 or len(qty25) > 0 or len(qty26) > 0 or len(qty27) > 0 or len(qty28) > 0
                insert into grid3_f values(old_dwg_no,old_rev_no,qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28,old_dwg_des)
            endif
            old_rev_no = m.iss_rev
            old_dwg_no = m.ctci_no
            old_dwg_des = alltrim(m.dwg_desc)
            store '' to qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28
        endif
        if old_rev_no <> m.iss_rev
            if len(qty1) > 0 or len(qty2) > 0 or len(qty3) > 0 or len(qty4) > 0 or len(qty5) > 0 or len(qty6) > 0 or len(qty7) > 0 or len(qty8) > 0 or len(qty9) > 0 or len(qty10) > 0 or len(qty11) > 0 or len(qty12) > 0 or len(qty13) > 0 or len(qty14) > 0 or len(qty15) > 0 or len(qty16) > 0 or len(qty17) > 0 or len(qty18) > 0 or len(qty19) > 0 or len(qty20) > 0 or len(qty21) > 0 or len(qty22) > 0 or len(qty23) > 0 or len(qty24) > 0 or len(qty25) > 0 or len(qty26) > 0 or len(qty27) > 0 or len(qty28) > 0
                insert into grid3_f values(.f.,old_dwg_no,old_rev_no,qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28,old_dwg_des)
            endif
            old_rev_no = m.iss_rev
            old_dwg_no = m.ctci_no
            old_dwg_des = alltrim(m.dwg_desc)
            store '' to qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28
        endif
        dept_idx = val(right(m.dept_cd,3))
        qty_s = 'qty' + dept_sel_ar(dept_idx,2)
        &qty_s = alltrim(str(m.dept_qty,2)) + 'P'
        select curs1
        skip
    enddo
    if len(alltrim(old_dwg_no)) > 0
        if len(qty1) > 0 or len(qty2) > 0 or len(qty3) > 0 or len(qty4) > 0 or len(qty5) > 0 or len(qty6) > 0 or len(qty7) > 0 or len(qty8) > 0 or len(qty9) > 0 or len(qty10) > 0 or len(qty11) > 0 or len(qty12) > 0 or len(qty13) > 0 or len(qty14) > 0 or len(qty15) > 0 or len(qty16) > 0 or len(qty17) > 0 or len(qty18) > 0 or len(qty19) > 0 or len(qty20) > 0 or len(qty21) > 0 or len(qty22) > 0 or len(qty23) > 0 or len(qty24) > 0 or len(qty25) > 0 or len(qty26) > 0 or len(qty27) > 0 or len(qty28) > 0
            insert into grid3_f values(old_dwg_no,old_rev_no,qty1,qty2,qty3,qty4,qty5,qty6,qty7,qty8,qty9,qty10,qty11,qty12,qty13,qty14,qty15,qty16,qty17,qty18,qty19,qty20,qty21,qty22,qty23,qty24,qty25,qty26,qty27,qty28,old_dwg_des)
        endif
    endif
else
    old_dwg_no = ''
endif
txt_cnt = 0
idx1 = 2
for i = 1 to 100
    if len(alltrim(dept_sel_ar(i,1))) > 0
        txt_cnt = txt_cnt + 1
        idx1 = idx1 + 1
        if idx1 > 30
            idx1 = 30
        endif
        col_s = 'thisform.grid3.column' + alltrim(str(idx1,2)) + '.header1.caption'
        &col_s = dept_sel_ar(i,1)
        col_s = 'thisform.grid3.column' + alltrim(str(idx1,2)) + '.width'
        &col_s = 60
    endif
next

select grid3_f
if reccount() > 0
    width_tot = 1000
    thisform.grid3.width = width_tot
    thisform.cmdPrint.enabled = .t.
    this.parent.grid3.enabled = .t.
else
    thisform.cmdPrint.enabled = .f.
    this.parent.grid3.enabled = .f.
    this.parent.pj_no.enabled = .t.
endif
go top
this.parent.cmdExit.enabled = .t.
thisform.refresh
keyboard "{Tab}"