Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Leonard Trevor
  Where is Leonard Trevor?
 Edinburgh
 United Kingdom
 Leonard Trevor
 To: Borislav Borissov
  Where is Borislav Borissov?
 Sofia
 Bulgaria
 Borislav Borissov
 Tags
Subject: RE: Combo boxes behaving weirdly in sql using SPT
Thread ID: 104473 Message ID: 104546 # Views: 2 # Ratings: 0
Version: Visual FoxPro 6 Category: Errors & Debugging
Date: Thursday, August 17, 2006 2:01:24 PM         
   


mdob1 = transform(THISFORM.PAGEFRAME1.PAGE6.dob11.VALUE, '@D')
mdob2 = transform(THISFORM.PAGEFRAME1.PAGE6.dob21.VALUE, '@D')
mdob3 = transform(THISFORM.PAGEFRAME1.PAGE6.dob31.VALUE, '@D')
mdob4 = transform(THISFORM.PAGEFRAME1.PAGE6.dob41.VALUE, '@D')
mdob5 = transform(THISFORM.PAGEFRAME1.PAGE6.dob51.VALUE, '@D')
mdob6 = transform(THISFORM.PAGEFRAME1.PAGE6.dob61.VALUE, '@D')
machdt1 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt11.VALUE, '@D')
machdt2 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt21.VALUE, '@D')
machdt3 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt31.VALUE, '@D')
machdt4 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt41.VALUE, '@D')
machdt5 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt51.VALUE, '@D')
machdt6 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt61.VALUE, '@D')
machdt7 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt71.VALUE, '@D')
machdt8 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt81.VALUE, '@D')
machdt9 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt91.VALUE, '@D')
machdt10 = transform(THISFORM.PAGEFRAME1.PAGE8.achdt101.VALUE, '@D')
mprvprdb1 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb11.VALUE, '@D')
mprvprdb2 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb21.VALUE, '@D')
mprvprdb3 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb31.VALUE, '@D')
mprvprdb4 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb41.VALUE, '@D')
mprvprde1 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde11.VALUE, '@D')
mprvprde2 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde21.VALUE, '@D')
mprvprde3 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde31.VALUE, '@D')
mprvprde4 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde41.VALUE, '@D')
myailm1 = transform(THISFORM.PAGEFRAME1.PAGE5.yailm11.VALUE, '@D')
myailm2 = transform(THISFORM.PAGEFRAME1.PAGE5.yailm21.VALUE, '@D')
myailm3 = transform(THISFORM.PAGEFRAME1.PAGE5.yailm31.VALUE, '@D')
myailm4 = transform(THISFORM.PAGEFRAME1.PAGE5.yailm41.VALUE, '@D')
mmthwagsal = transform(thisform.pageframe1.page7.mthwagsal1.value, '999999999999999.99')
mhourate = transform(thisform.pageframe1.page7.hourate1.value, '999999999999999.99')
mvacdays = transform(thisform.pageframe1.page7.vacdays1.value, '999999999999999.99')
mheight = transform(thisform.pageframe1.page10.height1.value, '999999999999999.99')
mweight = transform(thisform.pageframe1.page10.weight1.value, '999999999999999.99')
mben_amta = transform(thisform.pageframe1.page11.ben_amta1.value, '999999999999999.99')
mben_amtb = transform(thisform.pageframe1.page11.ben_amtb1.value, '999999999999999.99')
mben_amtc = transform(thisform.pageframe1.page11.ben_amtc1.value, '999999999999999.99')
mben_amtd = transform(thisform.pageframe1.page11.ben_amtd1.value, '999999999999999.99')
mben_amte = transform(thisform.pageframe1.page11.ben_amte1.value, '999999999999999.99')
mben_amtf = transform(thisform.pageframe1.page11.ben_amtf1.value, '999999999999999.99')
*mcost_tr = transform(thisform.cost_of_tr1.value, '999999999999999.99')
LOCAL strSQL
STORE SQLCONNECT('admin', 'sa', '') TO nHandle
strSQL = ""


************************************
************
***********************************

m1=alltrim(ThisForm.pageframe1.page1.IDNO1.Value)
m2=alltrim(ThisForm.pageframe1.page1.fname1.Value)
m3=alltrim(ThisForm.pageframe1.page1.midname1.Value)
m4=alltrim(ThisForm.pageframe1.page1.maiden_name1.Value)
m5=alltrim(ThisForm.pageframe1.page1.lname1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" IDNO = '" + m1 + "' " + "," + ;
" FNAME = '" + m2 + "' " + "," + ;
" mid_name = '" + m3 + "' " + "," + ;
" maiden_nam = '" + m4 + "' " + "," + ;
" lname = '" + m5 + "' " + ;
" WHERE idno = '" + m1 + "' "

**********************************************************************
***************
**********************************************************************
m6=alltrim(ThisForm.pageframe1.page1.title1.Value)
m7=alltrim(ThisForm.pageframe1.page1.dept1.Value)
m8=alltrim(ThisForm.pageframe1.page1.deptname1.Value)
m9=alltrim(ThisForm.pageframe1.page1.position1.Value)
m10=alltrim(ThisForm.pageframe1.page1.posname1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" title1 = '" + m6 + "' " + "," + ;
" dept = '" + m7 + "' " + "," + ;
" deptname = '" + m8 + "' " + "," + ;
" position1 = '" + m9 + "' " + "," + ;
" posname = '" + m10 + "' " + ;
" WHERE idno = '" + m1 + "' "
*************************************************************************
********************
*************************************************************************
m11=alltrim(ThisForm.pageframe1.page1.empstats1.Value)
m12=alltrim(ThisForm.pageframe1.page1.empstname1.Value)
m13=alltrim(ThisForm.pageframe1.page1.typappnt1.Value)
m14=alltrim(ThisForm.pageframe1.page1.hometown1.Value)
m15=alltrim(ThisForm.pageframe1.page1.tribe1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" empstats = '" + m11 + "' " + "," + ;
" empstname = '" + m12 + "' " + "," + ;
" typappnt = '" + m13 + "' " + "," + ;
" hometown = '" + m14 + "' " + "," + ;
" tribe = '" + m15 + "' " + ;
" WHERE idno = '" + m1 + "' "
*************************************************************************
********************
**************************************************************************
m16=alltrim(ThisForm.pageframe1.page1.padrss11.Value)
m17=alltrim(ThisForm.pageframe1.page1.padrss21.Value)
m18=alltrim(ThisForm.pageframe1.page1.padrss31.Value)
m19=alltrim(ThisForm.pageframe1.page1.sup_no1.Value)
m20=alltrim(ThisForm.pageframe1.page1.sup_name1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" padrss1 = '" + m16 + "' " + "," + ;
" padrss2 = '" + m17 + "' " + "," + ;
" padrss3 = '" + m18 + "' " + "," + ;
" sup_no = '" + m19 + "' " + "," + ;
" sup_name = '" + m20 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************
********************
*****************************************************************************
m21=alltrim(ThisForm.pageframe1.page1.sup_mail1.Value)
m22=alltrim(ThisForm.pageframe1.page1.ssfno1.Value)
m23=alltrim(ThisForm.pageframe1.page1.bankcd1.Value)
m24=alltrim(ThisForm.pageframe1.page1.bankname1.Value)
m25=alltrim(ThisForm.pageframe1.page1.bankactno1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" sup_mail = '" + m21 + "' " + "," + ;
" ssfno = '" + m22 + "' " + "," + ;
" bankcd = '" + m23 + "' " + "," + ;
" bankname = '" + m24 + "' " + "," + ;
" bankactno = '" + m25 + "' " + ;
" WHERE idno = '" + m1 + "' "
****************************************************************************
********************
*****************************************************************************
m26=alltrim(ThisForm.pageframe1.page1.branch1.Value)
m27=alltrim(ThisForm.pageframe1.page1.braname1.Value)
m28=alltrim(ThisForm.pageframe1.page1.sectn1.Value)
m29=alltrim(ThisForm.pageframe1.page1.sectname1.Value)
m30=alltrim(ThisForm.pageframe1.page1.dist_no1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" branch = '" + m26 + "' " + "," + ;
" braname = '" + m27 + "' " + "," + ;
" sectn = '" + m28 + "' " + "," + ;
" sectname = '" + m29 + "' " + "," + ;
" dist_no = '" + m30 + "' " + ;
" WHERE idno = '" + m1 + "' "
****************************************************************************
***********************
*********************************************************************************
m31=alltrim(ThisForm.pageframe1.page1.dist_name1.Value)
m32=alltrim(ThisForm.pageframe1.page1.martstat1.Value)
m33=alltrim(ThisForm.pageframe1.page1.catcode1.Value)
m34=alltrim(ThisForm.pageframe1.page1.catname1.Value)
m35=alltrim(ThisForm.pageframe1.page1.sex1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" dist_name = '" + m31 + "' " + "," + ;
" martstat = '" + m32 + "' " + "," + ;
" catcode = '" + m33+ "' " + "," + ;
" catname = '" + m34 + "' " + "," + ;
" sex = '" + m35 + "' " + ;
" WHERE idno = '" + m1 + "' "
**********************************************************************************
************************
*************************************************************************************
m36=alltrim(ThisForm.pageframe1.page1.ptelep1.Value)
m37=alltrim(ThisForm.pageframe1.page1.cell_phone1.Value)
m38=alltrim(ThisForm.pageframe1.page1.email1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" ptelep = '" + m36 + "' " + "," + ;
" cell_phone = '" + m37 + "' " + "," + ;
" email = '" + m38 + "' " + ;
" WHERE idno = '" + m1 + "' "
**************************************************************************************
******************************
***************************************************************************************
m39 = transform(thisform.pageframe1.page1.appdate1.value, '@D')
m40 = transform(thisform.pageframe1.page1.datebth1.value, '@D')
m41 = transform(thisform.pageframe1.page1.dateconf1.value, '@D')
m42 = transform(thisform.pageframe1.page1.numchild1.value, '999999999999999.99')
strSQL = strSQL + "UPDATE paymast SET " + ;
" appdate = '" + m39 + "' " + "," + ;
" datebth = '" + m40 + "' " + "," + ;
" dateconf = '" + m41+ "' " + "," + ;
" numchild = '" + m42 + "' " + ;
" WHERE idno = '" + m1 + "' "
**********************************************************************************************
***************************PAGE 2*************************************************************
m43=alltrim(ThisForm.pageframe1.page2.sectech11.Value)
m44=alltrim(ThisForm.pageframe1.page2.sectech21.Value)
m45=alltrim(ThisForm.pageframe1.page2.sectech31.Value)
m46=alltrim(ThisForm.pageframe1.page2.terpoly11.Value)
m47=alltrim(ThisForm.pageframe1.page2.terpoly21.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" sectech1 = '" + m43 + "' " + "," + ;
" sectech2 = '" + m44 + "' " + "," + ;
" sectech3 = '" + m45+ "' " + "," + ;
" terpoly1 = '" + m46 + "' " + "," + ;
" terpoly2 = '" + m47 + "' " + ;
" WHERE idno = '" + m1 + "' "
********************************************************************************************
********************
*******************************************************************************************
m48=alltrim(ThisForm.pageframe1.page2.terpoly31.Value)
m49=alltrim(ThisForm.pageframe1.page2.specsch11.Value)
m50=alltrim(ThisForm.pageframe1.page2.specsch21.Value)
m51=alltrim(ThisForm.pageframe1.page2.specsch31.Value)
m52=alltrim(ThisForm.pageframe1.page2.pgrad11.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" terpoly3 = '" + m48 + "' " + "," + ;
" specsch1 = '" + m49 + "' " + "," + ;
" specsch2 = '" + m50+ "' " + "," + ;
" specsch3 = '" + m51 + "' " + "," + ;
" pgrad1 = '" + m52 + "' " + ;
" WHERE idno = '" + m1 + "' "
**********************************************************************************************
*********************
************************************************************************************************
m53=alltrim(ThisForm.pageframe1.page2.pgrad21.Value)
m54=alltrim(ThisForm.pageframe1.page2.pgrad31.Value)
m55=alltrim(ThisForm.pageframe1.page2.sperdb11.Value)
m56=alltrim(ThisForm.pageframe1.page2.sperdb21.Value)
m57=alltrim(ThisForm.pageframe1.page2.sperdb31.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" pgrad2 = '" + m53 + "' " + "," + ;
" pgrad3 = '" + m54 + "' " + "," + ;
" sperdb1 = '" + m55+ "' " + "," + ;
" sperdb2 = '" + m56 + "' " + "," + ;
" sperdb3 = '" + m57 + "' " + ;
" WHERE idno = '" + m1 + "' "
***********************************************************************************************
*********************
***********************************************************************************************
m58=alltrim(ThisForm.pageframe1.page2.sperde11.Value)
m59=alltrim(ThisForm.pageframe1.page2.sperde21.Value)
m60=alltrim(ThisForm.pageframe1.page2.sperde31.Value)
m61=alltrim(ThisForm.pageframe1.page2.tperd1e1.Value)
m62=alltrim(ThisForm.pageframe1.page2.tperd2e1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" sperde1 = '" + m58 + "' " + "," + ;
" sperde2 = '" + m59 + "' " + "," + ;
" sperde3 = '" + m60+ "' " + "," + ;
" tperd1e = '" + m61 + "' " + "," + ;
" tperd2e = '" + m62 + "' " + ;
" WHERE idno = '" + m1 + "' "
************************************************************************************************
*********************
***********************************************************************************************
m63=alltrim(ThisForm.pageframe1.page2.tperd3e1.Value)
m64=alltrim(ThisForm.pageframe1.page2.tperd1b1.Value)
m65=alltrim(ThisForm.pageframe1.page2.tperd2b1.Value)
m66=alltrim(ThisForm.pageframe1.page2.tperd3b1.Value)
m67=alltrim(ThisForm.pageframe1.page2.spperd1b1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" tperd3e = '" + m63 + "' " + "," + ;
" tperd1b = '" + m64 + "' " + "," + ;
" tperd2b = '" + m65+ "' " + "," + ;
" tperd3b = '" + m66 + "' " + "," + ;
" spperd1b = '" + m67 + "' " + ;
" WHERE idno = '" + m1 + "' "
************************************************************************************************
*********************
***********************************************************************************************
m68=alltrim(ThisForm.pageframe1.page2.spperd2b1.Value)
m69=alltrim(ThisForm.pageframe1.page2.spperd3b1.Value)
m70=alltrim(ThisForm.pageframe1.page2.spperd1e1.Value)
m71=alltrim(ThisForm.pageframe1.page2.spperd2e1.Value)
m72=alltrim(ThisForm.pageframe1.page2.spperd3e1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" spperd2b = '" + m68 + "' " + "," + ;
" spperd3b = '" + m69 + "' " + "," + ;
" spperd1e = '" + m70+ "' " + "," + ;
" spperd2e = '" + m71 + "' " + "," + ;
" spperd3e = '" + m72 + "' " + ;
" WHERE idno = '" + m1 + "' "
************************************************************************************************
**************************
*************************************************************************************************
m73=alltrim(ThisForm.pageframe1.page2.pgperd1b1.Value)
m74=alltrim(ThisForm.pageframe1.page2.pgperd2b1.Value)
m75=alltrim(ThisForm.pageframe1.page2.pgperd3b1.Value)
m76=alltrim(ThisForm.pageframe1.page2.pgperd1e1.Value)
m77=alltrim(ThisForm.pageframe1.page2.pgperd2e1.Value)
m78=alltrim(ThisForm.pageframe1.page2.pgperd3e1.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" pgperd1b = '" + m73 + "' " + "," + ;
" pgperd2b = '" + m74 + "' " + "," + ;
" pgperd3b = '" + m75+ "' " + "," + ;
" pgperd1e = '" + m76 + "' " + "," + ;
" pgperd2e = '" + m77 + "' " + "," + ;
" pgperd3e = '" + m78 + "' " + ;
" WHERE idno = '" + m1 + "' "
***************************************************************************************************
**************************************PAGE3********************************************************
****************************************************************************************************
m79=alltrim(ThisForm.pageframe1.page3.acad11.Value)
m80=alltrim(ThisForm.pageframe1.page3.acad21.Value)
m81=alltrim(ThisForm.pageframe1.page3.acad31.Value)
m82=alltrim(ThisForm.pageframe1.page3.acad41.Value)
m83=alltrim(ThisForm.pageframe1.page3.acad51.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" acad1 = '" + m79 + "' " + "," + ;
" acad2 = '" + m80 + "' " + "," + ;
" acad3 = '" + m81+ "' " + "," + ;
" acad4 = '" + m82 + "' " + "," + ;
" acad5 = '" + m83 + "' " + ;
" WHERE idno = '" + m1 + "' "
******************************************************************************************************
***********************
******************************************************************************************************
m84=alltrim(ThisForm.pageframe1.page3.acad61.Value)
m85=alltrim(ThisForm.pageframe1.page3.aqual11.Value)
m86=alltrim(ThisForm.pageframe1.page3.aqual21.Value)
m87=alltrim(ThisForm.pageframe1.page3.aqual31.Value)
m88=alltrim(ThisForm.pageframe1.page3.aqual41.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" acad6 = '" + m84 + "' " + "," + ;
" aqual1 = '" + m85 + "' " + "," + ;
" aqual2 = '" + m86+ "' " + "," + ;
" aqual3 = '" + m87 + "' " + "," + ;
" aqual4 = '" + m88 + "' " + ;
" WHERE idno = '" + m1 + "' "
********************************************************************************************************
*********************
*********************************************************************************************************
m89=alltrim(ThisForm.pageframe1.page3.aqual51.Value)
m90=alltrim(ThisForm.pageframe1.page3.aqual61.Value)
m91=alltrim(ThisForm.pageframe1.page3.prof11.Value)
m92=alltrim(ThisForm.pageframe1.page3.prof21.Value)
m93=alltrim(ThisForm.pageframe1.page3.prof31.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" aqual5 = '" + m89 + "' " + "," + ;
" aqual6 = '" + m90 + "' " + "," + ;
" prof1 = '" + m91+ "' " + "," + ;
" prof2 = '" + m92 + "' " + "," + ;
" prof3 = '" + m93 + "' " + ;
" WHERE idno = '" + m1 + "' "
********************************************************************************************************
*********************
*******************************************************************************************************
m94=alltrim(ThisForm.pageframe1.page3.prof41.Value)
m95=alltrim(ThisForm.pageframe1.page3.prof51.Value)
m96=alltrim(ThisForm.pageframe1.page3.prof61.Value)
m97=alltrim(ThisForm.pageframe1.page3.profp11.Value)
m98=alltrim(ThisForm.pageframe1.page3.profp21.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" prof4 = '" + m94 + "' " + "," + ;
" prof5 = '" + m95 + "' " + "," + ;
" prof6 = '" + m96+ "' " + "," + ;
" profp1 = '" + m97 + "' " + "," + ;
" profp2 = '" + m98 + "' " + ;
" WHERE idno = '" + m1 + "' "
*********************************************************************************************************
******************
********************************************************************************************************
m99=alltrim(ThisForm.pageframe1.page3.profp31.Value)
m100=alltrim(ThisForm.pageframe1.page3.profp41.Value)
m101=alltrim(ThisForm.pageframe1.page3.profp51.Value)
m102=alltrim(ThisForm.pageframe1.page3.profp61.Value)
m103=alltrim(ThisForm.pageframe1.page3.acadp11.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" profp3 = '" + m99 + "' " + "," + ;
" profp4 = '" + m100 + "' " + "," + ;
" profp5 = '" + m101+ "' " + "," + ;
" profp6 = '" + m102 + "' " + "," + ;
" acadp1 = '" + m103 + "' " + ;
" WHERE idno = '" + m1 + "' "
************************************************************************************************************
*******************
************************************************************************************************************
m104=alltrim(ThisForm.pageframe1.page3.acadp21.Value)
m105=alltrim(ThisForm.pageframe1.page3.acadp31.Value)
m106=alltrim(ThisForm.pageframe1.page3.acadp41.Value)
m107=alltrim(ThisForm.pageframe1.page3.acadp51.Value)
m108=alltrim(ThisForm.pageframe1.page3.acadp61.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" acadp2 = '" + m104 + "' " + "," + ;
" acadp3 = '" + m105 + "' " + "," + ;
" acadp4 = '" + m106+ "' " + "," + ;
" acadp5 = '" + m107 + "' " + "," + ;
" acadp6 = '" + m108 + "' " + ;
" WHERE idno = '" + m1 + "' "
************************************************************************************************************
*********************************PAGE4*********************************************************************
*************************************************************************************************************
m109=alltrim(ThisForm.pageframe1.page4.prv_inst11.Value)
m110=alltrim(ThisForm.pageframe1.page4.prv_inst21.Value)
m111=alltrim(ThisForm.pageframe1.page4.prv_inst31.Value)
m112=alltrim(ThisForm.pageframe1.page4.prv_inst41.Value)
m113=alltrim(ThisForm.pageframe1.page4.prvac11.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" prv_inst1 = '" + m109 + "' " + "," + ;
" prv_inst2 = '" + m110 + "' " + "," + ;
" prv_inst3 = '" + m111+ "' " + "," + ;
" prv_inst4 = '" + m112 + "' " + "," + ;
" prvac1 = '" + m113 + "' " + ;
" WHERE idno = '" + m1 + "' "
*************************************************************************************************************
*************************
**************************************************************************************************************
m114=alltrim(ThisForm.pageframe1.page4.prvac21.Value)
m115=alltrim(ThisForm.pageframe1.page4.prvac31.Value)
m116=alltrim(ThisForm.pageframe1.page4.prvac41.Value)
m117=alltrim(ThisForm.pageframe1.page4.prvjb11.Value)
m118=alltrim(ThisForm.pageframe1.page4.prvjb21.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" prvac2 = '" + m114 + "' " + "," + ;
" prvac3 = '" + m115 + "' " + "," + ;
" prvac4 = '" + m116+ "' " + "," + ;
" prvjb1 = '" + m117 + "' " + "," + ;
" prvjb2 = '" + m118 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************************************************
***************************
*****************************************************************************************************************
m119=alltrim(ThisForm.pageframe1.page4.prvjb31.Value)
m120=alltrim(ThisForm.pageframe1.page4.prvjb41.Value)
m121=alltrim(ThisForm.pageframe1.page4.prv_sec11.Value)
m122=alltrim(ThisForm.pageframe1.page4.prv_sec21.Value)
m123=alltrim(ThisForm.pageframe1.page4.prv_sec31.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" prvjb3 = '" + m119 + "' " + "," + ;
" prvjb4 = '" + m120 + "' " + "," + ;
" prv_sec1 = '" + m121+ "' " + "," + ;
" prv_sec2 = '" + m122 + "' " + "," + ;
" prv_sec3 = '" + m123 + "' " + ;
" WHERE idno = '" + m1 + "' "
******************************************************************************************************************
*********************
*******************************************************************************************************************
m124=alltrim(ThisForm.pageframe1.page4.prv_sec41.Value)
m125=alltrim(ThisForm.pageframe1.page4.prvlvrs11.Value)
m126=alltrim(ThisForm.pageframe1.page4.prvlvrs21.Value)
m127=alltrim(ThisForm.pageframe1.page4.prvlvrs31.Value)
m128=alltrim(ThisForm.pageframe1.page4.prvlvrs41.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" prv_sec4 = '" + m124 + "' " + "," + ;
" prvlvrs1 = '" + m125 + "' " + "," + ;
" prvlvrs2 = '" + m126+ "' " + "," + ;
" prvlvrs3 = '" + m127 + "' " + "," + ;
" prvlvrs4 = '" + m128 + "' " + ;
" WHERE idno = '" + m1 + "' "
********************************************************************************************************************
********************
*********************************************************************************************************************
m129=alltrim(ThisForm.pageframe1.page4.prvskll11.Value)
m130=alltrim(ThisForm.pageframe1.page4.prvskll21.Value)
m131=alltrim(ThisForm.pageframe1.page4.prvskll31.Value)
m132=alltrim(ThisForm.pageframe1.page4.prvskll41.Value)
strSQL = strSQL + "UPDATE paymast SET " + ;
" prvskll1 = '" + m129 + "' " + "," + ;
" prvskll2 = '" + m130 + "' " + "," + ;
" prvskll3 = '" + m131+ "' " + "," + ;
" prvskll4 = '" + m132 + "' " + ;
" WHERE idno = '" + m1 + "' "
*********************************************************************************************************************
******************
********************************************************************************************************************
m133 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb11.VALUE, '@D')
m134 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb21.VALUE, '@D')
m135 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb31.VALUE, '@D')
m136 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprdb41.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" prvprdb1 = '" + m133 + "' " + "," + ;
" prvprdb2 = '" + m134 + "' " + "," + ;
" prvprdb3 = '" + m135+ "' " + "," + ;
" prvprdb4 = '" + m136 + "' " + ;
" WHERE idno = '" + m1 + "' "
**********************************************************************************************************************
********************
**********************************************************************************************************************
m137 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde11.VALUE, '@D')
m138 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde21.VALUE, '@D')
m139 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde31.VALUE, '@D')
m140 = transform(THISFORM.PAGEFRAME1.PAGE4.prvprde41.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" prvprde1 = '" + m137 + "' " + "," + ;
" prvprde2 = '" + m138 + "' " + "," + ;
" prvprde3 = '" + m139+ "' " + "," + ;
" prvprde4 = '" + m140 + "' " + ;
" WHERE idno = '" + m1 + "' "
***************************************************************************************************************************
************************************PAGE5*******************************************************************************
m141 = alltrim(THISFORM.PAGEFRAME1.PAGE5.ailm11.VALUE)
m142 = alltrim(THISFORM.PAGEFRAME1.PAGE5.ailm21.VALUE)
m143 = alltrim(THISFORM.PAGEFRAME1.PAGE5.ailm31.VALUE)
m144 = alltrim(THISFORM.PAGEFRAME1.PAGE5.ailm31.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" ailm1 = '" + m141 + "' " + "," + ;
" ailm2 = '" + m142 + "' " + "," + ;
" ailm3 = '" + m143+ "' " + "," + ;
" ailm4 = '" + m144 + "' " + ;
" WHERE idno = '" + m1 + "' "
***************************************************************************************************************************
******************
****************************************************************************************************************************
m145 = alltrim(THISFORM.PAGEFRAME1.PAGE5.distype11.VALUE)
m146 = alltrim(THISFORM.PAGEFRAME1.PAGE5.distype21.VALUE)
m147 = alltrim(THISFORM.PAGEFRAME1.PAGE5.distype31.VALUE)
m148 = alltrim(THISFORM.PAGEFRAME1.PAGE5.distype41.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" distype1 = '" + m145 + "' " + "," + ;
" distype2 = '" + m146 + "' " + "," + ;
" distype3 = '" + m147+ "' " + "," + ;
" distype4 = '" + m148 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************************************************************
**********************
*****************************************************************************************************************************
m149 = alltrim(THISFORM.PAGEFRAME1.PAGE5.tranmode11.VALUE)
m150 = alltrim(THISFORM.PAGEFRAME1.PAGE5.tranmode21.VALUE)
m151 = alltrim(THISFORM.PAGEFRAME1.PAGE5.tranmode31.VALUE)
m152 = alltrim(THISFORM.PAGEFRAME1.PAGE5.tranmode41.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" tranmode1 = '" + m149 + "' " + "," + ;
" tranmode2 = '" + m150 + "' " + "," + ;
" tranmode3 = '" + m151+ "' " + "," + ;
" tranmode4 = '" + m152 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m153 = alltrim(THISFORM.PAGEFRAME1.PAGE5.comm11.VALUE)
m154 = alltrim(THISFORM.PAGEFRAME1.PAGE5.comm21.VALUE)
m155 = alltrim(THISFORM.PAGEFRAME1.PAGE5.comm31.VALUE)
m156 = alltrim(THISFORM.PAGEFRAME1.PAGE5.comm41.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" comm1 = '" + m153 + "' " + "," + ;
" comm2 = '" + m154 + "' " + "," + ;
" comm3 = '" + m155+ "' " + "," + ;
" comm4 = '" + m156 + "' " + ;
" WHERE idno = '" + m1 + "' "
********************************************************************************************************************
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m157 = alltrim(THISFORM.PAGEFRAME1.PAGE5.docons11.VALUE)
m158 = alltrim(THISFORM.PAGEFRAME1.PAGE5.docons21.VALUE)
m159 = alltrim(THISFORM.PAGEFRAME1.PAGE5.docons31.VALUE)
m160 = alltrim(THISFORM.PAGEFRAME1.PAGE5.docons41.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" docons1 = '" + m157 + "' " + "," + ;
" docons2 = '" + m158 + "' " + "," + ;
" docons3 = '" + m159+ "' " + "," + ;
" docons4 = '" + m160 + "' " + ;
" WHERE idno = '" + m1 + "' "
********************************************************************************************************************
********************************************************************************************************************
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m161 = alltrim(THISFORM.PAGEFRAME1.PAGE5.blood_grp1.VALUE)
m162 = alltrim(THISFORM.PAGEFRAME1.PAGE5.blood_sc1.VALUE)
m163 = alltrim(THISFORM.PAGEFRAME1.PAGE5.blood_rh1.VALUE)
m164 = alltrim(THISFORM.PAGEFRAME1.PAGE5.blood_hp1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" blood_grp = '" + m161 + "' " + "," + ;
" blood_sc = '" + m162 + "' " + "," + ;
" blood_rh = '" + m163+ "' " + "," + ;
" blood_hp = '" + m164 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************
m165 = transform(THISFORM.PAGEFRAME1.PAGE5.yailm11.VALUE, '@D')
m166= transform(THISFORM.PAGEFRAME1.PAGE5.yailm21.VALUE, '@D')
m167 = transform(THISFORM.PAGEFRAME1.PAGE5.yailm31.VALUE, '@D')
m168 = transform(THISFORM.PAGEFRAME1.PAGE5.yailm41.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" yailm1 = '" + m165 + "' " + "," + ;
" yailm2 = '" + m166 + "' " + "," + ;
" yailm3 = '" + m167+ "' " + "," + ;
" yailm4 = '" + m168 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************
*****************************************************page6
******************************************************************************
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m168 = alltrim(THISFORM.PAGEFRAME1.PAGE6.CHLD11.VALUE)
m169 = alltrim(THISFORM.PAGEFRAME1.PAGE6.SEX11.VALUE)
m170 = alltrim(THISFORM.PAGEFRAME1.PAGE6.MED11.VALUE)
m171 = transform(THISFORM.PAGEFRAME1.PAGE6.DOB11.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" CHLD1 = '" + m168 + "' " + "," + ;
" SEX1 = '" + m169 + "' " + "," + ;
" MED1 = '" + m170+ "' " + "," + ;
" DOB1 = '" + m171 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m172 = alltrim(THISFORM.PAGEFRAME1.PAGE6.CHLD21.VALUE)
m173 = alltrim(THISFORM.PAGEFRAME1.PAGE6.SEX21.VALUE)
m174 = alltrim(THISFORM.PAGEFRAME1.PAGE6.MED21.VALUE)
m175 = transform(THISFORM.PAGEFRAME1.PAGE6.DOB21.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" CHLD2 = '" + m172 + "' " + "," + ;
" SEX2 = '" + m173 + "' " + "," + ;
" MED2 = '" + m174+ "' " + "," + ;
" DOB2 = '" + m175 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m176 = alltrim(THISFORM.PAGEFRAME1.PAGE6.CHLD31.VALUE)
m177 = alltrim(THISFORM.PAGEFRAME1.PAGE6.SEX31.VALUE)
m178 = alltrim(THISFORM.PAGEFRAME1.PAGE6.MED31.VALUE)
m179 = transform(THISFORM.PAGEFRAME1.PAGE6.DOB31.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" CHLD3 = '" + m176 + "' " + "," + ;
" SEX3 = '" + m177 + "' " + "," + ;
" MED3 = '" + m178+ "' " + "," + ;
" DOB3 = '" + m179 + "' " + ;
" WHERE idno = '" + m1 + "' "


*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m180 = alltrim(THISFORM.PAGEFRAME1.PAGE6.CHLD41.VALUE)
m181 = alltrim(THISFORM.PAGEFRAME1.PAGE6.SEX41.VALUE)
m182 = alltrim(THISFORM.PAGEFRAME1.PAGE6.MED41.VALUE)
m183 = transform(THISFORM.PAGEFRAME1.PAGE6.DOB41.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" CHLD4 = '" + m180 + "' " + "," + ;
" SEX4 = '" + m181 + "' " + "," + ;
" MED4 = '" + m182+ "' " + "," + ;
" DOB4 = '" + m183 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m184 = alltrim(THISFORM.PAGEFRAME1.PAGE6.CHLD51.VALUE)
m185 = alltrim(THISFORM.PAGEFRAME1.PAGE6.SEX51.VALUE)
m186 = alltrim(THISFORM.PAGEFRAME1.PAGE6.MED51.VALUE)
m187 = transform(THISFORM.PAGEFRAME1.PAGE6.DOB51.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" CHLD5 = '" + m184 + "' " + "," + ;
" SEX5 = '" + m185 + "' " + "," + ;
" MED5 = '" + m186+ "' " + "," + ;
" DOB5 = '" + m187 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m188 = alltrim(THISFORM.PAGEFRAME1.PAGE6.CHLD61.VALUE)
m189 = alltrim(THISFORM.PAGEFRAME1.PAGE6.SEX61.VALUE)
m190 = alltrim(THISFORM.PAGEFRAME1.PAGE6.MED61.VALUE)
m191 = transform(THISFORM.PAGEFRAME1.PAGE6.DOB61.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" CHLD6 = '" + m188 + "' " + "," + ;
" SEX6 = '" + m189 + "' " + "," + ;
" MED6 = '" + m190+ "' " + "," + ;
" DOB6 = '" + m191 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m192 = alltrim(THISFORM.PAGEFRAME1.PAGE6.HTADRSS11.VALUE)
m193 = alltrim(THISFORM.PAGEFRAME1.PAGE6.HTADRSS21.VALUE)
m194 = alltrim(THISFORM.PAGEFRAME1.PAGE6.HTADRSS31.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" HTADRSS1 = '" + m192 + "' " + "," + ;
" HTADRSS2 = '" + m193 + "' " + "," + ;
" HTADRSS3= '" + m194+ "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m195 = alltrim(THISFORM.PAGEFRAME1.PAGE6.NKADD11.VALUE)
m196 = alltrim(THISFORM.PAGEFRAME1.PAGE6.NKADD21.VALUE)
m197 = alltrim(THISFORM.PAGEFRAME1.PAGE6.NKADD31.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" NKADD1 = '" + m195 + "' " + "," + ;
" NKADD2 = '" + m196 + "' " + "," + ;
" NKADD3 = '" + m197+ "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m198 = alltrim(THISFORM.PAGEFRAME1.PAGE6.SPOUSE1.VALUE)
m199 = alltrim(THISFORM.PAGEFRAME1.PAGE6.FTRNAME1.VALUE)
m200 = alltrim(THISFORM.PAGEFRAME1.PAGE6.MTHNAME1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" SPOUSE = '" + m198 + "' " + "," + ;
" FTRNAME = '" + m199 + "' " + "," + ;
" MTHNAME = '" + m200+ "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m201 = alltrim(THISFORM.PAGEFRAME1.PAGE6.NEXT_KIN1.VALUE)
m202 = alltrim(THISFORM.PAGEFRAME1.PAGE6.NKTELEPH1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" NEXT_KIN = '" + m201 + "' " + "," + ;
" FTRNAME = '" + m202 + "' " + ;
" WHERE idno = '" + m1 + "' "
**********************************************************
*****************************end page 6
**********************************************************
***************************************************************************************************************************
*********************************PAGE7************************************************************************************
*****************************************************************************************************************************
m203 = alltrim(THISFORM.PAGEFRAME1.PAGE7.CODE1.VALUE)
m204 = alltrim(THISFORM.PAGEFRAME1.PAGE7.DESCPTN1.VALUE)
m205 = alltrim(THISFORM.PAGEFRAME1.PAGE7.LEVEL1.VALUE)
m206 = alltrim(THISFORM.PAGEFRAME1.PAGE7.EARNTYP1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" GRADE = '" + m203 + "' " + "," + ;
" DESCPTN = '" + m204 + "' " + "," + ;
" LEVEL1 = '" + m205 + "' " + "," + ;
" EARNTYP = '" + m206 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************************************************************
*********************
**********************************************************************************************************
m207 = alltrim(THISFORM.PAGEFRAME1.PAGE7.PRORATED1.VALUE)
m208 = transform(thisform.pageframe1.page7.HOURATE1.value, '999999999999999.99')
m209 = transform(thisform.pageframe1.page7.MTHWAGSAL1.value, '999999999999999.99')
m210 = transform(thisform.pageframe1.page7.VACDAYS1.value, '999999999999999.99')
strSQL = strSQL + "UPDATE paymast SET " + ;
" SALTYPE = '" + m207 + "' " + "," + ;
" HOURATE = '" + m208 + "' " + "," + ;
" MTHWAGSAL = '" + m209 + "' " + "," + ;
" VACDAYS = '" + m210 + "' " + ;
" WHERE idno = '" + m1 + "' "
**************************************************************************************************************
****************************************PAGE 7 END************************************************************
*************************************************************************************************************


*******************************************************************************************************************
*********************************************PAGE8**************************************************************
***************************************************************************************************************
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m211 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH1MEM1.VALUE)
m212 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH2MEM1.VALUE)
m213 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH3MEM1.VALUE)
m214 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH4MEM1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACH1MEM = '" + m211 + "' " + "," + ;
" ACH2MEM = '" + m212 + "' " + "," + ;
" ACH3MEM = '" + m213 + "' " + "," + ;
" ACH4MEM = '" + m214+ "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m215 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH5MEM1.VALUE)
m216 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH6MEM1.VALUE)
m217 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH7MEM1.VALUE)
m218 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH8MEM1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACH5MEM = '" + m215 + "' " + "," + ;
" ACH6MEM = '" + m216 + "' " + "," + ;
" ACH7MEM = '" + m217 + "' " + "," + ;
" ACH8MEM = '" + m218+ "' " + ;
" WHERE idno = '" + m1 + "' "


*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m219 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH9MEM1.VALUE)
m220 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH10MEM1.VALUE)
m221 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH1AUT1.VALUE)
m222 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH2AUT1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACH9MEM = '" + m219 + "' " + "," + ;
" ACH10MEM = '" + m220 + "' " + "," + ;
" ACH1AUT = '" + m221 + "' " + "," + ;
" ACH2AUT = '" + m222+ "' " + ;
" WHERE idno = '" + m1 + "' "


*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m223 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH3AUT1.VALUE)
m224 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH4AUT1.VALUE)
m225 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH5AUT1.VALUE)
m226 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH6AUT1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACH3AUT = '" + m223 + "' " + "," + ;
" ACH4AUT = '" + m224 + "' " + "," + ;
" ACH5AUT = '" + m225 + "' " + "," + ;
" ACH6AUT = '" + m226+ "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m227 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH7AUT1.VALUE)
m228 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH8AUT1.VALUE)
m229 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH9AUT1.VALUE)
m230 = alltrim(THISFORM.PAGEFRAME1.PAGE8.ACH10AUT1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACH7AUT = '" + m227 + "' " + "," + ;
" ACH8AUT = '" + m228 + "' " + "," + ;
" ACH9AUT = '" + m229 + "' " + "," + ;
" ACH10AUT = '" + m230+ "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m231 = transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT11.VALUE, '@D')
m232= transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT21.VALUE, '@D')
m233 = transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT31.VALUE, '@D')
m234 = transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT41.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACHDT1 = '" + m231 + "' " + "," + ;
" ACHDT2 = '" + m232 + "' " + "," + ;
" ACHDT3 = '" + m233+ "' " + "," + ;
" ACHDT4 = '" + m234 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m235 = transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT51.VALUE, '@D')
m236= transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT61.VALUE, '@D')
m237 = transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT71.VALUE, '@D')
m238 = transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT81.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACHDT5 = '" + m235 + "' " + "," + ;
" ACHDT6 = '" + m236 + "' " + "," + ;
" ACHDT7 = '" + m237+ "' " + "," + ;
" ACHDT8 = '" + m238 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m239 = transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT91.VALUE, '@D')
m240= transform(THISFORM.PAGEFRAME1.PAGE8.ACHDT101.VALUE, '@D')
strSQL = strSQL + "UPDATE paymast SET " + ;
" ACHDT9 = '" + m239 + "' " + "," + ;
" ACHDT10 = '" + m240 + "' " + ;
" WHERE idno = '" + m1 + "' "

**************************************************************************************************************
****************************************PAGE 8 END************************************************************
*************************************************************************************************************


*******************************************************************************************************************
*********************************************PAGE9**************************************************************
***************************************************************************************************************
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m241 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG11.VALUE)
m242 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG1S1.VALUE)
m243 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG1W1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" LANG1 = '" + m241 + "' " + "," + ;
" LANG1S = '" + m242 + "' " + "," + ;
" LANG1W = '" + m243 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m244 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG21.VALUE)
m245 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG2S1.VALUE)
m246 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG2W1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" LANG2 = '" + m244 + "' " + "," + ;
" LANG2S = '" + m245 + "' " + "," + ;
" LANG2W = '" + m246 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m247 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG31.VALUE)
m248 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG3S1.VALUE)
m249 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG3W1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" LANG3 = '" + m247 + "' " + "," + ;
" LANG3S = '" + m248 + "' " + "," + ;
" LANG3W = '" + m249 + "' " + ;
" WHERE idno = '" + m1 + "' "
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m250 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG41.VALUE)
m251 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG4S1.VALUE)
m252 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG4W1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" LANG4 = '" + m250 + "' " + "," + ;
" LANG4S = '" + m251 + "' " + "," + ;
" LANG4W = '" + m252 + "' " + ;
" WHERE idno = '" + m1 + "' "

*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m253 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG51.VALUE)
m254 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG5S1.VALUE)
m255 = alltrim(THISFORM.PAGEFRAME1.PAGE9.LANG5W1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" LANG5 = '" + m253 + "' " + "," + ;
" LANG5S = '" + m254 + "' " + "," + ;
" LANG5W = '" + m255 + "' " + ;
" WHERE idno = '" + m1 + "' "

**************************************************************************************************************
****************************************PAGE 9 END************************************************************
*************************************************************************************************************


*******************************************************************************************************************
*********************************************PAGE10**************************************************************
***************************************************************************************************************
*****************************************************************************************************************************
**************
*****************************************************************************************************************************
m256 = alltrim(THISFORM.PAGEFRAME1.PAGE10.RELIGION1.VALUE)
m257 = alltrim(THISFORM.PAGEFRAME1.PAGE10.DRIV_LIC1.VALUE)
m258 = alltrim(THISFORM.PAGEFRAME1.PAGE10.NATION1.VALUE)
m259 = alltrim(THISFORM.PAGEFRAME1.PAGE10.PASSPORT1.VALUE)
strSQL = strSQL + "UPDATE paymast SET " + ;
" RELIGION = '" + m256 + "' " + "," + ;
" DRIV_LIC = '" + m257 + "' " + "," + ;
" NATION = '" + m258 + "' " + "," + ;
" PASSPORT = '" + m259 + "' " + ;
" WHERE idno = '" + m1 + "' "

**************
*****************************************************************************************************************************
m260 = alltrim(THISFORM.PAGEFRAME1.PAGE10.OCCUP1.VALUE)
m261 = alltrim(THISFORM.PAGEFRAME1.PAGE10.COLOR_EYES1.VALUE)
m262 = transform(thisform.pageframe1.page10.HEIGHT1.value, '999999999999999.99')
m263 = transform(thisform.pageframe1.page10.WEIGHT1.value, '999999999999999.99')
strSQL = strSQL + "UPDATE paymast SET " + ;
" OCCUP = '" + m260 + "' " + "," + ;
" COLOR_EYES = '" + m261 + "' " + "," + ;
" HEIGHT1 = '" + m262 + "' " + "," + ;
" WEIGHT = '" + m263 + "' " + ;
" WHERE idno = '" + m1 + "' "
**************************************************************************************************************
****************************************PAGE 10 END************************************************************
*************************************************************************************************************


nResult=SQLEXEC(nHandle, strSQL)
IF nResult > 0
MESSAGEBOX('Record Updated.', 64, 'Update')
ELSE
MESSAGEBOX('Error Occured!', 64, 'Update')
ENDIF


*************************************
**************************************


I believe the problem could be coming from the field size.

I've built a work around by separating the initial datafile into 2

*paymast
*benefact


However, I will like to concurrently populate the second datafile

with the content of the primary key of the first datafile(paymast)as
and when the first is created in the initial form.

Please assist with the syntax for inserting into the second datafile.

I think this will solve the problem.




I have built a new data file to handle the content of page 11.

I want the original form to insert 3 fields into the datafile of the


















> > > How you update SQL Server Table?
> > > SPT? CA? RV?
> > > Can you post the code where you update fields with Combo values and pass them back to SQL Server?

>
>
>
> ????
>
> Borislav Borissov
>
>


ENTIRE THREAD

Combo boxes behaving weirdly in sql using SPT Posted by Leonard Trevor @ 8/16/2006 9:36:42 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Borislav Borissov @ 8/16/2006 9:52:55 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Leonard Trevor @ 8/16/2006 11:27:36 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Borislav Borissov @ 8/17/2006 9:19:07 AM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Leonard Trevor @ 8/17/2006 11:07:00 AM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Borislav Borissov @ 8/17/2006 11:10:36 AM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Leonard Trevor @ 8/17/2006 1:17:47 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Borislav Borissov @ 8/17/2006 1:20:09 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Leonard Trevor @ 8/17/2006 2:01:24 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Borislav Borissov @ 8/17/2006 2:18:04 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Leonard Trevor @ 8/17/2006 2:53:29 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Borislav Borissov @ 8/17/2006 3:04:47 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Leonard Trevor @ 8/17/2006 4:55:14 PM
RE: Combo boxes behaving weirdly in sql using SPT Posted by Ken Murphy @ 8/17/2006 3:48:53 PM