Hi Mike Here is another example. This is part of the EEP on a button
SET MESSAGES OFF SET ERROR MESSAGES OFF SET VAR vcust TEXT SET VAR vcust = ' ' RUN fcust IN prog.apx ******* RBase gets tripped up in the fcust command block, it has ******* return at the end of the command block. ******* RBase returns me to a field in the region ******* I can run it 2-3 times and the CHOOSE command below ******* does not show up Until I exit the form and there is the ******* Choose box. Then I will do other things go back to this ******* form and the Choose box displays as it should????? ******* I can't figure out why one time it works and the other time ******* the Choose box gets hidden behind the form?? ******* I Rstyled the code lots of times and this same code ******* has been working for over 5 years in 6.1 in lots of offices. IF cust# IS NULL THEN GOTO aptend ENDIF CHOOSE vxdate FROM #VALUES + FOR DISTINCT ((CTXT(aptdate)) +' | '+ txtdate) FROM aptdate + WHERE aptdate >= .vaptdate ORDER BY aptdate ASC + AT 1,25 CHKBOX TITLE 'Press Space Bar or Click to pick Dates' + CAPTION .vnamex LINES 28 ******* sometimes this will not display on top of the form but when you ******* close the form there is the choose box other code in here RETURN thanks for any help marc At 10:40 AM 01/02/2002 -0500, you wrote: >Where is your RETURN in the apx file. RStyle would put a RETURN in it. > > >----- Original Message ----- >From: "marc" <[EMAIL PROTECTED]> >To: <[EMAIL PROTECTED]> >Sent: Tuesday, January 01, 2002 9:04 PM >Subject: Having fun with 6.5++ then ... > > > > Hi all > > > > I upgraded my office to 6.5++ last wk and was > > having fun with all of the new features but I ran > > into a problem. > > > > Several buttons, EEP's and command blocks will not > > run. I can click on a button and it will not run. Even > > after several clicks no luck then all of a sudden it will > > work. > > > > Below is one example of a problem EEP, the code > > between the xxxxxxxxxxxxxxxx is what is in the > > APX file. It seems Rbase is getting lost when jumping > > to the APX file and the return. > > > > Any thoughts or things I should look for. So far I have > > been able to work around each problem I have ran into > > but an not sure what the problem is. > > > > thanks > > marc > > > > > > RUN ckdupchr IN prog.apx -- this is where Rbase trips up, >the > > code between xxxxxxxxxxxxxx's is what is in ckdupchr, it runs OK > > with the code pasted in the EEP > > > > xxxxxxxxxxxxxxxxxxxxxxxx > > > > SELECT COUNT(custnum) INTO vzz FROM tran_daily + > > WHERE tr_type = 1 AND (CTXT(custnum)+CTXT(tr_date)+ch_code) IN + > > (SELECT (CTXT(custnum)+CTXT(tr_date)+ch_code), COUNT(*) FROM tran_daily >+ > > GROUP BY custnum,tr_date,ch_code HAVING COUNT (*) > 1) > > > > IF vzz > 0 THEN > > PAUSE 2 USING 'Check the next screen for duplicate charges. + > > You may have duplicate charges for a patient. Highlight the + > > duplicate charge and press F9 to Delete it.'=50 + > > AT CENTER,CENTER > > > > EDIT USING ed_tran + > > WHERE tr_type = 1 AND (CTXT(custnum)+CTXT(tr_date)+ch_code) IN + > > (SELECT (CTXT(custnum)+CTXT(tr_date)+ch_code), COUNT(*) FROM tran_daily >+ > > GROUP BY custnum,tr_date,ch_code HAVING COUNT (*) > 1) + > > ORDER BY custnum,tr_date,ch_code CAPTION + > > '*** Are these charges duplicates? ***' > > > > ENDIF > > > > xxxxxxxxxxxxxxxxxxxxxxx > > > > BROWSE t1.custnum=7 AS patnumber, t2.f_name=12 AS FIRST, t2.l_name=12 + > > AS LAST,'Charges'=12 AS charges, SUM(t1.ch_price) AS amount + > > FROM tran_daily t1,ptinfo t2 + > > WHERE t1.custnum = t2.custnum AND t1.tr_type = 1 + > > GROUP BY t1.custnum,t2.f_name,t2.l_name,t1.tr_type > > > > > > RETURN > > > > > > > > > > _________________________________________________________ > > Do You Yahoo!? > > Get your free @yahoo.com address at http://mail.yahoo.com > > > > ================================================ > > TO SEE MESSAGE POSTING GUIDELINES: > > Send a plain text email to [EMAIL PROTECTED] > > In the message body, put just two words: INTRO rbase-l > > ================================================ > > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] > > In the message body, put just two words: UNSUBSCRIBE rbase-l > > > > >================================================ >TO SEE MESSAGE POSTING GUIDELINES: >Send a plain text email to [EMAIL PROTECTED] >In the message body, put just two words: INTRO rbase-l >================================================ >TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] >In the message body, put just two words: UNSUBSCRIBE rbase-l _________________________________________________________ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l
