การอ่านรายละเอียด COA (Details)

    select  sccoa004.*, qmptc001.*
    from    sccoa004 JOIN qmptc001 ON qmptc001.char = sccoa004.char
    where   sccoa004.coan = {:sccoa003.coan}         
    order by sccoa004.prts
    selectdo
        rpt.seq = rpt.seq + 1
        row.count = row.count + 1
        rpt.storage = trim$(sccoa003.cwar) & "/" & trim$(sccoa003.loca)
        rpt.mfg.date = sprintf$("%D(%02d/%02m/%04Y)", 
                       convert.utc.to.date(sccoa003.mfgd))
        
        if sccoa003.expd > 0 then 
            rpt.exp.date = sprintf$("%D(%02d/%02m/%04Y)", 
                           convert.utc.to.date(sccoa003.expd))
        else
            rpt.exp.date = ""
        endif
        
        bp.name = trim$(sccoa003.stbp) & "  " & 
                  strip$(tccom130.ln01) & " " & strip$(tccom130.ln02) 
        item.dsca = trim$(sccoa003.item) & "  " & strip$(tcibd001.dsca)
        rpt.char.desc = qmptc001.dsca
    endselect

    if qmptc001.ctyp = qmptc.ctyp.option then
        | Option Type → ดึงคำอธิบายจากตารางตัวเลือก
        select  qmptc014.*
        from    qmptc014
        where   qmptc014.oset = {:sccoa004.oset} 
                and qmptc014.optn = {:sccoa004.mopt}
        selectdo
            rpt.result = qmptc014.dsca
        endselect
        
    else
        if qmptc001.ctyp = qmptc.ctyp.fraction then
            | Fraction Type → แสดงเป็นทศนิยม
            if trim$(sccoa004.char) = "SP_GRAV2" 
               or trim$(sccoa004.char) = "RE_DEN25" then
                rpt.result = edit$(sccoa004.mval, "ZZZZZZ9VD9999")
            else
                rpt.result = edit$(sccoa004.mval, "ZZZZZZZZ9VD99")
            endif
            
        else
            if qmptc001.ctyp = qmptc.ctyp.integer then
                | Integer Type → แสดงเป็นจำนวนเต็ม
                rpt.result = edit$(sccoa004.mval, "ZZZZZZZZZZZ9")
            endif
        endif
    endif