client_info.scx --> cmdNotation

LOCAL lnArea
lnArea = SELECT()
IF thisform.cboFund_id.Value = "SMG"
    cPolicyID = thisform.txtPolicyID.Value
    IF !EMPTY(cPolicyID)
        IF !USED("rvnotationbypolicyid")
            USE cims!rvnotationbypolicyid IN 0
        ELSE
            =REQUERY("rvnotationbypolicyid")
        ENDIF
        IF RECCOUNT("rvnotationbypolicyid") > 0
            IF MESSAGEBOX("Edit Notation of "+ rvnotationbypolicyid.cardno + CHR(13)+;
                "Policy No: "+ALLTRIM(rvnotationbypolicyid.policy_no)+CHR(13)+;
                "Name: "+ALLTRIM(rvnotationbypolicyid.name)+" "+ALLTRIM(rvnotationbypolicyid.surname)+CHR(13)+;
                "Plan: "+ALLTRIM(this.Parent.Parent.page1.memberinfomation1.txtPlan.Value), 4+64+256,"Comfrim") = 6
                *
                =CURSORSETPROP("Buffering", 3,"rvnotationbypolicyid")
                MODIFY MEMO rvnotationbypolicyid.notation
                =TABLEUPDATE(.T., .T., "rvnotationbypolicyid")
                this.Parent.Parent.page1.memberinfomation1.pfInfo.page1.edtNotation.Value = rvnotationbypolicyid.notation
                this.Parent.Parent.page1.memberinfomation1.pfInfo.page1.edtNotation.Refresh()
            ENDIF
        ENDIF
        USE IN rvnotationbypolicyid
    ENDIF
ELSE
    IF INLIST(thisform.ccustomertype, "A", "T")
        SELECT clientbypersonno
        lcPersonNo = thisform.cboFund_id.Value+this.Parent.Parent.page1.memberinfomation1.txtpolicyNO.Value + ;
            STR(this.Parent.Parent.page1.memberinfomation1.txtfamilyNO.Value)+this.Parent.Parent.page1.memberinfomation1.txtPlan.Value
        IF SEEK(lcPersonNo, "clientbypersonno", "per_plan")
            IF MESSAGEBOX("Edit Notation of "+ clientbypersonno.policy_no+CHR(13)+;
                "Person: "+TRANSFORM(clientbypersonno.person_no, "@Z 9999")+CHR(13)+;
                "Name: "+ALLTRIM(clientbypersonno.name)+" "+ALLTRIM(clientbypersonno.surname)+CHR(13)+;
                "Plan: "+ALLTRIM(clientbypersonno.plan), 4+64+256,"Comfrim") = 6
                MODIFY MEMO clientbypersonno.notation
                =TABLEUPDATE(.T.,.T.,"clientbypersonno")
                This.Parent.Memberinfomation1.pfInfo.page1.edtNotation.Value = clientbypersonno.notation
            ENDIF
        ENDIF
    ELSE
        SELECT custbypersonno
        IF MESSAGEBOX("Edit Notation of "+ custbypersonno.policy_no+CHR(13)+;
            "Name: "+ALLTRIM(custbypersonno.name)+CHR(13)+;
            "Plan: "+ALLTRIM(custbypersonno.product), 4+64+256,"Comfrim") = 6
            MODI MEMO custbypersonno.notation
            =TABLEUPDATE(.T.,.T.,"custbypersonno")
            This.Parent.Memberinfomation1.pfInfo.page1.edtNotation.Value = custbypersonno.notation
        ENDIF
    ENDIF
ENDIF
SELECT (lnArea)
This.Parent.Memberinfomation1.pfInfo.page1.edtNotation.Refresh