Gracias Hector, ya quedó con este codigo.
procedure TWebForm1.AgregaLista (text : string; valor : string);
var
Item : ListItem;
begin
Item := ListItem.Create;
Item.Text := text;
Item.Value := valor;
forma_pago.Items.Add(Item);
Item.Free;
end;
procedure TWebForm1.tipo_cliente_SelectedIndexChanged(sender: System.Object;
e: System.EventArgs);
begin
forma_pago.Items.Clear;
case tipo_cliente.SelectedIndex of
0: begin
AgregaLista ('50 % anticipo y 50 % a la entrega', '1');
AgregaLista ('100 % de anticipo', '2');
AgregaLista ('Tarjeta American Express 50/50', '30');
AgregaLista ('Tarjeta American Express 100 %', '31');
AgregaLista ('Tarjeta American Express 50/50 a 6 meses', '32');
AgregaLista ('Tarjeta American Express 100 % a 6 meses', '33');
AgregaLista ('Tarjeta American Express 50/50 a 9 meses', '34');
AgregaLista ('Tarjeta American Express 100 % a 9 meses', '35');
end;
1,2,3,4,5,6:
begin
AgregaLista ('50 % anticipo y 50 % a la entrega', '1');
end;
end;
end;
Última edición por selman fecha: 30-06-2005 a las 18:24:03.
|