ฟังก์ชันหลัก read.main.table()

function extern read.main.table()
{
    domain  tcmcs.str9   temp.coa
    domain  tcyesno      first
    long    i
    long    detail.per.page
    
    detail.per.page = 20      | Detail line per page

    initial.label()
    
    rpt.seq = 0
    row.count = 0
    first = tcyesno.yes
    rpt.show.dt = 1
    out.off.spec = 0
    first.time = true 
    first.time.2 = true 
    
    select  sccoa003.*
    from    sccoa003
    where   sccoa003.coan >= {:coan.f} and sccoa003.coan <= {:coan.t}
        and sccoa003.ofbp >= {:bpid.f} and sccoa003.ofbp <= {:bpid.t}
    order by sccoa003.coan
    selectdo
        ...
    endselect
}

    select  tccom100.*
    from    tccom100
    where   tccom100.bpid = {:sccoa003.stbp}
    selectdo
    endselect
    
    select  tccom130.*
    from    tccom130
    where   tccom130.cadr = {:tccom100.cadr}
    selectdo
    endselect
    
    if tccom130.ccty = "THA" then
        coa.type = 1  |Local
        if first.time = true then
            rpt = brp.open("rsccoa060301000", "S", 0)
            first.time = false
        endif
    else
        coa.type = 2  |Export
        if first.time.2 = true then
            rpt2 = brp.open("rsccoa060401000", "S", 0)
            first.time.2 = false
        endif
    endif

    |Check out of specification
    if sccoa003.tbvr = tcyesno.no then
        | ... ดำเนินการพิมพ์รายงาน ...
    else
        message("COA out of specification, please contact QA.")
    endif