This is driving me a little loopy.
It should be simple but I am making it to hard. I think?
I need this to verify that the vstart_inv or the vend_inv or the vmacola
variables can not be null and in addition to this the vstart_inv or the
vend_inv or vcdicustn can not be null with a resulting dialog box.
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
