Código Delphi [-]procedure TFXPAF.NSESerieChange(Sender: TObject); //------------------------------------------------------------------------------ //***************************************************[ Cambiar la serie ]******* //------------------------------------------------------------------------------ begin case NSESerie.Value of 1BNSerie.Field.Value:=DM.IBDCONFISERIE.Value; 2BNSerie.Field.Value:=DM.IBDCONFISERIE2.Value; 3BNSerie.Field.Value:=DM.IBDCONFISERIE3.Value; end; end;
procedure TFXPAF.NSESerieChange(Sender: TObject); //------------------------------------------------------------------------------ //***************************************************[ Cambiar la serie ]******* //------------------------------------------------------------------------------ begin case NSESerie.Value of 1BNSerie.Field.Value:=DM.IBDCONFISERIE.Value; 2BNSerie.Field.Value:=DM.IBDCONFISERIE2.Value; 3BNSerie.Field.Value:=DM.IBDCONFISERIE3.Value; end; end;