Introduzca los datos de un producto cualesquiera si el producto es ecuatoriano que me despliegue un mensaje que diga realizar orden de compra caso contrario percha llena.
' 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 Integer
DIM B AS String
A = TextBox4.Text
B = TextBox5.Text
IF TextBox4.Text < TextBox3.Text THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PERCHA LLENA")
ENDIF
IF TextBox5.Text = ("NACIONAL") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO
end
No hay comentarios:
Publicar un comentario