[RBASE-L] - Re: Code Line Probelm

[Steve Breen]

Will try it - thanks

________________________________

From: rbase-l@rbase.com on behalf of Bill Downall
Sent: Mon 4/14/2008 3:14 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Code Line Probelm


Steve,

Because you have a mix of "OR"s and "AND"s that are now within parentheses, 
R:BASE is grouping and parsing differently than you expect. You need to be 
complete and clear with your parentheses.

Here's my attempt to translate your English description directly to an IF 
statement:

IF ((vstart_inv IS NOT NULL AND vend_inv IS NOT NULL AND vmacloa IS NOT NULL) +
OR (vstart_inv IS NOT NULL AND vend_inv IS NOT NULL AND vcdicustn IS NOT NULL)) 
+
AND ((vmacola IS NULL and vcdicustn IS NOT NULL) OR +
  (vmacola IS NOT NULL AND vcdicustn IS NULL)) THEN

Bill


On Mon, Apr 14, 2008 at 3:01 PM, Steve Breen <[EMAIL PROTECTED]> wrote:


         
        Note: In other words either vstart_inv, vend_inv and vmacloa must all 
have data or vstart_inv, vend_inv and vcdicustn must all have data. Finally 
vmacola and vcdicustn both can not have data at the same time but I have taken 
care of this verification previously in the code. This is the final 
verification in the code line..
         
        Thanks for any help.
         
        Steve
         
         
        -- Start of Verification 4 You must enter a starting and ending invoice 
number
        CLEAR VAR vyesno
        CLEAR VAR vendkey

        
        IF (vstart_inv is null or vend_inv is null) and vmacola is not null and 
vcdicustn is null +
        or +
        (vstart_inv is null or vend_inv is null) and vmacola is null and 
vcdicustn is not null +
        then

        -- (CHAR(009)) = Tab Key (Indent)
        -- (CHAR(013)) = Carriage Return
        CLS

        SET VAR vmsg = +
        ('Please Note: You Must Enter a Macola or Customer Number 
Only'+(CHAR(013))+ +
        ' and A Begining and Ending Invoice Date and You Have Not'+ 
(CHAR(013))+ +
        ' '+ (CHAR(013))+ +
        'If You Want To Re-Enter Your Data Select "Yes" or Select "No" To 
Quit'+ (CHAR(013))+ +
        ' '+ (CHAR(013)))
        DIALOG .vmsg vyesno vendkey no +
        OPTION MESSAGE_FONT_NAME ARIAL FB|MESSAGE_FONT_SIZE 12|MESSAGE_BOLD ON +
        CAPTION ' Your Dialog Caption Here ...' +
        ICON APPEND +
        OPTION TITLE_FONT_COLOR BLACK +
        |TITLE_BACK_COLOR WHITE +
        |TRANSPARENCY 255 +
        |WINDOW_BACK_COLOR WHITE +
        |BUTTON_YES_CAPTION &YES +
        |BUTTON_NO_CAPTION &NO +
        |BUTTON_YES_COLOR GREEN +
        |BUTTON_NO_COLOR RED +
        |BUTTON_YES_FONT_COLOR WHITE +
        |BUTTON_NO_FONT_COLOR WHITE +
        |TOP 200 +
        |LEFT 200
        

        IF vyesno = yes THEN
        GOTO re_enter
        ENDIF
        

        IF vyesno = no THEN
        GOTO finish

        ENDIF
        ENDIF

        -- End Verificaton 4

<<winmail.dat>>