VFP

dwg_no_i = thisform.dwg_no_txt.text
eqp_no_i = thisform.eqp_no_txt.text
dwg_desc_i = alltrim(thisform.dwg_title_txt.text)
if len(strtran(thisform.rev_no.text,' ','')) > 1
    rev_no_i = left(thisform.rev_no.text,2)
else
    rev_no_i = thisform.rev_no.text
endif
store '' to sch_d_i,rece_d_i
sch_d_i = strtran(thisform.sch_issue.text,'/','')
rece_d_i = strtran(thisform.rece_date.text,'/','')
dwg_id_i = 0
rev_iss = ''
sch_iss = ''
if len(alltrim(eqp_no_old)) > 0
    sql = "select * from fas.dbo.drawing_master where prj_no = '" + prj_no_i + "' and equip_no = '" + alltrim(eqp_no_old) + "' and ctci_no = '" + alltrim(dwg_no_old) + "'"
else
    sql = "select * from fas.dbo.drawing_master where prj_no = '" + prj_no_i + "' and equip_no = '" + alltrim(eqp_no_i) + "' and ctci_no = '" + alltrim(dwg_no_i) + "'"
endif
res = sqlexec(han3,sql,'curs1')
if res > 0 and !empty(curs1.prj_no)
    upd_sw = 1
    sch_iss = curs1.sch_iss_d
    rev_iss = curs1.rev_iss_d
    dwg_id_i = curs1.dwg_id
    select curs1
    use
else
    upd_sw = 0
endif
sch_iss = strtran(sch_iss," ","")
rev_iss = strtran(rev_iss," ","")
if len(sch_iss) = 0 and len(sch_d_i) > 0
    sch_iss = sch_d_i
endif
if len(rev_iss) = 0 and len(rece_d_i) > 0
    rev_iss = rece_d_i
endif

if upd_sw = 0
    sql1 = "insert fas.dbo.drawing_master(prj_no,equip_no,ctci_no,dwg_desc,sch_iss_d,rev_iss_d) "
    if left(rev_no_i,1) = '0'
        sch_iss = sch_d_i
        rev_iss = ''
    else
        sch_iss = ''
        rev_iss = sch_d_i
    endif
    sql2 = "values('" + prj_no_i + "','" + eqp_no_i + "','" + dwg_no_i + "','" + dwg_desc_i + "','"
    sql2 = sql2 + sch_iss + "','" + rev_iss + "')"
    sql = sql1 + sql2
else
    sql1 = "update fas.dbo.drawing_master set equip_no = '" + eqp_no_i + "', dwg_desc = '"
    sql2 = dwg_desc_i + "', sch_iss_d = '" + sch_iss + "', rev_iss_d = '" + rev_iss + "' where prj_no = '" + prj_no_i
    if len(alltrim(eqp_no_old)) > 0
        sql3 =  "' and equip_no = '" + alltrim(eqp_no_old) + "' and ctci_no = '" + dwg_no_old + "'"
    else
        sql3 =  "' and equip_no = '" + alltrim(eqp_no_i) + "' and ctci_no = '" + dwg_no_i + "'"
    endif
    sql = sql1 + sql2 + sql3
endif

res = sqlexec(han3,sql)
if res < 0
    =messagebox("Insert or Update Project Drawing Master table error : " + chr(13) + alltrim(message()) + chr(13) + sql,16)
endif
if len(alltrim(eqp_no_old)) > 0
    sql = "select * from fas.dbo.drawing_master where prj_no = '" + prj_no_i + "' and equip_no = '" + alltrim(eqp_no_old) + "' and ctci_no = '" + alltrim(dwg_no_old) + "'"
else
    sql = "select * from fas.dbo.drawing_master where prj_no = '" + prj_no_i + "' and equip_no = '" + alltrim(eqp_no_i) + "' and ctci_no = '" + dwg_no_i + "'"
endif
res = sqlexec(han3,sql,'curs1')
if res > 0 and !empty(curs1.prj_no)
    dwg_id_i = curs1.dwg_id
    select curs1
    use
endif
rev_no_i =strtran(rev_no_i,' ','')
if len(rev_no_i) > 0
    sql = "select * from fas.dbo.xmitl_dtl where prj_no = '" + prj_no_i + "' and iss_rev = '" + rev_no_i + "' and dwg_id = " + str(dwg_id_i)
    res = sqlexec(han3,sql,'curs2')
    if res > 0 and !empty(curs2.prj_no)
        upd_sw = 1
    else
        upd_sw = 0
    endif
    if upd_sw = 1
        sql1 = "update fas.dbo.xmitl_dtl set iss_date_eg = '" + rece_d_i + "', equip_no = '" + eqp_no_i
        sql2 = "' where prj_no = '" + prj_no_i + "' and iss_rev = '" + rev_no_i + "' and dwg_id = " + str(dwg_id_i)
        sql = sql1 + sql2
        res = sqlexec(han3,sql)
        if res < 0
            =messagebox("Update Project transmittal table error : " + chr(13) + alltrim(message()) + chr(13) + sql,16)
        endif
    else
        sql1 = "insert fas.dbo.xmitl_dtl(prj_no,equip_no,ctci_no,iss_rev,iss_date_eg,dept_id,dwg_id) "
        sql2 = "values('" + prj_no_i + "','" + eqp_no_i + "','" + dwg_no_i + "','" + rev_no_i
        sql3 = "','" + rece_d_i + "','9100'," + str(dwg_id_i) + ")"
        sql = sql1 + sql2 + sql3
        res = sqlexec(han3,sql)
        if res < 0
            =messagebox("Insert Project transmittal table error : " + chr(13) + alltrim(message()) + chr(13) + sql,16)
        endif
    endif
endif

rev_no_i = left((rev_no_i+space(2)),2)
if len(sch_d_i) > 0
    sch_d_i = left(sch_d_i,4) + '/' + substr(sch_d_i,5,2) + '/' + substr(sch_d_i,7,2)
else
    sch_d_i = ''
endif
if len(rece_d_i) > 0
    m.rece_d = left(rece_d_i,4) + '/' + substr(rece_d_i,5,2) + '/' + substr(rece_d_i,7,2)
else
    m.rece_d = ''
endif
m.rev_no = rev_no_i
if len(alltrim(m.rev_no)) > 0
    store '' to rev0_d,rev1_d,rev2_d,rev3_d,rev4_d,rev5_d,rev6_d,rev7_d,rev8_d,rev9_d
    store '' to rev10_d,rev11_d,rev12_d,rev13_d,rev14_d,rev15_d
    if tit_idx = 0 then
        r_f = 'rev0_d'
        re_f = 'rec0_d'
    else
        if tit_idx <> 99 then
            r_f = 'rev' + alltrim(str(tit_idx,2)) + '_d'
            re_f = 'rec' + alltrim(str(tit_idx,2)) + '_d'
        endif
    endif
    if tit_idx <> 99 then
        &r_f = m.rece_d + '(' + left(rev_no_i,2) + ')'
    endif
endif

if ins_sw = 1
    select dwg_grid
    seek eqp_no_i + dwg_no_i
    if !found()
        insert into dwg_grid values(dwg_no_i,eqp_no_i,dwg_desc_i,sch_d_i,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
    if tit_idx <> 99
        replace &re_f   with &r_f
    endif
endif
if edit_sw = 1
    select dwg_grid
    seek eqp_no_i + dwg_no_i
    replace issue_d     with sch_d_i
    replace eqp_no      with eqp_no_i
    replace dwg_title   with dwg_desc_i
    if tit_idx <> 99
        replace &re_f       with m.rece_d + '(' + left(rev_no_i,2) + ')'
    endif
endif

thisform.grid1.refresh
store 0 to ins_sw,edit_sw
thisform.cmdInsert.enabled = .t.
thisform.cmdEdit.enabled = .t.
thisform.cmdDel.enabled = .t.
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.
thisform.refresh