ฟังก์ชันสนับสนุน (Helper Functions)

function void initial.label()
{
    rpt.lbl.01 = "Customer :"
    rpt.lbl.02 = "Product Name :"
    rpt.lbl.03 = "COA No."
    rpt.lbl.04 = "Storage Area/Tank"
    rpt.lbl.05 = "Source of Origin"
    rpt.lbl.06 = "Mfg.Date"
    rpt.lbl.07 = "Delivery Date"
    rpt.lbl.08 = "Truck No."
    rpt.lbl.09 = "Packaging"
    rpt.lbl.10 = "Quantity"
    rpt.lbl.11 = "Unit"
    rpt.lbl.12 = "Item"
    rpt.lbl.13 = "Analysis"
    rpt.lbl.14 = "Unit"
    rpt.lbl.15 = "Specification"
    rpt.lbl.16 = "Result"
    rpt.lbl.17 = "Analysis Method"
    rpt.lbl.18 = "Remark :"
    rpt.lbl.19 = "This certificate is generated from computerized 
                   system by authorized person (Lab Chemist) 
                   not required authorized signature."
    rpt.lbl.20 = "   Approved Report"
    rpt.lbl.21 = "Certificate of Analysis"  
    rpt.lbl.22 = "   Suttichai Chaisupitanarak"    
    rpt.lbl.23 = "   QA Manager"
    rpt.lbl.24 = "Expiry Date"
    
    rpt.iso = "FR-QAS-001 (Revision: 0; Last modified form Aug. 10, 2009)"
}

function domain tcgld.date convert.utc.to.date(
    domain tcdate utc.date)
{
    domain  tcgld.date  result
    long    date.yy
    long    date.mm
    long    date.dd
    long    date.hh
    long    date.mth
    long    date.ss
    long    ret
    
    ret = utc.to.date(utc.date, date.yy, date.mm, date.dd, 
                      date.hh, date.mth, date.ss)
    result = date.to.num(date.yy, date.mm, date.dd)
    return(result)
}

function void get.remark() {
    boolean     remark.found
    
    remark.found = false
    
    | Clear array
    for ix=1 to 5
        text.description(1,ix) = ""
    endfor
    
    | ดึง Remark จาก COA Header
    ret = text.to.buf("sccoa003.txta", language$, 2, remark.text1)
    if ret > 0 then
        if not isspace(remark.text1(1,1)) then
            ix = ix + 1
            text.description(1, ix) = remark.text1(1, 1)
        endif
    endif
    
    | ดึง Remark จาก Item/BP
    select  sccoa009.*
    from    sccoa009
    where   sccoa009.item = {:sccoa003.item} 
            and sccoa009.bpid = {:sccoa003.stbp}
            and sccoa009.datf <= {:tmp.mfg.date} 
            and sccoa009.datt >= {:tmp.mfg.date}
    selectdo
        remark.found = true
    selectempty
        | ลองหาแบบ Item อย่างเดียว (ไม่ระบุ BP)
        select  sccoa009.*
        from    sccoa009
        where   sccoa009.item = {:sccoa003.item} 
                and sccoa009.bpid = " "
        selectdo
            remark.found = true
        endselect
    endselect
}