EJERCICIO 5

DATOS DE DE UN PRODUCTO

5.- Capturar los datos más 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()




QUIT




PUBLIC SUB Form_Open()




END




PUBLIC SUB Button1_Click()
IF TextBox4.Text < TextBox3.Text THEN Message("PERCHA LLENA") ELSE Message("REALIZAR ORDEN DE COMPRAS") END IF IF TextBox5.Text = "NACIONAL" OR IF TextBox5.Text = "ECUADOR" THEN Message("REALIZAR ORDEN DE COMPRAS") ELSE Message("PRODUCTO EXTRANJERO") END IF END PUBLIC SUB Button2_Click() Textbox1.text = "" Textbox2.text = "" TextBox3.text = "" Textbox4.text = "" TextBox5.text = ""


END
PUBLIC SUB Button3_Click()

QUIT

END