Advertisement
Wacharakiat

Untitled

Nov 26th, 2015
1,258
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. client_info.scx --> cmdNotation
  2.  
  3. LOCAL lnArea
  4. lnArea = SELECT()
  5. IF thisform.cboFund_id.Value = "SMG"   
  6.     cPolicyID = thisform.txtPolicyID.Value
  7.     IF !EMPTY(cPolicyID)
  8.         IF !USED("rvnotationbypolicyid")
  9.             USE cims!rvnotationbypolicyid IN 0
  10.         ELSE
  11.             =REQUERY("rvnotationbypolicyid")
  12.         ENDIF
  13.         IF RECCOUNT("rvnotationbypolicyid") > 0    
  14.             IF MESSAGEBOX("Edit Notation of "+ rvnotationbypolicyid.cardno + CHR(13)+;
  15.                 "Policy No: "+ALLTRIM(rvnotationbypolicyid.policy_no)+CHR(13)+;
  16.                 "Name: "+ALLTRIM(rvnotationbypolicyid.name)+" "+ALLTRIM(rvnotationbypolicyid.surname)+CHR(13)+;
  17.                 "Plan: "+ALLTRIM(this.Parent.Parent.page1.memberinfomation1.txtPlan.Value), 4+64+256,"Comfrim") = 6
  18.                 *
  19.                 =CURSORSETPROP("Buffering", 3,"rvnotationbypolicyid")
  20.                 MODIFY MEMO rvnotationbypolicyid.notation
  21.                 =TABLEUPDATE(.T., .T., "rvnotationbypolicyid")
  22.                 this.Parent.Parent.page1.memberinfomation1.pfInfo.page1.edtNotation.Value = rvnotationbypolicyid.notation
  23.                 this.Parent.Parent.page1.memberinfomation1.pfInfo.page1.edtNotation.Refresh()
  24.             ENDIF
  25.         ENDIF
  26.         USE IN rvnotationbypolicyid    
  27.     ENDIF  
  28. ELSE    
  29.     IF INLIST(thisform.ccustomertype, "A", "T")
  30.         SELECT clientbypersonno
  31.         lcPersonNo = thisform.cboFund_id.Value+this.Parent.Parent.page1.memberinfomation1.txtpolicyNO.Value + ;
  32.             STR(this.Parent.Parent.page1.memberinfomation1.txtfamilyNO.Value)+this.Parent.Parent.page1.memberinfomation1.txtPlan.Value
  33.         IF SEEK(lcPersonNo, "clientbypersonno", "per_plan")
  34.             IF MESSAGEBOX("Edit Notation of "+ clientbypersonno.policy_no+CHR(13)+;
  35.                 "Person: "+TRANSFORM(clientbypersonno.person_no, "@Z 9999")+CHR(13)+;  
  36.                 "Name: "+ALLTRIM(clientbypersonno.name)+" "+ALLTRIM(clientbypersonno.surname)+CHR(13)+;
  37.                 "Plan: "+ALLTRIM(clientbypersonno.plan), 4+64+256,"Comfrim") = 6
  38.                 MODIFY MEMO clientbypersonno.notation
  39.                 =TABLEUPDATE(.T.,.T.,"clientbypersonno")
  40.                 This.Parent.Memberinfomation1.pfInfo.page1.edtNotation.Value = clientbypersonno.notation
  41.             ENDIF
  42.         ENDIF      
  43.     ELSE    
  44.         SELECT custbypersonno
  45.         IF MESSAGEBOX("Edit Notation of "+ custbypersonno.policy_no+CHR(13)+;
  46.             "Name: "+ALLTRIM(custbypersonno.name)+CHR(13)+;
  47.             "Plan: "+ALLTRIM(custbypersonno.product), 4+64+256,"Comfrim") = 6
  48.             MODI MEMO custbypersonno.notation
  49.             =TABLEUPDATE(.T.,.T.,"custbypersonno")
  50.             This.Parent.Memberinfomation1.pfInfo.page1.edtNotation.Value = custbypersonno.notation
  51.         ENDIF  
  52.     ENDIF  
  53. ENDIF
  54. SELECT (lnArea)
  55. This.Parent.Memberinfomation1.pfInfo.page1.edtNotation.Refresh
Advertisement
RAW Paste Data Copied
Advertisement