> Why dones only that data disappear. My guess is that that data is entered from CustomerJobs (form-in-form), then you return to the calling form which isn't aware of the change to those columns and it writes back a null as it updates. You might try a SaveRow just prior to your edit using CustomerJobs if this scenario sounds accurate.
Ben Petersen On 24 Mar 2003, at 15:18, [EMAIL PROTECTED] wrote: > When i run the code below my data is just fine until is run NEXTROW > PREVROW. Then JobLocation, JobNotes data just disappears. I run > NEXTROW PREVROW to refresh a row i just updated in a region. Why > dones only that data disappear. > > > > Form: Customer > Table: Customer > 1. TEXT vWEBAddress = WEBAddress > 2. TEXT vEMailAddress = EMailAddress > 3. TEXT vCustID = CustID > Table: CustomerContacts > 1. INTEGER vContactID1 = ContactID > Table: CustomerJobs > 1. INTEGER vContactID = ContactID1 > 2. NOTE vJobContactName = (CFirstName & CLastName) FROM > CustomerContacts WHERE ContactID = .vContactID AND CustID = .vCustID > 3. TEXT vJobID = JobID > > > Code > > -- CJobAdd.EEP > DIAL 'Do you want to add a new Job for Current Customer' vYesNo vEndKey YES > Caption ' ' AT 10 10 IF vYesNo = 'NO' or vEndKey = '[ESC]' THEN > GOTO Done > ELSE > GOTO Start > ENDIF > > LABEL Start > NEXTTAB > NEXTTAB > SET VAR vContactCount INTEGER = NULL > SET VAR vAz1 TEXT = NULL > SET VAR vAz2 TEXT = NULL > SET VAR vAz3 TEXT = NULL > SET VAR vAz4 TEXT = NULL > SET VAR vAz5 TEXT = NULL > SET VAR vAz6 TEXT = NULL > SET VAR vAz7 TEXT = NULL > SET VAR vAz8 TEXT = NULL > SET VAR vAz9 TEXT = NULL > SET VAR vAz10 TEXT = NULL > SET VAR vAz11 TEXT = NULL > SET VAR vAz12 TEXT = NULL > SET VAR vAz13 TEXT = NULL > SET VAR vAz14 TEXT = NULL > > SCREEN RESTORE OFF > NEWROW > SAVEROW > > SELECT (MAX(JobID)+1) INTO vJobID INDIC ivJobID FROM CustomerJobs > WHERE CustID = .vCustID > > DIAL 'Job Name' vAz1=60 vEndKey 1 CAPTION ' ' AT 10 10 > DIAL 'General Location' vAz2=60 vEndKey 1 CAPTION ' ' AT 10 10 > > LABEL Start2 > CHOOSE vAz3 FROM #VALUES FOR (CFirstName&CLastName)ContactID > FROM CustomerContacts + > WHERE CustID = .vCustID + > ORDER BY CustID AT CENT CENT + > CHKBOX + > TITLE '-Please Pick #1 Contact-' + > CAPTION 'Contacts' > IF vAz3 = '[ESC]' THEN > SET VAR vAz3 = NULL > DIAL 'You must choose a #1 Contact Do you wish to continue' vYesNo vEndKey > > YES CAPTION 'ERROR' AT CENT CENT > IF vYesNo = 'NO' or vEndKey = '[ESC]' THEN > GOTO Done > ELSE > GOTO Start2 > ENDIF > ENDIF > > CHOOSE vAz4 FROM #VALUES FOR (CFirstName&CLastName)ContactID > FROM CustomerContacts + > WHERE CustID = .vCustID + > ORDER BY CustID AT CENT CENT + > CHKBOX + > TITLE '-Please Pick #2 Contact-' + > CAPTION 'Contacts' > IF vAz4 = '[ESC]' THEN > SET VAR vAz4 = NULL > GOTO START3 > ENDIF > > CHOOSE vAz5 FROM #VALUES FOR (CFirstName&CLastName)ContactID > FROM CustomerContacts + > WHERE CustID = .vCustID + > ORDER BY CustID AT CENT CENT + > CHKBOX + > TITLE '-Please Pick #3 Contact-' + > CAPTION 'Contacts' > IF vAz5 = '[ESC]' THEN > SET VAR vAz5 = NULL > GOTO START3 > ENDIF > > CHOOSE vAz6 FROM #VALUES FOR (CFirstName&CLastName)ContactID > FROM CustomerContacts + > WHERE CustID = .vCustID + > ORDER BY CustID AT CENT CENT + > CHKBOX + > TITLE '-Please Pick #4 Contact' + > CAPTION 'Contacts' > IF vAz6 = '[ESC]' THEN > SET VAR vAz6 = NULL > GOTO START3 > ENDIF > > CHOOSE vAz7 FROM #VALUES FOR (CFirstName&CLastName)ContactID > FROM CustomerContacts + > WHERE CustID = .vCustID + > ORDER BY CustID AT CENT CENT + > CHKBOX + > TITLE '-Please Pick #5 Contact-' + > CAPTION 'Contacts' > IF vAz7 = '[ESC]' THEN > SET VAR vAz7 = NULL > GOTO START3 > ENDIF > > CHOOSE vAz8 FROM #VALUES FOR (CFirstName&CLastName)ContactID > FROM CustomerContacts + > WHERE CustID = .vCustID + > ORDER BY CustID AT CENT CENT + > CHKBOX + > TITLE '-Please Pick #6 Contact-' + > CAPTION 'Contacts' > IF vAz8 = '[ESC]' THEN > SET VAR vAz8 = NULL > GOTO START3 > ENDIF > > LABEL START3 > DIAL 'Job Fax#' vAz13=14 vEndKey 1 CAPTION ' ' AT 10 10 > IF vEndKey = '[ESC]' THEN > SET VAR vAz13 = NULL > ENDIF > > DIAL 'Job Phone 1' vAz9=14 vEndKey 1 CAPTION ' ' AT 10 10 > IF vEndKey = '[ESC]' THEN > SET VAR vAz9 = NULL > GOTO UPDATE1 > ENDIF > > DIAL 'Job Phone 2' vAz10=14 vEndKey 1 CAPTION ' ' AT 10 10 > IF vEndKey = '[ESC]' THEN > SET VAR vAz10 = NULL > GOTO UPDATE1 > ENDIF > > DIAL 'Job Phone 3' vAz11=14 vEndKey 1 CAPTION ' ' AT 10 10 > IF vEndKey = '[ESC]' THEN > SET VAR vEndKey = NULL > GOTO UPDATE1 > ENDIF > > DIAL 'Job Phone 4' vAz12=14 vEndKey 1 CAPTION ' ' AT 10 10 > IF vEndKey = '[ESC]' THEN > SET VAR vAz12 = NULL > GOTO UPDATE1 > ENDIF > > LABEL UPDATE1 > DIAL 'Note' vAz14=60 vEndKey 1 CAPTION ' ' AT 10 10 > IF vEndKey = '[ESC]' THEN > SET VAR vAz14 = NULL > ENDIF > > UPDATE CustomerJobs SET+ > CustID = .vCustID, + > JobID = .vJobID, + > JobDesc = .vAz1, + > JobLocation = .vAz2, + > ContactID1 = .vAz3, + > ContactID2 = .vAz4, + > ContactID3 = .vAz5, + > ContactID4 = .vAz6, + > ContactID5 = .vAz7, + > ContactID6 = .vAz8, + > JobPhone1 = .vAz9, + > JobPhone2 = .vAz10, + > JobPhone3 = .vAz11, + > JobPhone4 = .vAz12, + > JobFax = .vAz13, + > JobNotes = .vAz14 + > WHERE JobID FAILS > SAVEROW > DIAL 'Would you like to EDIT this new job' vYesNo vEndKey NO CAPTION '' AT > CENT CENT > IF vYesNo = 'NO' or vEndKey = '[ESC]' THEN > GOTO Done > ELSE > EDIT USING CustomerJobs WHERE CustID = .vCustID AND JobID = .vJobID > AT 10 10 550 550 > ENDIF > LABEL Done > NEXTROW > PREVROW > CLEAR VAR vRows, ivRows vAz%, vEndKey > RETURN >
