EJERCICIO 26

5.- Capturar los datos mas importantes de un producto cualesquiera, incluyendo

cantidad, precio, etc. , desplegar una orden de compra, solo si el producto es de origen

nacional, en caso contrario no hacer nada.

Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()

QUIT

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

END

PUBLIC SUB Button1_Click()

DIM A AS String

A = TextBox5.Text

IF A = ("NACIONAL") OR A = ("ECUADOR") THEN

Message("REALIZAR ORDEN DE COMPRAS")

ELSE

Message("PRODUCTO EXTRANJERO")

END IF

END