找出最後一個未過帳是何狀態

bool Tf_c00l6207::lastPostN()
{
TDM_cl62db->TQ_cl62_hea_medi_1->DatabaseName=h_db_name;
TDM_cl62db->TQ_cl62_hea_medi_1->Close();
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Clear();
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("select cl62_trancode from cl62_hea_medi ");
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("where cl62_trandate = ");
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("(select max(cl62_trandate) ");
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("from cl62_hea_medi ");
if(RG_sf->ItemIndex==0)
{
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("where cl62_id=:Q1 ");
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("where cl62_sf=:Q2 ");
}
if(RG_sf->ItemIndex==1)
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("where cl62_rel_id=:Q1 ");
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("and cl62_trancode=:Q3 ");
TDM_cl62db->TQ_cl62_hea_medi_1->SQL->Add("and cl62_post_yn=:Q4) ");
if(RG_sf->ItemIndex==0)
{
TDM_cl62db->TQ_cl62_hea_medi_1->ParamByName("Q1")->AsString=f_id->Text.Trim();
TDM_cl62db->TQ_cl62_hea_medi_1->ParamByName("Q2")->AsString='1';
}
if(RG_sf->ItemIndex==1)
TDM_cl62db->TQ_cl62_hea_medi_1->ParamByName("Q1")->AsString=f_rel_id->Text.Trim();
TDM_cl62db->TQ_cl62_hea_medi_1->ParamByName("Q3")->AsString='L';
TDM_cl62db->TQ_cl62_hea_medi_1->ParamByName("Q4")->AsString='N';
if(!TDM_cl62db->TQ_cl62_hea_medi_1->Prepared)
TDM_cl62db->TQ_cl62_hea_medi_1->Prepare();
TDM_cl62db->TQ_cl62_hea_medi_1->Open();
if(TDM_cl62db->TQ_cl62_hea_medi_1->RecordCount==0)
{
ShowMessage("查無員工最後扣繳代碼!");
return(false);
}
else
{
return(true);
}
}